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-19 08:37:24 +02:00
parent 780d763ba4
commit c9eb9307ef
5 changed files with 69 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyComboBox.vb
View File

@@ -148,9 +148,10 @@ Public Class MyComboBox
If VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "" Then Exit Sub
If VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "DE" Then Exit Sub
If Me.FindForm Is Nothing Then Exit Sub '!!!!!!!!!!!!!!!!!!!!!!!!
Dim lanTxtAll = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.FindAll(Function(x) x.trs_object = Me.FindForm.Name And x.trs_control = Me.Name And x.trs_sprache = VERAG_PROG_ALLGEMEIN.cAllgemein._LAN)
If lanTxtAll.Count > 0 Then
Dim lanTxtAll = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.FindAll(Function(x) If(x.trs_object, "") = Me.FindForm.Name And If(x.trs_control, "") = Me.Name And If(x.trs_sprache, "") = VERAG_PROG_ALLGEMEIN.cAllgemein._LAN)
If lanTxtAll.Count > 0 Then
Dim listItems(Me.Items.Count) As MyListItem
Me.Items.CopyTo(listItems, 0)

1
VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb
View File

@@ -239,6 +239,7 @@ Public Class cKundenKontakte
Shared Function getMailAdress(KdNr As Integer, bez As String) As String
If KdNr < 0 Then Return ""
Dim KD_LIST = New cKundenKontakteList(KdNr)
If KD_LIST IsNot Nothing Then
For Each li In KD_LIST.LIST
If li.kkd_kkaBez = bez Then Return li.kkd_Email