Imports System.Data Imports System.Data.SqlTypes Imports System.Data.SqlClient Imports System.ComponentModel Imports UtilityLibrary.Win32 Public Class frmDokumentbearbeitungBC 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 GroupBox7 As System.Windows.Forms.GroupBox Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox 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 txtBemerkung As System.Windows.Forms.TextBox Friend WithEvents DateTimePicker3 As System.Windows.Forms.DateTimePicker Friend WithEvents Label10 As System.Windows.Forms.Label Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents TabPage5 As System.Windows.Forms.TabPage Friend WithEvents DokumentFunktionenList As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents GroupBox9 As System.Windows.Forms.GroupBox 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 GroupBox8 As System.Windows.Forms.GroupBox Friend WithEvents Notizlist As C1.Win.C1TrueDBGrid.C1TrueDBGrid 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 pnlBerechtigungen As System.Windows.Forms.GroupBox 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 ZuordnungList As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents InfoMeldungList As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents MnuEditNotiz As System.Windows.Forms.MenuItem Friend WithEvents cvertraulich As System.Windows.Forms.CheckBox Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents GroupBox12 As System.Windows.Forms.GroupBox Friend WithEvents cbteam As System.Windows.Forms.ComboBox 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 DateTimePicker2 As C1.Win.C1Input.C1DateEdit Friend WithEvents ContextMenu5 As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem Friend WithEvents Button3 As System.Windows.Forms.Button 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 Button2 As System.Windows.Forms.Button Friend WithEvents GroupBox11 As System.Windows.Forms.GroupBox Friend WithEvents Label13 As System.Windows.Forms.Label Friend WithEvents txtAnredeZusteller As System.Windows.Forms.TextBox Friend WithEvents txtZustelladresse As System.Windows.Forms.TextBox Friend WithEvents btntxtBemerkung As System.Windows.Forms.Button Friend WithEvents GroupBox13 As System.Windows.Forms.GroupBox Friend WithEvents LabelVIBeachten As System.Windows.Forms.Label Friend WithEvents PicVIBeachten As System.Windows.Forms.PictureBox Friend WithEvents drpMiatarbeiter As C1.Win.C1TrueDBGrid.C1TrueDBDropdown Friend WithEvents BtnHelp As System.Windows.Forms.Button Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDokumentbearbeitungBC)) 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.GroupBox13 = New System.Windows.Forms.GroupBox Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker Me.Label5 = New System.Windows.Forms.Label 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.cbPostzustellung = New System.Windows.Forms.ComboBox Me.Label3 = New System.Windows.Forms.Label Me.TabPage4 = New System.Windows.Forms.TabPage Me.GroupBox7 = New System.Windows.Forms.GroupBox Me.InfoMeldungList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid Me.ContextMenu4 = New System.Windows.Forms.ContextMenu Me.mnuInfoEmpfaengerAdd = New System.Windows.Forms.MenuItem Me.mnuInfoEmpfaengerDelete = New System.Windows.Forms.MenuItem Me.GroupBox6 = New System.Windows.Forms.GroupBox Me.ZuordnungList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid 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.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.DateTimePicker2 = New C1.Win.C1Input.C1DateEdit Me.Label20 = New System.Windows.Forms.Label Me.txtBemerkung = New System.Windows.Forms.TextBox Me.DateTimePicker3 = New System.Windows.Forms.DateTimePicker Me.Label10 = New System.Windows.Forms.Label Me.Label6 = New System.Windows.Forms.Label Me.TabPage5 = 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.pnlBerechtigungen = New System.Windows.Forms.GroupBox Me.DokumentFunktionenList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid Me.ContextMenu6 = New System.Windows.Forms.ContextMenu Me.MenuItem3 = New System.Windows.Forms.MenuItem Me.MenuItem4 = New System.Windows.Forms.MenuItem 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.GroupBox8 = New System.Windows.Forms.GroupBox Me.drpMiatarbeiter = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown Me.Notizlist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid 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.btntxtBemerkung = New System.Windows.Forms.Button Me.LabelVIBeachten = New System.Windows.Forms.Label Me.PicVIBeachten = New System.Windows.Forms.PictureBox Me.BtnHelp = New System.Windows.Forms.Button 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.GroupBox13.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.GroupBox7.SuspendLayout() CType(Me.InfoMeldungList, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox6.SuspendLayout() CType(Me.ZuordnungList, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox5.SuspendLayout() CType(Me.ColdList, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox4.SuspendLayout() CType(Me.DateTimePicker2, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage5.SuspendLayout() Me.GroupBox11.SuspendLayout() Me.pnlBerechtigungen.SuspendLayout() CType(Me.DokumentFunktionenList, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox9.SuspendLayout() Me.GroupBox8.SuspendLayout() CType(Me.drpMiatarbeiter, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Notizlist, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PicVIBeachten, System.ComponentModel.ISupportInitialize).BeginInit() 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, 472) Me.btnWeiter.Name = "btnWeiter" Me.btnWeiter.Size = New System.Drawing.Size(104, 23) Me.btnWeiter.TabIndex = 12 Me.btnWeiter.Text = "&Weiter>>" ' 'btnCancel ' Me.btnCancel.Location = New System.Drawing.Point(40, 472) Me.btnCancel.Name = "btnCancel" Me.btnCancel.Size = New System.Drawing.Size(104, 23) Me.btnCancel.TabIndex = 13 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.Enabled = False Me.TabControl2.Location = New System.Drawing.Point(8, 104) Me.TabControl2.Name = "TabControl2" Me.TabControl2.SelectedIndex = 0 Me.TabControl2.Size = New System.Drawing.Size(800, 360) Me.TabControl2.TabIndex = 10 ' 'TabPage3 ' Me.TabPage3.Controls.Add(Me.GroupBox13) 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, 334) Me.TabPage3.TabIndex = 0 Me.TabPage3.Text = "Dokument" ' 'GroupBox13 ' Me.GroupBox13.Controls.Add(Me.DateTimePicker1) Me.GroupBox13.Controls.Add(Me.Label5) Me.GroupBox13.Location = New System.Drawing.Point(8, 16) Me.GroupBox13.Name = "GroupBox13" Me.GroupBox13.Size = New System.Drawing.Size(368, 48) Me.GroupBox13.TabIndex = 0 Me.GroupBox13.TabStop = False Me.GroupBox13.Text = "Allgemein" ' 'DateTimePicker1 ' Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker1.Location = New System.Drawing.Point(128, 21) Me.DateTimePicker1.Name = "DateTimePicker1" Me.DateTimePicker1.Size = New System.Drawing.Size(104, 20) Me.DateTimePicker1.TabIndex = 0 ' 'Label5 ' Me.Label5.Location = New System.Drawing.Point(8, 21) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(100, 23) Me.Label5.TabIndex = 11 Me.Label5.Text = "Dokument-Datum" ' 'GroupBox12 ' Me.GroupBox12.Controls.Add(Me.cbteam) Me.GroupBox12.Location = New System.Drawing.Point(8, 208) Me.GroupBox12.Name = "GroupBox12" Me.GroupBox12.Size = New System.Drawing.Size(368, 48) Me.GroupBox12.TabIndex = 3 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 = 0 ' '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 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 = 0 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, 232) Me.GroupBox3.Name = "GroupBox3" Me.GroupBox3.Size = New System.Drawing.Size(368, 80) Me.GroupBox3.TabIndex = 4 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 = 1 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 = 0 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, 72) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Size = New System.Drawing.Size(368, 80) Me.GroupBox1.TabIndex = 1 Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "Zuständigkeit" ' '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 = 1 Me.RBZustaendigZustaendiger.Text = "Zuständiger" ' '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 = 0 Me.rbZustaendigKube.Text = "Kundenberater" ' '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 = 3 ' '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 = 2 ' 'GroupBox2 ' Me.GroupBox2.Controls.Add(Me.cbPostzustellung) Me.GroupBox2.Controls.Add(Me.Label3) Me.GroupBox2.Location = New System.Drawing.Point(8, 184) Me.GroupBox2.Name = "GroupBox2" Me.GroupBox2.Size = New System.Drawing.Size(368, 88) Me.GroupBox2.TabIndex = 2 Me.GroupBox2.TabStop = False Me.GroupBox2.Text = "Allgemein" Me.GroupBox2.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 = 0 Me.cbPostzustellung.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.GroupBox7) Me.TabPage4.Controls.Add(Me.GroupBox6) 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, 334) Me.TabPage4.TabIndex = 1 Me.TabPage4.Text = "Zusammenhänge" Me.TabPage4.Visible = False ' 'GroupBox7 ' Me.GroupBox7.BackColor = System.Drawing.SystemColors.Control Me.GroupBox7.Controls.Add(Me.InfoMeldungList) Me.GroupBox7.Location = New System.Drawing.Point(8, 216) Me.GroupBox7.Name = "GroupBox7" Me.GroupBox7.Size = New System.Drawing.Size(776, 100) Me.GroupBox7.TabIndex = 3 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 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") ' '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" ' 'GroupBox6 ' Me.GroupBox6.Controls.Add(Me.ZuordnungList) Me.GroupBox6.Location = New System.Drawing.Point(384, 112) Me.GroupBox6.Name = "GroupBox6" Me.GroupBox6.Size = New System.Drawing.Size(400, 96) Me.GroupBox6.TabIndex = 2 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 Me.ZuordnungList.PrintInfo.PageSettings = CType(resources.GetObject("ZuordnungList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.ZuordnungList.Size = New System.Drawing.Size(394, 77) Me.ZuordnungList.TabIndex = 0 Me.ZuordnungList.Text = "C1TrueDBGrid1" Me.ZuordnungList.PropBag = resources.GetString("ZuordnungList.PropBag") ' '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" ' '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 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.DateTimePicker2) Me.GroupBox4.Controls.Add(Me.Label20) Me.GroupBox4.Controls.Add(Me.txtBemerkung) Me.GroupBox4.Controls.Add(Me.DateTimePicker3) Me.GroupBox4.Controls.Add(Me.Label10) Me.GroupBox4.Controls.Add(Me.Label6) 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" ' 'DateTimePicker2 ' Me.DateTimePicker2.FormatType = C1.Win.C1Input.FormatTypeEnum.ShortDate Me.DateTimePicker2.Location = New System.Drawing.Point(88, 48) Me.DateTimePicker2.Name = "DateTimePicker2" Me.DateTimePicker2.Size = New System.Drawing.Size(96, 20) Me.DateTimePicker2.TabIndex = 1 Me.DateTimePicker2.Tag = Nothing Me.DateTimePicker2.VisibleButtons = C1.Win.C1Input.DropDownControlButtonFlags.DropDown ' '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" ' 'txtBemerkung ' Me.txtBemerkung.Location = New System.Drawing.Point(88, 72) Me.txtBemerkung.Multiline = True Me.txtBemerkung.Name = "txtBemerkung" Me.txtBemerkung.Size = New System.Drawing.Size(272, 112) Me.txtBemerkung.TabIndex = 2 ' '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 = 0 ' '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" ' 'Label6 ' Me.Label6.Location = New System.Drawing.Point(8, 48) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(80, 23) Me.Label6.TabIndex = 30 Me.Label6.Text = "Termin" ' 'TabPage5 ' Me.TabPage5.Controls.Add(Me.Button2) Me.TabPage5.Controls.Add(Me.GroupBox11) Me.TabPage5.Controls.Add(Me.pnlBerechtigungen) Me.TabPage5.Controls.Add(Me.GroupBox9) Me.TabPage5.Controls.Add(Me.GroupBox8) Me.TabPage5.Location = New System.Drawing.Point(4, 22) Me.TabPage5.Name = "TabPage5" Me.TabPage5.Size = New System.Drawing.Size(792, 334) Me.TabPage5.TabIndex = 2 Me.TabPage5.Text = "Notizen / Rechte" Me.TabPage5.Visible = False ' 'Button2 ' Me.Button2.Image = CType(resources.GetObject("Button2.Image"), System.Drawing.Image) Me.Button2.Location = New System.Drawing.Point(536, 72) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(24, 23) Me.Button2.TabIndex = 0 Me.Button2.Visible = False ' '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(232, 67) Me.GroupBox11.Name = "GroupBox11" Me.GroupBox11.Size = New System.Drawing.Size(296, 200) Me.GroupBox11.TabIndex = 4 Me.GroupBox11.TabStop = False Me.GroupBox11.Text = "Zustelladresse" Me.GroupBox11.Visible = False ' '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 ' '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 ' 'pnlBerechtigungen ' Me.pnlBerechtigungen.Controls.Add(Me.DokumentFunktionenList) Me.pnlBerechtigungen.Location = New System.Drawing.Point(168, 168) Me.pnlBerechtigungen.Name = "pnlBerechtigungen" Me.pnlBerechtigungen.Size = New System.Drawing.Size(616, 152) Me.pnlBerechtigungen.TabIndex = 3 Me.pnlBerechtigungen.TabStop = False Me.pnlBerechtigungen.Text = "Berechtigungseinschränkung" ' '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 Me.DokumentFunktionenList.PrintInfo.PageSettings = CType(resources.GetObject("DokumentFunktionenList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.DokumentFunktionenList.Size = New System.Drawing.Size(600, 128) Me.DokumentFunktionenList.TabIndex = 1 Me.DokumentFunktionenList.Text = "C1TrueDBGrid1" Me.DokumentFunktionenList.PropBag = resources.GetString("DokumentFunktionenList.PropBag") ' '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" ' '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(8, 168) Me.GroupBox9.Name = "GroupBox9" Me.GroupBox9.Size = New System.Drawing.Size(152, 152) Me.GroupBox9.TabIndex = 2 Me.GroupBox9.TabStop = False Me.GroupBox9.Text = "Schutz" ' 'Button3 ' Me.Button3.Location = New System.Drawing.Point(16, 96) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(120, 48) Me.Button3.TabIndex = 2 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 = 1 ' '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 Me.Label18.Text = "Vertraulich" ' '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 = 0 ' '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 Me.Label9.Text = "Gesperrt" ' 'GroupBox8 ' Me.GroupBox8.Controls.Add(Me.drpMiatarbeiter) Me.GroupBox8.Controls.Add(Me.Notizlist) Me.GroupBox8.Location = New System.Drawing.Point(8, 8) Me.GroupBox8.Name = "GroupBox8" Me.GroupBox8.Size = New System.Drawing.Size(776, 152) Me.GroupBox8.TabIndex = 1 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(80, 40) 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 = 3 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 Me.Notizlist.PrintInfo.PageSettings = CType(resources.GetObject("Notizlist.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.Notizlist.Size = New System.Drawing.Size(760, 128) Me.Notizlist.TabIndex = 0 Me.Notizlist.Text = "C1TrueDBGrid1" Me.Notizlist.PropBag = resources.GetString("Notizlist.PropBag") ' '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(224, 21) Me.cbVerantwortlich.TabIndex = 7 ' '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" ' '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" ' '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 = 6 ' 'txtPartnerInhaberNr ' Me.txtPartnerInhaberNr.Location = New System.Drawing.Point(272, 72) Me.txtPartnerInhaberNr.Name = "txtPartnerInhaberNr" Me.txtPartnerInhaberNr.ReadOnly = True Me.txtPartnerInhaberNr.Size = New System.Drawing.Size(24, 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 = 5 ' '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, 16) Me.btnPartnerInhaber.Name = "btnPartnerInhaber" Me.btnPartnerInhaber.Size = New System.Drawing.Size(24, 24) Me.btnPartnerInhaber.TabIndex = 2 ' '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(536, 467) Me.cdokumentwerteanzeigen.Name = "cdokumentwerteanzeigen" Me.cdokumentwerteanzeigen.Size = New System.Drawing.Size(160, 32) Me.cdokumentwerteanzeigen.TabIndex = 11 Me.cdokumentwerteanzeigen.Text = "Dokumentinhalte anzeigen" ' 'Button1 ' Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image) Me.Button1.Location = New System.Drawing.Point(376, 16) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(24, 24) Me.Button1.TabIndex = 3 ' '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 = 4 Me.Button4.Visible = False ' 'cbsave ' Me.cbsave.Items.AddRange(New Object() {"abc", "def", "gagas d sd", "sdf sdf sfd "}) Me.cbsave.Location = New System.Drawing.Point(743, 64) Me.cbsave.Name = "cbsave" Me.cbsave.Size = New System.Drawing.Size(21, 21) Me.cbsave.TabIndex = 8 Me.cbsave.Text = "ComboBox1" Me.cbsave.Visible = False ' 'cbmoeglicheStati ' Me.cbmoeglicheStati.Items.AddRange(New Object() {"abc", "def", "gagas d sd", "sdf sdf sfd "}) Me.cbmoeglicheStati.Location = New System.Drawing.Point(743, 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 ' 'btntxtBemerkung ' Me.btntxtBemerkung.Image = CType(resources.GetObject("btntxtBemerkung.Image"), System.Drawing.Image) Me.btntxtBemerkung.Location = New System.Drawing.Point(765, 64) Me.btntxtBemerkung.Name = "btntxtBemerkung" Me.btntxtBemerkung.Size = New System.Drawing.Size(20, 21) Me.btntxtBemerkung.TabIndex = 9 ' 'LabelVIBeachten ' Me.LabelVIBeachten.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.LabelVIBeachten.ForeColor = System.Drawing.Color.Red Me.LabelVIBeachten.Location = New System.Drawing.Point(48, 72) Me.LabelVIBeachten.Name = "LabelVIBeachten" Me.LabelVIBeachten.Size = New System.Drawing.Size(192, 23) Me.LabelVIBeachten.TabIndex = 56 Me.LabelVIBeachten.Text = "VI beachten" Me.LabelVIBeachten.Visible = False ' 'PicVIBeachten ' Me.PicVIBeachten.Image = CType(resources.GetObject("PicVIBeachten.Image"), System.Drawing.Image) Me.PicVIBeachten.Location = New System.Drawing.Point(5, 55) Me.PicVIBeachten.Name = "PicVIBeachten" Me.PicVIBeachten.Size = New System.Drawing.Size(43, 41) Me.PicVIBeachten.TabIndex = 57 Me.PicVIBeachten.TabStop = False Me.PicVIBeachten.Visible = False ' 'BtnHelp ' Me.BtnHelp.Image = CType(resources.GetObject("BtnHelp.Image"), System.Drawing.Image) Me.BtnHelp.Location = New System.Drawing.Point(8, 472) Me.BtnHelp.Name = "BtnHelp" Me.BtnHelp.Size = New System.Drawing.Size(24, 23) Me.BtnHelp.TabIndex = 62 ' 'frmDokumentbearbeitungBC ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(808, 501) Me.ControlBox = False Me.Controls.Add(Me.BtnHelp) Me.Controls.Add(Me.LabelVIBeachten) Me.Controls.Add(Me.btntxtBemerkung) 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.Controls.Add(Me.PicVIBeachten) 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 = "frmDokumentbearbeitungBC" Me.ShowInTaskbar = False Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Dokumentbearbeitung - Barcodekleber-Dokument" 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.GroupBox13.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.GroupBox7.ResumeLayout(False) CType(Me.InfoMeldungList, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox6.ResumeLayout(False) CType(Me.ZuordnungList, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox5.ResumeLayout(False) CType(Me.ColdList, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox4.ResumeLayout(False) Me.GroupBox4.PerformLayout() CType(Me.DateTimePicker2, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage5.ResumeLayout(False) Me.GroupBox11.ResumeLayout(False) Me.GroupBox11.PerformLayout() Me.pnlBerechtigungen.ResumeLayout(False) CType(Me.DokumentFunktionenList, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox9.ResumeLayout(False) Me.GroupBox8.ResumeLayout(False) CType(Me.drpMiatarbeiter, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Notizlist, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PicVIBeachten, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub #End Region #Region "Deklarationen" 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 DokumentID As String 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 txtBemerkungVerantwortlicher As String Dim Importfilename As String = "" 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 firststatus As Integer Dim saveverantwortlicher As Integer 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 ErsetzenMoeglich As Boolean = False Dim save_stv As Integer Dim vibeachten As Boolean Dim progress As New frmProgress() 'EDEX_Dokumentpakete Dim m_edex_folgestatus As Integer = 0 Property Edex_Folgestatus() As Integer Get Return m_edex_folgestatus End Get Set(ByVal Value As Integer) m_edex_folgestatus = Value End Set End Property 'EDEX Banklagernd Dim Use_BL_Status As Boolean = False Dim Use_Importfile As Boolean = False #End Region #Region "Deklarationen Notfalllösung" Dim m_notfall As Boolean = False Property Notfallimport() As Boolean Get Return m_notfall End Get Set(ByVal Value As Boolean) m_notfall = Value Me.CreateDocument = True End Set End Property #End Region #Region "FormLoad" Public Sub New() MyBase.New() ' Dieser Aufruf ist für den Windows Form-Designer erforderlich. InitializeComponent() 'Rel 4.03 - BaseTrefferliste initialisieren End Sub Public Sub New(ByVal importfilename As String) MyBase.New() InitializeComponent() Me.Importfilename = importfilename End Sub Private Sub frmDokumentbearbeitung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '20120211 If Globals.Dokument_Importfilename <> "" Then Me.Text = "Dokumenterstellung - Import-Dokument" progress.Bar1a.Value = 10 progress.Info.Text = "Vorbereitung Dokumenterstellung" progress.Refresh() progress.Show() progress.Refresh() Me.On_Load = True Me.save_stv = Globals.stv If Me.CreateDocument Then Formular_Laden_Create_Document() progress.Bar1a.Value = 20 progress.Refresh() 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 If Me.txtPartnerInhaber.Text = " 0 " Then Me.txtPartnerInhaber.Text = "" Me.txtPartnerInhaberNr.Text = f.PartnerNr Me.txtPartnerZusteller.Text = Me.get_partnerzusteller(f.PartnerNr) Me.TabControl2.Enabled = True Me.vibeachten = f.VIBeachten f.Dispose() 'edex Banklagernd Banklagernd_Check() Else 'Rel. 4.03 'MyMsg.show_standardmessage(30, MsgBoxStyle.Critical) 'Me.Close() End If Else 'btnPartnerInhaber_Click(sender, e) End If 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 Then bereiche_sperren() If Me.vibeachten = True Then Me.PicVIBeachten.Visible = True Me.LabelVIBeachten.Visible = True Else Me.PicVIBeachten.Visible = False Me.LabelVIBeachten.Visible = False End If End Sub 'EDEX_Banklagernd Private Sub Banklagernd_Check() Dim i As Integer i = check_banklagernd() If i = 0 Then Exit Sub Dim dt As New edokadb.clsDokumenttyp() dt.cpMainConnectionProvider = conn dt.iDokumenttypnr = New SqlInt32(CType(Dokumenttypnr, Int32)) dt.SelectOne() If dt.bKundenDokument.Value = False Then dt.Dispose() Exit Sub End If 'Rel. 4.1 If dt.bIntern.Value = True Then dt.Dispose() Exit Sub End If dt.Dispose() Try Select Case i Case 1 Dim f As New frmBanklagerndverarbeitung(Me.Partnernr, True) f.rbbckbldossier.Checked = True f.rbbckversand.Checked = False f.ShowDialog() If f.rbbckbldossier.Checked = True Then Me.Use_BL_Status = True End If f.Dispose() Case 2 Dim f As New frmBanklagerndverarbeitung(Me.Partnernr, True) f.rbbckbldossier.Checked = True f.rbbckversand.Checked = False f.ShowDialog() If f.rbbckbldossier.Checked = True Then Me.Use_BL_Status = True End If f.Dispose() End Select Catch Finally Try Globals.conn.CloseConnection(True) Catch End Try End Try End Sub 'Private Function check_banklagernd() 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_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) ' 'EDEX Banklagernd ' Return scmCmdToExecute.Parameters.Item("@banklagernd").Value ' ' ' ' 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 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() w.Save_Dokument = doc.SelectOne Me.Dokumenttypnr = doc.iDokumenttypnr.Value DokumentID = doc.sDokumentid.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) If p.sCDVIG00.Value = "Y" Or p.iAZEPL00.Value > 1 Or p.bCDVSA00.Value = True Then Me.vibeachten = True Else Me.vibeachten = False p.Dispose() 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 'Prüfung, sofern akt. verantwortlicher = MA-Systemuser, dann aktueller Mitarbeiter setzen If ii > 9950 Then ii = Globals.MitarbeiterNr End If 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 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 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 'KC 2008-05-07 Zusatzanfoderung Rel 4.0 DokInfoWerte alle abfüllen (Filter auf Liste) Me.DokWertList.AllowFilter = True Me.DokWertList.FilterActive = False For i = 0 To Me.DokWertList.Columns.Count - 1 Me.DokWertList.Columns(i).FilterText = "" If Me.DokWertList.Columns(i).DataField = "userinterface" Then Me.DokWertList.Columns(i).FilterText = True End If Next Me.DokWertList.Splits(0).DisplayColumns(0).Width = 110 Me.DokWertList.Splits(0).DisplayColumns(1).Width = 60 Me.DokWertList.Columns(1).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox 'Me.DokWertList.Splits(0).DisplayColumns(1).Locked = True Me.DokWertList.Splits(0).DisplayColumns(0).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) 'Release 4.0 KC 01.06.2007 XMl Daten berücksichtigen (DokumentBearbeitung.edka) For i = 0 To dtToReturn.Rows.Count - 1 Dim objDokumentWert As AvaloqDokumentWert If Not dtToReturn.Rows(i).Item(0) Is System.DBNull.Value Then objDokumentWert = objAvaloqDokumentWerte.getAvaloqDokumentWertByName(dtToReturn.Rows(i).Item(0)) End If If objDokumentWert Is Nothing = False Then dtToReturn.Rows(i).Item(2) = objDokumentWert.value 'dtToReturn.Rows(i).Item(5) = objDokumentWert.dataType End If objDokumentWert = Nothing Next 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() If Me.Notfallimport Then Me.Text = Me.Text + " - Notfall-Dokumenterstellung" 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 Me.progress.Bar1a.Value = 30 progress.Refresh() 'Dokumenttyp-Daten If Me.CreateDocument = True Then If DivFnkt.Ist_Berechtigt(doktyp.iDokumenttypnr.Value, Globals.MitarbeiterNr, 0, 0, 2, 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 Else If DivFnkt.Ist_Berechtigt(doktyp.iDokumenttypnr.Value, Globals.MitarbeiterNr, 0, 0, 3, 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 End If Me.progress.Bar1a.Value = 40 progress.Refresh() 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 = 60 Me.DokWertList.Columns(1).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox 'Me.DokWertList.Splits(0).DisplayColumns(1).Locked = True Me.DokWertList.Splits(0).DisplayColumns(0).Locked = True Me.DokWertList.Splits(0).DisplayColumns(2).Width = 160 'Release 4.0 KC 31.05.2007 XMl Daten berücksichtigen (DokumentErstellung.edka) For i = 0 To Me.DataSet1.Tables(0).Rows.Count - 1 Dim objDokumentWert As AvaloqDokumentWert If Not Me.DokWertList.Item(i, 0) Is System.DBNull.Value Then objDokumentWert = objAvaloqDokumentWerte.getAvaloqDokumentWertByName(Me.DokWertList.Item(i, 0)) End If If objDokumentWert Is Nothing = False Then Me.DataSet1.Tables(0).Rows(i).Item("Feldwert") = objDokumentWert.value 'Me.DataSet1.Tables(0).Rows(i).Item("Feldtyp") = objDokumentWert.dataType End If objDokumentWert = Nothing Next 'KC 2008-05-07 Zusatzanfoderung Rel 4.0 DokInfoWerte alle abfüllen (Filter auf Liste) Me.DokWertList.AllowFilter = True Me.DokWertList.FilterActive = False For i = 0 To Me.DokWertList.Columns.Count - 1 Me.DokWertList.Columns(i).FilterText = "" If Me.DokWertList.Columns(i).DataField = "userinterface" Then Me.DokWertList.Columns(i).FilterText = True End If Next Me.mcbstatus = New MultiComboBox(Me.cbdokumentstatus) Me.mcbstatus.CheckNullValue = True Me.mcbstatus.NullValueMessage = MyTxt.gettext(18) Me.mcbstatus.DisplayColumnName = "Bezeichnung" Me.mcbstatus.ValueColumnName = "dokumentstatusnr" '20120211 - Globals.bckdokument für Import-Dokument auf false setzen If Globals.Dokument_Importfilename <> "" Then Globals.bckdokument = False End If Me.mcbstatus.Fill_Data(Generic_Select(2), False) Globals.bckdokument = True 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 Me.mcbpostzustellung.CheckNullValue = False Me.progress.Bar1a.Value = 50 progress.Refresh() 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 Me.progress.Bar1a.Value = 60 progress.Refresh() If Not Me.Notfallimport Then 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.mcbunterschriftlinks.CheckNullValue = False Me.mcbunterschriftrechts.CheckNullValue = False End If Me.mcbverantwortlich = New MultiComboBox(cbVerantwortlich) Me.mcbverantwortlich.DisplayColumnName = "mitarbeiter" Me.mcbverantwortlich.ValueColumnName = "mitarbeiternr" FillMcbVerantwortlich() Me.progress.Bar1a.Value = 70 progress.Refresh() Me.rbZustaendigKube.Checked = False Me.RBZustaendigZustaendiger.Checked = True Me.txtZustelladresse.Text = "" If Not Me.Notfallimport Then 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 Else Me.mcbunterschriftlinks.Visible = False Me.mcbunterschriftrechts.Visible = False End If 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.ErsetzenMoeglich = False Else Me.ErsetzenMoeglich = True End If '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 Me.progress.Bar1a.Value = 80 progress.Refresh() '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 If Me.Edex_Folgestatus <> 0 Then Me.mcbstatus.SelectedIndex = Me.Edex_Folgestatus Me.savestatus = Me.mcbstatus.SelectedValue Me.firststatus = Me.savestatus Me.saveverantwortlicher = Globals.MitarbeiterNr 'Hutter Notfallimport If Not Me.Notfallimport Then 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 End If 'Rel. 3.7 shu If doktyp.bBezeichnungmut.Value = True Then Me.txtBezeichnung.ReadOnly = False Else Me.txtBezeichnung.ReadOnly = True End If '2007-02-14_1041: RS: setzt standardwerte von automatisiert von avaloq her chond SetDefaultValues() End Sub Private Sub SetDefaultValues() Try '20080409 RGL Anpassung zurück, da diese Optionen nicht angeliefert werden 'If Me.Partnerwechsel = True Then Me.btnPartnerInhaber.Enabled = True Else Me.btnPartnerInhaber.Enabled = False 'If Me.Statuswechsel = True Then Me.cbdokumentstatus.Enabled = True Else Me.cbdokumentstatus.Enabled = False 'If Me.Verantwortlicherwechsel = True Then Me.cbVerantwortlich.Enabled = True Else Me.cbVerantwortlich.Enabled = False 'If Not IsNothing(Me.Zustaendiger) Then ' mcbzust.SelectedValue = Me.Zustaendiger 'End If 'If Not IsNothing(Me.UnterschriftLinks) Then ' mcbunterschriftlinks.SelectedValue = Me.UnterschriftLinks 'End If 'If Not IsNothing(Me.Unterschriftrechts) Then ' mcbunterschriftrechts.SelectedValue = Me.Unterschriftrechts 'End If 'If Not IsNothing(Me.Verantwortlicher) Then ' mcbverantwortlich.SelectedValue = Me.Verantwortlicher 'End If Catch ex As Exception TKBLib.Errorhandling.TraceHelper.Msg("EdokaApp.frmDokumentBearbeitungBC.SetDefaultValues()", ex.Message & ex.StackTrace, TraceLevel.Error) Throw ex End Try 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.Dokumenttypnrnr = Me.Dokumenttypnr 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 Me.vibeachten = f.VIBeachten FillMcbVerantwortlich() 'EDEX Banklagernd Banklagernd_Check() Else MyMsg.show_standardmessage(30, MsgBoxStyle.Critical) Me.Close() End If End If If Me.vibeachten = True Then Me.PicVIBeachten.Visible = True Me.LabelVIBeachten.Visible = True Else Me.PicVIBeachten.Visible = False Me.LabelVIBeachten.Visible = False 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 If Me.Notfallimport = True Then scmCmdToExecute.CommandText = "SP_Notfallimport_StatusSelektion" Else scmCmdToExecute.CommandText = "SP_Dokumentbearbeitung_StatusSelektion" End If 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 20 'Hutter Notfallimport scmCmdToExecute.CommandText = "dbo.sp_notfallimport_status_erstellen" 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 If Me.Notfallimport = True Then scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumenttypnr)) Else 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 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 20 'Mitarbeiter scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.NewDokumentID)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) 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) Handles Notizlist.MouseUp If Me.Notizen.Rows.Count = 0 Then Exit Sub Try 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() f.Mutierer = Globals.MitarbeiterNr.ToString f.Notiz = "" f.Betreff = "" f.ShowDialog() If f.DialogResult = DialogResult.OK Then Dim rc As DataRowCollection Dim newrow As DataRow rc = Notizen.Rows Dim rowvals(Me.Notizen.Columns.Count - 1) As Object ' For i = 0 To Me.Notizen.Columns.Count - 1 ' MsgBox(Me.Notizen.Columns(i).Caption) ' Next rowvals(0) = System.DBNull.Value rowvals(2) = f.Betreff rowvals(3) = f.Notiz rowvals(5) = True 'Aktiv rowvals(6) = Now() 'erstellt_am rowvals(7) = Now() 'mutiert_am rowvals(8) = Globals.MitarbeiterNr 'mutierer 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 f.MutiertAm = Me.Notizlist.Columns("Mutiert_Am").Text f.ShowDialog() If f.DialogResult = DialogResult.OK Then Me.Notizlist.Columns("betreff").Value = f.Betreff Me.Notizlist.Columns("notiz").Value = f.Notiz Me.Notizlist.Columns("Mutierer").Value = Globals.MitarbeiterNr Me.Notizlist.Columns("Mutiert_Am").Text = Now() End If f.Dispose() End Sub Private Sub Notizlist_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Notizlist.DoubleClick MnuEditNotiz_Click(sender, e) End Sub Private Sub 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 "DATUMSHORT" Dim f As New frmCalendar() f.ShowDialog() If f.DialogResult = DialogResult.OK Then s = f.MonthCalendar1.SelectionStart.ToShortDateString Me.DokWertList.Columns("feldwert").Value = s End If f.Dispose() Case "DATUMMEDIUM" Dim f As New frmCalendar() f.ShowDialog() If f.DialogResult = DialogResult.OK Then s = f.MonthCalendar1.SelectionStart s = Format(f.MonthCalendar1.SelectionStart, "dd. MMMM yyyy") Me.DokWertList.Columns("feldwert").Value = s End If f.Dispose() Case "DATUMLONG" Dim f As New frmCalendar() f.ShowDialog() If f.DialogResult = DialogResult.OK Then s = f.MonthCalendar1.SelectionStart.ToLongDateString 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.Dokumenttypnrnr = Me.Dokumenttypnr 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() If Me.DokWertList.Columns("Datenherkunft").Value = "&SekPartnerVV&" Then Dim ss As String Dim ii As Integer For i = 0 To Me.DokWertList.Splits(0).Rows.Count - 1 If Me.DokWertList.Columns("datenherkunft").CellValue(i) = "&Partner&" Then ss = Me.DokWertList.Columns("feldwert").CellText(i) End If Next 'ss = Me.DokWertList.Columns("feldwert").CellText(0) ii = InStr(ss, "-") If ii < 1 Then Exit Sub f.Partnernr = LTrim(Microsoft.VisualBasic.Left(ss, ii - 1)) Else If Me.DokWertList.Columns("Datenherkunft").Value = "&TerPartnerVV&" Then Dim ss As String Dim ii As Integer For i = 0 To Me.DokWertList.Splits(0).Rows.Count - 1 If Me.DokWertList.Columns("datenherkunft").CellValue(i) = "&Partner3&" Then ss = Me.DokWertList.Columns("feldwert").CellText(i) End If Next 'ss = Me.DokWertList.Columns("feldwert").CellText(0) ii = InStr(ss, "-") If ii < 1 Then Exit Sub f.Partnernr = LTrim(Microsoft.VisualBasic.Left(ss, ii - 1)) Else f.partnernr = Me.txtPartnerInhaberNr.Text() End If End If 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 If Globals.Dokument_Importfilename <> "" Then Me.Use_Importfile = True If Val(Me.txtPartnerInhaberNr.Text) > 91000000 Then If DivFnkt.EDOKA_Partner_Dokument(3, Me.Dokumenttypnr) = False Then MyMsg.show_standardmessage(110, MsgBoxStyle.Critical) Exit Sub End If End If Dim p As New edokadb.clsPartner() p.cpMainConnectionProvider = conn Try p.iNRPAR00 = New SqlInt32(CType(Trim(Me.txtPartnerInhaberNr.Text), Int32)) Catch ex As Exception MyMsg.show_standardmessage(205, MsgBoxStyle.Exclamation) p.Dispose() Exit Sub End Try p.SelectOne() If p.bSaldiert.Value = True Then Dim dt As New edokadb.clsDokumenttyp() dt.cpMainConnectionProvider = conn dt.iDokumenttypnr = New SqlInt32(CType(Me.Dokumenttypnr, Int32)) dt.SelectOne() If dt.bVertrag.Value = True Then MyMsg.show_standardmessage(234, MsgBoxStyle.Critical) dt.Dispose() p.Dispose() Exit Sub End If dt.Dispose() End If p.Dispose() Dim xdata As DataTable Dim s As String If Me.savestatus = Me.mcbstatus.SelectedValue And Me.savestatus = Me.firststatus 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) '20120211 If Globals.Dokument_Importfilename <> "" Then If Not System.IO.File.Exists(Globals.Dokument_Importfilename) Then MsgBox("Die ausgewählte Datei kann nicht gefunden werden. Bitte brechen Sie die Funktion ab und wiederholen Sie die Dokumenterstellung.") End If End If 'Rel 4.03 - Ausbau Fensterminimierung bei Barcode-Kleber-Dokumenten 'Try ' ' Rel 4.0 Fensterhandling Problem ' ' Handle verweis auf Prozess EDOKA... ' Dim r As Process ' Dim Ret As Int32 ' Dim hWndMain As IntPtr ' Dim MyProcesses() As Process = _ ' Process.GetProcessesByName( _ ' Process.GetCurrentProcess().ProcessName) ' For Each r In MyProcesses ' If (r.Id = Process.GetCurrentProcess().Id) Then ' Globals.Apphandle = r.MainWindowHandle() ' End If ' Next ' Win32API.ShowWindow(Globals.Apphandle, Win32API.SW_Minimze) 'Catch 'End Try End Sub Public Sub DoNoEdit() progress.Bar1a.Value = 10 progress.Info.Text = "Vorbereitung Dokumenterstellung" progress.Refresh() progress.Show() progress.Refresh() Me.On_Load = True Me.save_stv = Globals.stv If Me.CreateDocument Then Formular_Laden_Create_Document() progress.Bar1a.Value = 20 progress.Refresh() 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 If Me.txtPartnerInhaber.Text = " 0 " Then Me.txtPartnerInhaber.Text = "" Me.txtPartnerInhaberNr.Text = f.PartnerNr Me.txtPartnerZusteller.Text = Me.get_partnerzusteller(f.PartnerNr) Me.TabControl2.Enabled = True Me.vibeachten = f.VIBeachten f.Dispose() 'edex Banklagernd Banklagernd_Check() Else MyMsg.show_standardmessage(30, MsgBoxStyle.Critical) Me.Close() End If Else 'Kein Partner -> Sollte vorher abgefangen worden sein Exit Sub End If 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 Then bereiche_sperren() If Me.vibeachten = True Then Me.PicVIBeachten.Visible = True Me.LabelVIBeachten.Visible = True Else Me.PicVIBeachten.Visible = False Me.LabelVIBeachten.Visible = False End If progress.Close() progress.Dispose() Dim p As New edokadb.clsPartner() p.cpMainConnectionProvider = conn p.iNRPAR00 = New SqlInt32(CType(Trim(Me.txtPartnerInhaberNr.Text), Int32)) p.SelectOne() If p.bSaldiert.Value = True Then Dim dt As New edokadb.clsDokumenttyp() dt.cpMainConnectionProvider = conn dt.iDokumenttypnr = New SqlInt32(CType(Me.Dokumenttypnr, Int32)) dt.SelectOne() If dt.bVertrag.Value = True Then MyMsg.show_standardmessage(234, MsgBoxStyle.Critical) dt.Dispose() p.Dispose() Exit Sub End If dt.Dispose() End If p.Dispose() Dim xdata As DataTable Dim s As String If Me.savestatus = Me.mcbstatus.SelectedValue And Me.savestatus = Me.firststatus 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 Then Notizen_Sichern() Dokumentzuordnungen_Sichern() Dokumentinfomeldungen_Sichern() DivFnkt.Status_Dokumentbearbeitung(2, Me.DokumentID, False, "") Me.Close() 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(Me.mcbteam.SelectedValue, Int32)) doc.daErstelltam = New SqlDateTime(CType(Now, DateTime)) doc.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32)) doc.iMutiererteam = New SqlInt32(CType(Me.mcbteam.SelectedValue, Int32)) doc.daMutiertam = New SqlDateTime(CType(Now, DateTime)) If Globals.bckdokument Then doc.iBck = New SqlInt32(CType(1, Int32)) Else doc.iBck = New SqlInt32(CType(1, Int32)) End If '20120211 If Me.Use_Importfile = True Then doc.iBck = New SqlInt32(CType(0, Int32)) doc.iAufbewahrung_elektronisch = New SqlInt32(CType(doctyp.iAufbewahrungsfrist_elektronisch.Value, Int32)) doc.iAufbewahrung_phaysisch = New SqlInt32(CType(doctyp.iAufbewahrungsfrist_physisch.Value, Int32)) doc.iBearbeitung_nach_abschluss = New SqlInt32(CType(doctyp.iTage_mutation.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)) 'EDEX Banklagernd If Me.Use_BL_Status Then doc.bBl_scan = New SqlBoolean(CType(True, Boolean)) doc.bBldossier = New SqlBoolean(CType(True, Boolean)) Else doc.bBl_scan = New SqlBoolean(CType(False, Boolean)) doc.bBldossier = New SqlBoolean(CType(False, Boolean)) End If 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)) If Not Me.Use_Importfile Then '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 End If If Me.Use_Importfile = True Then doc.sDokumentname = New SqlString(CType(System.IO.Path.GetFileName(Globals.Dokument_Importfilename), String)) '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.iAnzeigeStatus = New SqlInt32(CType(0, Int32)) doc.Insert() t.Dispose() 'Hutter Notfallimport If Not Me.Notfallimport Then Dim statush As New Statushandling() '20120211 - Bei Dokumentimport globals.bckdokument auf fals setzen If Use_Importfile Then Globals.bckdokument = False statush.Status_Erstellen(doc.sDokumentid.Value, Me.Use_BL_Status) If Use_Importfile Then Globals.bckdokument = True statush.Dispose() Else Generic_Select(20) End If 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 Or Globals.Dokument_Importfilename <> "" Or Me.Notfallimport = True Then If Not Me.Notfallimport Then If Globals.Dokument_Importfilename = "" Then Cold_Index_Bearbeiten(2) Else Cold_Index_Bearbeiten(1) Else If doctyp.bZu_retournieren.Value = True Then Cold_Index_Bearbeiten(2) Else Cold_Index_Bearbeiten(1) Me.Notfallimport_COLD_Index_Sichern(2) End If End If 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.Use_Importfile = False 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 = "" And Me.Use_Importfile = False 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 If Globals.Dokumentcoldindex_Changed Then w.dokumentidalt = Globals.Dokumentidalt w.save_dokumentcoldindex = Globals.general_ds.Tables(Globals.general_ds.Tables.Count - 1).Copy w.Dokumentcoldindex_Changed = Globals.Dokumentcoldindex_Changed w.dokumentid_changed = Globals.dokumentid_changed w.dokumentcoldindex_status = Globals.dokumentcoldindex_status w.Ersetzte_Dokumente_Reaktivieren = Globals.Ersetzte_Dokumente_Reaktivieren End If 'Anzeigen der Dokumentwerte, sofern die Checkbox markiert war 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) If IsNothing(objSpooler) = False Then If objSpooler.NoEdit = 2 Then Words.Remove(w.DokumentName) End If End If 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.Use_Importfile = False And Me.Dokumentinfobearbeiten = False Then w.Dokument_Vervollstaendigen(xdata) Words.Add(w, w.DokumentName) If IsNothing(objSpooler) = False Then If objSpooler.NoEdit = 2 Then Words.Remove(w.DokumentName) End If End If Else If Not Me.Dokumentinfobearbeiten = True Then Update_Bclabel(1) End If DivFnkt.Status_Dokumentbearbeitung(2, Me.DokumentID, False, "") If Globals.Dokument_Importfilename = "" Then MyMsg.show_bcmessage(Me.DokumentID) Else MyMsg.show_standardmessage(50200, MsgBoxStyle.Information) End If End If Me.Hide() xdata.Dispose() doc.Dispose() 'Rel. 4.03 Trefferliste Updaten If Globals.Dokument_Importfilename <> "" Then Dim dx As New DocMgmt dx.Save_To_DB(Me.DokumentID, Globals.Dokument_Importfilename) dx = Nothing Globals.Dokument_Importfilename = "" End If 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 Function Notfallimport_COLD_Index_Sichern(ByVal indextyp As Integer) As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.SP_Notfallimport_coldindex" 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, 8000, 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 If Me.mcbverantwortlich.SelectedValue <> Globals.MitarbeiterNr Then If Me.save_stv = 1 Then If Me.mcbverantwortlich.SelectedValue <> Me.saveverantwortlicher Then If Me.txtBemerkungVerantwortlicher <> "" Then statush.BemerkungVerantwortlicher = Me.txtBemerkungVerantwortlicher End If statush.Meldung_Verantwortlicher(Me.DokumentID, Me.mcbverantwortlich.SelectedValue) End If Else If Me.txtBemerkungVerantwortlicher <> "" Then statush.BemerkungVerantwortlicher = Me.txtBemerkungVerantwortlicher End If statush.Meldung_Verantwortlicher(Me.DokumentID, Me.mcbverantwortlich.SelectedValue) End If End If 'If Me.txtBemerkungVerantwortlicher <> "" Then 'statush.BemerkungVerantwortlicher = Me.txtBemerkungVerantwortlicher 'End If 'statush.Meldung_Verantwortlicher(Me.DokumentID, Me.mcbverantwortlich.SelectedValue) 'End If If w.send_statusmessage = True Then statush.Meldung_Status(Me.DokumentID, Me.mcbstatus.SelectedValue) End If statush.Dispose() 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 Me.ContextMenu1.MenuItems(1).Enabled = True Me.ContextMenu1.MenuItems(2).Enabled = True End If End Sub 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.Dokumenttypnrnr = Me.Dokumenttypnr 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 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) Dim f As New FrmPartnersuche() f.Dokumenttypnrnr = Me.Dokumenttypnr f.ShowDialog() If f.PartnerNr <> 0 Then Me.txtZustelladresse.Text = f.zustelladresse Me.txtAnredeZusteller.Text = f.Anrede Me.txtZustelladresse.Focus() End If End Sub Private Sub DateTimePicker2_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DateTimePicker2.KeyDown 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.Button9.Visible = False fx.BtnHelp.Visible = False 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 Object, ByVal e As System.EventArgs) Handles cvertraulich.CheckedChanged 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) Handles Button3.Click 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.BtnHelp.Visible = False fx.Button9.Visible = False 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 Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles InfoMeldungList.FetchRowStyle 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 If Me.ErsetzenMoeglich = False Then Me.MenuItem5.Enabled = False Me.MenuItem6.Enabled = False Exit Sub End If 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 'EDEX Banklagernd Private Function check_banklagernd() 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_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) Return scmCmdToExecute.Parameters.Item("@banklagernd").Value 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 System.Object, ByVal e As System.EventArgs) '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 Private Sub btntxtBemerkung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntxtBemerkung.Click Dim f As New frmtxtBemerkung() f.txtBemerkung.Text = "" f.ShowDialog() If f.DialogResult = DialogResult.OK Then Me.txtBemerkungVerantwortlicher = f.txtBemerkung.Text f.Dispose() End Sub Private Sub DokWertList_BeforeColUpdate(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.BeforeColUpdateEventArgs) Handles DokWertList.BeforeColUpdate If InStr(Me.DokWertList.Columns("Datenherkunft").Text, "VV") > 0 Then If Len(Me.DokWertList.Columns("feldwert").Text) > 16 Then MyMsg.show_standardmessage(235, MsgBoxStyle.Critical) e.Cancel = True End If End If If e.ColIndex = 1 Then e.Cancel = True End If End Sub Private Sub BtnHelp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHelp.Click Globals.HTMLHelp.ShowHelpToc("dokumentbearbeitungsdialog") End Sub Private Sub cbKube_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mcbkube.SelectedIndexChanged If Me.changeteam > 0 Then Me.changeteam = Me.changeteam - 1 Exit Sub End If 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 If Me.changeteam > 0 Then Me.changeteam = Me.changeteam - 1 Exit Sub End If Try Me.teamzustaendig = Me.mcbzust.SelectedValue refresh_team() Catch End Try End Sub Dim changeteam As Integer = 0 Private Sub TabControl2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl2.SelectedIndexChanged Me.changeteam = 2 End Sub 'Rel. 4.03 Private Sub frmDokumentbearbeitung_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown Try progress.Close() progress.Dispose() Catch ex As Exception End Try Try If Me.Partnernr = "" Then btnPartnerInhaber_Click(sender, e) Catch ex As Exception End Try End Sub #Region "Properties" Dim m_zustaendiger As Integer Property Zustaendiger() As Integer Get Return m_zustaendiger End Get Set(ByVal Value As Integer) m_zustaendiger = Value End Set End Property Dim m_verantwortlicher As Integer Property Verantwortlicher() As Integer Get Return m_verantwortlicher End Get Set(ByVal Value As Integer) m_verantwortlicher = Value End Set End Property Dim m_unterschriftlinks As Integer Property UnterschriftLinks() As Integer Get Return m_unterschriftlinks End Get Set(ByVal Value As Integer) m_unterschriftlinks = Value End Set End Property Dim m_unterschriftrechts As Integer Property Unterschriftrechts() As Integer Get Return m_unterschriftrechts End Get Set(ByVal Value As Integer) m_unterschriftrechts = Value End Set End Property Dim m_fanummer1 As String Property FANummer1() As String Get Return m_fanummer1 End Get Set(ByVal Value As String) m_fanummer1 = Value End Set End Property Dim m_fanummer2 As String Property FANummer2() As String Get Return m_fanummer2 End Get Set(ByVal Value As String) m_fanummer2 = Value End Set End Property Dim m_fanummer3 As String Property FANummer3() As String Get Return m_fanummer3 End Get Set(ByVal Value As String) m_fanummer3 = Value End Set End Property Dim m_neuedokumentid As String Property NeueDokumentid() As String Get Return m_neuedokumentid End Get Set(ByVal Value As String) m_neuedokumentid = Value End Set End Property Dim M_Partnerwechsel As Boolean Property Partnerwechsel() As Boolean Get Return M_Partnerwechsel End Get Set(ByVal Value As Boolean) M_Partnerwechsel = Value End Set End Property Dim m_Statuswechsel As Boolean Property Statuswechsel() As Boolean Get Return m_Statuswechsel End Get Set(ByVal Value As Boolean) m_Statuswechsel = Value End Set End Property Dim m_verantwortlicherwechsel As Boolean Property Verantwortlicherwechsel() As Boolean Get Return m_verantwortlicherwechsel End Get Set(ByVal Value As Boolean) m_verantwortlicherwechsel = False End Set End Property #End Region End Class