shu/BEA
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Updaet Version 1.6 - 20121221

Browse Source
This commit is contained in:
Stefan Hutter
2021-12-21 09:16:21 +01:00
parent 78bb82c44d
commit 216c1102cd
51 changed files with 24 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
_AllgMainObjekte/AllgMainObjekte.vb
View File

@@ -463,9 +463,9 @@ Public Class AllgMainObjekte
'Case 3 'PLATTFORM
Case 2 'PERSONAL
If Globals.VerantwTKBMA_Data.Rows.Count = 0 Then VerantwTKBMA_Data = Datenklasse.Get_Stammdaten("Personal", "Bezeichnung")
VerantwTKBMa = VerantwTKBMA_Data.Copy
'VerantwTKBMa = Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
'If Globals.VerantwTKBMA_Data.Rows.Count = 0 Then VerantwTKBMA_Data = Datenklasse.Get_Stammdaten("Personal", "Bezeichnung")
'VerantwTKBMa = VerantwTKBMA_Data.Copy
VerantwTKBMa = Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
Me.lblEmail.Visible = True
Me.txtMail.Visible = True
Me.tsbtncopy1.Visible = True
@@ -549,6 +549,7 @@ Public Class AllgMainObjekte
Cursor = Cursors.WaitCursor
Me.Beziehungen1.SuspendLayout()
'Me.Beziehungen1.Visible = False
Me.Beziehungen1.IsRefreshed = False
Me.Beziehungen1.ConnectionString = Me.ConnectionString
Me.Beziehungen1.Generic_Event_Handler = Globals.Generic_Event_Handler
Me.Beziehungen1.Mitarbeiternr = Me.Mitarbeiternr
@@ -558,6 +559,7 @@ Public Class AllgMainObjekte
Me.lblcid_a.Visible = False
If Datenklasse.Get_Selectiontype(Me.Type) = 1 Then Me.cbCID.Checked = Me.Beziehungen1.Refresh_Details(Position)
If Datenklasse.Get_Selectiontype(Me.Type) <> 1 Then
Me.Beziehungen1.IsRefreshed = False
Dim cd As Boolean = Me.Beziehungen1.Refresh_Details(Position)
If cd = True Then
If Me.cbCID.Checked = False Then lblcid_a.Visible = True
@@ -567,6 +569,7 @@ Public Class AllgMainObjekte
End If
'Me.Beziehungen1.Visible = True
Me.Beziehungen1.ResumeLayout()
Me.Beziehungen1.IsRefreshed = False
Cursor = Cursors.Default
End Sub