Imports System.Data Imports System.Data.SqlTypes Imports System.Data.SqlClient Imports System.ComponentModel Imports UtilityLibrary.Win32 Public Class frmDokumentbearbeitungED 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 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 cbVerantwortlich As System.Windows.Forms.ComboBox Friend WithEvents Label17 As System.Windows.Forms.Label Friend WithEvents Label16 As System.Windows.Forms.Label Friend WithEvents cbdokumentstatus As System.Windows.Forms.ComboBox Friend WithEvents txtPartnerInhaberNr As System.Windows.Forms.TextBox Friend WithEvents txtBezeichnung As System.Windows.Forms.TextBox Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents btnPartnerInhaber As System.Windows.Forms.Button Friend WithEvents txtPartnerZusteller As System.Windows.Forms.TextBox Friend WithEvents txtPartnerInhaber As System.Windows.Forms.TextBox Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents GroupBox10 As System.Windows.Forms.GroupBox Friend WithEvents DokWertList As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents cdokumentwerteanzeigen As System.Windows.Forms.CheckBox Friend WithEvents ContextMenu2 As System.Windows.Forms.ContextMenu Friend WithEvents MnuValueSelect As System.Windows.Forms.MenuItem Friend WithEvents MnuEditNotiz As System.Windows.Forms.MenuItem 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 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 btntxtBemerkung As System.Windows.Forms.Button Friend WithEvents LabelVIBeachten As System.Windows.Forms.Label Friend WithEvents PicVIBeachten As System.Windows.Forms.PictureBox 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 Button2 As System.Windows.Forms.Button Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox Friend WithEvents InfoMeldungList As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox Friend WithEvents ZuordnungList As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox Friend WithEvents ColdList As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox Friend WithEvents C1DateEdit1 As C1.Win.C1Input.C1DateEdit Friend WithEvents Label12 As System.Windows.Forms.Label Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents DateTimePicker4 As System.Windows.Forms.DateTimePicker Friend WithEvents Label14 As System.Windows.Forms.Label Friend WithEvents Label15 As System.Windows.Forms.Label Friend WithEvents pnlBerechtigungen As System.Windows.Forms.GroupBox Friend WithEvents DokumentFunktionenList As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents GroupBox9 As System.Windows.Forms.GroupBox Friend WithEvents Button3 As System.Windows.Forms.Button Friend WithEvents cvertraulich As System.Windows.Forms.CheckBox Friend WithEvents Label18 As System.Windows.Forms.Label Friend WithEvents cGesperrt As System.Windows.Forms.CheckBox Friend WithEvents Label9 As System.Windows.Forms.Label Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox Friend WithEvents Notizlist As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents drpMiatarbeiter As C1.Win.C1TrueDBGrid.C1TrueDBDropdown Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDokumentbearbeitungED)) 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.GroupBox11 = New System.Windows.Forms.GroupBox Me.Button2 = New System.Windows.Forms.Button Me.Label13 = New System.Windows.Forms.Label Me.txtAnredeZusteller = New System.Windows.Forms.TextBox Me.txtZustelladresse = New System.Windows.Forms.TextBox Me.GroupBox12 = New System.Windows.Forms.GroupBox Me.cbteam = New System.Windows.Forms.ComboBox Me.GroupBox10 = New System.Windows.Forms.GroupBox Me.DokWertList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid Me.ContextMenu2 = New System.Windows.Forms.ContextMenu Me.MnuValueSelect = New System.Windows.Forms.MenuItem Me.GroupBox3 = New System.Windows.Forms.GroupBox Me.cbUnterschriftrechts = New System.Windows.Forms.ComboBox Me.cbUnterschriftlinks = New System.Windows.Forms.ComboBox Me.Label8 = New System.Windows.Forms.Label Me.Label7 = New System.Windows.Forms.Label Me.GroupBox1 = New System.Windows.Forms.GroupBox Me.RBZustaendigZustaendiger = New System.Windows.Forms.RadioButton Me.rbZustaendigKube = New System.Windows.Forms.RadioButton Me.cbzust = New System.Windows.Forms.ComboBox Me.cbKube = New System.Windows.Forms.ComboBox Me.GroupBox2 = New System.Windows.Forms.GroupBox Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker Me.cbPostzustellung = New System.Windows.Forms.ComboBox Me.Label5 = New System.Windows.Forms.Label Me.Label3 = New System.Windows.Forms.Label Me.ContextMenu4 = New System.Windows.Forms.ContextMenu Me.mnuInfoEmpfaengerAdd = New System.Windows.Forms.MenuItem Me.mnuInfoEmpfaengerDelete = New System.Windows.Forms.MenuItem Me.ContextMenu3 = New System.Windows.Forms.ContextMenu Me.MnuDokZuordnungAdd = New System.Windows.Forms.MenuItem Me.MnuDokzuordnungDelete = New System.Windows.Forms.MenuItem Me.MenuItem1 = New System.Windows.Forms.MenuItem Me.MnuShowDoc = New System.Windows.Forms.MenuItem Me.ContextMenu7 = New System.Windows.Forms.ContextMenu Me.MenuItem5 = New System.Windows.Forms.MenuItem Me.MenuItem6 = New System.Windows.Forms.MenuItem 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.ContextMenu6 = New System.Windows.Forms.ContextMenu Me.MenuItem3 = New System.Windows.Forms.MenuItem Me.MenuItem4 = New System.Windows.Forms.MenuItem Me.cbVerantwortlich = New System.Windows.Forms.ComboBox Me.ContextMenu5 = New System.Windows.Forms.ContextMenu Me.MenuItem2 = New System.Windows.Forms.MenuItem Me.Label17 = New System.Windows.Forms.Label Me.Label16 = New System.Windows.Forms.Label Me.cbdokumentstatus = New System.Windows.Forms.ComboBox Me.txtPartnerInhaberNr = New System.Windows.Forms.TextBox Me.txtBezeichnung = New System.Windows.Forms.TextBox Me.Label4 = New System.Windows.Forms.Label Me.btnPartnerInhaber = New System.Windows.Forms.Button Me.txtPartnerZusteller = New System.Windows.Forms.TextBox Me.txtPartnerInhaber = New System.Windows.Forms.TextBox Me.Label2 = New System.Windows.Forms.Label Me.Label1 = New System.Windows.Forms.Label Me.cdokumentwerteanzeigen = New System.Windows.Forms.CheckBox Me.Button1 = New System.Windows.Forms.Button Me.ContextMenu8 = New System.Windows.Forms.ContextMenu Me.Button4 = New System.Windows.Forms.Button Me.cbsave = New System.Windows.Forms.ComboBox Me.cbmoeglicheStati = New System.Windows.Forms.ComboBox Me.Panel1 = New System.Windows.Forms.Panel Me.Label11 = New System.Windows.Forms.Label Me.txtstatus = New System.Windows.Forms.Label Me.btntxtBemerkung = New System.Windows.Forms.Button Me.LabelVIBeachten = New System.Windows.Forms.Label Me.PicVIBeachten = New System.Windows.Forms.PictureBox Me.GroupBox7 = New System.Windows.Forms.GroupBox Me.InfoMeldungList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid Me.GroupBox6 = New System.Windows.Forms.GroupBox Me.ZuordnungList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid Me.GroupBox5 = New System.Windows.Forms.GroupBox Me.ColdList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid Me.GroupBox4 = New System.Windows.Forms.GroupBox Me.C1DateEdit1 = New C1.Win.C1Input.C1DateEdit Me.Label12 = New System.Windows.Forms.Label Me.TextBox1 = New System.Windows.Forms.TextBox Me.DateTimePicker4 = New System.Windows.Forms.DateTimePicker Me.Label14 = New System.Windows.Forms.Label Me.Label15 = New System.Windows.Forms.Label Me.pnlBerechtigungen = New System.Windows.Forms.GroupBox Me.DokumentFunktionenList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid Me.GroupBox9 = New System.Windows.Forms.GroupBox Me.Button3 = New System.Windows.Forms.Button Me.cvertraulich = New System.Windows.Forms.CheckBox Me.Label18 = New System.Windows.Forms.Label Me.cGesperrt = New System.Windows.Forms.CheckBox Me.Label9 = New System.Windows.Forms.Label Me.GroupBox8 = New System.Windows.Forms.GroupBox Me.drpMiatarbeiter = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown Me.Notizlist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid 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.GroupBox11.SuspendLayout() Me.GroupBox12.SuspendLayout() Me.GroupBox10.SuspendLayout() CType(Me.DokWertList, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox3.SuspendLayout() Me.GroupBox1.SuspendLayout() Me.GroupBox2.SuspendLayout() CType(Me.DateTimePicker2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PicVIBeachten, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox7.SuspendLayout() CType(Me.InfoMeldungList, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox6.SuspendLayout() CType(Me.ZuordnungList, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox5.SuspendLayout() CType(Me.ColdList, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox4.SuspendLayout() CType(Me.C1DateEdit1, System.ComponentModel.ISupportInitialize).BeginInit() 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() 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 = 13 Me.btnWeiter.Text = "&Weiter>>" ' 'btnCancel ' Me.btnCancel.Location = New System.Drawing.Point(8, 472) Me.btnCancel.Name = "btnCancel" Me.btnCancel.Size = New System.Drawing.Size(104, 23) Me.btnCancel.TabIndex = 14 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" Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH") ' '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" Me.DataSet2.Locale = New System.Globalization.CultureInfo("de-CH") ' '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" Me.DataSet3.Locale = New System.Globalization.CultureInfo("de-CH") ' 'DataSet4 ' Me.DataSet4.DataSetName = "NewDataSet" Me.DataSet4.Locale = New System.Globalization.CultureInfo("de-CH") ' 'TabControl2 ' Me.TabControl2.Controls.Add(Me.TabPage3) 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 = 11 ' 'TabPage3 ' Me.TabPage3.Controls.Add(Me.GroupBox11) 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 = "Dokumentinhalt" ' 'GroupBox11 ' Me.GroupBox11.Controls.Add(Me.Button2) 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(384, 128) Me.GroupBox11.Name = "GroupBox11" Me.GroupBox11.Size = New System.Drawing.Size(400, 192) Me.GroupBox11.TabIndex = 5 Me.GroupBox11.TabStop = False Me.GroupBox11.Text = "Zustelladresse" ' 'Button2 ' Me.Button2.Image = CType(resources.GetObject("Button2.Image"), System.Drawing.Image) Me.Button2.Location = New System.Drawing.Point(296, 16) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(24, 23) Me.Button2.TabIndex = 41 ' 'Label13 ' Me.Label13.Location = New System.Drawing.Point(8, 150) Me.Label13.Name = "Label13" Me.Label13.Size = New System.Drawing.Size(192, 16) Me.Label13.TabIndex = 2 Me.Label13.Text = "Anrede (z.B.: Herr Muster)" ' 'txtAnredeZusteller ' Me.txtAnredeZusteller.Location = New System.Drawing.Point(8, 168) Me.txtAnredeZusteller.Name = "txtAnredeZusteller" Me.txtAnredeZusteller.Size = New System.Drawing.Size(280, 20) Me.txtAnredeZusteller.TabIndex = 1 ' 'txtZustelladresse ' Me.txtZustelladresse.Location = New System.Drawing.Point(8, 16) Me.txtZustelladresse.Multiline = True Me.txtZustelladresse.Name = "txtZustelladresse" Me.txtZustelladresse.Size = New System.Drawing.Size(280, 128) Me.txtZustelladresse.TabIndex = 0 Me.txtZustelladresse.Text = "TextBox1" ' 'GroupBox12 ' Me.GroupBox12.Controls.Add(Me.cbteam) Me.GroupBox12.Location = New System.Drawing.Point(8, 272) 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" ' '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, 112) Me.GroupBox10.TabIndex = 4 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, 88) 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, 184) Me.GroupBox3.Name = "GroupBox3" Me.GroupBox3.Size = New System.Drawing.Size(368, 80) Me.GroupBox3.TabIndex = 2 Me.GroupBox3.TabStop = False Me.GroupBox3.Text = "Unterschrift" ' '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 ' '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 ' '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" ' '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" ' '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, 96) 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(8, 24) Me.RBZustaendigZustaendiger.Name = "RBZustaendigZustaendiger" Me.RBZustaendigZustaendiger.Size = New System.Drawing.Size(98, 24) Me.RBZustaendigZustaendiger.TabIndex = 0 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 = 8 Me.rbZustaendigKube.Text = "Kundenberater" Me.rbZustaendigKube.Visible = False ' 'cbzust ' Me.cbzust.Location = New System.Drawing.Point(128, 32) Me.cbzust.Name = "cbzust" Me.cbzust.Size = New System.Drawing.Size(232, 21) Me.cbzust.TabIndex = 2 ' '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 = 1 Me.cbKube.Visible = False ' 'GroupBox2 ' Me.GroupBox2.Controls.Add(Me.DateTimePicker1) Me.GroupBox2.Controls.Add(Me.cbPostzustellung) Me.GroupBox2.Controls.Add(Me.Label5) Me.GroupBox2.Controls.Add(Me.Label3) Me.GroupBox2.Location = New System.Drawing.Point(8, 8) Me.GroupBox2.Name = "GroupBox2" Me.GroupBox2.Size = New System.Drawing.Size(368, 80) Me.GroupBox2.TabIndex = 0 Me.GroupBox2.TabStop = False Me.GroupBox2.Text = "Allgemein" ' 'DateTimePicker1 ' Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker1.Location = New System.Drawing.Point(128, 48) Me.DateTimePicker1.Name = "DateTimePicker1" Me.DateTimePicker1.Size = New System.Drawing.Size(104, 20) Me.DateTimePicker1.TabIndex = 1 ' '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 ' 'Label5 ' Me.Label5.Location = New System.Drawing.Point(16, 48) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(100, 23) Me.Label5.TabIndex = 11 Me.Label5.Text = "Dokument-Datum" ' '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" ' 'ContextMenu4 ' Me.ContextMenu4.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuInfoEmpfaengerAdd, Me.mnuInfoEmpfaengerDelete}) ' 'mnuInfoEmpfaengerAdd ' Me.mnuInfoEmpfaengerAdd.Index = 0 Me.mnuInfoEmpfaengerAdd.Text = "Neuer Info-Empfänger" ' 'mnuInfoEmpfaengerDelete ' Me.mnuInfoEmpfaengerDelete.Index = 1 Me.mnuInfoEmpfaengerDelete.Text = "Info-Empfänger löschen" ' 'ContextMenu3 ' Me.ContextMenu3.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuDokZuordnungAdd, Me.MnuDokzuordnungDelete, Me.MenuItem1, Me.MnuShowDoc}) ' 'MnuDokZuordnungAdd ' Me.MnuDokZuordnungAdd.Index = 0 Me.MnuDokZuordnungAdd.Text = "Dokument hinzufügen" ' 'MnuDokzuordnungDelete ' Me.MnuDokzuordnungDelete.Index = 1 Me.MnuDokzuordnungDelete.Text = "Dokument entfernen" ' 'MenuItem1 ' Me.MenuItem1.Index = 2 Me.MenuItem1.Text = "-" ' 'MnuShowDoc ' Me.MnuShowDoc.Index = 3 Me.MnuShowDoc.Text = "Dokument anzeigen" ' '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" ' '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 = 36 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 ' '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 = 20 ' 'DateTimePicker3 ' Me.DateTimePicker3.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker3.Location = New System.Drawing.Point(88, 24) Me.DateTimePicker3.Name = "DateTimePicker3" Me.DateTimePicker3.Size = New System.Drawing.Size(96, 20) Me.DateTimePicker3.TabIndex = 18 ' 'Label10 ' Me.Label10.Location = New System.Drawing.Point(8, 24) Me.Label10.Name = "Label10" Me.Label10.Size = New System.Drawing.Size(80, 23) Me.Label10.TabIndex = 34 ' '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 ' 'ContextMenu6 ' Me.ContextMenu6.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem3, Me.MenuItem4}) ' 'MenuItem3 ' Me.MenuItem3.Index = 0 Me.MenuItem3.Text = "Berechtigungseinschränkung hinzufügen" ' 'MenuItem4 ' Me.MenuItem4.Index = 1 Me.MenuItem4.Text = "Berechtigungseinschränkung entfernen" ' 'cbVerantwortlich ' Me.cbVerantwortlich.ContextMenu = Me.ContextMenu5 Me.cbVerantwortlich.ItemHeight = 13 Me.cbVerantwortlich.Location = New System.Drawing.Point(520, 64) Me.cbVerantwortlich.Name = "cbVerantwortlich" Me.cbVerantwortlich.Size = New System.Drawing.Size(224, 21) Me.cbVerantwortlich.TabIndex = 8 Me.cbVerantwortlich.Visible = False ' 'ContextMenu5 ' Me.ContextMenu5.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2}) ' 'MenuItem2 ' Me.MenuItem2.Index = 0 Me.MenuItem2.Text = "&Berechtigte Mitarbeiter" ' 'Label17 ' Me.Label17.Location = New System.Drawing.Point(416, 64) Me.Label17.Name = "Label17" Me.Label17.Size = New System.Drawing.Size(88, 23) Me.Label17.TabIndex = 44 Me.Label17.Text = "Verantwortlicher" Me.Label17.Visible = False ' 'Label16 ' Me.Label16.Location = New System.Drawing.Point(416, 40) Me.Label16.Name = "Label16" Me.Label16.Size = New System.Drawing.Size(96, 23) Me.Label16.TabIndex = 43 Me.Label16.Text = "Dokumentstatus" Me.Label16.Visible = False ' 'cbdokumentstatus ' Me.cbdokumentstatus.ItemHeight = 13 Me.cbdokumentstatus.Location = New System.Drawing.Point(520, 40) Me.cbdokumentstatus.Name = "cbdokumentstatus" Me.cbdokumentstatus.Size = New System.Drawing.Size(264, 21) Me.cbdokumentstatus.TabIndex = 7 Me.cbdokumentstatus.Visible = False ' 'txtPartnerInhaberNr ' Me.txtPartnerInhaberNr.Location = New System.Drawing.Point(344, 72) Me.txtPartnerInhaberNr.Name = "txtPartnerInhaberNr" Me.txtPartnerInhaberNr.ReadOnly = True Me.txtPartnerInhaberNr.Size = New System.Drawing.Size(56, 20) Me.txtPartnerInhaberNr.TabIndex = 5 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 = 6 ' '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 = 12 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(296, 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(744, 64) Me.cbsave.Name = "cbsave" Me.cbsave.Size = New System.Drawing.Size(21, 21) Me.cbsave.TabIndex = 49 Me.cbsave.Text = "ComboBox1" Me.cbsave.Visible = False ' 'cbmoeglicheStati ' Me.cbmoeglicheStati.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 = 9 Me.cbmoeglicheStati.Text = "ComboBox1" Me.cbmoeglicheStati.Visible = False ' '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 Me.Panel1.Visible = False ' '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(764, 64) Me.btntxtBemerkung.Name = "btntxtBemerkung" Me.btntxtBemerkung.Size = New System.Drawing.Size(21, 21) Me.btntxtBemerkung.TabIndex = 10 Me.btntxtBemerkung.Visible = False ' '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(240, 21) Me.LabelVIBeachten.TabIndex = 54 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(3, 58) Me.PicVIBeachten.Name = "PicVIBeachten" Me.PicVIBeachten.Size = New System.Drawing.Size(45, 46) Me.PicVIBeachten.TabIndex = 55 Me.PicVIBeachten.TabStop = False Me.PicVIBeachten.Visible = False ' 'GroupBox7 ' Me.GroupBox7.BackColor = System.Drawing.SystemColors.Control Me.GroupBox7.Controls.Add(Me.InfoMeldungList) Me.GroupBox7.Location = New System.Drawing.Point(488, 200) Me.GroupBox7.Name = "GroupBox7" Me.GroupBox7.Size = New System.Drawing.Size(32, 96) Me.GroupBox7.TabIndex = 59 Me.GroupBox7.TabStop = False Me.GroupBox7.Text = "Informationsmeldungen" Me.GroupBox7.Visible = False ' '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") ' 'GroupBox6 ' Me.GroupBox6.Controls.Add(Me.ZuordnungList) Me.GroupBox6.Location = New System.Drawing.Point(568, 200) Me.GroupBox6.Name = "GroupBox6" Me.GroupBox6.Size = New System.Drawing.Size(24, 88) Me.GroupBox6.TabIndex = 58 Me.GroupBox6.TabStop = False Me.GroupBox6.Text = "Dokument-Zuordnung" Me.GroupBox6.Visible = False ' '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(18, 69) Me.ZuordnungList.TabIndex = 1 Me.ZuordnungList.Text = "C1TrueDBGrid1" Me.ZuordnungList.PropBag = resources.GetString("ZuordnungList.PropBag") ' 'GroupBox5 ' Me.GroupBox5.Controls.Add(Me.ColdList) Me.GroupBox5.Location = New System.Drawing.Point(600, 192) Me.GroupBox5.Name = "GroupBox5" Me.GroupBox5.Size = New System.Drawing.Size(16, 96) Me.GroupBox5.TabIndex = 57 Me.GroupBox5.TabStop = False Me.GroupBox5.Text = "Dokumente ersetzen" Me.GroupBox5.Visible = False ' '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(10, 77) Me.ColdList.TabIndex = 0 Me.ColdList.Text = "C1TrueDBGrid1" Me.ColdList.PropBag = resources.GetString("ColdList.PropBag") ' 'GroupBox4 ' Me.GroupBox4.Controls.Add(Me.C1DateEdit1) Me.GroupBox4.Controls.Add(Me.Label12) Me.GroupBox4.Controls.Add(Me.TextBox1) Me.GroupBox4.Controls.Add(Me.DateTimePicker4) Me.GroupBox4.Controls.Add(Me.Label14) Me.GroupBox4.Controls.Add(Me.Label15) Me.GroupBox4.Location = New System.Drawing.Point(528, 184) Me.GroupBox4.Name = "GroupBox4" Me.GroupBox4.Size = New System.Drawing.Size(24, 192) Me.GroupBox4.TabIndex = 56 Me.GroupBox4.TabStop = False Me.GroupBox4.Text = "Allgemein" Me.GroupBox4.Visible = False ' 'C1DateEdit1 ' Me.C1DateEdit1.FormatType = C1.Win.C1Input.FormatTypeEnum.ShortDate Me.C1DateEdit1.Location = New System.Drawing.Point(88, 48) Me.C1DateEdit1.Name = "C1DateEdit1" Me.C1DateEdit1.Size = New System.Drawing.Size(96, 20) Me.C1DateEdit1.TabIndex = 1 Me.C1DateEdit1.Tag = Nothing Me.C1DateEdit1.VisibleButtons = C1.Win.C1Input.DropDownControlButtonFlags.DropDown ' 'Label12 ' Me.Label12.Location = New System.Drawing.Point(8, 72) Me.Label12.Name = "Label12" Me.Label12.Size = New System.Drawing.Size(80, 23) Me.Label12.TabIndex = 35 Me.Label12.Text = "Bemerkung" ' 'TextBox1 ' Me.TextBox1.Location = New System.Drawing.Point(88, 72) Me.TextBox1.Multiline = True Me.TextBox1.Name = "TextBox1" Me.TextBox1.Size = New System.Drawing.Size(272, 112) Me.TextBox1.TabIndex = 2 ' 'DateTimePicker4 ' Me.DateTimePicker4.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker4.Location = New System.Drawing.Point(88, 24) Me.DateTimePicker4.Name = "DateTimePicker4" Me.DateTimePicker4.Size = New System.Drawing.Size(96, 20) Me.DateTimePicker4.TabIndex = 0 ' 'Label14 ' Me.Label14.Location = New System.Drawing.Point(8, 24) Me.Label14.Name = "Label14" Me.Label14.Size = New System.Drawing.Size(80, 23) Me.Label14.TabIndex = 34 Me.Label14.Text = "Archiv-Datum" ' 'Label15 ' Me.Label15.Location = New System.Drawing.Point(8, 48) Me.Label15.Name = "Label15" Me.Label15.Size = New System.Drawing.Size(80, 23) Me.Label15.TabIndex = 30 Me.Label15.Text = "Termin" ' 'pnlBerechtigungen ' Me.pnlBerechtigungen.Controls.Add(Me.DokumentFunktionenList) Me.pnlBerechtigungen.Location = New System.Drawing.Point(648, 200) Me.pnlBerechtigungen.Name = "pnlBerechtigungen" Me.pnlBerechtigungen.Size = New System.Drawing.Size(16, 152) Me.pnlBerechtigungen.TabIndex = 62 Me.pnlBerechtigungen.TabStop = False Me.pnlBerechtigungen.Text = "Berechtigungseinschränkung" Me.pnlBerechtigungen.Visible = False ' 'DokumentFunktionenList ' Me.DokumentFunktionenList.AlternatingRows = True Me.DokumentFunktionenList.ContextMenu = Me.ContextMenu6 Me.DokumentFunktionenList.GroupByCaption = "Drag a column header here to group by that column" Me.DokumentFunktionenList.Images.Add(CType(resources.GetObject("DokumentFunktionenList.Images"), System.Drawing.Image)) Me.DokumentFunktionenList.Location = New System.Drawing.Point(8, 16) Me.DokumentFunktionenList.Name = "DokumentFunktionenList" Me.DokumentFunktionenList.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.DokumentFunktionenList.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.DokumentFunktionenList.PreviewInfo.ZoomFactor = 75 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") ' '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(744, 200) Me.GroupBox9.Name = "GroupBox9" Me.GroupBox9.Size = New System.Drawing.Size(32, 152) Me.GroupBox9.TabIndex = 61 Me.GroupBox9.TabStop = False Me.GroupBox9.Text = "Schutz" Me.GroupBox9.Visible = False ' '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 = 18 ' 'Label18 ' Me.Label18.Location = New System.Drawing.Point(16, 48) Me.Label18.Name = "Label18" Me.Label18.Size = New System.Drawing.Size(64, 23) Me.Label18.TabIndex = 1 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 = 16 ' 'Label9 ' Me.Label9.Location = New System.Drawing.Point(16, 24) Me.Label9.Name = "Label9" Me.Label9.Size = New System.Drawing.Size(64, 23) Me.Label9.TabIndex = 0 Me.Label9.Text = "Gesperrt" ' 'GroupBox8 ' Me.GroupBox8.Controls.Add(Me.drpMiatarbeiter) Me.GroupBox8.Controls.Add(Me.Notizlist) Me.GroupBox8.Location = New System.Drawing.Point(704, 112) Me.GroupBox8.Name = "GroupBox8" Me.GroupBox8.Size = New System.Drawing.Size(40, 152) Me.GroupBox8.TabIndex = 60 Me.GroupBox8.TabStop = False Me.GroupBox8.Text = "Notizen" Me.GroupBox8.Visible = False ' '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(12, 36) Me.drpMiatarbeiter.Name = "drpMiatarbeiter" Me.drpMiatarbeiter.OddRowStyle = Style6 Me.drpMiatarbeiter.RecordSelectorStyle = Style7 Me.drpMiatarbeiter.RowDivider.Color = System.Drawing.Color.DarkGray Me.drpMiatarbeiter.RowDivider.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.[Single] Me.drpMiatarbeiter.RowSubDividerColor = System.Drawing.Color.DarkGray Me.drpMiatarbeiter.ScrollTips = False Me.drpMiatarbeiter.Size = New System.Drawing.Size(40, 80) Me.drpMiatarbeiter.Style = Style8 Me.drpMiatarbeiter.TabIndex = 4 Me.drpMiatarbeiter.Text = "C1TrueDBDropdown1" Me.drpMiatarbeiter.Visible = False Me.drpMiatarbeiter.PropBag = resources.GetString("drpMiatarbeiter.PropBag") ' 'Notizlist ' Me.Notizlist.AlternatingRows = True Me.Notizlist.ContextMenu = Me.ContextMenu1 Me.Notizlist.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 = 1 Me.Notizlist.Text = "C1TrueDBGrid1" Me.Notizlist.PropBag = resources.GetString("Notizlist.PropBag") ' 'frmDokumentbearbeitungED ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(802, 503) Me.ControlBox = False Me.Controls.Add(Me.LabelVIBeachten) Me.Controls.Add(Me.pnlBerechtigungen) Me.Controls.Add(Me.GroupBox9) Me.Controls.Add(Me.GroupBox8) Me.Controls.Add(Me.GroupBox7) Me.Controls.Add(Me.GroupBox6) Me.Controls.Add(Me.GroupBox5) Me.Controls.Add(Me.GroupBox4) Me.Controls.Add(Me.txtPartnerZusteller) Me.Controls.Add(Me.PicVIBeachten) Me.Controls.Add(Me.btntxtBemerkung) Me.Controls.Add(Me.Label11) Me.Controls.Add(Me.txtstatus) Me.Controls.Add(Me.Panel1) 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.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.cbsave) 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 = "frmDokumentbearbeitungED" Me.ShowInTaskbar = False Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Dokumentbearbeitung Einzeldokument" 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.GroupBox11.ResumeLayout(False) Me.GroupBox11.PerformLayout() 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) CType(Me.DateTimePicker2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PicVIBeachten, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox7.ResumeLayout(False) CType(Me.InfoMeldungList, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox6.ResumeLayout(False) CType(Me.ZuordnungList, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox5.ResumeLayout(False) CType(Me.ColdList, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox4.ResumeLayout(False) Me.GroupBox4.PerformLayout() CType(Me.C1DateEdit1, System.ComponentModel.ISupportInitialize).EndInit() 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() Me.ResumeLayout(False) Me.PerformLayout() End Sub #End Region #Region "Deklarationen" Dim txtBemerkungVerantwortlicher As String 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 VIBeachten As Boolean 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 #End Region Dim WithEvents mcbverantwortlich As New MultiComboBox() Dim WithEvents mcbunterschriftlinks As New MultiComboBox() Dim WithEvents mcbunterschriftrechts As New MultiComboBox() Dim WithEvents mcbpostzustellung As New MultiComboBox() Dim WithEvents mcbkube As New MultiComboBox() Dim WithEvents mcbstatus As New MultiComboBox() Dim WithEvents mcbzust As New MultiComboBox() Dim WithEvents mcbteam As New MultiComboBox() Dim moeglichestati As DataTable Dim funktionsliste As String Dim selectedstatus As Integer Dim ErsetzenMoeglich As Boolean = False Dim progress As New frmProgress() Dim check_existing_address As Boolean = False #Region "FormLoad" Public Sub New() MyBase.New() ' Dieser Aufruf ist für den Windows Form-Designer erforderlich. InitializeComponent() ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen End Sub Private Sub frmDokumentbearbeitung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.On_Load = True w.save_stv = Globals.stv Me.TabControl2.Enabled = True If Me.CreateDocument Then progress.Bar1a.Value = 10 progress.Info.Text = "Vorbereitung Dokumenterstellung" progress.Refresh() progress.Show() progress.Refresh() Formular_Laden_Create_Document() progress.Bar1a.Value = 90 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.Dokumenttypnrnr = Me.Dokumenttypnr f.Partner_Suche(Me.Partnernr) Me.txtPartnerInhaber.Text = Str(f.PartnerNr) + " " + f.PartnerKurzbezeichnnung Me.txtPartnerInhaberNr.Text = f.PartnerNr Me.txtPartnerZusteller.Text = Me.get_partnerzusteller(f.PartnerNr) Me.VIBeachten = f.VIBeachten f.Dispose() 'edex Banklagernd Banklagernd_Check() Else 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 Me.cbmoeglicheStati.Visible = False Me.cbsave.Visible = False 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() Me.cbmoeglicheStati.Visible = True Me.cbsave.Visible = True End If Me.cdokumentwerteanzeigen.Visible = False 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() Me.Visible = True 'Anzeige der Hinweismeldung, dass es sich um ein Einzeldokument handelt If MyMsg.Show_HinweisMessage(Me.Profilnr, 3, 96, 1) = False Then Exit Sub 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 dt.Dispose() Try Select Case i Case 1 Dim f As New frmBanklagerndverarbeitung(Me.Partnernr, True, True) 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 f.rbeinzelbldossier.Checked = False f.rbeinzelbldossier.Enabled = False f.RBEinzelPersoenlich.Checked = True Else f.rbeinzelbldossier.Checked = True f.rbeinzelbldossier.Enabled = True End If f.ShowDialog() If f.rbeinzelbldossier.Checked Then Me.txtZustelladresse.Text = "" Me.txtZustelladresse.Enabled = False Me.Button2.Enabled = False Me.check_existing_address = False End If If f.rbeinzelblversand.Checked Then Me.txtZustelladresse.Text = "" Me.txtZustelladresse.Enabled = True Me.Button2.Enabled = True Me.check_existing_address = True End If If f.RBEinzelPersoenlich.Checked = True Then Me.txtZustelladresse.Text = DivFnkt.get_parnter_namevorname(Me.Partnernr) + vbCrLf + "persönlich ausgehändigt" Me.txtZustelladresse.Enabled = False Me.Button2.Enabled = False Me.check_existing_address = False End If Case 2 Dim f As New frmBanklagerndverarbeitung(Me.Partnernr, True, True) Dim p As New edokadb.clsPartner() f.rbeinzelblversand.Enabled = False p.cpMainConnectionProvider = conn p.iNRPAR00 = New SqlInt32(CType(Trim(Me.txtPartnerInhaberNr.Text), Int32)) p.SelectOne() If p.bSaldiert.Value = True Then f.rbeinzelbldossier.Checked = False f.rbeinzelbldossier.Enabled = False f.RBEinzelPersoenlich.Checked = True Else f.rbeinzelbldossier.Checked = True f.rbeinzelbldossier.Enabled = True End If f.ShowDialog() If f.rbeinzelbldossier.Checked Then Me.txtZustelladresse.Text = "" Me.txtZustelladresse.Enabled = False Me.Button2.Enabled = False Me.check_existing_address = False End If If f.rbeinzelblversand.Checked Then Me.txtZustelladresse.Text = "" Me.txtZustelladresse.Enabled = True Me.Button2.Enabled = True Me.check_existing_address = True End If If f.RBEinzelPersoenlich.Checked = True Then Me.txtZustelladresse.Text = DivFnkt.get_parnter_namevorname(Me.Partnernr) + vbCrLf + "persönlich ausgehändigt" Me.txtZustelladresse.Enabled = False Me.Button2.Enabled = False Me.check_existing_address = False End If End Select If i > 0 Then End If Catch Finally Try Globals.conn.CloseConnection(True) Catch End Try End Try End Sub Private Sub settooltip() Dim ttip As New ToolTip() ttip.SetToolTip(Me.cbmoeglicheStati, Globals.MyTxt.gettext(22000)) ttip.SetToolTip(Me.btnPartnerInhaber, Globals.MyTxt.gettext(22001)) ttip.SetToolTip(Me.Button1, Globals.MyTxt.gettext(22002)) ttip.SetToolTip(Me.btntxtBemerkung, MyTxt.gettext(22007)) 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 w.save_verantwortlicher = 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) 'Release 4.0 KC 01.06.2007 XMl Daten berücksichtigen (DokumentBearbeitung.edka) Dim objDokumentWert As AvaloqDokumentWert For i = 0 To dtToReturn.Rows.Count - 1 objDokumentWert = objAvaloqDokumentWerte.getAvaloqDokumentWertByName(dtToReturn.Rows(i).Item(0)) If objDokumentWert Is Nothing = False Then dtToReturn.Rows(i).Item(2) = objDokumentWert.value 'dtToReturn.Rows(i).Item(5) = objDokumentWert.dataType End If Next 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 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() Me.SqlConnection1.ConnectionString = Globals.sConnectionString Dim doktyp As New edokadb.clsDokumenttyp() doktyp.cpMainConnectionProvider = conn doktyp.iDokumenttypnr = New SqlInt32(CType(Me.Dokumenttypnr, Int32)) doktyp.SelectOne() If doktyp.bFunktionen_zuweisen.Value = True Then Dokumentfunktionen_Aktivieren() Else w.Save_DokumentFunktionen = Generic_Select(6) Me.pnlBerechtigungen.Visible = False End If 'Dokumenttyp-Daten If 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 progress.Bar1a.Value = 20 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.DokWertList.RowCount - 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" Me.mcbstatus.Fill_Data(Generic_Select(2), False) Me.mcbkube = New MultiComboBox(Me.cbKube) Me.mcbkube.CheckNullValue = True Me.mcbkube.NullValueMessage = MyTxt.gettext(18) Me.mcbkube.DisplayColumnName = "name" Me.mcbkube.ValueColumnName = "mitarbeiternr" Me.mcbkube.Fill_Data(Generic_Select(8), False) progress.Bar1a.Value = 30 progress.Refresh() '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 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 progress.Bar1a.Value = 40 progress.Refresh() 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 Me.mcbverantwortlich = New MultiComboBox(cbVerantwortlich) Me.mcbverantwortlich.DisplayColumnName = "mitarbeiter" Me.mcbverantwortlich.ValueColumnName = "mitarbeiternr" FillMcbVerantwortlich() Me.rbZustaendigKube.Checked = False Me.RBZustaendigZustaendiger.Checked = True Me.txtZustelladresse.Text = "" If doktyp.bUnterschrift_links.Value = False Then Me.mcbunterschriftlinks.Enabled = False If doktyp.bUnterschrift_rechts.Value = False Then Me.mcbunterschriftrechts.Enabled = False If doktyp.bUnterschrift_links.Value = True Then Me.mcbunterschriftlinks.Enabled = True If doktyp.bUnterschrift_rechts.Value = True Then Me.mcbunterschriftrechts.Enabled = True progress.Bar1a.Value = 50 progress.Refresh() 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") progress.Bar1a.Value = 60 progress.Refresh() '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 progress.Bar1a.Value = 70 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 progress.Bar1a.Value = 80 progress.Refresh() Me.mcbstatus.SelectedIndex = 0 Me.savestatus = Me.mcbstatus.SelectedValue Me.firststatus = Me.savestatus Me.saveverantwortlicher = Globals.MitarbeiterNr Me.moeglichestati = Generic_Select(15) Me.cbmoeglicheStati.Items.Clear() Me.funktionsliste = "" ' Dim i As Integer settooltip() For i = 0 To Me.moeglichestati.Rows.Count - 1 Me.cbmoeglicheStati.Items.Add(Me.moeglichestati.Rows(i).Item("bezeichnung")) Next Me.btnPartnerInhaber.Enabled = True '20080402: RGL: setzt standardwerte von automatisiert von avaloq her chond SetDefaultValues() End Sub Private Sub SetDefaultValues() 'Try ' Me.Partnerwechsel = True ' 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.frmDokumentBearbeitungED.SetDefaultValues()", ex.Message & ex.StackTrace, TraceLevel.Error) ' Throw ex 'End Try End Sub Public Sub DoNoEdit() Me.On_Load = True w.save_stv = Globals.stv Me.TabControl2.Enabled = True If Me.CreateDocument Then progress.Bar1a.Value = 10 progress.Info.Text = "Vorbereitung Dokumenterstellung" progress.Refresh() progress.Show() progress.Refresh() Formular_Laden_Create_Document() progress.Bar1a.Value = 90 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.Dokumenttypnrnr = Me.Dokumenttypnr f.Partner_Suche(Me.Partnernr) Me.txtPartnerInhaber.Text = Str(f.PartnerNr) + " " + f.PartnerKurzbezeichnnung Me.txtPartnerInhaberNr.Text = f.PartnerNr Me.txtPartnerZusteller.Text = Me.get_partnerzusteller(f.PartnerNr) Me.VIBeachten = f.VIBeachten f.Dispose() 'edex Banklagernd Banklagernd_Check() Else 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 Me.cbmoeglicheStati.Visible = False Me.cbsave.Visible = False 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() Me.cbmoeglicheStati.Visible = True Me.cbsave.Visible = True End If Me.cdokumentwerteanzeigen.Visible = False 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() 'Me.Visible = True 'Anzeige der Hinweismeldung, dass es sich um ein Einzeldokument handelt If MyMsg.Show_HinweisMessage(Me.Profilnr, 3, 96, 1) = False Then Exit Sub End If 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 If Me.check_existing_address = True And Trim(Me.txtZustelladresse.Text) = "" Then MyMsg.show_standardmessage(610, MsgBoxStyle.Critical) Exit Sub End If Try 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() Catch End Try Dim xdata As DataTable Dim s As String 'SHU ' Meldung wird bei Formularaufbau angezeigt 'If MyMsg.Show_HinweisMessage(Me.Profilnr, 3, 96, 1) = False Then ' Exit Sub 'End If If Me.txtPartnerInhaber.Text = "" Then Me.txtPartnerInhaber.Text = "1" Me.txtPartnerInhaberNr.Text = "1" 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 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.Dokumenttypnrnr = Me.Dokumenttypnr f.profilnr = Me.Profilnr f.NurAbfrage = False f.ShowDialog() If f.PartnerNr <> 0 Then If DivFnkt.Ist_Berechtigt(Me.Dokumenttypnr, Globals.MitarbeiterNr, f.PartnerNr, "", 2, 0, 0, 0) Then If Me.txtPartnerInhaber.Text <> "" And Me.txtPartnerInhaber.Text <> Str(f.PartnerNr) + " " + f.PartnerKurzbezeichnnung Then MyMsg.show_standardmessage(73, MsgBoxStyle.Information) End If Me.txtPartnerInhaber.Text = Str(f.PartnerNr) + " " + f.PartnerKurzbezeichnnung Me.txtPartnerInhaberNr.Text = f.PartnerNr Me.txtPartnerZusteller.Text = Me.get_partnerzusteller(f.PartnerNr) Me.TabControl2.Enabled = True Me.RBZustaendigZustaendiger.Checked = True Me.mcbkube.DataSource = Nothing Me.mcbkube.Text = "" Me.mcbkube.Items.Clear() Me.Partnernr = f.PartnerNr Me.VIBeachten = f.VIBeachten FillMcbVerantwortlich() 'EDEX Banklagernd Banklagernd_Check() Else MyMsg.show_standardmessage(30, MsgBoxStyle.Critical) Me.Close() 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 If 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 Datumselect_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Set_Feldwert() End Sub Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click If Me.CreateDocument = False Then DivFnkt.Status_Dokumentbearbeitung(2, Me.DokumentID, False, "") If Globals.Dokumentcoldindex_Changed Then Archivfnkt.Restore_Coldindex(Globals.general_ds.Tables(0), Me.DokumentID) If Globals.dokumentid_changed Then Archivfnkt.change_dokumentid(DokumentID, Globals.Dokumentidalt) Else Update_Bclabel(2) End If Me.Close() End Sub #End Region #Region "Datenhandling" Private Function Generic_Select(ByVal typ As Integer) As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() Select Case typ Case 1 scmCmdToExecute.CommandText = "dbo.SP_Dokumentbearbeitung_DokWertList" Case 2 scmCmdToExecute.CommandText = "SP_Dokumentbearbeitung_StatusSelektion" Case 3 scmCmdToExecute.CommandText = "SP_Dokumentbearbeitung_Mitarbeiter" Case 4 scmCmdToExecute.CommandText = "SP_Dokumentbearbeitung_Notizen" Case 5 scmCmdToExecute.CommandText = "sp_funktion_zuweisung_gestattet" Case 6 scmCmdToExecute.CommandText = "sp_dokumentfunktion_zugewiesen" Case 7 scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_team" Case 8 scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_kube" Case 9 scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_coldindex" Case 10 scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_dokumentwerte_select" Case 11 scmCmdToExecute.CommandText = "sp_dokument_als_bcdokument" Case 12 scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_statushistory" Case 13 scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_ist_kundenberater" Case 14 scmCmdToExecute.CommandText = "sp_archiv_getschema_doc" Case 15 scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_statuswechsel" Case 16 scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_statuswechsel_funktionen" Case 17 'Mitarbeiter scmCmdToExecute.CommandText = "dbo.SP_ValueSelect" Case Else End Select scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.Connection = conn.scoDBConnection Try Select Case typ Case 1 scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtPartnerInhaberNr.Text)) scmCmdToExecute.Parameters.Add(New SqlParameter("@regel", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokWertList.Columns("datenherkunft").Value)) Case 2 scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumenttypnr)) If Me.DokumentID = Nothing Then Me.DokumentID = "" scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID)) If Me.CreateDocument = True Then scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1)) Else scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 2)) End If scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) If Globals.bckdokument = False Then scmCmdToExecute.Parameters.Add(New SqlParameter("@bck", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) Else scmCmdToExecute.Parameters.Add(New SqlParameter("@bck", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1)) End If Case 5 scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) Case 6 scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.NewDokumentID)) Case 7 If Me.teamzustaendig = Globals.MitarbeiterNr Then scmCmdToExecute.Parameters.Add(New SqlParameter("@profilnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Profilnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) Else scmCmdToExecute.Parameters.Add(New SqlParameter("@profilnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.teamzustaendig)) End If Case 8 scmCmdToExecute.Parameters.Add(New SqlParameter("@partnernr", SqlDbType.VarChar, 20, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtPartnerInhaberNr.Text)) Case 9 scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID)) Case 10 scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID)) Case 11 scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID)) Case 12 scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID)) Case 13 scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "")) scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtPartnerInhaberNr.Text)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) Case 14 scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumenttypnr)) Case 15 scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID)) scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1)) scmCmdToExecute.Parameters.Add(New SqlParameter("@currentstatus", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) Case 16 scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID)) scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.Parameters.Add(New SqlParameter("@currentstatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.selectedstatus)) Case 17 'Mitarbeiter scmCmdToExecute.Parameters.Add(New SqlParameter("@Datenherkunft", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "&AlleMitarbeiter&")) Case Else End Select If typ = 1 Then End If sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function Private Sub load_Mitarbeiter() conn.OpenConnection() Dim t As DataTable t = Generic_Select(17) Me.drpMiatarbeiter.DataSource = t Me.drpMiatarbeiter.ListField = "FullName" Me.drpMiatarbeiter.DataField = "mitarbeiternr" Me.drpMiatarbeiter.ValueTranslate = True Me.Notizlist.Columns("mutierer").DropDown = Me.drpMiatarbeiter conn.CloseConnection(True) End Sub #End Region #Region "Notizen" Private Sub Notizlist_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) 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 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 System.Object, ByVal e As System.EventArgs) MnuEditNotiz_Click(sender, e) End Sub Private Sub Notizlist_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Notizlist.MouseDown Me.Notizlist.Bookmark = Me.Notizlist.RowContaining(e.Y) End Sub #End Region #Region "Dokumentwertliste" Private Sub MnuValueSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuValueSelect.Click, DokWertList.DoubleClick Me.Cursor = System.Windows.Forms.Cursors.WaitCursor Dim s As String Select Case UCase(Me.DokWertList.Columns("feldtyp").Value) Case "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.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 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 If Me.check_existing_address = True And Trim(Me.txtZustelladresse.Text) = "" Then MyMsg.show_standardmessage(610, MsgBoxStyle.Critical) Exit Sub End If Try 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() Catch End Try Dim xdata As DataTable Dim s As String 'SHU ' Meldung wird bei Formularaufbau angezeigt 'If MyMsg.Show_HinweisMessage(Me.Profilnr, 3, 96, 1) = False Then ' Exit Sub 'End If If Me.txtPartnerInhaber.Text = "" Then Me.txtPartnerInhaber.Text = "9999999" Me.txtPartnerInhaberNr.Text = "9999999" 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) 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 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) Try Globals.PerfMon.insert_entry("Start Dokumenterstellung/Bearbeitung") 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 w.txtBemerkung_Verantwortlicher = Me.txtBemerkungVerantwortlicher 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 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)) 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.iAnzeigeStatus = New SqlInt32(CType(0, Int32)) 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 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 If Me.CreateDocument Then doc.iDokdurchkubeweitergegeben = New SqlInt32(CType(0, Int32)) If Not doc.iDokdurchkubeweitergegeben.Value = 1 Then Dim tx As DataTable tx = Generic_Select(13) If tx.Rows(0).Item(0) = 1 Then doc.iDokdurchkubeweitergegeben = New SqlInt32(CType(1, Int32)) Else doc.iDokdurchkubeweitergegeben = New SqlInt32(CType(0, Int32)) End If tx.Dispose() End If Dim s As String s = DivFnkt.Get_Filename(doc.sDokumentname.Value, Me.txtPartnerInhaberNr.Text) conn.OpenConnection() If Me.CreateDocument Then Dim t As DataTable t = Generic_Select(14) doc.sColdfolder = New SqlString(CType(t.Rows(0).Item(0), String)) doc.sColdschema = New SqlString(CType(t.Rows(0).Item(1), String)) doc.Insert() t.Dispose() Dim statush As New Statushandling() statush.Status_Erstellen(doc.sDokumentid.Value, False) statush.Dispose() doc.iStatusnr = New SqlInt32(CType(get_current_Status(doc.sDokumentid.Value), Int32)) doc.Update() Else doc.Update() End If conn.CloseConnection(True) DokumentID = doc.sDokumentid.Value If Globals.bckdokument = True Then Cold_Index_Bearbeiten(2) Else Cold_Index_Bearbeiten(1) If Me.zu_retournieren Then Cold_Index_Bearbeiten(2) End If End If Globals.PerfMon.insert_entry("'-- Begin Dokumentdaten sichern") DokumentID = doc.sDokumentid.Value Dokumentwerte_Sichern() Notizen_Sichern() Dokumentzuordnungen_Sichern() Dokumentersetzen_Sichern() Dokumentinfomeldungen_Sichern() Dokumentfunktionen_sichern() Status_History(doc.iStatusnr.Value) Globals.PerfMon.insert_entry("'-- Ende Dokumentdaten sichern") If Me.BarcodeID = "" And Me.Dokumentinfobearbeiten = False Then w.ProgressBar.Show() w.ProgressBar.Info.Text = "Dokumentwerte zusammenstellen" w.ProgressBar.Bar1a.Value = 10 End If Globals.PerfMon.insert_entry("'-- Begin Dokumentwerte zusammenstellen") Dim xdata As DataTable xdata = Dokumentwerte(doc.sDokumentid.Value) Globals.PerfMon.insert_entry("'--Ende Dokumentwerte zusammenstellen") DokumentID = doc.sDokumentid.Value 'Dokument erstellen bzw. öffnen w.DokumentID = doc.sDokumentid.Value w.DokumentName = doc.sDokumentname.Value If Me.CreateDocument Then w.CreateDoc = True If Me.BarcodeID = "" Then If w.Create_Dokument_Before_Fill(doc.iDokumenttypnr.Value, xdata, s) = False Then w.ProgressBar.Visible = False w.Restore(1) Me.Cursor = Cursors.Default Me.btnWeiter.Enabled = True DivFnkt.Status_Dokumentbearbeitung(2, Me.DokumentID, False, "") Exit Sub End If End If ' If Me.BarcodeID = "" Then w.Create_Dokument_Before_Fill(doc.iDokumenttypnr.Value, xdata, s) ' If docvor.bIdv_nativ.Value = True Then ' End If ' xdata.Dispose() ' doc.Dispose() ' Exit Sub Else If Me.BarcodeID = "" And Me.Dokumentinfobearbeiten = False Then w.CreateDoc = False Dim docrestore As New DocMgmt() docrestore.Get_From_DB(DokumentID, s) w.Open_Document(s, xdata, doc.iDokumenttypnr.Value) End If End If Me.Hide() If Globals.Dokumentcoldindex_Changed Then w.dokumentidalt = Globals.Dokumentidalt w.save_dokumentcoldindex = Globals.general_ds.Tables(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 Globals.PerfMon.insert_entry("'-- Begin Dokumentwerte anzeigen") Dim f As New frmDokumentwerte() f.WordData = xdata f.isOk = True Me.Cursor = System.Windows.Forms.Cursors.Default f.ShowDialog() Globals.PerfMon.insert_entry("'-- Ende Dokumentwerte anzeigen") If f.isOk = 0 Then f.Dispose() w.CloseDoc() w.ProgressBar.Close() 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) Globals.PerfMon.insert_entry(Me.DokumentID + " Start Dokumentbearbeitung") If Me.CreateDocument Then DivFnkt.Status_Dokumentbearbeitung(1, Me.DokumentID, True, w.DokumentName) End If 'Rel 4.03 - Sofern das Dokument bereits in der Words-Auflistung vorhanden ist, dieses löschen Try Words.Remove(w.DokumentName) Catch ex As Exception End Try Words.Add(w, w.DokumentName) 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 w.Dokument_Vervollstaendigen(xdata) Globals.PerfMon.insert_entry(Me.DokumentID + " Start Dokumentbearbeitung") End If xdata.Dispose() doc.Dispose() Globals.PerfMon.insert_entry(Me.DokumentID + " Ende Dokumenterstellung") Try w.ProgressBar.Close() w.ProgressBar.Dispose() Catch End Try Catch ex As Exception w.Close_And_Destroy() Dim s As String Globals.In_Bearbeitung = False DivFnkt.Status_Dokumentbearbeitung(2, Me.DokumentID, True, w.DokumentName) s = Globals.MyTxt.gettext(98) s = s + vbCrLf + vbCrLf + ex.Message MsgBox(s, MsgBoxStyle.Critical) PerfMon.force_insert_entry("Dok (E): " + ex.Message + "-" + " " + Me.Dokumenttypnr.ToString + " " + Me.txtBezeichnung.Text + " " + Me.txtPartnerInhaber.Text + ": ") PerfMon.force_insert_entry("Dok (E): Wordlib Errormessage: " + w.Errormessage) w.ProgressBar.Visible = False Me.Cursor = Cursors.Default If Me.CreateDocument Then w.Restore(1) Else w.Restore(2) DivFnkt.Status_Dokumentbearbeitung(2, Me.DokumentID, False, "") Try w.Try_Show_Office_Object() Catch ex1 As Exception End Try Me.Cursor = Cursors.Default Me.btnWeiter.Enabled = True Me.Visible = True Try conn.CloseConnection(True) Catch End Try End Try End Sub Private Function get_current_Status(ByVal dokumentid As String) As Long Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.SP_Dokumentbearbeitung_current_status" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@statustext", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.mcbstatus.Text)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@currentstatus", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) sdaAdapter.Fill(dtToReturn) get_current_Status = scmCmdToExecute.Parameters.Item("@currentstatus").Value Return get_current_Status Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function Private Sub Update_Bclabel(ByVal typ As Integer) If Me.BarcodeID = "" Then Exit Sub Dim bc As New edokadb.clsBarcodeetikette() bc.cpMainConnectionProvider = conn bc.iBarcodenr = New SqlInt32(CType(Me.BarcodeID, Int32)) bc.SelectOne() conn.OpenConnection() If typ = 2 And Me.CreateDocument = True Then bc.sDokumentid = New SqlString(CType("", String)) Else bc.sDokumentid = New SqlString(CType(Me.DokumentID, String)) End If bc.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32)) bc.daMutiert_am = New SqlDateTime(CType(Now, DateTime)) bc.Update() conn.CloseConnection(True) End Sub Public Sub Cold_Index_Bearbeiten(ByVal indextyp As Integer) Dim xdata As DataTable Dim cdata As DataTable cdata = COLD_Index_Sichern(indextyp) xdata = Me.DataSet1.Tables(0) For i = 0 To xdata.Rows.Count - 1 If xdata.Rows(i).Item("cold_indexfeld") Is System.DBNull.Value Then Else If xdata.Rows(i).Item("cold_indexfeld") > 0 Then Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.SP_Dokument_Cold_Index_Update" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection scmCmdToExecute.Connection.Open() Try scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentID)) scmCmdToExecute.Parameters.Add(New SqlParameter("@coldfeldnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, xdata.Rows(i).Item("cold_indexfeld"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@value", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, xdata.Rows(i).Item("feldwert"))) scmCmdToExecute.ExecuteNonQuery() Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("Dokument_Cold_Index_Update::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Connection.Close() scmCmdToExecute.Dispose() End Try End If End If Next cdata.Dispose() xdata.Dispose() End Sub Public Function COLD_Index_Sichern(ByVal indextyp As Integer) As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.SP_Dokument_Cold_Index" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentID)) scmCmdToExecute.Parameters.Add(New SqlParameter("@indextyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, indextyp)) sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function Public Sub Dokumentwerte_Sichern() Dim xdata As DataTable xdata = Me.DataSet1.Tables(0) For i = 0 To xdata.Rows.Count - 1 If xdata.Rows(i).Item("cold_indexfeld") Is System.DBNull.Value Then xdata.Rows(i).Item("cold_indexfeld") = 0 If xdata.Rows(i).Item("cold_indexfeld") = 0 Then Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.SP_Dokument_Information_Wert" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection scmCmdToExecute.Connection.Open() Try scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentID)) scmCmdToExecute.Parameters.Add(New SqlParameter("@vorlagenfeldnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, xdata.Rows(i).Item("vorlagenfeldnr"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@value", SqlDbType.VarChar, 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 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.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 Dim doc As New edokadb.clsDokument() Dim Dokument As String Dim FileReader As New DocMgmt() doc.cpMainConnectionProvider = conn doc.sDokumentid = New SqlString(CType(Me.ZuordnungList.Columns(1).Value, String)) doc.SelectOne() Dokument = DivFnkt.Get_Filename(doc.sDokumentname.Value, "") FileReader.Get_From_DB(doc.sDokumentid.Value, Dokument) doc.Dispose() FileReader = Nothing Dim w As New WordLib() w.ShowDoc(Dokument) w = Nothing End Sub Private Sub MnuDokzuordnungDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuDokzuordnungDelete.Click Me.ZuordnungList.Columns("aktiv").Value = False Me.ZuordnungList.Refresh() Me.TabControl2.Select() Me.ZuordnungList.Select() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Dokumentzuordnungen_Sichern() End Sub Private Sub mnuInfoEmpfaengerAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuInfoEmpfaengerAdd.Click Dim f As New frmInformationsEmpfaenger() f.Dokumenttypnr = Me.Dokumenttypnr If Me.CreateDocument = True Then f.fromDokumenttyp = True Else f.fromDokumenttyp = False f.dokumentid = Me.DokumentID End If f.ShowDialog() If f.DialogResult = DialogResult.OK Then Dim rc As DataRowCollection Dim newrow As DataRow rc = Me.DokumentInfoMeldungen.Rows Dim rowvals(9) As Object rowvals(0) = 0 rowvals(1) = 0 rowvals(2) = f.Empfaenger rowvals(3) = f.Empaengertext rowvals(4) = f.Meldungsnr rowvals(5) = f.Meldung If Len(f.Bemerkung) > 0 Then f.Bemerkung = f.Bemerkung + vbCrLf + "----------------------" + vbCrLf + vbCrLf rowvals(6) = f.Bemerkung rowvals(7) = f.Statusnr rowvals(8) = f.Statustext rowvals(9) = 1 newrow = rc.Add(rowvals) Me.InfoMeldungList.Refresh() f.Dispose() End If End Sub Private Sub mnuInfoEmpfaengerDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuInfoEmpfaengerDelete.Click Try Me.InfoMeldungList.Columns(9).Value = False Me.InfoMeldungList.Refresh() Me.TabControl2.Select() Me.InfoMeldungList.Select() Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub cvertraulich_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Try FillMcbVerantwortlich() Me.mcbverantwortlich.Focus() Me.mcbkube.SelectAll() Catch End Try End Sub Private Function FillMcbVerantwortlich() Dim dd As New DataTable() Dim I As Integer Dim s As String s = "" Try For I = 0 To Me.DokumentFunktionen.Rows.Count - 1 If Me.DokumentFunktionen.Rows(I).Item("aktiv") = 1 Then If s <> "" Then s = s + ";" s = s + Microsoft.VisualBasic.LTrim(Str(Me.DokumentFunktionen.Rows(I).Item("funktionsgruppenr"))) End If Next Catch End Try Try I = Me.mcbverantwortlich.SelectedValue If I = 0 Then I = Globals.MitarbeiterNr Me.mcbverantwortlich.DataSource = Nothing Me.mcbverantwortlich.Items.Clear() If Me.cvertraulich.Checked = True Then dd = DivFnkt.Berechtigte_Mitarbeiter(Me.Dokumenttypnr, 0, Me.Partnernr, "", 3, 0, 0, 1, s) Else dd = DivFnkt.Berechtigte_Mitarbeiter(Me.Dokumenttypnr, 0, Me.Partnernr, "", 3, 0, 0, 0, s) End If Me.mcbverantwortlich.Fill_Data(dd, False) Me.mcbverantwortlich.SelectedValue = I If Me.mcbverantwortlich.Items.Count = 0 Then Me.mcbverantwortlich.Text = "" Me.mcbverantwortlich.CheckNullValue = False Else Me.mcbverantwortlich.CheckNullValue = True End If Catch Finally dd.Clear() dd.Dispose() End Try End Function Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click Dim i As Integer Dim s As String s = "" Try For i = 0 To Me.DokumentFunktionen.Rows.Count - 1 If Me.DokumentFunktionen.Rows(i).Item("aktiv") = 1 Then If s <> "" Then s = s + ";" s = s + Microsoft.VisualBasic.LTrim(Str(Me.DokumentFunktionen.Rows(i).Item("funktionsgruppenr"))) End If Next Catch End Try Me.Cursor = System.Windows.Forms.Cursors.WaitCursor Dim f As New frmBerechtigungen() If Me.cvertraulich.Checked Then f.Fill_Berechtigungen(Me.Dokumenttypnr, Me.Partnernr, 1, s) Else f.Fill_Berechtigungen(Me.Dokumenttypnr, Me.Partnernr, 0, s) End If Me.Cursor = System.Windows.Forms.Cursors.Default f.ShowDialog() f.Dispose() End Sub Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) MenuItem2_Click(sender, e) End Sub Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click Dim f As New frmDokumentberechtigung() f.Dokumenttyp = Me.Dokumenttypnr f.Partnernr = Me.Partnernr f.Vertraulich = Me.cvertraulich.Checked f.ShowDialog() If f.DialogResult = DialogResult.OK Then Dim rc As DataRowCollection Dim newrow As DataRow rc = DokumentFunktionen.Rows Dim rowvals(Me.DokumentFunktionenList.Columns.Count - 1) rowvals(0) = System.DBNull.Value rowvals(1) = f.Funktionsgruppebezeichnung rowvals(2) = f.Funktionsgruppenr rowvals(3) = f.Anzeigen rowvals(4) = f.Bearbeiten rowvals(5) = f.Loeschen rowvals(6) = f.Abschliessen rowvals(7) = True rowvals(8) = Now rowvals(9) = Globals.MitarbeiterNr newrow = rc.Add(rowvals) Me.DokumentFunktionenList.Refresh() For i = 0 To Me.DokumentFunktionenList.Splits(0).Rows.Count - 1 If Me.DokumentFunktionenList.Columns("bezeichnung").CellText(i) = f.Funktionsgruppebezeichnung Then Me.DokumentFunktionenList.Bookmark = i End If Next Me.FillMcbVerantwortlich() End If End Sub Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click Me.DokumentFunktionenList.Columns(7).Value = False Me.DokumentFunktionenList.Refresh() Me.Button3.Focus() Me.DokumentFunktionenList.Focus() Me.FillMcbVerantwortlich() End Sub Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click Globals.profilnr = Me.Profilnr Dim fx As New frmTrefferliste() fx.OnlySelect = True fx.txtnrpar00.Text = Me.txtPartnerInhaberNr.Text fx.Partner_Eingegeben = True ' fx.refresh_list() fx.ToolBar1.Visible = False fx.txtnrpar00.Visible = False fx.tvstruktur.ContextMenu = Nothing fx.Text = "Dokument für Dokumentzuordnung auswählen" fx.ImgCombo.Visible = False fx.btnPartnersuche.Visible = False fx.LblSearch.Visible = False fx.DokList.ContextMenu = fx.ContextMenu3 fx.SelectedDokumentid = "" fx.DoRefresh = True fx.ShowDialog() Try If fx.SelectedDokumentid <> "" Then If Check_Dokumentersetzen(Me.Dokumenttypnr, fx.SelectedDokumentid) Then Dim rc As DataRowCollection Dim newrow As DataRow rc = Dokumentersetzen.Rows Dim rowvals(Me.Dokumentersetzen.Columns.Count - 1) As Object rowvals(0) = System.DBNull.Value rowvals(1) = "" If Me.CreateDocument Then rowvals(1) = "" Else rowvals(1) = Me.DokumentID End If rowvals(2) = fx.SelectedDokumentid rowvals(3) = True rowvals(8) = fx.Dokumentbezeichnung rowvals(9) = fx.dokumentdatum newrow = rc.Add(rowvals) Me.ColdList.Refresh() End If End If Catch ex As Exception MsgBox(ex.Message) End Try fx.Dispose() End Sub Private Function Check_Dokumentersetzen(ByVal dokumenttypnr As Integer, ByVal dokumentid As String) As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim s As String Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.sp_dokumentbearbeitung_chcek_dokumentersetzen" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumenttypnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@errormessage", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, "")) sdaAdapter.Fill(dtToReturn) s = scmCmdToExecute.Parameters.Item("@errormessage").Value If s <> "" Then MyMsg.show_standardmessage(Val(s), MsgBoxStyle.Critical) Return False End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function Private Sub cbKube_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mcbkube.SelectedIndexChanged Try Me.teamzustaendig = Me.mcbkube.SelectedValue Catch End Try refresh_team() End Sub Private Sub cbzust_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mcbzust.SelectedIndexChanged Try Me.teamzustaendig = Me.mcbzust.SelectedValue refresh_team() Catch End Try End Sub Private Sub DokWertList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DokWertList.Click End Sub Private Sub InfoMeldungList_FetchRowStyle(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Try If Me.InfoMeldungList.Columns("typ").CellValue(e.Row) = 1 Then e.CellStyle.BackColor = System.Drawing.Color.CadetBlue End If Catch End Try End Sub Private Sub ContextMenu7_Popup(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextMenu7.Popup 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 'Private Function check_banklagernd() As Boolean ' Dim scmCmdToExecute As SqlCommand = New SqlCommand() ' Dim i As Integer ' Dim dtToReturn As DataTable = New DataTable() ' Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) ' scmCmdToExecute.CommandText = "dbo.sp_check_banklagernd" ' scmCmdToExecute.CommandType = CommandType.StoredProcedure ' scmCmdToExecute.Connection = conn.scoDBConnection ' Try ' scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtPartnerInhaberNr.Text)) ' scmCmdToExecute.Parameters.Add(New SqlParameter("@banklagernd", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) ' sdaAdapter.Fill(dtToReturn) ' i = scmCmdToExecute.Parameters.Item("@banklagernd").Value ' If i <> 0 Then ' check_banklagernd = True ' Else ' check_banklagernd = False ' End If ' Catch ex As Exception ' ' // some error occured. Bubble it to caller and encapsulate Exception object ' Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) ' Finally ' scmCmdToExecute.Dispose() ' sdaAdapter.Dispose() ' End Try 'End Function Private Sub txtZustelladresse_Leave(ByVal sender As 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.SelectedValue = Me.saveverantwortlicher 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) 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 Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim f As New FrmPartnersuche() f.Dokumenttypnrnr = Me.Dokumenttypnr f.ShowDialog() If f.PartnerNr <> 0 Then Me.txtZustelladresse.Text = f.zustelladresse Me.txtAnredeZusteller.Text = f.Anrede Me.txtZustelladresse.Focus() End If End Sub #Region "Properties" '20080402 RGL für Steuerung von "aussen" Spooler, NOVA 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 Private Sub frmDokumentbearbeitungED_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown progress.Close() progress.Dispose() End Sub End Class