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
2020-12-16 10:02:49 +01:00
parent 3bc1c8a309
commit 1c8b5afac9
19 changed files with 2061 additions and 1893 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyComboBox.vb
View File

@@ -19,6 +19,7 @@ Public Class MyComboBox
End Sub
Sub fillWithSQL(sqlstr As String, Optional showValueInText As Boolean = True, Optional conn As String = "SDL", Optional firstEmpty As Boolean = False, Optional clearList As Boolean = True)
fillWithMyListItem((New SQL).loadCboBySqlWithListItem(sqlstr, showValueInText, conn), firstEmpty, clearList)
_TRANSLATE()
End Sub
Public Property _value As String
@@ -134,5 +135,45 @@ Public Class MyComboBox
' MsgBox(Me._value)
End Sub
Public Sub _TRANSLATE()
Try
If VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "" Then Exit Sub
If VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "DE" 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 listItems(Me.Items.Count) As MyListItem
Me.Items.CopyTo(listItems, 0)
Me.Items.Clear()
For Each l In listItems
If l IsNot Nothing Then
Dim lanTxt = l.Text
For Each txt In lanTxtAll
If txt.trs_subControl IsNot DBNull.Value AndAlso txt.trs_subControl = l.Text Then
lanTxt = txt.trs_text
End If
Next
' Dim lanTxt = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.Find(Function(x) x.trs_object = Me.FindForm.Name And x.trs_control = Me.Name And x.trs_sprache = VERAG_PROG_ALLGEMEIN.cAllgemein._LAN And (x.trs_subControl IsNot DBNull.Value AndAlso x.trs_subControl = l.Text))
' MsgBox(If(lanTxt Is Nothing, "noth " & Me.Name, lanTxt.trs_text))
Me.Items.Add(New MyListItem(lanTxt, l.Value))
End If
Next
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
End Class

25
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyDatagridview.vb
View File

@@ -134,6 +134,7 @@ Public Class MyDatagridview
Public Sub LOAD(Optional showErr As Boolean = False, Optional ByRef errOccured As Boolean = False)
If SQL_STR <> "" Then
Me.DataSource = SQL.loadDgvBySql_Param(SQL_STR, CONN_ART, , SQL_PARAM, showErr, errOccured)
Me._TRANSLATE()
End If
End Sub
@@ -291,4 +292,28 @@ Public Class MyDatagridview
End Function
#End Region
Public Sub _TRANSLATE()
Try
If VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "" Then Exit Sub
If VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "DE" 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
For Each txt In lanTxtAll
If Me.Columns(txt.trs_subControl) IsNot Nothing Then
Me.Columns(txt.trs_subControl).HeaderText = txt.trs_text
End If
Next
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
End Class

3
VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
View File

@@ -75,6 +75,7 @@ Public Class cMitarbeiter
Property mit_MAVerzeichnis_Spitzname As Object = Nothing
Property mit_foto_DocId As Object = Nothing
Property mit_sprache As String = "DE"
Dim SQL As New SQL
@@ -179,6 +180,7 @@ Public Class cMitarbeiter
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_Spitzname", mit_MAVerzeichnis_Spitzname))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_foto_DocId", mit_foto_DocId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_sprache", mit_sprache))
Return list
End Function
@@ -364,6 +366,7 @@ Public Class cMitarbeiter
If Not dr.Item("mit_foto_DocId") Is DBNull.Value Then Me.mit_foto_DocId = dr.Item("mit_foto_DocId")
If Not dr.Item("mit_MAVerzeichnis_Spitzname") Is DBNull.Value Then Me.mit_MAVerzeichnis_Spitzname = dr.Item("mit_MAVerzeichnis_Spitzname")
If Not dr.Item("mit_MAVerzeichnis_Motto") Is DBNull.Value Then Me.mit_MAVerzeichnis_Motto = dr.Item("mit_MAVerzeichnis_Motto")
If Not dr.Item("mit_sprache") Is DBNull.Value Then Me.mit_sprache = dr.Item("mit_sprache")

2
VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
View File

@@ -102,6 +102,7 @@ Public Class cRechnungsausgang
Property KdAuftragsNr As Object = Nothing
Property Handling As Object = Nothing
Property VorschauID As Object = Nothing
Property Grenze As Object = Nothing
@@ -240,6 +241,7 @@ Public Class cRechnungsausgang
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNr", KdAuftragsNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Handling", Handling))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VorschauID", VorschauID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Grenze", Grenze))
Return list
End Function

45
VERAG_PROG_ALLGEMEIN/cAllgemein.vb
View File

@@ -43,7 +43,7 @@ Public Class cAllgemein
Public Shared BENUTZER_BERECHTIGUNGS_GRUPPEN As cBerechtigungenBenutzerGruppenZuordnung_List = Nothing
Public Shared PARAMS As cParameterList = Nothing
Public Shared TRANSLATE As cTranslate_LIST = Nothing
Public Shared _LAN As String = "" '"EN"
Public Shared _LAN As String = "DE" '"EN"
Public Shared SESSION As New cSession
@@ -57,6 +57,7 @@ Public Class cAllgemein
If MITARBEITER.LOAD(USRID) Then
USR_NNAME = MITARBEITER.mit_nname
USR_VNAME = MITARBEITER.mit_vname
_LAN = MITARBEITER.mit_sprache
USR_HrFrNAME = ""
Select Case MITARBEITER.mit_geschlecht
@@ -129,17 +130,57 @@ Public Class cAllgemein
'o... Form
's... SubContainer
'c... Control
' MsgBox(o.GetType.ToString & " - " & o.name)
Dim TextTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.FindAll(Function(x) x.trs_object = o.Name And x.trs_sprache = lan)
If TextTmp IsNot Nothing Then
For Each TXT As cTranslate In TextTmp
Dim found = o.Controls.Find(TXT.trs_control, True)
' MsgBox(TXT.trs_control)
If found IsNot Nothing AndAlso found.Count > 0 Then
' MsgBox("JA")
Dim obj As System.Windows.Forms.Control = found(0)
If obj IsNot Nothing Then
If (TypeOf obj Is System.Windows.Forms.Label) Then
DirectCast(obj, System.Windows.Forms.Label).Text = TXT.trs_text
End If
If (TypeOf obj Is System.Windows.Forms.Button) Or (TypeOf obj Is VERAG_PROG_ALLGEMEIN.FlatButton) Then
DirectCast(obj, System.Windows.Forms.Button).Text = TXT.trs_text
End If
If (TypeOf obj Is System.Windows.Forms.TabPage) Then
DirectCast(obj, System.Windows.Forms.TabPage).Text = TXT.trs_text
End If
If (TypeOf obj Is System.Windows.Forms.RadioButton) Or (TypeOf obj Is VERAG_PROG_ALLGEMEIN.MyRadioButton) Then
DirectCast(obj, System.Windows.Forms.RadioButton).Text = TXT.trs_text
End If
If (TypeOf obj Is System.Windows.Forms.GroupBox) Then
DirectCast(obj, System.Windows.Forms.GroupBox).Text = TXT.trs_text
End If
'If (TypeOf obj Is System.Windows.Forms.TabControl) Then -->in Tabpage geregelt
' For Each tb As System.Windows.Forms.TabPage In DirectCast(obj, System.Windows.Forms.TabControl).TabPages
' If tb.Name = TXT.trs_subControl Then
' tb.Text = TXT.trs_text
' End If
' Next
'End If
If (TypeOf obj Is System.Windows.Forms.ComboBox) Or (TypeOf obj Is VERAG_PROG_ALLGEMEIN.MyComboBox) Then
'DirectCast(obj, System.Windows.Forms.Label).Text = TXT.trs_text
End If
'If (TypeOf obj Is VERAG_PROG_ALLGEMEIN.MyComboBox) Then
' Dim cboItems = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.FindAll(Function(x) x.trs_object = o.Name And x.trs_sprache = lan And x.trs_control = TXT.trs_control)
' For Each item As VERAG_PROG_ALLGEMEIN.MyListItem In DirectCast(obj, VERAG_PROG_ALLGEMEIN.MyComboBox).Items
' For Each sitem As cTranslate In cboItems
' If item.Text = sitem.trs_subControl Then
' Dim index = DirectCast(obj, VERAG_PROG_ALLGEMEIN.MyComboBox).Items(0).Equals
' DirectCast(DirectCast(obj, VERAG_PROG_ALLGEMEIN.MyComboBox).Items(item), VERAG_PROG_ALLGEMEIN.MyListItem).Text = sitem.trs_text
' End If
' Next
' Next
'End If
End If
End If
Next