Imports System.Data Imports System.Data.SqlTypes Imports System.Data.SqlClient Imports System.ComponentModel Imports UtilityLibrary.Win32 Public Class frmDokumentbearbeitung Inherits System.Windows.Forms.Form #Region " Vom Windows Form Designer generierter Code " ' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub ' Für Windows Form-Designer erforderlich Private components As System.ComponentModel.IContainer 'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich 'Sie kann mit dem Windows Form-Designer modifiziert werden. 'Verwenden Sie nicht den Code-Editor zur Bearbeitung. Friend WithEvents btnWeiter As System.Windows.Forms.Button Friend WithEvents btnCancel As System.Windows.Forms.Button Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection Friend WithEvents DataSet1 As System.Data.DataSet Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu Friend WithEvents MnuNeueNotiz As System.Windows.Forms.MenuItem Friend WithEvents MnuDeleteNotiz As System.Windows.Forms.MenuItem Friend WithEvents SqlDataAdapter2 As System.Data.SqlClient.SqlDataAdapter Friend WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlInsertCommand2 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlUpdateCommand2 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlDeleteCommand2 As System.Data.SqlClient.SqlCommand Friend WithEvents DataSet2 As System.Data.DataSet Friend WithEvents SqlDataAdapter3 As System.Data.SqlClient.SqlDataAdapter Friend WithEvents SqlSelectCommand3 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlInsertCommand3 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlUpdateCommand3 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlDeleteCommand3 As System.Data.SqlClient.SqlCommand Friend WithEvents DataSet3 As System.Data.DataSet Friend WithEvents DataSet4 As System.Data.DataSet Friend WithEvents TabControl2 As System.Windows.Forms.TabControl Friend WithEvents TabPage3 As System.Windows.Forms.TabPage Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox Friend WithEvents cbUnterschriftrechts As System.Windows.Forms.ComboBox Friend WithEvents cbUnterschriftlinks As System.Windows.Forms.ComboBox Friend WithEvents Label8 As System.Windows.Forms.Label Friend WithEvents Label7 As System.Windows.Forms.Label Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents RBZustaendigZustaendiger As System.Windows.Forms.RadioButton Friend WithEvents rbZustaendigKube As System.Windows.Forms.RadioButton Friend WithEvents cbzust As System.Windows.Forms.ComboBox Friend WithEvents cbKube As System.Windows.Forms.ComboBox Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker Friend WithEvents cbPostzustellung As System.Windows.Forms.ComboBox Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents TabPage4 As System.Windows.Forms.TabPage Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox Friend WithEvents Label20 As System.Windows.Forms.Label Friend WithEvents txtBemerkung As System.Windows.Forms.TextBox Friend WithEvents DateTimePicker3 As System.Windows.Forms.DateTimePicker Friend WithEvents Label10 As System.Windows.Forms.Label Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents TabPage5 As System.Windows.Forms.TabPage Friend WithEvents DokumentFunktionenList As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents GroupBox9 As System.Windows.Forms.GroupBox Friend WithEvents Label18 As System.Windows.Forms.Label Friend WithEvents cGesperrt As System.Windows.Forms.CheckBox Friend WithEvents Label9 As System.Windows.Forms.Label Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox Friend WithEvents Notizlist As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents cbVerantwortlich As System.Windows.Forms.ComboBox Friend WithEvents Label17 As System.Windows.Forms.Label Friend WithEvents Label16 As System.Windows.Forms.Label Friend WithEvents cbdokumentstatus As System.Windows.Forms.ComboBox Friend WithEvents txtPartnerInhaberNr As System.Windows.Forms.TextBox Friend WithEvents txtBezeichnung As System.Windows.Forms.TextBox Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents btnPartnerInhaber As System.Windows.Forms.Button Friend WithEvents txtPartnerZusteller As System.Windows.Forms.TextBox Friend WithEvents txtPartnerInhaber As System.Windows.Forms.TextBox Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents pnlBerechtigungen As System.Windows.Forms.GroupBox Friend WithEvents GroupBox10 As System.Windows.Forms.GroupBox Friend WithEvents DokWertList As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents cdokumentwerteanzeigen As System.Windows.Forms.CheckBox Friend WithEvents ContextMenu2 As System.Windows.Forms.ContextMenu Friend WithEvents MnuValueSelect As System.Windows.Forms.MenuItem Friend WithEvents ColdList As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents ZuordnungList As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents InfoMeldungList As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents MnuEditNotiz As System.Windows.Forms.MenuItem Friend WithEvents cvertraulich As System.Windows.Forms.CheckBox Friend WithEvents TabPage1 As System.Windows.Forms.TabPage Friend WithEvents GroupBox11 As System.Windows.Forms.GroupBox Friend WithEvents txtZustelladresse As System.Windows.Forms.TextBox Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents GroupBox12 As System.Windows.Forms.GroupBox Friend WithEvents cbteam As System.Windows.Forms.ComboBox Friend WithEvents Label13 As System.Windows.Forms.Label Friend WithEvents txtAnredeZusteller As System.Windows.Forms.TextBox Friend WithEvents ContextMenu3 As System.Windows.Forms.ContextMenu Friend WithEvents MnuDokZuordnungAdd As System.Windows.Forms.MenuItem Friend WithEvents MnuDokzuordnungDelete As System.Windows.Forms.MenuItem Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem Friend WithEvents MnuShowDoc As System.Windows.Forms.MenuItem Friend WithEvents ContextMenu4 As System.Windows.Forms.ContextMenu Friend WithEvents mnuInfoEmpfaengerAdd As System.Windows.Forms.MenuItem Friend WithEvents mnuInfoEmpfaengerDelete As System.Windows.Forms.MenuItem Friend WithEvents DateTimePicker2 As C1.Win.C1Input.C1DateEdit Friend WithEvents ContextMenu5 As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem Friend WithEvents Button3 As System.Windows.Forms.Button Friend WithEvents ContextMenu6 As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem Friend WithEvents ContextMenu7 As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem Friend WithEvents 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 TabPage7 As System.Windows.Forms.TabPage Friend WithEvents TabControl1 As System.Windows.Forms.TabControl Friend WithEvents TabPage8 As System.Windows.Forms.TabPage Friend WithEvents TabPage9 As System.Windows.Forms.TabPage Friend WithEvents TabPage10 As System.Windows.Forms.TabPage Friend WithEvents GroupBox17 As System.Windows.Forms.GroupBox Friend WithEvents GroupBox14 As System.Windows.Forms.GroupBox Friend WithEvents GroupBox15 As System.Windows.Forms.GroupBox Friend WithEvents GroupBox13 As System.Windows.Forms.GroupBox Friend WithEvents GroupBox19 As System.Windows.Forms.GroupBox Friend WithEvents GroupBox18 As System.Windows.Forms.GroupBox Friend WithEvents cVertraulichBR As System.Windows.Forms.CheckBox Friend WithEvents Label18BR As System.Windows.Forms.Label Friend WithEvents Label15 As System.Windows.Forms.Label Friend WithEvents pnlBerechtigungenBR As System.Windows.Forms.GroupBox Friend WithEvents Dataset1BR As System.Data.DataSet Friend WithEvents DokWertListBR As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents InFoMeldungListBR As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents ZuordnunglistBR As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents DokumentFunktionenListBR As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents Notizlistbr As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents coldlistbr As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents cGesperrtBR As System.Windows.Forms.CheckBox Friend WithEvents ContextMenu9 As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem Friend WithEvents ContextMenu8 As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem Friend WithEvents ContextMenu10 As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem11 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem12 As System.Windows.Forms.MenuItem Friend WithEvents ContextMenu11 As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem13 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem14 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem15 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem16 As System.Windows.Forms.MenuItem Friend WithEvents ContextMenu12 As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem17 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem18 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem19 As System.Windows.Forms.MenuItem Friend WithEvents Button3Br As System.Windows.Forms.Button Friend WithEvents ContextMenu13 As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem20 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem21 As System.Windows.Forms.MenuItem Friend WithEvents ContextMenu14 As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem22 As System.Windows.Forms.MenuItem Friend WithEvents GroupBox16 As System.Windows.Forms.GroupBox Friend WithEvents txtbezeichnungbr As System.Windows.Forms.TextBox Friend WithEvents Label14 As System.Windows.Forms.Label Friend WithEvents Label12 As System.Windows.Forms.Label Friend WithEvents bemerkungbr As System.Windows.Forms.TextBox Friend WithEvents DataSet5 As System.Data.DataSet Friend WithEvents drpMiatarbeiter As C1.Win.C1TrueDBGrid.C1TrueDBDropdown Friend WithEvents pnlAddrMessage As System.Windows.Forms.Panel Friend WithEvents PBoxQuestion As System.Windows.Forms.PictureBox Friend WithEvents GroupBox20 As System.Windows.Forms.GroupBox Friend WithEvents GroupBox21 As System.Windows.Forms.GroupBox Friend WithEvents txtInhaber As System.Windows.Forms.RichTextBox Friend WithEvents txtZusteller As System.Windows.Forms.RichTextBox Friend WithEvents lblAddrmessage As System.Windows.Forms.TextBox Friend WithEvents BtnHelp As System.Windows.Forms.Button Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDokumentbearbeitung)) Dim Style1 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style2 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style3 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style4 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style5 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style6 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style7 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style8 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Me.ContextMenu1 = New System.Windows.Forms.ContextMenu() Me.MnuNeueNotiz = New System.Windows.Forms.MenuItem() Me.MnuEditNotiz = New System.Windows.Forms.MenuItem() Me.MnuDeleteNotiz = New System.Windows.Forms.MenuItem() Me.btnWeiter = New System.Windows.Forms.Button() Me.btnCancel = New System.Windows.Forms.Button() Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter() Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand() Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection() Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand() Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand() Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand() Me.DataSet1 = New System.Data.DataSet() Me.SqlDataAdapter2 = New System.Data.SqlClient.SqlDataAdapter() Me.SqlDeleteCommand2 = New System.Data.SqlClient.SqlCommand() Me.SqlInsertCommand2 = New System.Data.SqlClient.SqlCommand() Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand() Me.SqlUpdateCommand2 = New System.Data.SqlClient.SqlCommand() Me.DataSet2 = New System.Data.DataSet() Me.SqlDataAdapter3 = New System.Data.SqlClient.SqlDataAdapter() Me.SqlDeleteCommand3 = New System.Data.SqlClient.SqlCommand() Me.SqlInsertCommand3 = New System.Data.SqlClient.SqlCommand() Me.SqlSelectCommand3 = New System.Data.SqlClient.SqlCommand() Me.SqlUpdateCommand3 = New System.Data.SqlClient.SqlCommand() Me.DataSet3 = New System.Data.DataSet() Me.DataSet4 = New System.Data.DataSet() Me.TabControl2 = New System.Windows.Forms.TabControl() Me.TabPage3 = New System.Windows.Forms.TabPage() Me.GroupBox12 = New System.Windows.Forms.GroupBox() Me.cbteam = New System.Windows.Forms.ComboBox() Me.GroupBox10 = New System.Windows.Forms.GroupBox() Me.DokWertList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.ContextMenu2 = New System.Windows.Forms.ContextMenu() Me.MnuValueSelect = New System.Windows.Forms.MenuItem() Me.GroupBox3 = New System.Windows.Forms.GroupBox() Me.cbUnterschriftrechts = New System.Windows.Forms.ComboBox() Me.cbUnterschriftlinks = New System.Windows.Forms.ComboBox() Me.Label8 = New System.Windows.Forms.Label() Me.Label7 = New System.Windows.Forms.Label() Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.RBZustaendigZustaendiger = New System.Windows.Forms.RadioButton() Me.rbZustaendigKube = New System.Windows.Forms.RadioButton() Me.cbzust = New System.Windows.Forms.ComboBox() Me.cbKube = New System.Windows.Forms.ComboBox() Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() Me.cbPostzustellung = New System.Windows.Forms.ComboBox() Me.Label5 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() Me.TabPage4 = New System.Windows.Forms.TabPage() Me.GroupBox7 = New System.Windows.Forms.GroupBox() Me.InfoMeldungList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.ContextMenu4 = New System.Windows.Forms.ContextMenu() Me.mnuInfoEmpfaengerAdd = New System.Windows.Forms.MenuItem() Me.mnuInfoEmpfaengerDelete = New System.Windows.Forms.MenuItem() Me.GroupBox6 = New System.Windows.Forms.GroupBox() Me.ZuordnungList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.ContextMenu3 = New System.Windows.Forms.ContextMenu() Me.MnuDokZuordnungAdd = New System.Windows.Forms.MenuItem() Me.MnuDokzuordnungDelete = New System.Windows.Forms.MenuItem() Me.MenuItem1 = New System.Windows.Forms.MenuItem() Me.MnuShowDoc = New System.Windows.Forms.MenuItem() Me.GroupBox5 = New System.Windows.Forms.GroupBox() Me.ColdList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.ContextMenu7 = New System.Windows.Forms.ContextMenu() Me.MenuItem5 = New System.Windows.Forms.MenuItem() Me.MenuItem6 = New System.Windows.Forms.MenuItem() Me.GroupBox4 = New System.Windows.Forms.GroupBox() Me.DateTimePicker2 = New C1.Win.C1Input.C1DateEdit() Me.Label20 = New System.Windows.Forms.Label() Me.txtBemerkung = New System.Windows.Forms.TextBox() Me.DateTimePicker3 = New System.Windows.Forms.DateTimePicker() Me.Label10 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() Me.TabPage5 = New System.Windows.Forms.TabPage() Me.pnlBerechtigungen = New System.Windows.Forms.GroupBox() Me.DokumentFunktionenList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.ContextMenu6 = New System.Windows.Forms.ContextMenu() Me.MenuItem3 = New System.Windows.Forms.MenuItem() Me.MenuItem4 = New System.Windows.Forms.MenuItem() Me.GroupBox9 = New System.Windows.Forms.GroupBox() Me.Button3 = New System.Windows.Forms.Button() Me.cvertraulich = New System.Windows.Forms.CheckBox() Me.Label18 = New System.Windows.Forms.Label() Me.cGesperrt = New System.Windows.Forms.CheckBox() Me.Label9 = New System.Windows.Forms.Label() Me.GroupBox8 = New System.Windows.Forms.GroupBox() Me.drpMiatarbeiter = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown() Me.Notizlist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.TabPage1 = New System.Windows.Forms.TabPage() Me.Button2 = New System.Windows.Forms.Button() Me.GroupBox11 = New System.Windows.Forms.GroupBox() Me.Label13 = New System.Windows.Forms.Label() Me.txtAnredeZusteller = New System.Windows.Forms.TextBox() Me.txtZustelladresse = New System.Windows.Forms.TextBox() Me.TabPage7 = New System.Windows.Forms.TabPage() Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabPage8 = New System.Windows.Forms.TabPage() Me.GroupBox16 = New System.Windows.Forms.GroupBox() Me.txtbezeichnungbr = New System.Windows.Forms.TextBox() Me.Label14 = New System.Windows.Forms.Label() Me.Label12 = New System.Windows.Forms.Label() Me.bemerkungbr = New System.Windows.Forms.TextBox() Me.GroupBox17 = New System.Windows.Forms.GroupBox() Me.DokWertListBR = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.ContextMenu14 = New System.Windows.Forms.ContextMenu() Me.MenuItem22 = New System.Windows.Forms.MenuItem() Me.TabPage9 = New System.Windows.Forms.TabPage() Me.GroupBox13 = New System.Windows.Forms.GroupBox() Me.InFoMeldungListBR = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.ContextMenu9 = New System.Windows.Forms.ContextMenu() Me.MenuItem7 = New System.Windows.Forms.MenuItem() Me.MenuItem8 = New System.Windows.Forms.MenuItem() Me.GroupBox14 = New System.Windows.Forms.GroupBox() Me.ZuordnunglistBR = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.ContextMenu11 = New System.Windows.Forms.ContextMenu() Me.MenuItem13 = New System.Windows.Forms.MenuItem() Me.MenuItem14 = New System.Windows.Forms.MenuItem() Me.MenuItem15 = New System.Windows.Forms.MenuItem() Me.MenuItem16 = New System.Windows.Forms.MenuItem() Me.GroupBox15 = New System.Windows.Forms.GroupBox() Me.coldlistbr = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.ContextMenu10 = New System.Windows.Forms.ContextMenu() Me.MenuItem11 = New System.Windows.Forms.MenuItem() Me.MenuItem12 = New System.Windows.Forms.MenuItem() Me.TabPage10 = New System.Windows.Forms.TabPage() Me.pnlBerechtigungenBR = New System.Windows.Forms.GroupBox() Me.DokumentFunktionenListBR = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.ContextMenu13 = New System.Windows.Forms.ContextMenu() Me.MenuItem20 = New System.Windows.Forms.MenuItem() Me.MenuItem21 = New System.Windows.Forms.MenuItem() Me.GroupBox18 = New System.Windows.Forms.GroupBox() Me.Button3Br = New System.Windows.Forms.Button() Me.cVertraulichBR = New System.Windows.Forms.CheckBox() Me.Label18BR = New System.Windows.Forms.Label() Me.cGesperrtBR = New System.Windows.Forms.CheckBox() Me.Label15 = New System.Windows.Forms.Label() Me.GroupBox19 = New System.Windows.Forms.GroupBox() Me.Notizlistbr = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.ContextMenu12 = New System.Windows.Forms.ContextMenu() Me.MenuItem17 = New System.Windows.Forms.MenuItem() Me.MenuItem18 = New System.Windows.Forms.MenuItem() Me.MenuItem19 = 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.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.Dataset1BR = New System.Data.DataSet() Me.ContextMenu8 = New System.Windows.Forms.ContextMenu() Me.MenuItem9 = New System.Windows.Forms.MenuItem() Me.MenuItem10 = New System.Windows.Forms.MenuItem() Me.DataSet5 = New System.Data.DataSet() Me.BtnHelp = New System.Windows.Forms.Button() Me.pnlAddrMessage = New System.Windows.Forms.Panel() Me.lblAddrmessage = New System.Windows.Forms.TextBox() Me.PBoxQuestion = New System.Windows.Forms.PictureBox() Me.GroupBox20 = New System.Windows.Forms.GroupBox() Me.txtInhaber = New System.Windows.Forms.RichTextBox() Me.GroupBox21 = New System.Windows.Forms.GroupBox() Me.txtZusteller = New System.Windows.Forms.RichTextBox() CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DataSet4, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabControl2.SuspendLayout() Me.TabPage3.SuspendLayout() Me.GroupBox12.SuspendLayout() Me.GroupBox10.SuspendLayout() CType(Me.DokWertList, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox3.SuspendLayout() Me.GroupBox1.SuspendLayout() Me.GroupBox2.SuspendLayout() Me.TabPage4.SuspendLayout() Me.GroupBox7.SuspendLayout() CType(Me.InfoMeldungList, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox6.SuspendLayout() CType(Me.ZuordnungList, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox5.SuspendLayout() CType(Me.ColdList, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox4.SuspendLayout() CType(Me.DateTimePicker2, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage5.SuspendLayout() Me.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.TabPage1.SuspendLayout() Me.GroupBox11.SuspendLayout() Me.TabPage7.SuspendLayout() Me.TabControl1.SuspendLayout() Me.TabPage8.SuspendLayout() Me.GroupBox16.SuspendLayout() Me.GroupBox17.SuspendLayout() CType(Me.DokWertListBR, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage9.SuspendLayout() Me.GroupBox13.SuspendLayout() CType(Me.InFoMeldungListBR, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox14.SuspendLayout() CType(Me.ZuordnunglistBR, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox15.SuspendLayout() CType(Me.coldlistbr, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage10.SuspendLayout() Me.pnlBerechtigungenBR.SuspendLayout() CType(Me.DokumentFunktionenListBR, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox18.SuspendLayout() Me.GroupBox19.SuspendLayout() CType(Me.Notizlistbr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PicVIBeachten, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Dataset1BR, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DataSet5, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlAddrMessage.SuspendLayout() CType(Me.PBoxQuestion, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox20.SuspendLayout() Me.GroupBox21.SuspendLayout() Me.SuspendLayout() ' 'ContextMenu1 ' Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuNeueNotiz, Me.MnuEditNotiz, Me.MnuDeleteNotiz}) ' 'MnuNeueNotiz ' Me.MnuNeueNotiz.Index = 0 Me.MnuNeueNotiz.Text = "&Neue Notiz" ' 'MnuEditNotiz ' Me.MnuEditNotiz.Index = 1 Me.MnuEditNotiz.Text = "&Notiz bearbeiten" ' 'MnuDeleteNotiz ' Me.MnuDeleteNotiz.Index = 2 Me.MnuDeleteNotiz.Text = "Notiz &löschen" ' 'btnWeiter ' Me.btnWeiter.Location = New System.Drawing.Point(696, 497) Me.btnWeiter.Name = "btnWeiter" Me.btnWeiter.Size = New System.Drawing.Size(104, 23) Me.btnWeiter.TabIndex = 16 Me.btnWeiter.Text = "&Weiter>>" ' 'btnCancel ' Me.btnCancel.Location = New System.Drawing.Point(40, 497) Me.btnCancel.Name = "btnCancel" Me.btnCancel.Size = New System.Drawing.Size(104, 23) Me.btnCancel.TabIndex = 17 Me.btnCancel.Text = "&Abbruch" ' 'SqlDataAdapter1 ' Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1 Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1 Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1 Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "SP_Dokumentbearbeitung_Dokumentwerte", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("vorlagenfeldnr", "vorlagenfeldnr"), New System.Data.Common.DataColumnMapping("vorlagenfeldregelnr", "vorlagenfeldregelnr"), New System.Data.Common.DataColumnMapping("feldtyp", "feldtyp"), New System.Data.Common.DataColumnMapping("datenherkunft", "datenherkunft"), New System.Data.Common.DataColumnMapping("Feldwert", "Feldwert")})}) Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1 ' 'SqlDeleteCommand1 ' Me.SqlDeleteCommand1.CommandText = "[NewDeleteCommand]" Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure Me.SqlDeleteCommand1.Connection = Me.SqlConnection1 Me.SqlDeleteCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing)}) ' 'SqlConnection1 ' Me.SqlConnection1.ConnectionString = "data source=shu;initial catalog=edoka;persist security info=False;user id=sa;work" & "station id=SHU;packet size=4096" Me.SqlConnection1.FireInfoMessageEventOnUserErrors = False ' 'SqlInsertCommand1 ' Me.SqlInsertCommand1.CommandText = "[NewInsertCommand]" Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure Me.SqlInsertCommand1.Connection = Me.SqlConnection1 Me.SqlInsertCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 50), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing)}) ' 'SqlSelectCommand1 ' Me.SqlSelectCommand1.CommandText = "[SP_Dokumentbearbeitung_Dokumentwerte]" Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure Me.SqlSelectCommand1.Connection = Me.SqlConnection1 Me.SqlSelectCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Dokumentid", System.Data.SqlDbType.VarChar, 20), New System.Data.SqlClient.SqlParameter("@Dokumenttypnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@CreateNew", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing)}) ' 'SqlUpdateCommand1 ' Me.SqlUpdateCommand1.CommandText = "[NewUpdateCommand]" Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure Me.SqlUpdateCommand1.Connection = Me.SqlConnection1 Me.SqlUpdateCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 50), New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1), New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 50), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8)}) ' 'DataSet1 ' Me.DataSet1.DataSetName = "NewDataSet" ' 'SqlDataAdapter2 ' Me.SqlDataAdapter2.DeleteCommand = Me.SqlDeleteCommand2 Me.SqlDataAdapter2.InsertCommand = Me.SqlInsertCommand2 Me.SqlDataAdapter2.SelectCommand = Me.SqlSelectCommand2 Me.SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Postzustellung", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("nreintrag", "nreintrag"), New System.Data.Common.DataColumnMapping("sprache", "sprache"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})}) Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand2 ' 'SqlDeleteCommand2 ' Me.SqlDeleteCommand2.CommandText = "[pv_postzustellung_delete]" Me.SqlDeleteCommand2.CommandType = System.Data.CommandType.StoredProcedure Me.SqlDeleteCommand2.Connection = Me.SqlConnection1 Me.SqlDeleteCommand2.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_nreintrag", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "nreintrag", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_sprache", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sprache", System.Data.DataRowVersion.Original, Nothing)}) ' 'SqlInsertCommand2 ' Me.SqlInsertCommand2.CommandText = "[pv_postzustellung_insert]" Me.SqlInsertCommand2.CommandType = System.Data.CommandType.StoredProcedure Me.SqlInsertCommand2.Connection = Me.SqlConnection1 Me.SqlInsertCommand2.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@sprache", System.Data.SqlDbType.Int, 4, "sprache"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer")}) ' 'SqlSelectCommand2 ' Me.SqlSelectCommand2.CommandText = "[pv_postzustellung_select]" Me.SqlSelectCommand2.CommandType = System.Data.CommandType.StoredProcedure Me.SqlSelectCommand2.Connection = Me.SqlConnection1 Me.SqlSelectCommand2.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"), New System.Data.SqlClient.SqlParameter("@sprache", System.Data.SqlDbType.Int, 4, "sprache")}) ' 'SqlUpdateCommand2 ' Me.SqlUpdateCommand2.CommandText = "[pv_postzustellung_update]" Me.SqlUpdateCommand2.CommandType = System.Data.CommandType.StoredProcedure Me.SqlUpdateCommand2.Connection = Me.SqlConnection1 Me.SqlUpdateCommand2.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "sprache"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@Param2", System.Data.SqlDbType.Int, 4, "mandantnr"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"), New System.Data.SqlClient.SqlParameter("@Original_nreintrag", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "nreintrag", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_sprache", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sprache", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@nreintrag", System.Data.SqlDbType.Int, 4, "nreintrag")}) ' 'DataSet2 ' Me.DataSet2.DataSetName = "NewDataSet" ' 'SqlDataAdapter3 ' Me.SqlDataAdapter3.DeleteCommand = Me.SqlDeleteCommand3 Me.SqlDataAdapter3.InsertCommand = Me.SqlInsertCommand3 Me.SqlDataAdapter3.SelectCommand = Me.SqlSelectCommand3 Me.SqlDataAdapter3.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "funktionsgruppe", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("funktionsgruppenr", "funktionsgruppenr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung")})}) Me.SqlDataAdapter3.UpdateCommand = Me.SqlUpdateCommand3 ' 'SqlDeleteCommand3 ' Me.SqlDeleteCommand3.CommandText = "[pv_funktionsgruppe_aktiv_delete]" Me.SqlDeleteCommand3.CommandType = System.Data.CommandType.StoredProcedure Me.SqlDeleteCommand3.Connection = Me.SqlConnection1 Me.SqlDeleteCommand3.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionsgruppenr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing)}) ' 'SqlInsertCommand3 ' Me.SqlInsertCommand3.CommandText = "[pv_funktionsgruppe_aktiv_insert]" Me.SqlInsertCommand3.CommandType = System.Data.CommandType.StoredProcedure Me.SqlInsertCommand3.Connection = Me.SqlConnection1 Me.SqlInsertCommand3.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, "funktionsgruppenr"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung")}) ' 'SqlSelectCommand3 ' Me.SqlSelectCommand3.CommandText = "[pv_funktionsgruppe_aktiv_select]" Me.SqlSelectCommand3.CommandType = System.Data.CommandType.StoredProcedure Me.SqlSelectCommand3.Connection = Me.SqlConnection1 Me.SqlSelectCommand3.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr")}) ' 'SqlUpdateCommand3 ' Me.SqlUpdateCommand3.CommandText = "[pv_funktionsgruppe_aktiv_update]" Me.SqlUpdateCommand3.CommandType = System.Data.CommandType.StoredProcedure Me.SqlUpdateCommand3.Connection = Me.SqlConnection1 Me.SqlUpdateCommand3.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, "funktionsgruppenr"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionsgruppenr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing)}) ' 'DataSet3 ' Me.DataSet3.DataSetName = "NewDataSet" ' 'DataSet4 ' Me.DataSet4.DataSetName = "NewDataSet" ' 'TabControl2 ' Me.TabControl2.Controls.Add(Me.TabPage3) Me.TabControl2.Controls.Add(Me.TabPage4) Me.TabControl2.Controls.Add(Me.TabPage5) Me.TabControl2.Controls.Add(Me.TabPage1) Me.TabControl2.Controls.Add(Me.TabPage7) Me.TabControl2.Enabled = False Me.TabControl2.Location = New System.Drawing.Point(8, 138) Me.TabControl2.Name = "TabControl2" Me.TabControl2.SelectedIndex = 0 Me.TabControl2.Size = New System.Drawing.Size(800, 352) Me.TabControl2.TabIndex = 11 ' 'TabPage3 ' Me.TabPage3.Controls.Add(Me.GroupBox12) Me.TabPage3.Controls.Add(Me.GroupBox10) Me.TabPage3.Controls.Add(Me.GroupBox3) Me.TabPage3.Controls.Add(Me.GroupBox1) Me.TabPage3.Controls.Add(Me.GroupBox2) Me.TabPage3.Location = New System.Drawing.Point(4, 22) Me.TabPage3.Name = "TabPage3" Me.TabPage3.Size = New System.Drawing.Size(792, 326) Me.TabPage3.TabIndex = 0 Me.TabPage3.Text = "Dokumentinhalt" ' '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 = 37 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, 312) Me.GroupBox10.TabIndex = 38 Me.GroupBox10.TabStop = False Me.GroupBox10.Text = "Dokumentspezifisch" ' 'DokWertList ' Me.DokWertList.AllowFilter = False Me.DokWertList.AllowSort = False Me.DokWertList.AlternatingRows = True Me.DokWertList.ContextMenu = Me.ContextMenu2 Me.DokWertList.GroupByCaption = "Drag a column header here to group by that column" Me.DokWertList.Images.Add(CType(resources.GetObject("DokWertList.Images"), System.Drawing.Image)) Me.DokWertList.Location = New System.Drawing.Point(8, 16) Me.DokWertList.Name = "DokWertList" Me.DokWertList.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.DokWertList.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.DokWertList.PreviewInfo.ZoomFactor = 75.0R Me.DokWertList.PrintInfo.PageSettings = CType(resources.GetObject("DokWertList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.DokWertList.Size = New System.Drawing.Size(384, 288) Me.DokWertList.TabIndex = 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 = 36 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 = 3 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 = 2 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 = 35 Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "Zuständigkeit" ' 'RBZustaendigZustaendiger ' Me.RBZustaendigZustaendiger.Location = New System.Drawing.Point(14, 42) Me.RBZustaendigZustaendiger.Name = "RBZustaendigZustaendiger" Me.RBZustaendigZustaendiger.Size = New System.Drawing.Size(98, 24) Me.RBZustaendigZustaendiger.TabIndex = 1 Me.RBZustaendigZustaendiger.Text = "Zuständiger" ' 'rbZustaendigKube ' Me.rbZustaendigKube.Location = New System.Drawing.Point(14, 18) Me.rbZustaendigKube.Name = "rbZustaendigKube" Me.rbZustaendigKube.Size = New System.Drawing.Size(106, 24) Me.rbZustaendigKube.TabIndex = 0 Me.rbZustaendigKube.Text = "Kundenberater" ' 'cbzust ' Me.cbzust.Location = New System.Drawing.Point(128, 47) Me.cbzust.Name = "cbzust" Me.cbzust.Size = New System.Drawing.Size(232, 21) Me.cbzust.TabIndex = 3 ' 'cbKube ' Me.cbKube.Location = New System.Drawing.Point(128, 21) Me.cbKube.Name = "cbKube" Me.cbKube.Size = New System.Drawing.Size(232, 21) Me.cbKube.TabIndex = 2 ' 'GroupBox2 ' Me.GroupBox2.Controls.Add(Me.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 = 6 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" ' 'TabPage4 ' Me.TabPage4.Controls.Add(Me.GroupBox7) Me.TabPage4.Controls.Add(Me.GroupBox6) Me.TabPage4.Controls.Add(Me.GroupBox5) Me.TabPage4.Controls.Add(Me.GroupBox4) Me.TabPage4.Location = New System.Drawing.Point(4, 22) Me.TabPage4.Name = "TabPage4" Me.TabPage4.Size = New System.Drawing.Size(792, 326) Me.TabPage4.TabIndex = 1 Me.TabPage4.Text = "Zusammenhänge" Me.TabPage4.Visible = False ' 'GroupBox7 ' Me.GroupBox7.BackColor = System.Drawing.SystemColors.Control Me.GroupBox7.Controls.Add(Me.InfoMeldungList) Me.GroupBox7.Location = New System.Drawing.Point(8, 216) Me.GroupBox7.Name = "GroupBox7" Me.GroupBox7.Size = New System.Drawing.Size(776, 100) Me.GroupBox7.TabIndex = 3 Me.GroupBox7.TabStop = False Me.GroupBox7.Text = "Informationsmeldungen" ' 'InfoMeldungList ' Me.InfoMeldungList.AllowUpdate = False Me.InfoMeldungList.AlternatingRows = True Me.InfoMeldungList.ContextMenu = Me.ContextMenu4 Me.InfoMeldungList.GroupByCaption = "Drag a column header here to group by that column" Me.InfoMeldungList.Images.Add(CType(resources.GetObject("InfoMeldungList.Images"), System.Drawing.Image)) Me.InfoMeldungList.Location = New System.Drawing.Point(8, 16) Me.InfoMeldungList.Name = "InfoMeldungList" Me.InfoMeldungList.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.InfoMeldungList.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.InfoMeldungList.PreviewInfo.ZoomFactor = 75.0R Me.InfoMeldungList.PrintInfo.PageSettings = CType(resources.GetObject("InfoMeldungList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.InfoMeldungList.Size = New System.Drawing.Size(760, 72) Me.InfoMeldungList.TabIndex = 0 Me.InfoMeldungList.Text = "C1TrueDBGrid1" Me.InfoMeldungList.PropBag = resources.GetString("InfoMeldungList.PropBag") ' 'ContextMenu4 ' Me.ContextMenu4.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuInfoEmpfaengerAdd, Me.mnuInfoEmpfaengerDelete}) ' 'mnuInfoEmpfaengerAdd ' Me.mnuInfoEmpfaengerAdd.Index = 0 Me.mnuInfoEmpfaengerAdd.Text = "Neuer Info-Empfänger" ' 'mnuInfoEmpfaengerDelete ' Me.mnuInfoEmpfaengerDelete.Index = 1 Me.mnuInfoEmpfaengerDelete.Text = "Info-Empfänger löschen" ' 'GroupBox6 ' Me.GroupBox6.Controls.Add(Me.ZuordnungList) Me.GroupBox6.Location = New System.Drawing.Point(384, 112) Me.GroupBox6.Name = "GroupBox6" Me.GroupBox6.Size = New System.Drawing.Size(400, 96) Me.GroupBox6.TabIndex = 2 Me.GroupBox6.TabStop = False Me.GroupBox6.Text = "Dokument-Zuordnung" ' 'ZuordnungList ' Me.ZuordnungList.AlternatingRows = True Me.ZuordnungList.ContextMenu = Me.ContextMenu3 Me.ZuordnungList.Dock = System.Windows.Forms.DockStyle.Fill Me.ZuordnungList.GroupByCaption = "Drag a column header here to group by that column" Me.ZuordnungList.Images.Add(CType(resources.GetObject("ZuordnungList.Images"), System.Drawing.Image)) Me.ZuordnungList.Location = New System.Drawing.Point(3, 16) Me.ZuordnungList.Name = "ZuordnungList" Me.ZuordnungList.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.ZuordnungList.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.ZuordnungList.PreviewInfo.ZoomFactor = 75.0R Me.ZuordnungList.PrintInfo.PageSettings = CType(resources.GetObject("ZuordnungList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.ZuordnungList.Size = New System.Drawing.Size(394, 77) Me.ZuordnungList.TabIndex = 0 Me.ZuordnungList.Text = "C1TrueDBGrid1" Me.ZuordnungList.PropBag = resources.GetString("ZuordnungList.PropBag") ' 'ContextMenu3 ' Me.ContextMenu3.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuDokZuordnungAdd, Me.MnuDokzuordnungDelete, Me.MenuItem1, Me.MnuShowDoc}) ' 'MnuDokZuordnungAdd ' Me.MnuDokZuordnungAdd.Index = 0 Me.MnuDokZuordnungAdd.Text = "Dokument hinzufügen" ' 'MnuDokzuordnungDelete ' Me.MnuDokzuordnungDelete.Index = 1 Me.MnuDokzuordnungDelete.Text = "Dokument entfernen" ' 'MenuItem1 ' Me.MenuItem1.Index = 2 Me.MenuItem1.Text = "-" ' 'MnuShowDoc ' Me.MnuShowDoc.Index = 3 Me.MnuShowDoc.Text = "Dokument anzeigen" ' 'GroupBox5 ' Me.GroupBox5.Controls.Add(Me.ColdList) Me.GroupBox5.Location = New System.Drawing.Point(384, 8) Me.GroupBox5.Name = "GroupBox5" Me.GroupBox5.Size = New System.Drawing.Size(400, 100) Me.GroupBox5.TabIndex = 1 Me.GroupBox5.TabStop = False Me.GroupBox5.Text = "Dokumente ersetzen" ' 'ColdList ' Me.ColdList.AllowUpdate = False Me.ColdList.AlternatingRows = True Me.ColdList.ContextMenu = Me.ContextMenu7 Me.ColdList.Dock = System.Windows.Forms.DockStyle.Fill Me.ColdList.GroupByCaption = "Drag a column header here to group by that column" Me.ColdList.Images.Add(CType(resources.GetObject("ColdList.Images"), System.Drawing.Image)) Me.ColdList.Location = New System.Drawing.Point(3, 16) Me.ColdList.Name = "ColdList" Me.ColdList.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.ColdList.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.ColdList.PreviewInfo.ZoomFactor = 75.0R Me.ColdList.PrintInfo.PageSettings = CType(resources.GetObject("ColdList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.ColdList.Size = New System.Drawing.Size(394, 81) Me.ColdList.TabIndex = 0 Me.ColdList.Text = "C1TrueDBGrid1" Me.ColdList.PropBag = resources.GetString("ColdList.PropBag") ' 'ContextMenu7 ' Me.ContextMenu7.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem5, Me.MenuItem6}) ' 'MenuItem5 ' Me.MenuItem5.Index = 0 Me.MenuItem5.Text = "&Dokument auswählen" ' 'MenuItem6 ' Me.MenuItem6.Index = 1 Me.MenuItem6.Text = "Dokument entfernen" ' 'GroupBox4 ' Me.GroupBox4.Controls.Add(Me.DateTimePicker2) Me.GroupBox4.Controls.Add(Me.Label20) Me.GroupBox4.Controls.Add(Me.txtBemerkung) Me.GroupBox4.Controls.Add(Me.DateTimePicker3) Me.GroupBox4.Controls.Add(Me.Label10) Me.GroupBox4.Controls.Add(Me.Label6) Me.GroupBox4.Location = New System.Drawing.Point(8, 8) Me.GroupBox4.Name = "GroupBox4" Me.GroupBox4.Size = New System.Drawing.Size(368, 200) Me.GroupBox4.TabIndex = 0 Me.GroupBox4.TabStop = False Me.GroupBox4.Text = "Allgemein" ' 'DateTimePicker2 ' Me.DateTimePicker2.FormatType = C1.Win.C1Input.FormatTypeEnum.ShortDate Me.DateTimePicker2.Location = New System.Drawing.Point(88, 48) Me.DateTimePicker2.Name = "DateTimePicker2" Me.DateTimePicker2.Size = New System.Drawing.Size(96, 20) Me.DateTimePicker2.TabIndex = 1 Me.DateTimePicker2.Tag = Nothing Me.DateTimePicker2.VisibleButtons = C1.Win.C1Input.DropDownControlButtonFlags.DropDown ' 'Label20 ' Me.Label20.Location = New System.Drawing.Point(8, 72) Me.Label20.Name = "Label20" Me.Label20.Size = New System.Drawing.Size(80, 23) Me.Label20.TabIndex = 35 Me.Label20.Text = "Bemerkung" ' 'txtBemerkung ' Me.txtBemerkung.Location = New System.Drawing.Point(88, 72) Me.txtBemerkung.Multiline = True Me.txtBemerkung.Name = "txtBemerkung" Me.txtBemerkung.Size = New System.Drawing.Size(272, 112) Me.txtBemerkung.TabIndex = 2 ' 'DateTimePicker3 ' Me.DateTimePicker3.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker3.Location = New System.Drawing.Point(88, 24) Me.DateTimePicker3.Name = "DateTimePicker3" Me.DateTimePicker3.Size = New System.Drawing.Size(96, 20) Me.DateTimePicker3.TabIndex = 0 ' 'Label10 ' Me.Label10.Location = New System.Drawing.Point(8, 24) Me.Label10.Name = "Label10" Me.Label10.Size = New System.Drawing.Size(80, 23) Me.Label10.TabIndex = 34 Me.Label10.Text = "Archiv-Datum" ' 'Label6 ' Me.Label6.Location = New System.Drawing.Point(8, 48) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(80, 23) Me.Label6.TabIndex = 30 Me.Label6.Text = "Termin" ' 'TabPage5 ' Me.TabPage5.Controls.Add(Me.pnlBerechtigungen) Me.TabPage5.Controls.Add(Me.GroupBox9) Me.TabPage5.Controls.Add(Me.GroupBox8) Me.TabPage5.Location = New System.Drawing.Point(4, 22) Me.TabPage5.Name = "TabPage5" Me.TabPage5.Size = New System.Drawing.Size(792, 326) Me.TabPage5.TabIndex = 2 Me.TabPage5.Text = "Notizen / Rechte" Me.TabPage5.Visible = False ' 'pnlBerechtigungen ' Me.pnlBerechtigungen.Controls.Add(Me.DokumentFunktionenList) Me.pnlBerechtigungen.Location = New System.Drawing.Point(168, 168) Me.pnlBerechtigungen.Name = "pnlBerechtigungen" Me.pnlBerechtigungen.Size = New System.Drawing.Size(616, 152) Me.pnlBerechtigungen.TabIndex = 3 Me.pnlBerechtigungen.TabStop = False Me.pnlBerechtigungen.Text = "Berechtigungseinschränkung" ' 'DokumentFunktionenList ' Me.DokumentFunktionenList.AlternatingRows = True Me.DokumentFunktionenList.ContextMenu = Me.ContextMenu6 Me.DokumentFunktionenList.GroupByCaption = "Drag a column header here to group by that column" Me.DokumentFunktionenList.Images.Add(CType(resources.GetObject("DokumentFunktionenList.Images"), System.Drawing.Image)) Me.DokumentFunktionenList.Location = New System.Drawing.Point(8, 16) Me.DokumentFunktionenList.Name = "DokumentFunktionenList" Me.DokumentFunktionenList.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.DokumentFunktionenList.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.DokumentFunktionenList.PreviewInfo.ZoomFactor = 75.0R 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 = 0 Me.DokumentFunktionenList.Text = "C1TrueDBGrid1" Me.DokumentFunktionenList.PropBag = resources.GetString("DokumentFunktionenList.PropBag") ' 'ContextMenu6 ' Me.ContextMenu6.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem3, Me.MenuItem4}) ' 'MenuItem3 ' Me.MenuItem3.Index = 0 Me.MenuItem3.Text = "Berechtigungseinschränkung hinzufügen" ' 'MenuItem4 ' Me.MenuItem4.Index = 1 Me.MenuItem4.Text = "Berechtigungseinschränkung entfernen" ' 'GroupBox9 ' Me.GroupBox9.Controls.Add(Me.Button3) Me.GroupBox9.Controls.Add(Me.cvertraulich) Me.GroupBox9.Controls.Add(Me.Label18) Me.GroupBox9.Controls.Add(Me.cGesperrt) Me.GroupBox9.Controls.Add(Me.Label9) Me.GroupBox9.Location = New System.Drawing.Point(8, 168) Me.GroupBox9.Name = "GroupBox9" Me.GroupBox9.Size = New System.Drawing.Size(152, 152) Me.GroupBox9.TabIndex = 2 Me.GroupBox9.TabStop = False Me.GroupBox9.Text = "Schutz" ' 'Button3 ' Me.Button3.Location = New System.Drawing.Point(16, 96) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(120, 48) Me.Button3.TabIndex = 2 Me.Button3.Text = "Liste der berechtigten Mitarbeiter" ' 'cvertraulich ' Me.cvertraulich.Location = New System.Drawing.Point(80, 46) Me.cvertraulich.Name = "cvertraulich" Me.cvertraulich.Size = New System.Drawing.Size(48, 24) Me.cvertraulich.TabIndex = 1 ' 'Label18 ' Me.Label18.Location = New System.Drawing.Point(16, 48) Me.Label18.Name = "Label18" Me.Label18.Size = New System.Drawing.Size(64, 23) Me.Label18.TabIndex = 17 Me.Label18.Text = "Vertraulich" ' 'cGesperrt ' Me.cGesperrt.Enabled = False Me.cGesperrt.Location = New System.Drawing.Point(80, 24) Me.cGesperrt.Name = "cGesperrt" Me.cGesperrt.Size = New System.Drawing.Size(48, 24) Me.cGesperrt.TabIndex = 0 ' 'Label9 ' Me.Label9.Location = New System.Drawing.Point(16, 24) Me.Label9.Name = "Label9" Me.Label9.Size = New System.Drawing.Size(64, 23) Me.Label9.TabIndex = 15 Me.Label9.Text = "Gesperrt" ' 'GroupBox8 ' Me.GroupBox8.Controls.Add(Me.drpMiatarbeiter) Me.GroupBox8.Controls.Add(Me.Notizlist) Me.GroupBox8.Location = New System.Drawing.Point(8, 8) Me.GroupBox8.Name = "GroupBox8" Me.GroupBox8.Size = New System.Drawing.Size(776, 152) Me.GroupBox8.TabIndex = 1 Me.GroupBox8.TabStop = False Me.GroupBox8.Text = "Notizen" ' 'drpMiatarbeiter ' Me.drpMiatarbeiter.AllowColMove = True Me.drpMiatarbeiter.AllowColSelect = True Me.drpMiatarbeiter.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows Me.drpMiatarbeiter.AlternatingRows = True Me.drpMiatarbeiter.CaptionStyle = Style1 Me.drpMiatarbeiter.ColumnCaptionHeight = 17 Me.drpMiatarbeiter.ColumnFooterHeight = 17 Me.drpMiatarbeiter.EvenRowStyle = Style2 Me.drpMiatarbeiter.FetchRowStyles = False Me.drpMiatarbeiter.FooterStyle = Style3 Me.drpMiatarbeiter.HeadingStyle = Style4 Me.drpMiatarbeiter.HighLightRowStyle = Style5 Me.drpMiatarbeiter.Images.Add(CType(resources.GetObject("drpMiatarbeiter.Images"), System.Drawing.Image)) Me.drpMiatarbeiter.Location = New System.Drawing.Point(368, 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 = 3 Me.drpMiatarbeiter.Text = "C1TrueDBDropdown1" Me.drpMiatarbeiter.Visible = False Me.drpMiatarbeiter.PropBag = resources.GetString("drpMiatarbeiter.PropBag") ' 'Notizlist ' Me.Notizlist.AlternatingRows = True Me.Notizlist.ContextMenu = Me.ContextMenu1 Me.Notizlist.GroupByCaption = "Drag a column header here to group by that column" Me.Notizlist.Images.Add(CType(resources.GetObject("Notizlist.Images"), System.Drawing.Image)) Me.Notizlist.Location = New System.Drawing.Point(8, 16) Me.Notizlist.Name = "Notizlist" Me.Notizlist.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.Notizlist.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.Notizlist.PreviewInfo.ZoomFactor = 75.0R Me.Notizlist.PrintInfo.PageSettings = CType(resources.GetObject("Notizlist.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.Notizlist.Size = New System.Drawing.Size(760, 128) Me.Notizlist.TabIndex = 0 Me.Notizlist.Text = "C1TrueDBGrid1" Me.Notizlist.PropBag = resources.GetString("Notizlist.PropBag") ' 'TabPage1 ' Me.TabPage1.Controls.Add(Me.Button2) Me.TabPage1.Controls.Add(Me.GroupBox11) Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Name = "TabPage1" Me.TabPage1.Size = New System.Drawing.Size(792, 326) Me.TabPage1.TabIndex = 3 Me.TabPage1.Text = "Zustelladresse" ' 'Button2 ' Me.Button2.Image = CType(resources.GetObject("Button2.Image"), System.Drawing.Image) Me.Button2.Location = New System.Drawing.Point(312, 13) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(24, 23) Me.Button2.TabIndex = 0 ' 'GroupBox11 ' Me.GroupBox11.Controls.Add(Me.Label13) Me.GroupBox11.Controls.Add(Me.txtAnredeZusteller) Me.GroupBox11.Controls.Add(Me.txtZustelladresse) Me.GroupBox11.Location = New System.Drawing.Point(8, 8) Me.GroupBox11.Name = "GroupBox11" Me.GroupBox11.Size = New System.Drawing.Size(296, 200) Me.GroupBox11.TabIndex = 0 Me.GroupBox11.TabStop = False Me.GroupBox11.Text = "Zustelladresse" ' 'Label13 ' Me.Label13.Location = New System.Drawing.Point(8, 150) Me.Label13.Name = "Label13" Me.Label13.Size = New System.Drawing.Size(192, 16) Me.Label13.TabIndex = 2 Me.Label13.Text = "Anrede (z.B.: Herr Muster)" ' 'txtAnredeZusteller ' Me.txtAnredeZusteller.Location = New System.Drawing.Point(8, 168) Me.txtAnredeZusteller.Name = "txtAnredeZusteller" Me.txtAnredeZusteller.Size = New System.Drawing.Size(280, 20) Me.txtAnredeZusteller.TabIndex = 1 ' 'txtZustelladresse ' Me.txtZustelladresse.Location = New System.Drawing.Point(8, 16) Me.txtZustelladresse.Multiline = True Me.txtZustelladresse.Name = "txtZustelladresse" Me.txtZustelladresse.Size = New System.Drawing.Size(280, 128) Me.txtZustelladresse.TabIndex = 0 Me.txtZustelladresse.Text = "TextBox1" ' 'TabPage7 ' Me.TabPage7.Controls.Add(Me.TabControl1) Me.TabPage7.Location = New System.Drawing.Point(4, 22) Me.TabPage7.Name = "TabPage7" Me.TabPage7.Size = New System.Drawing.Size(792, 326) Me.TabPage7.TabIndex = 6 Me.TabPage7.Text = "Bedingte Retournierung" ' 'TabControl1 ' Me.TabControl1.Controls.Add(Me.TabPage8) Me.TabControl1.Controls.Add(Me.TabPage9) Me.TabControl1.Controls.Add(Me.TabPage10) Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.TabControl1.Location = New System.Drawing.Point(0, 0) Me.TabControl1.Name = "TabControl1" Me.TabControl1.SelectedIndex = 0 Me.TabControl1.Size = New System.Drawing.Size(792, 326) Me.TabControl1.TabIndex = 0 ' 'TabPage8 ' Me.TabPage8.Controls.Add(Me.GroupBox16) Me.TabPage8.Controls.Add(Me.GroupBox17) Me.TabPage8.Location = New System.Drawing.Point(4, 22) Me.TabPage8.Name = "TabPage8" Me.TabPage8.Size = New System.Drawing.Size(784, 300) Me.TabPage8.TabIndex = 0 Me.TabPage8.Text = "Dokumentinhalt" ' 'GroupBox16 ' Me.GroupBox16.Controls.Add(Me.txtbezeichnungbr) Me.GroupBox16.Controls.Add(Me.Label14) Me.GroupBox16.Controls.Add(Me.Label12) Me.GroupBox16.Controls.Add(Me.bemerkungbr) Me.GroupBox16.Location = New System.Drawing.Point(8, 8) Me.GroupBox16.Name = "GroupBox16" Me.GroupBox16.Size = New System.Drawing.Size(368, 288) Me.GroupBox16.TabIndex = 41 Me.GroupBox16.TabStop = False Me.GroupBox16.Text = "Allgemein" ' 'txtbezeichnungbr ' Me.txtbezeichnungbr.Location = New System.Drawing.Point(88, 24) Me.txtbezeichnungbr.Name = "txtbezeichnungbr" Me.txtbezeichnungbr.ReadOnly = True Me.txtbezeichnungbr.Size = New System.Drawing.Size(272, 20) Me.txtbezeichnungbr.TabIndex = 0 ' 'Label14 ' Me.Label14.Location = New System.Drawing.Point(8, 24) Me.Label14.Name = "Label14" Me.Label14.Size = New System.Drawing.Size(100, 23) Me.Label14.TabIndex = 40 Me.Label14.Text = "Bezeichnung" ' 'Label12 ' Me.Label12.Location = New System.Drawing.Point(8, 56) Me.Label12.Name = "Label12" Me.Label12.Size = New System.Drawing.Size(80, 23) Me.Label12.TabIndex = 35 Me.Label12.Text = "Bemerkung" ' 'bemerkungbr ' Me.bemerkungbr.Location = New System.Drawing.Point(88, 56) Me.bemerkungbr.Multiline = True Me.bemerkungbr.Name = "bemerkungbr" Me.bemerkungbr.Size = New System.Drawing.Size(272, 80) Me.bemerkungbr.TabIndex = 1 ' 'GroupBox17 ' Me.GroupBox17.Controls.Add(Me.DokWertListBR) Me.GroupBox17.Location = New System.Drawing.Point(376, 8) Me.GroupBox17.Name = "GroupBox17" Me.GroupBox17.Size = New System.Drawing.Size(400, 288) Me.GroupBox17.TabIndex = 38 Me.GroupBox17.TabStop = False Me.GroupBox17.Text = "Dokumentspezifisch" ' 'DokWertListBR ' Me.DokWertListBR.AllowFilter = False Me.DokWertListBR.AllowSort = False Me.DokWertListBR.AlternatingRows = True Me.DokWertListBR.ContextMenu = Me.ContextMenu14 Me.DokWertListBR.GroupByCaption = "Drag a column header here to group by that column" Me.DokWertListBR.Images.Add(CType(resources.GetObject("DokWertListBR.Images"), System.Drawing.Image)) Me.DokWertListBR.Location = New System.Drawing.Point(8, 16) Me.DokWertListBR.Name = "DokWertListBR" Me.DokWertListBR.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.DokWertListBR.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.DokWertListBR.PreviewInfo.ZoomFactor = 75.0R Me.DokWertListBR.PrintInfo.PageSettings = CType(resources.GetObject("DokWertListBR.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.DokWertListBR.Size = New System.Drawing.Size(384, 264) Me.DokWertListBR.TabIndex = 0 Me.DokWertListBR.Text = "C1TrueDBGrid1" Me.DokWertListBR.PropBag = resources.GetString("DokWertListBR.PropBag") ' 'ContextMenu14 ' Me.ContextMenu14.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem22}) ' 'MenuItem22 ' Me.MenuItem22.Index = 0 Me.MenuItem22.Text = "&Wert auswählen" ' 'TabPage9 ' Me.TabPage9.Controls.Add(Me.GroupBox13) Me.TabPage9.Controls.Add(Me.GroupBox14) Me.TabPage9.Controls.Add(Me.GroupBox15) Me.TabPage9.Location = New System.Drawing.Point(4, 22) Me.TabPage9.Name = "TabPage9" Me.TabPage9.Size = New System.Drawing.Size(784, 300) Me.TabPage9.TabIndex = 1 Me.TabPage9.Text = "Zusammenhänge" ' 'GroupBox13 ' Me.GroupBox13.BackColor = System.Drawing.SystemColors.Control Me.GroupBox13.Controls.Add(Me.InFoMeldungListBR) Me.GroupBox13.Location = New System.Drawing.Point(8, 136) Me.GroupBox13.Name = "GroupBox13" Me.GroupBox13.Size = New System.Drawing.Size(776, 152) Me.GroupBox13.TabIndex = 9 Me.GroupBox13.TabStop = False Me.GroupBox13.Text = "Informationsmeldungen" ' 'InFoMeldungListBR ' Me.InFoMeldungListBR.AllowUpdate = False Me.InFoMeldungListBR.AlternatingRows = True Me.InFoMeldungListBR.ContextMenu = Me.ContextMenu9 Me.InFoMeldungListBR.Dock = System.Windows.Forms.DockStyle.Fill Me.InFoMeldungListBR.GroupByCaption = "Drag a column header here to group by that column" Me.InFoMeldungListBR.Images.Add(CType(resources.GetObject("InFoMeldungListBR.Images"), System.Drawing.Image)) Me.InFoMeldungListBR.Location = New System.Drawing.Point(3, 16) Me.InFoMeldungListBR.Name = "InFoMeldungListBR" Me.InFoMeldungListBR.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.InFoMeldungListBR.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.InFoMeldungListBR.PreviewInfo.ZoomFactor = 75.0R Me.InFoMeldungListBR.PrintInfo.PageSettings = CType(resources.GetObject("InFoMeldungListBR.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.InFoMeldungListBR.Size = New System.Drawing.Size(770, 133) Me.InFoMeldungListBR.TabIndex = 0 Me.InFoMeldungListBR.Text = "C1TrueDBGrid1" Me.InFoMeldungListBR.PropBag = resources.GetString("InFoMeldungListBR.PropBag") ' 'ContextMenu9 ' Me.ContextMenu9.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem7, Me.MenuItem8}) ' 'MenuItem7 ' Me.MenuItem7.Index = 0 Me.MenuItem7.Text = "Neuer Info-Empfänger" ' 'MenuItem8 ' Me.MenuItem8.Index = 1 Me.MenuItem8.Text = "Info-Empfänger löschen" ' 'GroupBox14 ' Me.GroupBox14.Controls.Add(Me.ZuordnunglistBR) Me.GroupBox14.Location = New System.Drawing.Point(8, 8) Me.GroupBox14.Name = "GroupBox14" Me.GroupBox14.Size = New System.Drawing.Size(400, 128) Me.GroupBox14.TabIndex = 8 Me.GroupBox14.TabStop = False Me.GroupBox14.Text = "Dokument-Zuordnung" ' 'ZuordnunglistBR ' Me.ZuordnunglistBR.AlternatingRows = True Me.ZuordnunglistBR.ContextMenu = Me.ContextMenu11 Me.ZuordnunglistBR.Dock = System.Windows.Forms.DockStyle.Fill Me.ZuordnunglistBR.GroupByCaption = "Drag a column header here to group by that column" Me.ZuordnunglistBR.Images.Add(CType(resources.GetObject("ZuordnunglistBR.Images"), System.Drawing.Image)) Me.ZuordnunglistBR.Location = New System.Drawing.Point(3, 16) Me.ZuordnunglistBR.Name = "ZuordnunglistBR" Me.ZuordnunglistBR.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.ZuordnunglistBR.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.ZuordnunglistBR.PreviewInfo.ZoomFactor = 75.0R Me.ZuordnunglistBR.PrintInfo.PageSettings = CType(resources.GetObject("ZuordnunglistBR.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.ZuordnunglistBR.Size = New System.Drawing.Size(394, 109) Me.ZuordnunglistBR.TabIndex = 1 Me.ZuordnunglistBR.Text = "C1TrueDBGrid1" Me.ZuordnunglistBR.PropBag = resources.GetString("ZuordnunglistBR.PropBag") ' 'ContextMenu11 ' Me.ContextMenu11.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem13, Me.MenuItem14, Me.MenuItem15, Me.MenuItem16}) ' 'MenuItem13 ' Me.MenuItem13.Index = 0 Me.MenuItem13.Text = "Dokument hinzufügen" ' 'MenuItem14 ' Me.MenuItem14.Index = 1 Me.MenuItem14.Text = "Dokument entfernen" ' 'MenuItem15 ' Me.MenuItem15.Index = 2 Me.MenuItem15.Text = "-" ' 'MenuItem16 ' Me.MenuItem16.Index = 3 Me.MenuItem16.Text = "Dokument anzeigen" ' 'GroupBox15 ' Me.GroupBox15.Controls.Add(Me.coldlistbr) Me.GroupBox15.Location = New System.Drawing.Point(8, 8) Me.GroupBox15.Name = "GroupBox15" Me.GroupBox15.Size = New System.Drawing.Size(400, 96) Me.GroupBox15.TabIndex = 7 Me.GroupBox15.TabStop = False Me.GroupBox15.Text = "Dokumente ersetzen" Me.GroupBox15.Visible = False ' 'coldlistbr ' Me.coldlistbr.AlternatingRows = True Me.coldlistbr.ContextMenu = Me.ContextMenu10 Me.coldlistbr.Dock = System.Windows.Forms.DockStyle.Fill Me.coldlistbr.GroupByCaption = "Drag a column header here to group by that column" Me.coldlistbr.Images.Add(CType(resources.GetObject("coldlistbr.Images"), System.Drawing.Image)) Me.coldlistbr.Location = New System.Drawing.Point(3, 16) Me.coldlistbr.Name = "coldlistbr" Me.coldlistbr.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.coldlistbr.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.coldlistbr.PreviewInfo.ZoomFactor = 75.0R Me.coldlistbr.PrintInfo.PageSettings = CType(resources.GetObject("coldlistbr.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.coldlistbr.Size = New System.Drawing.Size(394, 77) Me.coldlistbr.TabIndex = 2 Me.coldlistbr.Text = "C1TrueDBGrid1" Me.coldlistbr.Visible = False Me.coldlistbr.PropBag = resources.GetString("coldlistbr.PropBag") ' 'ContextMenu10 ' Me.ContextMenu10.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem11, Me.MenuItem12}) ' 'MenuItem11 ' Me.MenuItem11.Index = 0 Me.MenuItem11.Text = "&Dokument auswählen" ' 'MenuItem12 ' Me.MenuItem12.Index = 1 Me.MenuItem12.Text = "Dokument entfernen" ' 'TabPage10 ' Me.TabPage10.Controls.Add(Me.pnlBerechtigungenBR) Me.TabPage10.Controls.Add(Me.GroupBox18) Me.TabPage10.Controls.Add(Me.GroupBox19) Me.TabPage10.Location = New System.Drawing.Point(4, 22) Me.TabPage10.Name = "TabPage10" Me.TabPage10.Size = New System.Drawing.Size(784, 300) Me.TabPage10.TabIndex = 2 Me.TabPage10.Text = "Notizen / Rechte" ' 'pnlBerechtigungenBR ' Me.pnlBerechtigungenBR.Controls.Add(Me.DokumentFunktionenListBR) Me.pnlBerechtigungenBR.Location = New System.Drawing.Point(160, 144) Me.pnlBerechtigungenBR.Name = "pnlBerechtigungenBR" Me.pnlBerechtigungenBR.Size = New System.Drawing.Size(616, 152) Me.pnlBerechtigungenBR.TabIndex = 7 Me.pnlBerechtigungenBR.TabStop = False Me.pnlBerechtigungenBR.Text = "Berechtigungseinschränkung" ' 'DokumentFunktionenListBR ' Me.DokumentFunktionenListBR.AlternatingRows = True Me.DokumentFunktionenListBR.ContextMenu = Me.ContextMenu13 Me.DokumentFunktionenListBR.GroupByCaption = "Drag a column header here to group by that column" Me.DokumentFunktionenListBR.Images.Add(CType(resources.GetObject("DokumentFunktionenListBR.Images"), System.Drawing.Image)) Me.DokumentFunktionenListBR.Location = New System.Drawing.Point(8, 16) Me.DokumentFunktionenListBR.Name = "DokumentFunktionenListBR" Me.DokumentFunktionenListBR.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.DokumentFunktionenListBR.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.DokumentFunktionenListBR.PreviewInfo.ZoomFactor = 75.0R Me.DokumentFunktionenListBR.PrintInfo.PageSettings = CType(resources.GetObject("DokumentFunktionenListBR.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.DokumentFunktionenListBR.Size = New System.Drawing.Size(600, 128) Me.DokumentFunktionenListBR.TabIndex = 1 Me.DokumentFunktionenListBR.Text = "C1TrueDBGrid1" Me.DokumentFunktionenListBR.PropBag = resources.GetString("DokumentFunktionenListBR.PropBag") ' 'ContextMenu13 ' Me.ContextMenu13.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem20, Me.MenuItem21}) ' 'MenuItem20 ' Me.MenuItem20.Index = 0 Me.MenuItem20.Text = "Berechtigungseinschränkung hinzufügen" ' 'MenuItem21 ' Me.MenuItem21.Index = 1 Me.MenuItem21.Text = "Berechtigungseinschränkung entfernen" ' 'GroupBox18 ' Me.GroupBox18.Controls.Add(Me.Button3Br) Me.GroupBox18.Controls.Add(Me.cVertraulichBR) Me.GroupBox18.Controls.Add(Me.Label18BR) Me.GroupBox18.Controls.Add(Me.cGesperrtBR) Me.GroupBox18.Controls.Add(Me.Label15) Me.GroupBox18.Location = New System.Drawing.Point(8, 144) Me.GroupBox18.Name = "GroupBox18" Me.GroupBox18.Size = New System.Drawing.Size(152, 152) Me.GroupBox18.TabIndex = 6 Me.GroupBox18.TabStop = False Me.GroupBox18.Text = "Schutz" ' 'Button3Br ' Me.Button3Br.Location = New System.Drawing.Point(16, 96) Me.Button3Br.Name = "Button3Br" Me.Button3Br.Size = New System.Drawing.Size(120, 48) Me.Button3Br.TabIndex = 19 Me.Button3Br.Text = "Liste der berechtigten Mitarbeiter" ' 'cVertraulichBR ' Me.cVertraulichBR.Location = New System.Drawing.Point(80, 46) Me.cVertraulichBR.Name = "cVertraulichBR" Me.cVertraulichBR.Size = New System.Drawing.Size(48, 24) Me.cVertraulichBR.TabIndex = 18 ' 'Label18BR ' Me.Label18BR.Location = New System.Drawing.Point(16, 48) Me.Label18BR.Name = "Label18BR" Me.Label18BR.Size = New System.Drawing.Size(64, 23) Me.Label18BR.TabIndex = 17 Me.Label18BR.Text = "Vertraulich" ' 'cGesperrtBR ' Me.cGesperrtBR.Enabled = False Me.cGesperrtBR.Location = New System.Drawing.Point(80, 24) Me.cGesperrtBR.Name = "cGesperrtBR" Me.cGesperrtBR.Size = New System.Drawing.Size(48, 24) Me.cGesperrtBR.TabIndex = 16 ' 'Label15 ' Me.Label15.Location = New System.Drawing.Point(16, 24) Me.Label15.Name = "Label15" Me.Label15.Size = New System.Drawing.Size(64, 23) Me.Label15.TabIndex = 15 Me.Label15.Text = "Gesperrt" ' 'GroupBox19 ' Me.GroupBox19.Controls.Add(Me.Notizlistbr) Me.GroupBox19.Location = New System.Drawing.Point(8, 8) Me.GroupBox19.Name = "GroupBox19" Me.GroupBox19.Size = New System.Drawing.Size(768, 128) Me.GroupBox19.TabIndex = 5 Me.GroupBox19.TabStop = False Me.GroupBox19.Text = "Notizen" ' 'Notizlistbr ' Me.Notizlistbr.AlternatingRows = True Me.Notizlistbr.ContextMenu = Me.ContextMenu12 Me.Notizlistbr.Dock = System.Windows.Forms.DockStyle.Fill Me.Notizlistbr.GroupByCaption = "Drag a column header here to group by that column" Me.Notizlistbr.Images.Add(CType(resources.GetObject("Notizlistbr.Images"), System.Drawing.Image)) Me.Notizlistbr.Location = New System.Drawing.Point(3, 16) Me.Notizlistbr.Name = "Notizlistbr" Me.Notizlistbr.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.Notizlistbr.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.Notizlistbr.PreviewInfo.ZoomFactor = 75.0R Me.Notizlistbr.PrintInfo.PageSettings = CType(resources.GetObject("Notizlistbr.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.Notizlistbr.Size = New System.Drawing.Size(762, 109) Me.Notizlistbr.TabIndex = 1 Me.Notizlistbr.PropBag = resources.GetString("Notizlistbr.PropBag") ' 'ContextMenu12 ' Me.ContextMenu12.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem17, Me.MenuItem18, Me.MenuItem19}) ' 'MenuItem17 ' Me.MenuItem17.Index = 0 Me.MenuItem17.Text = "&Neue Notiz" ' 'MenuItem18 ' Me.MenuItem18.Index = 1 Me.MenuItem18.Text = "&Notiz bearbeiten" ' 'MenuItem19 ' Me.MenuItem19.Index = 2 Me.MenuItem19.Text = "Notiz &löschen" ' '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 ' 'ContextMenu5 ' Me.ContextMenu5.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2}) ' 'MenuItem2 ' Me.MenuItem2.Index = 0 Me.MenuItem2.Text = "&Berechtigte Mitarbeiter" ' 'Label17 ' Me.Label17.Location = New System.Drawing.Point(416, 64) Me.Label17.Name = "Label17" Me.Label17.Size = New System.Drawing.Size(88, 23) Me.Label17.TabIndex = 44 Me.Label17.Text = "Verantwortlicher" ' 'Label16 ' Me.Label16.Location = New System.Drawing.Point(416, 40) Me.Label16.Name = "Label16" Me.Label16.Size = New System.Drawing.Size(96, 23) Me.Label16.TabIndex = 43 Me.Label16.Text = "Dokumentstatus" ' 'cbdokumentstatus ' Me.cbdokumentstatus.ItemHeight = 13 Me.cbdokumentstatus.Location = New System.Drawing.Point(520, 40) Me.cbdokumentstatus.Name = "cbdokumentstatus" Me.cbdokumentstatus.Size = New System.Drawing.Size(264, 21) Me.cbdokumentstatus.TabIndex = 7 ' '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 Me.txtPartnerZusteller.Visible = False ' '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" Me.Label2.Visible = False ' '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, 492) Me.cdokumentwerteanzeigen.Name = "cdokumentwerteanzeigen" Me.cdokumentwerteanzeigen.Size = New System.Drawing.Size(160, 32) Me.cdokumentwerteanzeigen.TabIndex = 15 Me.cdokumentwerteanzeigen.Text = "Dokumentinhalte anzeigen" ' 'Button1 ' Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image) Me.Button1.Location = New System.Drawing.Point(376, 16) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(24, 24) Me.Button1.TabIndex = 3 ' 'Button4 ' Me.Button4.Image = CType(resources.GetObject("Button4.Image"), System.Drawing.Image) Me.Button4.Location = New System.Drawing.Point(328, 64) Me.Button4.Name = "Button4" Me.Button4.Size = New System.Drawing.Size(24, 24) Me.Button4.TabIndex = 4 Me.Button4.Visible = False ' 'cbsave ' Me.cbsave.Items.AddRange(New Object() {"abc", "def", "gagas d sd", "sdf sdf sfd "}) Me.cbsave.Location = New System.Drawing.Point(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" ' 'Panel1 ' Me.Panel1.Location = New System.Drawing.Point(784, 16) Me.Panel1.Name = "Panel1" Me.Panel1.Size = New System.Drawing.Size(24, 100) Me.Panel1.TabIndex = 50 ' 'Label11 ' Me.Label11.Location = New System.Drawing.Point(416, 80) Me.Label11.Name = "Label11" Me.Label11.Size = New System.Drawing.Size(96, 32) Me.Label11.TabIndex = 52 Me.Label11.Text = "Berechtigt für Folgestatus" Me.Label11.Visible = False ' 'txtstatus ' Me.txtstatus.Location = New System.Drawing.Point(520, 88) Me.txtstatus.Name = "txtstatus" Me.txtstatus.Size = New System.Drawing.Size(224, 16) Me.txtstatus.TabIndex = 51 Me.txtstatus.Text = "Label3" Me.txtstatus.Visible = False ' 'btntxtBemerkung ' Me.btntxtBemerkung.Image = CType(resources.GetObject("btntxtBemerkung.Image"), System.Drawing.Image) Me.btntxtBemerkung.Location = New System.Drawing.Point(764, 64) Me.btntxtBemerkung.Name = "btntxtBemerkung" Me.btntxtBemerkung.Size = New System.Drawing.Size(21, 21) Me.btntxtBemerkung.TabIndex = 10 ' '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(49, 78) Me.LabelVIBeachten.Name = "LabelVIBeachten" Me.LabelVIBeachten.Size = New System.Drawing.Size(176, 23) 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(40, 46) Me.PicVIBeachten.TabIndex = 58 Me.PicVIBeachten.TabStop = False Me.PicVIBeachten.Visible = False ' 'Dataset1BR ' Me.Dataset1BR.DataSetName = "NewDataSet" ' 'ContextMenu8 ' Me.ContextMenu8.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem9, Me.MenuItem10}) ' 'MenuItem9 ' Me.MenuItem9.Index = 0 Me.MenuItem9.Text = "Neuer Info-Empfänger" ' 'MenuItem10 ' Me.MenuItem10.Index = 1 Me.MenuItem10.Text = "Info-Empfänger löschen" ' 'DataSet5 ' Me.DataSet5.DataSetName = "NewDataSet" ' 'BtnHelp ' Me.BtnHelp.Image = CType(resources.GetObject("BtnHelp.Image"), System.Drawing.Image) Me.BtnHelp.Location = New System.Drawing.Point(8, 497) Me.BtnHelp.Name = "BtnHelp" Me.BtnHelp.Size = New System.Drawing.Size(24, 23) Me.BtnHelp.TabIndex = 60 ' 'pnlAddrMessage ' Me.pnlAddrMessage.BackColor = System.Drawing.Color.LightGoldenrodYellow Me.pnlAddrMessage.Controls.Add(Me.lblAddrmessage) Me.pnlAddrMessage.Controls.Add(Me.PBoxQuestion) Me.pnlAddrMessage.Location = New System.Drawing.Point(521, 107) Me.pnlAddrMessage.Name = "pnlAddrMessage" Me.pnlAddrMessage.Size = New System.Drawing.Size(277, 48) Me.pnlAddrMessage.TabIndex = 61 Me.pnlAddrMessage.Visible = False ' 'lblAddrmessage ' Me.lblAddrmessage.BackColor = System.Drawing.Color.LightGoldenrodYellow Me.lblAddrmessage.BorderStyle = System.Windows.Forms.BorderStyle.None Me.lblAddrmessage.Location = New System.Drawing.Point(4, 5) Me.lblAddrmessage.Multiline = True Me.lblAddrmessage.Name = "lblAddrmessage" Me.lblAddrmessage.ReadOnly = True Me.lblAddrmessage.Size = New System.Drawing.Size(225, 40) Me.lblAddrmessage.TabIndex = 62 ' 'PBoxQuestion ' Me.PBoxQuestion.BackgroundImage = CType(resources.GetObject("PBoxQuestion.BackgroundImage"), System.Drawing.Image) Me.PBoxQuestion.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch Me.PBoxQuestion.Location = New System.Drawing.Point(235, 4) Me.PBoxQuestion.Name = "PBoxQuestion" Me.PBoxQuestion.Size = New System.Drawing.Size(39, 41) Me.PBoxQuestion.TabIndex = 61 Me.PBoxQuestion.TabStop = False ' 'GroupBox20 ' Me.GroupBox20.Controls.Add(Me.txtInhaber) Me.GroupBox20.Location = New System.Drawing.Point(8, 42) Me.GroupBox20.Name = "GroupBox20" Me.GroupBox20.Size = New System.Drawing.Size(188, 87) Me.GroupBox20.TabIndex = 62 Me.GroupBox20.TabStop = False Me.GroupBox20.Text = "Inhaber-Adresse" ' 'txtInhaber ' Me.txtInhaber.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtInhaber.Dock = System.Windows.Forms.DockStyle.Fill Me.txtInhaber.Location = New System.Drawing.Point(3, 16) Me.txtInhaber.Name = "txtInhaber" Me.txtInhaber.ReadOnly = True Me.txtInhaber.ScrollBars = System.Windows.Forms.RichTextBoxScrollBars.Vertical Me.txtInhaber.Size = New System.Drawing.Size(182, 68) Me.txtInhaber.TabIndex = 2 Me.txtInhaber.Text = "" ' 'GroupBox21 ' Me.GroupBox21.Controls.Add(Me.txtZusteller) Me.GroupBox21.Location = New System.Drawing.Point(212, 42) Me.GroupBox21.Name = "GroupBox21" Me.GroupBox21.Size = New System.Drawing.Size(188, 87) Me.GroupBox21.TabIndex = 63 Me.GroupBox21.TabStop = False Me.GroupBox21.Text = "Zustelladresse" ' 'txtZusteller ' Me.txtZusteller.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtZusteller.Dock = System.Windows.Forms.DockStyle.Fill Me.txtZusteller.Location = New System.Drawing.Point(3, 16) Me.txtZusteller.Name = "txtZusteller" Me.txtZusteller.ReadOnly = True Me.txtZusteller.ScrollBars = System.Windows.Forms.RichTextBoxScrollBars.Vertical Me.txtZusteller.Size = New System.Drawing.Size(182, 68) Me.txtZusteller.TabIndex = 1 Me.txtZusteller.Text = "" ' 'frmDokumentbearbeitung ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(810, 532) Me.ControlBox = False Me.Controls.Add(Me.GroupBox21) Me.Controls.Add(Me.GroupBox20) Me.Controls.Add(Me.pnlAddrMessage) Me.Controls.Add(Me.LabelVIBeachten) Me.Controls.Add(Me.PicVIBeachten) Me.Controls.Add(Me.txtPartnerZusteller) 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.Controls.Add(Me.BtnHelp) 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 = "frmDokumentbearbeitung" Me.ShowInTaskbar = False Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Dokumentbearbeitung" CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DataSet4, System.ComponentModel.ISupportInitialize).EndInit() Me.TabControl2.ResumeLayout(False) Me.TabPage3.ResumeLayout(False) Me.GroupBox12.ResumeLayout(False) Me.GroupBox10.ResumeLayout(False) CType(Me.DokWertList, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox3.ResumeLayout(False) Me.GroupBox1.ResumeLayout(False) Me.GroupBox2.ResumeLayout(False) Me.TabPage4.ResumeLayout(False) Me.GroupBox7.ResumeLayout(False) CType(Me.InfoMeldungList, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox6.ResumeLayout(False) CType(Me.ZuordnungList, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox5.ResumeLayout(False) CType(Me.ColdList, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox4.ResumeLayout(False) Me.GroupBox4.PerformLayout() CType(Me.DateTimePicker2, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage5.ResumeLayout(False) Me.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.TabPage1.ResumeLayout(False) Me.GroupBox11.ResumeLayout(False) Me.GroupBox11.PerformLayout() Me.TabPage7.ResumeLayout(False) Me.TabControl1.ResumeLayout(False) Me.TabPage8.ResumeLayout(False) Me.GroupBox16.ResumeLayout(False) Me.GroupBox16.PerformLayout() Me.GroupBox17.ResumeLayout(False) CType(Me.DokWertListBR, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage9.ResumeLayout(False) Me.GroupBox13.ResumeLayout(False) CType(Me.InFoMeldungListBR, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox14.ResumeLayout(False) CType(Me.ZuordnunglistBR, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox15.ResumeLayout(False) CType(Me.coldlistbr, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage10.ResumeLayout(False) Me.pnlBerechtigungenBR.ResumeLayout(False) CType(Me.DokumentFunktionenListBR, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox18.ResumeLayout(False) Me.GroupBox19.ResumeLayout(False) CType(Me.Notizlistbr, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PicVIBeachten, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Dataset1BR, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DataSet5, System.ComponentModel.ISupportInitialize).EndInit() Me.pnlAddrMessage.ResumeLayout(False) Me.pnlAddrMessage.PerformLayout() CType(Me.PBoxQuestion, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox20.ResumeLayout(False) Me.GroupBox21.ResumeLayout(False) Me.ResumeLayout(False) Me.PerformLayout() End Sub #End Region #Region "Deklarationen" Dim txtBemerkungVerantwortlicher As String Public 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 Public 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_KopyErsetzDokBez As String Dim m_KopyErsetzDokDatum As String Dim m_KopyDokErsetzten As Boolean = False 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 Property EditDokumentidbr() As String Get Return DokumentIDBR End Get Set(ByVal Value As String) DokumentIDBR = 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 m_KopyDokID As String = "" Property PropKopyDokID() As String Get Return m_KopyDokID End Get Set(ByVal Value As String) m_KopyDokID = Value End Set End Property Dim m_IsPDF As Boolean = False Property IsPdf As Boolean Get Return m_IsPDF End Get Set(value As Boolean) m_IsPDF = value End Set End Property 'Property PropKopyDokErsetzten() As Boolean ' Get ' Return m_KopyDokErsetzten ' End Get ' Set(ByVal Value As Boolean) ' m_KopyDokErsetzten = Value ' End Set 'End Property Dim savestatus As Integer Dim firststatus As Integer Dim saveverantwortlicher As Integer 'hutter 2005-01-28 Dim SaveBM Dim validationerror As Boolean = False 'EDEX Banklagernd Dim Check_Existing_Adresse As Boolean = False Dim Use_BL_Status As Boolean = False #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 tbp0 As New TabPage() Dim tbp1 As New TabPage() Dim tbp2 As New TabPage() Dim tbp3 As New TabPage() Dim tbp4 As New TabPage() Dim tbp5 As New TabPage() ' Bedingte Retournierung ' SHU 29.02.2004 Dim Doktyp As New edokadb.clsDokumenttyp() Dim doc As New edokadb.clsDokument() Dim BedingteRetournierung As Boolean = False Dim NewDokumentIDBR As String Dim DokumentIDBR As String Dim Notizenbr As DataTable Dim Dokumentersetzenbr As DataTable Dim Dokumentzuorndungenbr As DataTable Dim DokumentInfoMeldungenbr As DataTable Dim DokumentFunktionenbr As New DataTable() Dim ErsetzenMoeglichbr As Boolean = False Dim DokumenttypNrBr As Integer Dim SaveStatusBR As Integer Dim progress As New frmProgress() 'EDEX_Dokumentpakete Dim m_edex_folgestatus As Integer = 0 Property Edex_Folgestatus() As Integer Get Return m_edex_folgestatus End Get Set(ByVal Value As Integer) m_edex_folgestatus = Value End Set End Property #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 'Rel 4.03 - BaseTrefferliste initialisieren Me.BaseTrefferliste = Nothing End Sub 'Rel. 4.03 Neue New-Methode, damit am Schluss die Trefferliste aktualisiert werdeen kann Dim BaseTrefferliste As frmTrefferliste Private Sub frmDokumentbearbeitung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load progress.Bar1a.Value = 10 progress.Info.Text = "Vorbereitung Dokumenterstellung" progress.Refresh() 'Rel 4.03 progress.MdiParent = Me.MdiParent progress.TopMost = True 'Rel 4.03 progress.Show() progress.Refresh() tbp0 = Me.TabControl2.TabPages(0) tbp1 = Me.TabControl2.TabPages(1) tbp2 = Me.TabControl2.TabPages(2) tbp3 = Me.TabControl2.TabPages(3) tbp4 = Me.TabControl2.TabPages(4) Me.TabControl2.TabPages.Clear() Me.TabControl2.TabPages.Add(tbp0) Me.TabControl2.TabPages.Add(tbp1) Me.TabControl2.TabPages.Add(tbp2) Me.TabControl2.TabPages.Add(tbp3) progress.Bar1a.Value = 20 progress.Refresh() Me.On_Load = True w.save_stv = Globals.stv If Me.CreateDocument Then Formular_Laden_Create_Document() Me.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 If Me.txtPartnerInhaber.Text = " 0 " Then Me.txtPartnerInhaber.Text = "" Me.txtPartnerInhaberNr.Text = f.PartnerNr Me.txtPartnerZusteller.Text = Me.get_partnerzusteller(f.PartnerNr) Me.TabControl2.Enabled = True Me.VIBeachten = f.VIBeachten f.Dispose() 'EDEX Banklagernd 'Me.progress.Hide() Me.Banklagernd_Check() Else MyMsg.show_standardmessage(30, MsgBoxStyle.Critical) Me.Close() End If 'ObjPerson check_other_adresses(Me.Partnernr) Else 'rel 4.03 ' progress.Hide() ' btnPartnerInhaber_Click(sender, e) End If 'Objeperson If DivFnkt.PartnerTyp(Val(Me.txtPartnerInhaberNr.Text)) = EDOKA.clsDivFnkt.ENUM_Partnertyp.EDOKA_Interessent Then 'If Val(Me.txtPartnerInhaberNr.Text) > 91000000 Then Me.cbKube.SelectedValue = Globals.MitarbeiterNr End If Me.cbmoeglicheStati.Visible = False Me.cbsave.Visible = False Else Formular_laden_Edit_Document() Me.progress.Bar1a.Value = 90 progress.Refresh() 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 'ObjPerson check_other_adresses(Me.Partnernr) If Me.BarcodeID <> "" Or Me.Dokumentinfobearbeiten = True Then Me.cdokumentwerteanzeigen.Visible = False Else Me.cdokumentwerteanzeigen.Visible = True End If ' Bedingte Retournierung ' SHU 02.03.2004 If BedingteRetournierung = True Then Bedingte_Retournierung() End If Me.progress.Bar1a.Value = 100 progress.Refresh() 'Bedingte Retournierung Ende 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 'Rel. 4.1 - Adresse versandfähig If Me.Partnernr <> "" Then If DivFnkt.Check_Versandfahigkeit(Me.Partnernr) = False Then MyMsg.show_standardmessage(50102, MsgBoxStyle.Exclamation) End If End If If m_KopyDokErsetzten = True Then Set_DokumentZuErsetzen() End If 'Rel. 4.03 Abfrage nach event shown durchführen 'If BedingteRetournierung = True Then ' progress.Hide() ' Me.Visible = True ' If MyMsg.Show_HinweisMessage(Me.Profilnr, 6, 121, 1) = False Then ' Exit Sub ' End If 'End If Try 'progress.Close() 'progress.Dispose() Catch End Try Me.Cursor = System.Windows.Forms.Cursors.Default 'Rel 4.03 'If Me.Partnernr = "" Then RaiseEvent show_partner() 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.pnlBerechtigungenBR.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() 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() conn.CloseConnection(True) w.Save_Dokument = doc.SelectOne Me.Dokumenttypnr = doc.iDokumenttypnr.Value DokumentID = doc.sDokumentid.Value Load_Defaults() ' Bedingte Retournierung ' SHU 03.03.2004 ' Bedingte Retournierung ausschalten, sofern beim auslöserdokument keine Dokumentid vorhanden ist Try If doc.sBedRDokumentid.Value Is System.DBNull.Value Then Else If Me.BedingteRetournierung = True And doc.sBedRDokumentid.Value = "" Then Me.BedingteRetournierung = False End If Catch End Try 'Bedingte Retournierung Ende '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(Me.DokumentID) w.save_dokumentersetzen = Me.Dokumentersetzen 'w.save_dokumentersetzen = Dokumentersetzen_Laden(Me.DokumentID) Me.ColdList.DataSource = Me.Dokumentersetzen DivFnkt.SpaltenTitel_Aktualisieren(Me.ColdList, Me.Dokumentersetzen, "dokumentersetzen") Me.Notizen = Notizen_Laden(Me.DokumentID) 'Rel. 4.03 Daten kopieren und nicht als Referenz w.Save_Notizen = Me.Notizen.Copy ' w.Save_Notizen = Notizen_Laden(Me.DokumentID) 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.DokumentID)) 'hutter 2005-01-28 DivFnkt.Bezeichnung_Feldwert(Me.DataSet1.Tables(0), False) 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.FilterActive = True 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 check_other_adresses(ByVal nrpar00 As String) As Boolean If nrpar00 = "" Then Return False Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) Try scmCmdToExecute.CommandText = "dbo.SP_Check_Other_Addr" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@showmessage", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.Parameters.Add(New SqlParameter("@messagenr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) Globals.conn.OpenConnection() scmCmdToExecute.ExecuteNonQuery() Globals.conn.CloseConnection(True) If scmCmdToExecute.Parameters("@showmessage").Value = 1 Then Me.pnlAddrMessage.Visible = True Me.lblAddrmessage.Text = MyMsg.Get_Meldungstext(scmCmdToExecute.Parameters("@messagenr").Value) Else Me.pnlAddrMessage.Visible = False End If Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("SP_Check_Other_Addr::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try Try Dim mypartner As New edokadb.clsMyPartner Dim partner As New DataTable partner = mypartner.Partner_Detail(Me.Partnernr) Me.txtInhaber.Text = "" Me.txtInhaber.Text = Me.txtInhaber.Text + partner.Rows(0).Item("d1").ToString + vbCrLf Me.txtInhaber.Text = Me.txtInhaber.Text + partner.Rows(0).Item("d2").ToString + vbCrLf Me.txtInhaber.Text = Me.txtInhaber.Text + partner.Rows(0).Item("d3").ToString + vbCrLf Me.txtInhaber.Text = Me.txtInhaber.Text + partner.Rows(0).Item("d4").ToString + vbCrLf Me.txtInhaber.Text = Me.txtInhaber.Text + partner.Rows(0).Item("d5").ToString + vbCrLf Me.txtInhaber.Text = Me.txtInhaber.Text + partner.Rows(0).Item("d6").ToString + vbCrLf Me.txtInhaber.Text = Me.txtInhaber.Text + partner.Rows(0).Item("d7").ToString + vbCrLf Dim s As String = partner.Rows(0).Item("h1").ToString + partner.Rows(0).Item("h2").ToString + partner.Rows(0).Item("h3").ToString + partner.Rows(0).Item("h4").ToString If s = "" Then If Me.txtZusteller.Text = "" Then Me.txtZusteller.Text = Me.txtInhaber.Text Else Me.txtZusteller.Text = "" Me.txtZusteller.Text = Me.txtZusteller.Text + partner.Rows(0).Item("h1").ToString + vbCrLf Me.txtZusteller.Text = Me.txtZusteller.Text + partner.Rows(0).Item("h2").ToString + vbCrLf Me.txtZusteller.Text = Me.txtZusteller.Text + partner.Rows(0).Item("h3").ToString + vbCrLf Me.txtZusteller.Text = Me.txtZusteller.Text + partner.Rows(0).Item("h4").ToString + vbCrLf Me.txtZusteller.Text = Me.txtZusteller.Text + partner.Rows(0).Item("h5").ToString + vbCrLf Me.txtZusteller.Text = Me.txtZusteller.Text + partner.Rows(0).Item("h6").ToString + vbCrLf Me.txtZusteller.Text = Me.txtZusteller.Text + partner.Rows(0).Item("h7").ToString + vbCrLf End If Catch ex As Exception End Try End Function Private Function Dokumentersetzen_Laden(ByVal dokumentid As String) As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.sp_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, 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(ByVal dokumentid As String) As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.SP_Dokument_Notizen_select" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection Try If Me.CreateDocument Then scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "")) Else scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) End If ' scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentID)) sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function Private Function Dokumentzuordnungen_Laden(ByVal dokumentid As String) 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, 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(ByVal dokumentid As String) As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.SP_Dokumentinfomeldung_select" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection Try If Me.CreateDocument Then scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "")) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumenttypnr)) Else scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) End If sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception MsgBox("Dokumentinfomeldungen_laden " + 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(ByVal dokumentid As String) As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.SP_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 'objperson 'objDokumentWert = avqwerte.getAvaloqDokumentWertByName(dtToReturn.Rows(i).Item(0)) Try objDokumentWert = avqwerte.getAvaloqDokumentWertByName(avqwerte.ADokumentwerte, Me.DokWertList.Item(i, 0), Me.DokWertList.Item(i, 12)) Catch End Try '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 Public Sub Formular_Laden_Create_Document() Try NewDokumentID = DivFnkt.Generate_Key() Load_Defaults() w.save_historystatus = 0 Catch ex As Exception MsgBox("Formular_Laden_Create_Document" + ex.Message) TKBLib.Errorhandling.TraceHelper.Msg("EdokaApp.frmDokumentBearbeitung.Formular_Laden_Create_Document(...)", ex.Message & ex.StackTrace, TraceLevel.Error) Throw ex End Try End Sub Private Sub Load_Defaults() Try Me.SqlConnection1.ConnectionString = Globals.sConnectionString 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 Me.pnlBerechtigungenBR.Visible = False End If ' Bedingte Retournierung ' SHU 02.03.2004 Try If Doktyp.iDoktypbedingteretournierung.Value > 0 Then 'And Me.CreateDocument = True Then Me.BedingteRetournierung = True Me.TabControl2.TabPages.Add(Me.tbp4) 'If Globals.dokumentid_changedbr = True Then 'MyMsg.show_standardmessage(243, MsgBoxStyle.Information) 'End If End If Catch End Try 'Bedingte Retournierung Ende Me.progress.Bar1a.Value = 30 progress.Refresh() 'Dokumenttyp-Daten If Me.CreateDocument = True Then If DivFnkt.Ist_Berechtigt(Doktyp.iDokumenttypnr.Value, Globals.MitarbeiterNr, 0, 0, 2, 0, 0, 1) Then Me.cvertraulich.Visible = True Me.Label18.Visible = True Me.cvertraulich.Checked = Doktyp.bVertrauliches_dokument.Value = True Me.cVertraulichBR.Visible = True Me.Label18BR.Visible = True Me.cVertraulichBR.Checked = Me.cvertraulich.Checked Else Me.cvertraulich.Checked = False Me.cvertraulich.Visible = False Me.Label18.Visible = False Me.cVertraulichBR.Checked = False Me.cVertraulichBR.Visible = False Me.Label18BR.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 Me.cVertraulichBR.Visible = True Me.Label18BR.Visible = True Me.cVertraulichBR.Checked = Me.cvertraulich.Checked Else Me.cvertraulich.Checked = False Me.cvertraulich.Visible = False Me.Label18.Visible = False Me.cVertraulichBR.Checked = False Me.cVertraulichBR.Visible = False Me.Label18BR.Visible = False End If End If Me.progress.Bar1a.Value = 40 progress.Refresh() Me.txtBezeichnung.Text = Doktyp.sBezeichnung.Value Me.SqlDataAdapter1.SelectCommand.Parameters("@Dokumentid").Value = "" Me.SqlDataAdapter1.SelectCommand.Parameters("@Dokumenttypnr").Value = Me.Dokumenttypnr Me.SqlDataAdapter1.SelectCommand.Parameters("@CreateNew").Value = 1 Me.SqlDataAdapter1.Fill(Me.DataSet1) 'hutter 2005-01-28 DivFnkt.Bezeichnung_Feldwert(Me.DataSet1.Tables(0), True) 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) 'ObjePerson If Not IsNothing(Me.avqwerte) Then For i = 0 To Me.DataSet1.Tables(0).Rows.Count - 1 Dim objDokumentWert As AvaloqDokumentWert If Not Me.DokWertList.Item(i, 0) Is System.DBNull.Value Then 'objperson objDokumentWert = avqwerte.getAvaloqDokumentWertByName(avqwerte.ADokumentwerte, Me.DokWertList.Item(i, 0), Me.DokWertList.Item(i, 12)) '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 End If '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.FilterActive = True Me.mcbstatus = New MultiComboBox(Me.cbdokumentstatus) Me.mcbstatus.CheckNullValue = True Me.mcbstatus.NullValueMessage = MyTxt.gettext(18) Me.mcbstatus.DisplayColumnName = "Bezeichnung" Me.mcbstatus.ValueColumnName = "dokumentstatusnr" Me.mcbstatus.Fill_Data(Generic_Select(2), False) Me.mcbkube = New MultiComboBox(Me.cbKube) Me.mcbkube.CheckNullValue = True Me.mcbkube.NullValueMessage = MyTxt.gettext(18) Me.mcbkube.DisplayColumnName = "name" Me.mcbkube.ValueColumnName = "mitarbeiternr" Me.mcbkube.Fill_Data(Generic_Select(8), False) 'Postzustellung Me.SqlDataAdapter2.SelectCommand.Parameters("@mandantnr").Value = Globals.MandantNr Me.SqlDataAdapter2.SelectCommand.Parameters("@sprache").Value = Globals.Sprache Me.SqlDataAdapter2.Fill(Me.DataSet2) mcbpostzustellung = New MultiComboBox(Me.cbPostzustellung) Me.mcbpostzustellung.DisplayColumnName = "bezeichnung" Me.mcbpostzustellung.ValueColumnName = "nreintrag" Dim d As DataTable d = Me.DataSet2.Tables(0) Me.mcbpostzustellung.Fill_Data(d, False) Me.mcbpostzustellung.Enabled = True Me.mcbpostzustellung.CheckNullValue = False Me.progress.Bar1a.Value = 50 progress.Refresh() mcbzust = New MultiComboBox(Me.cbzust) Me.mcbzust.DisplayColumnName = "name" Me.mcbzust.ValueColumnName = "mitarbeiternr" Me.mcbzust.Fill_Data(Generic_Select(3), False) ii = Globals.MitarbeiterNr Me.mcbzust.SelectedValue = ii 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 Me.progress.Bar1a.Value = 60 progress.Refresh() Me.zu_retournieren = Doktyp.bZu_retournieren.Value 'Dokument ersetzen Me.Dokumentersetzen = Dokumentersetzen_Laden(Me.DokumentID) w.save_dokumentersetzen = Me.Dokumentersetzen 'w.save_dokumentersetzen = Dokumentersetzen_Laden(Me.DokumentID) 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.DokumentID) Me.Notizlist.DataSource = Notizen DivFnkt.SpaltenTitel_Aktualisieren(Me.Notizlist, Me.Notizen, "notizen") 'Dokumentzuordnungen Me.Dokumentzuorndungen = Dokumentzuordnungen_Laden(Me.DokumentID) w.Save_Dokumentzuordnungen = Me.Dokumentzuorndungen ' w.Save_Dokumentzuordnungen = Dokumentzuordnungen_Laden(Me.DokumentID) Me.ZuordnungList.DataSource = Me.Dokumentzuorndungen DivFnkt.SpaltenTitel_Aktualisieren(Me.ZuordnungList, Me.Dokumentzuorndungen, "dokumentzuordnungen") Me.ZuordnungList.Columns("aktiv").FilterText = True Me.ZuordnungList.FilterBar = False Me.ZuordnungList.Columns("zuordnungnr").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.ComboBox Dim dxx As New SqlDataAdapter("Select zuordnungnr, bezeichnung from zuordnung", Globals.sConnectionString) Dim dh As New DataSet() dxx.Fill(dh, "dd") Dim vv(100) For i = 0 To dh.Tables(0).Rows.Count - 1 vv(i) = New C1.Win.C1TrueDBGrid.ValueItem() vv(i).DisplayValue = dh.Tables(0).Rows(i).Item("bezeichnung") vv(i).Value = dh.Tables(0).Rows(i).Item("zuordnungnr") Me.ZuordnungList.Columns("zuordnungnr").ValueItems.Values.Add(vv(i)) Me.ZuordnungList.Columns("zuordnungnr").ValueItems.Translate = True Next Me.progress.Bar1a.Value = 70 progress.Refresh() 'Dokumentinfomeldungen Me.InfoMeldungList.FetchRowStyles = True Me.DokumentInfoMeldungen = Dokumentinfomeldungen_laden(Me.DokumentID) w.Save_Dokumentinfomeldungen = Me.DokumentInfoMeldungen ' w.Save_Dokumentinfomeldungen = Dokumentinfomeldungen_laden(Me.DokumentID) Me.InfoMeldungList.DataSource = Me.DokumentInfoMeldungen Me.InfoMeldungList.Columns("aktiv").FilterText = True DivFnkt.SpaltenTitel_Aktualisieren(Me.InfoMeldungList, Me.DokumentInfoMeldungen, "Dokumentinfomeldung") 'Team Me.mcbteam = New MultiComboBox(Me.cbteam) Me.mcbteam.CheckNullValue = True Me.mcbteam.NullValueMessage = MyTxt.gettext(18) Me.mcbteam.DisplayColumnName = "bezeichnung" Me.mcbteam.ValueColumnName = "teamnr" refresh_team() Me.mcbteam.SelectedIndex = 0 Me.mcbstatus.SelectedIndex = 0 Me.savestatus = Me.mcbstatus.SelectedValue If Edex_Folgestatus <> 0 Then Me.mcbstatus.SelectedIndex = Edex_Folgestatus 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 'Rel. 3.7 SHU If Doktyp.bBezeichnungmut.Value = True Then Me.txtBezeichnung.ReadOnly = False Else Me.txtBezeichnung.ReadOnly = True End If '2007-02-14_1041: RS: setzt standardwerte von automatisiert von avaloq her chond SetDefaultValues() '20210208 - DokTyp "vernichten" Doktyp.Dispose() Catch ex As Exception TKBLib.Errorhandling.TraceHelper.Msg("EdokaApp.frmDokumentBearbeitung.Load_Defaults()", ex.Message & ex.StackTrace, TraceLevel.Error) Throw ex End Try End Sub Private Sub SetDefaultValues() If Not avqwerte Is Nothing Then Dim gl As GenericList Try 'Statuswechsel - Status 1 nach vorne setzen Try If avqwerte.Statuswechsel = True Then mcbstatus.SelectedIndex = 1 Catch ex As Exception End Try 'Postzustellung übernehmen Try If avqwerte.Postzustellung <> "" Then For i = 0 To Me.mcbpostzustellung.Items.Count - 1 gl = Me.mcbpostzustellung.Items(i) If gl.Display = avqwerte.Postzustellung Then mcbpostzustellung.SelectedIndex = gl.Index Exit For End If Next mcbpostzustellung.SelectedText = avqwerte.Postzustellung End If Catch ex As Exception End Try 'USLinks Try If avqwerte.USLinks <> "" Then For i = 0 To Me.mcbunterschriftlinks.Items.Count - 1 gl = Me.mcbunterschriftlinks.Items(i) If UCase(gl.Display).IndexOf(UCase(avqwerte.USLinks)) > 0 Then Me.mcbunterschriftlinks.SelectedIndex = gl.Index Exit For End If Next End If Catch ex As Exception End Try 'USRechts Try If avqwerte.USRechts <> "" Then For i = 0 To Me.mcbunterschriftrechts.Items.Count - 1 gl = Me.mcbunterschriftrechts.Items(i) If UCase(gl.Display).IndexOf(UCase(avqwerte.USRechts)) > 0 Then Me.mcbunterschriftrechts.SelectedIndex = gl.Index Exit For End If Next End If Catch ex As Exception End Try 'Zustaendig Try If avqwerte.Zustaendig <> "" Then If UCase(avqwerte.Zustaendig) = "KUBE" Then Me.rbZustaendigKube.Checked = True Me.RBZustaendigZustaendiger.Checked = False End If For i = 0 To Me.mcbzust.Items.Count - 1 gl = Me.mcbzust.Items(i) If UCase(gl.Display).IndexOf(UCase(avqwerte.USRechts)) > 0 Then Me.mcbzust.SelectedIndex = gl.Index Exit For End If Next End If Catch ex As Exception End Try 'Verantwortlich Try If avqwerte.Verantwortlich <> "" Then For i = 0 To Me.mcbverantwortlich.Items.Count - 1 gl = Me.mcbverantwortlich.Items(i) If UCase(gl.Display).IndexOf(UCase(avqwerte.USRechts)) > 0 Then Me.mcbverantwortlich.SelectedIndex = gl.Index Exit For End If Next End If Catch ex As Exception End Try 'Dokumentdatum Try If avqwerte.Dokumentdatum <> "" Then DateTimePicker1.Value = Convert.ToDateTime(avqwerte.Dokumentdatum) Catch ex As Exception End Try '20080409 RGL Anpassung zurück, da diese Optionen nicht angeliefert werden 'If Me.Partnerwechsel = True Then Me.btnPartnerInhaber.Enabled = True Else Me.btnPartnerInhaber.Enabled = False 'If Me.Statuswechsel = True Then Me.cbdokumentstatus.Enabled = True Else Me.cbdokumentstatus.Enabled = False 'If Me.Verantwortlicherwechsel = True Then Me.cbVerantwortlich.Enabled = True Else Me.cbVerantwortlich.Enabled = False 'If Not IsNothing(Me.Zustaendiger) Then ' mcbzust.SelectedValue = Me.Zustaendiger 'End If 'If Not IsNothing(Me.UnterschriftLinks) Then ' mcbunterschriftlinks.SelectedValue = Me.UnterschriftLinks 'End If 'If Not IsNothing(Me.Unterschriftrechts) Then ' mcbunterschriftrechts.SelectedValue = Me.Unterschriftrechts 'End If 'If Not IsNothing(Me.Verantwortlicher) Then ' mcbverantwortlich.SelectedValue = Me.Verantwortlicher 'End If Catch ex As Exception TKBLib.Errorhandling.TraceHelper.Msg("EdokaApp.frmDokumentBearbeitung.SetDefaultValues()", ex.Message & ex.StackTrace, TraceLevel.Error) Throw ex End Try End If End Sub Public Sub refresh_team() Dim tt As New DataTable() tt = Generic_Select(7) Me.mcbteam.DataSource = Nothing Me.mcbteam.Items.Clear() If tt.Rows.Count > 1 Then Me.mcbteam.Fill_Data(tt, False) Me.mcbteam.Enabled = True Else Me.mcbteam.Fill_Data(tt, False) Me.mcbteam.Enabled = False End If tt.Dispose() End Sub Private Sub mcbzust_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles mcbzust.Leave If Me.On_Load Then Exit Sub refresh_team() End Sub Private Sub mcbkube_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles mcbkube.Leave If Me.On_Load Then Exit Sub refresh_team() End Sub #End Region #Region "Formularhandling" Private Sub Set_Feldwert() Try 'Me.DokWertList.Columns("feldwert").Value = Me.ValueList.Columns(0).Value 'Me.DokWertList.Columns("feldwert").Value = Me.Datumselect.Text Catch End Try End Sub Private Sub btnPartnerInhaber_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPartnerInhaber.Click Dim f As New FrmPartnersuche() f.profilnr = Me.Profilnr f.Dokumenttypnrnr = Me.Dokumenttypnr f.NurAbfrage = False f.ShowDialog() If f.PartnerNr <> 0 Then If DivFnkt.Ist_Berechtigt(Me.Dokumenttypnr, Globals.MitarbeiterNr, f.PartnerNr, "", 2, 0, 0, 0) Then If Me.txtPartnerInhaber.Text <> "" And Me.txtPartnerInhaber.Text <> Str(f.PartnerNr) + " " + f.PartnerKurzbezeichnnung Then MyMsg.show_standardmessage(73, MsgBoxStyle.Information) End If Me.txtPartnerInhaber.Text = Str(f.PartnerNr) + " " + f.PartnerKurzbezeichnnung Me.txtPartnerInhaberNr.Text = f.PartnerNr Me.txtPartnerZusteller.Text = Me.get_partnerzusteller(f.PartnerNr) Me.TabControl2.Enabled = True Me.RBZustaendigZustaendiger.Checked = True Me.mcbkube.DataSource = Nothing Me.mcbkube.Text = "" Me.mcbkube.Items.Clear() Me.Partnernr = f.PartnerNr Me.VIBeachten = f.VIBeachten FillMcbVerantwortlich() 'EDEX Banklagernd Banklagernd_Check() Else MyMsg.show_standardmessage(30, MsgBoxStyle.Critical) Me.Close() End If If Me.VIBeachten = True Then Me.PicVIBeachten.Visible = True Me.LabelVIBeachten.Visible = True Else Me.PicVIBeachten.Visible = False Me.LabelVIBeachten.Visible = False End If 'Rel. 4.1 - Adresse versandfähig If Me.Partnernr <> "" Then If DivFnkt.Check_Versandfahigkeit(Me.Partnernr) = False Then MyMsg.show_standardmessage(50102, MsgBoxStyle.Exclamation) End If End If check_other_adresses(Me.Partnernr) 'Rel 5.6 If DivFnkt.Check_Dokumenterstellung(1, Me.Dokumenttypnr, Me.Partnernr) = 1 Then Me.Close() End If End If End Sub Private Sub Datumselect_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Set_Feldwert() End Sub Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click If Me.CreateDocument = False Then 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) If Me.BedingteRetournierung = True Then If Globals.DokumentColdIndex_ChangedBR Then Archivfnkt.Restore_Coldindex(Globals.general_dsbr.Tables(0), Me.DokumentIDBR) If Globals.dokumentid_changedbr Then Archivfnkt.change_dokumentid(Me.DokumentIDBR, Globals.Dokumentidaltbr) Dim dok As New edokadb.clsDokument() dok.cpMainConnectionProvider = conn dok.sDokumentid = New SqlString(CType(Globals.Dokumentidalt, String)) dok.SelectOne() dok.sBedRDokumentid = New SqlString(CType(Globals.Dokumentidaltbr, String)) conn.OpenConnection() dok.Update() conn.CloseConnection(True) End If End If Else Update_Bclabel(2) End If DivFnkt.Status_Dokumentbearbeitung(2, Me.DokumentID, False, "") If Me.BedingteRetournierung = True Then DivFnkt.Status_Dokumentbearbeitung(2, Me.DokumentIDBR, False, "") 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 106 scmCmdToExecute.CommandText = "sp_dokumentfunktion_zugewiesen" Case 109 scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_coldindex" Case 110 scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_dokumentwerte_select" Case 112 scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_statushistory" Case 114 scmCmdToExecute.CommandText = "sp_archiv_getschema_doc" 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 106 scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.NewDokumentIDBR)) Case 110 scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentIDBR)) Case 109 scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentIDBR)) Case 112 scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentIDBR)) Case 114 scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumenttypnr)) 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" #End Region #Region "Notizen" Private Sub Notizlist_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Notizlist.MouseUp If Me.Notizen.Rows.Count = 0 Then Exit Sub Try Catch End Try End Sub Private Sub MnuDeleteNotiz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuDeleteNotiz.Click Try Me.Notizlist.Columns(5).Value = False Me.Notizlist.Refresh() Me.TabControl2.Select() Me.Notizlist.Select() Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub MnuNeueNotiz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuNeueNotiz.Click Dim f As New frmNotizen() f.Mutierer = Globals.MitarbeiterNr.ToString f.Notiz = "" f.Betreff = "" f.ShowDialog() If f.DialogResult = DialogResult.OK Then Dim rc As DataRowCollection Dim newrow As DataRow rc = Notizen.Rows Dim rowvals(Me.Notizen.Columns.Count - 1) As Object ' For i = 0 To Me.Notizen.Columns.Count - 1 ' MsgBox(Me.Notizen.Columns(i).Caption) ' Next rowvals(0) = System.DBNull.Value rowvals(2) = f.Betreff rowvals(3) = f.Notiz rowvals(5) = True 'Aktiv rowvals(6) = Now() 'erstellt_am rowvals(7) = Now() 'mutiert_am rowvals(8) = Globals.MitarbeiterNr 'mutierer rowvals(9) = Globals.MitarbeiterNr 'ersteller newrow = rc.Add(rowvals) Me.Notizlist.DataSource = Nothing Me.Notizlist.DataSource = Me.Notizen load_Mitarbeiter() DivFnkt.SpaltenTitel_Aktualisieren(Me.Notizlist, Me.Notizen, "notizen") ' Me.Notizlist.Refresh() Try For i = 0 To Me.Notizlist.Splits(0).Rows.Count - 1 If Me.Notizlist.Columns("betreff").CellText(i) = f.Betreff Then Me.Notizlist.Bookmark = i End If Next Catch End Try End If f.Hide() End Sub Private Sub MnuEditNotiz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuEditNotiz.Click Dim f As New frmNotizen() f.Betreff = Me.Notizlist.Columns("betreff").Value f.Notiz = Me.Notizlist.Columns("Notiz").Value f.Mutierer = Me.Notizlist.Columns("Mutierer").Text f.MutiertAm = Me.Notizlist.Columns("Mutiert_Am").Text f.ShowDialog() If f.DialogResult = DialogResult.OK Then Me.Notizlist.Columns("betreff").Value = f.Betreff Me.Notizlist.Columns("notiz").Value = f.Notiz Me.Notizlist.Columns("Mutierer").Value = Globals.MitarbeiterNr Me.Notizlist.Columns("Mutiert_Am").Text = Now() End If f.Dispose() End Sub Private Sub Notizlist_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Notizlist.DoubleClick MnuEditNotiz_Click(sender, e) End Sub #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 Dim i As Integer 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 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 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 If Me.DokWertList.Columns("Validierungsregel").Text <> "" Then ' If Me.DokWertList.Columns("Validierungsregel").Text <> "" And Me.DokWertList.Col = 2 Then If Not DivFnkt.Check_Fieldvalue(Me.DokWertList.Columns("feldwert").Text, Me.DokWertList.Columns("Validierungsregel").Text) Then Me.validationerror = True 'Exit Sub End If End If End If f.Dispose() End If End If Case Else End Select If Me.BedingteRetournierung = True Then For i = 0 To Me.DokWertListBR.Splits(0).Rows.Count - 1 If Me.DokWertListBR.Columns("bezeichnung").CellText(i) = Me.DokWertList.Columns("Bezeichnung").Text Then If Me.DokWertListBR.Columns("feldwert").CellText(i) = "" Then Me.DokWertListBR.Bookmark = i Me.DokWertListBR.Columns("feldwert").Text = Me.DokWertList.Columns("Feldwert").Text End If End If Next End If Me.Cursor = System.Windows.Forms.Cursors.Default Me.ActiveControl = Me.TabControl2 Me.ActiveControl = Me.DokWertList 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 'DivFnkt.test() Dim p As New edokadb.clsPartner() p.cpMainConnectionProvider = conn Try p.iNRPAR00 = New SqlInt32(CType(Trim(Me.txtPartnerInhaberNr.Text), Int32)) Catch ex As Exception MyMsg.show_standardmessage(205, MsgBoxStyle.Exclamation) p.Dispose() Exit Sub End Try p.SelectOne() If p.bSaldiert.Value = True Then If Doktyp.bVertrag.Value = True Then MyMsg.show_standardmessage(234, MsgBoxStyle.Critical) p.Dispose() Exit Sub End If End If p.Dispose() 'Objeperson If DivFnkt.PartnerTyp(Val(Me.txtPartnerInhaberNr.Text)) = EDOKA.clsDivFnkt.ENUM_Partnertyp.EDOKA_Interessent Then ' 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 'ObjPerson Dim erlaubt As Integer = DivFnkt.Erstellung_Erlaubt(Me.txtPartnerInhaberNr.Text, Me.Dokumenttypnr) Select Case erlaubt Case 0 Case 1 'Dokument nicht für BP MyMsg.show_standardmessage(60000, MsgBoxStyle.Critical) Exit Sub Case 2 'DOkument nicht für Person MyMsg.show_standardmessage(60001, MsgBoxStyle.Critical) Exit Sub End Select Dim xdata As DataTable Dim s As String If Me.savestatus = Me.mcbstatus.SelectedValue And Me.savestatus = Me.firststatus Then If MyMsg.Show_HinweisMessage(Me.Profilnr, 2, 71, 2) = False Then Exit Sub End If End If If Me.txtPartnerInhaber.Text = "" Then MyMsg.show_standardmessage(205, MsgBoxStyle.Critical) Exit Sub End If If Me.mcbverantwortlich.Text = "" Then MyMsg.show_standardmessage(208, MsgBoxStyle.Critical) Exit Sub End If 'EDEX Banklagernd If Me.Check_Existing_Adresse = True And Trim(Me.txtZustelladresse.Text) = "" Then MyMsg.show_standardmessage(610, MsgBoxStyle.Critical) Exit Sub End If If Check_Dokumentfunktionen() = False Then Exit Sub xdata = Me.DataSet1.Tables(0) For i = 0 To xdata.Rows.Count - 1 If xdata.Rows(i).Item("zwingend") Is System.DBNull.Value Then Else If xdata.Rows(i).Item("zwingend") = True Then If xdata.Rows(i).Item("feldwert") Is System.DBNull.Value Or xdata.Rows(i).Item("feldwert") = "" Then MyMsg.show_standardmessage(206, MsgBoxStyle.Critical) xdata.Dispose() Me.TabControl2.SelectedIndex = 0 Me.DokWertList.Focus() Exit Sub End If End If End If Next If Me.BedingteRetournierung = True Then xdata = Me.Dataset1BR.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.TabControl2.TabPages(4).Select() ' Me.TabControl2.TabPages(4).BringToFront() ' Me.TabControl2.TabPages(4).Focus() Me.TabControl2.SelectedIndex = 4 Me.TabControl1.SelectedIndex = 0 Me.DokWertListBR.Focus() xdata.Dispose() Exit Sub End If End If End If Next End If 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 DivFnkt.TraceLog("Start") Try Dokument_Bearbeiten(Me.CreateDocument) Catch ex As Exception MsgBox("Weiter_Click" + ex.Message) End Try Try 'Win32API.ShowWindow(Win32API.FindWindow("", ""), Win32API.SW_Maximize) 'Win32API.ShowWindow(h.HND, Win32API.SW_Maximize) 'Win32API.BringWindowToTop(w.HND) 'Win32API.SetActiveWindow(w.HND) Catch End Try 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 'rel 4.03 Win32API.ShowWindow(Globals.Apphandle, Win32API.SW_Minimze) Catch End Try End Sub Public Sub DoNoEdit() progress.Bar1a.Value = 10 progress.Info.Text = "Vorbereitung Dokumenterstellung" progress.Refresh() progress.Show() progress.Refresh() tbp0 = Me.TabControl2.TabPages(0) tbp1 = Me.TabControl2.TabPages(1) tbp2 = Me.TabControl2.TabPages(2) tbp3 = Me.TabControl2.TabPages(3) tbp4 = Me.TabControl2.TabPages(4) Me.TabControl2.TabPages.Clear() Me.TabControl2.TabPages.Add(tbp0) Me.TabControl2.TabPages.Add(tbp1) Me.TabControl2.TabPages.Add(tbp2) Me.TabControl2.TabPages.Add(tbp3) progress.Bar1a.Value = 20 progress.Refresh() Me.On_Load = True w.save_stv = Globals.stv If Me.CreateDocument Then Formular_Laden_Create_Document() Me.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 If Me.txtPartnerInhaber.Text = " 0 " Then Me.txtPartnerInhaber.Text = "" Me.txtPartnerInhaberNr.Text = f.PartnerNr Me.txtPartnerZusteller.Text = Me.get_partnerzusteller(f.PartnerNr) Me.TabControl2.Enabled = True Me.VIBeachten = f.VIBeachten f.Dispose() 'EDEX Banklagernd Me.progress.Hide() Me.Banklagernd_Check() Else MyMsg.show_standardmessage(30, MsgBoxStyle.Critical) Me.Close() End If Else Me.progress.Hide() 'btnPartnerInhaber_Click(sender, e) Exit Sub End If 'Objeperson If DivFnkt.PartnerTyp(Val(Me.txtPartnerInhaberNr.Text)) = EDOKA.clsDivFnkt.ENUM_Partnertyp.EDOKA_Interessent Then ' If Val(Me.txtPartnerInhaberNr.Text) > 91000000 Then Me.cbKube.SelectedValue = Globals.MitarbeiterNr End If Me.cbmoeglicheStati.Visible = False Me.cbsave.Visible = False Else Formular_laden_Edit_Document() Me.progress.Bar1a.Value = 90 progress.Refresh() 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 If Me.BarcodeID <> "" Or Me.Dokumentinfobearbeiten = True Then Me.cdokumentwerteanzeigen.Visible = False Else Me.cdokumentwerteanzeigen.Visible = True End If ' Bedingte Retournierung ' SHU 02.03.2004 If BedingteRetournierung = True Then Bedingte_Retournierung() End If Me.progress.Bar1a.Value = 100 progress.Refresh() 'Bedingte Retournierung Ende 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 'Rel. 4.1 - Adresse versandfähig If Me.Partnernr <> "" Then If DivFnkt.Check_Versandfahigkeit(Me.Partnernr) = False Then MyMsg.show_standardmessage(50102, MsgBoxStyle.Exclamation) End If End If If m_KopyDokErsetzten = True Then Set_DokumentZuErsetzen() End If If BedingteRetournierung = True Then progress.Hide() 'Me.Visible = True If MyMsg.Show_HinweisMessage(Me.Profilnr, 6, 121, 1) = False Then Exit Sub End If End If progress.Close() progress.Dispose() Dim p As New edokadb.clsPartner() p.cpMainConnectionProvider = conn p.iNRPAR00 = New SqlInt32(CType(Trim(Me.txtPartnerInhaberNr.Text), Int32)) p.SelectOne() If p.bSaldiert.Value = True Then If Doktyp.bVertrag.Value = True Then MyMsg.show_standardmessage(234, MsgBoxStyle.Critical) p.Dispose() Exit Sub End If End If p.Dispose() 'ObjPerson If DivFnkt.PartnerTyp(Me.txtPartnerInhaberNr.Text) = EDOKA.clsDivFnkt.ENUM_Partnertyp.EDOKA_Interessent Then '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 'ObjPerson Dim erlaubt As Integer = DivFnkt.Erstellung_Erlaubt(Me.txtPartnerInhaberNr.Text, Me.Dokumenttypnr) Select Case erlaubt Case 0 Case 1 'Dokument nicht für BP MyMsg.show_standardmessage(60000, MsgBoxStyle.Critical) Exit Sub Case 2 'DOkument nicht für Person MyMsg.show_standardmessage(60001, MsgBoxStyle.Critical) Exit Sub End Select Dim xdata As DataTable Dim s As String If Me.txtPartnerInhaber.Text = "" Then MyMsg.show_standardmessage(205, MsgBoxStyle.Critical) Exit Sub End If If Me.mcbverantwortlich.Text = "" Then MyMsg.show_standardmessage(208, MsgBoxStyle.Critical) Exit Sub End If 'EDEX Banklagernd If Me.Check_Existing_Adresse = True And Trim(Me.txtZustelladresse.Text) = "" Then MyMsg.show_standardmessage(610, MsgBoxStyle.Critical) Exit Sub End If If Check_Dokumentfunktionen() = False Then Exit Sub xdata = Me.DataSet1.Tables(0) For i = 0 To xdata.Rows.Count - 1 If xdata.Rows(i).Item("zwingend") Is System.DBNull.Value Then Else If xdata.Rows(i).Item("zwingend") = True Then If xdata.Rows(i).Item("feldwert") Is System.DBNull.Value Or xdata.Rows(i).Item("feldwert") = "" Then MyMsg.show_standardmessage(206, MsgBoxStyle.Critical) xdata.Dispose() Me.TabControl2.SelectedIndex = 0 Me.DokWertList.Focus() Exit Sub End If End If End If Next If Me.BedingteRetournierung = True Then xdata = Me.Dataset1BR.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.TabControl2.TabPages(4).Select() ' Me.TabControl2.TabPages(4).BringToFront() ' Me.TabControl2.TabPages(4).Focus() Me.TabControl2.SelectedIndex = 4 Me.TabControl1.SelectedIndex = 0 Me.DokWertListBR.Focus() xdata.Dispose() Exit Sub End If End If End If Next End If 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 DivFnkt.TraceLog("Start") Dokument_Bearbeiten(Me.CreateDocument) Try 'Win32API.ShowWindow(w.HND, Win32API.SW_Maximize) 'Win32API.BringWindowToTop(w.HND) 'Win32API.SetActiveWindow(w.HND) 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, "") If Me.BedingteRetournierung = True Then DivFnkt.Status_Dokumentbearbeitung(2, Me.DokumentIDBR, False, "") End If Me.Close() Globals.In_Bearbeitung = False Exit Sub End If 'EDEX Banklagernd w.SaveBLDossier = Me.Use_BL_Status w.txtPartner = Me.txtPartnerInhaber.Text w.txtDokumenttyp = Me.txtBezeichnung.Text 'w.ProgressBar.Info.Text = "Office-Dokument erstellen" w.ProgressBar.Show() w.ProgressBar.Bar1a.Value = 5 w.ProgressBar.Info.Text = "Dokumentdaten speichern" Application.DoEvents() w.txtBemerkung_Verantwortlicher = Me.txtBemerkungVerantwortlicher Me.Cursor = System.Windows.Forms.Cursors.WaitCursor Dim dbkey As New edokadb.clsMyKey_Tabelle() Dim docvor As New edokadb.clsOffice_vorlage() 'Dokumenttyp laden 'OfficeVorlage laden docvor.cpMainConnectionProvider = conn docvor.iOffice_vorlagenr = New SqlInt32(CType(Doktyp.iOffice_vorlagenr.Value, Int32)) docvor.SelectOne() 'Rel. OM2010 If DivFnkt.Get_Office_2010_Param(9) = "True" Then Dim i As Integer Dim f As New frmImportOffice2010(0) i = f.Get_Applikationnr(docvor.iOffice_vorlagenr.Value) If i <> 0 Then docvor.iAnwendungnr = New SqlInt32(CType(i, Int32)) End If f.Dispose() End If 'Dokument erstellen doc.cpMainConnectionProvider = conn If Me.CreateDocument Then doc.sDokumentid = New SqlString(CType(NewDokumentID, String)) DivFnkt.Status_Dokumentbearbeitung(1, doc.sDokumentid.Value, True, "") Me.NeueDokumentid = Me.NewDokumentID Else doc.sDokumentid = New SqlString(CType(Me.EditDokumentid, String)) doc.SelectOne() 'DivFnkt.Status_Dokumentbearbeitung(1, doc.sDokumentid.Value, False, "") Me.NeueDokumentid = Me.EditDokumentid 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)) doc.iStatus_edoka_batch_ausgang = Nothing 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(Doktyp.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(Doktyp.iAufbewahrungsfrist_elektronisch.Value, Int32)) doc.iAufbewahrung_phaysisch = New SqlInt32(CType(Doktyp.iAufbewahrungsfrist_physisch.Value, Int32)) doc.iBearbeitung_nach_abschluss = New SqlInt32(CType(Doktyp.iTage_mutation.Value, Int32)) doc.iBearbeitungszeit_in_minuten = New SqlInt32(CType(Doktyp.iDbearbeitungszeit.Value, Int32)) doc.iMonierung_in_tagen = New SqlInt32(CType(Doktyp.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)) 'Rel. Office 2010 If Me.CreateDocument Then Select Case docvor.iAnwendungnr.Value Case 1 doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".doc", String)) Case 2 doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".xls", String)) Case 3 doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".pdf", String)) Case 4 doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".docx", String)) Case 5 doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".docm", String)) Case 6 doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".dotx", String)) Case 7 doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".dotm", String)) Case 8 doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".xlsx", String)) Case 9 doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".xlsm", String)) Case 10 doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".xltx", String)) Case 11 doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".xltm", String)) Case 12 doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".pdf", String)) Case 13 doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".pdf", String)) Case Else End Select Else doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + System.IO.Path.GetExtension(doc.sDokumentname.Value), String)) End If '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 'Ebxe Rel. Office 2010 ' Release 4.0 KC FANummer 1,2,3 auch speichern (nur bei .edka) If Me.FANummer1 <> "" Then doc.sFANummer1 = New SqlString(CType(Me.FANummer1, String)) End If If Me.FANummer2 <> "" Then doc.sFANummer2 = New SqlString(CType(Me.FANummer2, String)) End If If Me.FANummer3 <> "" Then doc.sFanummer3 = New SqlString(CType(Me.FANummer3, 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)) Try doc.Insert() 'Objpers Avq_auth_extl_ref Try Dim avq_auth_extl_ref_inserted As Boolean = False For Each r As DataRow In avqwerte.Avq_extl_ref_dt.Rows If r.Item(0) = Me.Dokumenttypnr.ToString Then DivFnkt.Insert_Update_AVQ_ExtlRef(NewDokumentID, r.Item(2), 1, "") avq_auth_extl_ref_inserted = True End If Next If avq_auth_extl_ref_inserted = False Then For Each r As DataRow In avqwerte.Avq_extl_ref_dt.Rows If r.Item(0) = "" Then DivFnkt.Insert_Update_AVQ_ExtlRef(NewDokumentID, r.Item(2), 1, "") avq_auth_extl_ref_inserted = True End If Next End If Catch ex As Exception End Try Catch ex As Exception 'MsgBox(ex.Message) End Try t.Dispose() Dim statush As New Statushandling() statush.Status_Erstellen(doc.sDokumentid.Value, Me.Use_BL_Status) statush.Dispose() doc.iStatusnr = New SqlInt32(CType(get_current_Status(doc.sDokumentid.Value), Int32)) If Me.BedingteRetournierung = True Then doc.sBedRDokumentid = New SqlString(CType(Me.DokumentIDBR, String)) doc.bBedRRetourniert = New SqlBoolean(CType(False, Boolean)) Else doc.sBedRDokumentid = New SqlString(CType("", String)) 'doc.bBedRRetourniert = New SqlBoolean(CType(False, Boolean)) End If 'EDEX Banklagernd If Me.Use_BL_Status Then doc.bBl_scan = New SqlBoolean(CType(True, Boolean)) doc.bBldossier = New SqlBoolean(CType(True, Boolean)) Else doc.bBl_scan = New SqlBoolean(CType(False, Boolean)) doc.bBldossier = New SqlBoolean(CType(False, Boolean)) End If doc.Update() conn.CloseConnection(True) If Me.BedingteRetournierung = True Then Insert_Update_Bedingte_Retournierung(True) Else If Me.BedingteRetournierung = True Then doc.sBedRDokumentid = New SqlString(CType(Me.DokumentIDBR, String)) doc.bBedRRetourniert = New SqlBoolean(CType(False, Boolean)) Else doc.sBedRDokumentid = New SqlString(CType("", String)) doc.bBedRRetourniert = New SqlBoolean(CType(False, Boolean)) End If 'EDEX Banklagernd If doc.bBldossier.Value = True Then doc.bBl_scan = New SqlBoolean(CType(True, Boolean)) w.SaveBLDossier = True End If doc.Update() DivFnkt.Journal_Dokumentzugriff(Me.DokumentID, "Bearbeiten", 0, 0, "", "") conn.CloseConnection(True) If Me.BedingteRetournierung = True Then Insert_Update_Bedingte_Retournierung(False) End If 'conn.CloseConnection(True) DokumentID = doc.sDokumentid.Value 'If Globals.bckdokument = True Then ' Cold_Index_Bearbeiten(2, DokumentID) 'Else ' If Not Me.Use_BL_Status = True Then ' Cold_Index_Bearbeiten(1, DokumentID) ' If Me.zu_retournieren Then ' Cold_Index_Bearbeiten(2, DokumentID) ' End If ' Else ' If Me.zu_retournieren = False Then ' Cold_Index_Bearbeiten(2, DokumentID) ' Else ' Cold_Index_Bearbeiten(1, DokumentID) ' Cold_Index_Bearbeiten(2, DokumentID) ' End If ' End If 'End If If Globals.bckdokument = True Then Cold_Index_Bearbeiten(2, DokumentID) Else Cold_Index_Bearbeiten(1, DokumentID) If Me.zu_retournieren Then Cold_Index_Bearbeiten(2, DokumentID) End If End If Globals.PerfMon.insert_entry("'-- Begin Dokumentdaten sichern") DokumentID = doc.sDokumentid.Value Dokumentwerte_Sichern() w.ProgressBar.Bar1a.Value = 7 w.ProgressBar.Info.Text = "Dokumentdaten speichern " Notizen_Sichern() Dokumentzuordnungen_Sichern() Dokumentersetzen_Sichern() Dokumentinfomeldungen_Sichern() w.ProgressBar.Bar1a.Value = 9 w.ProgressBar.Info.Text = "Dokumentdaten speichern " Dokumentfunktionen_sichern() Status_History(doc.iStatusnr.Value, DokumentID) Globals.PerfMon.insert_entry("'-- Ende Dokumentdaten sichern") If Me.BarcodeID = "" And Me.Dokumentinfobearbeiten = False Then w.ProgressBar.Show() w.ProgressBar.Bar1a.Value = 11 w.ProgressBar.Info.Text = "Dokumentwerte zusammenstellen" 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 If Me.BedingteRetournierung = True Then w.Dokumentidbr = Me.DokumentIDBR Else w.Dokumentidbr = "" w.DokumentName = doc.sDokumentname.Value If Me.CreateDocument Then DivFnkt.TraceLog("Vor Dokumenterstellung") w.CreateDoc = True If Me.BarcodeID = "" Then If w.Create_Dokument_Before_Fill(doc.iDokumenttypnr.Value, xdata, s, m_KopyDokID) = False Then w.ProgressBar.Visible = False w.Restore(1) Me.Cursor = Cursors.Default Me.btnWeiter.Enabled = True DivFnkt.Status_Dokumentbearbeitung(2, Me.DokumentID, False, "") If Me.BedingteRetournierung = True Then DivFnkt.Status_Dokumentbearbeitung(2, Me.DokumentIDBR, False, "") End If Exit Sub End If End If DivFnkt.TraceLog("Nach Dokumenterstellung") 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 If Me.BedingteRetournierung = True Then If Globals.DokumentColdIndex_ChangedBR Then w.dokumentidaltbr = Globals.Dokumentidaltbr w.save_dokumentcoldindexbr = Globals.general_dsbr.Tables(Globals.general_dsbr.Tables.Count - 1).Copy w.Dokumentcoldindex_changedbr = Globals.DokumentColdIndex_ChangedBR w.dokumentid_changedbr = Globals.dokumentid_changedbr w.dokumentcoldindex_statusbr = Globals.Dokumentcoldindex_statusbr w.Ersetzte_Dokumente_Reaktivierenbr = Globals.ersetzte_dokumente_reaktivierenbr End If 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, "") If Me.BedingteRetournierung = True Then DivFnkt.Status_Dokumentbearbeitung(2, Me.DokumentIDBR, False, "") End If Dim objword As New Microsoft.Office.Interop.Word.Application() Try objword = GetObject(, "Microsoft.Office.Interop.Word.application") objword.Visible = True Catch End Try objword = Nothing 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, "") If Me.BedingteRetournierung = True Then DivFnkt.Status_Dokumentbearbeitung(2, Me.DokumentIDBR, False, "") End If Me.CreateDocument = False Me.btnWeiter.Enabled = True Me.Show() End If End If End If Else If Me.BarcodeID = "" And Me.Dokumentinfobearbeiten = False Then DivFnkt.TraceLog("Vor Dokument vervollständigen") w.Dokument_Vervollstaendigen(xdata) DivFnkt.TraceLog("Nach Dokument vervollständigen") 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) Try If w.IsPDF = True And w.IsPDFForm = False Then Words.Remove(w.DokumentName) End If Catch ex As Exception End Try If IsNothing(objSpooler) = False Then If objSpooler.NoEdit = 2 Then Words.Remove(w.DokumentName) End If End If Else If Not Me.Dokumentinfobearbeiten = True Then Update_Bclabel(1) End If DivFnkt.Status_Dokumentbearbeitung(2, Me.DokumentID, False, "") If Me.BedingteRetournierung = True Then DivFnkt.Status_Dokumentbearbeitung(2, Me.DokumentIDBR, False, "") End If End If End If xdata.Dispose() doc.Dispose() Globals.PerfMon.insert_entry(Me.DokumentID + " Ende Dokumenterstellung") Try w.ProgressBar.Close() w.ProgressBar.Dispose() Catch End Try 'Rel. 4.03 Trefferliste Updaten If Not Me.BaseTrefferliste Is Nothing Then Me.BaseTrefferliste.Update_Details_nach_bearbeitung() End If If w.IsPDF Then If w.IsPDFForm Then MyMsg.Show_HinweisMessage(Me.Profilnr, 7, 91006, 1) Else Me.IsPdf = True MyMsg.Show_HinweisMessage(Me.Profilnr, 8, 91005, 1) End If End If 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 (N): " + ex.Message + "-" + " " + Me.Dokumenttypnr.ToString + " " + Me.txtBezeichnung.Text + " " + Me.txtPartnerInhaber.Text + ": ") PerfMon.force_insert_entry("Dok (N): Wordlib Errormessage: " + w.Errormessage) w.ProgressBar.Visible = False Me.Cursor = Cursors.Default If Me.CreateDocument Then w.Restore(1) Else w.Restore(2) DivFnkt.Status_Dokumentbearbeitung(2, Me.DokumentID, False, "") If Me.BedingteRetournierung = True Then DivFnkt.Status_Dokumentbearbeitung(2, Me.DokumentIDBR, False, "") End If 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, ByVal dokumentid As String) Dim xdata As DataTable Dim cdata As DataTable cdata = COLD_Index_Sichern(indextyp, dokumentid) 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, ByVal dokumentid As String) As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.SP_Dokument_Cold_Index" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@indextyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, indextyp)) sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function Public Sub Dokumentwerte_Sichern() Dim xdata As DataTable xdata = Me.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("Notizen_Sichern" + 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("Dokumentersetzen_Sichern " + 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("Dokumentinfomeldungen_Sichern " + 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, ByVal dokumentid As String) Dim statush As New Statushandling() Dim i, i1 As Integer If Me.saveverantwortlicher = Me.mcbverantwortlich.SelectedValue And Me.savestatus = Me.mcbstatus.SelectedValue And Not Me.CreateDocument And Me.mcbstatus.SelectedIndex = 0 Then If Globals.dokumentcoldindex_status = "" Then statush.Dispose() Exit Function End If End If If Me.CreateDocument Then i = Me.mcbstatus.SelectedValue Me.mcbstatus.SelectedIndex = 0 statush.insert_history_status(get_current_Status(dokumentid), dokumentid, Globals.MitarbeiterNr) System.Threading.Thread.Sleep(1000) Me.mcbstatus.SelectedValue = i If Me.mcbstatus.SelectedIndex <> 0 Or Me.mcbverantwortlich.SelectedValue <> Me.saveverantwortlicher Then statush.insert_history_status(get_current_Status(dokumentid), dokumentid, Me.mcbverantwortlich.SelectedValue) End If w.send_statusmessage = True Else If Me.mcbstatus.SelectedValue <> Me.savestatus Or Me.mcbstatus.SelectedIndex <> 0 Or Globals.dokumentcoldindex_status <> "" Then i = Me.mcbstatus.SelectedValue Me.mcbstatus.SelectedIndex = 0 Me.savestatus = Me.mcbstatus.SelectedValue statush.insert_history_status(Me.mcbstatus.SelectedValue, dokumentid, Globals.MitarbeiterNr) w.send_statusmessage = True Me.mcbstatus.SelectedValue = i System.Threading.Thread.Sleep(1000) End If If Me.mcbstatus.SelectedValue <> Me.savestatus Or Me.mcbverantwortlich.SelectedValue <> Me.saveverantwortlicher Then statush.insert_history_status(Me.mcbstatus.SelectedValue, dokumentid, Me.mcbverantwortlich.SelectedValue) End If End If statush.Dispose() End Function #End Region #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 = Me.DokumentFunktionen '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 Me.pnlBerechtigungenBR.Visible = False End If End Sub 'Hutter Private Sub Dokumentfunktionen_AktivierenBR() 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.DokumentFunktionenbr = Generic_Select(106) w.Save_DokumentFunktionenbr = Me.DokumentFunktionenbr ' w.Save_DokumentFunktionenbr = Generic_Select(106) Me.DataSet5.Tables.Add(Me.DokumentFunktionenbr) Me.DokumentFunktionenListBR.DataSource = Me.DataSet5 Me.DokumentFunktionenListBR.DataMember = Me.DataSet5.Tables(0).TableName Me.DokumentFunktionenListBR.Columns("aktiv").FilterText = True Me.DokumentFunktionenListBR.FilterBar = False DivFnkt.SpaltenTitel_Aktualisieren(Me.DokumentFunktionenListBR, Me.DokumentFunktionenbr, "berechtigungseinschraenkung") Else Me.pnlBerechtigungen.Visible = False 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 'Rel 4.03 If Not basisdokument_allowed Then Me.ContextMenu1.MenuItems(1).Enabled = False 'Notiz bearbeiten Me.ContextMenu1.MenuItems(2).Enabled = False 'Notiz &löschen End If End If End Sub 'Rel 4.03 Private Function basisdokument_allowed() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.SP_Dokumentbearbeitung_Check_Notiz_Basisdokument" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumenttypnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@notiznr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Notizlist.Columns("notiznr").Value)) scmCmdToExecute.Parameters.Add(New SqlParameter("@allowed", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) sdaAdapter.Fill(dtToReturn) If scmCmdToExecute.Parameters("@allowed").Value = 1 Then Return True Else Return False Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function Private Sub ContextMenu3_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu3.Popup If Me.ZuordnungList.Splits(0).Rows.Count = 0 Then Me.MnuDokzuordnungDelete.Enabled = False Me.MnuShowDoc.Enabled = False Else Me.MnuDokzuordnungDelete.Enabled = True Me.MnuShowDoc.Enabled = True End If End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim f As New FrmPartnersuche() f.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 'ObjPerson If DivFnkt.PartnerTyp(Me.txtPartnerInhaberNr.Text) = EDOKA.clsDivFnkt.ENUM_Partnertyp.EDOKA_Interessent Then 'If Me.txtPartnerInhaberNr.Text > 91000000 Then Dim f As New frmInteressent() f.Partnernr = Me.txtPartnerInhaberNr.Text f.Display = True f.ShowDialog() f.Dispose() Else Dim f As New frmPartnerDetails() f.Partnernr = Me.txtPartnerInhaberNr.Text f.ShowDialog() f.Dispose() End If Catch Finally End Try End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim f As New FrmPartnersuche() f.Dokumenttypnrnr = Me.Dokumenttypnr f.ShowDialog() If f.PartnerNr <> 0 Then Me.txtZustelladresse.Text = f.zustelladresse Me.txtAnredeZusteller.Text = f.Anrede Me.txtZustelladresse.Focus() End If End Sub Private Sub DateTimePicker2_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DateTimePicker2.KeyDown If e.KeyCode = Keys.Delete Then Me.DateTimePicker2.ResetText() Me.DateTimePicker2.Value = System.DBNull.Value End If End Sub Private Sub MnuDokZuordnungAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuDokZuordnungAdd.Click Globals.profilnr = Me.Profilnr Dim fx As New frmTrefferliste() fx.OnlySelect = True fx.txtnrpar00.Text = Me.txtPartnerInhaberNr.Text fx.Partner_Eingegeben = True ' fx.refresh_list() fx.ToolBar1.Visible = False fx.txtnrpar00.Visible = False fx.tvstruktur.ContextMenu = Nothing fx.Text = "Dokument für Dokumentzuordnung auswählen" fx.ImgCombo.Visible = False fx.btnPartnersuche.Visible = False fx.LblSearch.Visible = False fx.DokList.ContextMenu = fx.ContextMenu3 fx.SelectedDokumentid = "" fx.Button9.Visible = False fx.BtnHelp.Visible = False fx.DoRefresh = True fx.ShowDialog() Try If fx.SelectedDokumentid <> "" Then Dim rc As DataRowCollection Dim newrow As DataRow rc = Me.Dokumentzuorndungen.Rows Dim rowvals(Me.Dokumentzuorndungen.Columns.Count - 1) As Object rowvals(0) = 0 rowvals(2) = 1 rowvals(6) = 1 rowvals(8) = fx.SelectedDokumentid rowvals(10) = fx.Dokumentbezeichnung newrow = rc.Add(rowvals) Me.ZuordnungList.Refresh() 'For i = 0 To Me.ZuordnungList.Splits(0).Rows.Count - 1 'If Me.ZuordnungList.Columns(0).CellText(i) = fx.SelectedDokumentid Then ' Me.ZuordnungList.Bookmark = i 'End If 'Next End If Catch ex As Exception MsgBox("MnuDokZuordnungAdd_Click " + ex.Message) End Try fx.Dispose() End Sub Private Sub MnuShowDoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuShowDoc.Click DivFnkt.ShowDoc(Me.ZuordnungList.Columns(8).Text, Me) 'Dim doc As New edokadb.clsDokument() 'Dim Dokument As String 'Dim FileReader As New DocMgmt() 'doc.cpMainConnectionProvider = conn 'doc.sDokumentid = New SqlString(CType(Me.ZuordnungList.Columns(1).Text, 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 mnuInfoEmpfaengerAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuInfoEmpfaengerAdd.Click Dim f As New frmInformationsEmpfaenger() f.Dokumenttypnr = Me.Dokumenttypnr If Me.CreateDocument = True Then f.fromDokumenttyp = True Else f.fromDokumenttyp = False f.dokumentid = Me.DokumentID End If f.ShowDialog() If f.DialogResult = DialogResult.OK Then Dim rc As DataRowCollection Dim newrow As DataRow rc = Me.DokumentInfoMeldungen.Rows Dim rowvals(9) As Object rowvals(0) = 0 rowvals(1) = 0 rowvals(2) = f.Empfaenger rowvals(3) = f.Empaengertext rowvals(4) = f.Meldungsnr rowvals(5) = f.Meldung If Len(f.Bemerkung) > 0 Then f.Bemerkung = f.Bemerkung + vbCrLf + "----------------------" + vbCrLf + vbCrLf rowvals(6) = f.Bemerkung rowvals(7) = f.Statusnr rowvals(8) = f.Statustext rowvals(9) = 1 newrow = rc.Add(rowvals) Me.InfoMeldungList.Refresh() f.Dispose() End If End Sub Private Sub mnuInfoEmpfaengerDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuInfoEmpfaengerDelete.Click Try Me.InfoMeldungList.Columns(9).Value = False Me.InfoMeldungList.Refresh() Me.TabControl2.Select() Me.InfoMeldungList.Select() Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub cvertraulich_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cvertraulich.CheckedChanged Try FillMcbVerantwortlich() Me.mcbverantwortlich.Focus() Me.mcbkube.SelectAll() Catch End Try End Sub Private Function FillMcbVerantwortlich() Dim dd As New DataTable() Dim I As Integer Dim s As String s = "" Try For I = 0 To Me.DokumentFunktionen.Rows.Count - 1 If Me.DokumentFunktionen.Rows(I).Item("aktiv") = 1 Then If s <> "" Then s = s + ";" s = s + Microsoft.VisualBasic.LTrim(Str(Me.DokumentFunktionen.Rows(I).Item("funktionsgruppenr"))) End If Next Catch End Try Try I = Me.mcbverantwortlich.SelectedValue If I = 0 Then I = Globals.MitarbeiterNr Me.mcbverantwortlich.DataSource = Nothing Me.mcbverantwortlich.Items.Clear() 'hutter 29.10.2003 If s <> "" Then Create_tmp_funktionen() 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 If s <> "" Then delete_tmp_funktionen() Me.mcbverantwortlich.Fill_Data(dd, False) Me.mcbverantwortlich.SelectedValue = I If Me.mcbverantwortlich.Items.Count = 0 Then Me.mcbverantwortlich.Text = "" Me.mcbverantwortlich.CheckNullValue = False Else Me.mcbverantwortlich.CheckNullValue = True End If Catch ex As Exception 'MsgBox(ex.Message) Finally dd.Clear() dd.Dispose() End Try End Function Private Sub Create_tmp_funktionen() Dim i As Integer TMP_Funktion(1, 0, 0, 0, 0, 0) For i = 0 To Me.DataSet4.Tables(0).Rows.Count - 1 TMP_Funktion(2, Me.DataSet4.Tables(0).Rows(i).Item(2), Me.DataSet4.Tables(0).Rows(i).Item(3), Me.DataSet4.Tables(0).Rows(i).Item(4), Me.DataSet4.Tables(0).Rows(i).Item(5), Me.DataSet4.Tables(0).Rows(i).Item(6)) Next End Sub Private Sub delete_tmp_funktionen() Dim i As Integer TMP_Funktion(3, 0, 0, 0, 0, 0) End Sub Private Sub TMP_Funktion(ByVal funktion As Integer, ByVal fnr As Integer, ByVal anz As Integer, ByVal bea As Integer, ByVal loe As Integer, ByVal abs As Integer) 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_tmp_berechtigungseinschraenkung" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, funktion)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@funktionsgruppenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, fnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@anzeigen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, anz)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bearbeiten", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, bea)) scmCmdToExecute.Parameters.Add(New SqlParameter("@loeschen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, loe)) scmCmdToExecute.Parameters.Add(New SqlParameter("@abschliessen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, abs)) sdaAdapter.Fill(dtToReturn) 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 Sub Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click Dim i As Integer Dim s As String s = "" Try For i = 0 To Me.DokumentFunktionen.Rows.Count - 1 If Me.DokumentFunktionen.Rows(i).Item("aktiv") = 1 Then If s <> "" Then s = s + ";" s = s + Microsoft.VisualBasic.LTrim(Str(Me.DokumentFunktionen.Rows(i).Item("funktionsgruppenr"))) End If Next Catch End Try Me.Cursor = System.Windows.Forms.Cursors.WaitCursor Dim f As New frmBerechtigungen() If Me.cvertraulich.Checked Then f.Fill_Berechtigungen(Me.Dokumenttypnr, Me.Partnernr, 1, s) Else f.Fill_Berechtigungen(Me.Dokumenttypnr, Me.Partnernr, 0, s) End If Me.Cursor = System.Windows.Forms.Cursors.Default f.ShowDialog() f.Dispose() End Sub Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click MenuItem2_Click(sender, e) End Sub Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click Dim f As New frmDokumentberechtigung() f.Dokumenttyp = Me.Dokumenttypnr f.Partnernr = Me.Partnernr f.Vertraulich = Me.cvertraulich.Checked f.ShowDialog() If f.DialogResult = DialogResult.OK Then Dim rc As DataRowCollection Dim newrow As DataRow rc = DokumentFunktionen.Rows Dim rowvals(Me.DokumentFunktionenList.Columns.Count - 1) rowvals(0) = System.DBNull.Value rowvals(1) = f.Funktionsgruppebezeichnung rowvals(2) = f.Funktionsgruppenr rowvals(3) = f.Anzeigen rowvals(4) = f.Bearbeiten rowvals(5) = f.Loeschen rowvals(6) = f.Abschliessen rowvals(7) = True rowvals(8) = Now rowvals(9) = Globals.MitarbeiterNr newrow = rc.Add(rowvals) Me.DokumentFunktionenList.Refresh() For i = 0 To Me.DokumentFunktionenList.Splits(0).Rows.Count - 1 If Me.DokumentFunktionenList.Columns("bezeichnung").CellText(i) = f.Funktionsgruppebezeichnung Then Me.DokumentFunktionenList.Bookmark = i End If Next Me.FillMcbVerantwortlich() If Me.BedingteRetournierung = True Then 'Einfügen bei Bedingter Retournierung Dim rcbr As DataRowCollection Dim newrowbr As DataRow rc = DokumentFunktionenbr.Rows Dim rowvalsbr(Me.DokumentFunktionenListBR.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.DokumentFunktionenListBR.Refresh() For i = 0 To Me.DokumentFunktionenListBR.Splits(0).Rows.Count - 1 If Me.DokumentFunktionenListBR.Columns("bezeichnung").CellText(i) = f.Funktionsgruppebezeichnung Then Me.DokumentFunktionenListBR.Bookmark = i End If Next End If End If End Sub Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click 'Entfernen Bedingte Retournierung If Me.BedingteRetournierung = True Then Dim i As Integer For i = 0 To Me.DokumentFunktionenListBR.Splits(0).Rows.Count - 1 If Me.DokumentFunktionenListBR.Columns("bezeichnung").CellText(i) = Me.DokumentFunktionenList.Columns("bezeichnung").Text Then Me.DokumentFunktionenListBR.Bookmark = i Me.DokumentFunktionenListBR.Columns(7).Value = False Me.Button3.Focus() Me.DokumentFunktionenListBR.Focus() End If Next End If 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.Button9.Visible = False fx.BtnHelp.Visible = False fx.DoRefresh = True fx.ShowDialog() Try If fx.SelectedDokumentid <> "" Then If Check_Dokumentersetzen(Me.Dokumenttypnr, fx.SelectedDokumentid, True) 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("MenuItem5_Click " + ex.Message) End Try fx.Dispose() End Sub Public Function Check_KopyDokumentZuErsetzten(ByVal dokumenttypnr As Integer, ByVal dokumentid As String, ByVal sDokBez As String, ByVal sDokErstelltAm As String) As Boolean 'Rel 3.5 / BUD If Check_Dokumentersetzen(dokumenttypnr, dokumentid, True) = True Then m_KopyDokErsetzten = True Check_KopyDokumentZuErsetzten = True m_KopyErsetzDokBez = sDokBez m_KopyErsetzDokDatum = sDokErstelltAm Else m_KopyDokErsetzten = False Check_KopyDokumentZuErsetzten = False End If End Function Private Function Set_DokumentZuErsetzen() Try 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) = m_KopyDokID rowvals(3) = True rowvals(8) = m_KopyErsetzDokBez rowvals(9) = m_KopyErsetzDokDatum newrow = rc.Add(rowvals) '? Me.ColdList.Refresh() 'Test Stop Catch MsgBox(Err.Description) End Try End Function Private Function Check_Dokumentersetzen(ByVal dokumenttypnr As Integer, ByVal dokumentid As String, Optional ByVal bOhneMSG As Boolean = False) 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, "")) If bOhneMSG = True Then scmCmdToExecute.Parameters.Add(New SqlParameter("@typ", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1)) End If 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 InfoMeldungList_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles InfoMeldungList.FetchRowStyle Try If Me.InfoMeldungList.Columns("typ").CellValue(e.Row) = 1 Then e.CellStyle.BackColor = System.Drawing.Color.CadetBlue End If Catch End Try End Sub Private Sub ContextMenu7_Popup(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextMenu7.Popup If Me.ErsetzenMoeglich = False Then Me.MenuItem5.Enabled = False Me.MenuItem6.Enabled = False Exit Sub End If Try If Me.ColdList.Splits(0).Rows.Count = 0 Then Me.MenuItem6.Enabled = False Else Me.MenuItem6.Enabled = True End If Catch End Try End Sub Private Sub ContextMenu4_Popup(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextMenu4.Popup Try If Me.InfoMeldungList.Columns("typ").Value = 1 Then Me.mnuInfoEmpfaengerDelete.Enabled = False Else Me.mnuInfoEmpfaengerDelete.Enabled = True End If If Me.InfoMeldungList.Splits(0).Rows.Count = 0 Then Me.mnuInfoEmpfaengerDelete.Enabled = False Else Me.mnuInfoEmpfaengerDelete.Enabled = True End If Catch End Try End Sub Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click Me.ColdList.Columns("aktiv").Value = False End Sub '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 'EDEX_Banklagernd Private Sub Banklagernd_Check() Dim i As Integer i = check_banklagernd() If i = 0 Then Exit Sub Dim dt As New edokadb.clsDokumenttyp() dt.cpMainConnectionProvider = conn dt.iDokumenttypnr = New SqlInt32(CType(Dokumenttypnr, Int32)) dt.SelectOne() If dt.bKundenDokument.Value = False Then dt.Dispose() Exit Sub End If 'Rel. 4.1 If dt.bIntern.Value = True Then dt.Dispose() Exit Sub End If dt.Dispose() Try Select Case i Case 1 Dim f As New frmBanklagerndverarbeitung(Me.Partnernr, False) Dim p As New edokadb.clsPartner() p.cpMainConnectionProvider = conn p.iNRPAR00 = New SqlInt32(CType(Trim(Me.txtPartnerInhaberNr.Text), Int32)) p.SelectOne() F.rbVersand.Enabled = True f.RBPersönlich.Checked = False If p.bSaldiert.Value = True Then f.rbDossier.Enabled = False f.rbVersand.Checked = True f.RBPersönlich.Checked = True f.rbPhysisch.Checked = False Else f.rbDossier.Checked = True f.rbDossier.Enabled = True f.rbVersand.Checked = False End If progress.Visible = False f.ShowDialog() Try progress.Visible = True Catch End Try If f.RBPersönlich.Checked Then 'Rel. 4.1 'Me.txtZustelladresse.Text = DivFnkt.get_parnter_anrede(Me.Partnernr) + vbCrLf + DivFnkt.get_parnter_namevorname(Me.Partnernr) + vbCrLf + "persönlich ausgehändigt" Me.txtZustelladresse.Text = DivFnkt.get_parnter_namevorname(Me.Partnernr) + vbCrLf + "persönlich ausgehändigt" Me.txtZustelladresse.Enabled = False Me.Button2.Enabled = False Check_Existing_Adresse = False End If If f.rbVersand.Checked = True Then Me.txtZustelladresse.Text = "" Me.txtZustelladresse.Enabled = True Me.Button2.Enabled = True Check_Existing_Adresse = True End If If f.rbDossier.Checked = True Then Me.Use_BL_Status = True Me.txtZustelladresse.Text = "" Me.txtZustelladresse.Enabled = False Me.Button2.Enabled = False Check_Existing_Adresse = False End If 'Rel. 4.2 If f.rbPhysisch.Checked = True Then Me.Use_BL_Status = False Me.txtZustelladresse.Text = "" Me.txtZustelladresse.Enabled = False Me.Button2.Enabled = False Check_Existing_Adresse = False End If f.Dispose() p.Dispose() Case 2 Dim f As New frmBanklagerndverarbeitung(Me.Partnernr, False) f.rbDossier.Checked = True f.rbVersand.Enabled = False f.rbVersand.Checked = False f.RBPersönlich.Checked = False 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.rbDossier.Enabled = False f.RBPersönlich.Checked = True Else f.rbDossier.Checked = True f.rbDossier.Enabled = True f.rbVersand.Checked = False f.rbPhysisch.Checked = False End If progress.Visible = False f.ShowDialog() progress.Visible = True If f.RBPersönlich.Checked Then Me.txtZustelladresse.Text = DivFnkt.get_parnter_namevorname(Me.Partnernr) + vbCrLf + "persönlich ausgehändigt" Me.txtZustelladresse.Enabled = False Me.Button2.Enabled = False Else Me.Use_BL_Status = True Me.txtZustelladresse.Text = "" Me.txtZustelladresse.Enabled = False Me.Button2.Enabled = False End If f.Dispose() p.Dispose() End Select Catch Finally Try Globals.conn.CloseConnection(True) Catch End Try End Try End Sub 'EDEX Banklagernd Private Function check_banklagernd() As Integer Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim i As Integer Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.sp_check_banklagernd" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtPartnerInhaberNr.Text)) scmCmdToExecute.Parameters.Add(New SqlParameter("@banklagernd", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) sdaAdapter.Fill(dtToReturn) Return scmCmdToExecute.Parameters.Item("@banklagernd").Value Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function Private Sub txtZustelladresse_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtZustelladresse.Leave 'If check_banklagernd() = True Then ' If MyMsg.Show_MessageYesNo(72) = MsgBoxResult.No Then ' Me.txtZustelladresse.Text = "" ' Me.txtAnredeZusteller.Text = "" ' End If 'End If End Sub Private Sub DokWertList_AfterColEdit(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles DokWertList.AfterColEdit 'hutter 2005-01-28 If Me.DokWertList.Columns("Validierungsregel").Text <> "" And Me.DokWertList.Col = 2 Then If Not DivFnkt.Check_Fieldvalue(Me.DokWertList.Columns("feldwert").Text, Me.DokWertList.Columns("Validierungsregel").Text) Then Me.validationerror = True Exit Sub End If End If 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 Me.DokWertList.Columns("Verifikationsregel").Value <> "" Then ' MsgBox(Me.DokWertList.Columns("Feldwert").Value.ToString) 'End If End Sub #Region "Bedingte Retournierung" Dim DokTypBR As New edokadb.clsDokumenttyp() Dim docbr As New edokadb.clsDokument() Private Sub Bedingte_Retournierung() If Me.CreateDocument = True Then DokTypBR.cpMainConnectionProvider = conn DokTypBR.iDokumenttypnr = New SqlInt32(CType(Doktyp.iDoktypbedingteretournierung.Value, Int32)) DokTypBR.SelectOne() Me.DokumenttypNrBr = DokTypBR.iDokumenttypnr.Value Me.Load_Create_Dokument_Bedingte_Retournierung() Else docbr.cpMainConnectionProvider = conn docbr.sDokumentid = New SqlString(CType(doc.sBedRDokumentid.Value, String)) docbr.SelectOne() DokTypBR.cpMainConnectionProvider = conn DokTypBR.iDokumenttypnr = New SqlInt32(CType(docbr.iDokumenttypnr.Value, Int32)) DokTypBR.SelectOne() Me.Load_Edit_Document_Bedingte_Retournierung() End If End Sub Private Sub Load_Create_Dokument_Bedingte_Retournierung() NewDokumentIDBR = DivFnkt.Generate_Key() DokumentIDBR = NewDokumentIDBR Load_Defaults_Bedingte_Retournierung() w.save_historystatusbr = 0 End Sub Private Sub Load_Defaults_Bedingte_Retournierung() Me.SqlConnection1.ConnectionString = Globals.sConnectionString DokTypBR.cpMainConnectionProvider = conn DokTypBR.iDokumenttypnr = New SqlInt32(CType(Doktyp.iDoktypbedingteretournierung.Value, Int32)) DokTypBR.SelectOne() If Doktyp.bFunktionen_zuweisen.Value = True Then Dokumentfunktionen_AktivierenBR() Else w.Save_DokumentFunktionenbr = Generic_Select(106) End If 'Me.cVertraulichBR.Visible = Me.cvertraulich.Visible Me.txtbezeichnungbr.Text = DokTypBR.sBezeichnung.Value Me.SqlDataAdapter1.SelectCommand.Parameters("@Dokumentid").Value = "" Me.SqlDataAdapter1.SelectCommand.Parameters("@Dokumenttypnr").Value = Me.DokTypBR.iDokumenttypnr.Value Me.SqlDataAdapter1.SelectCommand.Parameters("@CreateNew").Value = 1 Me.SqlDataAdapter1.Fill(Me.Dataset1BR) Me.DokWertListBR.DataSource = Me.Dataset1BR Me.DokWertListBR.DataMember = Me.Dataset1BR.Tables(0).TableName For i = 3 To Me.DokWertListBR.Columns.Count - 1 Me.DokWertListBR.Splits(0).DisplayColumns(i).Visible = False Next Me.DokWertListBR.Splits(0).DisplayColumns(0).Width = 110 Me.DokWertListBR.Splits(0).DisplayColumns(1).Width = 60 Me.DokWertListBR.Columns(1).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox 'Me.DokWertListBR.Splits(0).DisplayColumns(1).Locked = True Me.DokWertListBR.Splits(0).DisplayColumns(0).Locked = True Me.DokWertListBR.Splits(0).DisplayColumns(2).Width = 160 Me.zu_retournieren = Doktyp.bZu_retournieren.Value 'Dokument ersetzen Me.Dokumentersetzenbr = Dokumentersetzen_Laden(Me.DokumentIDBR) w.save_dokumentersetzenbr = Me.Dokumentersetzenbr ' w.save_dokumentersetzenbr = Dokumentersetzen_Laden(Me.DokumentIDBR) Me.coldlistbr.DataSource = Me.Dokumentersetzenbr Me.coldlistbr.DataSource = Me.Dokumentersetzenbr Me.coldlistbr.Columns("aktiv").FilterText = True Me.coldlistbr.FilterBar = False DivFnkt.SpaltenTitel_Aktualisieren(Me.coldlistbr, Me.Dokumentersetzenbr, "dokumentersetzen") ' DivFnkt.SpaltenTitel_Aktualisieren(Me.coldlistbr, Me.Dokumentersetzenbr, "dokumentersetzen") If DokTypBR.bCold_ersetzen.Value <> True Then Me.ErsetzenMoeglichbr = False Else Me.ErsetzenMoeglichbr = True End If 'Notizen Notizenbr = Notizen_Laden(Me.DokumentIDBR) Me.Notizlistbr.DataSource = Notizenbr DivFnkt.SpaltenTitel_Aktualisieren(Me.Notizlistbr, Me.Notizenbr, "notizen") 'Dokumentzuordnungen Me.Dokumentzuorndungenbr = Dokumentzuordnungen_Laden(Me.DokumentIDBR) w.Save_Dokumentzuordnungenbr = Me.Dokumentzuorndungenbr ' w.Save_Dokumentzuordnungenbr = Dokumentzuordnungen_Laden(Me.DokumentIDBR) Me.ZuordnunglistBR.DataSource = Me.Dokumentzuorndungenbr DivFnkt.SpaltenTitel_Aktualisieren(Me.ZuordnunglistBR, Me.Dokumentzuorndungenbr, "dokumentzuordnungen") Me.ZuordnunglistBR.Columns("aktiv").FilterText = True Me.ZuordnunglistBR.FilterBar = False Me.ZuordnunglistBR.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.ZuordnunglistBR.Columns("zuordnungnr").ValueItems.Values.Add(vv(i)) Me.ZuordnunglistBR.Columns("zuordnungnr").ValueItems.Translate = True Next 'Dokumentinfomeldungen Me.InFoMeldungListBR.FetchRowStyles = True Me.DokumentInfoMeldungenbr = Dokumentinfomeldungen_laden_Bedingte_Retournierung(Me.DokumentIDBR) w.Save_Dokumentinfomeldungenbr = Me.DokumentInfoMeldungenbr ' w.Save_Dokumentinfomeldungenbr = Dokumentinfomeldungen_laden_Bedingte_Retournierung(Me.DokumentIDBR) Me.InFoMeldungListBR.DataSource = Me.DokumentInfoMeldungenbr Me.InFoMeldungListBR.Columns("aktiv").FilterText = True DivFnkt.SpaltenTitel_Aktualisieren(Me.InFoMeldungListBR, Me.DokumentInfoMeldungenbr, "Dokumentinfomeldung") End Sub Private Sub Load_Edit_Document_Bedingte_Retournierung() docbr.cpMainConnectionProvider = conn conn.OpenConnection() docbr.sDokumentid = New SqlString(CType(doc.sBedRDokumentid.Value, String)) docbr.SelectOne() 'newdokumentid=me.EditDokumentid NewDokumentIDBR = docbr.sDokumentid.Value Me.Partnernr = docbr.iNrpar00.Value w.Save_Dokumentbr = docbr.SelectOne Me.DokumenttypNrBr = docbr.iDokumenttypnr.Value DokumentIDBR = docbr.sDokumentid.Value Me.Load_Defaults_Bedingte_Retournierung() Me.SaveStatusBR = docbr.iStatusnr.Value Me.cGesperrtBR.Checked = docbr.bGesperrt.Value = True Me.bemerkungbr.Text = docbr.sBemerkung.Value Me.txtbezeichnungbr.Text = docbr.sBezeichnung.Value 'Me.cVertraulichBR.Checked = docbr.bVertraulich.Value = True docbr.Dispose() Me.Dokumentersetzenbr = Dokumentersetzen_Laden(Me.DokumentIDBR) w.save_dokumentersetzenbr = Me.Dokumentersetzenbr ' w.save_dokumentersetzenbr = Dokumentersetzen_Laden(Me.DokumentIDBR) Me.coldlistbr.DataSource = Me.Dokumentersetzenbr DivFnkt.SpaltenTitel_Aktualisieren(Me.coldlistbr, Me.Dokumentersetzenbr, "dokumentersetzen") Me.Notizenbr = Notizen_Laden(Me.DokumentIDBR) 'Rel. 4.03 Daten kopieren und nicht als Referenz w.Save_Notizenbr = Me.Notizenbr ' w.Save_Notizenbr = Notizen_Laden(Me.DokumentIDBR) Me.Notizlistbr.DataSource = Notizenbr DivFnkt.SpaltenTitel_Aktualisieren(Me.Notizlistbr, Me.Notizenbr, "notizen") w.Save_Dokumentwertebr = Generic_Select(110) Me.Dataset1BR.Clear() Me.Dataset1BR.Tables.Clear() Me.Dataset1BR.Tables.Add(DokumentwertListe_ladenbr(Me.DokumentIDBR)) Me.DokWertListBR.DataSource = Me.Dataset1BR Me.DokWertListBR.DataMember = Me.Dataset1BR.Tables(0).TableName For i = 3 To Me.DokWertListBR.Columns.Count - 1 Me.DokWertListBR.Splits(0).DisplayColumns(i).Visible = False Next Me.DokWertListBR.Splits(0).DisplayColumns(0).Width = 110 Me.DokWertListBR.Splits(0).DisplayColumns(1).Width = 60 Me.DokWertListBR.Columns(1).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox 'Me.DokWertListBR.Splits(0).DisplayColumns(1).Locked = True Me.DokWertListBR.Splits(0).DisplayColumns(0).Locked = True Me.DokWertListBR.Splits(0).DisplayColumns(2).Width = 160 conn.CloseConnection(True) w.Save_ColdIndexbr = Generic_Select(109) Me.TabControl2.Enabled = True Dim tmp As DataTable tmp = Generic_Select(112) w.save_historystatusbr = tmp.Rows(0).Item(0) tmp.Dispose() End Sub Private Sub Insert_Update_Bedingte_Retournierung(ByVal Insertdata As Boolean) docbr.cpMainConnectionProvider = conn docbr.sDokumentid = New SqlString(CType(doc.sDokumentid.Value, String)) conn.OpenConnection() docbr.SelectOne() docbr.sDokumentid = New SqlString(CType(Me.DokumentIDBR, String)) docbr.iDokumenttypnr = New SqlInt32(CType(DokTypBR.iDokumenttypnr.Value, Int32)) docbr.iPostzustellung = New SqlInt32(CType(0, Int32)) docbr.iUnterschriftlinks = New SqlInt32(CType(0, Int32)) docbr.iUnterschriftrechts = New SqlInt32(CType(0, Int32)) docbr.sBezeichnung = New SqlString(CType(Me.txtbezeichnungbr.Text, String)) docbr.sBemerkung = New SqlString(CType(Me.bemerkungbr.Text, String)) docbr.bGesperrt = New SqlBoolean(CType(Me.cGesperrtBR.Checked = True, Boolean)) docbr.bVertraulich = New SqlBoolean(CType(Me.cVertraulichBR.Checked = True, Boolean)) docbr.sBedRDokumentid = New SqlString(CType("", String)) docbr.sDokumentname = New SqlString(CType("", String)) docbr.iBRVernichtungnachTagen = New SqlInt32(CType(DokTypBR.iTagebisvernichtungbedingteretournierung.Value, Int32)) docbr.iAnzeigeStatus = New SqlInt32(CType(0, Int32)) Dim t As DataTable t = Generic_Select(114) docbr.sColdfolder = New SqlString(CType(t.Rows(0).Item(0), String)) docbr.sColdschema = New SqlString(CType(t.Rows(0).Item(1), String)) If Insertdata Then docbr.Insert() Else docbr.Update() t.Dispose() If Insertdata Then Dim statush As New Statushandling() statush.Status_Erstellen(docbr.sDokumentid.Value, False) statush.Dispose() End If conn.CloseConnection(True) docbr.iStatusnr = New SqlInt32(CType(Me.Status_History_Bedingte_Retournierung(0, docbr.sDokumentid.Value), Integer)) conn.OpenConnection() docbr.Update() conn.CloseConnection(True) 'Dokumentzuordnung sichern Dim i As Integer For i = 0 To Me.Dokumentzuorndungenbr.Rows.Count - 1 If Me.Dokumentzuorndungenbr.Rows(i).Item("zuordnungnr") = 4 Then Me.Dokumentzuorndungenbr.Rows(i).Item("aktiv") = 0 End If Next ' If Insertdata Then Dim rc As DataRowCollection Dim newrow As DataRow rc = Me.Dokumentzuorndungenbr.Rows Dim rowvals(Me.Dokumentzuorndungenbr.Columns.Count - 1) As Object rowvals(0) = 1 rowvals(2) = 1 rowvals(6) = 4 rowvals(8) = doc.sDokumentid.Value rowvals(10) = Me.txtBemerkung newrow = rc.Add(rowvals) Me.ZuordnunglistBR.Refresh() ' End If Cold_Index_Bearbeiten_Bedingte_Retournierung(2, DokumentIDBR) Dokumentwerte_Sichern_Bedingte_Retournierung() Notizen_Sichern_Bedingte_Retournierung() Dokumentzuordnungen_Sichern_Bedingte_Retournierung() Dokumentersetzen_Sichern_Bedingte_Retournierung() Dokumentinfomeldungen_Sichern_Bedingte_Retournierung() Dokumentfunktionen_sichern_Bedingte_Retournierung() ' Status_History_Bedingte_Retournierung(docbr.iStatusnr.Value, DokumentIDBR) End Sub Private Sub Update_Bedingte_Retournierung() End Sub Public Sub Dokumentwerte_Sichern_Bedingte_Retournierung() Dim xdata As DataTable xdata = Me.Dataset1BR.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, DokumentIDBR)) scmCmdToExecute.Parameters.Add(New SqlParameter("@vorlagenfeldnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, xdata.Rows(i).Item("vorlagenfeldnr"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@value", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, xdata.Rows(i).Item("feldwert"))) scmCmdToExecute.ExecuteNonQuery() Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Connection.Close() scmCmdToExecute.Dispose() End Try End If Next xdata.Dispose() End Sub Public Sub Notizen_Sichern_Bedingte_Retournierung() For i = 0 To Me.Notizenbr.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, DokumentIDBR)) scmCmdToExecute.Parameters.Add(New SqlParameter("@notiznr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Notizenbr.Rows(i).Item("notiznr"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@betreff", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Notizenbr.Rows(i).Item("betreff"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@value", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Notizenbr.Rows(i).Item("notiz"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@aktiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Notizenbr.Rows(i).Item("aktiv"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@mutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Notizenbr.Rows(i).Item("mutierer"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@ersteller", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Notizenbr.Rows(i).Item("ersteller"))) scmCmdToExecute.ExecuteNonQuery() Catch ex As Exception MsgBox("Notizen_Sichern_Bedingte_Retournierung " + 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 Dokumentzuordnungen_Sichern_Bedingte_Retournierung() For i = 0 To Me.Dokumentzuorndungenbr.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.DokumentIDBR)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentzuordnungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentzuorndungenbr.Rows(i).Item("NrEintrag"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid2", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentzuorndungenbr.Rows(i).Item("DOKUMENTID2"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@zuordnungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentzuorndungenbr.Rows(i).Item("zuordnungnr"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@aktiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentzuorndungenbr.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 Dokumentersetzen_Sichern_Bedingte_Retournierung() For i = 0 To Me.Dokumentersetzenbr.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.Dokumentersetzenbr.Rows(i).Item("dokumentersetzennr"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@hauptdokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentIDBR)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentersetzenbr.Rows(i).Item("dokumentid"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@aktiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentersetzenbr.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.Dokumentersetzenbr.Rows(i).Item("coldstatus"))) scmCmdToExecute.ExecuteNonQuery() Catch ex As Exception MsgBox("Dokumentersetzen_Sichern_Bedingte_Retournierung " + 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 Dokumentinfomeldungen_Sichern_Bedingte_Retournierung() For i = 0 To Me.DokumentInfoMeldungenbr.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.DokumentInfoMeldungenbr.Rows(i).Item("dokumentinfomeldungnr"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentIDBR)) scmCmdToExecute.Parameters.Add(New SqlParameter("@empfaenger", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentInfoMeldungenbr.Rows(i).Item("empfaengernr"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@bemerkung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentInfoMeldungenbr.Rows(i).Item("bemerkung"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@meldungstext", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentInfoMeldungenbr.Rows(i).Item("meldungstext"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@beistatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentInfoMeldungenbr.Rows(i).Item("beistatus"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@aktiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentInfoMeldungenbr.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.DokumentInfoMeldungenbr.Rows(i).Item("typ"))) scmCmdToExecute.ExecuteNonQuery() Catch ex As Exception MsgBox("Dokumentinfomeldungen_Sichern_Bedingte_Retournierung " + 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_Bedingte_Retournierung() Try For i = 0 To Me.DokumentFunktionenbr.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, DokumentIDBR)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentfunktiongruppenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionenbr.Rows(i).Item("dokumentfunktiongruppenr"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@funktiongruppenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionenbr.Rows(i).Item("funktionsgruppenr"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@anzeigen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionenbr.Rows(i).Item("anzeigen"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@bearbeiten", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionenbr.Rows(i).Item("bearbeiten"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@loeschen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionenbr.Rows(i).Item("loeschen"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@abschliessen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionenbr.Rows(i).Item("abschliessen"))) scmCmdToExecute.Parameters.Add(New SqlParameter("@aktiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionenbr.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 ex As Exception MsgBox("Dokumentfunktionen_sichern_Bedingte_Retournierung " + ex.Message) End Try End Sub Public Sub Cold_Index_Bearbeiten_Bedingte_Retournierung(ByVal indextyp As Integer, ByVal dokumentid As String) Dim xdata As DataTable Dim cdata As DataTable cdata = COLD_Index_Sichern(indextyp, dokumentid) xdata = Me.Dataset1BR.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 Private Sub mnuInfoEmpfaengerAdd_Click_Bedingte_Retournierung(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click Dim f As New frmInformationsEmpfaenger() f.Dokumenttypnr = DokTypBR.iDokumenttypnr.Value If Me.CreateDocument = True Then f.fromDokumenttyp = True Else f.fromDokumenttyp = False f.dokumentid = Me.DokumentIDBR End If f.ShowDialog() If f.DialogResult = DialogResult.OK Then Dim rc As DataRowCollection Dim newrow As DataRow rc = Me.DokumentInfoMeldungenbr.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_Bedingte_Retournierung(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click Try Me.InFoMeldungListBR.Columns(9).Value = False Me.InFoMeldungListBR.Refresh() Me.TabControl2.Select() Me.InFoMeldungListBR.Select() Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub MenuItem5_Click_Bedingte_Retournierung(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem11.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.DokumenttypNrBr, fx.SelectedDokumentid) Then Dim rc As DataRowCollection Dim newrow As DataRow rc = Dokumentersetzenbr.Rows Dim rowvals(Me.Dokumentersetzenbr.Columns.Count - 1) As Object rowvals(0) = System.DBNull.Value rowvals(1) = "" If Me.CreateDocument Then rowvals(1) = "" Else rowvals(1) = Me.DokumentIDBR End If rowvals(2) = fx.SelectedDokumentid rowvals(3) = True rowvals(8) = fx.Dokumentbezeichnung rowvals(9) = fx.dokumentdatum newrow = rc.Add(rowvals) Me.coldlistbr.Refresh() End If End If Catch ex As Exception MsgBox(ex.Message) End Try fx.Dispose() End Sub Private Sub MenuItem6_Click_Bedingte_Retournierung(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem12.Click Me.coldlistbr.Columns("aktiv").Value = False End Sub Private Sub MnuDokZuordnungAdd_Click_Bedingte_Retournierung(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem13.Click Globals.profilnr = Me.Profilnr Dim fx As New frmTrefferliste() fx.OnlySelect = True fx.txtnrpar00.Text = Me.txtPartnerInhaberNr.Text fx.Partner_Eingegeben = True ' fx.refresh_list() fx.ToolBar1.Visible = False fx.txtnrpar00.Visible = False fx.tvstruktur.ContextMenu = Nothing fx.Text = "Dokument für Dokumentzuordnung auswählen" fx.ImgCombo.Visible = False fx.btnPartnersuche.Visible = False fx.LblSearch.Visible = False fx.DokList.ContextMenu = fx.ContextMenu3 fx.SelectedDokumentid = "" fx.Button9.Visible = False fx.BtnHelp.Visible = False fx.DoRefresh = True fx.ShowDialog() Try If fx.SelectedDokumentid <> "" Then Dim rc As DataRowCollection Dim newrow As DataRow rc = Me.Dokumentzuorndungenbr.Rows Dim rowvals(Me.Dokumentzuorndungenbr.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.ZuordnunglistBR.Refresh() End If Catch ex As Exception MsgBox(ex.Message) End Try fx.Dispose() End Sub Private Sub MnuDokzuordnungDelete_Click_Bedingte_Retournierung(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem14.Click Me.ZuordnunglistBR.Columns("aktiv").Value = False Me.ZuordnunglistBR.Refresh() Me.TabControl2.Select() Me.ZuordnunglistBR.Select() End Sub Private Sub MnuShowDoc_Click_Bedingte_Retournierung(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem16.Click DivFnkt.ShowDoc(Me.ZuordnunglistBR.Columns(8).Text, Me) End Sub Private Sub MnuDeleteNotiz_Click_Bedingte_Retournierung(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem19.Click Try Me.Notizlistbr.Columns(5).Value = False Me.Notizlistbr.Refresh() Me.TabControl2.Select() Me.Notizlistbr.Select() Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub MnuNeueNotiz_Click_Bedingte_Retournierung(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem17.Click Dim f As New frmNotizen() Dim objMitarbeiter As New edokadb.clsMitarbeiter() objMitarbeiter.cpMainConnectionProvider = conn objMitarbeiter.iMitarbeiternr = New SqlInt32(CType(Globals.MitarbeiterNr, Int32)) objMitarbeiter.SelectOne() f.Notiz = "" f.Betreff = "" f.Mutierer = objMitarbeiter.sName.ToString & " " & objMitarbeiter.sVorname.ToString & " , " & objMitarbeiter.sTgnummer.ToString objMitarbeiter.Dispose() f.ShowDialog() If f.DialogResult = DialogResult.OK Then Dim rc As DataRowCollection Dim newrow As DataRow rc = Notizenbr.Rows Dim rowvals(Me.Notizenbr.Columns.Count - 1) As Object ' For i = 0 To Me.Notizen.Columns.Count - 1 ' MsgBox(Me.Notizen.Columns(i).Caption) ' Next rowvals(0) = System.DBNull.Value rowvals(2) = f.Betreff rowvals(3) = f.Notiz rowvals(5) = True 'Aktiv rowvals(6) = Now() 'erstellt_am rowvals(7) = Now() 'mutiert_am rowvals(8) = Globals.MitarbeiterNr 'mutierer rowvals(9) = Globals.MitarbeiterNr 'ersteller newrow = rc.Add(rowvals) Me.Notizlist.DataSource = Nothing Me.Notizlist.DataSource = Me.Notizenbr DivFnkt.SpaltenTitel_Aktualisieren(Me.Notizlistbr, Me.Notizenbr, "notizen") ' Me.Notizlist.Refresh() Try For i = 0 To Me.Notizlist.Splits(0).Rows.Count - 1 If Me.Notizlistbr.Columns("betreff").CellText(i) = f.Betreff Then Me.Notizlistbr.Bookmark = i End If Next Catch End Try End If f.Hide() End Sub Private Sub MnuEditNotiz_Click_Bedingte_Retournierung(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem18.Click Dim f As New frmNotizen() f.Betreff = Me.Notizlistbr.Columns("betreff").Value f.Notiz = Me.Notizlistbr.Columns("Notiz").Value f.Mutierer = Me.Notizlistbr.Columns("Mutierer").Text f.MutiertAm = Me.Notizlistbr.Columns("Mutiert_Am").Text f.ShowDialog() If f.DialogResult = DialogResult.OK Then Me.Notizlistbr.Columns("betreff").Value = f.Betreff Me.Notizlistbr.Columns("notiz").Value = f.Notiz Me.Notizlist.Columns("Mutierer").Value = Globals.MitarbeiterNr Me.Notizlistbr.Columns("Mutiert_Am").Text = Now() End If f.Dispose() End Sub Private Sub Notizlist_DoubleClick_Bedingte_Retournierung(ByVal sender As Object, ByVal e As System.EventArgs) Handles Notizlistbr.DoubleClick MnuEditNotiz_Click_Bedingte_Retournierung(sender, e) End Sub Private Sub MenuItem3_Click_Bedingte_Retournierung(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem20.Click Dim f As New frmDokumentberechtigung() f.Dokumenttyp = Me.DokumenttypNrBr f.Partnernr = Me.Partnernr f.Vertraulich = Me.cVertraulichBR.Checked f.ShowDialog() If f.DialogResult = DialogResult.OK Then Dim rc As DataRowCollection Dim newrow As DataRow rc = DokumentFunktionenbr.Rows Dim rowvals(Me.DokumentFunktionenListBR.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.DokumentFunktionenListBR.Refresh() For i = 0 To Me.DokumentFunktionenListBR.Splits(0).Rows.Count - 1 If Me.DokumentFunktionenListBR.Columns("bezeichnung").CellText(i) = f.Funktionsgruppebezeichnung Then Me.DokumentFunktionenListBR.Bookmark = i End If Next End If End Sub Private Sub MenuItem4_Click_Bedingte_Retournierung(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem21.Click Me.DokumentFunktionenListBR.Columns(7).Value = False Me.DokumentFunktionenListBR.Refresh() Me.Button3Br.Focus() Me.DokumentFunktionenListBR.Focus() End Sub Private Sub MenuItem2_Click_Bedingte_Retournierung(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3Br.Click Dim i As Integer Dim s As String s = "" Try For i = 0 To Me.DokumentFunktionenbr.Rows.Count - 1 If Me.DokumentFunktionenbr.Rows(i).Item("aktiv") = 1 Then If s <> "" Then s = s + ";" s = s + Microsoft.VisualBasic.LTrim(Str(Me.DokumentFunktionenbr.Rows(i).Item("funktionsgruppenr"))) End If Next Catch End Try Me.Cursor = System.Windows.Forms.Cursors.WaitCursor Dim f As New frmBerechtigungen() If Me.cVertraulichBR.Checked Then f.Fill_Berechtigungen(Me.DokumenttypNrBr, Me.Partnernr, 1, s) Else f.Fill_Berechtigungen(Me.DokumenttypNrBr, Me.Partnernr, 0, s) End If Me.Cursor = System.Windows.Forms.Cursors.Default f.ShowDialog() f.Dispose() End Sub Private Sub DokWertListBR_BeforeColEdit(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.BeforeColEditEventArgs) Handles DokWertListBR.BeforeColEdit If e.ColIndex = 1 Then e.Cancel = True End If End Sub Private Sub MnuValueSelect_Click_Bedingte_Retournierung(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem22.Click, DokWertListBR.DoubleClick Me.Cursor = System.Windows.Forms.Cursors.WaitCursor Dim s As String Select Case UCase(Me.DokWertListBR.Columns("feldtyp").Value) Case "DATUM" Dim f As New frmCalendar() f.ShowDialog() If f.DialogResult = DialogResult.OK Then s = f.MonthCalendar1.SelectionStart Me.DokWertListBR.Columns("feldwert").Value = s End If f.Dispose() Case "TEXT" If Microsoft.VisualBasic.Left(Me.DokWertListBR.Columns("Datenherkunft").Value, 8) = "&Partner" Then Dim f As New FrmPartnersuche() f.ShowDialog() If f.PartnerNr <> 0 Then Me.DokWertListBR.Columns("feldwert").Value = Str(f.PartnerNr) + "-" + f.PartnerKurzbezeichnnung End If f.Dispose() Else If Microsoft.VisualBasic.Left(Me.DokWertListBR.Columns("Datenherkunft").Value, 1) = "&" Then Dim f As New frmValueSelector() If Me.DokWertListBR.Columns("Datenherkunft").Value = "&SekPartnerVV&" Then Dim ss As String Dim ii As Integer ss = Me.DokWertListBR.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 f.Text = f.Text + Me.DokWertListBR.Columns(0).Value f.Datenherkunft = Me.DokWertListBR.Columns("Datenherkunft").Value 'f.partnernr = Me.txtPartnerInhaberNr.Text() f.LoadData() If f.Datenvorhanden = True Then f.ShowDialog() If f.DialogResult = DialogResult.OK Then Me.DokWertListBR.Columns("feldwert").Value = f.SelWert End If f.Dispose() End If End If Case Else End Select Me.ActiveControl = Me.TabControl2 Me.ActiveControl = Me.DokWertList Me.Cursor = System.Windows.Forms.Cursors.Default End Sub Private Function DokumentwertListe_ladenbr(ByVal dokumentid As String) As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.SP_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, DokTypBR.iDokumenttypnr.Value)) scmCmdToExecute.Parameters.Add(New SqlParameter("@CreateNew", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function Private Function Dokumentinfomeldungen_laden_Bedingte_Retournierung(ByVal dokumentid As String) As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.SP_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, DokTypBR.iDokumenttypnr.Value)) Else scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentIDBR)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) End If sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception MsgBox("Dokumentinfomeldungen_laden_Bedingte_Retournierung " + 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 #End Region Private Sub ContextMenu10_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu10.Popup If Me.ErsetzenMoeglichbr = False Then Me.MenuItem11.Enabled = False Me.MenuItem12.Enabled = False Exit Sub End If Try If Me.coldlistbr.Splits(0).Rows.Count = 0 Then Me.MenuItem12.Enabled = False Else Me.MenuItem2.Enabled = True End If Catch End Try End Sub Private Sub TabControl2_DrawItem(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles TabControl2.DrawItem If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then e.Graphics.FillRectangle(Brushes.WhiteSmoke, TabControl2.GetTabRect(e.Index)) e.Graphics.DrawString(TabControl2.TabPages(e.Index).Text, New Font("Arial", 10), Brushes.Red, RectangleF.op_Implicit(TabControl2.GetTabRect(e.Index))) Else e.Graphics.FillRectangle(Brushes.LightGray, TabControl2.GetTabRect(e.Index)) e.Graphics.DrawString(TabControl2.TabPages(e.Index).Text, New Font("Arial", 10), Brushes.Black, RectangleF.op_Implicit(TabControl2.GetTabRect(e.Index))) End If End Sub Private Function Status_History_Bedingte_Retournierung(ByVal statusnr As Long, ByVal dokumentid As String) As Integer Dim xstatusnr As Integer Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) Try scmCmdToExecute.CommandText = "dbo.SP_get_erster_status" scmCmdToExecute.CommandType = CommandType.StoredProcedure 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("@status", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) sdaAdapter.Fill(dtToReturn) xstatusnr = scmCmdToExecute.Parameters("@status").Value Catch ex As Exception MsgBox(ex.Message) ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("Erster_Status::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try Dim statush As New Statushandling() Dim i, i1 As Integer If Me.CreateDocument = True Then statush.insert_history_status(xstatusnr, dokumentid, Globals.MitarbeiterNr) System.Threading.Thread.Sleep(1000) statush.Dispose() Return xstatusnr Exit Function End If If (Me.saveverantwortlicher = Me.mcbverantwortlich.SelectedValue And Me.SaveStatusBR = statusnr) Then Exit Function End If statush.insert_history_status(xstatusnr, dokumentid, Globals.MitarbeiterNr) System.Threading.Thread.Sleep(1000) statush.Dispose() Return xstatusnr End Function Private Sub DokWertList_AfterColUpdate(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles DokWertList.AfterColUpdate If Me.BedingteRetournierung = True Then For i = 0 To Me.DokWertListBR.Splits(0).Rows.Count - 1 If Me.DokWertListBR.Columns("bezeichnung").CellText(i) = Me.DokWertList.Columns("Bezeichnung").Text Then If Me.DokWertListBR.Columns("feldwert").CellText(i) = "" Or Me.DokWertList.Columns("Feldwert").Text = "" Then Me.DokWertListBR.Bookmark = i Me.DokWertListBR.Columns("feldwert").Text = Me.DokWertList.Columns("Feldwert").Text End If End If Next End If End Sub Private Sub TabControl2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControl2.Click Select Case Me.TabControl2.SelectedTab.Name Case "TabPage5" load_Mitarbeiter() End Select 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 Private Sub BtnHelp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHelp.Click Globals.HTMLHelp.ShowHelpToc("dokumentbearbeitungsdialog") End Sub Private Sub DokWertList_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DokWertList.MouseUp ' Me.DokWertList.Bookmark = Me.DokWertList.RowContaining(e.Y) Select Case UCase(Me.DokWertList.Columns("feldtyp").Text) Case "JANEIN" Me.DokWertList.AllowUpdate = False If Me.DokWertList.Columns("Feldwert").Value = "Ja" Then Me.DokWertList.Columns("Feldwert").Value = "Nein" Else Me.DokWertList.Columns("Feldwert").Value = "Ja" End If If Me.DokWertList.Col < 3 Then Me.DokWertList.Col = 1 'Me.DokWertList.Update() Case "01" Me.DokWertList.AllowUpdate = False If Me.DokWertList.Columns("Feldwert").Value = "1" Then Me.DokWertList.Columns("Feldwert").Value = "0" Else Me.DokWertList.Columns("Feldwert").Value = "1" End If 'Me.DokWertList.Update() Case Else Me.DokWertList.AllowUpdate = True End Select End Sub 'hutter 2005-01-28 Private Sub DokWertList_BeforeColEdit(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.BeforeColEditEventArgs) Handles DokWertList.BeforeColEdit Me.SaveBM = Me.DokWertList.Bookmark Me.validationerror = False If e.ColIndex = 1 Then e.Cancel = True End If End Sub Dim changeteam As Integer = 0 Private Sub TabControl2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl2.SelectedIndexChanged Me.changeteam = 2 End Sub Private Sub cbKube_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mcbkube.SelectedIndexChanged If Me.changeteam > 0 Then Me.changeteam = Me.changeteam - 1 Exit Sub End If 'Private Sub cbKube_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mcbkube.TextChanged 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 'Private Sub cbzust_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mcbzust.TextChanged If Me.changeteam > 0 Then Me.changeteam = Me.changeteam - 1 Exit Sub End If Try Me.teamzustaendig = Me.mcbzust.SelectedValue refresh_team() Catch End Try End Sub #Region "Properties" Dim m_zustaendiger As Integer Property Zustaendiger() As Integer Get Return m_zustaendiger End Get Set(ByVal Value As Integer) m_zustaendiger = Value End Set End Property Dim m_verantwortlicher As Integer Property Verantwortlicher() As Integer Get Return m_verantwortlicher End Get Set(ByVal Value As Integer) m_verantwortlicher = Value End Set End Property Dim m_unterschriftlinks As Integer Property UnterschriftLinks() As Integer Get Return m_unterschriftlinks End Get Set(ByVal Value As Integer) m_unterschriftlinks = Value End Set End Property Dim m_unterschriftrechts As Integer Property Unterschriftrechts() As Integer Get Return m_unterschriftrechts End Get Set(ByVal Value As Integer) m_unterschriftrechts = Value End Set End Property Dim m_fanummer1 As String Property FANummer1() As String Get Return m_fanummer1 End Get Set(ByVal Value As String) m_fanummer1 = Value End Set End Property Dim m_fanummer2 As String Property FANummer2() As String Get Return m_fanummer2 End Get Set(ByVal Value As String) m_fanummer2 = Value End Set End Property Dim m_fanummer3 As String Property FANummer3() As String Get Return m_fanummer3 End Get Set(ByVal Value As String) m_fanummer3 = Value End Set End Property Dim m_neuedokumentid As String Property NeueDokumentid() As String Get Return m_neuedokumentid End Get Set(ByVal Value As String) m_neuedokumentid = Value End Set End Property Dim M_Partnerwechsel As Boolean Property Partnerwechsel() As Boolean Get Return M_Partnerwechsel End Get Set(ByVal Value As Boolean) M_Partnerwechsel = Value End Set End Property Dim m_Statuswechsel As Boolean Property Statuswechsel() As Boolean Get Return m_Statuswechsel End Get Set(ByVal Value As Boolean) m_Statuswechsel = Value End Set End Property Dim m_verantwortlicherwechsel As Boolean Property Verantwortlicherwechsel() As Boolean Get Return m_verantwortlicherwechsel End Get Set(ByVal Value As Boolean) m_verantwortlicherwechsel = False End Set End Property Dim m_avqwerte As AvaloqDokumentWerte Property avqwerte As AvaloqDokumentWerte Get Return m_avqwerte End Get Set(value As AvaloqDokumentWerte) m_avqwerte = value End Set End Property Dim m_Avq_auth_extl_ref1 As String Property Avq_auth_extl_ref1 As String Get Return m_Avq_auth_extl_ref1 End Get Set(value As String) m_Avq_auth_extl_ref1 = value End Set End Property Dim m_Avq_auth_extl_ref2 As String Property Avq_auth_extl_ref2 As String Get Return m_Avq_auth_extl_ref2 End Get Set(value As String) m_Avq_auth_extl_ref2 = value End Set End Property #End Region #Region "Rel 4.03" Public Event show_partner() Private Sub xshow_partner() Handles Me.show_partner Dim f As New FrmPartnersuche() f.profilnr = Me.Profilnr f.Dokumenttypnrnr = Me.Dokumenttypnr f.NurAbfrage = False 'Rel 4.03 f.MdiParent = Me.MdiParent f.Parent = Me.Parent f.TopMost = True f.Show() '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 'Rel. 4.1 - Adresse versandfähig If Me.Partnernr <> "" Then If DivFnkt.Check_Versandfahigkeit(Me.Partnernr) = False Then MyMsg.show_standardmessage(50102, MsgBoxStyle.Exclamation) End If End If End If End Sub #End Region 'Rel. 4.03 Private Sub frmDokumentbearbeitung_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown Try progress.Close() progress.Dispose() If BedingteRetournierung = True And Me.CreateDocument = True Then Me.Visible = True If MyMsg.Show_HinweisMessage(Me.Profilnr, 6, 121, 1) = False Then Exit Sub End If End If If Me.Partnernr = "" Then btnPartnerInhaber_Click(sender, e) Catch End Try End Sub Private Sub PBoxQuestion_Click(sender As Object, e As EventArgs) Handles PBoxQuestion.Click Try 'ObjPerson If DivFnkt.PartnerTyp(Me.txtPartnerInhaberNr.Text) = EDOKA.clsDivFnkt.ENUM_Partnertyp.EDOKA_Interessent Then 'If Me.txtPartnerInhaberNr.Text > 91000000 Then Dim f As New frmInteressent() f.Partnernr = Me.txtPartnerInhaberNr.Text f.Display = True f.ShowDialog() f.Dispose() Else Dim f As New frmPartnerDetails(True) f.Selected_Anrede = "" f.Selected_Adresse = "" f.Partnernr = Me.txtPartnerInhaberNr.Text f.ShowDialog() If f.DialogResult = Windows.Forms.DialogResult.OK Then If f.Selected_Adresse <> "" Then Me.txtZustelladresse.Text = f.Selected_Adresse If f.Selected_Anrede <> "" Then Me.txtAnredeZusteller.Text = f.Selected_Anrede Me.TabControl2.SelectedIndex = 3 End If f.Dispose() End If Catch Finally End Try End Sub Private Sub DokWertList_KeyDown(sender As Object, e As KeyEventArgs) Handles DokWertList.KeyDown If Me.DokWertList.Columns("Readonly").Value = "True" Then MsgBox("Manuelle Eingaben sind in dieser Zeile nicht erlaubt.", vbExclamation) Me.DokWertList.Columns("Feldwert").Value = "" End If End Sub End Class