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.
191 lines
7.4 KiB
191 lines
7.4 KiB
Imports System.Data
|
|
Imports System.Data.SqlClient
|
|
Imports System.Data.SqlTypes
|
|
|
|
Public Class frmBLDossierzuweisen
|
|
Inherits System.Windows.Forms.Form
|
|
|
|
#Region " Vom Windows Form Designer generierter Code "
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
|
|
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
|
|
|
End Sub
|
|
|
|
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
|
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
|
If disposing Then
|
|
If Not (components Is Nothing) Then
|
|
components.Dispose()
|
|
End If
|
|
End If
|
|
MyBase.Dispose(disposing)
|
|
End Sub
|
|
|
|
' Für Windows Form-Designer erforderlich
|
|
Private components As System.ComponentModel.IContainer
|
|
|
|
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
|
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
|
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
|
Friend WithEvents cbNiederlassung As System.Windows.Forms.ComboBox
|
|
Friend WithEvents lblNiederlassung As System.Windows.Forms.Label
|
|
Friend WithEvents lblBLV As System.Windows.Forms.Label
|
|
Friend WithEvents btnAbbruch As System.Windows.Forms.Button
|
|
Friend WithEvents btnzuweisen As System.Windows.Forms.Button
|
|
Friend WithEvents cbblv As System.Windows.Forms.ComboBox
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Me.cbNiederlassung = New System.Windows.Forms.ComboBox()
|
|
Me.lblNiederlassung = New System.Windows.Forms.Label()
|
|
Me.lblBLV = New System.Windows.Forms.Label()
|
|
Me.cbblv = New System.Windows.Forms.ComboBox()
|
|
Me.btnAbbruch = New System.Windows.Forms.Button()
|
|
Me.btnzuweisen = New System.Windows.Forms.Button()
|
|
Me.SuspendLayout()
|
|
'
|
|
'cbNiederlassung
|
|
'
|
|
Me.cbNiederlassung.Location = New System.Drawing.Point(112, 32)
|
|
Me.cbNiederlassung.Name = "cbNiederlassung"
|
|
Me.cbNiederlassung.Size = New System.Drawing.Size(184, 21)
|
|
Me.cbNiederlassung.TabIndex = 0
|
|
Me.cbNiederlassung.Text = "ComboBox1"
|
|
'
|
|
'lblNiederlassung
|
|
'
|
|
Me.lblNiederlassung.Location = New System.Drawing.Point(8, 32)
|
|
Me.lblNiederlassung.Name = "lblNiederlassung"
|
|
Me.lblNiederlassung.TabIndex = 1
|
|
Me.lblNiederlassung.Text = "Niederlassung"
|
|
'
|
|
'lblBLV
|
|
'
|
|
Me.lblBLV.Location = New System.Drawing.Point(8, 64)
|
|
Me.lblBLV.Name = "lblBLV"
|
|
Me.lblBLV.Size = New System.Drawing.Size(100, 32)
|
|
Me.lblBLV.TabIndex = 3
|
|
Me.lblBLV.Text = "Banklagernd-Verantwortlicher"
|
|
'
|
|
'cbblv
|
|
'
|
|
Me.cbblv.Location = New System.Drawing.Point(112, 64)
|
|
Me.cbblv.Name = "cbblv"
|
|
Me.cbblv.Size = New System.Drawing.Size(184, 21)
|
|
Me.cbblv.TabIndex = 2
|
|
'
|
|
'btnAbbruch
|
|
'
|
|
Me.btnAbbruch.Location = New System.Drawing.Point(8, 112)
|
|
Me.btnAbbruch.Name = "btnAbbruch"
|
|
Me.btnAbbruch.TabIndex = 4
|
|
Me.btnAbbruch.Text = "Abbruch"
|
|
'
|
|
'btnzuweisen
|
|
'
|
|
Me.btnzuweisen.Location = New System.Drawing.Point(224, 112)
|
|
Me.btnzuweisen.Name = "btnzuweisen"
|
|
Me.btnzuweisen.TabIndex = 5
|
|
Me.btnzuweisen.Text = "&Zuweisen"
|
|
'
|
|
'frmBLDossierzuweisen
|
|
'
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|
Me.ClientSize = New System.Drawing.Size(312, 149)
|
|
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnzuweisen, Me.btnAbbruch, Me.lblBLV, Me.cbblv, Me.lblNiederlassung, Me.cbNiederlassung})
|
|
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
|
|
Me.Name = "frmBLDossierzuweisen"
|
|
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
|
Me.Text = "Dossier einem Banklagernd-Verantwortlichen zuweisen"
|
|
Me.ResumeLayout(False)
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
Dim WithEvents mcbniederlassung As New MultiComboBox()
|
|
Dim WithEvents mcbblv As New MultiComboBox()
|
|
Dim on_load As Boolean = True
|
|
|
|
Private Sub frmBLDossierzuweisen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Dim dt As New DataTable()
|
|
dt = get_niederlassung
|
|
Me.mcbniederlassung = New MultiComboBox(Me.cbNiederlassung)
|
|
Me.mcbblv = New MultiComboBox(Me.cbblv)
|
|
Me.mcbniederlassung.CheckNullValue = True
|
|
Me.mcbniederlassung.NullValueMessage = MyTxt.gettext(83)
|
|
Me.mcbniederlassung.DisplayColumnName = "niederlassung"
|
|
Me.mcbniederlassung.ValueColumnName = "niederlassungnr"
|
|
Me.mcbniederlassung.Fill_Data(dt, False)
|
|
Me.on_load = False
|
|
Me.mcbniederlassung.SelectedValue = dt.Rows(0).Item(0)
|
|
Me.cbNiederlassung_SelectedIndexChanged(sender, e)
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub cbNiederlassung_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mcbniederlassung.SelectedIndexChanged
|
|
If Me.On_Load Then Exit Sub
|
|
Dim dt As New DataTable()
|
|
dt = Get_blv()
|
|
Me.mcbblv.CheckNullValue = True
|
|
Me.mcbblv.NullValueMessage = MyTxt.gettext(83)
|
|
Me.mcbblv.DisplayColumnName = "mitarbeiter"
|
|
Me.mcbblv.ValueColumnName = "mitarbeiternr"
|
|
Me.mcbblv.Fill_Data(dt, False)
|
|
If dt.Rows.Count = 0 Then
|
|
Me.mcbblv.Enabled = False
|
|
Me.cbblv.Enabled = False
|
|
Me.btnzuweisen.Enabled = False
|
|
Else
|
|
Me.mcbblv.Enabled = True
|
|
Me.cbblv.Enabled = True
|
|
Me.btnzuweisen.Enabled = True
|
|
Me.mcbblv.SelectedValue = dt.Rows(0).Item(0)
|
|
End If
|
|
End Sub
|
|
|
|
Private Function Get_Niederlassung() As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.sp_edex_bl_get_niederlassung"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
Try
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
dtToReturn.Dispose()
|
|
End Try
|
|
|
|
End Function
|
|
|
|
Private Function Get_blv() As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.sp_edex_bl_get_blvnl"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
Try
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@niederlassungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.mcbniederlassung.SelectedValue))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
dtToReturn.Dispose()
|
|
End Try
|
|
|
|
End Function
|
|
End Class
|