You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
99 lines
4.9 KiB
99 lines
4.9 KiB
Imports System
|
|
Imports System.Data
|
|
Imports System.Data.SqlTypes
|
|
Imports System.Data.SqlClient
|
|
Public Class frmKontaktMassenupdate
|
|
Dim msg As New TKB.VV.Utils.MyMessage
|
|
|
|
Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub frmKontaktMassenupdate_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Dim tmpdata As New DataTable
|
|
tmpdata = Me.Get_GetData(1, 0, 0, 0)
|
|
Me.cboxfunktion.DataSource = tmpdata
|
|
Me.cboxfunktion.DisplayMember = "Bezeichnung"
|
|
Me.cboxfunktion.ValueMember = "KontakttypNr"
|
|
Me.cboxfunktion.Text = ""
|
|
Dim tmpdata1 As New DataTable
|
|
tmpdata1 = Me.Get_GetData(0, 0, 0, 0)
|
|
Me.C1Mitarbeiter.DataSource = tmpdata1
|
|
Me.C1Mitarbeiter.DataMember = tmpdata1.TableName
|
|
Me.C1Mitarbeiter.Splits(0).DisplayColumns(0).Width = 0
|
|
Me.C1Mitarbeiter.Splits(0).DisplayColumns(1).Width = Me.C1Mitarbeiter.Width - 40
|
|
End Sub
|
|
|
|
#Region "DB"
|
|
Private Function Get_GetData(ByVal fnkt As Integer, ByVal kontaktnr As Integer, ByVal usernr As Integer, ByVal usernrneu As Integer) As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
Dim CheckState As Integer
|
|
scmCmdToExecute.CommandText = "dbo.sp_keyuser_massenupdate"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, fnkt))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@kontakttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, kontaktnr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@usernr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, usernr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@usernrneu", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, usernrneu))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.clsmitarbeiter.iMitarbeiternr.Value))
|
|
conn.OpenConnection()
|
|
sdaAdapter.Fill(dtToReturn)
|
|
|
|
conn.CloseConnection(True)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
Throw New Exception("frmKontakt_Massenmutation::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
|
|
End Function
|
|
|
|
#End Region
|
|
|
|
Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub cboxfunktion_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboxfunktion.SelectedIndexChanged
|
|
Try
|
|
Dim tmpdata As New DataTable
|
|
tmpdata = Me.Get_GetData(2, Me.cboxfunktion.SelectedValue, 0, 0)
|
|
Me.C1useraktuell.DataSource = tmpdata
|
|
Me.C1useraktuell.DataMember = tmpdata.TableName
|
|
Me.C1useraktuell.Splits(0).DisplayColumns(0).Width = 0
|
|
Me.C1useraktuell.Splits(0).DisplayColumns(1).Width = Me.C1useraktuell.Width - 40
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub C1useraktuell_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles C1useraktuell.MouseUp
|
|
Applikationen_Aktualisieren()
|
|
End Sub
|
|
|
|
Private Sub C1useraktuell_RowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles C1useraktuell.RowColChange
|
|
Applikationen_Aktualisieren()
|
|
End Sub
|
|
Private Sub Applikationen_Aktualisieren()
|
|
Try
|
|
Dim tmpdata As New DataTable
|
|
tmpdata = Me.Get_GetData(3, Me.cboxfunktion.SelectedValue, Me.C1useraktuell.Columns(0).Value, 0)
|
|
Me.C1ZugetAppl.DataSource = tmpdata
|
|
Me.C1useraktuell.DataMember = tmpdata.TableName
|
|
Catch ex As Exception
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub btnzuordnen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnzuordnen.Click
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Dim data As New DataTable
|
|
data = Me.Get_GetData(4, Me.cboxfunktion.SelectedValue, Me.C1useraktuell.Columns(0).Value, Me.C1Mitarbeiter.Columns(0).Value)
|
|
Me.Cursor = Cursors.Default
|
|
msg.show_standardmessage(853, MsgBoxStyle.Information)
|
|
End Sub
|
|
End Class |