Initial commit

2021-04-20 07:39:40 +02:00
commit 1efa65864e
3895 changed files with 2126363 additions and 0 deletions
--- a/Backup/EDOKA/EDEX/Banklagernd/frmBLDossierzuweisen.vb
+++ b/Backup/EDOKA/EDEX/Banklagernd/frmBLDossierzuweisen.vb
@@ -0,0 +1,190 @@
+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