update Juni 2023
This commit is contained in:
Binary file not shown.
BIN
.vs/BEA/v16/.suo
BIN
.vs/BEA/v16/.suo
Binary file not shown.
BIN
.vs/BEA/v17/.suo
BIN
.vs/BEA/v17/.suo
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -1,87 +1,89 @@
|
|||||||
Public Class frmNeueBeziehung
|
Public Class frmNeueBeziehung
|
||||||
|
|
||||||
Dim dc As New _DataClass.DataClass
|
Dim dc As New _DataClass.DataClass
|
||||||
Dim sec As New Utils.MySecurity
|
Dim sec As New Utils.MySecurity
|
||||||
Dim m_temporaer As Boolean
|
Dim m_temporaer As Boolean
|
||||||
Dim Datenklasse As New _DataClass.DataClass
|
Dim Datenklasse As New _DataClass.DataClass
|
||||||
Dim kontaktfb As New DataTable
|
Dim kontaktfb As New DataTable
|
||||||
Dim Kontaktsd As New DataTable
|
Dim Kontaktsd As New DataTable
|
||||||
Property Temporaer As Boolean
|
Property Temporaer As Boolean
|
||||||
Get
|
Get
|
||||||
Return m_temporaer
|
Return m_temporaer
|
||||||
End Get
|
End Get
|
||||||
Set(value As Boolean)
|
Set(value As Boolean)
|
||||||
m_temporaer = value
|
m_temporaer = value
|
||||||
End Set
|
End Set
|
||||||
End Property
|
End Property
|
||||||
|
|
||||||
Private Sub frmNeueBeziehung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
Private Sub frmNeueBeziehung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||||
Me.Panel2.Height = 1
|
Me.Panel2.Height = 1
|
||||||
sec.Set_Form_Security(Me)
|
sec.Set_Form_Security(Me)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Sub New()
|
Sub New()
|
||||||
|
|
||||||
' Dieser Aufruf ist für den Designer erforderlich.
|
' Dieser Aufruf ist für den Designer erforderlich.
|
||||||
InitializeComponent()
|
InitializeComponent()
|
||||||
|
|
||||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||||
Dim dt As New DataTable
|
Dim dt As New DataTable
|
||||||
dc.ConnectionString = Globals.sConnectionString
|
dc.ConnectionString = Globals.sConnectionString
|
||||||
dc.Mitarbeiternr = Globals.Mitarbeiternr
|
dc.Mitarbeiternr = Globals.Mitarbeiternr
|
||||||
dt = dc.Get_Stammdaten("Beziehungstyp", "Bezeichnung")
|
dt = dc.Get_Stammdaten("Beziehungstyp", "Bezeichnung")
|
||||||
Me.cbbeziehungstyp.DataSource = dt
|
Me.cbbeziehungstyp.DataSource = dt
|
||||||
Me.cbbeziehungstyp.DisplayMember = "bezeichnung"
|
Me.cbbeziehungstyp.DisplayMember = "bezeichnung"
|
||||||
Me.cbbeziehungstyp.ValueMember = "KeyValue"
|
Me.cbbeziehungstyp.ValueMember = "KeyValue"
|
||||||
For Each r As DataRow In dt.Rows
|
For Each r As DataRow In dt.Rows
|
||||||
If r.Item("Bezeichnung") = "Zugehörig" Then Me.cbbeziehungstyp.SelectedValue = r.Item("keyvalue")
|
If r.Item("Bezeichnung") = "Zugehörig" Then Me.cbbeziehungstyp.SelectedValue = r.Item("keyvalue")
|
||||||
Next
|
Next
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
|
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
|
||||||
Me.DialogResult = Windows.Forms.DialogResult.OK
|
Me.DialogResult = Windows.Forms.DialogResult.OK
|
||||||
Me.Close()
|
Me.Close()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
|
Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
|
||||||
Me.DialogResult = Windows.Forms.DialogResult.Abort
|
Me.DialogResult = Windows.Forms.DialogResult.Abort
|
||||||
Me.Close()
|
Me.Close()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub cbTemporaer_CheckedChanged(sender As Object, e As EventArgs) Handles cbTemporaer.CheckedChanged
|
Private Sub cbTemporaer_CheckedChanged(sender As Object, e As EventArgs) Handles cbTemporaer.CheckedChanged
|
||||||
If Me.cbTemporaer.Checked = True Then
|
If Me.cbTemporaer.Checked = True Then
|
||||||
Cursor = Cursors.WaitCursor
|
Cursor = Cursors.WaitCursor
|
||||||
Me.Panel2.Height = 227
|
Me.Panel2.Height = 227
|
||||||
Me.Height = Me.Height + 227
|
Me.Height = Me.Height + 227
|
||||||
Me.cbboxKontaktFB.BeginUpdate()
|
Me.cbboxKontaktFB.BeginUpdate()
|
||||||
Me.cbboxKontaktSD.BeginUpdate()
|
Me.cbboxKontaktSD.BeginUpdate()
|
||||||
'If VerantwTKBMA_Data.Rows.Count = 0 Then Datenklasse.Get_Stammdaten("Personal", "Bezeichnung")
|
'If VerantwTKBMA_Data.Rows.Count = 0 Then Datenklasse.Get_Stammdaten("Personal", "Bezeichnung")
|
||||||
'kontaktfb = VerantwTKBMA_Data
|
'kontaktfb = VerantwTKBMA_Data
|
||||||
kontaktfb = Datenklasse.Get_Stammdaten("Personal", "Bezeichnung")
|
kontaktfb = Datenklasse.Get_Stammdaten("Personal", "Bezeichnung")
|
||||||
'Me.cbboxKontaktFB.DataSource = Globals.VerantwTKBMA_Data
|
'Me.cbboxKontaktFB.DataSource = Globals.VerantwTKBMA_Data
|
||||||
|
|
||||||
Me.cbboxKontaktFB.DataSource = kontaktfb
|
Me.cbboxKontaktFB.DataSource = kontaktfb
|
||||||
Me.cbboxKontaktFB.DisplayMember = "Bezeichnung"
|
Me.cbboxKontaktFB.DisplayMember = "Bezeichnung"
|
||||||
Me.cbboxKontaktFB.ValueMember = "Keyvalue"
|
Me.cbboxKontaktFB.ValueMember = "Keyvalue"
|
||||||
If KontaktSD_Data.Rows.Count = 0 Then KontaktSD_Data = Datenklasse.Get_Stammdaten("Servicedesk", "Bezeichnung")
|
If KontaktSD_Data.Rows.Count = 0 Then KontaktSD_Data = Datenklasse.Get_Stammdaten("Servicedesk", "Bezeichnung")
|
||||||
'Kontaktsd = Datenklasse.Get_Stammdaten("Servicedesk", "Bezeichnung")
|
'Kontaktsd = Datenklasse.Get_Stammdaten("Servicedesk", "Bezeichnung")
|
||||||
Me.cbboxKontaktSD.DataSource = Kontaktsd_data
|
Me.cbboxKontaktSD.DataSource = Kontaktsd_data
|
||||||
Me.cbboxKontaktSD.DisplayMember = "Bezeichnung"
|
Me.cbboxKontaktSD.DisplayMember = "Bezeichnung"
|
||||||
Me.cbboxKontaktSD.ValueMember = "KeyValue"
|
Me.cbboxKontaktSD.ValueMember = "KeyValue"
|
||||||
Cursor = Cursors.Default
|
Cursor = Cursors.Default
|
||||||
Else
|
Me.cbboxKontaktSD.EndUpdate()
|
||||||
Me.Panel2.Height = 1
|
Me.cbboxKontaktFB.EndUpdate()
|
||||||
Me.Height = Me.Height - 227
|
Else
|
||||||
Me.cbboxKontaktSD.EndUpdate()
|
Me.Panel2.Height = 1
|
||||||
Me.cbboxKontaktFB.EndUpdate()
|
Me.Height = Me.Height - 227
|
||||||
End If
|
Me.cbboxKontaktSD.EndUpdate()
|
||||||
|
Me.cbboxKontaktFB.EndUpdate()
|
||||||
End Sub
|
End If
|
||||||
|
|
||||||
|
End Sub
|
||||||
Private Sub SecurityObjekte_Click(sender As Object, e As EventArgs) Handles SecurityObjekte.Click
|
|
||||||
If InputBox("Passwort:") <> "341211" Then Exit Sub
|
|
||||||
sec.List_Form_Controls(Me)
|
Private Sub SecurityObjekte_Click(sender As Object, e As EventArgs) Handles SecurityObjekte.Click
|
||||||
sec.Print_Screen(Me)
|
If InputBox("Passwort:") <> "341211" Then Exit Sub
|
||||||
End Sub
|
sec.List_Form_Controls(Me)
|
||||||
|
sec.Print_Screen(Me)
|
||||||
|
End Sub
|
||||||
End Class
|
End Class
|
||||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -1,421 +1,421 @@
|
|||||||
Imports System.ComponentModel
|
Imports System.ComponentModel
|
||||||
Imports System.Data.SqlClient
|
Imports System.Data.SqlClient
|
||||||
Imports System.Data.SqlTypes
|
Imports System.Data.SqlTypes
|
||||||
Imports C1.Win.C1TrueDBGrid
|
Imports C1.Win.C1TrueDBGrid
|
||||||
Public Class Beziehungen
|
Public Class Beziehungen
|
||||||
|
|
||||||
#Region "Properties"
|
#Region "Properties"
|
||||||
Dim m_IsRefreshed As Boolean = False
|
Dim m_IsRefreshed As Boolean = False
|
||||||
Property IsRefreshed As Boolean
|
Property IsRefreshed As Boolean
|
||||||
Get
|
Get
|
||||||
Return m_IsRefreshed
|
Return m_IsRefreshed
|
||||||
End Get
|
End Get
|
||||||
Set(value As Boolean)
|
Set(value As Boolean)
|
||||||
m_IsRefreshed = value
|
m_IsRefreshed = value
|
||||||
End Set
|
End Set
|
||||||
End Property
|
End Property
|
||||||
|
|
||||||
Dim m_ConnectionString As String
|
Dim m_ConnectionString As String
|
||||||
Dim FilterDoubleClicked As Boolean = True
|
Dim FilterDoubleClicked As Boolean = True
|
||||||
<DefaultValue(""), Description("ConnectionString"), Category("Options")> _
|
<DefaultValue(""), Description("ConnectionString"), Category("Options")>
|
||||||
Public Property ConnectionString() As String
|
Public Property ConnectionString() As String
|
||||||
Get
|
Get
|
||||||
ConnectionString = m_ConnectionString
|
ConnectionString = m_ConnectionString
|
||||||
End Get
|
End Get
|
||||||
Set(ByVal Value As String)
|
Set(ByVal Value As String)
|
||||||
If m_ConnectionString <> Value Then
|
If m_ConnectionString <> Value Then
|
||||||
m_ConnectionString = Value
|
m_ConnectionString = Value
|
||||||
Globals.conn.sConnectionString = m_ConnectionString
|
Globals.conn.sConnectionString = m_ConnectionString
|
||||||
Datenklasse.ConnectionString = m_ConnectionString
|
Datenklasse.ConnectionString = m_ConnectionString
|
||||||
init_comp()
|
Init_Comp()
|
||||||
End If
|
End If
|
||||||
End Set
|
End Set
|
||||||
End Property
|
End Property
|
||||||
|
|
||||||
|
|
||||||
Dim m_Mitarbeiternr As Integer
|
Dim m_Mitarbeiternr As Integer
|
||||||
<DefaultValue(1), Description("Mitarbeiternr"), Category("Options")> _
|
<DefaultValue(1), Description("Mitarbeiternr"), Category("Options")>
|
||||||
Public Property Mitarbeiternr As Integer
|
Public Property Mitarbeiternr As Integer
|
||||||
Get
|
Get
|
||||||
Mitarbeiternr = m_Mitarbeiternr
|
Mitarbeiternr = m_Mitarbeiternr
|
||||||
End Get
|
End Get
|
||||||
Set(value As Integer)
|
Set(value As Integer)
|
||||||
If m_Mitarbeiternr <> value Then
|
If m_Mitarbeiternr <> value Then
|
||||||
m_Mitarbeiternr = value
|
m_Mitarbeiternr = value
|
||||||
Globals.Mitarbeiternr = m_Mitarbeiternr
|
Globals.Mitarbeiternr = m_Mitarbeiternr
|
||||||
Datenklasse.Mitarbeiternr = m_Mitarbeiternr
|
Datenklasse.Mitarbeiternr = m_Mitarbeiternr
|
||||||
End If
|
End If
|
||||||
End Set
|
End Set
|
||||||
End Property
|
End Property
|
||||||
|
|
||||||
Dim m_TempFilePath As String
|
Dim m_TempFilePath As String
|
||||||
<DefaultValue("h:\tssettings\bea"), Description("Temp Filepath"), Category("Options")> _
|
<DefaultValue("h:\tssettings\bea"), Description("Temp Filepath"), Category("Options")>
|
||||||
Public Property TempFilePath As String
|
Public Property TempFilePath As String
|
||||||
Get
|
Get
|
||||||
TempFilePath = m_TempFilePath
|
TempFilePath = m_TempFilePath
|
||||||
End Get
|
End Get
|
||||||
Set(value As String)
|
Set(value As String)
|
||||||
If m_TempFilePath <> value Then
|
If m_TempFilePath <> value Then
|
||||||
m_TempFilePath = value
|
m_TempFilePath = value
|
||||||
Globals.TmpFilepath = m_TempFilePath
|
Globals.TmpFilepath = m_TempFilePath
|
||||||
End If
|
End If
|
||||||
End Set
|
End Set
|
||||||
End Property
|
End Property
|
||||||
|
|
||||||
Dim m_keyvalue As Integer
|
Dim m_keyvalue As Integer
|
||||||
<DefaultValue(1), Description("KeyValue"), Category("Options")> _
|
<DefaultValue(1), Description("KeyValue"), Category("Options")>
|
||||||
Public Property KeyValue As Integer
|
Public Property KeyValue As Integer
|
||||||
Get
|
Get
|
||||||
KeyValue = m_keyvalue
|
KeyValue = m_keyvalue
|
||||||
End Get
|
End Get
|
||||||
Set(value As Integer)
|
Set(value As Integer)
|
||||||
If m_keyvalue <> value Then
|
If m_keyvalue <> value Then
|
||||||
m_keyvalue = value
|
m_keyvalue = value
|
||||||
refresh_details()
|
Refresh_Details()
|
||||||
End If
|
End If
|
||||||
End Set
|
End Set
|
||||||
End Property
|
End Property
|
||||||
|
|
||||||
Dim m_Type As String
|
Dim m_Type As String
|
||||||
<DefaultValue(""), Description("KeyValue"), Category("Options")> _
|
<DefaultValue(""), Description("KeyValue"), Category("Options")>
|
||||||
Public Property Type As String
|
Public Property Type As String
|
||||||
Get
|
Get
|
||||||
Type = m_Type
|
Type = m_Type
|
||||||
End Get
|
End Get
|
||||||
Set(value As String)
|
Set(value As String)
|
||||||
If m_Type <> value Or value = "Personal" Then
|
If m_Type <> value Or value = "Personal" Then
|
||||||
m_Type = value
|
m_Type = value
|
||||||
Refresh_Details()
|
Refresh_Details()
|
||||||
End If
|
End If
|
||||||
End Set
|
End Set
|
||||||
End Property
|
End Property
|
||||||
|
|
||||||
Dim m_Generic_Event_Handler As _Generic_Event_Handler.Generic_Event_Handler
|
Dim m_Generic_Event_Handler As _Generic_Event_Handler.Generic_Event_Handler
|
||||||
<DefaultValue(""), Description("Type"), Category("Options")> _
|
<DefaultValue(""), Description("Type"), Category("Options")>
|
||||||
Public Property Generic_Event_Handler
|
Public Property Generic_Event_Handler
|
||||||
Get
|
Get
|
||||||
Generic_Event_Handler = m_Generic_Event_Handler
|
Generic_Event_Handler = m_Generic_Event_Handler
|
||||||
End Get
|
End Get
|
||||||
Set(value)
|
Set(value)
|
||||||
m_Generic_Event_Handler = value
|
m_Generic_Event_Handler = value
|
||||||
Globals.Generic_Event_Handler = m_Generic_Event_Handler
|
Globals.Generic_Event_Handler = m_Generic_Event_Handler
|
||||||
evh = Globals.Generic_Event_Handler
|
evh = Globals.Generic_Event_Handler
|
||||||
End Set
|
End Set
|
||||||
End Property
|
End Property
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "Deklarationen"
|
#Region "Deklarationen"
|
||||||
Dim Datenklasse As New _DataClass.DataClass
|
Dim Datenklasse As New _DataClass.DataClass
|
||||||
Event C1Beziehungen_DoubleClicked(ByVal keyvalue As Integer, ByVal Typ As String, ByVal NewWindows As Boolean)
|
Event C1Beziehungen_DoubleClicked(ByVal keyvalue As Integer, ByVal Typ As String, ByVal NewWindows As Boolean)
|
||||||
Event Delete_Entry(ByVal Keyvalue As Integer, ByVal typ As String)
|
Event Delete_Entry(ByVal Keyvalue As Integer, ByVal typ As String)
|
||||||
Event Delete_Entries(ByVal grid As C1TrueDBGrid)
|
Event Delete_Entries(ByVal grid As C1TrueDBGrid)
|
||||||
Event Edit_Entry(ByVal Keyvalue As Integer, ByVal typ As String)
|
Event Edit_Entry(ByVal Keyvalue As Integer, ByVal typ As String)
|
||||||
Event Update_Entries(ByVal Grid As C1TrueDBGrid, ByVal destkey As Integer, ByVal desttype As Integer)
|
Event Update_Entries(ByVal Grid As C1TrueDBGrid, ByVal destkey As Integer, ByVal desttype As Integer)
|
||||||
Dim SpaltenTitel As New Utils.Tabellenspalte
|
Dim SpaltenTitel As New Utils.Tabellenspalte
|
||||||
Dim sec As New Utils.MySecurity
|
Dim sec As New Utils.MySecurity
|
||||||
Dim filtercollection As New Collection
|
Dim filtercollection As New Collection
|
||||||
Dim WithEvents evh As _Generic_Event_Handler.Generic_Event_Handler = Globals.Generic_Event_Handler
|
Dim WithEvents evh As _Generic_Event_Handler.Generic_Event_Handler = Globals.Generic_Event_Handler
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
Sub New()
|
Sub New()
|
||||||
' Dieser Aufruf ist für den Designer erforderlich.
|
' Dieser Aufruf ist für den Designer erforderlich.
|
||||||
InitializeComponent()
|
InitializeComponent()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Sub Init_Comp()
|
Sub Init_Comp()
|
||||||
|
|
||||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||||
Globals.conn.sConnectionString = Me.ConnectionString
|
Globals.conn.sConnectionString = Me.ConnectionString
|
||||||
Globals.sConnectionString = Me.ConnectionString
|
Globals.sConnectionString = Me.ConnectionString
|
||||||
Globals.Mitarbeiternr = Mitarbeiternr
|
Globals.Mitarbeiternr = Mitarbeiternr
|
||||||
Globals.TmpFilepath = TempFilePath
|
Globals.TmpFilepath = TempFilePath
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
Public Function Refresh_Details(Optional Position As Integer = 0) As Boolean
|
Public Function Refresh_Details(Optional Position As Integer = 0) As Boolean
|
||||||
If Me.IsRefreshed Then Exit Function
|
'If Me.IsRefreshed Then Exit Function
|
||||||
Dim cid As Boolean = False
|
Dim cid As Boolean = False
|
||||||
Try
|
Try
|
||||||
Me.C1Beziehungen.Enabled = False
|
Me.C1Beziehungen.Enabled = False
|
||||||
Dim i As Integer
|
Dim i As Integer
|
||||||
filtercollection.Clear()
|
filtercollection.Clear()
|
||||||
For i = 0 To Me.C1Beziehungen.Columns.Count - 1
|
For i = 0 To Me.C1Beziehungen.Columns.Count - 1
|
||||||
If Me.C1Beziehungen.Columns(i).FilterText.ToString <> "" Then
|
If Me.C1Beziehungen.Columns(i).FilterText.ToString <> "" Then
|
||||||
Dim fc As New Filterclass
|
Dim fc As New Filterclass
|
||||||
Try
|
Try
|
||||||
fc.add(Me.C1Beziehungen.Columns(i).DataField.ToString, Me.C1Beziehungen.Columns(i).FilterText.ToString)
|
fc.add(Me.C1Beziehungen.Columns(i).DataField.ToString, Me.C1Beziehungen.Columns(i).FilterText.ToString)
|
||||||
filtercollection.Add(New Filterclass(Me.C1Beziehungen.Columns(i).DataField.ToString, Me.C1Beziehungen.Columns(i).FilterText.ToString))
|
filtercollection.Add(New Filterclass(Me.C1Beziehungen.Columns(i).DataField.ToString, Me.C1Beziehungen.Columns(i).FilterText.ToString))
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
End Try
|
End Try
|
||||||
End If
|
End If
|
||||||
Next
|
Next
|
||||||
|
|
||||||
Dim dt As New DataTable
|
Dim dt As New DataTable
|
||||||
Datenklasse.ConnectionString = Me.ConnectionString
|
Datenklasse.ConnectionString = Me.ConnectionString
|
||||||
|
|
||||||
dt = Datenklasse.Get_Beziehungen(Me.Type, Me.KeyValue)
|
dt = Datenklasse.Get_Beziehungen(Me.Type, Me.KeyValue)
|
||||||
Me.C1Beziehungen.DataSource = Nothing
|
Me.C1Beziehungen.DataSource = Nothing
|
||||||
Me.C1Beziehungen.DataSource = dt
|
Me.C1Beziehungen.DataSource = dt
|
||||||
Me.C1Beziehungen.DataMember = dt.TableName
|
Me.C1Beziehungen.DataMember = dt.TableName
|
||||||
Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Beziehungen, "Beziehungen", dt)
|
Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Beziehungen, "Beziehungen", dt)
|
||||||
If Position <> 0 Then
|
If Position <> 0 Then
|
||||||
For i = 0 To Me.C1Beziehungen.Splits(0).Rows.Count - 1
|
For i = 0 To Me.C1Beziehungen.Splits(0).Rows.Count - 1
|
||||||
Me.C1Beziehungen.Bookmark = i
|
Me.C1Beziehungen.Bookmark = i
|
||||||
Try
|
Try
|
||||||
If Me.C1Beziehungen.Columns("ID").CellText(i) = Position Then Exit For
|
If Me.C1Beziehungen.Columns("ID").CellText(i) = Position Then Exit For
|
||||||
Catch
|
Catch
|
||||||
End Try
|
End Try
|
||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
|
|
||||||
For i = 1 To Me.filtercollection.Count
|
For i = 1 To Me.filtercollection.Count
|
||||||
Dim fc As New Filterclass
|
Dim fc As New Filterclass
|
||||||
fc = Me.filtercollection.Item(i)
|
fc = Me.filtercollection.Item(i)
|
||||||
Dim ii As Integer
|
Dim ii As Integer
|
||||||
For ii = 0 To Me.C1Beziehungen.Columns.Count - 1
|
For ii = 0 To Me.C1Beziehungen.Columns.Count - 1
|
||||||
If Me.C1Beziehungen.Columns(ii).DataField.ToString = fc.Columname Then
|
If Me.C1Beziehungen.Columns(ii).DataField.ToString = fc.Columname Then
|
||||||
Me.C1Beziehungen.Columns(ii).FilterText = fc.FilterValue
|
Me.C1Beziehungen.Columns(ii).FilterText = fc.FilterValue
|
||||||
Exit For
|
Exit For
|
||||||
End If
|
End If
|
||||||
Next
|
Next
|
||||||
Next
|
Next
|
||||||
|
|
||||||
Dim hascid As Boolean = False
|
Dim hascid As Boolean = False
|
||||||
For Each c As DataColumn In dt.Columns
|
For Each c As DataColumn In dt.Columns
|
||||||
If c.ColumnName = "CID" Then hascid = True
|
If c.ColumnName = "CID" Then hascid = True
|
||||||
Next
|
Next
|
||||||
If hascid = True Then
|
If hascid = True Then
|
||||||
For Each r As DataRow In dt.Rows
|
For Each r As DataRow In dt.Rows
|
||||||
Try
|
Try
|
||||||
If r.Item("CID") = 1 Then cid = True
|
If r.Item("CID") = 1 Then cid = True
|
||||||
Catch
|
Catch
|
||||||
End Try
|
End Try
|
||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Catch
|
Catch
|
||||||
End Try
|
End Try
|
||||||
Try
|
Try
|
||||||
sec.Set_Form_Security(Me)
|
sec.Set_Form_Security(Me)
|
||||||
Catch
|
Catch
|
||||||
End Try
|
End Try
|
||||||
Me.C1Beziehungen.Enabled = True
|
Me.C1Beziehungen.Enabled = True
|
||||||
Me.IsRefreshed = True
|
Me.IsRefreshed = True
|
||||||
Return cid
|
Return cid
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
Private Sub C1Beziehungen_DoubleClick(sender As Object, e As EventArgs) Handles C1Beziehungen.DoubleClick
|
Private Sub C1Beziehungen_DoubleClick(sender As Object, e As EventArgs) Handles C1Beziehungen.DoubleClick
|
||||||
If FilterDoubleClicked Then
|
If FilterDoubleClicked Then
|
||||||
FilterDoubleClicked = False
|
FilterDoubleClicked = False
|
||||||
Exit Sub
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
FilterDoubleClicked = False
|
FilterDoubleClicked = False
|
||||||
|
|
||||||
Try
|
Try
|
||||||
RaiseEvent C1Beziehungen_DoubleClicked(Me.C1Beziehungen.Columns("Mkey").Value, Me.C1Beziehungen.Columns("Typ").Value, False)
|
RaiseEvent C1Beziehungen_DoubleClicked(Me.C1Beziehungen.Columns("Mkey").Value, Me.C1Beziehungen.Columns("Typ").Value, False)
|
||||||
Catch
|
Catch
|
||||||
End Try
|
End Try
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub InEinemNeuenFensterÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InEinemNeuenFensterÖffnenToolStripMenuItem.Click
|
Private Sub InEinemNeuenFensterÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InEinemNeuenFensterÖffnenToolStripMenuItem.Click
|
||||||
Try
|
Try
|
||||||
RaiseEvent C1Beziehungen_DoubleClicked(Me.C1Beziehungen.Columns("Mkey").Value, Me.C1Beziehungen.Columns("Typ").Value, True)
|
RaiseEvent C1Beziehungen_DoubleClicked(Me.C1Beziehungen.Columns("Mkey").Value, Me.C1Beziehungen.Columns("Typ").Value, True)
|
||||||
Catch
|
Catch
|
||||||
End Try
|
End Try
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Dim _ptStartDrag As Point
|
Dim _ptStartDrag As Point
|
||||||
Dim _dragRow As Long
|
Dim _dragRow As Long
|
||||||
|
|
||||||
|
|
||||||
Private Sub EintragInaktivierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragInaktivierenToolStripMenuItem.Click
|
Private Sub EintragInaktivierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragInaktivierenToolStripMenuItem.Click
|
||||||
Try
|
Try
|
||||||
If C1Beziehungen.SelectedRows.Count < 1 Then
|
If C1Beziehungen.SelectedRows.Count < 1 Then
|
||||||
RaiseEvent Delete_Entry(Me.C1Beziehungen.Columns("ID").Value, Me.C1Beziehungen.Columns("Typ").Value)
|
RaiseEvent Delete_Entry(Me.C1Beziehungen.Columns("ID").Value, Me.C1Beziehungen.Columns("Typ").Value)
|
||||||
Else
|
Else
|
||||||
RaiseEvent Delete_Entries(Me.C1Beziehungen)
|
RaiseEvent Delete_Entries(Me.C1Beziehungen)
|
||||||
End If
|
End If
|
||||||
Catch
|
Catch
|
||||||
End Try
|
End Try
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub EintragBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragBearbeitenToolStripMenuItem.Click
|
Private Sub EintragBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragBearbeitenToolStripMenuItem.Click
|
||||||
Try
|
Try
|
||||||
RaiseEvent Edit_Entry(Me.C1Beziehungen.Columns("ID").Value, Me.C1Beziehungen.Columns("Typ").Value)
|
RaiseEvent Edit_Entry(Me.C1Beziehungen.Columns("ID").Value, Me.C1Beziehungen.Columns("Typ").Value)
|
||||||
Catch
|
Catch
|
||||||
End Try
|
End Try
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub C1Beziehungen_MouseMove(sender As Object, e As MouseEventArgs) Handles C1Beziehungen.MouseMove
|
Private Sub C1Beziehungen_MouseMove(sender As Object, e As MouseEventArgs) Handles C1Beziehungen.MouseMove
|
||||||
If Not altpressed Then Exit Sub
|
If Not altpressed Then Exit Sub
|
||||||
Dim activate As Boolean = False
|
Dim activate As Boolean = False
|
||||||
If Me.C1Beziehungen.SelectedRows.Count > 0 Then activate = True
|
If Me.C1Beziehungen.SelectedRows.Count > 0 Then activate = True
|
||||||
If activate Then
|
If activate Then
|
||||||
Me.C1Beziehungen.DoDragDrop(Me.C1Beziehungen, DragDropEffects.Move)
|
Me.C1Beziehungen.DoDragDrop(Me.C1Beziehungen, DragDropEffects.Move)
|
||||||
|
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub C1Beziehungen_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Beziehungen.MouseDown
|
Private Sub C1Beziehungen_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Beziehungen.MouseDown
|
||||||
Me.C1Beziehungen.Bookmark = Me.C1Beziehungen.RowContaining(e.Y)
|
Me.C1Beziehungen.Bookmark = Me.C1Beziehungen.RowContaining(e.Y)
|
||||||
altpressed = False
|
altpressed = False
|
||||||
'Exit Sub
|
'Exit Sub
|
||||||
Dim row, col As Integer
|
Dim row, col As Integer
|
||||||
Me._ptStartDrag = Point.Empty
|
Me._ptStartDrag = Point.Empty
|
||||||
Me._dragRow = -1
|
Me._dragRow = -1
|
||||||
If Me.C1Beziehungen.CellContaining(e.X, e.Y, row, col) Then
|
If Me.C1Beziehungen.CellContaining(e.X, e.Y, row, col) Then
|
||||||
' Save the starting point of the drag operation.
|
' Save the starting point of the drag operation.
|
||||||
Me._ptStartDrag = New Point(e.X, e.Y)
|
Me._ptStartDrag = New Point(e.X, e.Y)
|
||||||
Me._dragRow = row
|
Me._dragRow = row
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Dim altpressed As Boolean = False
|
Dim altpressed As Boolean = False
|
||||||
Private Sub C1Beziehungen_KeyDown(sender As Object, e As KeyEventArgs) Handles C1Beziehungen.KeyDown
|
Private Sub C1Beziehungen_KeyDown(sender As Object, e As KeyEventArgs) Handles C1Beziehungen.KeyDown
|
||||||
'If e.KeyCode = Keys.M Then altpressed = True
|
'If e.KeyCode = Keys.M Then altpressed = True
|
||||||
'If Me.EintragBearbeitenToolStripMenuItem.Enabled = False Then
|
'If Me.EintragBearbeitenToolStripMenuItem.Enabled = False Then
|
||||||
' altpressed = False
|
' altpressed = False
|
||||||
'End If
|
'End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub C1Beziehungen_KeyUp(sender As Object, e As KeyEventArgs) Handles C1Beziehungen.KeyUp
|
Private Sub C1Beziehungen_KeyUp(sender As Object, e As KeyEventArgs) Handles C1Beziehungen.KeyUp
|
||||||
'If e.KeyCode = Keys.M Then altpressed = False
|
'If e.KeyCode = Keys.M Then altpressed = False
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Public Function Update_Droped_Beziehungen(ByVal DestKey As Integer, DestType As Integer)
|
Public Function Update_Droped_Beziehungen(ByVal DestKey As Integer, DestType As Integer)
|
||||||
RaiseEvent Update_Entries(Me.C1Beziehungen, DestKey, DestType)
|
RaiseEvent Update_Entries(Me.C1Beziehungen, DestKey, DestType)
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
Private Sub SecurityObjekteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SecurityObjekteToolStripMenuItem.Click
|
Private Sub SecurityObjekteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SecurityObjekteToolStripMenuItem.Click
|
||||||
If InputBox("Passwort:") <> "341211" Then Exit Sub
|
If InputBox("Passwort:") <> "341211" Then Exit Sub
|
||||||
sec.List_Form_Controls(Me)
|
sec.List_Form_Controls(Me)
|
||||||
sec.Print_Screen(Me)
|
sec.Print_Screen(Me)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub C1Beziehungen_FetchRowStyle(sender As Object, e As FetchRowStyleEventArgs) Handles C1Beziehungen.FetchRowStyle
|
Private Sub C1Beziehungen_FetchRowStyle(sender As Object, e As FetchRowStyleEventArgs) Handles C1Beziehungen.FetchRowStyle
|
||||||
Try
|
Try
|
||||||
|
|
||||||
|
|
||||||
If Me.C1Beziehungen.Columns("Temp").CellValue(e.Row) = 1 Then
|
If Me.C1Beziehungen.Columns("Temp").CellValue(e.Row) = 1 Then
|
||||||
e.CellStyle.ForeColor = Color.Red
|
e.CellStyle.ForeColor = Color.Red
|
||||||
Dim dt As New DataTable
|
Dim dt As New DataTable
|
||||||
dt = Datenklasse.Get_Temporaer_Berechtigung(Me.C1Beziehungen.Columns("ID").CellValue(e.Row))
|
dt = Datenklasse.Get_Temporaer_Berechtigung(Me.C1Beziehungen.Columns("ID").CellValue(e.Row))
|
||||||
Dim d As DateTime = dt.Rows(0).Item("Termin")
|
Dim d As DateTime = dt.Rows(0).Item("Termin")
|
||||||
Dim tage As Integer = DateDiff(DateInterval.Day, d, Now) * -1
|
Dim tage As Integer = DateDiff(DateInterval.Day, d, Now) * -1
|
||||||
If tage > My.Settings.Tage Then
|
If tage > My.Settings.Tage Then
|
||||||
If My.Settings.Foreground_gueltig <> "" Then e.CellStyle.ForeColor = ColorTranslator.FromHtml(My.Settings.Foreground_gueltig)
|
If My.Settings.Foreground_gueltig <> "" Then e.CellStyle.ForeColor = ColorTranslator.FromHtml(My.Settings.Foreground_gueltig)
|
||||||
End If
|
End If
|
||||||
If tage >= 0 And tage <= My.Settings.Tage Then
|
If tage >= 0 And tage <= My.Settings.Tage Then
|
||||||
If My.Settings.Foreground_vor_ablauf <> "" Then e.CellStyle.ForeColor = ColorTranslator.FromHtml(My.Settings.Foreground_vor_ablauf)
|
If My.Settings.Foreground_vor_ablauf <> "" Then e.CellStyle.ForeColor = ColorTranslator.FromHtml(My.Settings.Foreground_vor_ablauf)
|
||||||
If My.Settings.Background_vor_ablauf <> "" Then e.CellStyle.BackColor = ColorTranslator.FromHtml(My.Settings.Background_vor_ablauf)
|
If My.Settings.Background_vor_ablauf <> "" Then e.CellStyle.BackColor = ColorTranslator.FromHtml(My.Settings.Background_vor_ablauf)
|
||||||
End If
|
End If
|
||||||
If tage < 0 Then
|
If tage < 0 Then
|
||||||
If My.Settings.Foreground_abgelaufen <> "" Then e.CellStyle.ForeColor = ColorTranslator.FromHtml(My.Settings.Foreground_abgelaufen)
|
If My.Settings.Foreground_abgelaufen <> "" Then e.CellStyle.ForeColor = ColorTranslator.FromHtml(My.Settings.Foreground_abgelaufen)
|
||||||
If My.Settings.Background_abgelaufen <> "" Then e.CellStyle.BackColor = ColorTranslator.FromHtml(My.Settings.Background_abgelaufen)
|
If My.Settings.Background_abgelaufen <> "" Then e.CellStyle.BackColor = ColorTranslator.FromHtml(My.Settings.Background_abgelaufen)
|
||||||
End If
|
End If
|
||||||
If d < Now Then
|
If d < Now Then
|
||||||
If My.Settings.Foreground_abgelaufen <> "" Then e.CellStyle.ForeColor = ColorTranslator.FromHtml(My.Settings.Foreground_abgelaufen)
|
If My.Settings.Foreground_abgelaufen <> "" Then e.CellStyle.ForeColor = ColorTranslator.FromHtml(My.Settings.Foreground_abgelaufen)
|
||||||
If My.Settings.Background_abgelaufen <> "" Then e.CellStyle.BackColor = ColorTranslator.FromHtml(My.Settings.Background_abgelaufen)
|
If My.Settings.Background_abgelaufen <> "" Then e.CellStyle.BackColor = ColorTranslator.FromHtml(My.Settings.Background_abgelaufen)
|
||||||
|
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
|
|
||||||
End Try
|
End Try
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub ctxMenuBeziehungen_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ctxMenuBeziehungen.Opening
|
Private Sub ctxMenuBeziehungen_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ctxMenuBeziehungen.Opening
|
||||||
Try
|
Try
|
||||||
If Me.C1Beziehungen.Columns("Temp").Value = 1 Then
|
If Me.C1Beziehungen.Columns("Temp").Value = 1 Then
|
||||||
If sec.Check_DataObjectReadonly("TempBeziehung") = True Then
|
If sec.Check_DataObjectReadonly("TempBeziehung") = True Then
|
||||||
Me.EintragBearbeitenToolStripMenuItem.Enabled = False
|
Me.EintragBearbeitenToolStripMenuItem.Enabled = False
|
||||||
Me.EintragInaktivierenToolStripMenuItem.Enabled = False
|
Me.EintragInaktivierenToolStripMenuItem.Enabled = False
|
||||||
Else
|
Else
|
||||||
Me.EintragBearbeitenToolStripMenuItem.Enabled = True
|
Me.EintragBearbeitenToolStripMenuItem.Enabled = True
|
||||||
Me.EintragInaktivierenToolStripMenuItem.Enabled = True
|
Me.EintragInaktivierenToolStripMenuItem.Enabled = True
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
Catch
|
Catch
|
||||||
End Try
|
End Try
|
||||||
|
|
||||||
Try
|
Try
|
||||||
If Me.C1Beziehungen.SelectedRows.Count > 0 Then
|
If Me.C1Beziehungen.SelectedRows.Count > 0 Then
|
||||||
Me.BeziehungenKopierenToolStripMenuItem.Enabled = True
|
Me.BeziehungenKopierenToolStripMenuItem.Enabled = True
|
||||||
Me.BeziehungenVerschiebenToolStripMenuItem.Enabled = True
|
Me.BeziehungenVerschiebenToolStripMenuItem.Enabled = True
|
||||||
Else
|
Else
|
||||||
Me.BeziehungenKopierenToolStripMenuItem.Enabled = False
|
Me.BeziehungenKopierenToolStripMenuItem.Enabled = False
|
||||||
Me.BeziehungenVerschiebenToolStripMenuItem.Enabled = False
|
Me.BeziehungenVerschiebenToolStripMenuItem.Enabled = False
|
||||||
End If
|
End If
|
||||||
Catch
|
Catch
|
||||||
End Try
|
End Try
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Private Sub C1Beziehungen_MouseUp(sender As Object, e As MouseEventArgs) Handles C1Beziehungen.MouseUp
|
Private Sub C1Beziehungen_MouseUp(sender As Object, e As MouseEventArgs) Handles C1Beziehungen.MouseUp
|
||||||
If C1Beziehungen.PointAt(e.X, e.Y) = C1.Win.C1TrueDBGrid.PointAtEnum.AtFilterBar Then
|
If C1Beziehungen.PointAt(e.X, e.Y) = C1.Win.C1TrueDBGrid.PointAtEnum.AtFilterBar Then
|
||||||
filterdoubleclicked = True
|
FilterDoubleClicked = True
|
||||||
Exit Sub
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
FilterDoubleClicked = False
|
FilterDoubleClicked = False
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub BeziehungenVerschiebenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeziehungenVerschiebenToolStripMenuItem.Click
|
Private Sub BeziehungenVerschiebenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeziehungenVerschiebenToolStripMenuItem.Click
|
||||||
evh.Fire_Select_to_Move_Copy(True, Me.C1Beziehungen, KeyValue)
|
evh.Fire_Select_to_Move_Copy(True, Me.C1Beziehungen, KeyValue)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub BeziehungenKopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeziehungenKopierenToolStripMenuItem.Click
|
Private Sub BeziehungenKopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeziehungenKopierenToolStripMenuItem.Click
|
||||||
evh.Fire_Select_to_Move_Copy(False, Me.C1Beziehungen, KeyValue)
|
evh.Fire_Select_to_Move_Copy(False, Me.C1Beziehungen, KeyValue)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub GrpBeziehungen_Enter(sender As Object, e As EventArgs) Handles GrpBeziehungen.Enter
|
Private Sub GrpBeziehungen_Enter(sender As Object, e As EventArgs) Handles GrpBeziehungen.Enter
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
End Class
|
End Class
|
||||||
|
|
||||||
|
|
||||||
Public Class Filterclass
|
Public Class Filterclass
|
||||||
Dim m_columname As String
|
Dim m_columname As String
|
||||||
Dim m_filtervalue As String
|
Dim m_filtervalue As String
|
||||||
Property Columname() As String
|
Property Columname() As String
|
||||||
Get
|
Get
|
||||||
Return m_columname
|
Return m_columname
|
||||||
End Get
|
End Get
|
||||||
Set(ByVal value As String)
|
Set(ByVal value As String)
|
||||||
m_columname = value
|
m_columname = value
|
||||||
End Set
|
End Set
|
||||||
End Property
|
End Property
|
||||||
|
|
||||||
Property FilterValue() As String
|
Property FilterValue() As String
|
||||||
Get
|
Get
|
||||||
Return m_filtervalue
|
Return m_filtervalue
|
||||||
End Get
|
End Get
|
||||||
Set(ByVal value As String)
|
Set(ByVal value As String)
|
||||||
m_filtervalue = value
|
m_filtervalue = value
|
||||||
End Set
|
End Set
|
||||||
End Property
|
End Property
|
||||||
|
|
||||||
Sub New(ByVal columname As String, ByVal filtervalue As String)
|
Sub New(ByVal columname As String, ByVal filtervalue As String)
|
||||||
MyBase.New()
|
MyBase.New()
|
||||||
Me.Columname = columname
|
Me.Columname = columname
|
||||||
Me.FilterValue = filtervalue
|
Me.FilterValue = filtervalue
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Sub New()
|
Sub New()
|
||||||
MyBase.New()
|
MyBase.New()
|
||||||
End Sub
|
End Sub
|
||||||
Public Sub add(ByVal columname As String, ByVal filtervalue As String)
|
Public Sub add(ByVal columname As String, ByVal filtervalue As String)
|
||||||
Me.Columname = columname
|
Me.Columname = columname
|
||||||
Me.FilterValue = filtervalue
|
Me.FilterValue = filtervalue
|
||||||
End Sub
|
End Sub
|
||||||
End Class
|
End Class
|
||||||
|
|
||||||
|
|||||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Reference in New Issue
Block a user