Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
'''Aktiviert oder deaktiviert die Datumselektionen je Checkbox
Public Class frmBLDruck
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 ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents btnAbbruch As System.Windows.Forms.Button
Friend WithEvents btnWeiter As System.Windows.Forms.Button
Friend WithEvents cbdokumentstatus As System.Windows.Forms.ComboBox
Friend WithEvents cbverantwortlich As System.Windows.Forms.ComboBox
Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
Friend WithEvents DataSet1 As System.Data.DataSet
Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
Friend WithEvents cbgrundlage4 As System.Windows.Forms.CheckBox
Friend WithEvents dtgrundlage4 As System.Windows.Forms.DateTimePicker
Friend WithEvents dtgrundlage3 As System.Windows.Forms.DateTimePicker
Friend WithEvents cbgrundlage3 As System.Windows.Forms.CheckBox
Friend WithEvents cbgrundlage2 As System.Windows.Forms.CheckBox
Friend WithEvents cbgrundlage1 As System.Windows.Forms.CheckBox
Friend WithEvents dtgrundlage2 As System.Windows.Forms.DateTimePicker
Friend WithEvents dtgrundlage1 As System.Windows.Forms.DateTimePicker
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
Friend WithEvents txtBeilage As System.Windows.Forms.TextBox
Friend WithEvents cbbeilage3 As System.Windows.Forms.CheckBox
Friend WithEvents cbbeilage2 As System.Windows.Forms.CheckBox
Friend WithEvents cbbeilage1 As System.Windows.Forms.CheckBox
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents rbnichtverschlossen As System.Windows.Forms.RadioButton
Friend WithEvents rbverschlossen As System.Windows.Forms.RadioButton
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents rbzustellungpost As System.Windows.Forms.RadioButton
Friend WithEvents rbpersoenlich As System.Windows.Forms.RadioButton
Friend WithEvents txtbemerkung As System.Windows.Forms.TextBox
Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents txtAnredeZusteller As System.Windows.Forms.TextBox
Friend WithEvents txtZustelladresse As System.Windows.Forms.TextBox
Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox9 As System.Windows.Forms.GroupBox
Friend WithEvents Notizlist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents cbteam As System.Windows.Forms.ComboBox
Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox
Friend WithEvents rbAushaendigungKube As System.Windows.Forms.RadioButton
Friend WithEvents rbAushaendigungBLV As System.Windows.Forms.RadioButton
Friend WithEvents cbkube As System.Windows.Forms.ComboBox
Friend WithEvents cbzustaendiger As System.Windows.Forms.ComboBox
Friend WithEvents cbblv As System.Windows.Forms.ComboBox
Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
Friend WithEvents MnuNeueNotiz As System.Windows.Forms.MenuItem
Friend WithEvents MnuEditNotiz As System.Windows.Forms.MenuItem
Friend WithEvents MnuDeleteNotiz As System.Windows.Forms.MenuItem
Friend WithEvents drpMiatarbeiter As C1.Win.C1TrueDBGrid.C1TrueDBDropdown
Friend WithEvents cbDel2Page As System.Windows.Forms.CheckBox
Friend WithEvents lblUnterschrift1 As System.Windows.Forms.Label
Friend WithEvents cbUnterschriftrechts As System.Windows.Forms.ComboBox
Friend WithEvents GroupBox10 As System.Windows.Forms.GroupBox
Friend WithEvents dtgrundlage3overlay As System.Windows.Forms.TextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents cbgrundlage5 As System.Windows.Forms.CheckBox
Friend WithEvents cbbeilage As System.Windows.Forms.ComboBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents BtnHelp As System.Windows.Forms.Button
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBLDruck))
Dim Style1 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style2 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style3 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style4 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style5 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style6 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style7 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style8 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.btnAbbruch = New System.Windows.Forms.Button()
Me.btnWeiter = New System.Windows.Forms.Button()
Me.cbdokumentstatus = New System.Windows.Forms.ComboBox()
Me.cbverantwortlich = New System.Windows.Forms.ComboBox()
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
Me.DataSet1 = New System.Data.DataSet()
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
Me.Label3 = New System.Windows.Forms.Label()
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.cbgrundlage5 = New System.Windows.Forms.CheckBox()
Me.dtgrundlage3overlay = New System.Windows.Forms.TextBox()
Me.cbgrundlage4 = New System.Windows.Forms.CheckBox()
Me.dtgrundlage4 = New System.Windows.Forms.DateTimePicker()
Me.dtgrundlage3 = New System.Windows.Forms.DateTimePicker()
Me.cbgrundlage3 = New System.Windows.Forms.CheckBox()
Me.cbgrundlage2 = New System.Windows.Forms.CheckBox()
Me.dtgrundlage2 = New System.Windows.Forms.DateTimePicker()
Me.cbgrundlage1 = New System.Windows.Forms.CheckBox()
Me.dtgrundlage1 = New System.Windows.Forms.DateTimePicker()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.cbbeilage = New System.Windows.Forms.ComboBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.txtBeilage = New System.Windows.Forms.TextBox()
Me.cbbeilage3 = New System.Windows.Forms.CheckBox()
Me.cbbeilage2 = New System.Windows.Forms.CheckBox()
Me.cbbeilage1 = New System.Windows.Forms.CheckBox()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.rbverschlossen = New System.Windows.Forms.RadioButton()
Me.rbnichtverschlossen = New System.Windows.Forms.RadioButton()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.rbzustellungpost = New System.Windows.Forms.RadioButton()
Me.rbpersoenlich = New System.Windows.Forms.RadioButton()
Me.txtbemerkung = New System.Windows.Forms.TextBox()
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
Me.cbblv = New System.Windows.Forms.ComboBox()
Me.rbAushaendigungKube = New System.Windows.Forms.RadioButton()
Me.rbAushaendigungBLV = New System.Windows.Forms.RadioButton()
Me.cbkube = New System.Windows.Forms.ComboBox()
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.GroupBox10 = New System.Windows.Forms.GroupBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.txtAnredeZusteller = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.cbUnterschriftrechts = New System.Windows.Forms.ComboBox()
Me.lblUnterschrift1 = New System.Windows.Forms.Label()
Me.cbDel2Page = New System.Windows.Forms.CheckBox()
Me.txtZustelladresse = New System.Windows.Forms.TextBox()
Me.Label13 = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.GroupBox7 = New System.Windows.Forms.GroupBox()
Me.cbteam = New System.Windows.Forms.ComboBox()
Me.GroupBox9 = New System.Windows.Forms.GroupBox()
Me.drpMiatarbeiter = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown()
Me.Notizlist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ContextMenu1 = New System.Windows.Forms.ContextMenu()
Me.MnuNeueNotiz = New System.Windows.Forms.MenuItem()
Me.MnuEditNotiz = New System.Windows.Forms.MenuItem()
Me.MnuDeleteNotiz = New System.Windows.Forms.MenuItem()
Me.GroupBox8 = New System.Windows.Forms.GroupBox()
Me.GroupBox6 = New System.Windows.Forms.GroupBox()
Me.cbzustaendiger = New System.Windows.Forms.ComboBox()
Me.BtnHelp = New System.Windows.Forms.Button()
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox4.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.GroupBox5.SuspendLayout()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.GroupBox10.SuspendLayout()
Me.TabPage2.SuspendLayout()
Me.GroupBox7.SuspendLayout()
Me.GroupBox9.SuspendLayout()
CType(Me.drpMiatarbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Notizlist, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox8.SuspendLayout()
Me.GroupBox6.SuspendLayout()
Me.SuspendLayout()
'
'ImageList1
'
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
Me.ImageList1.Images.SetKeyName(0, "")
Me.ImageList1.Images.SetKeyName(1, "")
Me.ImageList1.Images.SetKeyName(2, "")
Me.ImageList1.Images.SetKeyName(3, "")
Me.ImageList1.Images.SetKeyName(4, "")
Me.ImageList1.Images.SetKeyName(5, "")
Me.ImageList1.Images.SetKeyName(6, "")
Me.ImageList1.Images.SetKeyName(7, "")
Me.ImageList1.Images.SetKeyName(8, "")
'
'btnAbbruch
'
Me.btnAbbruch.Location = New System.Drawing.Point(8, 424)
Me.btnAbbruch.Name = "btnAbbruch"
Me.btnAbbruch.Size = New System.Drawing.Size(88, 23)
Me.btnAbbruch.TabIndex = 3
Me.btnAbbruch.Text = "Abbruch"
'
'btnWeiter
'
Me.btnWeiter.Location = New System.Drawing.Point(600, 424)
Me.btnWeiter.Name = "btnWeiter"
Me.btnWeiter.Size = New System.Drawing.Size(128, 23)
Me.btnWeiter.TabIndex = 4
Me.btnWeiter.Text = "Weiter >>"
'
'cbdokumentstatus
'
Me.cbdokumentstatus.Location = New System.Drawing.Point(104, 424)
Me.cbdokumentstatus.Name = "cbdokumentstatus"
Me.cbdokumentstatus.Size = New System.Drawing.Size(112, 21)
Me.cbdokumentstatus.TabIndex = 5
Me.cbdokumentstatus.Text = "cbdokumentstatus"
Me.cbdokumentstatus.Visible = False
'
'cbverantwortlich
'
Me.cbverantwortlich.Location = New System.Drawing.Point(224, 424)
Me.cbverantwortlich.Name = "cbverantwortlich"
Me.cbverantwortlich.Size = New System.Drawing.Size(168, 21)
Me.cbverantwortlich.TabIndex = 7
Me.cbverantwortlich.Text = "cbverantwortlich"
Me.cbverantwortlich.Visible = False
'
'SqlDataAdapter1
'
Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "SP_Dokumentbearbeitung_Dokumentwerte", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("vorlagenfeldnr", "vorlagenfeldnr"), New System.Data.Common.DataColumnMapping("vorlagenfeldregelnr", "vorlagenfeldregelnr"), New System.Data.Common.DataColumnMapping("feldtyp", "feldtyp"), New System.Data.Common.DataColumnMapping("datenherkunft", "datenherkunft"), New System.Data.Common.DataColumnMapping("Feldwert", "Feldwert")})})
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
'
'SqlDeleteCommand1
'
Me.SqlDeleteCommand1.CommandText = "[NewDeleteCommand]"
Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
Me.SqlDeleteCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing)})
'
'SqlConnection1
'
Me.SqlConnection1.ConnectionString = "data source=shu;initial catalog=edoka;persist security info=False;user id=sa;work" &
"station id=SHU;packet size=4096"
Me.SqlConnection1.FireInfoMessageEventOnUserErrors = False
'
'SqlInsertCommand1
'
Me.SqlInsertCommand1.CommandText = "[NewInsertCommand]"
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
Me.SqlInsertCommand1.Connection = Me.SqlConnection1
Me.SqlInsertCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 50), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing)})
'
'SqlSelectCommand1
'
Me.SqlSelectCommand1.CommandText = "[SP_Dokumentbearbeitung_Dokumentwerte]"
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
Me.SqlSelectCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Dokumentid", System.Data.SqlDbType.VarChar, 20), New System.Data.SqlClient.SqlParameter("@Dokumenttypnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@CreateNew", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing)})
'
'SqlUpdateCommand1
'
Me.SqlUpdateCommand1.CommandText = "[NewUpdateCommand]"
Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
Me.SqlUpdateCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 50), New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1), New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 50), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8)})
'
'DataSet1
'
Me.DataSet1.DataSetName = "NewDataSet"
'
'DateTimePicker1
'
Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.DateTimePicker1.Location = New System.Drawing.Point(152, 24)
Me.DateTimePicker1.Name = "DateTimePicker1"
Me.DateTimePicker1.Size = New System.Drawing.Size(112, 20)
Me.DateTimePicker1.TabIndex = 6
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(8, 24)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(104, 23)
Me.Label3.TabIndex = 0
Me.Label3.Text = "Dokumentdatum"
'
'GroupBox4
'
Me.GroupBox4.Controls.Add(Me.cbgrundlage5)
Me.GroupBox4.Controls.Add(Me.dtgrundlage3overlay)
Me.GroupBox4.Controls.Add(Me.cbgrundlage4)
Me.GroupBox4.Controls.Add(Me.dtgrundlage4)
Me.GroupBox4.Controls.Add(Me.dtgrundlage3)
Me.GroupBox4.Controls.Add(Me.cbgrundlage3)
Me.GroupBox4.Controls.Add(Me.cbgrundlage2)
Me.GroupBox4.Controls.Add(Me.dtgrundlage2)
Me.GroupBox4.Location = New System.Drawing.Point(8, 8)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(352, 121)
Me.GroupBox4.TabIndex = 29
Me.GroupBox4.TabStop = False
Me.GroupBox4.Text = "Grundlage"
'
'cbgrundlage5
'
Me.cbgrundlage5.Location = New System.Drawing.Point(16, 89)
Me.cbgrundlage5.Name = "cbgrundlage5"
Me.cbgrundlage5.Size = New System.Drawing.Size(192, 24)
Me.cbgrundlage5.TabIndex = 12
Me.cbgrundlage5.Text = "Nicht abgeholte Korrespondenz"
'
'dtgrundlage3overlay
'
Me.dtgrundlage3overlay.Enabled = False
Me.dtgrundlage3overlay.Location = New System.Drawing.Point(248, 64)
Me.dtgrundlage3overlay.Name = "dtgrundlage3overlay"
Me.dtgrundlage3overlay.Size = New System.Drawing.Size(80, 20)
Me.dtgrundlage3overlay.TabIndex = 11
Me.dtgrundlage3overlay.Visible = False
'
'cbgrundlage4
'
Me.cbgrundlage4.Location = New System.Drawing.Point(16, 40)
Me.cbgrundlage4.Name = "cbgrundlage4"
Me.cbgrundlage4.Size = New System.Drawing.Size(208, 24)
Me.cbgrundlage4.TabIndex = 10
Me.cbgrundlage4.Text = "Einmalig telefonischer Auftrag vom"
'
'dtgrundlage4
'
Me.dtgrundlage4.Enabled = False
Me.dtgrundlage4.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtgrundlage4.Location = New System.Drawing.Point(248, 40)
Me.dtgrundlage4.Name = "dtgrundlage4"
Me.dtgrundlage4.Size = New System.Drawing.Size(96, 20)
Me.dtgrundlage4.TabIndex = 9
'
'dtgrundlage3
'
Me.dtgrundlage3.Enabled = False
Me.dtgrundlage3.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtgrundlage3.Location = New System.Drawing.Point(248, 64)
Me.dtgrundlage3.Name = "dtgrundlage3"
Me.dtgrundlage3.Size = New System.Drawing.Size(96, 20)
Me.dtgrundlage3.TabIndex = 5
'
'cbgrundlage3
'
Me.cbgrundlage3.Location = New System.Drawing.Point(16, 64)
Me.cbgrundlage3.Name = "cbgrundlage3"
Me.cbgrundlage3.Size = New System.Drawing.Size(232, 24)
Me.cbgrundlage3.TabIndex = 8
Me.cbgrundlage3.Text = "Periodische Zustellung gem. Auftrag vom"
'
'cbgrundlage2
'
Me.cbgrundlage2.Location = New System.Drawing.Point(16, 16)
Me.cbgrundlage2.Name = "cbgrundlage2"
Me.cbgrundlage2.Size = New System.Drawing.Size(192, 24)
Me.cbgrundlage2.TabIndex = 7
Me.cbgrundlage2.Text = "Einmalig schriftlicher Auftrag vom"
'
'dtgrundlage2
'
Me.dtgrundlage2.Enabled = False
Me.dtgrundlage2.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtgrundlage2.Location = New System.Drawing.Point(248, 16)
Me.dtgrundlage2.Name = "dtgrundlage2"
Me.dtgrundlage2.Size = New System.Drawing.Size(96, 20)
Me.dtgrundlage2.TabIndex = 4
'
'cbgrundlage1
'
Me.cbgrundlage1.Location = New System.Drawing.Point(168, 424)
Me.cbgrundlage1.Name = "cbgrundlage1"
Me.cbgrundlage1.Size = New System.Drawing.Size(192, 24)
Me.cbgrundlage1.TabIndex = 6
Me.cbgrundlage1.Text = "Banklagernd-Erklärung vom"
Me.cbgrundlage1.Visible = False
'
'dtgrundlage1
'
Me.dtgrundlage1.Enabled = False
Me.dtgrundlage1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtgrundlage1.Location = New System.Drawing.Point(376, 424)
Me.dtgrundlage1.Name = "dtgrundlage1"
Me.dtgrundlage1.Size = New System.Drawing.Size(96, 20)
Me.dtgrundlage1.TabIndex = 3
Me.dtgrundlage1.Visible = False
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.cbbeilage)
Me.GroupBox3.Controls.Add(Me.Label5)
Me.GroupBox3.Controls.Add(Me.txtBeilage)
Me.GroupBox3.Controls.Add(Me.cbbeilage3)
Me.GroupBox3.Controls.Add(Me.cbbeilage2)
Me.GroupBox3.Controls.Add(Me.cbbeilage1)
Me.GroupBox3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.GroupBox3.Location = New System.Drawing.Point(368, 8)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(352, 121)
Me.GroupBox3.TabIndex = 28
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Beilage zur Quittung"
'
'cbbeilage
'
Me.cbbeilage.Location = New System.Drawing.Point(104, 84)
Me.cbbeilage.Name = "cbbeilage"
Me.cbbeilage.Size = New System.Drawing.Size(242, 21)
Me.cbbeilage.TabIndex = 13
'
'Label5
'
Me.Label5.Location = New System.Drawing.Point(13, 89)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(87, 16)
Me.Label5.TabIndex = 4
Me.Label5.Text = "Beilage erstellen"
'
'txtBeilage
'
Me.txtBeilage.Enabled = False
Me.txtBeilage.Location = New System.Drawing.Point(16, 56)
Me.txtBeilage.Name = "txtBeilage"
Me.txtBeilage.Size = New System.Drawing.Size(328, 20)
Me.txtBeilage.TabIndex = 3
'
'cbbeilage3
'
Me.cbbeilage3.Location = New System.Drawing.Point(16, 32)
Me.cbbeilage3.Name = "cbbeilage3"
Me.cbbeilage3.Size = New System.Drawing.Size(104, 24)
Me.cbbeilage3.TabIndex = 2
Me.cbbeilage3.Text = "Andere"
'
'cbbeilage2
'
Me.cbbeilage2.Location = New System.Drawing.Point(16, 16)
Me.cbbeilage2.Name = "cbbeilage2"
Me.cbbeilage2.Size = New System.Drawing.Size(136, 16)
Me.cbbeilage2.TabIndex = 1
Me.cbbeilage2.Text = "Kopie des Auftrages"
'
'cbbeilage1
'
Me.cbbeilage1.Location = New System.Drawing.Point(296, 16)
Me.cbbeilage1.Name = "cbbeilage1"
Me.cbbeilage1.Size = New System.Drawing.Size(48, 16)
Me.cbbeilage1.TabIndex = 0
Me.cbbeilage1.Text = "Einschreiben-Beleg"
Me.cbbeilage1.Visible = False
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.rbverschlossen)
Me.GroupBox2.Controls.Add(Me.rbnichtverschlossen)
Me.GroupBox2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.GroupBox2.Location = New System.Drawing.Point(8, 311)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(352, 64)
Me.GroupBox2.TabIndex = 27
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Form der Aushändigung"
'
'rbverschlossen
'
Me.rbverschlossen.Checked = True
Me.rbverschlossen.Location = New System.Drawing.Point(16, 32)
Me.rbverschlossen.Name = "rbverschlossen"
Me.rbverschlossen.Size = New System.Drawing.Size(200, 24)
Me.rbverschlossen.TabIndex = 11
Me.rbverschlossen.TabStop = True
Me.rbverschlossen.Text = "In verschlossenem Umschlag"
'
'rbnichtverschlossen
'
Me.rbnichtverschlossen.Location = New System.Drawing.Point(16, 16)
Me.rbnichtverschlossen.Name = "rbnichtverschlossen"
Me.rbnichtverschlossen.Size = New System.Drawing.Size(184, 24)
Me.rbnichtverschlossen.TabIndex = 12
Me.rbnichtverschlossen.Text = "Nicht verschlossen"
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.rbzustellungpost)
Me.GroupBox1.Controls.Add(Me.rbpersoenlich)
Me.GroupBox1.Location = New System.Drawing.Point(8, 239)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(352, 64)
Me.GroupBox1.TabIndex = 26
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Art der Aushändigung"
'
'rbzustellungpost
'
Me.rbzustellungpost.Location = New System.Drawing.Point(16, 37)
Me.rbzustellungpost.Name = "rbzustellungpost"
Me.rbzustellungpost.Size = New System.Drawing.Size(120, 16)
Me.rbzustellungpost.TabIndex = 9
Me.rbzustellungpost.Text = "Zustellung per Post"
'
'rbpersoenlich
'
Me.rbpersoenlich.Location = New System.Drawing.Point(16, 16)
Me.rbpersoenlich.Name = "rbpersoenlich"
Me.rbpersoenlich.Size = New System.Drawing.Size(104, 24)
Me.rbpersoenlich.TabIndex = 8
Me.rbpersoenlich.Text = "Persönlich"
'
'txtbemerkung
'
Me.txtbemerkung.Location = New System.Drawing.Point(8, 16)
Me.txtbemerkung.Multiline = True
Me.txtbemerkung.Name = "txtbemerkung"
Me.txtbemerkung.Size = New System.Drawing.Size(256, 256)
Me.txtbemerkung.TabIndex = 25
'
'GroupBox5
'
Me.GroupBox5.Controls.Add(Me.cbblv)
Me.GroupBox5.Controls.Add(Me.rbAushaendigungKube)
Me.GroupBox5.Controls.Add(Me.rbAushaendigungBLV)
Me.GroupBox5.Controls.Add(Me.cbkube)
Me.GroupBox5.Location = New System.Drawing.Point(8, 135)
Me.GroupBox5.Name = "GroupBox5"
Me.GroupBox5.Size = New System.Drawing.Size(352, 96)
Me.GroupBox5.TabIndex = 30
Me.GroupBox5.TabStop = False
Me.GroupBox5.Text = "Aushändigung durch"
'
'cbblv
'
Me.cbblv.Location = New System.Drawing.Point(136, 30)
Me.cbblv.Name = "cbblv"
Me.cbblv.Size = New System.Drawing.Size(208, 21)
Me.cbblv.TabIndex = 12
'
'rbAushaendigungKube
'
Me.rbAushaendigungKube.Location = New System.Drawing.Point(16, 64)
Me.rbAushaendigungKube.Name = "rbAushaendigungKube"
Me.rbAushaendigungKube.Size = New System.Drawing.Size(112, 24)
Me.rbAushaendigungKube.TabIndex = 11
Me.rbAushaendigungKube.Text = "Kundenberater"
Me.rbAushaendigungKube.Visible = False
'
'rbAushaendigungBLV
'
Me.rbAushaendigungBLV.Location = New System.Drawing.Point(16, 24)
Me.rbAushaendigungBLV.Name = "rbAushaendigungBLV"
Me.rbAushaendigungBLV.Size = New System.Drawing.Size(104, 32)
Me.rbAushaendigungBLV.TabIndex = 10
Me.rbAushaendigungBLV.Text = "Banklagernd-Verantwortlicher"
'
'cbkube
'
Me.cbkube.Location = New System.Drawing.Point(136, 64)
Me.cbkube.Name = "cbkube"
Me.cbkube.Size = New System.Drawing.Size(208, 21)
Me.cbkube.TabIndex = 9
Me.cbkube.Visible = False
'
'TabControl1
'
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Location = New System.Drawing.Point(0, 8)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(736, 410)
Me.TabControl1.TabIndex = 32
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.GroupBox10)
Me.TabPage1.Controls.Add(Me.GroupBox4)
Me.TabPage1.Controls.Add(Me.GroupBox1)
Me.TabPage1.Controls.Add(Me.GroupBox3)
Me.TabPage1.Controls.Add(Me.GroupBox5)
Me.TabPage1.Controls.Add(Me.GroupBox2)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Size = New System.Drawing.Size(728, 384)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Einstellungen Aushändigungsquittung"
'
'GroupBox10
'
Me.GroupBox10.Controls.Add(Me.Label4)
Me.GroupBox10.Controls.Add(Me.txtAnredeZusteller)
Me.GroupBox10.Controls.Add(Me.Label2)
Me.GroupBox10.Controls.Add(Me.Label1)
Me.GroupBox10.Controls.Add(Me.cbUnterschriftrechts)
Me.GroupBox10.Controls.Add(Me.lblUnterschrift1)
Me.GroupBox10.Controls.Add(Me.cbDel2Page)
Me.GroupBox10.Controls.Add(Me.txtZustelladresse)
Me.GroupBox10.Controls.Add(Me.Label13)
Me.GroupBox10.Controls.Add(Me.Button2)
Me.GroupBox10.Location = New System.Drawing.Point(368, 137)
Me.GroupBox10.Name = "GroupBox10"
Me.GroupBox10.Size = New System.Drawing.Size(352, 236)
Me.GroupBox10.TabIndex = 35
Me.GroupBox10.TabStop = False
Me.GroupBox10.Text = "Kunden-Kopie"
'
'Label4
'
Me.Label4.Location = New System.Drawing.Point(8, 24)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(96, 32)
Me.Label4.TabIndex = 37
Me.Label4.Text = "Kopie für den Kunden drucken"
'
'txtAnredeZusteller
'
Me.txtAnredeZusteller.Location = New System.Drawing.Point(104, 209)
Me.txtAnredeZusteller.Name = "txtAnredeZusteller"
Me.txtAnredeZusteller.Size = New System.Drawing.Size(240, 20)
Me.txtAnredeZusteller.TabIndex = 1
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(8, 222)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(100, 16)
Me.Label2.TabIndex = 36
Me.Label2.Text = "(z.B.: Herr Muster)"
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(8, 57)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(96, 16)
Me.Label1.TabIndex = 35
Me.Label1.Text = "Zustelladresse"
'
'cbUnterschriftrechts
'
Me.cbUnterschriftrechts.Location = New System.Drawing.Point(104, 105)
Me.cbUnterschriftrechts.Name = "cbUnterschriftrechts"
Me.cbUnterschriftrechts.Size = New System.Drawing.Size(240, 21)
Me.cbUnterschriftrechts.TabIndex = 33
Me.cbUnterschriftrechts.Visible = False
'
'lblUnterschrift1
'
Me.lblUnterschrift1.Location = New System.Drawing.Point(8, 105)
Me.lblUnterschrift1.Name = "lblUnterschrift1"
Me.lblUnterschrift1.Size = New System.Drawing.Size(96, 16)
Me.lblUnterschrift1.TabIndex = 34
Me.lblUnterschrift1.Text = "Unterschrift rechts"
Me.lblUnterschrift1.Visible = False
'
'cbDel2Page
'
Me.cbDel2Page.Location = New System.Drawing.Point(104, 24)
Me.cbDel2Page.Name = "cbDel2Page"
Me.cbDel2Page.Size = New System.Drawing.Size(168, 24)
Me.cbDel2Page.TabIndex = 32
'
'txtZustelladresse
'
Me.txtZustelladresse.Location = New System.Drawing.Point(104, 57)
Me.txtZustelladresse.Multiline = True
Me.txtZustelladresse.Name = "txtZustelladresse"
Me.txtZustelladresse.Size = New System.Drawing.Size(240, 144)
Me.txtZustelladresse.TabIndex = 0
'
'Label13
'
Me.Label13.Location = New System.Drawing.Point(8, 206)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(96, 16)
Me.Label13.TabIndex = 2
Me.Label13.Text = "Anrede"
'
'Button2
'
Me.Button2.Image = CType(resources.GetObject("Button2.Image"), System.Drawing.Image)
Me.Button2.Location = New System.Drawing.Point(8, 73)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(24, 23)
Me.Button2.TabIndex = 2
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.GroupBox7)
Me.TabPage2.Controls.Add(Me.GroupBox9)
Me.TabPage2.Controls.Add(Me.GroupBox8)
Me.TabPage2.Controls.Add(Me.GroupBox6)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Size = New System.Drawing.Size(728, 384)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Dokument-Angaben"
'
'GroupBox7
'
Me.GroupBox7.Controls.Add(Me.cbteam)
Me.GroupBox7.Location = New System.Drawing.Point(288, 8)
Me.GroupBox7.Name = "GroupBox7"
Me.GroupBox7.Size = New System.Drawing.Size(432, 56)
Me.GroupBox7.TabIndex = 9
Me.GroupBox7.TabStop = False
Me.GroupBox7.Text = "Teamzuordnung"
'
'cbteam
'
Me.cbteam.Location = New System.Drawing.Point(8, 24)
Me.cbteam.Name = "cbteam"
Me.cbteam.Size = New System.Drawing.Size(248, 21)
Me.cbteam.TabIndex = 10
Me.cbteam.Text = "cbteam"
'
'GroupBox9
'
Me.GroupBox9.Controls.Add(Me.drpMiatarbeiter)
Me.GroupBox9.Controls.Add(Me.Notizlist)
Me.GroupBox9.Location = New System.Drawing.Point(288, 72)
Me.GroupBox9.Name = "GroupBox9"
Me.GroupBox9.Size = New System.Drawing.Size(432, 280)
Me.GroupBox9.TabIndex = 8
Me.GroupBox9.TabStop = False
Me.GroupBox9.Text = "Notizen"
'
'drpMiatarbeiter
'
Me.drpMiatarbeiter.AllowColMove = True
Me.drpMiatarbeiter.AllowColSelect = True
Me.drpMiatarbeiter.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
Me.drpMiatarbeiter.AlternatingRows = True
Me.drpMiatarbeiter.CaptionStyle = Style1
Me.drpMiatarbeiter.ColumnCaptionHeight = 17
Me.drpMiatarbeiter.ColumnFooterHeight = 17
Me.drpMiatarbeiter.EvenRowStyle = Style2
Me.drpMiatarbeiter.FetchRowStyles = False
Me.drpMiatarbeiter.FooterStyle = Style3
Me.drpMiatarbeiter.HeadingStyle = Style4
Me.drpMiatarbeiter.HighLightRowStyle = Style5
Me.drpMiatarbeiter.Images.Add(CType(resources.GetObject("drpMiatarbeiter.Images"), System.Drawing.Image))
Me.drpMiatarbeiter.Location = New System.Drawing.Point(196, 80)
Me.drpMiatarbeiter.Name = "drpMiatarbeiter"
Me.drpMiatarbeiter.OddRowStyle = Style6
Me.drpMiatarbeiter.RecordSelectorStyle = Style7
Me.drpMiatarbeiter.RowDivider.Color = System.Drawing.Color.DarkGray
Me.drpMiatarbeiter.RowDivider.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.[Single]
Me.drpMiatarbeiter.RowSubDividerColor = System.Drawing.Color.DarkGray
Me.drpMiatarbeiter.ScrollTips = False
Me.drpMiatarbeiter.Size = New System.Drawing.Size(40, 80)
Me.drpMiatarbeiter.Style = Style8
Me.drpMiatarbeiter.TabIndex = 4
Me.drpMiatarbeiter.Text = "C1TrueDBDropdown1"
Me.drpMiatarbeiter.Visible = False
Me.drpMiatarbeiter.PropBag = resources.GetString("drpMiatarbeiter.PropBag")
'
'Notizlist
'
Me.Notizlist.AlternatingRows = True
Me.Notizlist.ContextMenu = Me.ContextMenu1
Me.Notizlist.Dock = System.Windows.Forms.DockStyle.Fill
Me.Notizlist.GroupByCaption = "Drag a column header here to group by that column"
Me.Notizlist.Images.Add(CType(resources.GetObject("Notizlist.Images"), System.Drawing.Image))
Me.Notizlist.Location = New System.Drawing.Point(3, 16)
Me.Notizlist.Name = "Notizlist"
Me.Notizlist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.Notizlist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.Notizlist.PreviewInfo.ZoomFactor = 75.0R
Me.Notizlist.PrintInfo.PageSettings = CType(resources.GetObject("Notizlist.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.Notizlist.Size = New System.Drawing.Size(426, 261)
Me.Notizlist.TabIndex = 1
Me.Notizlist.Text = "C1TrueDBGrid1"
Me.Notizlist.PropBag = resources.GetString("Notizlist.PropBag")
'
'ContextMenu1
'
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuNeueNotiz, Me.MnuEditNotiz, Me.MnuDeleteNotiz})
'
'MnuNeueNotiz
'
Me.MnuNeueNotiz.Index = 0
Me.MnuNeueNotiz.Text = "&Neue Notiz"
'
'MnuEditNotiz
'
Me.MnuEditNotiz.Index = 1
Me.MnuEditNotiz.Text = "&Notiz bearbeiten"
'
'MnuDeleteNotiz
'
Me.MnuDeleteNotiz.Index = 2
Me.MnuDeleteNotiz.Text = "Notiz &löschen"
'
'GroupBox8
'
Me.GroupBox8.Controls.Add(Me.Label3)
Me.GroupBox8.Controls.Add(Me.DateTimePicker1)
Me.GroupBox8.Location = New System.Drawing.Point(8, 8)
Me.GroupBox8.Name = "GroupBox8"
Me.GroupBox8.Size = New System.Drawing.Size(272, 56)
Me.GroupBox8.TabIndex = 7
Me.GroupBox8.TabStop = False
Me.GroupBox8.Text = "Datumsangaben"
'
'GroupBox6
'
Me.GroupBox6.Controls.Add(Me.txtbemerkung)
Me.GroupBox6.Location = New System.Drawing.Point(8, 72)
Me.GroupBox6.Name = "GroupBox6"
Me.GroupBox6.Size = New System.Drawing.Size(272, 280)
Me.GroupBox6.TabIndex = 31
Me.GroupBox6.TabStop = False
Me.GroupBox6.Text = "Bemerkungen"
'
'cbzustaendiger
'
Me.cbzustaendiger.Location = New System.Drawing.Point(400, 424)
Me.cbzustaendiger.Name = "cbzustaendiger"
Me.cbzustaendiger.Size = New System.Drawing.Size(192, 21)
Me.cbzustaendiger.TabIndex = 33
Me.cbzustaendiger.Text = "cbzustaendiger"
Me.cbzustaendiger.Visible = False
'
'BtnHelp
'
Me.BtnHelp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.BtnHelp.Image = CType(resources.GetObject("BtnHelp.Image"), System.Drawing.Image)
Me.BtnHelp.Location = New System.Drawing.Point(711, 1)
Me.BtnHelp.Name = "BtnHelp"
Me.BtnHelp.Size = New System.Drawing.Size(24, 23)
Me.BtnHelp.TabIndex = 69
'
'frmBLDruck
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(738, 454)
Me.Controls.Add(Me.BtnHelp)
Me.Controls.Add(Me.cbzustaendiger)
Me.Controls.Add(Me.TabControl1)
Me.Controls.Add(Me.cbverantwortlich)
Me.Controls.Add(Me.btnWeiter)
Me.Controls.Add(Me.btnAbbruch)
Me.Controls.Add(Me.cbdokumentstatus)
Me.Controls.Add(Me.cbgrundlage1)
Me.Controls.Add(Me.dtgrundlage1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmBLDruck"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Druck BL-Dossier: "
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox4.ResumeLayout(False)
Me.GroupBox4.PerformLayout()
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox3.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox5.ResumeLayout(False)
Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.GroupBox10.ResumeLayout(False)
Me.GroupBox10.PerformLayout()
Me.TabPage2.ResumeLayout(False)
Me.GroupBox7.ResumeLayout(False)
Me.GroupBox9.ResumeLayout(False)
CType(Me.drpMiatarbeiter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Notizlist, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox8.ResumeLayout(False)
Me.GroupBox6.ResumeLayout(False)
Me.GroupBox6.PerformLayout()
Me.ResumeLayout(False)
End Sub
#End Region
#Region "Deklarationen"
Dim auslieferungnr As Integer
Dim Editmode As Boolean = False
Dim m_nrpar00 As Integer
Property NRPAR00() As Integer
Get
Return m_nrpar00
End Get
Set(ByVal Value As Integer)
m_nrpar00 = Value
End Set
End Property
Dim m_bkpar00 As String
Property BKPAR00() As String
Get
Return m_bkpar00
End Get
Set(ByVal Value As String)
m_bkpar00 = Value
End Set
End Property
Dim m_profilnr As Integer
Property Profilnr() As Integer
Get
Return m_profilnr
End Get
Set(ByVal Value As Integer)
m_profilnr = Value
End Set
End Property
Dim Dokumenttyp As New edokadb.clsDokumenttyp()
Dim doc As New edokadb.clsDokument()
Dim Dokumenttypnr As Integer = 469
Dim w As New WordLib()
Dim tbldokumentwerte As New DataTable()
Dim WithEvents mcbstatus As MultiComboBox
Dim WithEvents mcbzust As MultiComboBox
Dim WithEvents mcbverantwortlich As MultiComboBox
Dim WithEvents mcbblv As MultiComboBox
Dim WithEvents mcbkube As MultiComboBox
Dim WithEvents mcbunterschriftrechts As MultiComboBox
Dim mcbteam As MultiComboBox
Dim SaveStatus As Integer = 0
Dim FirstStatus As Integer = 0
Dim SaveVerantwortlicher As Integer = 0
Dim Dokumentid As String = ""
Dim CreateDocument As Boolean = True
Dim TeamZustaendig As Integer
Dim CreateNew As Boolean
Dim i As Integer
Dim tblperi As New DataTable()
Dim tblblkunde As New DataTable()
Dim Notizen As New DataTable()
Dim dokumenteab As DateTime
Dim dokumentebis As DateTime
Dim Aushaendigungnr As Integer
Dim m_Bldossier As DataTable
Property BLDossier() As DataTable
Get
Return m_Bldossier
End Get
Set(ByVal Value As DataTable)
m_Bldossier = Value
End Set
End Property
Dim m_onload As Boolean = True
#End Region
#Region "Load"
Public Sub New(ByVal bkpar00 As String, ByVal nrpar00 As Integer, ByVal profilnr As Integer, ByVal createnew As Boolean)
MyBase.New()
InitializeComponent()
Me.Text = Me.Text + bkpar00
Me.BKPAR00 = bkpar00
Me.NRPAR00 = nrpar00
Me.Profilnr = profilnr
Me.CreateNew = createnew
End Sub
#End Region
Dim EditDok As New edokadb.clsEDEX_BL_Auslieferung()
Dim EditDoc As New edokadb.clsDokument()
#Region "Formularhandling"
Public Sub New(ByVal Auslieferungnr As Integer)
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
Me.auslieferungnr = Auslieferungnr
Me.Editmode = True
Me.CreateDocument = False
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
Private Sub frmBLDruck_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Me.Editmode = True Then
EditDok.cpMainConnectionProvider = conn
EditDok.iAuslieferungnr = New SqlInt32(CType(Me.auslieferungnr, Int32))
EditDok.SelectOne()
Me.NRPAR00 = EditDok.iNrpar00.Value
Me.BKPAR00 = Me.get_partnerkurzebezeichnung
Else
Me.txtAnredeZusteller.Text = DivFnkt.get_parnter_anrede(Me.NRPAR00)
End If
'BUD - 25.10.2006 - Setzten der Globals BCK auf False weil dies sonst komisch ist
Globals.bckdokument = False
Me.Text = Me.Text + Me.BKPAR00
Load_Defaults()
Load_Partnerdata()
Load_Notizen()
If Me.Editmode = True Then
Load_EditDok()
Else
Me.cbDel2Page.Checked = True
Dim i1
If Me.mcbkube.Text <> "" Then
i = Me.mcbkube.SelectedValue
End If
Me.mcbunterschriftrechts.SelectedValue = i
End If
Get_Anhaenge()
Me.cbgrundlage1.Checked = False
m_onload = False
Me.rbverschlossen.Checked = True
Me.rbnichtverschlossen.Checked = False
End Sub
Private Sub Load_EditDok()
EditDok.cpMainConnectionProvider = conn
EditDok.iAuslieferungnr = New SqlInt32(CType(Me.auslieferungnr, Int32))
EditDok.SelectOne()
Me.cbgrundlage1.Checked = EditDok.bGrundlage1.Value = True
Me.cbgrundlage2.Checked = EditDok.bGrundlage2.Value = True
Me.cbgrundlage3.Checked = EditDok.bGrundlage3.Value = True
Me.cbgrundlage4.Checked = EditDok.bGrundlage4.Value = True
Me.dtgrundlage1.Value = EditDok.daGrundlage1_Datum.Value
Me.dtgrundlage2.Value = EditDok.daGrundlage2_Datum.Value
Me.dtgrundlage3.Value = EditDok.daGrundlage3_Datum.Value
Me.dtgrundlage4.Value = EditDok.daGrundlage4_Datum.Value
Me.rbAushaendigungBLV.Checked = EditDok.bAushaendigung_blv.Value = True
Me.rbAushaendigungKube.Checked = EditDok.bAushaendigung_kube.Value = True
Me.mcbblv.SelectedValue = EditDok.iBlv.Value
Me.mcbkube.SelectedValue = EditDok.iKube.Value
Me.rbpersoenlich.Checked = EditDok.bAushaendigungsart_persoenlich.Value = True
Me.rbzustellungpost.Checked = EditDok.bAushaendigungsart_post.Value = True
Me.cbDel2Page.Checked = EditDok.bBeilage_zur_Quittung1.Value = True
Me.rbverschlossen.Checked = EditDok.bAushaendigung_verschlossen.Value = True
Me.rbnichtverschlossen.Checked = EditDok.bAushaendigung_nicht_verschlossen.Value = True
'Me.cbbeilage1.Checked = EditDok.bBeilage_zur_Quittung1.Value = True
Me.cbbeilage2.Checked = EditDok.bBeilage_zur_Quittung2.Value = True
Me.cbbeilage3.Checked = EditDok.bBeilage_zur_Quittung3.Value = True
Me.txtBeilage.Text = EditDok.sBeilage_zur_Quittung_text.Value
Me.txtbemerkung.Text = EditDok.sBemerkung.Value
Me.EditDoc.cpMainConnectionProvider = conn
EditDoc.sDokumentid = New SqlString(CType(Me.EditDok.sDokumentid_quittung.Value, String))
EditDoc.SelectOne()
Me.DateTimePicker1.Value = Me.EditDoc.daErstelltam.Value
Me.txtZustelladresse.Text = Me.EditDoc.sZustelladresse.Value
Me.txtAnredeZusteller.Text = Me.EditDoc.sAnredezustelladresse.Value
Dim ii As Integer
ii = EditDoc.iUnterschriftrechts.Value
Me.mcbunterschriftrechts.SelectedValue = ii
'If Me.cbDel2Page.Checked = False Then
' Me.txtZustelladresse.Enabled = False
' Me.txtAnredeZusteller.Enabled = False
' Me.grpZustelladresse.Enabled = False
' Me.txtZustelladresse.Text = ""
' Me.txtAnredeZusteller.Text = ""
' Me.lblUnterschrift1.Visible = False
' Me.cbUnterschriftrechts.Visible = False
' Me.mcbunterschriftrechts.Visible = False
'Else
' Me.grpZustelladresse.Enabled = True
' Me.txtZustelladresse.Enabled = True
' Me.txtAnredeZusteller.Enabled = True
' Me.lblUnterschrift1.Visible = True
' Me.cbUnterschriftrechts.Visible = True
' Me.mcbunterschriftrechts.Visible = True
'End If
End Sub
Private Sub Load_Defaults()
'Partner auslesen
Dim p As New edokadb.clsPartner()
p.cpMainConnectionProvider = conn
p.iNRPAR00 = New SqlInt32(CType(Me.NRPAR00, Int32))
p.SelectOne()
'Dokumenttyp auslesen
Dokumenttyp.cpMainConnectionProvider = conn
Me.Dokumenttypnr = get_bldokumenttyp()
Dokumenttyp.iDokumenttypnr = New SqlInt32(CType(Me.Dokumenttypnr, Int32))
Dokumenttyp.SelectOne()
'Auslieferung erstellen
Dim auslieferung As New edokadb.clsEDEX_BL_Auslieferung()
auslieferung.cpMainConnectionProvider = conn
auslieferung.bAktiv = New SqlBoolean(CType(True, Boolean))
auslieferung.iNrpar00 = New SqlInt32(CType(Me.NRPAR00, Int32))
'Dokumentwerte zusammenstellen
tbldokumentwerte = Get_Dokumentwerte(1)
'Intere Statustabelle erstellen und Status auf "In Bearbeitung setzen"
Me.mcbstatus = New MultiComboBox(Me.cbdokumentstatus)
Me.mcbstatus.CheckNullValue = True
Me.mcbstatus.NullValueMessage = MyTxt.gettext(18)
Me.mcbstatus.DisplayColumnName = "Bezeichnung"
Me.mcbstatus.ValueColumnName = "dokumentstatusnr"
Me.mcbstatus.Fill_Data(Generic_Select(2), False)
Me.mcbstatus.SelectedIndex = 0
'Interne ZuständigerTabelle
Dim ii As Integer = 0
mcbzust = New MultiComboBox(Me.cbzustaendiger)
Me.mcbzust.DisplayColumnName = "name"
Me.mcbzust.ValueColumnName = "mitarbeiternr"
Me.mcbzust.Fill_Data(Generic_Select(3), False)
ii = Globals.MitarbeiterNr
Me.mcbzust.SelectedValue = ii
Me.TeamZustaendig = Globals.MitarbeiterNr
'Interne Liste mit Verantwortlichen
Me.mcbverantwortlich = New MultiComboBox(cbverantwortlich)
Me.mcbverantwortlich.DisplayColumnName = "mitarbeiter"
Me.mcbverantwortlich.ValueColumnName = "mitarbeiternr"
FillMcbVerantwortlich()
Me.mcbteam = New MultiComboBox(Me.cbteam)
Me.mcbteam.Visible = True
Me.mcbteam.CheckNullValue = True
Me.mcbteam.NullValueMessage = MyTxt.gettext(18)
Me.mcbteam.DisplayColumnName = "bezeichnung"
Me.mcbteam.ValueColumnName = "teamnr"
refresh_team()
Me.mcbstatus.SelectedIndex = 0
Me.SaveStatus = Me.mcbstatus.SelectedValue
Me.FirstStatus = Me.SaveStatus
Me.SaveVerantwortlicher = Globals.MitarbeiterNr
Me.mcbblv = New MultiComboBox(Me.cbblv)
Me.mcbblv.CheckNullValue = True
Me.mcbblv.NullValueMessage = MyTxt.gettext(18)
Me.mcbblv.DisplayColumnName = "mitarbeiter"
Me.mcbblv.ValueColumnName = "mitarbeiternr"
Me.mcbblv.Fill_Data(Get_blvs, False)
Dim i As Integer
i = Globals.MitarbeiterNr
Me.mcbblv.SelectedValue = i
Me.mcbkube = New MultiComboBox(Me.cbkube)
Me.mcbkube.CheckNullValue = True
Me.mcbkube.NullValueMessage = MyTxt.gettext(18)
Me.mcbkube.DisplayColumnName = "mitarbeiter"
Me.mcbkube.ValueColumnName = "mitarbeiternr"
Me.mcbkube.Fill_Data(Get_kubes, False)
Me.rbAushaendigungBLV.Checked = True
Dim zkube As Integer = Me.get_zustaendiger_kube
Me.mcbzust.SelectedValue = zkube
'KUBE Positionieren, sofern er auch in der Liste ist
Try
Me.mcbkube.SelectedValue = zkube
Catch
End Try
Me.mcbunterschriftrechts = New MultiComboBox(Me.cbUnterschriftrechts)
Me.mcbunterschriftrechts.CheckNullValue = True
Me.mcbunterschriftrechts.NullValueMessage = MyTxt.gettext(18)
Me.mcbunterschriftrechts.DisplayColumnName = "mitarbeiter"
Me.mcbunterschriftrechts.ValueColumnName = "mitarbeiternr"
Me.mcbunterschriftrechts.Fill_Data(Me.Get_Mitarbeiter, True)
End Sub
Private Sub Load_Partnerdata()
Me.tblperi = get_peridata()
Me.cbgrundlage1.Checked = False
If Me.tblperi.Rows.Count > 0 Then
Me.cbgrundlage3.Checked = True
Me.dtgrundlage3.Value = Me.tblperi.Rows(0).Item("auftragsdatum")
Else
Me.cbgrundlage3.Enabled = False
Me.dtgrundlage3overlay.Visible = True
End If
End Sub
Private Sub rbzustellungpost_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
If Me.rbzustellungpost.Checked = True Then
Me.rbnichtverschlossen.Checked = False
Me.rbverschlossen.Checked = True
Me.GroupBox2.Enabled = False
Else
Me.GroupBox2.Enabled = True
End If
End Sub
Private Sub btnAbbruch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbbruch.Click
Me.DialogResult = DialogResult.Cancel
Me.Close()
End Sub
Private Sub cbzustaendiger_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Try
Me.TeamZustaendig = Me.mcbzust.SelectedValue
refresh_team()
Catch
End Try
End Sub
#End Region
#Region "Datenhandling"
Private Function get_partnerkurzebezeichnung() As String
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.sp_edex_bl_get_bkpar00"
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("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.NRPAR00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bkpar00", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
sdaAdapter.Fill(dtToReturn)
Return scmCmdToExecute.Parameters("@bkpar00").Value
Catch ex As Exception
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
dtToReturn.Dispose()
End Try
End Function
Private Function Generic_Select(ByVal typ As Integer) As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Select Case typ
Case 2 'benötigt
scmCmdToExecute.CommandText = "SP_Dokumentbearbeitung_StatusSelektion"
Case 3 'Benötigt
scmCmdToExecute.CommandText = "SP_Dokumentbearbeitung_Mitarbeiter"
Case 4
scmCmdToExecute.CommandText = "SP_Dokumentbearbeitung_Notizen"
Case 5
scmCmdToExecute.CommandText = "sp_funktion_zuweisung_gestattet"
Case 7 'Benötigt
'scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_team"
scmCmdToExecute.CommandText = "dbo.SP_edex_bl_team"
Case 8
scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_kube"
Case 9
scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_coldindex"
Case 10
scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_dokumentwerte_select"
Case 11
scmCmdToExecute.CommandText = "sp_dokument_als_bcdokument"
Case 12
scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_statushistory"
Case 13
scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_ist_kundenberater"
Case 14
scmCmdToExecute.CommandText = "sp_archiv_getschema_doc"
Case 15
scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_statuswechsel"
Case 16
scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_statuswechsel_funktionen"
Case 17
'Mitarbeiter
scmCmdToExecute.CommandText = "dbo.SP_ValueSelect"
Case 18
scmCmdToExecute.CommandText = "dbo.sp_bl_anhang"
Case Else
End Select
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.Connection = conn.scoDBConnection
Try
Select Case typ
Case 2
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumenttypnr))
If Me.Dokumentid = Nothing Then Me.Dokumentid = ""
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
If Me.CreateDocument = True Then
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
Else
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
End If
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
If Globals.bckdokument = False Then
scmCmdToExecute.Parameters.Add(New SqlParameter("@bck", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
Else
scmCmdToExecute.Parameters.Add(New SqlParameter("@bck", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
End If
Case 5
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
Case 7
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.NRPAR00))
'If Me.TeamZustaendig = Globals.MitarbeiterNr Then
' scmCmdToExecute.Parameters.Add(New SqlParameter("@profilnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.TeamZustaendig))
' ' scmCmdToExecute.Parameters.Add(New SqlParameter("@profilnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Profilnr))
' ' scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
'Else
' scmCmdToExecute.Parameters.Add(New SqlParameter("@profilnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.TeamZustaendig))
'End If
Case 8
scmCmdToExecute.Parameters.Add(New SqlParameter("@partnernr", SqlDbType.VarChar, 20, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.NRPAR00))
Case 9
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
Case 10
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
Case 11
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
Case 12
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
Case 13
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.NRPAR00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
Case 14
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumenttypnr))
Case 15
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@currentstatus", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
Case 16
'scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
'scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
'scmCmdToExecute.Parameters.Add(New SqlParameter("@currentstatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.selectedstatus))
Case 17
scmCmdToExecute.Parameters.Add(New SqlParameter("@Datenherkunft", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "&AlleMitarbeiter&"))
Case 18
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
Case Else
End Select
If typ = 1 Then
End If
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Private Function Get_Dokumentwerte(ByVal CreateNew As Integer) As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.SP_Dokumentbearbeitung_Dokumentwerte"
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("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumenttyp.iDokumenttypnr.Value))
scmCmdToExecute.Parameters.Add(New SqlParameter("@createnew", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, CreateNew))
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
dtToReturn.Dispose()
End Try
End Function
Private Function get_peridata() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.sp_edex_bl_get_peridata"
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("@blkundenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.NRPAR00))
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
dtToReturn.Dispose()
End Try
End Function
Private Function Get_blvs() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.sp_edex_bl_get_blv"
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("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
dtToReturn.Dispose()
End Try
End Function
Private Function Get_kubes() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.sp_edex_bl_get_kube"
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("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.NRPAR00))
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
dtToReturn.Dispose()
End Try
End Function
Private Function Get_Mitarbeiter() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.sp_edex_bl_get_Mitarbeiter"
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
#End Region
#Region "Dokumenterstellung"
Private Sub btnWeiter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWeiter.Click
'Dokument erstellen
' MyMsg.show_standardmessage(616, MsgBoxStyle.Critical)
' Exit Sub
'End If
If Me.rbAushaendigungKube.Checked = True And Me.mcbkube.Text = "" Then
MyMsg.show_standardmessage(617, MsgBoxStyle.Critical)
Exit Sub
End If
If Me.CreateDocument = True Then
Dokumentid = DivFnkt.Generate_Key()
Else
Dokumentid = EditDoc.sDokumentid.Value
End If
If Not Save_Aushaendigungsquittung() Then Exit Sub
Set_Dokumentwerte()
Set_Zustaendiger()
Dokument_Bearbeiten(Me.CreateDocument)
'EDOKA Rel. 5.1
If Me.cbDel2Page.Checked = True And Trim(Me.txtZustelladresse.Text) = "" Then
MyMsg.show_standardmessage(612, MsgBoxStyle.Critical)
Exit Sub
End If
'If Me.cbDel2Page.Checked = True And Me.mcbunterschriftrechts.Text = "" Then
If Me.cbbeilage.SelectedValue > 0 Then
Try
Anhang_Erstellen(Me.cbbeilage.SelectedValue)
Catch ex As Exception
End Try
End If
End Sub
Private Function Save_Aushaendigungsquittung() As Boolean
If Me.Editmode = False Then
Me.dokumentebis = Now
If letzte_auslieferung() = False Then
Dim f As New frmBLDatumab()
f.ShowDialog()
If f.DialogResult = DialogResult.Abort Then Return False
Me.dokumenteab = f.DateTimePicker1.Value
Else
End If
Else
End If
Dim Quittung As New edokadb.clsEDEX_BL_Auslieferung()
Quittung.cpMainConnectionProvider = conn
If Me.Editmode = True Then
Quittung.iAuslieferungnr = New SqlInt32(CType(Me.auslieferungnr, Int32))
Quittung.SelectOne()
Me.dokumentebis = Quittung.daDokumentebis.Value
Me.dokumenteab = Quittung.daDokumenteab.Value
End If
Quittung.sBezeichnung = New SqlString(CType("", String))
Quittung.sDokumentid_quittung = New SqlString(CType(Me.Dokumentid, String))
Quittung.sQuittungsflag = New SqlString(CType("", String))
Quittung.iNrpar00 = New SqlInt32(CType(Me.NRPAR00, Int32))
If Me.Editmode = False Then
Quittung.iStatus = New SqlInt32(CType(0, Int32))
Quittung.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
End If
Quittung.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
Quittung.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
Quittung.bAktiv = New SqlBoolean(CType(True, Boolean))
Quittung.bGrundlage1 = New SqlBoolean(CType(Me.cbgrundlage1.Checked, Boolean))
Quittung.bGrundlage2 = New SqlBoolean(CType(Me.cbgrundlage2.Checked, Boolean))
Quittung.bGrundlage3 = New SqlBoolean(CType(Me.cbgrundlage3.Checked, Boolean))
Quittung.bGrundlage4 = New SqlBoolean(CType(Me.cbgrundlage4.Checked, Boolean))
Quittung.daGrundlage1_Datum = New SqlDateTime(CType(Me.dtgrundlage1.Value, DateTime))
Quittung.daGrundlage2_Datum = New SqlDateTime(CType(Me.dtgrundlage2.Value, DateTime))
Quittung.daGrundlage3_Datum = New SqlDateTime(CType(Me.dtgrundlage3.Value, DateTime))
Quittung.daGrundlage4_Datum = New SqlDateTime(CType(Me.dtgrundlage4.Value, DateTime))
Quittung.bAushaendigung_blv = New SqlBoolean(CType(Me.rbAushaendigungBLV.Checked, Boolean))
Quittung.bAushaendigung_kube = New SqlBoolean(CType(Me.rbAushaendigungKube.Checked, Boolean))
Quittung.bAushaendigungsart_persoenlich = New SqlBoolean(CType(Me.rbpersoenlich.Checked, Boolean))
Quittung.bAushaendigungsart_post = New SqlBoolean(CType(Me.rbzustellungpost.Checked, Boolean))
Quittung.bAushaendigung_verschlossen = New SqlBoolean(CType(Me.rbverschlossen.Checked, Boolean))
Quittung.bAushaendigung_nicht_verschlossen = New SqlBoolean(CType(Me.rbnichtverschlossen.Checked, Boolean))
'Quittung.bAushaendigung_verschlossen = New SqlBoolean(CType(False, Boolean))
'Quittung.bAushaendigung_nicht_verschlossen = New SqlBoolean(CType(False, Boolean))
Quittung.bBeilage_zur_Quittung1 = New SqlBoolean(CType(Me.cbbeilage1.Checked, Boolean))
Quittung.bBeilage_zur_Quittung1 = New SqlBoolean(CType(Me.cbDel2Page.Checked, Boolean))
Quittung.bBeilage_zur_Quittung2 = New SqlBoolean(CType(Me.cbbeilage2.Checked, Boolean))
Quittung.bBeilage_zur_Quittung3 = New SqlBoolean(CType(Me.cbbeilage3.Checked, Boolean))
Quittung.sBeilage_zur_Quittung_text = New SqlString(CType(Me.txtBeilage.Text, String))
Quittung.sBemerkung = New SqlString(CType(Me.txtbemerkung.Text, String))
Quittung.iBlv = New SqlInt32(CType(Me.mcbblv.SelectedValue, Int32))
Quittung.iKube = New SqlInt32(CType(Me.mcbkube.SelectedValue, Int32))
If Me.Editmode = False Then
Quittung.daDokumenteab = New SqlDateTime(CType(Me.dokumenteab, DateTime))
Quittung.daDokumentebis = New SqlDateTime(CType(Me.dokumentebis, DateTime))
conn.OpenConnection()
Quittung.Insert()
conn.CloseConnection(True)
Me.Aushaendigungnr = Quittung.iAuslieferungnr.Value
Quittung.Dispose()
Else
conn.OpenConnection()
Quittung.Update()
conn.CloseConnection(True)
Me.Aushaendigungnr = Quittung.iAuslieferungnr.Value
Quittung.Dispose()
End If
Return True
End Function
Private Sub Set_Zustaendiger()
Dim i As Integer
i = get_zustaendiger_kube()
Me.mcbzust.SelectedValue = i
End Sub
Private Sub Set_Dokumentwerte()
Dim bldata As New edokadb.clsEdex_bl_parameter()
bldata.cpMainConnectionProvider = conn
bldata.iBlvparamnr = New SqlInt32(CType(1, Int32))
bldata.SelectOne()
w.bldokument = True
If Me.rbAushaendigungBLV.Checked = True Then
w.bldelquittungkube = True
w.BLUnterschrift1 = ""
w.BLUnterschrift2 = Me.get_name_aushaendigung(Me.mcbblv.SelectedValue)
If Me.rbpersoenlich.Checked = False Then
w.BLQuittungstext = bldata.sTxtQuittung2.Value
Else
w.BLQuittungstext = bldata.sTxtQuittung1.Value
w.BLUnterschrift2 = DivFnkt.get_parnter_namevorname(Me.NRPAR00) + MyTxt.gettext(737)
End If
Else
w.bldelquittungkube = False
w.BLUnterschrift1 = Me.get_name_aushaendigung(Me.mcbkube.SelectedValue)
w.BLUnterschrift2 = DivFnkt.get_parnter_namevorname(Me.NRPAR00) + MyTxt.gettext(737)
w.BLQuittungstext = bldata.sTxtQuittung1.Value
End If
If Me.cbDel2Page.Checked = True Then
w.BLDel2Page = False
Else
w.BLDel2Page = True
End If
' w.BLDel2Page = Me.cbDel2Page.Checked = True
Dim i As Integer
For i = 0 To Me.tbldokumentwerte.Rows.Count - 1
Select Case tbldokumentwerte.Rows(i).Item(6)
Case "&BLBeilage&"
Dim S As String = ""
If Me.cbbeilage1.Checked Then
' If S <> "" Then S = S + vbCrLf
If S <> "" Then S = S + Chr(11)
S = S + bldata.sTxtbeilage1.Value
End If
If Me.cbbeilage2.Checked Then
If S <> "" Then S = S + Chr(11)
' If S <> "" Then S = S + vbCrLf
S = S + bldata.sTxtbeilage2.Value
End If
If Me.cbbeilage3.Checked Then
'If S <> "" Then S = S + vbCrLf
If S <> "" Then S = S + Chr(11)
S = S + Me.txtBeilage.Text
End If
tbldokumentwerte.Rows(i).Item(2) = s
Case "&BLBemerkung&"
tbldokumentwerte.Rows(i).Item(2) = Me.txtbemerkung.Text
Case "&BLArt&"
If Me.rbpersoenlich.Checked Then
tbldokumentwerte.Rows(i).Item(2) = bldata.sTxtArt1
Else
tbldokumentwerte.Rows(i).Item(2) = bldata.sTxtArt2
End If
Case "&BLForm&"
If Me.rbnichtverschlossen.Checked Then
tbldokumentwerte.Rows(i).Item(2) = bldata.sTxtForm1.Value
Else
tbldokumentwerte.Rows(i).Item(2) = bldata.sTxtForm2.Value
End If
Case "&BLAushaendigung&"
Dim s As String
If Me.rbAushaendigungBLV.Checked Then
tbldokumentwerte.Rows(i).Item(2) = Me.get_name_aushaendigung(Me.mcbblv.SelectedValue)
Else
tbldokumentwerte.Rows(i).Item(2) = Me.get_name_aushaendigung(Me.mcbkube.SelectedValue)
End If
Case "&BLDokumenteAb&"
tbldokumentwerte.Rows(i).Item(2) = Me.dokumenteab.ToShortDateString
Case "&BLDokumentebis&"
tbldokumentwerte.Rows(i).Item(2) = Me.dokumentebis.ToShortDateString
Case "&BLGrund&"
Dim s As String = ""
If Me.cbgrundlage1.Checked = True Then
'If s <> "" Then s = s + vbCrLf
If s <> "" Then s = s + Chr(11)
s = s + bldata.sTxtGrundlage1.Value
s = s.Replace("#Datum#", Me.dtgrundlage1.Value.ToShortDateString)
End If
If Me.cbgrundlage2.Checked = True Then
' If s <> "" Then s = s + vbCrLf
If s <> "" Then s = s + Chr(11)
s = s + bldata.sTxtGrundlage2.Value
s = s.Replace("#Datum#", Me.dtgrundlage2.Value.ToShortDateString)
End If
If Me.cbgrundlage3.Checked = True Then
' If s <> "" Then s = s + vbCrLf
If s <> "" Then s = s + Chr(11)
s = s + bldata.sTxtGrundlage4.Value
s = s.Replace("#Datum#", Me.dtgrundlage3.Value.ToShortDateString)
End If
If Me.cbgrundlage4.Checked = True Then
' If s <> "" Then s = s + vbCrLf
If s <> "" Then s = s + Chr(11)
s = s + bldata.sTxtGrundlage3.Value
s = s.Replace("#Datum#", Me.dtgrundlage4.Value.ToShortDateString)
End If
tbldokumentwerte.Rows(i).Item(2) = s
'EDOKA Rel 5.1
If Me.cbgrundlage5.Checked = True Then
' If s <> "" Then s = s + vbCrLf
If s <> "" Then s = s + Chr(11)
s = s + MyMsg.Get_Meldungstext(100000)
End If
tbldokumentwerte.Rows(i).Item(2) = s
Case Else
End Select
Next
bldata.Dispose()
End Sub
Private Sub Dokument_Bearbeiten(ByVal neu As Boolean)
Try
w.txtPartner = Me.BKPAR00
w.txtDokumenttyp = ""
w.ProgressBar.Show()
w.ProgressBar.Bar1a.Value = 5
w.ProgressBar.Info.Text = "Dokumentdaten speichern"
'w.txtBemerkung_Verantwortlicher = Me.txtBemerkungVerantwortlicher
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
Dim dbkey As New edokadb.clsMyKey_Tabelle()
Dim docvor As New edokadb.clsOffice_vorlage()
'OfficeVorlage laden
docvor.cpMainConnectionProvider = conn
docvor.iOffice_vorlagenr = New SqlInt32(CType(Dokumenttyp.iOffice_vorlagenr.Value, Int32))
docvor.SelectOne()
'Rel. OM2010
If DivFnkt.Get_Office_2010_Param(9) = "True" Then
Dim i As Integer
Dim f1 As New frmImportOffice2010(0)
i = f1.Get_Applikationnr(docvor.iOffice_vorlagenr.Value)
If i <> 0 Then
docvor.iAnwendungnr = New SqlInt32(CType(i, Int32))
End If
f1.Dispose()
End If
doc.cpMainConnectionProvider = conn
If Me.CreateDocument Then
doc.sDokumentid = New SqlString(CType(Dokumentid, String))
DivFnkt.Status_Dokumentbearbeitung(1, doc.sDokumentid.Value, True, "")
Else
'shu 20050505
doc.sDokumentid = New SqlString(CType(Dokumentid, String))
doc.SelectOne()
End If
doc.iDokumenttypnr = New SqlInt32(CType(Me.Dokumenttypnr, Int32))
doc.iNrpar00 = New SqlInt32(CType(Me.NRPAR00, Int32))
doc.bAktiv = New SqlBoolean(True)
doc.bAmsdokument = New SqlBoolean(CType(False, Boolean))
doc.bAuserstuebernahme = New SqlBoolean(CType(False, Boolean))
doc.bAusgangsarchiviert = New SqlBoolean(CType(False, Boolean))
doc.daArchivierungsdatum = New SqlDateTime(CType(Now.ToShortDateString, DateTime))
doc.iStatus_edoka_batch_ausgang = Nothing
doc.daTermin = New SqlDateTime(CType("01.01.1900", DateTime))
doc.bBereit_zur_archivierung = New SqlBoolean(CType(False, Boolean))
'Hutter - anpassungen
If Me.mcbstatus.Text = "Bereit für Ausgangsarchivierung" Then
doc.bBereit_zur_archivierung = New SqlBoolean(CType(True, Boolean))
End If
doc.bEingangsarchiviert = New SqlBoolean(CType(False, Boolean))
doc.bGesperrt = New SqlBoolean(CType(False, Boolean))
doc.bUnvollstaendig = New SqlBoolean(CType(False, Boolean))
doc.bZu_retournieren = New SqlBoolean(CType(Me.Dokumenttyp.bZu_retournieren.Value, Boolean))
doc.iColdstatus = New SqlInt32(CType(0, Int32))
doc.iMutierertieam = New SqlInt32(CType(Me.mcbteam.SelectedValue, Int32))
If neu = True Then
doc.iErsteller = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
doc.iErstellerteam = New SqlInt32(CType(Me.mcbteam.SelectedValue, Int32))
doc.daErstelltam = New SqlDateTime(CType(Now, DateTime))
doc.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
doc.iMutiererteam = New SqlInt32(CType(Me.mcbteam.SelectedValue, Int32))
doc.daMutiertam = New SqlDateTime(CType(Now, DateTime))
If Globals.bckdokument Then
doc.iBck = New SqlInt32(CType(1, Int32))
Else
doc.iBck = New SqlInt32(CType(1, Int32))
End If
doc.iAufbewahrung_elektronisch = New SqlInt32(CType(Me.Dokumenttyp.iAufbewahrungsfrist_elektronisch.Value, Int32))
doc.iAufbewahrung_phaysisch = New SqlInt32(CType(Me.Dokumenttyp.iAufbewahrungsfrist_physisch.Value, Int32))
doc.iBearbeitung_nach_abschluss = New SqlInt32(CType(Me.Dokumenttyp.iTage_mutation.Value, Int32))
doc.iBearbeitungszeit_in_minuten = New SqlInt32(CType(Me.Dokumenttyp.iDbearbeitungszeit.Value, Int32))
doc.iMonierung_in_tagen = New SqlInt32(CType(Me.Dokumenttyp.iAnzahl_tage.Value, Int32))
Else
doc.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
doc.iMutierertieam = New SqlInt32(CType(Me.mcbteam.SelectedValue, Int32))
doc.daMutiertam = New SqlDateTime(CType(Now, DateTime))
End If
doc.iUnterschriftlinks = New SqlInt32(CType(0, Int32))
If Me.cbDel2Page.Checked = True Then
doc.iUnterschriftrechts = New SqlInt32(CType(Me.mcbunterschriftrechts.SelectedValue, Int32))
Else
doc.iUnterschriftrechts = New SqlInt32(CType(0, Int32))
End If
doc.iVerantwortlich = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
'doc.iVerantwortlich = New SqlInt32(CType(Me.mcbverantwortlich.SelectedValue, Int32))
'doc.iVerantwortlich = New SqlInt32(CType(Me.mcbverantwortlich.SelectedValue, Int32))
doc.bVertraulich = New SqlBoolean(CType(False, Boolean))
doc.sZustelladresse = New SqlString(CType(Me.txtZustelladresse.Text, String))
doc.sAnredezustelladresse = New SqlString(CType(Me.txtAnredeZusteller.Text, String))
'If Me.rbAushaendigungKube.Checked Then
doc.iZustaendiger = New SqlInt32(CType(Me.mcbzust.SelectedValue, Int32))
'Else
'doc.iZustaendiger = New SqlInt32(CType(Me.mcbblv.SelectedValue, Int32))
'nd If
doc.iPostzustellung = New SqlInt32(CType(0, Int32))
doc.bZustaendig_kube = New SqlBoolean(CType(True, Boolean))
doc.iGesperrt_durch = New SqlInt32(CType(0, Int32))
doc.iMa_ausgangsarchivierung = New SqlInt32(CType(0, Int32))
doc.iMa_eingangsarchivierung = New SqlInt32(CType(0, Int32))
doc.iMitarbeiternr = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
doc.sBemerkung = New SqlString(CType(Me.txtbemerkung.Text, String))
doc.sColddokumentid = New SqlString(CType("", String))
doc.sBezeichnung = New SqlString(CType(Me.Dokumenttyp.sBezeichnung.Value, String))
If Not Me.CreateDocument Then
doc.iStatusnr = New SqlInt32(CType(Me.mcbstatus.SelectedValue, Int32))
End If
doc.daErstellungsdatum = New SqlDateTime(CType(Me.DateTimePicker1.Value, DateTime))
'Rel. Office 2010
Select Case docvor.iAnwendungnr.Value
Case 1
doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".doc", String))
Case 2
doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".xls", String))
Case 3
doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".pdf", String))
Case 4
doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".docx", String))
Case 5
doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".docm", String))
Case 6
doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".dotx", String))
Case 7
doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".dotm", String))
Case 8
doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".xlsx", String))
Case 9
doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".xlsm", String))
Case 10
doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".xltx", String))
Case 11
doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".xltm", String))
Case Else
End Select
'If docvor.iAnwendungnr.Value = 1 Then
' doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".doc", String))
'Else
' doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".xls", String))
'End If
'Ende Rel. Office 2010
If Me.CreateDocument Then doc.iDokdurchkubeweitergegeben = New SqlInt32(CType(0, Int32))
If Not doc.iDokdurchkubeweitergegeben.Value = 1 Then
Dim tx As DataTable
tx = Generic_Select(13)
If tx.Rows(0).Item(0) = 1 Then
doc.iDokdurchkubeweitergegeben = New SqlInt32(CType(1, Int32))
Else
doc.iDokdurchkubeweitergegeben = New SqlInt32(CType(0, Int32))
End If
tx.Dispose()
End If
Dim s As String
s = DivFnkt.Get_Filename(doc.sDokumentname.Value, Me.NRPAR00.ToString)
conn.OpenConnection()
If Me.CreateDocument Then
Dim t As DataTable
t = Generic_Select(14)
doc.sColdfolder = New SqlString(CType(t.Rows(0).Item(0), String))
doc.sColdschema = New SqlString(CType(t.Rows(0).Item(1), String))
doc.iAnzeigeStatus = New SqlInt32(CType(0, Int32))
Try
doc.Insert()
Catch ex As Exception
MsgBox(ex.Message)
End Try
t.Dispose()
Dim statush As New Statushandling()
statush.Status_Erstellen(doc.sDokumentid.Value, 0)
statush.Dispose()
doc.iStatusnr = New SqlInt32(CType(get_current_Status(doc.sDokumentid.Value), Int32))
doc.sBedRDokumentid = New SqlString(CType("", String))
Else
Dim statush As New Statushandling()
Dim statusnr As Integer
statusnr = Bearbeitungsstatus(doc.sDokumentid.Value)
statush.insert_history_status(statusnr, Dokumentid, Me.mcbverantwortlich.SelectedValue)
statush.Dispose()
doc.iStatusnr = New SqlInt32(CType(statusnr, Int32))
conn.OpenConnection()
End If
doc.sBedRDokumentid = New SqlString(CType("", String))
doc.bBedRRetourniert = New SqlBoolean(CType(False, Boolean))
doc.Update()
DivFnkt.Journal_Dokumentzugriff(Me.Dokumentid, "Bearbeiten", 0, 0, "", "")
conn.CloseConnection(True)
Dokumentid = doc.sDokumentid.Value
Cold_Index_Bearbeiten(1, Dokumentid)
If Dokumenttyp.bZu_retournieren.Value = True Then
Cold_Index_Bearbeiten(2, Dokumentid)
End If
Globals.PerfMon.insert_entry("'-- Begin Dokumentdaten sichern")
Dokumentid = doc.sDokumentid.Value
Dokumentwerte_Sichern()
w.ProgressBar.Bar1a.Value = 7
w.ProgressBar.Info.Text = "Dokumentdaten speichern "
w.ProgressBar.Bar1a.Value = 9
w.ProgressBar.Info.Text = "Dokumentdaten speichern "
Status_History(doc.iStatusnr.Value, Dokumentid)
Globals.PerfMon.insert_entry("'-- Ende Dokumentdaten sichern")
w.ProgressBar.Show()
w.ProgressBar.Bar1a.Value = 11
w.ProgressBar.Info.Text = "Dokumentwerte zusammenstellen"
Globals.PerfMon.insert_entry("'-- Begin Dokumentwerte zusammenstellen")
Dim xdata As DataTable
xdata = Dokumentwerte(doc.sDokumentid.Value)
Globals.PerfMon.insert_entry("'--Ende Dokumentwerte zusammenstellen")
Dokumentid = doc.sDokumentid.Value
'Dokument erstellen bzw. öffnen
w.DokumentID = doc.sDokumentid.Value
w.DokumentName = doc.sDokumentname.Value
w.Dokumentidbr = ""
If Me.CreateDocument Or Me.Editmode Then
DivFnkt.TraceLog("Vor Dokumenterstellung")
w.CreateDoc = True
If w.Create_Dokument_Before_Fill(doc.iDokumenttypnr.Value, xdata, s, "") = False Then
w.ProgressBar.Visible = False
w.Restore(1)
Me.Cursor = Cursors.Default
Me.btnWeiter.Enabled = True
DivFnkt.Status_Dokumentbearbeitung(2, Me.Dokumentid, False, "")
Exit Sub
End If
Else
w.CreateDoc = False
Dim docrestore As New DocMgmt()
docrestore.Get_From_DB(Dokumentid, s)
w.Open_Document(s, xdata, doc.iDokumenttypnr.Value)
End If
Me.Hide()
If Globals.Dokumentcoldindex_Changed Then
w.dokumentidalt = Globals.Dokumentidalt
w.save_dokumentcoldindex = Globals.general_ds.Tables(Globals.general_ds.Tables.Count - 1).Copy
w.Dokumentcoldindex_Changed = Globals.Dokumentcoldindex_Changed
w.dokumentid_changed = Globals.dokumentid_changed
w.dokumentcoldindex_status = Globals.dokumentcoldindex_status
w.Ersetzte_Dokumente_Reaktivieren = Globals.Ersetzte_Dokumente_Reaktivieren
End If
'Anzeigen der Dokumentwerte, sofern die Checkbox markiert war
DivFnkt.TraceLog("Vor Dokument vervollständigen")
w.Dokument_Vervollstaendigen(xdata)
Globals.PerfMon.insert_entry(Me.Dokumentid + " Start Dokumentbearbeitung")
'Rel 4.03 - Sofern das Dokument bereits in der Words-Auflistung vorhanden ist, dieses löschen
Try
Words.Remove(w.DokumentName)
Catch ex As Exception
End Try
Words.Add(w, w.DokumentName)
xdata.Dispose()
doc.Dispose()
Globals.PerfMon.insert_entry(Me.Dokumentid + " Ende Dokumenterstellung")
Words.Remove(w.DokumentName)
Try
w.ProgressBar.Close()
w.ProgressBar.Dispose()
Catch
End Try
Dim f As New frmBLAuslieferungen()
f.MdiParent = Me.ParentForm
If Me.Editmode = False Then
f.Create_PrintJob(Me.Aushaendigungnr, Me.BLDossier)
End If
DivFnkt.Status_Dokumentbearbeitung(2, Me.Dokumentid, False, "")
Catch ex As Exception
If Me.CreateDocument = True Then
Dim q As New edokadb.clsEDEX_BL_Auslieferung()
q.cpMainConnectionProvider = conn
q.iAuslieferungnr = New SqlInt32(CType(Me.Aushaendigungnr, Int32))
q.SelectOne()
q.Delete()
q.Dispose()
End If
w.Close_And_Destroy()
Dim s As String
Globals.In_Bearbeitung = False
DivFnkt.Status_Dokumentbearbeitung(2, Me.Dokumentid, True, w.DokumentName)
s = Globals.MyTxt.gettext(98)
s = s + vbCrLf + vbCrLf + ex.Message
MsgBox(s, MsgBoxStyle.Critical)
PerfMon.force_insert_entry("Dok (N): " + ex.Message + "-" + " " + Me.Dokumenttypnr.ToString + " " + Me.Dokumenttyp.sBezeichnung.Value + " " + Me.BKPAR00 + ": ")
PerfMon.force_insert_entry("Dok (N): Wordlib Errormessage: " + w.Errormessage)
w.ProgressBar.Visible = False
Me.Cursor = Cursors.Default
If Me.CreateDocument Then w.Restore(1) Else w.Restore(2)
DivFnkt.Status_Dokumentbearbeitung(2, Me.Dokumentid, False, "")
Me.Cursor = Cursors.Default
Me.btnWeiter.Enabled = True
Me.Visible = True
Try
conn.CloseConnection(True)
Catch
End Try
End Try
End Sub
Private Function Bearbeitungsstatus(ByVal dokumentid As String) As Integer
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.SP_edex_bl_get_bearbeitungsstatus"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.Connection = conn.scoDBConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
scmCmdToExecute.Parameters.Add(New SqlParameter("@statusnr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
Try
conn.CloseConnection(True)
Catch
End Try
conn.OpenConnection()
sdaAdapter.Fill(dtToReturn)
Return scmCmdToExecute.Parameters.Item("@statusnr").Value
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("SP_edex_bl_get_bearbeitungsstatus::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
conn.CloseConnection(True)
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Private Function FillMcbVerantwortlich()
Dim dd As New DataTable()
Dim I As Integer
Dim s As String = ""
Try
I = Me.mcbverantwortlich.SelectedValue
If I = 0 Then I = Globals.MitarbeiterNr
Me.mcbverantwortlich.DataSource = Nothing
Me.mcbverantwortlich.Items.Clear()
dd = DivFnkt.Berechtigte_Mitarbeiter(Me.Dokumenttypnr, 0, Me.NRPAR00, "", 3, 0, 0, 0, s)
Me.mcbverantwortlich.Fill_Data(dd, False)
Me.mcbverantwortlich.SelectedValue = I
If Me.mcbverantwortlich.Items.Count = 0 Then
Me.mcbverantwortlich.Text = ""
Me.mcbverantwortlich.CheckNullValue = False
Else
Me.mcbverantwortlich.CheckNullValue = True
End If
Catch ex As Exception
Finally
dd.Clear()
dd.Dispose()
End Try
End Function
Public Sub refresh_team()
Dim tt As New DataTable()
tt = Generic_Select(7)
Me.mcbteam.DataSource = Nothing
Me.mcbteam.Items.Clear()
If tt.Rows.Count > 1 Then
Me.mcbteam.Fill_Data(tt, False)
Me.mcbteam.Enabled = True
Else
Me.mcbteam.Fill_Data(tt, False)
Me.mcbteam.Enabled = False
End If
If mcbteam.Items.Count <= 0 Then
MessageBox.Show(EDOKALib.BusinessFacade.Meldungstext.GetInhaltById(385), EDOKALib.Common.Consts.WARNUNG, MessageBoxButtons.OK, MessageBoxIcon.Warning)
btnWeiter.Enabled = False
Else
mcbteam.SelectedItem = 0
End If
tt.Dispose()
End Sub
Private Function get_zustaendiger_kube() As Integer
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.SP_edex_bl_get_kube_manr"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.Connection = conn.scoDBConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.NRPAR00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
sdaAdapter.Fill(dtToReturn)
Return scmCmdToExecute.Parameters.Item("@mitarbeiternr").Value
Catch ex As Exception
Return 0
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Private Function get_current_Status(ByVal dokumentid As String) As Long
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.SP_Dokumentbearbeitung_current_status"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.Connection = conn.scoDBConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@statustext", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.mcbstatus.Text))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
scmCmdToExecute.Parameters.Add(New SqlParameter("@currentstatus", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
sdaAdapter.Fill(dtToReturn)
get_current_Status = scmCmdToExecute.Parameters.Item("@currentstatus").Value
Return get_current_Status
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Private Function get_name_aushaendigung(ByVal mitarbeiternr As Integer) As String
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.sp_edex_bl_get_name_aushaendiger"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.Connection = conn.scoDBConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, mitarbeiternr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@name", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
sdaAdapter.Fill(dtToReturn)
Return scmCmdToExecute.Parameters.Item("@name").Value
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("get_name_aushändiger::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Public Sub Cold_Index_Bearbeiten(ByVal indextyp As Integer, ByVal dokumentid As String)
Dim xdata As DataTable
Dim cdata As DataTable
cdata = COLD_Index_Sichern(indextyp, dokumentid)
xdata = Me.tbldokumentwerte
For i = 0 To xdata.Rows.Count - 1
If xdata.Rows(i).Item("cold_indexfeld") Is System.DBNull.Value Then
Else
If xdata.Rows(i).Item("cold_indexfeld") > 0 Then
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.SP_Dokument_Cold_Index_Update"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn.scoDBConnection
scmCmdToExecute.Connection.Open()
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
scmCmdToExecute.Parameters.Add(New SqlParameter("@coldfeldnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, xdata.Rows(i).Item("cold_indexfeld")))
scmCmdToExecute.Parameters.Add(New SqlParameter("@value", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, xdata.Rows(i).Item("feldwert")))
scmCmdToExecute.ExecuteNonQuery()
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("Dokument_Cold_Index_Update::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Connection.Close()
scmCmdToExecute.Dispose()
End Try
End If
End If
Next
cdata.Dispose()
xdata.Dispose()
End Sub
Public Function COLD_Index_Sichern(ByVal indextyp As Integer, ByVal dokumentid As String) As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.SP_Dokument_Cold_Index"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.Connection = conn.scoDBConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
scmCmdToExecute.Parameters.Add(New SqlParameter("@indextyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, indextyp))
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Public Sub Dokumentwerte_Sichern()
Dim xdata As DataTable
xdata = Me.tbldokumentwerte
For i = 0 To xdata.Rows.Count - 1
If xdata.Rows(i).Item("cold_indexfeld") Is System.DBNull.Value Then xdata.Rows(i).Item("cold_indexfeld") = 0
If xdata.Rows(i).Item("cold_indexfeld") = 0 Then
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.SP_Dokument_Information_Wert"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn.scoDBConnection
scmCmdToExecute.Connection.Open()
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid))
scmCmdToExecute.Parameters.Add(New SqlParameter("@vorlagenfeldnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, xdata.Rows(i).Item("vorlagenfeldnr")))
scmCmdToExecute.Parameters.Add(New SqlParameter("@value", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, xdata.Rows(i).Item("feldwert")))
scmCmdToExecute.ExecuteNonQuery()
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Connection.Close()
scmCmdToExecute.Dispose()
End Try
End If
Next
xdata.Dispose()
End Sub
Private Function Dokumentwerte(ByVal dokumentid As String) As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.SP_Dokumentwerte"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.Connection = conn.scoDBConnection
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ierrorcode", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
Try
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Private Function get_bldokumenttyp() As Integer
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.SP_edex_bl_get_dokumenttypnr"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.Connection = conn.scoDBConnection
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
Try
sdaAdapter.Fill(dtToReturn)
Return scmCmdToExecute.Parameters("@dokumenttypnr").Value
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Private Function letzte_auslieferung() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.SP_edex_bl_get_letzte_auslieferung"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.Connection = conn.scoDBConnection
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.NRPAR00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@returncd", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
scmCmdToExecute.Parameters.Add(New SqlParameter("@datum", SqlDbType.DateTime, 8, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, Now))
Try
sdaAdapter.Fill(dtToReturn)
If scmCmdToExecute.Parameters("@returncd").Value = -1 Then Return False
Me.dokumenteab = scmCmdToExecute.Parameters("@datum").Value
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Private Function Status_History(ByVal statusnr As Long, ByVal dokumentid As String)
Dim statush As New Statushandling()
Dim i, i1 As Integer
If Me.SaveVerantwortlicher = Me.mcbverantwortlich.SelectedValue And Me.SaveStatus = Me.mcbstatus.SelectedValue And Not Me.CreateDocument And Me.mcbstatus.SelectedIndex = 0 Then
If Globals.dokumentcoldindex_status = "" Then
statush.Dispose()
Exit Function
End If
End If
If Me.CreateDocument Then
i = Me.mcbstatus.SelectedValue
Me.mcbstatus.SelectedIndex = 0
statush.insert_history_status(get_current_Status(dokumentid), dokumentid, Globals.MitarbeiterNr)
System.Threading.Thread.Sleep(1000)
Me.mcbstatus.SelectedValue = i
If Me.mcbstatus.SelectedIndex <> 0 Or Me.mcbverantwortlich.SelectedValue <> Me.SaveVerantwortlicher Then
statush.insert_history_status(get_current_Status(dokumentid), dokumentid, Me.mcbverantwortlich.SelectedValue)
End If
w.send_statusmessage = True
Else
If Me.mcbstatus.SelectedValue <> Me.SaveStatus Or Me.mcbstatus.SelectedIndex <> 0 Or Globals.dokumentcoldindex_status <> "" Then
i = Me.mcbstatus.SelectedValue
Me.mcbstatus.SelectedIndex = 0
Me.SaveStatus = Me.mcbstatus.SelectedValue
statush.insert_history_status(Me.mcbstatus.SelectedValue, dokumentid, Globals.MitarbeiterNr)
w.send_statusmessage = True
Me.mcbstatus.SelectedValue = i
System.Threading.Thread.Sleep(1000)
End If
If Me.mcbstatus.SelectedValue <> Me.SaveStatus Or Me.mcbverantwortlich.SelectedValue <> Me.SaveVerantwortlicher Then
statush.insert_history_status(Me.mcbstatus.SelectedValue, dokumentid, Me.mcbverantwortlich.SelectedValue)
End If
End If
statush.Dispose()
End Function
#End Region
'''Akiviert oder deaktiviert die Datumsselektionsfelder je
'''Checkbox
'''
'''
Private Sub cbgrundlage_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbgrundlage1.CheckedChanged, cbgrundlage2.CheckedChanged, cbgrundlage3.CheckedChanged, cbgrundlage4.CheckedChanged
Dim tmpcheckbox As CheckBox
tmpcheckbox = sender
Select Case tmpcheckbox.Name
Case "cbgrundlage1"
If tmpcheckbox.Checked Then Me.dtgrundlage1.Enabled = False Else Me.dtgrundlage1.Enabled = False
Case "cbgrundlage2"
If tmpcheckbox.Checked Then Me.dtgrundlage2.Enabled = True Else Me.dtgrundlage2.Enabled = False
Case "cbgrundlage3"
If tmpcheckbox.Checked Then
Me.dtgrundlage3.Enabled = False
Else
Me.dtgrundlage3.Enabled = False
End If
Case "cbgrundlage4"
If tmpcheckbox.Checked Then Me.dtgrundlage4.Enabled = True Else Me.dtgrundlage4.Enabled = False
End Select
End Sub
Private Sub rbAushaendigungBLV_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbAushaendigungBLV.CheckedChanged
If Me.rbAushaendigungBLV.Checked = True Then
Me.mcbblv.Enabled = True
Me.mcbkube.Enabled = False
Me.rbpersoenlich.Enabled = True
Me.rbzustellungpost.Enabled = True
Me.rbpersoenlich.Checked = True
Me.rbnichtverschlossen.Enabled = True
Me.rbverschlossen.Enabled = True
Me.rbnichtverschlossen.Checked = True
Me.rbverschlossen.Checked = False
End If
End Sub
Private Sub rbAushaendigungKube_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbAushaendigungKube.CheckedChanged
If Me.rbAushaendigungKube.Checked Then
Me.mcbblv.Enabled = False
Me.mcbkube.Enabled = True
Me.rbpersoenlich.Checked = True
Me.rbzustellungpost.Checked = False
Me.rbzustellungpost.Enabled = False
Me.rbnichtverschlossen.Enabled = False
Me.rbnichtverschlossen.Checked = False
Me.rbverschlossen.Enabled = True
Me.rbverschlossen.Checked = True
End If
End Sub
Private Sub rbzustellungpost_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbzustellungpost.CheckedChanged
If Me.rbzustellungpost.Checked = True Then
Me.rbnichtverschlossen.Enabled = False
Me.rbverschlossen.Enabled = True
Me.rbverschlossen.Checked = True
Me.cbDel2Page.Checked = True
Me.cbDel2Page.Enabled = False
Me.cbkube.Enabled = False
Me.rbAushaendigungKube.Enabled = False
Else
Me.cbDel2Page.Enabled = True
Me.cbDel2Page.Checked = True
Me.cbkube.Enabled = True
Me.rbAushaendigungKube.Enabled = True
End If
End Sub
Private Sub cbbeilage3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbbeilage3.CheckedChanged
If Me.cbbeilage3.Checked = True Then
Me.txtBeilage.Enabled = True
Else
Me.txtBeilage.Text = ""
Me.txtBeilage.Enabled = False
End If
End Sub
Private Sub rbpersoenlich_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbpersoenlich.CheckedChanged
Me.rbnichtverschlossen.Enabled = True
Me.rbnichtverschlossen.Checked = True
Me.rbverschlossen.Enabled = True
If Me.rbpersoenlich.Checked = True Then
Me.txtZustelladresse.Text = DivFnkt.get_parnter_namevorname(Me.NRPAR00) + vbCrLf + "persönlich ausgehändigt"
Me.txtZustelladresse.Enabled = False
Me.Button2.Enabled = False
Else
Me.txtZustelladresse.Text = ""
Me.Button2.Enabled = True
Me.txtZustelladresse.Enabled = True
End If
End Sub
#Region "Notizen"
Private Sub MnuNeueNotiz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuNeueNotiz.Click
Dim f As New frmNotizen()
f.Mutierer = Globals.MitarbeiterNr.ToString
f.Notiz = ""
f.Betreff = ""
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
Dim rc As DataRowCollection
Dim newrow As DataRow
rc = Notizen.Rows
Dim rowvals(Me.Notizen.Columns.Count - 1) As Object
' For i = 0 To Me.Notizen.Columns.Count - 1
' MsgBox(Me.Notizen.Columns(i).Caption)
' Next
rowvals(0) = System.DBNull.Value
rowvals(2) = f.Betreff
rowvals(3) = f.Notiz
rowvals(5) = True 'Aktiv
rowvals(6) = Now() 'erstellt_am
rowvals(7) = Now() 'mutiert_am
rowvals(8) = Globals.MitarbeiterNr 'mutierer
newrow = rc.Add(rowvals)
Me.Notizlist.DataSource = Nothing
Me.Notizlist.DataSource = Me.Notizen
load_Mitarbeiter()
DivFnkt.SpaltenTitel_Aktualisieren(Me.Notizlist, Me.Notizen, "notizen")
' Me.Notizlist.Refresh()
Try
For i = 0 To Me.Notizlist.Splits(0).Rows.Count - 1
If Me.Notizlist.Columns("betreff").CellText(i) = f.Betreff Then
Me.Notizlist.Bookmark = i
End If
Next
Catch
End Try
End If
f.Hide()
End Sub
Private Sub MnuEditNotiz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuEditNotiz.Click
Dim f As New frmNotizen()
f.Betreff = Me.Notizlist.Columns("betreff").Value
f.Notiz = Me.Notizlist.Columns("Notiz").Value
f.Mutierer = Me.Notizlist.Columns("Mutierer").Text
f.MutiertAm = Me.Notizlist.Columns("Mutiert_Am").Text
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
Me.Notizlist.Columns("betreff").Value = f.Betreff
Me.Notizlist.Columns("notiz").Value = f.Notiz
Me.Notizlist.Columns("Mutierer").Value = Globals.MitarbeiterNr
Me.Notizlist.Columns("Mutiert_Am").Text = Now()
End If
f.Dispose()
End Sub
Private Sub Notizlist_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Notizlist.DoubleClick
MnuEditNotiz_Click(sender, e)
End Sub
Private Sub MnuDeleteNotiz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuDeleteNotiz.Click
Try
Me.Notizlist.Columns(5).Value = False
Me.Notizlist.Refresh()
Me.Notizlist.Select()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Load_Notizen()
Me.Notizen = Notizen_Laden(Me.Dokumentid)
w.Save_Notizen = Me.Notizen
' w.Save_Notizen = Notizen_Laden(Me.DokumentID)
Me.Notizlist.DataSource = Notizen
DivFnkt.SpaltenTitel_Aktualisieren(Me.Notizlist, Me.Notizen, "notizen")
End Sub
Private Sub load_Mitarbeiter()
conn.OpenConnection()
Dim t As DataTable
t = Generic_Select(17)
Me.drpMiatarbeiter.DataSource = t
Me.drpMiatarbeiter.ListField = "FullName"
Me.drpMiatarbeiter.DataField = "mitarbeiternr"
Me.drpMiatarbeiter.ValueTranslate = True
Me.Notizlist.Columns("mutierer").DropDown = Me.drpMiatarbeiter
conn.CloseConnection(True)
End Sub
Private Function Notizen_Laden(ByVal dokumentid As String) As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.CommandText = "dbo.SP_Dokument_Notizen_select"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn.scoDBConnection
Try
If Me.CreateDocument Then
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
Else
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
End If
' scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentID))
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
#End Region
Private Sub cbDel2Page_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbDel2Page.CheckedChanged
If Me.cbDel2Page.Checked = False Then
Me.txtZustelladresse.Enabled = False
Me.Button2.Enabled = False
Me.txtAnredeZusteller.Enabled = False
'Me.grpZustelladresse.Enabled = False
Me.txtZustelladresse.Text = ""
' Me.txtAnredeZusteller.Text = ""
' Me.lblUnterschrift1.Visible = False
' Me.cbUnterschriftrechts.Enabled = False
Me.mcbunterschriftrechts.Enabled = False
Me.txtZustelladresse.Enabled = False
Me.txtZustelladresse.Text = ""
Me.txtAnredeZusteller.Enabled = False
Me.Button2.Enabled = False
Else
'Me.grpZustelladresse.Enabled = True
Me.txtZustelladresse.Enabled = True
Me.Button2.Enabled = True
Me.txtZustelladresse.Text = ""
Me.txtAnredeZusteller.Enabled = True
' Me.lblUnterschrift1.Visible = True
' Me.cbUnterschriftrechts.Enabled = True
Me.mcbunterschriftrechts.Enabled = True
Me.txtZustelladresse.Enabled = True
Me.Button2.Enabled = True
Me.txtZustelladresse.Text = ""
Me.txtAnredeZusteller.Enabled = True
Me.Button2.Enabled = True
If Me.rbpersoenlich.Checked = True Then Me.rbpersoenlich_CheckedChanged(sender, e)
End If
End Sub
Private Sub cbkube_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mcbkube.SelectedIndexChanged
If m_onload Then Exit Sub
Dim i As Integer
Dim i1
If Me.mcbkube.Text <> "" Then
i = Me.mcbkube.SelectedValue
End If
Me.mcbunterschriftrechts.SelectedValue = i
End Sub
Private Sub BtnHelp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHelp.Click
Globals.HTMLHelp.ShowHelpToc("definierenderaushndigungsquittung")
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim f As New FrmPartnersuche()
f.Dokumenttypnrnr = Me.Dokumenttypnr
f.ShowDialog()
If f.PartnerNr <> 0 Then
Me.txtZustelladresse.Text = f.zustelladresse
Me.txtAnredeZusteller.Text = f.Anrede
Me.txtZustelladresse.Focus()
End If
End Sub
#Region "Anhänge" 'EDOKA Rel. 5.1
Dim anhangdoktype As Integer = 47
Dim m_profile As DataTable
Property UserProfile() As DataTable
Get
Return m_profile
End Get
Set(ByVal Value As DataTable)
m_profile = Value
End Set
End Property
Sub Anhang_Erstellen(dokumenttypnr As Integer)
Me.anhangdoktype = dokumenttypnr
Me.Profilnr = Me.Profilnr
Me.UserProfile = Get_Profile()
If Me.Profilnr = 0 Then
For Each r As DataRow In Me.UserProfile.Rows
If r("standard") = True Then Me.Profilnr = r("Profilnr")
Next
End If
If Me.Profilnr = 0 Then Me.Profilnr = Me.UserProfile.Rows(0).Item("Profilnr")
Dim dt As New edokadb.clsDokumenttyp()
Dim dtbezeichnung As String = ""
Dim showbc As Boolean = False
Dim barcodeid As String = ""
dt.cpMainConnectionProvider = conn
Globals.bckdokument = False
dt.iDokumenttypnr = New SqlInt32(CType(anhangdoktype, Int32))
dt.cpMainConnectionProvider = conn
dt.SelectOne()
dtbezeichnung = dt.sBeschreibung.ToString
If dt.bAktiv.Value = True Then
If dt.bDokument_wird_retourniert.Value = True And dt.bDokument_wird_erstellt.Value = False Then showbc = True
If dt.bDokument_wird_retourniert.Value = True And dt.bDokument_wird_erstellt.Value = True Then
'20190316-CLM-Anpassung Übersteuerung BC-Question
If DivFnkt.BC_Uebersteuerung(dt.iDokumenttypnr.Value) = False Then
Dim f As New frmbcquestion()
f.ShowDialog()
If f.DialogResult = DialogResult.Abort Then showbc = True
If f.DialogResult = DialogResult.OK Then showbc = False
f.Dispose()
Else
showbc = True
End If
'Dim f As New frmbcquestion()
'f.ShowDialog()
'If f.DialogResult = DialogResult.Abort Then showbc = True
'If f.DialogResult = DialogResult.OK Then showbc = False
'f.Dispose()
End If
If showbc Then
Dim f As New frmBarcodeKleber()
f.TopMost = True
f.ShowDialog()
If f.DialogResult = DialogResult.Abort Then
Exit Sub
Else
If f.DialogResult = DialogResult.OK Then
barcodeid = f.BarcodeID
Globals.bckdokument = True
Else
End If
End If
End If
'dt.SelectOne()
dt.Dispose()
If Globals.bckdokument = True Then
If barcodedokument_erstellen(barcodeid) = True Then
showbc = False
Globals.bckdokument = False
Exit Sub
End If
Else
If dt.bNurnative.Value = True Then
If einzeldokument_erstellen() = True Then
MyMsg.show_standardmessage(413, MsgBoxStyle.Information)
Exit Sub
End If
Else
If normaldokument_erstellen(i) = True Then
End If
End If
End If
Else
MsgBox("Der ausgewählte Dokumenttyp '" + dtbezeichnung + "' ist nicht mehr aktiv.", MsgBoxStyle.Information)
End If
Try
dt.Dispose()
Catch ex As Exception
End Try
End Sub
Private Function barcodedokument_erstellen(ByVal barcodeid As String) As Boolean
Cursor = Cursors.WaitCursor
Dim fI As New frmDokumentbearbeitungBC()
fI.Edex_Folgestatus = Me.cbdokumentstatus.SelectedIndex
fI.Profile = Me.UserProfile
fI.Profilnr = Me.Profilnr
fI.Partnernr = Me.NRPAR00
fI.BarcodeID = barcodeid
fI.Dokumenttypnr = anhangdoktype
fI.CreateDocument = True
Me.Cursor = Cursors.Default
'fI.MdiParent = Me.MdiParent
'fI.Show()
fI.ShowDialog()
fI.Dispose()
Return True
End Function
Private Function einzeldokument_erstellen() As Boolean
Cursor = Cursors.WaitCursor
Dim fI As New frmDokumentbearbeitungED()
fI.Profile = Me.UserProfile
fI.Profilnr = Me.Profilnr
fI.Partnernr = Me.NRPAR00
fI.Dokumenttypnr = anhangdoktype
fI.CreateDocument = True
Me.Cursor = Cursors.Default
fI.MdiParent = Me.MdiParent
fI.Show()
'fI.ShowDialog()
fI.Dispose()
Return True
End Function
Private Function normaldokument_erstellen(ByVal colrow As Integer) As Boolean
Cursor = Cursors.WaitCursor()
Dim fI As New frmDokumentbearbeitung()
' fI.Edex_Folgestatus = Me.cbdokumentstatus.SelectedIndex
fI.Profile = Me.UserProfile
fI.Profilnr = Me.Profilnr
fI.Partnernr = Me.NRPAR00
fI.Dokumenttypnr = anhangdoktype
fI.CreateDocument = True
Me.Cursor = Cursors.Default
'fI.MdiParent = Me.MdiParent
'fI.shoq()
fI.ShowDialog()
If fI.w.DokumentID <> "" Then
Me.Dokumentid = fI.w.DokumentID
Globals.DP_Collection.Add(Me.Dokumentid)
fI.Dispose()
Return True
Else
fI.Dispose()
Return False
End If
End Function
Private Function Get_Profile() As DataTable
Try
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.pv_profil_select"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@mandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MandantNr))
scmCmdToExecute.Connection = conn.scoDBConnection
Try
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
Throw New Exception("Dokumentpaket::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
Catch
End Try
End Function
Private Function Get_Anhaenge()
Me.cbbeilage.DataSource = Nothing
Dim dt As New DataTable
dt = Generic_Select(18)
cbbeilage.DataSource = dt
cbbeilage.DisplayMember = "Bezeichnung"
cbbeilage.ValueMember = "Dokumenttypnr"
cbbeilage.SelectedValue = 0
End Function
#End Region
Private Sub cbgrundlage5_CheckedChanged(sender As Object, e As EventArgs) Handles cbgrundlage5.CheckedChanged
If cbgrundlage5.Checked = True Then
Me.cbbeilage.SelectedValue = -1
Dim dt As DataTable
dt = Generic_Select(18)
For Each r As DataRow In dt.Rows
If r.Item("Default") = True Then Me.cbbeilage.SelectedValue = r.Item(0)
Next
Else
Me.cbbeilage.SelectedValue = -1
End If
End Sub
End Class