Imports System.Data Imports System.Data.SqlTypes Imports System.Data.SqlClient Imports System.ComponentModel Imports UtilityLibrary.Win32 Public Class frmDokumentInfoEdit Inherits System.Windows.Forms.Form #Region " Vom Windows Form Designer generierter Code " ' 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 btnWeiter As System.Windows.Forms.Button Friend WithEvents btnCancel As System.Windows.Forms.Button Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection Friend WithEvents DataSet1 As System.Data.DataSet Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu Friend WithEvents MnuNeueNotiz As System.Windows.Forms.MenuItem Friend WithEvents MnuDeleteNotiz As System.Windows.Forms.MenuItem Friend WithEvents SqlDataAdapter2 As System.Data.SqlClient.SqlDataAdapter Friend WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlInsertCommand2 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlUpdateCommand2 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlDeleteCommand2 As System.Data.SqlClient.SqlCommand Friend WithEvents DataSet2 As System.Data.DataSet Friend WithEvents SqlDataAdapter3 As System.Data.SqlClient.SqlDataAdapter Friend WithEvents SqlSelectCommand3 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlInsertCommand3 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlUpdateCommand3 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlDeleteCommand3 As System.Data.SqlClient.SqlCommand Friend WithEvents DataSet3 As System.Data.DataSet Friend WithEvents DataSet4 As System.Data.DataSet Friend WithEvents TabControl2 As System.Windows.Forms.TabControl Friend WithEvents TabPage3 As System.Windows.Forms.TabPage Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox Friend WithEvents cbUnterschriftrechts As System.Windows.Forms.ComboBox Friend WithEvents cbUnterschriftlinks As System.Windows.Forms.ComboBox Friend WithEvents Label8 As System.Windows.Forms.Label Friend WithEvents Label7 As System.Windows.Forms.Label Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents RBZustaendigZustaendiger As System.Windows.Forms.RadioButton Friend WithEvents rbZustaendigKube As System.Windows.Forms.RadioButton Friend WithEvents cbzust As System.Windows.Forms.ComboBox Friend WithEvents cbKube As System.Windows.Forms.ComboBox Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker Friend WithEvents cbPostzustellung As System.Windows.Forms.ComboBox Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents TabPage4 As System.Windows.Forms.TabPage Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox Friend WithEvents Label20 As System.Windows.Forms.Label Friend WithEvents DateTimePicker3 As System.Windows.Forms.DateTimePicker Friend WithEvents Label10 As System.Windows.Forms.Label Friend WithEvents TabPage5 As System.Windows.Forms.TabPage Friend WithEvents cbVerantwortlich As System.Windows.Forms.ComboBox Friend WithEvents Label17 As System.Windows.Forms.Label Friend WithEvents Label16 As System.Windows.Forms.Label Friend WithEvents cbdokumentstatus As System.Windows.Forms.ComboBox Friend WithEvents txtPartnerInhaberNr As System.Windows.Forms.TextBox Friend WithEvents txtBezeichnung As System.Windows.Forms.TextBox Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents btnPartnerInhaber As System.Windows.Forms.Button Friend WithEvents txtPartnerZusteller As System.Windows.Forms.TextBox Friend WithEvents txtPartnerInhaber As System.Windows.Forms.TextBox Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents GroupBox10 As System.Windows.Forms.GroupBox Friend WithEvents DokWertList As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents cdokumentwerteanzeigen As System.Windows.Forms.CheckBox Friend WithEvents ContextMenu2 As System.Windows.Forms.ContextMenu Friend WithEvents MnuValueSelect As System.Windows.Forms.MenuItem Friend WithEvents ColdList As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents MnuEditNotiz As System.Windows.Forms.MenuItem Friend WithEvents TabPage1 As System.Windows.Forms.TabPage Friend WithEvents GroupBox11 As System.Windows.Forms.GroupBox Friend WithEvents txtZustelladresse As System.Windows.Forms.TextBox Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents GroupBox12 As System.Windows.Forms.GroupBox Friend WithEvents cbteam As System.Windows.Forms.ComboBox Friend WithEvents Label13 As System.Windows.Forms.Label Friend WithEvents txtAnredeZusteller As System.Windows.Forms.TextBox Friend WithEvents ContextMenu3 As System.Windows.Forms.ContextMenu Friend WithEvents MnuDokZuordnungAdd As System.Windows.Forms.MenuItem Friend WithEvents MnuDokzuordnungDelete As System.Windows.Forms.MenuItem Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem Friend WithEvents MnuShowDoc As System.Windows.Forms.MenuItem Friend WithEvents ContextMenu4 As System.Windows.Forms.ContextMenu Friend WithEvents mnuInfoEmpfaengerAdd As System.Windows.Forms.MenuItem Friend WithEvents mnuInfoEmpfaengerDelete As System.Windows.Forms.MenuItem Friend WithEvents ContextMenu5 As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem Friend WithEvents ContextMenu6 As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem Friend WithEvents ContextMenu7 As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem Friend WithEvents ContextMenu8 As System.Windows.Forms.ContextMenu Friend WithEvents Button4 As System.Windows.Forms.Button Friend WithEvents cbsave As System.Windows.Forms.ComboBox Friend WithEvents cbmoeglicheStati As System.Windows.Forms.ComboBox Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents Label11 As System.Windows.Forms.Label Friend WithEvents txtstatus As System.Windows.Forms.Label Friend WithEvents TabControl1 As System.Windows.Forms.TabControl Friend WithEvents TabPage2 As System.Windows.Forms.TabPage Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox Friend WithEvents ZuordnungList As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents GroupBox13 As System.Windows.Forms.GroupBox Friend WithEvents txtBemerkung As System.Windows.Forms.TextBox Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox Friend WithEvents InfoMeldungList As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox Friend WithEvents Notizlist As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents pnlBerechtigungen As System.Windows.Forms.GroupBox Friend WithEvents DokumentFunktionenList As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents GroupBox9 As System.Windows.Forms.GroupBox Friend WithEvents Button3 As System.Windows.Forms.Button Friend WithEvents cvertraulich As System.Windows.Forms.CheckBox Friend WithEvents Label18 As System.Windows.Forms.Label Friend WithEvents cGesperrt As System.Windows.Forms.CheckBox Friend WithEvents Label9 As System.Windows.Forms.Label Friend WithEvents GroupBox14 As System.Windows.Forms.GroupBox Friend WithEvents DateTimePicker2 As C1.Win.C1Input.C1DateEdit Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents TabPage6 As System.Windows.Forms.TabPage Friend WithEvents GroupBox15 As System.Windows.Forms.GroupBox Friend WithEvents Button5 As System.Windows.Forms.Button Friend WithEvents Button6 As System.Windows.Forms.Button Friend WithEvents Button7 As System.Windows.Forms.Button Friend WithEvents Button8 As System.Windows.Forms.Button Friend WithEvents Label12 As System.Windows.Forms.Label Friend WithEvents TextBox4 As System.Windows.Forms.TextBox Friend WithEvents TextBox3 As System.Windows.Forms.TextBox Friend WithEvents TextBox2 As System.Windows.Forms.TextBox Friend WithEvents Label14 As System.Windows.Forms.Label Friend WithEvents Label15 As System.Windows.Forms.Label Friend WithEvents Label19 As System.Windows.Forms.Label Friend WithEvents DateTimePicker4 As System.Windows.Forms.DateTimePicker Friend WithEvents Label21 As System.Windows.Forms.Label Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents Label23 As System.Windows.Forms.Label Friend WithEvents DateErinnerung As C1.Win.C1Input.C1DateEdit Friend WithEvents drpMiatarbeiter As C1.Win.C1TrueDBGrid.C1TrueDBDropdown Friend WithEvents BtnHelp As System.Windows.Forms.Button Friend WithEvents btnLoeschen As System.Windows.Forms.Button Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDokumentInfoEdit)) 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.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.btnWeiter = New System.Windows.Forms.Button() Me.btnCancel = New System.Windows.Forms.Button() 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.SqlDataAdapter2 = New System.Data.SqlClient.SqlDataAdapter() Me.SqlDeleteCommand2 = New System.Data.SqlClient.SqlCommand() Me.SqlInsertCommand2 = New System.Data.SqlClient.SqlCommand() Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand() Me.SqlUpdateCommand2 = New System.Data.SqlClient.SqlCommand() Me.DataSet2 = New System.Data.DataSet() Me.SqlDataAdapter3 = New System.Data.SqlClient.SqlDataAdapter() Me.SqlDeleteCommand3 = New System.Data.SqlClient.SqlCommand() Me.SqlInsertCommand3 = New System.Data.SqlClient.SqlCommand() Me.SqlSelectCommand3 = New System.Data.SqlClient.SqlCommand() Me.SqlUpdateCommand3 = New System.Data.SqlClient.SqlCommand() Me.DataSet3 = New System.Data.DataSet() Me.DataSet4 = New System.Data.DataSet() Me.TabControl2 = New System.Windows.Forms.TabControl() Me.TabPage3 = New System.Windows.Forms.TabPage() Me.GroupBox12 = New System.Windows.Forms.GroupBox() Me.cbteam = New System.Windows.Forms.ComboBox() Me.GroupBox10 = New System.Windows.Forms.GroupBox() Me.DokWertList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.ContextMenu2 = New System.Windows.Forms.ContextMenu() Me.MnuValueSelect = New System.Windows.Forms.MenuItem() Me.GroupBox3 = New System.Windows.Forms.GroupBox() Me.cbUnterschriftrechts = New System.Windows.Forms.ComboBox() Me.cbUnterschriftlinks = New System.Windows.Forms.ComboBox() Me.Label8 = New System.Windows.Forms.Label() Me.Label7 = New System.Windows.Forms.Label() Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.RBZustaendigZustaendiger = New System.Windows.Forms.RadioButton() Me.rbZustaendigKube = New System.Windows.Forms.RadioButton() Me.cbzust = New System.Windows.Forms.ComboBox() Me.cbKube = New System.Windows.Forms.ComboBox() Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() Me.cbPostzustellung = New System.Windows.Forms.ComboBox() Me.Label5 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() Me.TabPage4 = New System.Windows.Forms.TabPage() Me.GroupBox5 = New System.Windows.Forms.GroupBox() Me.ColdList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.ContextMenu7 = New System.Windows.Forms.ContextMenu() Me.MenuItem5 = New System.Windows.Forms.MenuItem() Me.MenuItem6 = New System.Windows.Forms.MenuItem() Me.GroupBox4 = New System.Windows.Forms.GroupBox() Me.Label20 = New System.Windows.Forms.Label() Me.DateTimePicker3 = New System.Windows.Forms.DateTimePicker() Me.Label10 = New System.Windows.Forms.Label() Me.TabPage5 = New System.Windows.Forms.TabPage() Me.TabPage1 = New System.Windows.Forms.TabPage() Me.Button2 = New System.Windows.Forms.Button() Me.GroupBox11 = New System.Windows.Forms.GroupBox() Me.Label13 = New System.Windows.Forms.Label() Me.txtAnredeZusteller = New System.Windows.Forms.TextBox() Me.txtZustelladresse = New System.Windows.Forms.TextBox() Me.ContextMenu4 = New System.Windows.Forms.ContextMenu() Me.mnuInfoEmpfaengerAdd = New System.Windows.Forms.MenuItem() Me.mnuInfoEmpfaengerDelete = New System.Windows.Forms.MenuItem() Me.ContextMenu3 = New System.Windows.Forms.ContextMenu() Me.MnuDokZuordnungAdd = New System.Windows.Forms.MenuItem() Me.MnuDokzuordnungDelete = New System.Windows.Forms.MenuItem() Me.MenuItem1 = New System.Windows.Forms.MenuItem() Me.MnuShowDoc = New System.Windows.Forms.MenuItem() Me.ContextMenu6 = New System.Windows.Forms.ContextMenu() Me.MenuItem3 = New System.Windows.Forms.MenuItem() Me.MenuItem4 = New System.Windows.Forms.MenuItem() Me.cbVerantwortlich = New System.Windows.Forms.ComboBox() Me.ContextMenu5 = New System.Windows.Forms.ContextMenu() Me.MenuItem2 = New System.Windows.Forms.MenuItem() Me.Label17 = New System.Windows.Forms.Label() Me.Label16 = New System.Windows.Forms.Label() Me.cbdokumentstatus = New System.Windows.Forms.ComboBox() Me.txtPartnerInhaberNr = New System.Windows.Forms.TextBox() Me.txtBezeichnung = New System.Windows.Forms.TextBox() Me.Label4 = New System.Windows.Forms.Label() Me.btnPartnerInhaber = New System.Windows.Forms.Button() Me.txtPartnerZusteller = New System.Windows.Forms.TextBox() Me.txtPartnerInhaber = New System.Windows.Forms.TextBox() Me.Label2 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() Me.cdokumentwerteanzeigen = New System.Windows.Forms.CheckBox() Me.Button1 = New System.Windows.Forms.Button() Me.ContextMenu8 = New System.Windows.Forms.ContextMenu() Me.Button4 = New System.Windows.Forms.Button() Me.cbsave = New System.Windows.Forms.ComboBox() Me.cbmoeglicheStati = New System.Windows.Forms.ComboBox() Me.Panel1 = New System.Windows.Forms.Panel() Me.Label11 = New System.Windows.Forms.Label() Me.txtstatus = New System.Windows.Forms.Label() Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabPage2 = New System.Windows.Forms.TabPage() Me.GroupBox14 = New System.Windows.Forms.GroupBox() Me.DateErinnerung = New C1.Win.C1Input.C1DateEdit() Me.Label23 = New System.Windows.Forms.Label() Me.DateTimePicker2 = New C1.Win.C1Input.C1DateEdit() Me.Label6 = New System.Windows.Forms.Label() Me.GroupBox8 = New System.Windows.Forms.GroupBox() Me.drpMiatarbeiter = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown() Me.Notizlist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.GroupBox7 = New System.Windows.Forms.GroupBox() Me.InfoMeldungList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.GroupBox6 = New System.Windows.Forms.GroupBox() Me.ZuordnungList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.GroupBox13 = New System.Windows.Forms.GroupBox() Me.txtBemerkung = New System.Windows.Forms.TextBox() Me.TabPage6 = New System.Windows.Forms.TabPage() Me.GroupBox15 = New System.Windows.Forms.GroupBox() Me.btnLoeschen = New System.Windows.Forms.Button() Me.Button5 = New System.Windows.Forms.Button() Me.Button6 = New System.Windows.Forms.Button() Me.Button7 = New System.Windows.Forms.Button() Me.Button8 = New System.Windows.Forms.Button() Me.Label12 = New System.Windows.Forms.Label() Me.TextBox4 = New System.Windows.Forms.TextBox() Me.TextBox3 = New System.Windows.Forms.TextBox() Me.TextBox2 = New System.Windows.Forms.TextBox() Me.Label14 = New System.Windows.Forms.Label() Me.Label15 = New System.Windows.Forms.Label() Me.Label19 = New System.Windows.Forms.Label() Me.DateTimePicker4 = New System.Windows.Forms.DateTimePicker() Me.Label21 = New System.Windows.Forms.Label() Me.TextBox1 = New System.Windows.Forms.TextBox() Me.pnlBerechtigungen = New System.Windows.Forms.GroupBox() Me.DokumentFunktionenList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.GroupBox9 = New System.Windows.Forms.GroupBox() Me.Button3 = New System.Windows.Forms.Button() Me.cvertraulich = New System.Windows.Forms.CheckBox() Me.Label18 = New System.Windows.Forms.Label() Me.cGesperrt = New System.Windows.Forms.CheckBox() Me.Label9 = New System.Windows.Forms.Label() Me.BtnHelp = New System.Windows.Forms.Button() Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DataSet4, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabControl2.SuspendLayout() Me.TabPage3.SuspendLayout() Me.GroupBox12.SuspendLayout() Me.GroupBox10.SuspendLayout() CType(Me.DokWertList, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox3.SuspendLayout() Me.GroupBox1.SuspendLayout() Me.GroupBox2.SuspendLayout() Me.TabPage4.SuspendLayout() Me.GroupBox5.SuspendLayout() CType(Me.ColdList, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox4.SuspendLayout() Me.TabPage1.SuspendLayout() Me.GroupBox11.SuspendLayout() Me.TabControl1.SuspendLayout() Me.TabPage2.SuspendLayout() Me.GroupBox14.SuspendLayout() CType(Me.DateErinnerung, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DateTimePicker2, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox8.SuspendLayout() CType(Me.drpMiatarbeiter, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Notizlist, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox7.SuspendLayout() CType(Me.InfoMeldungList, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox6.SuspendLayout() CType(Me.ZuordnungList, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox13.SuspendLayout() Me.TabPage6.SuspendLayout() Me.GroupBox15.SuspendLayout() Me.pnlBerechtigungen.SuspendLayout() CType(Me.DokumentFunktionenList, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox9.SuspendLayout() Me.SuspendLayout() ' '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" ' 'btnWeiter ' Me.btnWeiter.Location = New System.Drawing.Point(696, 496) Me.btnWeiter.Name = "btnWeiter" Me.btnWeiter.Size = New System.Drawing.Size(104, 23) Me.btnWeiter.TabIndex = 7 Me.btnWeiter.Text = "&Speichern" ' 'btnCancel ' Me.btnCancel.Location = New System.Drawing.Point(40, 496) Me.btnCancel.Name = "btnCancel" Me.btnCancel.Size = New System.Drawing.Size(104, 23) Me.btnCancel.TabIndex = 8 Me.btnCancel.Text = "&Abbruch" ' '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" ' 'SqlDataAdapter2 ' Me.SqlDataAdapter2.DeleteCommand = Me.SqlDeleteCommand2 Me.SqlDataAdapter2.InsertCommand = Me.SqlInsertCommand2 Me.SqlDataAdapter2.SelectCommand = Me.SqlSelectCommand2 Me.SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Postzustellung", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("nreintrag", "nreintrag"), New System.Data.Common.DataColumnMapping("sprache", "sprache"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})}) Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand2 ' 'SqlDeleteCommand2 ' Me.SqlDeleteCommand2.CommandText = "[pv_postzustellung_delete]" Me.SqlDeleteCommand2.CommandType = System.Data.CommandType.StoredProcedure Me.SqlDeleteCommand2.Connection = Me.SqlConnection1 Me.SqlDeleteCommand2.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(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_nreintrag", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "nreintrag", 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), "aktiv", 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), "bezeichnung", 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), "erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", 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), "mutiert_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_sprache", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sprache", System.Data.DataRowVersion.Original, Nothing)}) ' 'SqlInsertCommand2 ' Me.SqlInsertCommand2.CommandText = "[pv_postzustellung_insert]" Me.SqlInsertCommand2.CommandType = System.Data.CommandType.StoredProcedure Me.SqlInsertCommand2.Connection = Me.SqlConnection1 Me.SqlInsertCommand2.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(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@sprache", System.Data.SqlDbType.Int, 4, "sprache"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer")}) ' 'SqlSelectCommand2 ' Me.SqlSelectCommand2.CommandText = "[pv_postzustellung_select]" Me.SqlSelectCommand2.CommandType = System.Data.CommandType.StoredProcedure Me.SqlSelectCommand2.Connection = Me.SqlConnection1 Me.SqlSelectCommand2.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(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"), New System.Data.SqlClient.SqlParameter("@sprache", System.Data.SqlDbType.Int, 4, "sprache")}) ' 'SqlUpdateCommand2 ' Me.SqlUpdateCommand2.CommandText = "[pv_postzustellung_update]" Me.SqlUpdateCommand2.CommandType = System.Data.CommandType.StoredProcedure Me.SqlUpdateCommand2.Connection = Me.SqlConnection1 Me.SqlUpdateCommand2.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(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "sprache"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@Param2", System.Data.SqlDbType.Int, 4, "mandantnr"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"), New System.Data.SqlClient.SqlParameter("@Original_nreintrag", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "nreintrag", 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), "aktiv", 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), "bezeichnung", 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), "erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", 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), "mutiert_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_sprache", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sprache", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@nreintrag", System.Data.SqlDbType.Int, 4, "nreintrag")}) ' 'DataSet2 ' Me.DataSet2.DataSetName = "NewDataSet" ' 'SqlDataAdapter3 ' Me.SqlDataAdapter3.DeleteCommand = Me.SqlDeleteCommand3 Me.SqlDataAdapter3.InsertCommand = Me.SqlInsertCommand3 Me.SqlDataAdapter3.SelectCommand = Me.SqlSelectCommand3 Me.SqlDataAdapter3.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "funktionsgruppe", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("funktionsgruppenr", "funktionsgruppenr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung")})}) Me.SqlDataAdapter3.UpdateCommand = Me.SqlUpdateCommand3 ' 'SqlDeleteCommand3 ' Me.SqlDeleteCommand3.CommandText = "[pv_funktionsgruppe_aktiv_delete]" Me.SqlDeleteCommand3.CommandType = System.Data.CommandType.StoredProcedure Me.SqlDeleteCommand3.Connection = Me.SqlConnection1 Me.SqlDeleteCommand3.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(0, 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(0, Byte), CType(0, Byte), "funktionsgruppenr", 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), "bezeichnung", System.Data.DataRowVersion.Original, Nothing)}) ' 'SqlInsertCommand3 ' Me.SqlInsertCommand3.CommandText = "[pv_funktionsgruppe_aktiv_insert]" Me.SqlInsertCommand3.CommandType = System.Data.CommandType.StoredProcedure Me.SqlInsertCommand3.Connection = Me.SqlConnection1 Me.SqlInsertCommand3.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(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, "funktionsgruppenr"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung")}) ' 'SqlSelectCommand3 ' Me.SqlSelectCommand3.CommandText = "[pv_funktionsgruppe_aktiv_select]" Me.SqlSelectCommand3.CommandType = System.Data.CommandType.StoredProcedure Me.SqlSelectCommand3.Connection = Me.SqlConnection1 Me.SqlSelectCommand3.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(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr")}) ' 'SqlUpdateCommand3 ' Me.SqlUpdateCommand3.CommandText = "[pv_funktionsgruppe_aktiv_update]" Me.SqlUpdateCommand3.CommandType = System.Data.CommandType.StoredProcedure Me.SqlUpdateCommand3.Connection = Me.SqlConnection1 Me.SqlUpdateCommand3.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(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, "funktionsgruppenr"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionsgruppenr", 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), "bezeichnung", System.Data.DataRowVersion.Original, Nothing)}) ' 'DataSet3 ' Me.DataSet3.DataSetName = "NewDataSet" ' 'DataSet4 ' Me.DataSet4.DataSetName = "NewDataSet" ' 'TabControl2 ' Me.TabControl2.Controls.Add(Me.TabPage3) Me.TabControl2.Controls.Add(Me.TabPage4) Me.TabControl2.Controls.Add(Me.TabPage5) Me.TabControl2.Controls.Add(Me.TabPage1) Me.TabControl2.Enabled = False Me.TabControl2.Location = New System.Drawing.Point(8, 552) Me.TabControl2.Name = "TabControl2" Me.TabControl2.SelectedIndex = 0 Me.TabControl2.Size = New System.Drawing.Size(800, 232) Me.TabControl2.TabIndex = 27 Me.TabControl2.Visible = False ' 'TabPage3 ' Me.TabPage3.Controls.Add(Me.GroupBox12) Me.TabPage3.Controls.Add(Me.GroupBox10) Me.TabPage3.Controls.Add(Me.GroupBox3) Me.TabPage3.Controls.Add(Me.GroupBox1) Me.TabPage3.Controls.Add(Me.GroupBox2) Me.TabPage3.Location = New System.Drawing.Point(4, 22) Me.TabPage3.Name = "TabPage3" Me.TabPage3.Size = New System.Drawing.Size(792, 206) Me.TabPage3.TabIndex = 0 Me.TabPage3.Text = "Dokumentinhalt" ' 'GroupBox12 ' Me.GroupBox12.Controls.Add(Me.cbteam) Me.GroupBox12.Location = New System.Drawing.Point(8, 304) Me.GroupBox12.Name = "GroupBox12" Me.GroupBox12.Size = New System.Drawing.Size(368, 16) Me.GroupBox12.TabIndex = 38 Me.GroupBox12.TabStop = False Me.GroupBox12.Text = "Team" Me.GroupBox12.Visible = False ' 'cbteam ' Me.cbteam.Location = New System.Drawing.Point(128, 16) Me.cbteam.Name = "cbteam" Me.cbteam.Size = New System.Drawing.Size(232, 21) Me.cbteam.TabIndex = 14 Me.cbteam.Visible = False ' 'GroupBox10 ' Me.GroupBox10.Controls.Add(Me.DokWertList) Me.GroupBox10.Location = New System.Drawing.Point(384, 8) Me.GroupBox10.Name = "GroupBox10" Me.GroupBox10.Size = New System.Drawing.Size(400, 312) Me.GroupBox10.TabIndex = 37 Me.GroupBox10.TabStop = False Me.GroupBox10.Text = "Dokumentspezifisch" ' 'DokWertList ' Me.DokWertList.AllowFilter = False Me.DokWertList.AllowSort = False Me.DokWertList.AlternatingRows = True Me.DokWertList.ContextMenu = Me.ContextMenu2 Me.DokWertList.GroupByCaption = "Drag a column header here to group by that column" Me.DokWertList.Images.Add(CType(resources.GetObject("DokWertList.Images"), System.Drawing.Image)) Me.DokWertList.Location = New System.Drawing.Point(8, 16) Me.DokWertList.Name = "DokWertList" Me.DokWertList.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.DokWertList.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.DokWertList.PreviewInfo.ZoomFactor = 75.0R Me.DokWertList.PrintInfo.PageSettings = CType(resources.GetObject("DokWertList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.DokWertList.Size = New System.Drawing.Size(384, 288) Me.DokWertList.TabIndex = 14 Me.DokWertList.Text = "C1TrueDBGrid1" Me.DokWertList.PropBag = resources.GetString("DokWertList.PropBag") ' 'ContextMenu2 ' Me.ContextMenu2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuValueSelect}) ' 'MnuValueSelect ' Me.MnuValueSelect.Index = 0 Me.MnuValueSelect.Text = "&Wert auswählen" ' 'GroupBox3 ' Me.GroupBox3.Controls.Add(Me.cbUnterschriftrechts) Me.GroupBox3.Controls.Add(Me.cbUnterschriftlinks) Me.GroupBox3.Controls.Add(Me.Label8) Me.GroupBox3.Controls.Add(Me.Label7) Me.GroupBox3.Location = New System.Drawing.Point(8, 296) Me.GroupBox3.Name = "GroupBox3" Me.GroupBox3.Size = New System.Drawing.Size(368, 24) Me.GroupBox3.TabIndex = 36 Me.GroupBox3.TabStop = False Me.GroupBox3.Text = "Unterschrift" Me.GroupBox3.Visible = False ' 'cbUnterschriftrechts ' Me.cbUnterschriftrechts.Location = New System.Drawing.Point(128, 43) Me.cbUnterschriftrechts.Name = "cbUnterschriftrechts" Me.cbUnterschriftrechts.Size = New System.Drawing.Size(232, 21) Me.cbUnterschriftrechts.TabIndex = 13 Me.cbUnterschriftrechts.Visible = False ' 'cbUnterschriftlinks ' Me.cbUnterschriftlinks.Location = New System.Drawing.Point(128, 19) Me.cbUnterschriftlinks.Name = "cbUnterschriftlinks" Me.cbUnterschriftlinks.Size = New System.Drawing.Size(232, 21) Me.cbUnterschriftlinks.TabIndex = 12 Me.cbUnterschriftlinks.Visible = False ' 'Label8 ' Me.Label8.Location = New System.Drawing.Point(8, 48) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(96, 23) Me.Label8.TabIndex = 14 Me.Label8.Text = "Unterschrift rechts" Me.Label8.Visible = False ' 'Label7 ' Me.Label7.Location = New System.Drawing.Point(8, 24) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(96, 23) Me.Label7.TabIndex = 13 Me.Label7.Text = "Unterschrift links" Me.Label7.Visible = False ' 'GroupBox1 ' Me.GroupBox1.Controls.Add(Me.RBZustaendigZustaendiger) Me.GroupBox1.Controls.Add(Me.rbZustaendigKube) Me.GroupBox1.Controls.Add(Me.cbzust) Me.GroupBox1.Controls.Add(Me.cbKube) Me.GroupBox1.Location = New System.Drawing.Point(8, 296) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Size = New System.Drawing.Size(368, 24) Me.GroupBox1.TabIndex = 35 Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "Zuständigkeit" Me.GroupBox1.Visible = False ' 'RBZustaendigZustaendiger ' Me.RBZustaendigZustaendiger.Location = New System.Drawing.Point(14, 42) Me.RBZustaendigZustaendiger.Name = "RBZustaendigZustaendiger" Me.RBZustaendigZustaendiger.Size = New System.Drawing.Size(98, 24) Me.RBZustaendigZustaendiger.TabIndex = 10 Me.RBZustaendigZustaendiger.Text = "Zuständiger" Me.RBZustaendigZustaendiger.Visible = False ' 'rbZustaendigKube ' Me.rbZustaendigKube.Location = New System.Drawing.Point(14, 18) Me.rbZustaendigKube.Name = "rbZustaendigKube" Me.rbZustaendigKube.Size = New System.Drawing.Size(106, 24) Me.rbZustaendigKube.TabIndex = 8 Me.rbZustaendigKube.Text = "Kundenberater" Me.rbZustaendigKube.Visible = False ' 'cbzust ' Me.cbzust.Location = New System.Drawing.Point(128, 47) Me.cbzust.Name = "cbzust" Me.cbzust.Size = New System.Drawing.Size(232, 21) Me.cbzust.TabIndex = 11 Me.cbzust.Visible = False ' 'cbKube ' Me.cbKube.Location = New System.Drawing.Point(128, 21) Me.cbKube.Name = "cbKube" Me.cbKube.Size = New System.Drawing.Size(232, 21) Me.cbKube.TabIndex = 9 Me.cbKube.Visible = False ' 'GroupBox2 ' Me.GroupBox2.Controls.Add(Me.DateTimePicker1) Me.GroupBox2.Controls.Add(Me.cbPostzustellung) Me.GroupBox2.Controls.Add(Me.Label5) Me.GroupBox2.Controls.Add(Me.Label3) Me.GroupBox2.Location = New System.Drawing.Point(8, 296) Me.GroupBox2.Name = "GroupBox2" Me.GroupBox2.Size = New System.Drawing.Size(368, 16) Me.GroupBox2.TabIndex = 6 Me.GroupBox2.TabStop = False Me.GroupBox2.Text = "Allgemein" Me.GroupBox2.Visible = False ' 'DateTimePicker1 ' Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker1.Location = New System.Drawing.Point(128, 48) Me.DateTimePicker1.Name = "DateTimePicker1" Me.DateTimePicker1.Size = New System.Drawing.Size(104, 20) Me.DateTimePicker1.TabIndex = 7 Me.DateTimePicker1.Visible = False ' 'cbPostzustellung ' Me.cbPostzustellung.Location = New System.Drawing.Point(128, 24) Me.cbPostzustellung.Name = "cbPostzustellung" Me.cbPostzustellung.Size = New System.Drawing.Size(232, 21) Me.cbPostzustellung.TabIndex = 6 Me.cbPostzustellung.Visible = False ' 'Label5 ' Me.Label5.Location = New System.Drawing.Point(16, 48) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(100, 23) Me.Label5.TabIndex = 11 Me.Label5.Text = "Dokument-Datum" Me.Label5.Visible = False ' 'Label3 ' Me.Label3.Location = New System.Drawing.Point(16, 24) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(100, 23) Me.Label3.TabIndex = 10 Me.Label3.Text = "Post-Zustellung" Me.Label3.Visible = False ' 'TabPage4 ' Me.TabPage4.Controls.Add(Me.GroupBox5) Me.TabPage4.Controls.Add(Me.GroupBox4) Me.TabPage4.Location = New System.Drawing.Point(4, 22) Me.TabPage4.Name = "TabPage4" Me.TabPage4.Size = New System.Drawing.Size(792, 206) Me.TabPage4.TabIndex = 1 Me.TabPage4.Text = "Zusammenhänge" Me.TabPage4.Visible = False ' 'GroupBox5 ' Me.GroupBox5.Controls.Add(Me.ColdList) Me.GroupBox5.Location = New System.Drawing.Point(384, 8) Me.GroupBox5.Name = "GroupBox5" Me.GroupBox5.Size = New System.Drawing.Size(400, 100) Me.GroupBox5.TabIndex = 1 Me.GroupBox5.TabStop = False Me.GroupBox5.Text = "Dokumente ersetzen" ' 'ColdList ' Me.ColdList.AllowUpdate = False Me.ColdList.AlternatingRows = True Me.ColdList.ContextMenu = Me.ContextMenu7 Me.ColdList.Dock = System.Windows.Forms.DockStyle.Fill Me.ColdList.GroupByCaption = "Drag a column header here to group by that column" Me.ColdList.Images.Add(CType(resources.GetObject("ColdList.Images"), System.Drawing.Image)) Me.ColdList.Location = New System.Drawing.Point(3, 16) Me.ColdList.Name = "ColdList" Me.ColdList.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.ColdList.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.ColdList.PreviewInfo.ZoomFactor = 75.0R Me.ColdList.PrintInfo.PageSettings = CType(resources.GetObject("ColdList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.ColdList.Size = New System.Drawing.Size(394, 81) Me.ColdList.TabIndex = 0 Me.ColdList.Text = "C1TrueDBGrid1" Me.ColdList.PropBag = resources.GetString("ColdList.PropBag") ' 'ContextMenu7 ' Me.ContextMenu7.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem5, Me.MenuItem6}) ' 'MenuItem5 ' Me.MenuItem5.Index = 0 Me.MenuItem5.Text = "&Dokument auswählen" ' 'MenuItem6 ' Me.MenuItem6.Index = 1 Me.MenuItem6.Text = "Dokument entfernen" ' 'GroupBox4 ' Me.GroupBox4.Controls.Add(Me.Label20) Me.GroupBox4.Controls.Add(Me.DateTimePicker3) Me.GroupBox4.Controls.Add(Me.Label10) Me.GroupBox4.Location = New System.Drawing.Point(8, 8) Me.GroupBox4.Name = "GroupBox4" Me.GroupBox4.Size = New System.Drawing.Size(368, 200) Me.GroupBox4.TabIndex = 0 Me.GroupBox4.TabStop = False Me.GroupBox4.Text = "Allgemein" ' 'Label20 ' Me.Label20.Location = New System.Drawing.Point(8, 72) Me.Label20.Name = "Label20" Me.Label20.Size = New System.Drawing.Size(80, 23) Me.Label20.TabIndex = 35 Me.Label20.Text = "Bemerkung" ' 'DateTimePicker3 ' Me.DateTimePicker3.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker3.Location = New System.Drawing.Point(88, 24) Me.DateTimePicker3.Name = "DateTimePicker3" Me.DateTimePicker3.Size = New System.Drawing.Size(96, 20) Me.DateTimePicker3.TabIndex = 18 ' 'Label10 ' Me.Label10.Location = New System.Drawing.Point(8, 24) Me.Label10.Name = "Label10" Me.Label10.Size = New System.Drawing.Size(80, 23) Me.Label10.TabIndex = 34 Me.Label10.Text = "Archiv-Datum" ' 'TabPage5 ' Me.TabPage5.Location = New System.Drawing.Point(4, 22) Me.TabPage5.Name = "TabPage5" Me.TabPage5.Size = New System.Drawing.Size(792, 206) Me.TabPage5.TabIndex = 2 Me.TabPage5.Text = "Notizen / Rechte" Me.TabPage5.Visible = False ' 'TabPage1 ' Me.TabPage1.Controls.Add(Me.Button2) Me.TabPage1.Controls.Add(Me.GroupBox11) Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Name = "TabPage1" Me.TabPage1.Size = New System.Drawing.Size(792, 206) Me.TabPage1.TabIndex = 3 Me.TabPage1.Text = "Zustelladresse" ' 'Button2 ' Me.Button2.Image = CType(resources.GetObject("Button2.Image"), System.Drawing.Image) Me.Button2.Location = New System.Drawing.Point(312, 13) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(24, 23) Me.Button2.TabIndex = 3 ' 'GroupBox11 ' Me.GroupBox11.Controls.Add(Me.Label13) Me.GroupBox11.Controls.Add(Me.txtAnredeZusteller) Me.GroupBox11.Controls.Add(Me.txtZustelladresse) Me.GroupBox11.Location = New System.Drawing.Point(8, 8) Me.GroupBox11.Name = "GroupBox11" Me.GroupBox11.Size = New System.Drawing.Size(296, 200) Me.GroupBox11.TabIndex = 0 Me.GroupBox11.TabStop = False Me.GroupBox11.Text = "Zustelladresse" ' 'Label13 ' Me.Label13.Location = New System.Drawing.Point(8, 150) Me.Label13.Name = "Label13" Me.Label13.Size = New System.Drawing.Size(192, 16) Me.Label13.TabIndex = 2 Me.Label13.Text = "Anrede (z.B.: Herr Muster)" ' 'txtAnredeZusteller ' Me.txtAnredeZusteller.Location = New System.Drawing.Point(8, 168) Me.txtAnredeZusteller.Name = "txtAnredeZusteller" Me.txtAnredeZusteller.Size = New System.Drawing.Size(280, 20) Me.txtAnredeZusteller.TabIndex = 1 ' 'txtZustelladresse ' Me.txtZustelladresse.Location = New System.Drawing.Point(8, 16) Me.txtZustelladresse.Multiline = True Me.txtZustelladresse.Name = "txtZustelladresse" Me.txtZustelladresse.Size = New System.Drawing.Size(280, 128) Me.txtZustelladresse.TabIndex = 0 Me.txtZustelladresse.Text = "TextBox1" ' 'ContextMenu4 ' Me.ContextMenu4.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuInfoEmpfaengerAdd, Me.mnuInfoEmpfaengerDelete}) ' 'mnuInfoEmpfaengerAdd ' Me.mnuInfoEmpfaengerAdd.Index = 0 Me.mnuInfoEmpfaengerAdd.Text = "Neuer Info-Empfänger" ' 'mnuInfoEmpfaengerDelete ' Me.mnuInfoEmpfaengerDelete.Index = 1 Me.mnuInfoEmpfaengerDelete.Text = "Info-Empfänger löschen" ' 'ContextMenu3 ' Me.ContextMenu3.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuDokZuordnungAdd, Me.MnuDokzuordnungDelete, Me.MenuItem1, Me.MnuShowDoc}) ' 'MnuDokZuordnungAdd ' Me.MnuDokZuordnungAdd.Index = 0 Me.MnuDokZuordnungAdd.Text = "Dokument hinzufügen" ' 'MnuDokzuordnungDelete ' Me.MnuDokzuordnungDelete.Index = 1 Me.MnuDokzuordnungDelete.Text = "Dokument entfernen" ' 'MenuItem1 ' Me.MenuItem1.Index = 2 Me.MenuItem1.Text = "-" ' 'MnuShowDoc ' Me.MnuShowDoc.Index = 3 Me.MnuShowDoc.Text = "Dokument anzeigen" ' 'ContextMenu6 ' Me.ContextMenu6.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem3, Me.MenuItem4}) ' 'MenuItem3 ' Me.MenuItem3.Index = 0 Me.MenuItem3.Text = "Berechtigungseinschränkung hinzufügen" ' 'MenuItem4 ' Me.MenuItem4.Index = 1 Me.MenuItem4.Text = "Berechtigungseinschränkung entfernen" ' 'cbVerantwortlich ' Me.cbVerantwortlich.ContextMenu = Me.ContextMenu5 Me.cbVerantwortlich.ItemHeight = 13 Me.cbVerantwortlich.Location = New System.Drawing.Point(520, 64) Me.cbVerantwortlich.Name = "cbVerantwortlich" Me.cbVerantwortlich.Size = New System.Drawing.Size(240, 21) Me.cbVerantwortlich.TabIndex = 4 Me.cbVerantwortlich.Visible = False ' 'ContextMenu5 ' Me.ContextMenu5.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2}) ' 'MenuItem2 ' Me.MenuItem2.Index = 0 Me.MenuItem2.Text = "&Berechtigte Mitarbeiter" ' 'Label17 ' Me.Label17.Location = New System.Drawing.Point(416, 64) Me.Label17.Name = "Label17" Me.Label17.Size = New System.Drawing.Size(88, 23) Me.Label17.TabIndex = 44 Me.Label17.Text = "Verantwortlicher" Me.Label17.Visible = False ' 'Label16 ' Me.Label16.Location = New System.Drawing.Point(416, 40) Me.Label16.Name = "Label16" Me.Label16.Size = New System.Drawing.Size(96, 23) Me.Label16.TabIndex = 43 Me.Label16.Text = "Dokumentstatus" Me.Label16.Visible = False ' 'cbdokumentstatus ' Me.cbdokumentstatus.ItemHeight = 13 Me.cbdokumentstatus.Location = New System.Drawing.Point(520, 40) Me.cbdokumentstatus.Name = "cbdokumentstatus" Me.cbdokumentstatus.Size = New System.Drawing.Size(264, 21) Me.cbdokumentstatus.TabIndex = 4 Me.cbdokumentstatus.Visible = False ' 'txtPartnerInhaberNr ' Me.txtPartnerInhaberNr.Location = New System.Drawing.Point(16, 72) Me.txtPartnerInhaberNr.Name = "txtPartnerInhaberNr" Me.txtPartnerInhaberNr.ReadOnly = True Me.txtPartnerInhaberNr.Size = New System.Drawing.Size(176, 20) Me.txtPartnerInhaberNr.TabIndex = 42 Me.txtPartnerInhaberNr.Visible = False ' 'txtBezeichnung ' Me.txtBezeichnung.Location = New System.Drawing.Point(520, 16) Me.txtBezeichnung.Name = "txtBezeichnung" Me.txtBezeichnung.ReadOnly = True Me.txtBezeichnung.Size = New System.Drawing.Size(264, 20) Me.txtBezeichnung.TabIndex = 3 ' 'Label4 ' Me.Label4.Location = New System.Drawing.Point(416, 16) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(100, 23) Me.Label4.TabIndex = 38 Me.Label4.Text = "Bezeichnung" ' 'btnPartnerInhaber ' Me.btnPartnerInhaber.Image = CType(resources.GetObject("btnPartnerInhaber.Image"), System.Drawing.Image) Me.btnPartnerInhaber.Location = New System.Drawing.Point(352, 64) Me.btnPartnerInhaber.Name = "btnPartnerInhaber" Me.btnPartnerInhaber.Size = New System.Drawing.Size(24, 24) Me.btnPartnerInhaber.TabIndex = 2 Me.btnPartnerInhaber.Visible = False ' 'txtPartnerZusteller ' Me.txtPartnerZusteller.Location = New System.Drawing.Point(112, 40) Me.txtPartnerZusteller.Name = "txtPartnerZusteller" Me.txtPartnerZusteller.ReadOnly = True Me.txtPartnerZusteller.Size = New System.Drawing.Size(240, 20) Me.txtPartnerZusteller.TabIndex = 1 ' 'txtPartnerInhaber ' Me.txtPartnerInhaber.Location = New System.Drawing.Point(112, 16) Me.txtPartnerInhaber.Name = "txtPartnerInhaber" Me.txtPartnerInhaber.ReadOnly = True Me.txtPartnerInhaber.Size = New System.Drawing.Size(240, 20) Me.txtPartnerInhaber.TabIndex = 0 ' 'Label2 ' Me.Label2.Location = New System.Drawing.Point(8, 40) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(100, 23) Me.Label2.TabIndex = 34 Me.Label2.Text = "Partner-Zusteller" ' 'Label1 ' Me.Label1.Location = New System.Drawing.Point(8, 16) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(100, 23) Me.Label1.TabIndex = 33 Me.Label1.Text = "Partner-Inhaber" ' 'cdokumentwerteanzeigen ' Me.cdokumentwerteanzeigen.Location = New System.Drawing.Point(528, 496) Me.cdokumentwerteanzeigen.Name = "cdokumentwerteanzeigen" Me.cdokumentwerteanzeigen.Size = New System.Drawing.Size(160, 32) Me.cdokumentwerteanzeigen.TabIndex = 6 Me.cdokumentwerteanzeigen.Text = "Dokumentinhalte anzeigen" ' 'Button1 ' Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image) Me.Button1.Location = New System.Drawing.Point(352, 16) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(24, 24) Me.Button1.TabIndex = 2 Me.ToolTip1.SetToolTip(Me.Button1, "Partner Detailinformationen") ' 'Button4 ' Me.Button4.Image = CType(resources.GetObject("Button4.Image"), System.Drawing.Image) Me.Button4.Location = New System.Drawing.Point(328, 64) Me.Button4.Name = "Button4" Me.Button4.Size = New System.Drawing.Size(24, 24) Me.Button4.TabIndex = 47 Me.Button4.Visible = False ' 'cbsave ' Me.cbsave.Enabled = False Me.cbsave.Items.AddRange(New Object() {"abc", "def", "gagas d sd", "sdf sdf sfd "}) Me.cbsave.Location = New System.Drawing.Point(764, 64) Me.cbsave.Name = "cbsave" Me.cbsave.Size = New System.Drawing.Size(21, 21) Me.cbsave.TabIndex = 49 Me.cbsave.Text = "ComboBox1" Me.cbsave.Visible = False ' 'cbmoeglicheStati ' Me.cbmoeglicheStati.Enabled = False Me.cbmoeglicheStati.Items.AddRange(New Object() {"abc", "def", "gagas d sd", "sdf sdf sfd "}) Me.cbmoeglicheStati.Location = New System.Drawing.Point(764, 64) Me.cbmoeglicheStati.Name = "cbmoeglicheStati" Me.cbmoeglicheStati.Size = New System.Drawing.Size(21, 21) Me.cbmoeglicheStati.TabIndex = 48 Me.cbmoeglicheStati.Text = "ComboBox1" ' 'Panel1 ' Me.Panel1.Location = New System.Drawing.Point(784, 16) Me.Panel1.Name = "Panel1" Me.Panel1.Size = New System.Drawing.Size(24, 100) Me.Panel1.TabIndex = 50 ' 'Label11 ' Me.Label11.Location = New System.Drawing.Point(416, 80) Me.Label11.Name = "Label11" Me.Label11.Size = New System.Drawing.Size(96, 32) Me.Label11.TabIndex = 52 Me.Label11.Text = "Berechtigt für Folgestatus" Me.Label11.Visible = False ' 'txtstatus ' Me.txtstatus.Location = New System.Drawing.Point(520, 88) Me.txtstatus.Name = "txtstatus" Me.txtstatus.Size = New System.Drawing.Size(224, 16) Me.txtstatus.TabIndex = 51 Me.txtstatus.Text = "Label3" Me.txtstatus.Visible = False ' 'TabControl1 ' Me.TabControl1.Controls.Add(Me.TabPage2) Me.TabControl1.Controls.Add(Me.TabPage6) Me.TabControl1.Location = New System.Drawing.Point(8, 64) Me.TabControl1.Name = "TabControl1" Me.TabControl1.SelectedIndex = 0 Me.TabControl1.Size = New System.Drawing.Size(800, 424) Me.TabControl1.TabIndex = 5 ' 'TabPage2 ' Me.TabPage2.Controls.Add(Me.GroupBox14) Me.TabPage2.Controls.Add(Me.GroupBox8) Me.TabPage2.Controls.Add(Me.GroupBox7) Me.TabPage2.Controls.Add(Me.GroupBox6) Me.TabPage2.Controls.Add(Me.GroupBox13) Me.TabPage2.Location = New System.Drawing.Point(4, 22) Me.TabPage2.Name = "TabPage2" Me.TabPage2.Size = New System.Drawing.Size(792, 398) Me.TabPage2.TabIndex = 0 Me.TabPage2.Text = "Allgemein" ' 'GroupBox14 ' Me.GroupBox14.Controls.Add(Me.DateErinnerung) Me.GroupBox14.Controls.Add(Me.Label23) Me.GroupBox14.Controls.Add(Me.DateTimePicker2) Me.GroupBox14.Controls.Add(Me.Label6) Me.GroupBox14.Location = New System.Drawing.Point(8, 8) Me.GroupBox14.Name = "GroupBox14" Me.GroupBox14.Size = New System.Drawing.Size(368, 40) Me.GroupBox14.TabIndex = 59 Me.GroupBox14.TabStop = False ' 'DateErinnerung ' Me.DateErinnerung.FormatType = C1.Win.C1Input.FormatTypeEnum.ShortDate Me.DateErinnerung.Location = New System.Drawing.Point(264, 13) Me.DateErinnerung.Name = "DateErinnerung" Me.DateErinnerung.Size = New System.Drawing.Size(96, 20) Me.DateErinnerung.TabIndex = 1 Me.DateErinnerung.Tag = Nothing Me.DateErinnerung.VisibleButtons = C1.Win.C1Input.DropDownControlButtonFlags.DropDown ' 'Label23 ' Me.Label23.Location = New System.Drawing.Point(155, 15) Me.Label23.Name = "Label23" Me.Label23.Size = New System.Drawing.Size(120, 23) Me.Label23.TabIndex = 39 Me.Label23.Text = "Überfällig-Meldung ab" ' 'DateTimePicker2 ' Me.DateTimePicker2.FormatType = C1.Win.C1Input.FormatTypeEnum.ShortDate Me.DateTimePicker2.Location = New System.Drawing.Point(50, 13) Me.DateTimePicker2.Name = "DateTimePicker2" Me.DateTimePicker2.Size = New System.Drawing.Size(96, 20) Me.DateTimePicker2.TabIndex = 0 Me.DateTimePicker2.Tag = Nothing Me.DateTimePicker2.VisibleButtons = C1.Win.C1Input.DropDownControlButtonFlags.DropDown ' 'Label6 ' Me.Label6.Location = New System.Drawing.Point(8, 14) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(80, 23) Me.Label6.TabIndex = 37 Me.Label6.Text = "Termin" ' 'GroupBox8 ' Me.GroupBox8.Controls.Add(Me.drpMiatarbeiter) Me.GroupBox8.Controls.Add(Me.Notizlist) Me.GroupBox8.Location = New System.Drawing.Point(8, 272) Me.GroupBox8.Name = "GroupBox8" Me.GroupBox8.Size = New System.Drawing.Size(776, 120) Me.GroupBox8.TabIndex = 58 Me.GroupBox8.TabStop = False Me.GroupBox8.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(400, 32) 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 = 2 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.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(8, 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(760, 96) Me.Notizlist.TabIndex = 0 Me.Notizlist.Text = "C1TrueDBGrid1" Me.Notizlist.PropBag = resources.GetString("Notizlist.PropBag") ' 'GroupBox7 ' Me.GroupBox7.BackColor = System.Drawing.SystemColors.Control Me.GroupBox7.Controls.Add(Me.InfoMeldungList) Me.GroupBox7.Location = New System.Drawing.Point(8, 176) Me.GroupBox7.Name = "GroupBox7" Me.GroupBox7.Size = New System.Drawing.Size(776, 96) Me.GroupBox7.TabIndex = 57 Me.GroupBox7.TabStop = False Me.GroupBox7.Text = "Informationsmeldungen" ' 'InfoMeldungList ' Me.InfoMeldungList.AllowUpdate = False Me.InfoMeldungList.AlternatingRows = True Me.InfoMeldungList.ContextMenu = Me.ContextMenu4 Me.InfoMeldungList.GroupByCaption = "Drag a column header here to group by that column" Me.InfoMeldungList.Images.Add(CType(resources.GetObject("InfoMeldungList.Images"), System.Drawing.Image)) Me.InfoMeldungList.Location = New System.Drawing.Point(8, 16) Me.InfoMeldungList.Name = "InfoMeldungList" Me.InfoMeldungList.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.InfoMeldungList.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.InfoMeldungList.PreviewInfo.ZoomFactor = 75.0R Me.InfoMeldungList.PrintInfo.PageSettings = CType(resources.GetObject("InfoMeldungList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.InfoMeldungList.Size = New System.Drawing.Size(760, 72) Me.InfoMeldungList.TabIndex = 0 Me.InfoMeldungList.Text = "C1TrueDBGrid1" Me.InfoMeldungList.PropBag = resources.GetString("InfoMeldungList.PropBag") ' 'GroupBox6 ' Me.GroupBox6.Controls.Add(Me.ZuordnungList) Me.GroupBox6.Location = New System.Drawing.Point(384, 8) Me.GroupBox6.Name = "GroupBox6" Me.GroupBox6.Size = New System.Drawing.Size(400, 168) Me.GroupBox6.TabIndex = 56 Me.GroupBox6.TabStop = False Me.GroupBox6.Text = "Dokument-Zuordnung" ' 'ZuordnungList ' Me.ZuordnungList.AlternatingRows = True Me.ZuordnungList.ContextMenu = Me.ContextMenu3 Me.ZuordnungList.Dock = System.Windows.Forms.DockStyle.Fill Me.ZuordnungList.GroupByCaption = "Drag a column header here to group by that column" Me.ZuordnungList.Images.Add(CType(resources.GetObject("ZuordnungList.Images"), System.Drawing.Image)) Me.ZuordnungList.Location = New System.Drawing.Point(3, 16) Me.ZuordnungList.Name = "ZuordnungList" Me.ZuordnungList.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.ZuordnungList.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.ZuordnungList.PreviewInfo.ZoomFactor = 75.0R Me.ZuordnungList.PrintInfo.PageSettings = CType(resources.GetObject("ZuordnungList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.ZuordnungList.Size = New System.Drawing.Size(394, 149) Me.ZuordnungList.TabIndex = 0 Me.ZuordnungList.Text = "C1TrueDBGrid1" Me.ZuordnungList.PropBag = resources.GetString("ZuordnungList.PropBag") ' 'GroupBox13 ' Me.GroupBox13.Controls.Add(Me.txtBemerkung) Me.GroupBox13.Location = New System.Drawing.Point(8, 48) Me.GroupBox13.Name = "GroupBox13" Me.GroupBox13.Size = New System.Drawing.Size(368, 128) Me.GroupBox13.TabIndex = 55 Me.GroupBox13.TabStop = False Me.GroupBox13.Text = "Bemerkung" ' '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(352, 104) Me.txtBemerkung.TabIndex = 0 ' 'TabPage6 ' Me.TabPage6.Controls.Add(Me.GroupBox15) Me.TabPage6.Location = New System.Drawing.Point(4, 22) Me.TabPage6.Name = "TabPage6" Me.TabPage6.Size = New System.Drawing.Size(792, 398) Me.TabPage6.TabIndex = 1 Me.TabPage6.Text = "COLD-Dokumentinformationen" ' 'GroupBox15 ' Me.GroupBox15.Controls.Add(Me.btnLoeschen) Me.GroupBox15.Controls.Add(Me.Button5) Me.GroupBox15.Controls.Add(Me.Button6) Me.GroupBox15.Controls.Add(Me.Button7) Me.GroupBox15.Controls.Add(Me.Button8) Me.GroupBox15.Controls.Add(Me.Label12) Me.GroupBox15.Controls.Add(Me.TextBox4) Me.GroupBox15.Controls.Add(Me.TextBox3) Me.GroupBox15.Controls.Add(Me.TextBox2) Me.GroupBox15.Controls.Add(Me.Label14) Me.GroupBox15.Controls.Add(Me.Label15) Me.GroupBox15.Controls.Add(Me.Label19) Me.GroupBox15.Controls.Add(Me.DateTimePicker4) Me.GroupBox15.Controls.Add(Me.Label21) Me.GroupBox15.Controls.Add(Me.TextBox1) Me.GroupBox15.Location = New System.Drawing.Point(8, 8) Me.GroupBox15.Name = "GroupBox15" Me.GroupBox15.Size = New System.Drawing.Size(776, 384) Me.GroupBox15.TabIndex = 0 Me.GroupBox15.TabStop = False ' 'btnLoeschen ' Me.btnLoeschen.Image = CType(resources.GetObject("btnLoeschen.Image"), System.Drawing.Image) Me.btnLoeschen.Location = New System.Drawing.Point(304, 48) Me.btnLoeschen.Name = "btnLoeschen" Me.btnLoeschen.Size = New System.Drawing.Size(24, 23) Me.btnLoeschen.TabIndex = 29 Me.ToolTip1.SetToolTip(Me.btnLoeschen, "VV-Nummer löschen") ' 'Button5 ' Me.Button5.Location = New System.Drawing.Point(664, 352) Me.Button5.Name = "Button5" Me.Button5.Size = New System.Drawing.Size(75, 23) Me.Button5.TabIndex = 8 Me.Button5.Text = "&Abbruch" Me.Button5.Visible = False ' 'Button6 ' Me.Button6.Location = New System.Drawing.Point(16, 152) Me.Button6.Name = "Button6" Me.Button6.Size = New System.Drawing.Size(264, 23) Me.Button6.TabIndex = 7 Me.Button6.Text = "Indexmutation speichern" ' 'Button7 ' Me.Button7.Location = New System.Drawing.Point(280, 48) Me.Button7.Name = "Button7" Me.Button7.Size = New System.Drawing.Size(24, 23) Me.Button7.TabIndex = 3 Me.Button7.Text = "..." Me.ToolTip1.SetToolTip(Me.Button7, "VV-Nummer wechseln") ' 'Button8 ' Me.Button8.Image = CType(resources.GetObject("Button8.Image"), System.Drawing.Image) Me.Button8.Location = New System.Drawing.Point(280, 24) Me.Button8.Name = "Button8" Me.Button8.Size = New System.Drawing.Size(24, 23) Me.Button8.TabIndex = 1 Me.ToolTip1.SetToolTip(Me.Button8, "Partner wechseln") ' 'Label12 ' Me.Label12.Location = New System.Drawing.Point(16, 48) Me.Label12.Name = "Label12" Me.Label12.Size = New System.Drawing.Size(88, 23) Me.Label12.TabIndex = 28 Me.Label12.Text = "VV-Nummer" ' 'TextBox4 ' Me.TextBox4.Location = New System.Drawing.Point(160, 48) Me.TextBox4.Name = "TextBox4" Me.TextBox4.ReadOnly = True Me.TextBox4.Size = New System.Drawing.Size(120, 20) Me.TextBox4.TabIndex = 2 ' 'TextBox3 ' Me.TextBox3.Location = New System.Drawing.Point(160, 120) Me.TextBox3.Name = "TextBox3" Me.TextBox3.Size = New System.Drawing.Size(120, 20) Me.TextBox3.TabIndex = 6 Me.TextBox3.Visible = False ' 'TextBox2 ' Me.TextBox2.Location = New System.Drawing.Point(160, 96) Me.TextBox2.Name = "TextBox2" Me.TextBox2.Size = New System.Drawing.Size(120, 20) Me.TextBox2.TabIndex = 5 ' 'Label14 ' Me.Label14.Location = New System.Drawing.Point(16, 120) Me.Label14.Name = "Label14" Me.Label14.Size = New System.Drawing.Size(136, 23) Me.Label14.TabIndex = 24 Me.Label14.Text = "Grundstück-Bezeichnung" Me.Label14.Visible = False ' 'Label15 ' Me.Label15.Location = New System.Drawing.Point(16, 96) Me.Label15.Name = "Label15" Me.Label15.Size = New System.Drawing.Size(80, 23) Me.Label15.TabIndex = 23 Me.Label15.Text = "Geschäftsfall" ' 'Label19 ' Me.Label19.Location = New System.Drawing.Point(16, 72) Me.Label19.Name = "Label19" Me.Label19.Size = New System.Drawing.Size(80, 23) Me.Label19.TabIndex = 22 Me.Label19.Text = "Archiv-Datum" ' 'DateTimePicker4 ' Me.DateTimePicker4.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker4.Location = New System.Drawing.Point(160, 72) Me.DateTimePicker4.Name = "DateTimePicker4" Me.DateTimePicker4.Size = New System.Drawing.Size(120, 20) Me.DateTimePicker4.TabIndex = 4 ' 'Label21 ' Me.Label21.Location = New System.Drawing.Point(16, 24) Me.Label21.Name = "Label21" Me.Label21.Size = New System.Drawing.Size(64, 23) Me.Label21.TabIndex = 20 Me.Label21.Text = "Partner-Nr." ' 'TextBox1 ' Me.TextBox1.Location = New System.Drawing.Point(160, 24) Me.TextBox1.Name = "TextBox1" Me.TextBox1.ReadOnly = True Me.TextBox1.Size = New System.Drawing.Size(120, 20) Me.TextBox1.TabIndex = 0 ' 'pnlBerechtigungen ' Me.pnlBerechtigungen.Controls.Add(Me.DokumentFunktionenList) Me.pnlBerechtigungen.Location = New System.Drawing.Point(80, 496) Me.pnlBerechtigungen.Name = "pnlBerechtigungen" Me.pnlBerechtigungen.Size = New System.Drawing.Size(616, 16) Me.pnlBerechtigungen.TabIndex = 65 Me.pnlBerechtigungen.TabStop = False Me.pnlBerechtigungen.Text = "Berechtigungseinschränkung" Me.pnlBerechtigungen.Visible = False ' 'DokumentFunktionenList ' Me.DokumentFunktionenList.AlternatingRows = True Me.DokumentFunktionenList.ContextMenu = Me.ContextMenu6 Me.DokumentFunktionenList.GroupByCaption = "Drag a column header here to group by that column" Me.DokumentFunktionenList.Images.Add(CType(resources.GetObject("DokumentFunktionenList.Images"), System.Drawing.Image)) Me.DokumentFunktionenList.Location = New System.Drawing.Point(8, 16) Me.DokumentFunktionenList.Name = "DokumentFunktionenList" Me.DokumentFunktionenList.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.DokumentFunktionenList.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.DokumentFunktionenList.PreviewInfo.ZoomFactor = 75.0R Me.DokumentFunktionenList.PrintInfo.PageSettings = CType(resources.GetObject("DokumentFunktionenList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.DokumentFunktionenList.Size = New System.Drawing.Size(600, 120) Me.DokumentFunktionenList.TabIndex = 0 Me.DokumentFunktionenList.PropBag = resources.GetString("DokumentFunktionenList.PropBag") ' 'GroupBox9 ' Me.GroupBox9.Controls.Add(Me.Button3) Me.GroupBox9.Controls.Add(Me.cvertraulich) Me.GroupBox9.Controls.Add(Me.Label18) Me.GroupBox9.Controls.Add(Me.cGesperrt) Me.GroupBox9.Controls.Add(Me.Label9) Me.GroupBox9.Location = New System.Drawing.Point(120, 496) Me.GroupBox9.Name = "GroupBox9" Me.GroupBox9.Size = New System.Drawing.Size(152, 16) Me.GroupBox9.TabIndex = 64 Me.GroupBox9.TabStop = False Me.GroupBox9.Text = "Schutz" Me.GroupBox9.Visible = False ' 'Button3 ' Me.Button3.Location = New System.Drawing.Point(16, 88) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(120, 48) Me.Button3.TabIndex = 19 Me.Button3.Text = "Liste der berechtigten Mitarbeiter" ' 'cvertraulich ' Me.cvertraulich.Location = New System.Drawing.Point(80, 46) Me.cvertraulich.Name = "cvertraulich" Me.cvertraulich.Size = New System.Drawing.Size(48, 24) Me.cvertraulich.TabIndex = 18 ' 'Label18 ' Me.Label18.Location = New System.Drawing.Point(16, 48) Me.Label18.Name = "Label18" Me.Label18.Size = New System.Drawing.Size(64, 23) Me.Label18.TabIndex = 17 ' 'cGesperrt ' Me.cGesperrt.Enabled = False Me.cGesperrt.Location = New System.Drawing.Point(80, 24) Me.cGesperrt.Name = "cGesperrt" Me.cGesperrt.Size = New System.Drawing.Size(48, 24) Me.cGesperrt.TabIndex = 16 ' 'Label9 ' Me.Label9.Location = New System.Drawing.Point(16, 24) Me.Label9.Name = "Label9" Me.Label9.Size = New System.Drawing.Size(64, 23) Me.Label9.TabIndex = 15 ' 'BtnHelp ' Me.BtnHelp.Image = CType(resources.GetObject("BtnHelp.Image"), System.Drawing.Image) Me.BtnHelp.Location = New System.Drawing.Point(8, 496) Me.BtnHelp.Name = "BtnHelp" Me.BtnHelp.Size = New System.Drawing.Size(24, 23) Me.BtnHelp.TabIndex = 66 ' 'frmDokumentInfoEdit ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(810, 527) Me.ControlBox = False Me.Controls.Add(Me.BtnHelp) Me.Controls.Add(Me.pnlBerechtigungen) Me.Controls.Add(Me.GroupBox9) Me.Controls.Add(Me.TabControl1) Me.Controls.Add(Me.Label11) Me.Controls.Add(Me.txtstatus) Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.cbsave) Me.Controls.Add(Me.cbmoeglicheStati) Me.Controls.Add(Me.Button4) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.cdokumentwerteanzeigen) Me.Controls.Add(Me.cbVerantwortlich) Me.Controls.Add(Me.Label17) Me.Controls.Add(Me.Label16) Me.Controls.Add(Me.cbdokumentstatus) Me.Controls.Add(Me.txtPartnerInhaberNr) Me.Controls.Add(Me.txtBezeichnung) Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.btnPartnerInhaber) Me.Controls.Add(Me.txtPartnerZusteller) Me.Controls.Add(Me.txtPartnerInhaber) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.TabControl2) Me.Controls.Add(Me.btnCancel) Me.Controls.Add(Me.btnWeiter) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.MaximizeBox = False Me.MinimizeBox = False Me.Name = "frmDokumentInfoEdit" Me.ShowInTaskbar = False Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Dokumentinformationen bearbeiten" CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DataSet4, System.ComponentModel.ISupportInitialize).EndInit() Me.TabControl2.ResumeLayout(False) Me.TabPage3.ResumeLayout(False) Me.GroupBox12.ResumeLayout(False) Me.GroupBox10.ResumeLayout(False) CType(Me.DokWertList, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox3.ResumeLayout(False) Me.GroupBox1.ResumeLayout(False) Me.GroupBox2.ResumeLayout(False) Me.TabPage4.ResumeLayout(False) Me.GroupBox5.ResumeLayout(False) CType(Me.ColdList, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox4.ResumeLayout(False) Me.TabPage1.ResumeLayout(False) Me.GroupBox11.ResumeLayout(False) Me.GroupBox11.PerformLayout() Me.TabControl1.ResumeLayout(False) Me.TabPage2.ResumeLayout(False) Me.GroupBox14.ResumeLayout(False) CType(Me.DateErinnerung, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DateTimePicker2, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox8.ResumeLayout(False) CType(Me.drpMiatarbeiter, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Notizlist, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox7.ResumeLayout(False) CType(Me.InfoMeldungList, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox6.ResumeLayout(False) CType(Me.ZuordnungList, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox13.ResumeLayout(False) Me.GroupBox13.PerformLayout() Me.TabPage6.ResumeLayout(False) Me.GroupBox15.ResumeLayout(False) Me.GroupBox15.PerformLayout() Me.pnlBerechtigungen.ResumeLayout(False) CType(Me.DokumentFunktionenList, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox9.ResumeLayout(False) Me.ResumeLayout(False) Me.PerformLayout() End Sub #End Region #Region "Deklarationen" Dim Aktueller_Dokumentverantwortlicher As Integer Dim datum As DateTime Dim vvnr As String Dim gf As String Dim gu As String Dim m_dokumentid As String Property Dokumentid() As String Get Return m_dokumentid End Get Set(ByVal Value As String) m_dokumentid = Value End Set End Property Dim daten As New DataTable() Dim dokumente As New DataTable() Dim w As New WordLib() Dim On_Load As Boolean Dim NewDokumentID As String Dim CurrentProfil As Long Dim m_dokumenttypnr As Long Dim m_createdocument As Boolean Dim i As Integer Dim ii As Integer Dim Notizen As DataTable Dim Dokumentersetzen As DataTable Dim Dokumentzuorndungen As DataTable Dim DokumentInfoMeldungen As DataTable Dim DokumentFunktionen As DataTable Dim m_barcodeid As String Dim zu_retournieren As Boolean Dim teamzustaendig As Integer Dim m_dokument_ist_abgeschlossen As Boolean Property Dokument_Ist_Abgeschlossen() As Boolean Get Return m_dokument_ist_abgeschlossen End Get Set(ByVal Value As Boolean) m_dokument_ist_abgeschlossen = Value End Set End Property Dim m_dokumentinfobearbeiten As Boolean Property Dokumentinfobearbeiten() As Boolean Get Return m_dokumentinfobearbeiten End Get Set(ByVal Value As Boolean) m_dokumentinfobearbeiten = Value End Set End Property Property BarcodeID() As String Get Return m_barcodeid End Get Set(ByVal Value As String) m_barcodeid = Value End Set End Property Property Dokumenttypnr() As Long Get Return m_dokumenttypnr End Get Set(ByVal Value As Long) m_dokumenttypnr = Value End Set End Property Property CreateDocument() As Boolean Get Return m_createdocument End Get Set(ByVal Value As Boolean) m_createdocument = Value End Set End Property Dim m_profilnr As Long Property Profilnr() As Long Get Return m_profilnr End Get Set(ByVal Value As Long) m_profilnr = Value End Set End Property Dim m_profile As DataTable Property Profile() As DataTable Get Return m_profile End Get Set(ByVal Value As DataTable) m_profile = Value End Set End Property Property EditDokumentid() As String Get Return Dokumentid End Get Set(ByVal Value As String) Dokumentid = Value End Set End Property Dim m_Partnernr As String Property Partnernr() As String Get Return m_Partnernr End Get Set(ByVal Value As String) m_Partnernr = Value End Set End Property Dim savestatus As Integer Dim saveverantwortlicher As Integer Dim m_NurDokInfo As Boolean Property NurDokinfo() As Boolean Get Return m_NurDokInfo End Get Set(ByVal Value As Boolean) m_NurDokInfo = Value End Set End Property #End Region Dim WithEvents mcbverantwortlich As New MultiComboBox() Dim WithEvents mcbunterschriftlinks As New MultiComboBox() Dim WithEvents mcbunterschriftrechts As New MultiComboBox() Dim WithEvents mcbpostzustellung As New MultiComboBox() Dim WithEvents mcbkube As New MultiComboBox() Dim WithEvents mcbstatus As New MultiComboBox() Dim WithEvents mcbzust As New MultiComboBox() Dim WithEvents mcbteam As New MultiComboBox() Dim moeglichestati As DataTable Dim funktionsliste As String Dim selectedstatus As Integer Dim Doktype As Integer #Region "FormLoad" 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 Private Sub frmDokumentbearbeitung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.TabControl1.TabPages(Me.TabControl1.TabPages.Count - 1).Visible = False Me.Cursor = Cursors.WaitCursor Me.On_Load = True If Me.CreateDocument Then Formular_Laden_Create_Document() If Me.Partnernr <> "" Then If DivFnkt.Ist_Berechtigt(Me.Dokumenttypnr, Globals.MitarbeiterNr, Me.Partnernr, "", 2, 0, 0, 0) Then Dim f As New FrmPartnersuche() f.Dokumenterstellen = True f.Partner_Suche(Me.Partnernr) Me.txtPartnerInhaber.Text = Str(f.PartnerNr) + " " + f.PartnerKurzbezeichnnung Me.txtPartnerInhaberNr.Text = f.PartnerNr Me.txtPartnerZusteller.Text = Me.get_partnerzusteller(f.PartnerNr) Me.TabControl2.Enabled = True f.Dispose() Else MyMsg.show_standardmessage(30, MsgBoxStyle.Critical) Me.Close() End If Else btnPartnerInhaber_Click(sender, e) End If 'ObjPers If DivFnkt.PartnerTyp(Val(Me.txtPartnerInhaberNr.Text)) = EDOKA.clsDivFnkt.ENUM_Partnertyp.EDOKA_Interessent Then 'If Val(Me.txtPartnerInhaberNr.Text) > 91000000 Then Me.cbKube.SelectedValue = Globals.MitarbeiterNr End If Else Formular_laden_Edit_Document() Dim bc As New DataTable() bc = Generic_Select(11) If bc.Rows.Count > 0 Then Me.BarcodeID = LTrim(Str(bc.Rows(0).Item(0))) End If bc.Dispose() End If If Me.BarcodeID <> "" Or Me.Dokumentinfobearbeiten = True Then Me.cdokumentwerteanzeigen.Visible = False Else Me.cdokumentwerteanzeigen.Visible = True End If Me.On_Load = False If Me.Dokument_Ist_Abgeschlossen Or Me.NurDokinfo Then bereiche_sperren() Me.Cursor = Cursors.Default load_indexmutation() load_Mitarbeiter() End Sub Private Sub settooltip() Dim ttip As New ToolTip() ttip.SetToolTip(Me.cbmoeglicheStati, Globals.MyTxt.gettext(22000)) ttip.SetToolTip(Me.btnPartnerInhaber, Globals.MyTxt.gettext(22001)) ttip.SetToolTip(Me.Button1, Globals.MyTxt.gettext(22002)) End Sub Private Sub bereiche_sperren() Me.btnPartnerInhaber.Enabled = False Me.GroupBox1.Enabled = False Me.GroupBox2.Enabled = False Me.GroupBox3.Enabled = False Me.GroupBox4.Enabled = False Me.GroupBox5.Enabled = False Me.GroupBox10.Enabled = False Me.GroupBox11.Enabled = False Me.GroupBox12.Enabled = False Me.GroupBox9.Enabled = False Me.Button2.Enabled = False Me.pnlBerechtigungen.Enabled = False Me.cbVerantwortlich.Enabled = False Me.mcbverantwortlich.Enabled = False Me.cbdokumentstatus.Enabled = False Me.mcbstatus.Enabled = False Me.DokWertList.Enabled = False Me.cdokumentwerteanzeigen.Visible = False End Sub Private Sub Formular_laden_Edit_Document() Dim doc As New edokaDB.clsDokument() doc.cpMainConnectionProvider = conn conn.OpenConnection() doc.sDokumentid = New SqlString(CType(Me.EditDokumentid, String)) doc.SelectOne() doc.cpMainConnectionProvider = conn doc.sDokumentid = New SqlString(CType(Me.EditDokumentid, String)) NewDokumentID = Me.EditDokumentid Me.Partnernr = doc.iNrpar00.Value doc.SelectOne() 'Rel. 4.03 Me.Doktype = doc.iDokumenttypnr.Value w.Save_Dokument = doc.SelectOne Me.Dokumenttypnr = doc.iDokumenttypnr.Value Dokumentid = doc.sDokumentid.Value Me.Aktueller_Dokumentverantwortlicher = doc.iVerantwortlich.Value Load_Defaults() 'Parnter laden Dim p As New edokaDB.clsPartner() p.cpMainConnectionProvider = conn p.iNRPAR00 = doc.iNrpar00 p.SelectOne() Me.txtPartnerInhaber.Text = Str(p.iNRPAR00.Value) + " " + p.sBKPAR00.Value Me.txtPartnerInhaberNr.Text = p.iNRPAR00.Value Me.txtPartnerZusteller.Text = Me.get_partnerzusteller(p.iNRPAR00.Value) p.Dispose() conn.CloseConnection(True) Try Me.txtBemerkung.Text = doc.sBemerkung.Value 'Rel 4.1 SHU Me.txtBezeichnung.Text = doc.sBezeichnung.Value Catch End Try Try If doc.daTermin.Value = "01.01.1900" Then Me.DateTimePicker2.ResetText() Me.DateTimePicker2.Value = System.DBNull.Value Else Me.DateTimePicker2.Value = doc.daTermin.Value End If Catch Me.DateTimePicker2.Value = System.DBNull.Value End Try Try If doc.daErinnerungam.Value = "01.01.1900" Then Me.DateErinnerung.ResetText() Me.DateErinnerung.Value = System.DBNull.Value Else Me.DateErinnerung.Value = doc.daErinnerungam.Value End If Catch Me.DateErinnerung.Value = System.DBNull.Value End Try If Me.Dokument_Ist_Abgeschlossen Or Me.NurDokinfo Then Exit Sub ii = doc.iPostzustellung.Value Me.mcbpostzustellung.SelectedValue = ii If doc.bZustaendig_kube.Value = True Then ii = doc.iZustaendiger.Value Me.mcbkube.SelectedValue = ii Else ii = doc.iZustaendiger.Value Me.mcbzust.SelectedValue = ii End If ii = doc.iVerantwortlich.Value Me.mcbverantwortlich.SelectedValue = ii Me.saveverantwortlicher = ii Me.savestatus = doc.iStatusnr.Value ii = doc.iUnterschriftlinks.Value Me.mcbunterschriftlinks.SelectedValue = ii ii = doc.iUnterschriftrechts.Value Me.mcbunterschriftrechts.SelectedValue = ii Me.cGesperrt.Checked = doc.bGesperrt.Value = True Me.txtBemerkung.Text = doc.sBemerkung.Value Me.txtBezeichnung.Text = doc.sBezeichnung.Value Me.rbZustaendigKube.Checked = doc.bZustaendig_kube.Value = True Me.cvertraulich.Checked = doc.bVertraulich.Value = True Me.txtZustelladresse.Text = doc.sZustelladresse.Value Me.txtAnredeZusteller.Text = doc.sAnredezustelladresse.Value Me.RBZustaendigZustaendiger.Checked = doc.bZustaendig_kube.Value = False Me.teamzustaendig = doc.iZustaendiger.Value Me.refresh_team() Try Me.mcbteam.SelectedValue = doc.iMutierertieam.Value Catch Me.mcbteam.SelectedIndex = 0 End Try Try Me.DateTimePicker1.Value = doc.daErstellungsdatum.Value Catch Me.DateTimePicker1.Value = Now End Try Try Me.DateTimePicker3.Value = doc.daArchivierungsdatum.Value Catch Me.DateTimePicker3.Value = Me.DateTimePicker1.Value End Try doc.Dispose() Me.Dokumentersetzen = Dokumentersetzen_Laden() w.save_dokumentersetzen = Dokumentersetzen_Laden() Me.ColdList.DataSource = Me.Dokumentersetzen DivFnkt.SpaltenTitel_Aktualisieren(Me.ColdList, Me.Dokumentersetzen, "dokumentersetzen") Me.Notizen = Notizen_Laden() w.Save_Notizen = Notizen_Laden() Me.Notizlist.DataSource = Notizen DivFnkt.SpaltenTitel_Aktualisieren(Me.Notizlist, Me.Notizen, "notizen") w.Save_Dokumentwerte = Generic_Select(10) Me.DataSet1.Clear() Me.DataSet1.Tables.Clear() Me.DataSet1.Tables.Add(DokumentwertListe_laden) Me.DokWertList.DataSource = Me.DataSet1 Me.DokWertList.DataMember = Me.DataSet1.Tables(0).TableName For i = 3 To Me.DokWertList.Columns.Count - 1 Me.DokWertList.Splits(0).DisplayColumns(i).Visible = False Next Me.DokWertList.Splits(0).DisplayColumns(0).Width = 110 Me.DokWertList.Splits(0).DisplayColumns(1).Width = 50 Me.DokWertList.Columns(1).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox Me.DokWertList.Splits(0).DisplayColumns(1).Locked = True Me.DokWertList.Splits(0).DisplayColumns(2).Width = 160 conn.CloseConnection(True) w.Save_ColdIndex = Generic_Select(9) Me.TabControl2.Enabled = True Dim tmp As DataTable tmp = Generic_Select(12) w.save_historystatus = tmp.Rows(0).Item(0) tmp.Dispose() End Sub Private Function Dokumentersetzen_Laden() 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_dokumentersetzen_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, Me.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 Private Function Notizen_Laden() 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, Me.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 Private Function Dokumentzuordnungen_Laden() Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.SP_Dokumentzuordnungen_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, Me.Dokumentid)) 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("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function Private Function Dokumentinfomeldungen_laden() Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.SP_Dokumentinfomeldung_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, "")) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumenttypnr)) Else scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) End If sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception MsgBox(ex.Message) ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("Dokumentinfomeldung_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function Private Function DokumentwertListe_laden() 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_Dokumentbearbeitung_Dokumentwerte" scmCmdToExecute.CommandType = CommandType.StoredProcedure 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("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumenttypnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@CreateNew", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) 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 Private Sub Formular_Laden_Create_Document() NewDokumentID = DivFnkt.Generate_Key() Load_Defaults() w.save_historystatus = 0 End Sub Private Sub Load_Defaults() Me.SqlConnection1.ConnectionString = Globals.sConnectionString Dim doktyp As New edokaDB.clsDokumenttyp() doktyp.cpMainConnectionProvider = conn doktyp.iDokumenttypnr = New SqlInt32(CType(Me.Dokumenttypnr, Int32)) doktyp.SelectOne() If doktyp.bFunktionen_zuweisen.Value = True Then Dokumentfunktionen_Aktivieren() Else w.Save_DokumentFunktionen = Generic_Select(6) Me.pnlBerechtigungen.Visible = False End If 'Dokumenttyp-Daten If DivFnkt.Ist_Berechtigt(doktyp.iDokumenttypnr.Value, Globals.MitarbeiterNr, 0, 0, 0, 0, 0, 1) Then Me.cvertraulich.Visible = True Me.Label18.Visible = True Me.cvertraulich.Checked = doktyp.bVertrauliches_dokument.Value = True Else Me.cvertraulich.Checked = False Me.cvertraulich.Visible = False Me.Label18.Visible = False End If Me.txtBezeichnung.Text = doktyp.sBezeichnung.Value Me.SqlDataAdapter1.SelectCommand.Parameters("@Dokumentid").Value = "" Me.SqlDataAdapter1.SelectCommand.Parameters("@Dokumenttypnr").Value = Me.Dokumenttypnr Me.SqlDataAdapter1.SelectCommand.Parameters("@CreateNew").Value = 1 Me.SqlDataAdapter1.Fill(Me.DataSet1) Me.DokWertList.DataSource = Me.DataSet1 Me.DokWertList.DataMember = Me.DataSet1.Tables(0).TableName For i = 3 To Me.DokWertList.Columns.Count - 1 Me.DokWertList.Splits(0).DisplayColumns(i).Visible = False Next Me.DokWertList.Splits(0).DisplayColumns(0).Width = 110 Me.DokWertList.Splits(0).DisplayColumns(1).Width = 50 Me.DokWertList.Columns(1).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox Me.DokWertList.Splits(0).DisplayColumns(1).Locked = True Me.DokWertList.Splits(0).DisplayColumns(2).Width = 160 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.mcbkube = New MultiComboBox(Me.cbKube) Me.mcbkube.CheckNullValue = True Me.mcbkube.NullValueMessage = MyTxt.gettext(18) Me.mcbkube.DisplayColumnName = "name" Me.mcbkube.ValueColumnName = "mitarbeiternr" Me.mcbkube.Fill_Data(Generic_Select(8), False) 'Postzustellung Me.SqlDataAdapter2.SelectCommand.Parameters("@mandantnr").Value = Globals.MandantNr Me.SqlDataAdapter2.SelectCommand.Parameters("@sprache").Value = Globals.Sprache Me.SqlDataAdapter2.Fill(Me.DataSet2) mcbpostzustellung = New MultiComboBox(Me.cbPostzustellung) Me.mcbpostzustellung.DisplayColumnName = "bezeichnung" Me.mcbpostzustellung.ValueColumnName = "nreintrag" Dim d As DataTable d = Me.DataSet2.Tables(0) Me.mcbpostzustellung.Fill_Data(d, False) Me.mcbpostzustellung.Enabled = True mcbzust = New MultiComboBox(Me.cbzust) Me.mcbzust.DisplayColumnName = "name" Me.mcbzust.ValueColumnName = "mitarbeiternr" Me.mcbzust.Fill_Data(Generic_Select(3), False) ii = Globals.MitarbeiterNr Me.mcbzust.SelectedValue = ii mcbunterschriftlinks = New MultiComboBox(Me.cbUnterschriftlinks) Me.mcbunterschriftlinks.DisplayColumnName = "name" Me.mcbunterschriftlinks.ValueColumnName = "mitarbeiternr" For i = 0 To Me.Profile.Rows.Count - 1 If Me.Profile.Rows(i).Item("profilnr") = Me.Profilnr Then CurrentProfil = i End If Next ii = Me.Profile.Rows(CurrentProfil).Item("unterschriftlinks") Me.mcbunterschriftlinks.Fill_Data(Generic_Select(3), True) Me.mcbunterschriftlinks.SelectedValue = ii mcbunterschriftrechts = New MultiComboBox(Me.cbUnterschriftrechts) Me.mcbunterschriftrechts.DisplayColumnName = "name" Me.mcbunterschriftrechts.ValueColumnName = "mitarbeiternr" For i = 0 To Me.Profile.Rows.Count - 1 If Me.Profile.Rows(i).Item("profilnr") = Me.Profilnr Then CurrentProfil = i End If Next ii = Me.Profile.Rows(CurrentProfil).Item("unterschriftrechts") Me.mcbunterschriftrechts.Fill_Data(Generic_Select(3), True) Me.mcbunterschriftrechts.SelectedValue = ii Me.mcbverantwortlich = New MultiComboBox(cbVerantwortlich) Me.mcbverantwortlich.DisplayColumnName = "mitarbeiter" Me.mcbverantwortlich.ValueColumnName = "mitarbeiternr" FillMcbVerantwortlich() Me.rbZustaendigKube.Checked = False Me.RBZustaendigZustaendiger.Checked = True Me.txtZustelladresse.Text = "" If doktyp.bUnterschrift_links.Value = False Then Me.mcbunterschriftlinks.Enabled = False If doktyp.bUnterschrift_rechts.Value = False Then Me.mcbunterschriftrechts.Enabled = False If doktyp.bUnterschrift_links.Value = True Then Me.mcbunterschriftlinks.Enabled = True If doktyp.bUnterschrift_rechts.Value = True Then Me.mcbunterschriftrechts.Enabled = True Me.zu_retournieren = doktyp.bZu_retournieren.Value doktyp.Dispose() 'Dokument ersetzen Me.Dokumentersetzen = Dokumentersetzen_Laden() w.save_dokumentersetzen = Dokumentersetzen_Laden() Me.ColdList.DataSource = Me.Dokumentersetzen Me.ColdList.Columns("aktiv").FilterText = True Me.ColdList.FilterBar = False DivFnkt.SpaltenTitel_Aktualisieren(Me.ColdList, Me.Dokumentersetzen, "dokumentersetzen") If doktyp.bCold_ersetzen.Value <> True Then Me.ColdList.Enabled = False Else Me.ColdList.Enabled = True 'Notizen Notizen = Notizen_Laden() Me.Notizlist.DataSource = Notizen DivFnkt.SpaltenTitel_Aktualisieren(Me.Notizlist, Me.Notizen, "notizen") 'Dokumentzuordnungen Me.Dokumentzuorndungen = Dokumentzuordnungen_Laden() w.Save_Dokumentzuordnungen = Dokumentzuordnungen_Laden() Me.ZuordnungList.DataSource = Me.Dokumentzuorndungen DivFnkt.SpaltenTitel_Aktualisieren(Me.ZuordnungList, Me.Dokumentzuorndungen, "dokumentzuordnungen") Me.ZuordnungList.Columns("aktiv").FilterText = True Me.ZuordnungList.FilterBar = False Me.ZuordnungList.Columns("zuordnungnr").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.ComboBox Dim dxx As New SqlDataAdapter("Select zuordnungnr, bezeichnung from zuordnung", Globals.sConnectionString) Dim dh As New DataSet() dxx.Fill(dh, "dd") Dim vv(100) For i = 0 To dh.Tables(0).Rows.Count - 1 vv(i) = New C1.Win.C1TrueDBGrid.ValueItem() vv(i).DisplayValue = dh.Tables(0).Rows(i).Item("bezeichnung") vv(i).Value = dh.Tables(0).Rows(i).Item("zuordnungnr") Me.ZuordnungList.Columns("zuordnungnr").ValueItems.Values.Add(vv(i)) Me.ZuordnungList.Columns("zuordnungnr").ValueItems.Translate = True Next 'Dokumentinfomeldungen Me.InfoMeldungList.FetchRowStyles = True Me.DokumentInfoMeldungen = Dokumentinfomeldungen_laden() w.Save_Dokumentinfomeldungen = Dokumentinfomeldungen_laden() Me.InfoMeldungList.DataSource = Me.DokumentInfoMeldungen Me.InfoMeldungList.Columns("aktiv").FilterText = True DivFnkt.SpaltenTitel_Aktualisieren(Me.InfoMeldungList, Me.DokumentInfoMeldungen, "Dokumentinfomeldung") 'Team Me.mcbteam = New MultiComboBox(Me.cbteam) Me.mcbteam.CheckNullValue = True Me.mcbteam.NullValueMessage = MyTxt.gettext(18) Me.mcbteam.DisplayColumnName = "bezeichnung" Me.mcbteam.ValueColumnName = "teamnr" refresh_team() Me.mcbteam.SelectedIndex = 0 Me.mcbstatus.SelectedIndex = 0 Me.savestatus = Me.mcbstatus.SelectedValue Me.saveverantwortlicher = Globals.MitarbeiterNr Me.moeglichestati = Generic_Select(15) Me.cbmoeglicheStati.Items.Clear() Me.funktionsliste = "" ' Dim i As Integer settooltip() For i = 0 To Me.moeglichestati.Rows.Count - 1 Me.cbmoeglicheStati.Items.Add(Me.moeglichestati.Rows(i).Item("bezeichnung")) Next 'Rel. 4.1 shu If doktyp.bBezeichnungmut.Value = True Then Me.txtBezeichnung.ReadOnly = False Else Me.txtBezeichnung.ReadOnly = True End If End Sub 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 tt.Dispose() End Sub Private Sub mcbzust_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles mcbzust.Leave If Me.On_Load Then Exit Sub refresh_team() End Sub Private Sub mcbkube_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles mcbkube.Leave If Me.On_Load Then Exit Sub refresh_team() End Sub #End Region #Region "Formularhandling" Private Sub Set_Feldwert() Try 'Me.DokWertList.Columns("feldwert").Value = Me.ValueList.Columns(0).Value 'Me.DokWertList.Columns("feldwert").Value = Me.Datumselect.Text Catch End Try End Sub Private Sub btnPartnerInhaber_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPartnerInhaber.Click Dim f As New FrmPartnersuche() f.profilnr = Me.Profilnr f.NurAbfrage = False f.ShowDialog() If f.PartnerNr <> 0 Then If DivFnkt.Ist_Berechtigt(Me.Dokumenttypnr, Globals.MitarbeiterNr, f.PartnerNr, "", 2, 0, 0, 0) Then If Me.txtPartnerInhaber.Text <> "" And Me.txtPartnerInhaber.Text <> Str(f.PartnerNr) + " " + f.PartnerKurzbezeichnnung Then MyMsg.show_standardmessage(73, MsgBoxStyle.Information) End If Me.txtPartnerInhaber.Text = Str(f.PartnerNr) + " " + f.PartnerKurzbezeichnnung Me.txtPartnerInhaberNr.Text = f.PartnerNr Me.txtPartnerZusteller.Text = Me.get_partnerzusteller(f.PartnerNr) Me.TabControl2.Enabled = True Me.RBZustaendigZustaendiger.Checked = True Me.mcbkube.DataSource = Nothing Me.mcbkube.Text = "" Me.mcbkube.Items.Clear() Me.Partnernr = f.PartnerNr FillMcbVerantwortlich() Else MyMsg.show_standardmessage(30, MsgBoxStyle.Critical) Me.Close() End If End If End Sub Private Sub Datumselect_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Set_Feldwert() End Sub Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click If Me.CreateDocument = False Then DivFnkt.Status_Dokumentbearbeitung(2, Me.Dokumentid, False, "") If Globals.Dokumentcoldindex_Changed Then Archivfnkt.Restore_Coldindex(Globals.general_ds.Tables(0), Me.Dokumentid) If Globals.dokumentid_changed Then Archivfnkt.change_dokumentid(Dokumentid, Globals.Dokumentidalt) Else Update_Bclabel(2) End If Me.Close() End Sub #End Region #Region "Datenhandling" Private Function Generic_Select(ByVal typ As Integer) As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() Select Case typ Case 1 scmCmdToExecute.CommandText = "dbo.SP_Dokumentbearbeitung_DokWertList" Case 2 scmCmdToExecute.CommandText = "SP_Dokumentbearbeitung_StatusSelektion" Case 3 scmCmdToExecute.CommandText = "SP_Dokumentbearbeitung_Mitarbeiter" Case 4 scmCmdToExecute.CommandText = "SP_Dokumentbearbeitung_Notizen" Case 5 scmCmdToExecute.CommandText = "sp_funktion_zuweisung_gestattet" Case 6 scmCmdToExecute.CommandText = "sp_dokumentfunktion_zugewiesen" Case 7 scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_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 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 1 scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtPartnerInhaberNr.Text)) scmCmdToExecute.Parameters.Add(New SqlParameter("@regel", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokWertList.Columns("datenherkunft").Value)) 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, 2)) 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 6 scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.NewDokumentID)) Case 7 If Me.teamzustaendig = Globals.MitarbeiterNr Then scmCmdToExecute.Parameters.Add(New SqlParameter("@profilnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.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.txtPartnerInhaberNr.Text)) 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.txtPartnerInhaberNr.Text)) 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 'Mitarbeiter scmCmdToExecute.Parameters.Add(New SqlParameter("@Datenherkunft", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "&AlleMitarbeiter&")) 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 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 #End Region #Region "Notizen" Private Sub Notizlist_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Try If Me.Notizen.Rows.Count = 0 Then 'Bei Systemnotitzen werden die Menue Ausgeblendet MnuEditNotiz.Enabled = False MnuDeleteNotiz.Enabled = False Notizlist.AllowUpdate = False Exit Sub End If Catch End Try 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.TabControl2.Select() Me.Notizlist.Select() Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub MnuNeueNotiz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuNeueNotiz.Click Dim f As New frmNotizen() Dim objMitarbeiter As New edokaDB.clsMitarbeiter() 'koe 01092004 neu objMitarbeiter.cpMainConnectionProvider = conn objMitarbeiter.iMitarbeiternr = New SqlInt32(CType(Globals.MitarbeiterNr, Int32)) objMitarbeiter.SelectOne() f.Notiz = "" f.Betreff = "" f.Mutierer = objMitarbeiter.sName.ToString & " " & objMitarbeiter.sVorname.ToString & " , " & objMitarbeiter.sTgnummer.ToString objMitarbeiter.Dispose() 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 rowvals(9) = Globals.MitarbeiterNr 'ersteller 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 'koe 01092004 neu 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 System.Object, ByVal e As System.EventArgs) MnuEditNotiz_Click(sender, e) End Sub Private Sub Notizlist_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Notizlist.MouseDown Me.Notizlist.Bookmark = Me.Notizlist.RowContaining(e.Y) End Sub #End Region #Region "Dokumentwertliste" Private Sub MnuValueSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuValueSelect.Click, DokWertList.DoubleClick Me.Cursor = System.Windows.Forms.Cursors.WaitCursor Dim s As String Select Case UCase(Me.DokWertList.Columns("feldtyp").Value) Case "DATUM" Dim f As New frmCalendar() f.ShowDialog() If f.DialogResult = DialogResult.OK Then s = f.MonthCalendar1.SelectionStart Me.DokWertList.Columns("feldwert").Value = s End If f.Dispose() Case "TEXT" If Microsoft.VisualBasic.Left(Me.DokWertList.Columns("Datenherkunft").Value, 8) = "&Partner" Then Dim f As New FrmPartnersuche() f.ShowDialog() If f.PartnerNr <> 0 Then Me.DokWertList.Columns("feldwert").Value = Str(f.PartnerNr) + "-" + f.PartnerKurzbezeichnnung End If f.Dispose() Else If Microsoft.VisualBasic.Left(Me.DokWertList.Columns("Datenherkunft").Value, 1) = "&" Then Dim f As New frmValueSelector() f.Text = f.Text + Me.DokWertList.Columns(0).Value f.Datenherkunft = Me.DokWertList.Columns("Datenherkunft").Value f.Partnernr = Me.txtPartnerInhaberNr.Text() f.LoadData() If f.Datenvorhanden = True Then f.ShowDialog() If f.DialogResult = DialogResult.OK Then Me.DokWertList.Columns("feldwert").Value = f.SelWert End If f.Dispose() End If End If Case Else End Select Me.Cursor = System.Windows.Forms.Cursors.Default End Sub Private Sub DokwertList_RowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles DokWertList.RowColChange Try Me.DokWertList.Columns("feldwert").EditMask = Me.DokWertList.Columns("eingabeformat").Value Me.DokWertList.Columns("feldwert").EditMaskUpdate = True Catch End Try End Sub #End Region #Region "Dokumenterstellung" Private Sub btnWeiter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWeiter.Click ' Dim xdata As DataTable ' Dim s As String ' If Me.savestatus = Me.mcbstatus.SelectedValue Then ' If MyMsg.Show_HinweisMessage(Me.Profilnr, 2, 71, 2) = False Then ' Exit Sub ' End If ' End If ' If Me.txtPartnerInhaber.Text = "" Then ' MyMsg.show_standardmessage(205, MsgBoxStyle.Critical) ' Exit Sub ' End If ' If Me.mcbverantwortlich.Text = "" Then ' MyMsg.show_standardmessage(208, MsgBoxStyle.Critical) ' Exit Sub ' End If ' If Check_Dokumentfunktionen() = False Then Exit Sub ' xdata = Me.DataSet1.Tables(0) ' For i = 0 To xdata.Rows.Count - 1 ' If xdata.Rows(i).Item("zwingend") Is System.DBNull.Value Then ' Else ' If xdata.Rows(i).Item("zwingend") = True Then ' If xdata.Rows(i).Item("feldwert") Is System.DBNull.Value Or xdata.Rows(i).Item("feldwert") = "" Then ' MyMsg.show_standardmessage(206, MsgBoxStyle.Critical) ' Me.DokWertList.Focus() ' xdata.Dispose() ' Exit Sub ' End If ' End If ' End If ' Next ' If Me.mcbteam.SelectedValue = 0 Then ' MyMsg.show_standardmessage(207, MsgBoxStyle.Critical) ' Me.mcbteam.Focus() ' Exit Sub ' End If ' xdata.Dispose() Me.btnWeiter.Enabled = False Dokument_Bearbeiten(Me.CreateDocument) End Sub Private Function Check_Dokumentfunktionen() As Boolean Dim i As Integer Dim zz As Integer Dim bearbeiten As Boolean Dim abschliessen As Boolean bearbeiten = False abschliessen = False Check_Dokumentfunktionen = True If Me.DokumentFunktionenList.Visible = False Then Exit Function zz = 0 For i = 0 To Me.DokumentFunktionen.Rows.Count - 1 If Me.DokumentFunktionen.Rows(i).Item("aktiv") = 1 Then If Me.DokumentFunktionen.Rows(i).Item("bearbeiten") = True Then bearbeiten = True If Me.DokumentFunktionen.Rows(i).Item("abschliessen") = True Then abschliessen = True zz = zz + 1 End If Next If zz = 0 Then Check_Dokumentfunktionen = True Exit Function End If If bearbeiten = False Or abschliessen = False Then If bearbeiten = False Then MyMsg.show_standardmessage(34, MsgBoxStyle.Critical) Check_Dokumentfunktionen = False End If If abschliessen = False Then MyMsg.show_standardmessage(35, MsgBoxStyle.Critical) Check_Dokumentfunktionen = False End If End If End Function #End Region #Region "Dokumentbearbeitung" Private Sub Dokument_Bearbeiten(ByVal neu As Boolean) If Me.Dokument_Ist_Abgeschlossen Or Me.NurDokinfo = True Then Try Dim xdoc As New edokaDB.clsDokument() xdoc.sDokumentid = New SqlString(CType(Me.EditDokumentid, String)) xdoc.cpMainConnectionProvider = conn xdoc.SelectOne() xdoc.sBemerkung = New SqlString(CType(Me.txtBemerkung.Text, String)) xdoc.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32)) If Me.DateTimePicker2.Value Is System.DBNull.Value Then xdoc.daTermin = New SqlDateTime(CType("01.01.1900", DateTime)) Else xdoc.daTermin = New SqlDateTime(CType(Me.DateTimePicker2.Value, DateTime)) End If If Me.DateErinnerung.Value Is System.DBNull.Value Then xdoc.daErinnerungam = New SqlDateTime(CType("01.01.1900", DateTime)) Else xdoc.daErinnerungam = New SqlDateTime(CType(Me.DateErinnerung.Value, DateTime)) End If 'Rel 4.1 SHU xdoc.sBezeichnung = New SqlString(CType(Me.txtBezeichnung.Text, String)) conn.OpenConnection() xdoc.Update() conn.CloseConnection(True) xdoc.Dispose() Notizen_Sichern() Dokumentzuordnungen_Sichern() Dokumentinfomeldungen_Sichern() DivFnkt.Status_Dokumentbearbeitung(2, Me.Dokumentid, False, "") Catch ex As Exception MsgBox(ex.Message) Finally Me.Close() End Try Exit Sub End If w.txtPartner = Me.txtPartnerInhaber.Text w.txtDokumenttyp = Me.txtBezeichnung.Text w.ProgressBar.Info.Text = "Dokument erstellen" w.ProgressBar.Bar1a.Value = 10 Me.Cursor = System.Windows.Forms.Cursors.WaitCursor Dim dbkey As New edokaDB.clsMyKey_Tabelle() Dim doc As New edokaDB.clsDokument() Dim doctyp As New edokaDB.clsDokumenttyp() Dim docvor As New edokaDB.clsOffice_vorlage() 'Dokumenttyp laden doctyp.cpMainConnectionProvider = conn doctyp.iDokumenttypnr = New SqlInt32(CType(Me.Dokumenttypnr, Int32)) doctyp.SelectOne() 'OfficeVorlage laden docvor.cpMainConnectionProvider = conn docvor.iOffice_vorlagenr = New SqlInt32(CType(doctyp.iOffice_vorlagenr.Value, Int32)) docvor.SelectOne() 'Dokument erstellen doc.cpMainConnectionProvider = conn If Me.CreateDocument Then doc.sDokumentid = New SqlString(CType(NewDokumentID, String)) Else doc.sDokumentid = New SqlString(CType(Me.EditDokumentid, String)) doc.SelectOne() End If doc.iDokumenttypnr = New SqlInt32(CType(Me.Dokumenttypnr, Int32)) doc.iNrpar00 = New SqlInt32(CType(Me.txtPartnerInhaberNr.Text, 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(Me.DateTimePicker3.Value, DateTime)) If Me.DateTimePicker2.Value Is System.DBNull.Value Then doc.daTermin = New SqlDateTime(CType("01.01.1900", DateTime)) Else doc.daTermin = New SqlDateTime(CType(Me.DateTimePicker2.Value, DateTime)) End If 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(Me.cGesperrt.Checked, Boolean)) If Me.cGesperrt.Checked Then doc.daGesperrtam = New SqlDateTime(CType(Now, DateTime)) End If doc.bUnvollstaendig = New SqlBoolean(CType(False, Boolean)) doc.bZu_retournieren = New SqlBoolean(CType(doctyp.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(0, Int32)) doc.daErstelltam = New SqlDateTime(CType(Now, DateTime)) doc.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32)) doc.iMutiererteam = New SqlInt32(CType(0, 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(doctyp.iAufbewahrungsfrist_elektronisch.Value, Int32)) doc.iAufbewahrung_phaysisch = New SqlInt32(CType(doctyp.iTage_mutation.Value, Int32)) doc.iBearbeitung_nach_abschluss = New SqlInt32(CType(doctyp.iAnzahl_tage.Value, Int32)) doc.iBearbeitungszeit_in_minuten = New SqlInt32(CType(doctyp.iDbearbeitungszeit.Value, Int32)) doc.iMonierung_in_tagen = New SqlInt32(CType(doctyp.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(Me.mcbunterschriftlinks.SelectedValue, Int32)) doc.iUnterschriftrechts = New SqlInt32(CType(Me.mcbunterschriftrechts.SelectedValue, Int32)) doc.iVerantwortlich = New SqlInt32(CType(Me.mcbverantwortlich.SelectedValue, Int32)) doc.bVertraulich = New SqlBoolean(CType(Me.cvertraulich.Checked, Boolean)) doc.sZustelladresse = New SqlString(CType(Me.txtZustelladresse.Text, String)) doc.sAnredezustelladresse = New SqlString(CType(Me.txtAnredeZusteller.Text, String)) If Me.rbZustaendigKube.Checked Then doc.iZustaendiger = New SqlInt32(CType(Me.mcbkube.SelectedValue, Int32)) Else doc.iZustaendiger = New SqlInt32(CType(Me.mcbzust.SelectedValue, Int32)) End If doc.iPostzustellung = New SqlInt32(CType(Me.mcbpostzustellung.SelectedValue, Int32)) doc.bZustaendig_kube = New SqlBoolean(CType(Me.rbZustaendigKube.Checked, Boolean)) If Me.cGesperrt.Checked Then doc.iGesperrt_durch = New SqlInt32(CType(Globals.MitarbeiterNr, Int32)) doc.daGesperrtam = New SqlDateTime(CType(Now, DateTime)) Else doc.iGesperrt_durch = New SqlInt32(CType(0, Int32)) End If 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.txtBezeichnung.Text, 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)) ' doc.bBereit_zur_archivierung = New SqlBoolean(CType(False, Boolean)) '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.txtPartnerInhaberNr.Text) 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.Insert() t.Dispose() Dim statush As New Statushandling() statush.Status_Erstellen(doc.sDokumentid.Value, False) statush.Dispose() doc.iStatusnr = New SqlInt32(CType(get_current_Status(doc.sDokumentid.Value), Int32)) doc.Update() Else doc.Update() End If conn.CloseConnection(True) Dokumentid = doc.sDokumentid.Value If Globals.bckdokument = True Then Cold_Index_Bearbeiten(2) Else Cold_Index_Bearbeiten(1) If Me.zu_retournieren Then Cold_Index_Bearbeiten(2) End If End If Dokumentid = doc.sDokumentid.Value Dokumentwerte_Sichern() Notizen_Sichern() Dokumentzuordnungen_Sichern() Dokumentersetzen_Sichern() Dokumentinfomeldungen_Sichern() Dokumentfunktionen_sichern() Status_History(doc.iStatusnr.Value) If Me.BarcodeID = "" And Me.Dokumentinfobearbeiten = False Then w.ProgressBar.Show() w.ProgressBar.Info.Text = "Dokumentwerte zusammenstellen" w.ProgressBar.Bar1a.Value = 10 End If Dim xdata As DataTable xdata = Dokumentwerte(doc.sDokumentid.Value) Dokumentid = doc.sDokumentid.Value 'Dokument erstellen bzw. öffnen w.DokumentID = doc.sDokumentid.Value w.DokumentName = doc.sDokumentname.Value If Me.CreateDocument Then w.CreateDoc = True If Me.BarcodeID = "" Then w.Create_Dokument_Before_Fill(doc.iDokumenttypnr.Value, xdata, s) Else If Me.BarcodeID = "" And Me.Dokumentinfobearbeiten = False Then w.CreateDoc = False Dim docrestore As New DocMgmt() docrestore.Get_From_DB(Dokumentid, s) w.Open_Document(s, xdata, doc.iDokumenttypnr.Value) End If End If Me.Hide() If Globals.Dokumentcoldindex_Changed Then w.dokumentidalt = Globals.Dokumentidalt w.save_dokumentcoldindex = Globals.general_ds.Tables(0) 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 If Me.cdokumentwerteanzeigen.Checked Then Dim f As New frmDokumentwerte() f.WordData = xdata f.isOk = True Me.Cursor = System.Windows.Forms.Cursors.Default f.ShowDialog() If f.isOk = 0 Then f.Dispose() w.CloseDoc() If Me.CreateDocument = True Then w.Restore(1) Else w.Restore(2) DivFnkt.Status_Dokumentbearbeitung(2, Me.Dokumentid, False, "") Else If f.isOk = 1 Then f.Dispose() w.Dokument_Vervollstaendigen(xdata) Words.Add(w, w.DokumentName) Else If f.isOk = 2 Then f.Dispose() If Me.CreateDocument = True Then w.Restore(1) Else w.Restore(2) DivFnkt.Status_Dokumentbearbeitung(2, Me.Dokumentid, False, "") Me.CreateDocument = False Me.btnWeiter.Enabled = True Me.Show() End If End If End If Else If Me.BarcodeID = "" And Me.Dokumentinfobearbeiten = False Then w.Dokument_Vervollstaendigen(xdata) Words.Add(w, w.DokumentName) Else If Not Me.Dokumentinfobearbeiten = True Then Update_Bclabel(1) End If DivFnkt.Status_Dokumentbearbeitung(2, Me.Dokumentid, False, "") End If End If xdata.Dispose() doc.Dispose() End Sub 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 Sub Update_Bclabel(ByVal typ As Integer) If Me.BarcodeID = "" Then Exit Sub Dim bc As New edokaDB.clsBarcodeetikette() bc.cpMainConnectionProvider = conn bc.iBarcodenr = New SqlInt32(CType(Me.BarcodeID, Int32)) bc.SelectOne() conn.OpenConnection() If typ = 2 And Me.CreateDocument = True Then bc.sDokumentid = New SqlString(CType("", String)) Else bc.sDokumentid = New SqlString(CType(Me.Dokumentid, String)) End If bc.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32)) bc.daMutiert_am = New SqlDateTime(CType(Now, DateTime)) bc.Update() conn.CloseConnection(True) End Sub Public Sub Cold_Index_Bearbeiten(ByVal indextyp As Integer) Dim xdata As DataTable Dim cdata As DataTable cdata = COLD_Index_Sichern(indextyp) xdata = Me.DataSet1.Tables(0) 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) 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.DataSet1.Tables(0) 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 Public Sub Notizen_Sichern() For i = 0 To Me.Notizen.Rows.Count - 1 Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.SP_Dokument_Notizen" 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("@notiznr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Notizen.Rows(i).Item("notiznr"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@betreff", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Notizen.Rows(i).Item("betreff"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@value", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Notizen.Rows(i).Item("notiz"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@aktiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Notizen.Rows(i).Item("aktiv"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@mutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Notizen.Rows(i).Item("mutierer"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@ersteller", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Notizen.Rows(i).Item("ersteller"))) scmCmdToExecute.ExecuteNonQuery() Catch ex As Exception MsgBox(ex.Message) ' // 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 Next End Sub Public Sub Dokumentersetzen_Sichern() For i = 0 To Me.Dokumentersetzen.Rows.Count - 1 Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.SP_Dokumentersetzen_sichern" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection scmCmdToExecute.Connection.Open() Try scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentersetzennr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentersetzen.Rows(i).Item("dokumentersetzennr"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@hauptdokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentersetzen.Rows(i).Item("dokumentid"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@aktiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentersetzen.Rows(i).Item("aktiv"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@coldstatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentersetzen.Rows(i).Item("coldstatus"))) scmCmdToExecute.ExecuteNonQuery() Catch ex As Exception MsgBox(ex.Message) ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("Dokument_Ersetzen::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Connection.Close() scmCmdToExecute.Dispose() End Try Next End Sub Public Sub Dokumentzuordnungen_Sichern() For i = 0 To Me.Dokumentzuorndungen.Rows.Count - 1 Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.SP_Dokumentzuordnungen_sichern" 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, Me.Dokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentzuordnungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentzuorndungen.Rows(i).Item("NrEintrag"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid2", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentzuorndungen.Rows(i).Item("DOKUMENTID2"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@zuordnungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentzuorndungen.Rows(i).Item("zuordnungnr"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@aktiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentzuorndungen.Rows(i).Item("AKTIV"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mandant", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MandantNr)) 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 Next End Sub Public Sub Dokumentinfomeldungen_Sichern() For i = 0 To Me.DokumentInfoMeldungen.Rows.Count - 1 Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.SP_Dokumentinfomeldungen_sichern" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection scmCmdToExecute.Connection.Open() Try scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentinfomeldungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentInfoMeldungen.Rows(i).Item("dokumentinfomeldungnr"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@empfaenger", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentInfoMeldungen.Rows(i).Item("empfaengernr"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@bemerkung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentInfoMeldungen.Rows(i).Item("bemerkung"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@meldungstext", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentInfoMeldungen.Rows(i).Item("meldungstext"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@beistatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentInfoMeldungen.Rows(i).Item("beistatus"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@aktiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentInfoMeldungen.Rows(i).Item("aktiv"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mandant", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MandantNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@typ", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentInfoMeldungen.Rows(i).Item("typ"))) scmCmdToExecute.ExecuteNonQuery() Catch ex As Exception MsgBox(ex.Message) ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception(scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Connection.Close() scmCmdToExecute.Dispose() End Try Next End Sub Public Sub Dokumentfunktionen_sichern() Try For i = 0 To Me.DokumentFunktionen.Rows.Count - 1 Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.SP_Dokumentfunktionen_Sichern" 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("@dokumentfunktiongruppenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionen.Rows(i).Item("dokumentfunktiongruppenr"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@funktiongruppenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionen.Rows(i).Item("funktionsgruppenr"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@anzeigen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionen.Rows(i).Item("anzeigen"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@bearbeiten", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionen.Rows(i).Item("bearbeiten"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@loeschen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionen.Rows(i).Item("loeschen"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@abschliessen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionen.Rows(i).Item("abschliessen"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@aktiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionen.Rows(i).Item("aktiv"))) 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.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 Next Catch End Try 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 Status_History(ByVal statusnr As Long) 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 statush.Dispose() Exit Function End If If Me.CreateDocument Then i = Me.mcbstatus.SelectedValue Me.mcbstatus.SelectedIndex = 0 statush.insert_history_status(get_current_Status(Me.Dokumentid), Me.Dokumentid, Globals.MitarbeiterNr) System.Threading.Thread.Sleep(500) Me.mcbstatus.SelectedValue = i If Me.mcbstatus.SelectedIndex <> 0 Or Me.mcbverantwortlich.SelectedValue <> Me.saveverantwortlicher Then statush.insert_history_status(get_current_Status(Me.Dokumentid), Me.Dokumentid, Me.mcbverantwortlich.SelectedValue) End If w.send_statusmessage = True Else If Me.mcbstatus.SelectedValue <> Me.savestatus Or Me.mcbstatus.SelectedIndex <> 0 Then i = Me.mcbstatus.SelectedValue Me.mcbstatus.SelectedIndex = 0 Me.savestatus = Me.mcbstatus.SelectedValue statush.insert_history_status(Me.mcbstatus.SelectedValue, Me.Dokumentid, Globals.MitarbeiterNr) w.send_statusmessage = True Me.mcbstatus.SelectedValue = i System.Threading.Thread.Sleep(500) End If If Me.mcbstatus.SelectedValue <> Me.savestatus Or Me.mcbverantwortlich.SelectedValue <> Me.saveverantwortlicher Then statush.insert_history_status(Me.mcbstatus.SelectedValue, Me.Dokumentid, Me.mcbverantwortlich.SelectedValue) End If End If statush.Dispose() End Function #End Region #Region "Dokumentfunktionen" Private Sub Dokumentfunktionen_Aktivieren() Dim t As DataTable t = Generic_Select(5) If t.Rows.Count > 0 Then Me.SqlConnection1.ConnectionString = Globals.sConnectionString Me.SqlDataAdapter3.SelectCommand.Parameters("@mandantnr").Value = Globals.MandantNr Me.DataSet3.Clear() Me.SqlDataAdapter3.Fill(Me.DataSet3) ' Me.Funktionsliste.DataSource = Me.DataSet3 ' Me.Funktionsliste.DataMember = Me.DataSet3.Tables(0).TableName t.Clear() Me.DokumentFunktionen = Generic_Select(6) w.Save_DokumentFunktionen = Generic_Select(6) Me.DataSet4.Tables.Add(Me.DokumentFunktionen) Me.DokumentFunktionenList.DataSource = Me.DataSet4 Me.DokumentFunktionenList.DataMember = Me.DataSet4.Tables(0).TableName Me.DokumentFunktionenList.Columns("aktiv").FilterText = True Me.DokumentFunktionenList.FilterBar = False DivFnkt.SpaltenTitel_Aktualisieren(Me.DokumentFunktionenList, Me.DokumentFunktionen, "berechtigungseinschraenkung") Else Me.pnlBerechtigungen.Visible = False End If End Sub #End Region Private Sub ContextMenu1_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu1.Popup If Me.Notizen.Rows.Count = 0 Then Me.ContextMenu1.MenuItems(1).Enabled = False Me.ContextMenu1.MenuItems(2).Enabled = False Else If Microsoft.VisualBasic.Left(Notizlist.Columns("betreff").Text, 3) = "***" Then Me.ContextMenu1.MenuItems(1).Enabled = False 'Notiz bearbeiten Me.ContextMenu1.MenuItems(2).Enabled = False 'Notiz &löschen Else 'Bei Systemnotitzen werden die Menue Ausgeblendet Me.ContextMenu1.MenuItems(1).Enabled = True 'Notiz bearbeiten Me.ContextMenu1.MenuItems(2).Enabled = True 'Notiz &löschen End If 'Rel 4.03 If Not basisdokument_allowed() Then Me.ContextMenu1.MenuItems(1).Enabled = False 'Notiz bearbeiten Me.ContextMenu1.MenuItems(2).Enabled = False 'Notiz &löschen End If End If End Sub 'Rel 4.03 Private Function basisdokument_allowed() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.SP_Dokumentbearbeitung_Check_Notiz_Basisdokument" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumenttypnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@notiznr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Notizlist.Columns("notiznr").Value)) scmCmdToExecute.Parameters.Add(New SqlParameter("@allowed", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) sdaAdapter.Fill(dtToReturn) If scmCmdToExecute.Parameters("@allowed").Value = 1 Then Return True Else Return False 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 Private Sub ContextMenu3_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu3.Popup If Me.ZuordnungList.Splits(0).Rows.Count = 0 Then Me.MnuDokzuordnungDelete.Enabled = False Me.MnuShowDoc.Enabled = False Else Me.MnuDokzuordnungDelete.Enabled = True Me.MnuShowDoc.Enabled = True End If End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim f As New FrmPartnersuche() f.ShowDialog() If f.PartnerNr <> 0 Then Me.DokWertList.Columns("feldwert").Value = f.PartnerNr End If End Sub Private Sub rbZustaendigKube_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbZustaendigKube.CheckedChanged Me.mcbzust.Enabled = False Me.mcbkube.Enabled = True If Me.rbZustaendigKube.Checked = True Then Me.mcbkube.DataSource = Nothing Me.mcbkube.Items.Clear() Me.mcbkube.Fill_Data(Generic_Select(8), False) If Me.mcbkube.Items.Count = 0 Then Me.mcbkube.Text = "" Me.rbZustaendigKube.Checked = False Me.RBZustaendigZustaendiger.Checked = True MyMsg.show_standardmessage(24, MsgBoxStyle.Information) RBZustaendigZustaendiger_CheckedChanged(sender, e) Exit Sub End If End If Try Me.mcbkube.Focus() Me.mcbkube.SelectedIndex = 0 Try Me.teamzustaendig = Me.mcbkube.SelectedValue Me.refresh_team() Catch End Try Catch End Try End Sub Private Sub RBZustaendigZustaendiger_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBZustaendigZustaendiger.CheckedChanged Me.mcbkube.Enabled = False Me.mcbzust.Enabled = True Me.mcbzust.Focus() Try Me.teamzustaendig = Me.mcbzust.SelectedValue Me.refresh_team() Catch End Try End Sub Private Sub ContextMenu2_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu2.Popup If Me.DokWertList.Columns("datenherkunft").Value = "" Then Me.MnuValueSelect.Enabled = False Else Me.MnuValueSelect.Enabled = True End If End Sub Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged If Me.On_Load Then Exit Sub Me.DateTimePicker3.Value = Me.DateTimePicker1.Value End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try If DivFnkt.PartnerTyp(Val(Me.txtPartnerInhaberNr.Text)) = EDOKA.clsDivFnkt.ENUM_Partnertyp.EDOKA_Interessent Then 'If Me.txtPartnerInhaberNr.Text > 91000000 Then Dim f As New frmInteressent() f.Partnernr = Me.txtPartnerInhaberNr.Text f.Display = True f.ShowDialog() f.Dispose() Else Dim f As New frmPartnerDetails() f.Partnernr = Me.txtPartnerInhaberNr.Text f.ShowDialog() f.Dispose() End If Catch Finally End Try End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim f As New FrmPartnersuche() f.ShowDialog() If f.PartnerNr <> 0 Then Me.txtZustelladresse.Text = f.zustelladresse Me.txtAnredeZusteller.Text = f.Anrede Me.txtZustelladresse.Focus() End If End Sub Private Sub DateTimePicker2_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) If e.KeyCode = Keys.Delete Then Me.DateTimePicker2.ResetText() Me.DateTimePicker2.Value = System.DBNull.Value End If End Sub Private Sub MnuDokZuordnungAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuDokZuordnungAdd.Click Globals.profilnr = Me.Profilnr Dim fx As New frmTrefferliste() fx.OnlySelect = True fx.txtnrpar00.Text = Me.txtPartnerInhaberNr.Text fx.Partner_Eingegeben = True ' fx.refresh_list() fx.ToolBar1.Visible = False fx.txtnrpar00.Visible = False fx.tvstruktur.ContextMenu = Nothing fx.Text = "Dokument für Dokumentzuordnung auswählen" fx.ImgCombo.Visible = False fx.btnPartnersuche.Visible = False fx.LblSearch.Visible = False fx.DokList.ContextMenu = fx.ContextMenu3 fx.SelectedDokumentid = "" fx.DoRefresh = True fx.ShowDialog() Try If fx.SelectedDokumentid <> "" Then Dim rc As DataRowCollection Dim newrow As DataRow rc = Me.Dokumentzuorndungen.Rows Dim rowvals(Me.Dokumentzuorndungen.Columns.Count - 1) As Object rowvals(0) = 0 rowvals(2) = 1 rowvals(6) = 1 rowvals(8) = fx.SelectedDokumentid rowvals(10) = fx.Dokumentbezeichnung newrow = rc.Add(rowvals) Me.ZuordnungList.Refresh() 'For i = 0 To Me.ZuordnungList.Splits(0).Rows.Count - 1 'If Me.ZuordnungList.Columns(0).CellText(i) = fx.SelectedDokumentid Then ' Me.ZuordnungList.Bookmark = i 'End If 'Next End If Catch ex As Exception MsgBox(ex.Message) End Try fx.Dispose() End Sub Private Sub MnuShowDoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuShowDoc.Click DivFnkt.ShowDoc(Me.ZuordnungList.Columns(8).Text, Me) 'Dim doc As New edokadb.clsDokument() 'Dim Dokument As String 'Dim FileReader As New DocMgmt() 'doc.cpMainConnectionProvider = conn 'doc.sDokumentid = New SqlString(CType(Me.ZuordnungList.Columns(1).Value, String)) 'doc.SelectOne() 'Dokument = DivFnkt.Get_Filename(doc.sDokumentname.Value, "") 'FileReader.Get_From_DB(doc.sDokumentid.Value, Dokument) 'doc.Dispose() 'FileReader = Nothing 'Dim w As New WordLib() 'w.ShowDoc(Dokument) 'w = Nothing End Sub Private Sub MnuDokzuordnungDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuDokzuordnungDelete.Click Me.ZuordnungList.Columns("aktiv").Value = False Me.ZuordnungList.Refresh() Me.TabControl2.Select() Me.ZuordnungList.Select() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Dokumentzuordnungen_Sichern() End Sub Private Sub mnuInfoEmpfaengerAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuInfoEmpfaengerAdd.Click Dim f As New frmInformationsEmpfaenger() f.Dokumenttypnr = Me.Dokumenttypnr If Me.CreateDocument = True Then f.fromDokumenttyp = True Else f.fromDokumenttyp = False f.dokumentid = Me.Dokumentid End If f.ShowDialog() If f.DialogResult = DialogResult.OK Then Dim rc As DataRowCollection Dim newrow As DataRow rc = Me.DokumentInfoMeldungen.Rows Dim rowvals(9) As Object rowvals(0) = 0 rowvals(1) = 0 rowvals(2) = f.Empfaenger rowvals(3) = f.Empaengertext rowvals(4) = f.Meldungsnr rowvals(5) = f.Meldung If Len(f.Bemerkung) > 0 Then f.Bemerkung = f.Bemerkung + vbCrLf + "----------------------" + vbCrLf + vbCrLf rowvals(6) = f.Bemerkung rowvals(7) = f.Statusnr rowvals(8) = f.Statustext rowvals(9) = 1 newrow = rc.Add(rowvals) Me.InfoMeldungList.Refresh() f.Dispose() End If End Sub Private Sub mnuInfoEmpfaengerDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuInfoEmpfaengerDelete.Click Try Me.InfoMeldungList.Columns(9).Value = False Me.InfoMeldungList.Refresh() Me.TabControl2.Select() Me.InfoMeldungList.Select() Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub cvertraulich_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Try FillMcbVerantwortlich() Me.mcbverantwortlich.Focus() Me.mcbkube.SelectAll() Catch End Try End Sub Private Function FillMcbVerantwortlich() Dim dd As New DataTable() Dim I As Integer Dim s As String s = "" Try For I = 0 To Me.DokumentFunktionen.Rows.Count - 1 If Me.DokumentFunktionen.Rows(I).Item("aktiv") = 1 Then If s <> "" Then s = s + ";" s = s + Microsoft.VisualBasic.LTrim(Str(Me.DokumentFunktionen.Rows(I).Item("funktionsgruppenr"))) End If Next Catch End Try Try I = Me.mcbverantwortlich.SelectedValue If I = 0 Then I = Globals.MitarbeiterNr Me.mcbverantwortlich.DataSource = Nothing Me.mcbverantwortlich.Items.Clear() If Me.cvertraulich.Checked = True Then dd = DivFnkt.Berechtigte_Mitarbeiter(Me.Dokumenttypnr, 0, Me.Partnernr, "", 3, 0, 0, 1, s) Else dd = DivFnkt.Berechtigte_Mitarbeiter(Me.Dokumenttypnr, 0, Me.Partnernr, "", 3, 0, 0, 0, s) End If 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 Finally dd.Clear() dd.Dispose() End Try End Function Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click Dim i As Integer Dim s As String s = "" Try For i = 0 To Me.DokumentFunktionen.Rows.Count - 1 If Me.DokumentFunktionen.Rows(i).Item("aktiv") = 1 Then If s <> "" Then s = s + ";" s = s + Microsoft.VisualBasic.LTrim(Str(Me.DokumentFunktionen.Rows(i).Item("funktionsgruppenr"))) End If Next Catch End Try Me.Cursor = System.Windows.Forms.Cursors.WaitCursor Dim f As New frmBerechtigungen() If Me.cvertraulich.Checked Then f.Fill_Berechtigungen(Me.Dokumenttypnr, Me.Partnernr, 1, s) Else f.Fill_Berechtigungen(Me.Dokumenttypnr, Me.Partnernr, 0, s) End If Me.Cursor = System.Windows.Forms.Cursors.Default f.ShowDialog() f.Dispose() End Sub Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) MenuItem2_Click(sender, e) End Sub Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click Dim f As New frmDokumentberechtigung() f.Dokumenttyp = Me.Dokumenttypnr f.Partnernr = Me.Partnernr f.Vertraulich = Me.cvertraulich.Checked f.ShowDialog() If f.DialogResult = DialogResult.OK Then Dim rc As DataRowCollection Dim newrow As DataRow rc = DokumentFunktionen.Rows Dim rowvals(Me.DokumentFunktionenList.Columns.Count - 1) rowvals(0) = System.DBNull.Value rowvals(1) = f.Funktionsgruppebezeichnung rowvals(2) = f.Funktionsgruppenr rowvals(3) = f.Anzeigen rowvals(4) = f.Bearbeiten rowvals(5) = f.Loeschen rowvals(6) = f.Abschliessen rowvals(7) = True rowvals(8) = Now rowvals(9) = Globals.MitarbeiterNr newrow = rc.Add(rowvals) Me.DokumentFunktionenList.Refresh() For i = 0 To Me.DokumentFunktionenList.Splits(0).Rows.Count - 1 If Me.DokumentFunktionenList.Columns("bezeichnung").CellText(i) = f.Funktionsgruppebezeichnung Then Me.DokumentFunktionenList.Bookmark = i End If Next Me.FillMcbVerantwortlich() End If End Sub Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click Me.DokumentFunktionenList.Columns(7).Value = False Me.DokumentFunktionenList.Refresh() Me.Button3.Focus() Me.DokumentFunktionenList.Focus() Me.FillMcbVerantwortlich() End Sub Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click Globals.profilnr = Me.Profilnr Dim fx As New frmTrefferliste() fx.OnlySelect = True fx.txtnrpar00.Text = Me.txtPartnerInhaberNr.Text fx.Partner_Eingegeben = True ' fx.refresh_list() fx.ToolBar1.Visible = False fx.txtnrpar00.Visible = False fx.tvstruktur.ContextMenu = Nothing fx.Text = "Dokument für Dokumentzuordnung auswählen" fx.ImgCombo.Visible = False fx.btnPartnersuche.Visible = False fx.LblSearch.Visible = False fx.DokList.ContextMenu = fx.ContextMenu3 fx.SelectedDokumentid = "" fx.DoRefresh = True fx.ShowDialog() Try If fx.SelectedDokumentid <> "" Then If Check_Dokumentersetzen(Me.Dokumenttypnr, fx.SelectedDokumentid) Then Dim rc As DataRowCollection Dim newrow As DataRow rc = Dokumentersetzen.Rows Dim rowvals(Me.Dokumentersetzen.Columns.Count - 1) As Object rowvals(0) = System.DBNull.Value rowvals(1) = "" If Me.CreateDocument Then rowvals(1) = "" Else rowvals(1) = Me.Dokumentid End If rowvals(2) = fx.SelectedDokumentid rowvals(3) = True rowvals(8) = fx.Dokumentbezeichnung rowvals(9) = fx.dokumentdatum newrow = rc.Add(rowvals) Me.ColdList.Refresh() End If End If Catch ex As Exception MsgBox(ex.Message) End Try fx.Dispose() End Sub Private Function Check_Dokumentersetzen(ByVal dokumenttypnr As Integer, ByVal dokumentid As String) As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim s As String Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.sp_dokumentbearbeitung_chcek_dokumentersetzen" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumenttypnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@errormessage", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, "")) sdaAdapter.Fill(dtToReturn) s = scmCmdToExecute.Parameters.Item("@errormessage").Value If s <> "" Then MyMsg.show_standardmessage(Val(s), MsgBoxStyle.Critical) Return False End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function Private Sub cbKube_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mcbkube.SelectedIndexChanged Try Me.teamzustaendig = Me.mcbkube.SelectedValue Catch End Try refresh_team() End Sub Private Sub cbzust_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mcbzust.SelectedIndexChanged Try Me.teamzustaendig = Me.mcbzust.SelectedValue refresh_team() Catch End Try End Sub Private Sub DokWertList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DokWertList.Click End Sub Private Sub InfoMeldungList_FetchRowStyle(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Try If Me.InfoMeldungList.Columns("typ").CellValue(e.Row) = 1 Then e.CellStyle.BackColor = System.Drawing.Color.CadetBlue End If Catch End Try End Sub Private Sub ContextMenu7_Popup(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextMenu7.Popup Try If Me.ColdList.Splits(0).Rows.Count = 0 Then Me.MenuItem6.Enabled = False Else Me.MenuItem6.Enabled = True End If Catch End Try End Sub Private Sub ContextMenu4_Popup(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextMenu4.Popup Try If Me.InfoMeldungList.Columns("typ").Value = 1 Then Me.mnuInfoEmpfaengerDelete.Enabled = False Else Me.mnuInfoEmpfaengerDelete.Enabled = True End If If Me.InfoMeldungList.Splits(0).Rows.Count = 0 Then Me.mnuInfoEmpfaengerDelete.Enabled = False Else Me.mnuInfoEmpfaengerDelete.Enabled = True End If Catch End Try End Sub Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click Me.ColdList.Columns("aktiv").Value = False End Sub Private Function check_banklagernd() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim i As Integer Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.sp_check_banklagernd" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtPartnerInhaberNr.Text)) scmCmdToExecute.Parameters.Add(New SqlParameter("@banklagernd", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) sdaAdapter.Fill(dtToReturn) i = scmCmdToExecute.Parameters.Item("@banklagernd").Value If i <> 0 Then check_banklagernd = True Else check_banklagernd = False End If 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 Private Sub txtZustelladresse_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtZustelladresse.Leave If check_banklagernd() = True Then If MyMsg.Show_MessageYesNo(72) = MsgBoxResult.No Then Me.txtZustelladresse.Text = "" Me.txtAnredeZusteller.Text = "" End If End If End Sub Private Sub DokWertList_AfterColEdit(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles DokWertList.AfterColEdit Me.DokWertList.Update() End Sub Private Function get_partnerzusteller(ByVal nrpar00 As Integer) As String Dim p As New edokaDB.clsPartner() Dim p1 As New edokaDB.clsPartner() Dim s As String s = "" p.cpMainConnectionProvider = conn p.iNRPAR00 = New SqlInt32(CType(nrpar00, Int32)) p.SelectOne() If p.iNRPAR00.ToString <> p.sNRPARAD.ToString Then Try p1.cpMainConnectionProvider = conn p1.iNRPAR00 = New SqlInt32(CType(p.sNRPARAD.Value, Int32)) p1.SelectOne() s = p1.sNRPARAD.ToString + " " + p1.sBKPAR00.Value Catch s = "" End Try End If p.Dispose() p1.Dispose() get_partnerzusteller = s End Function Private Sub cbmoeglicheStati_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbmoeglicheStati.DropDown Me.cbmoeglicheStati.Width = 200 Me.cbsave.Visible = True End Sub Private Sub cbmoeglicheStati_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbmoeglicheStati.Leave Me.cbsave.Visible = False Me.cbmoeglicheStati.Width = 21 End Sub Private Sub cbmoeglicheStati_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbmoeglicheStati.SelectedValueChanged Dim i As Integer Dim DATA As DataTable Me.cbsave.Visible = False Me.cbmoeglicheStati.Width = 21 Me.txtstatus.Text = Me.cbmoeglicheStati.Text Me.Label3.Visible = True Me.txtstatus.Visible = True If Me.txtstatus.Text = Me.mcbstatus.Text Then Me.Label3.Visible = False Me.txtstatus.Visible = False Me.funktionsliste = "" Me.selectedstatus = 0 Else For i = 0 To Me.moeglichestati.Rows.Count - 1 If Me.txtstatus.Text = Me.moeglichestati.Rows(i).Item("bezeichnung") Then Me.selectedstatus = Me.moeglichestati.Rows(i).Item("nr") End If Next End If Me.funktionsliste = "" DATA = Generic_Select(16) For i = 0 To DATA.Rows.Count - 1 If Me.funktionsliste <> "" Then Me.funktionsliste = Me.funktionsliste + ";" Me.funktionsliste = Me.funktionsliste + LTrim(DATA.Rows(i).Item("funktionnr")) Next fill_mcbmitarbeiter() Me.mcbverantwortlich.Focus() End Sub Private Sub fill_mcbmitarbeiter() Me.mcbverantwortlich.DataSource = Nothing Me.mcbverantwortlich.Items.Clear() Me.mcbverantwortlich.CheckNullValue = True Me.mcbverantwortlich.NullValueMessage = MyTxt.gettext(18) Me.mcbverantwortlich.DisplayColumnName = "mitarbeiter" Me.mcbverantwortlich.ValueColumnName = "mitarbeiternr" Me.mcbverantwortlich.Fill_Data(DivFnkt.Berechtigte_Mitarbeiter(0, 0, 0, Me.Dokumentid, 3, 0, 0, 0, Me.funktionsliste), False) ' Me.mcbmitarbeiter.Fill_Data(DivFnkt.Berechtigte_Mitarbeiter(0, 0, 0, Me.Dokumentid, 3, 0, 0, 0, Me.Funktionsliste), False) ' Me.mcbverantwortlich.SelectedValue = Me.mitarbeiternr End Sub #Region "IndexMutation" Public Function load_indexmutation() Dim i As Integer Dim s As String Me.GroupBox15.Enabled = False If DivFnkt.MA_Is_Sysadmin(Globals.MitarbeiterNr) Then Me.GroupBox15.Enabled = True End If If Me.Dokument_Ist_Abgeschlossen = False Then If Me.Aktueller_Dokumentverantwortlicher = Globals.MitarbeiterNr Or DivFnkt.MA_Is_Sysadmin(Globals.MitarbeiterNr) Then Me.GroupBox15.Enabled = True Else Me.GroupBox15.Enabled = False End If Else set_abgeschlossen_menu() If GroupBox15.Enabled = False And DivFnkt.MA_Is_Sysadmin(Globals.MitarbeiterNr) Then Me.GroupBox15.Enabled = True End If If GroupBox15.Enabled = False Then Exit Function daten = get_dokumentdaten() dokumente = get_dokumente() Me.TextBox1.Text = Me.Partnernr For i = 0 To daten.Rows.Count - 1 Select Case daten.Rows(i).Item("cold_indexfeldnr") Case 1 Me.TextBox1.Text = RTrim(daten.Rows(i).Item("wert")) Partnernr = Me.TextBox1.Text Case 3 Me.TextBox4.Text = RTrim(daten.Rows(i).Item("wert")) Me.vvnr = Me.TextBox4.Text Case 5 s = daten.Rows(i).Item("wert") If Microsoft.VisualBasic.InStr(s, ".") > 0 Then datum = s Else datum = Microsoft.VisualBasic.Right(s, 2) + "." + Mid(s, 5, 2) + "." + Microsoft.VisualBasic.Left(s, 4) End If Me.DateTimePicker4.Value = datum Case 14 Me.TextBox2.Text = RTrim(daten.Rows(i).Item("wert")) Me.gf = Me.TextBox2.Text Case 12 Me.TextBox2.Text = RTrim(daten.Rows(i).Item("wert")) Me.gf = Me.TextBox2.Text Case 17 Me.TextBox3.Text = RTrim(daten.Rows(i).Item("wert")) Me.gu = Me.TextBox3.Text End Select Next End Function Private Function get_dokumentdaten() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim i As Integer Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.sp_indexmutation_getdokinfo" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid)) sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception MsgBox(ex.Message) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function Private Function get_dokumente() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim i As Integer Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.sp_indexmutation_getdokumente" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid)) sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception MsgBox(ex.Message) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click Dim f As New FrmPartnersuche() f.NurAbfrage = True f.ShowDialog() If f.PartnerNr <> 0 Then Me.Cursor = Cursors.WaitCursor Me.TextBox1.Text = f.PartnerNr Me.Cursor = Cursors.Default MyMsg.show_standardmessage(94, MsgBoxStyle.Information) End If f.Dispose() End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click Dim f As New frmValueSelector() f.Text = "Auswahl VV-Nummer" f.Datenherkunft = "&VVdesPartners&" f.Datenherkunft = "&VVunformatiert&" f.Partnernr = Me.TextBox1.Text f.LoadData() If f.Datenvorhanden = True Then f.ShowDialog() If f.DialogResult = DialogResult.OK Then Me.TextBox4.Text = f.SelWert End If f.Dispose() End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click If Me.Partnernr <> Me.TextBox1.Text Then Update_Partnernr(Me.Dokumentid, Me.TextBox1.Text) End If If Me.vvnr <> Me.TextBox4.Text Then Update_vvnr(Dokumentid, Me.TextBox4.Text) End If If Me.gu <> Me.TextBox3.Text Then Update_gu(Dokumentid, Me.TextBox3.Text) End If If Me.gf <> Me.TextBox2.Text Then Update_gf(Me.Dokumentid, Me.TextBox2.Text) End If If Me.datum <> Me.DateTimePicker4.Value Then Update_datum(Dokumentid, Me.datum, Me.DateTimePicker4.Value.ToShortDateString) End If MyMsg.show_standardmessage(95, MsgBoxStyle.Information) End Sub Public Sub Update_Status(ByVal dokumentid As String, ByVal colddokumentid As String, ByVal indextyp As Integer, ByVal status As String) Dim ityp As Integer If indextyp = 0 Then ityp = get_indextyp(dokumentid, colddokumentid) Else ityp = indextyp End If Insert_ColdUpdate(dokumentid, colddokumentid, ityp, 7, status) Update_DokumentColdIndexwert(dokumentid, ityp, 7, status) End Sub Public Sub Update_Partnernr(ByVal dokumentid As String, ByVal partnernr As String) Dim d As New edokaDB.clsDokument() Dim kurzname As String Dim ort As String d.cpMainConnectionProvider = Globals.conn d.sDokumentid = New SqlString(CType(dokumentid, String)) d.SelectOne() d.iNrpar00 = New SqlInt32(CType(partnernr, Int32)) conn.OpenConnection() d.Update() conn.CloseConnection(True) d.Dispose() kurzname = get_data("&PartnerKurzname&") ort = get_data("&PartnerInhaberOrt&") Dim i As Integer For i = 0 To Me.dokumente.Rows.Count - 1 Insert_ColdUpdate(dokumentid, RTrim(dokumente.Rows(i).Item("wert")), dokumente.Rows(i).Item("indextyp"), 1, partnernr) Update_DokumentColdIndexwert(dokumentid, dokumente.Rows(i).Item("indextyp"), 1, Me.TextBox1.Text) Insert_ColdUpdate(dokumentid, RTrim(dokumente.Rows(i).Item("wert")), dokumente.Rows(i).Item("indextyp"), 2, kurzname) Update_DokumentColdIndexwert(dokumentid, dokumente.Rows(i).Item("indextyp"), 2, kurzname) Insert_ColdUpdate(dokumentid, RTrim(dokumente.Rows(i).Item("wert")), dokumente.Rows(i).Item("indextyp"), 8, ort) Update_DokumentColdIndexwert(dokumentid, dokumente.Rows(i).Item("indextyp"), 8, ort) Next End Sub Public Sub Update_vvnr(ByVal dokumentid As String, ByVal vvnr As String) Dim i As Integer For i = 0 To Me.dokumente.Rows.Count - 1 Insert_ColdUpdate(dokumentid, RTrim(dokumente.Rows(i).Item("wert")), dokumente.Rows(i).Item("indextyp"), 3, vvnr) Update_DokumentColdIndexwert(dokumentid, dokumente.Rows(i).Item("indextyp"), 3, vvnr) Next End Sub Public Sub Update_gu(ByVal dokumentid As String, ByVal gu As String) Dim i As Integer For i = 0 To Me.dokumente.Rows.Count - 1 Insert_ColdUpdate(dokumentid, RTrim(dokumente.Rows(i).Item("wert")), dokumente.Rows(i).Item("indextyp"), 17, gu) Update_DokumentColdIndexwert(dokumentid, dokumente.Rows(i).Item("indextyp"), 17, gu) Next End Sub Public Sub Update_gf(ByVal dokumentid As String, ByVal gf As String) Dim i As Integer For i = 0 To Me.dokumente.Rows.Count - 1 Insert_ColdUpdate(dokumentid, RTrim(dokumente.Rows(i).Item("wert")), dokumente.Rows(i).Item("indextyp"), 14, gf) Update_DokumentColdIndexwert(dokumentid, dokumente.Rows(i).Item("indextyp"), 14, gf) Update_DokumentColdIndexwert(dokumentid, dokumente.Rows(i).Item("indextyp"), 12, gf) Next End Sub Public Sub Update_datum(ByVal dokumentid As String, ByVal datuma As DateTime, ByVal datum As DateTime) Dim i As Integer Dim alterwert As String Dim neuerwert As String Dim s As String alterwert = LTrim(Str(Year(datuma))) s = LTrim(Str(Month(datuma))) While Len(s) < 2 s = "0" + s End While alterwert = alterwert + s s = LTrim(Str(Microsoft.VisualBasic.Day(datuma))) While Len(s) < 2 s = "0" + s End While alterwert = alterwert + s neuerwert = LTrim(Str(Year(datum))) s = LTrim(Str(Month(datum))) While Len(s) < 2 s = "0" + s End While neuerwert = neuerwert + s s = LTrim(Str(Microsoft.VisualBasic.Day(datum))) While Len(s) < 2 s = "0" + s End While neuerwert = neuerwert + s For i = 0 To Me.dokumente.Rows.Count - 1 Insert_ColdUpdate_Datum(dokumentid, RTrim(dokumente.Rows(i).Item("wert")), alterwert, neuerwert) Update_DokumentColdIndexwert(dokumentid, dokumente.Rows(i).Item("indextyp"), 5, Me.DateTimePicker4.Value.ToShortDateString) Next End Sub Public Function Insert_ColdUpdate(ByVal dokumentid As String, ByVal colddokumentid As String, ByVal indextyp As Integer, ByVal feldnr As Integer, ByVal wert As String) Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.SP_Archiv_insert_coldupdate" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable() conn.OpenConnection() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@colddokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, colddokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@indextyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, indextyp)) scmCmdToExecute.Parameters.Add(New SqlParameter("@feldnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, feldnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@neuerwert", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, wert)) scmCmdToExecute.Connection = conn.scoDBConnection Try sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception MsgBox(ex.Message) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() conn.CloseConnection(True) End Try End Function Public Function Insert_ColdUpdate_Datum(ByVal dokumentid As String, ByVal colddokumentid As String, ByVal alterwert As String, ByVal neuerwert As String) Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.sp_indexmutation_insert_datumupdate" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable() conn.OpenConnection() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@colddokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, colddokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@alterwert", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, alterwert)) scmCmdToExecute.Parameters.Add(New SqlParameter("@neuerwert", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, neuerwert)) scmCmdToExecute.Connection = conn.scoDBConnection Try sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception MsgBox(ex.Message) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() conn.CloseConnection(True) End Try End Function Public Function Update_DokumentColdIndexwert(ByVal dokumentid As String, ByVal Indextyp As Integer, ByVal indexfeld As Integer, ByVal wert As String) Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.SP_Archiv_Update_DokumentColdIndexwert" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable() conn.OpenConnection() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, 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)) scmCmdToExecute.Parameters.Add(New SqlParameter("@indexfeld", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, indexfeld)) scmCmdToExecute.Parameters.Add(New SqlParameter("@wert", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, wert)) scmCmdToExecute.Connection = conn.scoDBConnection 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() conn.CloseConnection(True) End Try End Function Private Function get_data(ByVal datenherkunft As String) As String Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim i As Integer Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.sp_dokumentwerte_select" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@datenherkunft", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, datenherkunft)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@value", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, "")) sdaAdapter.Fill(dtToReturn) Return scmCmdToExecute.Parameters("@value").Value Catch ex As Exception MsgBox(ex.Message) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function Private Function get_indextyp(ByVal dokumentid As String, ByVal colddokumentid As String) As Integer Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim i As Integer Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.sp_indexmutation_getindextyp" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@colddokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, colddokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@indextyp", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) sdaAdapter.Fill(dtToReturn) Return scmCmdToExecute.Parameters("@indextyp").Value Catch ex As Exception MsgBox(ex.Message) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function Private Sub set_abgeschlossen_menu() Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim i As Integer Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.sp_abgeschlossenes_dokument" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@indexmutation", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.Parameters.Add(New SqlParameter("@aufhebung", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.Parameters.Add(New SqlParameter("@loeschung", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) sdaAdapter.Fill(dtToReturn) i = scmCmdToExecute.Parameters.Item("@indexmutation").Value If i <> 0 Then Me.GroupBox15.Enabled = True End If 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 Sub #End Region Private Sub ZuordnungList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ZuordnungList.Click End Sub Private Sub BtnHelp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHelp.Click Globals.HTMLHelp.ShowHelpToc("dokumentinformationenbearbeiten") End Sub Private Sub btnLoeschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoeschen.Click Me.TextBox4.Text = "" End Sub 'Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click ' Dim f As New FrmPartnersuche() ' f.NurAbfrage = True ' f.ShowDialog() ' If f.PartnerNr <> 0 Then ' Me.Cursor = Cursors.WaitCursor ' Me.Partner1.Text = f.PartnerNr ' Me.Cursor = Cursors.Default ' MyMsg.show_standardmessage(94, MsgBoxStyle.Information) ' End If ' f.Dispose() 'End Sub 'Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click ' If Me.Partner1.Text <> "" Then ' Update_Partnernr(Me.Dokumentid, Partner1.Text) ' End If ' MyMsg.show_standardmessage(95, MsgBoxStyle.Information) 'End Sub End Class