You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
4806 lines
250 KiB
4806 lines
250 KiB
Imports System.Data
|
|
Imports System.Data.SqlTypes
|
|
Imports System.Data.SqlClient
|
|
Imports System.ComponentModel
|
|
Imports UtilityLibrary.Win32
|
|
|
|
Public Class frmDokumentInfoEdit
|
|
Inherits System.Windows.Forms.Form
|
|
|
|
#Region " Vom Windows Form Designer generierter Code "
|
|
|
|
|
|
|
|
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
|
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
|
If disposing Then
|
|
If Not (components Is Nothing) Then
|
|
components.Dispose()
|
|
End If
|
|
End If
|
|
MyBase.Dispose(disposing)
|
|
End Sub
|
|
|
|
' Für Windows Form-Designer erforderlich
|
|
Private components As System.ComponentModel.IContainer
|
|
|
|
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
|
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
|
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
|
Friend WithEvents btnWeiter As System.Windows.Forms.Button
|
|
Friend WithEvents btnCancel As System.Windows.Forms.Button
|
|
Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
|
|
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
|
|
Friend WithEvents DataSet1 As System.Data.DataSet
|
|
Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
|
|
Friend WithEvents MnuNeueNotiz As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MnuDeleteNotiz As System.Windows.Forms.MenuItem
|
|
Friend WithEvents SqlDataAdapter2 As System.Data.SqlClient.SqlDataAdapter
|
|
Friend WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlInsertCommand2 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlUpdateCommand2 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlDeleteCommand2 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents DataSet2 As System.Data.DataSet
|
|
Friend WithEvents SqlDataAdapter3 As System.Data.SqlClient.SqlDataAdapter
|
|
Friend WithEvents SqlSelectCommand3 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlInsertCommand3 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlUpdateCommand3 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlDeleteCommand3 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents DataSet3 As System.Data.DataSet
|
|
Friend WithEvents DataSet4 As System.Data.DataSet
|
|
Friend WithEvents TabControl2 As System.Windows.Forms.TabControl
|
|
Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
|
|
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents cbUnterschriftrechts As System.Windows.Forms.ComboBox
|
|
Friend WithEvents cbUnterschriftlinks As System.Windows.Forms.ComboBox
|
|
Friend WithEvents Label8 As System.Windows.Forms.Label
|
|
Friend WithEvents Label7 As System.Windows.Forms.Label
|
|
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents RBZustaendigZustaendiger As System.Windows.Forms.RadioButton
|
|
Friend WithEvents rbZustaendigKube As System.Windows.Forms.RadioButton
|
|
Friend WithEvents cbzust As System.Windows.Forms.ComboBox
|
|
Friend WithEvents cbKube As System.Windows.Forms.ComboBox
|
|
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker
|
|
Friend WithEvents cbPostzustellung As System.Windows.Forms.ComboBox
|
|
Friend WithEvents Label5 As System.Windows.Forms.Label
|
|
Friend WithEvents Label3 As System.Windows.Forms.Label
|
|
Friend WithEvents TabPage4 As System.Windows.Forms.TabPage
|
|
Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents Label20 As System.Windows.Forms.Label
|
|
Friend WithEvents DateTimePicker3 As System.Windows.Forms.DateTimePicker
|
|
Friend WithEvents Label10 As System.Windows.Forms.Label
|
|
Friend WithEvents TabPage5 As System.Windows.Forms.TabPage
|
|
Friend WithEvents cbVerantwortlich As System.Windows.Forms.ComboBox
|
|
Friend WithEvents Label17 As System.Windows.Forms.Label
|
|
Friend WithEvents Label16 As System.Windows.Forms.Label
|
|
Friend WithEvents cbdokumentstatus As System.Windows.Forms.ComboBox
|
|
Friend WithEvents txtPartnerInhaberNr As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtBezeichnung As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label4 As System.Windows.Forms.Label
|
|
Friend WithEvents btnPartnerInhaber As System.Windows.Forms.Button
|
|
Friend WithEvents txtPartnerZusteller As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtPartnerInhaber As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label2 As System.Windows.Forms.Label
|
|
Friend WithEvents Label1 As System.Windows.Forms.Label
|
|
Friend WithEvents GroupBox10 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents DokWertList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents cdokumentwerteanzeigen As System.Windows.Forms.CheckBox
|
|
Friend WithEvents ContextMenu2 As System.Windows.Forms.ContextMenu
|
|
Friend WithEvents MnuValueSelect As System.Windows.Forms.MenuItem
|
|
Friend WithEvents ColdList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents MnuEditNotiz As System.Windows.Forms.MenuItem
|
|
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
|
|
Friend WithEvents GroupBox11 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents txtZustelladresse As System.Windows.Forms.TextBox
|
|
Friend WithEvents Button1 As System.Windows.Forms.Button
|
|
Friend WithEvents Button2 As System.Windows.Forms.Button
|
|
Friend WithEvents GroupBox12 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents cbteam As System.Windows.Forms.ComboBox
|
|
Friend WithEvents Label13 As System.Windows.Forms.Label
|
|
Friend WithEvents txtAnredeZusteller As System.Windows.Forms.TextBox
|
|
Friend WithEvents ContextMenu3 As System.Windows.Forms.ContextMenu
|
|
Friend WithEvents MnuDokZuordnungAdd As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MnuDokzuordnungDelete As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MnuShowDoc As System.Windows.Forms.MenuItem
|
|
Friend WithEvents ContextMenu4 As System.Windows.Forms.ContextMenu
|
|
Friend WithEvents mnuInfoEmpfaengerAdd As System.Windows.Forms.MenuItem
|
|
Friend WithEvents mnuInfoEmpfaengerDelete As System.Windows.Forms.MenuItem
|
|
Friend WithEvents ContextMenu5 As System.Windows.Forms.ContextMenu
|
|
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents ContextMenu6 As System.Windows.Forms.ContextMenu
|
|
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents ContextMenu7 As System.Windows.Forms.ContextMenu
|
|
Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents ContextMenu8 As System.Windows.Forms.ContextMenu
|
|
Friend WithEvents Button4 As System.Windows.Forms.Button
|
|
Friend WithEvents cbsave As System.Windows.Forms.ComboBox
|
|
Friend WithEvents cbmoeglicheStati As System.Windows.Forms.ComboBox
|
|
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
|
Friend WithEvents Label11 As System.Windows.Forms.Label
|
|
Friend WithEvents txtstatus As System.Windows.Forms.Label
|
|
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
|
|
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
|
|
Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents ZuordnungList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents GroupBox13 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents txtBemerkung As System.Windows.Forms.TextBox
|
|
Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents InfoMeldungList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents Notizlist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents pnlBerechtigungen As System.Windows.Forms.GroupBox
|
|
Friend WithEvents DokumentFunktionenList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents GroupBox9 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents Button3 As System.Windows.Forms.Button
|
|
Friend WithEvents cvertraulich As System.Windows.Forms.CheckBox
|
|
Friend WithEvents Label18 As System.Windows.Forms.Label
|
|
Friend WithEvents cGesperrt As System.Windows.Forms.CheckBox
|
|
Friend WithEvents Label9 As System.Windows.Forms.Label
|
|
Friend WithEvents GroupBox14 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents DateTimePicker2 As C1.Win.C1Input.C1DateEdit
|
|
Friend WithEvents Label6 As System.Windows.Forms.Label
|
|
Friend WithEvents TabPage6 As System.Windows.Forms.TabPage
|
|
Friend WithEvents GroupBox15 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents Button5 As System.Windows.Forms.Button
|
|
Friend WithEvents Button6 As System.Windows.Forms.Button
|
|
Friend WithEvents Button7 As System.Windows.Forms.Button
|
|
Friend WithEvents Button8 As System.Windows.Forms.Button
|
|
Friend WithEvents Label12 As System.Windows.Forms.Label
|
|
Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
|
|
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
|
|
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label14 As System.Windows.Forms.Label
|
|
Friend WithEvents Label15 As System.Windows.Forms.Label
|
|
Friend WithEvents Label19 As System.Windows.Forms.Label
|
|
Friend WithEvents DateTimePicker4 As System.Windows.Forms.DateTimePicker
|
|
Friend WithEvents Label21 As System.Windows.Forms.Label
|
|
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label23 As System.Windows.Forms.Label
|
|
Friend WithEvents DateErinnerung As C1.Win.C1Input.C1DateEdit
|
|
Friend WithEvents drpMiatarbeiter As C1.Win.C1TrueDBGrid.C1TrueDBDropdown
|
|
Friend WithEvents BtnHelp As System.Windows.Forms.Button
|
|
Friend WithEvents btnLoeschen As System.Windows.Forms.Button
|
|
Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Me.components = New System.ComponentModel.Container()
|
|
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmDokumentInfoEdit))
|
|
Dim GridLines1 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
|
Dim GridLines2 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
|
Dim GridLines3 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
|
Dim GridLines4 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
|
Dim GridLines5 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
|
Dim GridLines6 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
|
Dim GridLines7 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
|
Me.ContextMenu1 = New System.Windows.Forms.ContextMenu()
|
|
Me.MnuNeueNotiz = New System.Windows.Forms.MenuItem()
|
|
Me.MnuEditNotiz = New System.Windows.Forms.MenuItem()
|
|
Me.MnuDeleteNotiz = New System.Windows.Forms.MenuItem()
|
|
Me.btnWeiter = New System.Windows.Forms.Button()
|
|
Me.btnCancel = New System.Windows.Forms.Button()
|
|
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
|
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
|
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
Me.DataSet1 = New System.Data.DataSet()
|
|
Me.SqlDataAdapter2 = New System.Data.SqlClient.SqlDataAdapter()
|
|
Me.SqlDeleteCommand2 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlInsertCommand2 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlUpdateCommand2 = New System.Data.SqlClient.SqlCommand()
|
|
Me.DataSet2 = New System.Data.DataSet()
|
|
Me.SqlDataAdapter3 = New System.Data.SqlClient.SqlDataAdapter()
|
|
Me.SqlDeleteCommand3 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlInsertCommand3 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlSelectCommand3 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlUpdateCommand3 = New System.Data.SqlClient.SqlCommand()
|
|
Me.DataSet3 = New System.Data.DataSet()
|
|
Me.DataSet4 = New System.Data.DataSet()
|
|
Me.TabControl2 = New System.Windows.Forms.TabControl()
|
|
Me.TabPage3 = New System.Windows.Forms.TabPage()
|
|
Me.GroupBox12 = New System.Windows.Forms.GroupBox()
|
|
Me.cbteam = New System.Windows.Forms.ComboBox()
|
|
Me.GroupBox10 = New System.Windows.Forms.GroupBox()
|
|
Me.DokWertList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
|
Me.ContextMenu2 = New System.Windows.Forms.ContextMenu()
|
|
Me.MnuValueSelect = New System.Windows.Forms.MenuItem()
|
|
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
|
|
Me.cbUnterschriftrechts = New System.Windows.Forms.ComboBox()
|
|
Me.cbUnterschriftlinks = New System.Windows.Forms.ComboBox()
|
|
Me.Label8 = New System.Windows.Forms.Label()
|
|
Me.Label7 = New System.Windows.Forms.Label()
|
|
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
|
Me.RBZustaendigZustaendiger = New System.Windows.Forms.RadioButton()
|
|
Me.rbZustaendigKube = New System.Windows.Forms.RadioButton()
|
|
Me.cbzust = New System.Windows.Forms.ComboBox()
|
|
Me.cbKube = New System.Windows.Forms.ComboBox()
|
|
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
|
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
|
|
Me.cbPostzustellung = New System.Windows.Forms.ComboBox()
|
|
Me.Label5 = New System.Windows.Forms.Label()
|
|
Me.Label3 = New System.Windows.Forms.Label()
|
|
Me.TabPage4 = New System.Windows.Forms.TabPage()
|
|
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
|
|
Me.ColdList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
|
Me.ContextMenu7 = New System.Windows.Forms.ContextMenu()
|
|
Me.MenuItem5 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem6 = New System.Windows.Forms.MenuItem()
|
|
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
|
|
Me.Label20 = New System.Windows.Forms.Label()
|
|
Me.DateTimePicker3 = New System.Windows.Forms.DateTimePicker()
|
|
Me.Label10 = New System.Windows.Forms.Label()
|
|
Me.TabPage5 = New System.Windows.Forms.TabPage()
|
|
Me.TabPage1 = New System.Windows.Forms.TabPage()
|
|
Me.Button2 = New System.Windows.Forms.Button()
|
|
Me.GroupBox11 = New System.Windows.Forms.GroupBox()
|
|
Me.Label13 = New System.Windows.Forms.Label()
|
|
Me.txtAnredeZusteller = New System.Windows.Forms.TextBox()
|
|
Me.txtZustelladresse = New System.Windows.Forms.TextBox()
|
|
Me.ContextMenu4 = New System.Windows.Forms.ContextMenu()
|
|
Me.mnuInfoEmpfaengerAdd = New System.Windows.Forms.MenuItem()
|
|
Me.mnuInfoEmpfaengerDelete = New System.Windows.Forms.MenuItem()
|
|
Me.ContextMenu3 = New System.Windows.Forms.ContextMenu()
|
|
Me.MnuDokZuordnungAdd = New System.Windows.Forms.MenuItem()
|
|
Me.MnuDokzuordnungDelete = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem1 = New System.Windows.Forms.MenuItem()
|
|
Me.MnuShowDoc = New System.Windows.Forms.MenuItem()
|
|
Me.ContextMenu6 = New System.Windows.Forms.ContextMenu()
|
|
Me.MenuItem3 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem4 = New System.Windows.Forms.MenuItem()
|
|
Me.cbVerantwortlich = New System.Windows.Forms.ComboBox()
|
|
Me.ContextMenu5 = New System.Windows.Forms.ContextMenu()
|
|
Me.MenuItem2 = New System.Windows.Forms.MenuItem()
|
|
Me.Label17 = New System.Windows.Forms.Label()
|
|
Me.Label16 = New System.Windows.Forms.Label()
|
|
Me.cbdokumentstatus = New System.Windows.Forms.ComboBox()
|
|
Me.txtPartnerInhaberNr = New System.Windows.Forms.TextBox()
|
|
Me.txtBezeichnung = New System.Windows.Forms.TextBox()
|
|
Me.Label4 = New System.Windows.Forms.Label()
|
|
Me.btnPartnerInhaber = New System.Windows.Forms.Button()
|
|
Me.txtPartnerZusteller = New System.Windows.Forms.TextBox()
|
|
Me.txtPartnerInhaber = New System.Windows.Forms.TextBox()
|
|
Me.Label2 = New System.Windows.Forms.Label()
|
|
Me.Label1 = New System.Windows.Forms.Label()
|
|
Me.cdokumentwerteanzeigen = New System.Windows.Forms.CheckBox()
|
|
Me.Button1 = New System.Windows.Forms.Button()
|
|
Me.ContextMenu8 = New System.Windows.Forms.ContextMenu()
|
|
Me.Button4 = New System.Windows.Forms.Button()
|
|
Me.cbsave = New System.Windows.Forms.ComboBox()
|
|
Me.cbmoeglicheStati = New System.Windows.Forms.ComboBox()
|
|
Me.Panel1 = New System.Windows.Forms.Panel()
|
|
Me.Label11 = New System.Windows.Forms.Label()
|
|
Me.txtstatus = New System.Windows.Forms.Label()
|
|
Me.TabControl1 = New System.Windows.Forms.TabControl()
|
|
Me.TabPage2 = New System.Windows.Forms.TabPage()
|
|
Me.GroupBox14 = New System.Windows.Forms.GroupBox()
|
|
Me.DateErinnerung = New C1.Win.C1Input.C1DateEdit()
|
|
Me.Label23 = New System.Windows.Forms.Label()
|
|
Me.DateTimePicker2 = New C1.Win.C1Input.C1DateEdit()
|
|
Me.Label6 = New System.Windows.Forms.Label()
|
|
Me.GroupBox8 = New System.Windows.Forms.GroupBox()
|
|
Me.drpMiatarbeiter = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown()
|
|
Me.Notizlist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
|
Me.GroupBox7 = New System.Windows.Forms.GroupBox()
|
|
Me.InfoMeldungList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
|
Me.GroupBox6 = New System.Windows.Forms.GroupBox()
|
|
Me.ZuordnungList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
|
Me.GroupBox13 = New System.Windows.Forms.GroupBox()
|
|
Me.txtBemerkung = New System.Windows.Forms.TextBox()
|
|
Me.TabPage6 = New System.Windows.Forms.TabPage()
|
|
Me.GroupBox15 = New System.Windows.Forms.GroupBox()
|
|
Me.btnLoeschen = New System.Windows.Forms.Button()
|
|
Me.Button5 = New System.Windows.Forms.Button()
|
|
Me.Button6 = New System.Windows.Forms.Button()
|
|
Me.Button7 = New System.Windows.Forms.Button()
|
|
Me.Button8 = New System.Windows.Forms.Button()
|
|
Me.Label12 = New System.Windows.Forms.Label()
|
|
Me.TextBox4 = New System.Windows.Forms.TextBox()
|
|
Me.TextBox3 = New System.Windows.Forms.TextBox()
|
|
Me.TextBox2 = New System.Windows.Forms.TextBox()
|
|
Me.Label14 = New System.Windows.Forms.Label()
|
|
Me.Label15 = New System.Windows.Forms.Label()
|
|
Me.Label19 = New System.Windows.Forms.Label()
|
|
Me.DateTimePicker4 = New System.Windows.Forms.DateTimePicker()
|
|
Me.Label21 = New System.Windows.Forms.Label()
|
|
Me.TextBox1 = New System.Windows.Forms.TextBox()
|
|
Me.pnlBerechtigungen = New System.Windows.Forms.GroupBox()
|
|
Me.DokumentFunktionenList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
|
Me.GroupBox9 = New System.Windows.Forms.GroupBox()
|
|
Me.Button3 = New System.Windows.Forms.Button()
|
|
Me.cvertraulich = New System.Windows.Forms.CheckBox()
|
|
Me.Label18 = New System.Windows.Forms.Label()
|
|
Me.cGesperrt = New System.Windows.Forms.CheckBox()
|
|
Me.Label9 = New System.Windows.Forms.Label()
|
|
Me.BtnHelp = New System.Windows.Forms.Button()
|
|
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
|
|
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.DataSet4, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.TabControl2.SuspendLayout()
|
|
Me.TabPage3.SuspendLayout()
|
|
Me.GroupBox12.SuspendLayout()
|
|
Me.GroupBox10.SuspendLayout()
|
|
CType(Me.DokWertList, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.GroupBox3.SuspendLayout()
|
|
Me.GroupBox1.SuspendLayout()
|
|
Me.GroupBox2.SuspendLayout()
|
|
Me.TabPage4.SuspendLayout()
|
|
Me.GroupBox5.SuspendLayout()
|
|
CType(Me.ColdList, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.GroupBox4.SuspendLayout()
|
|
Me.TabPage1.SuspendLayout()
|
|
Me.GroupBox11.SuspendLayout()
|
|
Me.TabControl1.SuspendLayout()
|
|
Me.TabPage2.SuspendLayout()
|
|
Me.GroupBox14.SuspendLayout()
|
|
CType(Me.DateErinnerung, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.DateTimePicker2, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.GroupBox8.SuspendLayout()
|
|
CType(Me.drpMiatarbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.Notizlist, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.GroupBox7.SuspendLayout()
|
|
CType(Me.InfoMeldungList, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.GroupBox6.SuspendLayout()
|
|
CType(Me.ZuordnungList, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.GroupBox13.SuspendLayout()
|
|
Me.TabPage6.SuspendLayout()
|
|
Me.GroupBox15.SuspendLayout()
|
|
Me.pnlBerechtigungen.SuspendLayout()
|
|
CType(Me.DokumentFunktionenList, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.GroupBox9.SuspendLayout()
|
|
Me.SuspendLayout()
|
|
'
|
|
'ContextMenu1
|
|
'
|
|
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuNeueNotiz, Me.MnuEditNotiz, Me.MnuDeleteNotiz})
|
|
'
|
|
'MnuNeueNotiz
|
|
'
|
|
Me.MnuNeueNotiz.Index = 0
|
|
Me.MnuNeueNotiz.Text = "&Neue Notiz"
|
|
'
|
|
'MnuEditNotiz
|
|
'
|
|
Me.MnuEditNotiz.Index = 1
|
|
Me.MnuEditNotiz.Text = "&Notiz bearbeiten"
|
|
'
|
|
'MnuDeleteNotiz
|
|
'
|
|
Me.MnuDeleteNotiz.Index = 2
|
|
Me.MnuDeleteNotiz.Text = "Notiz &löschen"
|
|
'
|
|
'btnWeiter
|
|
'
|
|
Me.btnWeiter.Location = New System.Drawing.Point(696, 496)
|
|
Me.btnWeiter.Name = "btnWeiter"
|
|
Me.btnWeiter.Size = New System.Drawing.Size(104, 23)
|
|
Me.btnWeiter.TabIndex = 7
|
|
Me.btnWeiter.Text = "&Speichern"
|
|
'
|
|
'btnCancel
|
|
'
|
|
Me.btnCancel.Location = New System.Drawing.Point(40, 496)
|
|
Me.btnCancel.Name = "btnCancel"
|
|
Me.btnCancel.Size = New System.Drawing.Size(104, 23)
|
|
Me.btnCancel.TabIndex = 8
|
|
Me.btnCancel.Text = "&Abbruch"
|
|
'
|
|
'SqlDataAdapter1
|
|
'
|
|
Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
|
|
Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
|
|
Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
|
|
Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "SP_Dokumentbearbeitung_Dokumentwerte", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("vorlagenfeldnr", "vorlagenfeldnr"), New System.Data.Common.DataColumnMapping("vorlagenfeldregelnr", "vorlagenfeldregelnr"), New System.Data.Common.DataColumnMapping("feldtyp", "feldtyp"), New System.Data.Common.DataColumnMapping("datenherkunft", "datenherkunft"), New System.Data.Common.DataColumnMapping("Feldwert", "Feldwert")})})
|
|
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
|
'
|
|
'SqlDeleteCommand1
|
|
'
|
|
Me.SqlDeleteCommand1.CommandText = "[NewDeleteCommand]"
|
|
Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
|
|
Me.SqlDeleteCommand1.Parameters.Add(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))
|
|
Me.SqlDeleteCommand1.Parameters.Add(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))
|
|
Me.SqlDeleteCommand1.Parameters.Add(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))
|
|
Me.SqlDeleteCommand1.Parameters.Add(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))
|
|
Me.SqlDeleteCommand1.Parameters.Add(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))
|
|
Me.SqlDeleteCommand1.Parameters.Add(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))
|
|
Me.SqlDeleteCommand1.Parameters.Add(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))
|
|
Me.SqlDeleteCommand1.Parameters.Add(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))
|
|
Me.SqlDeleteCommand1.Parameters.Add(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"
|
|
'
|
|
'SqlInsertCommand1
|
|
'
|
|
Me.SqlInsertCommand1.CommandText = "[NewInsertCommand]"
|
|
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlInsertCommand1.Connection = Me.SqlConnection1
|
|
Me.SqlInsertCommand1.Parameters.Add(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))
|
|
Me.SqlInsertCommand1.Parameters.Add(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))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 50))
|
|
Me.SqlInsertCommand1.Parameters.Add(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))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8))
|
|
Me.SqlInsertCommand1.Parameters.Add(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.Add(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))
|
|
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Dokumentid", System.Data.SqlDbType.VarChar, 20))
|
|
Me.SqlSelectCommand1.Parameters.Add(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))
|
|
Me.SqlSelectCommand1.Parameters.Add(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.Add(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))
|
|
Me.SqlUpdateCommand1.Parameters.Add(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))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 50))
|
|
Me.SqlUpdateCommand1.Parameters.Add(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))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8))
|
|
Me.SqlUpdateCommand1.Parameters.Add(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))
|
|
Me.SqlUpdateCommand1.Parameters.Add(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))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 50))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8))
|
|
Me.SqlUpdateCommand1.Parameters.Add(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))
|
|
Me.SqlUpdateCommand1.Parameters.Add(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))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8))
|
|
'
|
|
'DataSet1
|
|
'
|
|
Me.DataSet1.DataSetName = "NewDataSet"
|
|
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
|
'
|
|
'SqlDataAdapter2
|
|
'
|
|
Me.SqlDataAdapter2.DeleteCommand = Me.SqlDeleteCommand2
|
|
Me.SqlDataAdapter2.InsertCommand = Me.SqlInsertCommand2
|
|
Me.SqlDataAdapter2.SelectCommand = Me.SqlSelectCommand2
|
|
Me.SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Postzustellung", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("nreintrag", "nreintrag"), New System.Data.Common.DataColumnMapping("sprache", "sprache"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
|
Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand2
|
|
'
|
|
'SqlDeleteCommand2
|
|
'
|
|
Me.SqlDeleteCommand2.CommandText = "[pv_postzustellung_delete]"
|
|
Me.SqlDeleteCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlDeleteCommand2.Connection = Me.SqlConnection1
|
|
Me.SqlDeleteCommand2.Parameters.Add(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))
|
|
Me.SqlDeleteCommand2.Parameters.Add(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))
|
|
Me.SqlDeleteCommand2.Parameters.Add(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))
|
|
Me.SqlDeleteCommand2.Parameters.Add(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))
|
|
Me.SqlDeleteCommand2.Parameters.Add(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))
|
|
Me.SqlDeleteCommand2.Parameters.Add(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))
|
|
Me.SqlDeleteCommand2.Parameters.Add(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))
|
|
Me.SqlDeleteCommand2.Parameters.Add(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))
|
|
Me.SqlDeleteCommand2.Parameters.Add(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.Add(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))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sprache", System.Data.SqlDbType.Int, 4, "sprache"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
|
Me.SqlInsertCommand2.Parameters.Add(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.Add(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))
|
|
Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
|
Me.SqlSelectCommand2.Parameters.Add(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.Add(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))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "sprache"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param2", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(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))
|
|
Me.SqlUpdateCommand2.Parameters.Add(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))
|
|
Me.SqlUpdateCommand2.Parameters.Add(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))
|
|
Me.SqlUpdateCommand2.Parameters.Add(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))
|
|
Me.SqlUpdateCommand2.Parameters.Add(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))
|
|
Me.SqlUpdateCommand2.Parameters.Add(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))
|
|
Me.SqlUpdateCommand2.Parameters.Add(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))
|
|
Me.SqlUpdateCommand2.Parameters.Add(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))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@nreintrag", System.Data.SqlDbType.Int, 4, "nreintrag"))
|
|
'
|
|
'DataSet2
|
|
'
|
|
Me.DataSet2.DataSetName = "NewDataSet"
|
|
Me.DataSet2.Locale = New System.Globalization.CultureInfo("de-CH")
|
|
'
|
|
'SqlDataAdapter3
|
|
'
|
|
Me.SqlDataAdapter3.DeleteCommand = Me.SqlDeleteCommand3
|
|
Me.SqlDataAdapter3.InsertCommand = Me.SqlInsertCommand3
|
|
Me.SqlDataAdapter3.SelectCommand = Me.SqlSelectCommand3
|
|
Me.SqlDataAdapter3.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "funktionsgruppe", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("funktionsgruppenr", "funktionsgruppenr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung")})})
|
|
Me.SqlDataAdapter3.UpdateCommand = Me.SqlUpdateCommand3
|
|
'
|
|
'SqlDeleteCommand3
|
|
'
|
|
Me.SqlDeleteCommand3.CommandText = "[pv_funktionsgruppe_aktiv_delete]"
|
|
Me.SqlDeleteCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlDeleteCommand3.Connection = Me.SqlConnection1
|
|
Me.SqlDeleteCommand3.Parameters.Add(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))
|
|
Me.SqlDeleteCommand3.Parameters.Add(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))
|
|
Me.SqlDeleteCommand3.Parameters.Add(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.Add(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))
|
|
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, "funktionsgruppenr"))
|
|
Me.SqlInsertCommand3.Parameters.Add(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.Add(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))
|
|
Me.SqlSelectCommand3.Parameters.Add(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.Add(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))
|
|
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, "funktionsgruppenr"))
|
|
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"))
|
|
Me.SqlUpdateCommand3.Parameters.Add(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))
|
|
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
|
'
|
|
'DataSet3
|
|
'
|
|
Me.DataSet3.DataSetName = "NewDataSet"
|
|
Me.DataSet3.Locale = New System.Globalization.CultureInfo("de-CH")
|
|
'
|
|
'DataSet4
|
|
'
|
|
Me.DataSet4.DataSetName = "NewDataSet"
|
|
Me.DataSet4.Locale = New System.Globalization.CultureInfo("de-CH")
|
|
'
|
|
'TabControl2
|
|
'
|
|
Me.TabControl2.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabPage3, Me.TabPage4, Me.TabPage5, Me.TabPage1})
|
|
Me.TabControl2.Enabled = False
|
|
Me.TabControl2.Location = New System.Drawing.Point(8, 552)
|
|
Me.TabControl2.Name = "TabControl2"
|
|
Me.TabControl2.SelectedIndex = 0
|
|
Me.TabControl2.Size = New System.Drawing.Size(800, 232)
|
|
Me.TabControl2.TabIndex = 27
|
|
Me.TabControl2.Visible = False
|
|
'
|
|
'TabPage3
|
|
'
|
|
Me.TabPage3.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox12, Me.GroupBox10, Me.GroupBox3, Me.GroupBox1, Me.GroupBox2})
|
|
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
|
|
Me.TabPage3.Name = "TabPage3"
|
|
Me.TabPage3.Size = New System.Drawing.Size(792, 206)
|
|
Me.TabPage3.TabIndex = 0
|
|
Me.TabPage3.Text = "Dokumentinhalt"
|
|
'
|
|
'GroupBox12
|
|
'
|
|
Me.GroupBox12.Controls.AddRange(New System.Windows.Forms.Control() {Me.cbteam})
|
|
Me.GroupBox12.Location = New System.Drawing.Point(8, 304)
|
|
Me.GroupBox12.Name = "GroupBox12"
|
|
Me.GroupBox12.Size = New System.Drawing.Size(368, 16)
|
|
Me.GroupBox12.TabIndex = 38
|
|
Me.GroupBox12.TabStop = False
|
|
Me.GroupBox12.Text = "Team"
|
|
Me.GroupBox12.Visible = False
|
|
'
|
|
'cbteam
|
|
'
|
|
Me.cbteam.Location = New System.Drawing.Point(128, 16)
|
|
Me.cbteam.Name = "cbteam"
|
|
Me.cbteam.Size = New System.Drawing.Size(232, 21)
|
|
Me.cbteam.TabIndex = 14
|
|
Me.cbteam.Visible = False
|
|
'
|
|
'GroupBox10
|
|
'
|
|
Me.GroupBox10.Controls.AddRange(New System.Windows.Forms.Control() {Me.DokWertList})
|
|
Me.GroupBox10.Location = New System.Drawing.Point(384, 8)
|
|
Me.GroupBox10.Name = "GroupBox10"
|
|
Me.GroupBox10.Size = New System.Drawing.Size(400, 312)
|
|
Me.GroupBox10.TabIndex = 37
|
|
Me.GroupBox10.TabStop = False
|
|
Me.GroupBox10.Text = "Dokumentspezifisch"
|
|
'
|
|
'DokWertList
|
|
'
|
|
Me.DokWertList.AllowFilter = False
|
|
Me.DokWertList.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.DokWertList.AllowSort = False
|
|
Me.DokWertList.AlternatingRows = True
|
|
Me.DokWertList.CaptionHeight = 17
|
|
Me.DokWertList.CollapseColor = System.Drawing.Color.Black
|
|
Me.DokWertList.ContextMenu = Me.ContextMenu2
|
|
Me.DokWertList.DataChanged = False
|
|
Me.DokWertList.DeadAreaBackColor = System.Drawing.Color.Empty
|
|
Me.DokWertList.ExpandColor = System.Drawing.Color.Black
|
|
Me.DokWertList.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.DokWertList.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
|
|
Me.DokWertList.Location = New System.Drawing.Point(8, 16)
|
|
Me.DokWertList.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
|
|
Me.DokWertList.Name = "DokWertList"
|
|
Me.DokWertList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.DokWertList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.DokWertList.PreviewInfo.ZoomFactor = 75
|
|
Me.DokWertList.PrintInfo.ShowOptionsDialog = False
|
|
Me.DokWertList.RecordSelectorWidth = 16
|
|
GridLines1.Color = System.Drawing.Color.DarkGray
|
|
GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
|
Me.DokWertList.RowDivider = GridLines1
|
|
Me.DokWertList.RowHeight = 15
|
|
Me.DokWertList.RowSubDividerColor = System.Drawing.Color.DarkGray
|
|
Me.DokWertList.ScrollTips = False
|
|
Me.DokWertList.Size = New System.Drawing.Size(384, 288)
|
|
Me.DokWertList.TabIndex = 14
|
|
Me.DokWertList.Text = "C1TrueDBGrid1"
|
|
Me.DokWertList.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
|
"r""><Data>Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}E" & _
|
|
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
|
|
"{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
|
|
"eCaptionText;BackColor:InactiveCaption;}FilterBar{}Footer{}Caption{AlignHorz:Cen" & _
|
|
"ter;}Normal{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style9{}O" & _
|
|
"ddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage:Center;}Heading{Wrap:Tr" & _
|
|
"ue;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Co" & _
|
|
"ntrol;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{}Style13{}Style1{}</Data" & _
|
|
"></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="""" AlternatingRowStyle=""Tr" & _
|
|
"ue"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" MarqueeS" & _
|
|
"tyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecSelWidth=""16"" VerticalScr" & _
|
|
"ollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 380, 284</ClientRect><B" & _
|
|
"orderSide>0</BorderSide><CaptionStyle parent=""Style2"" me=""Style10"" /><EditorStyl" & _
|
|
"e parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""Style8"" /><Fi" & _
|
|
"lterBarStyle parent=""FilterBar"" me=""Style13"" /><FooterStyle parent=""Footer"" me=""" & _
|
|
"Style3"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingStyle parent=""Headin" & _
|
|
"g"" me=""Style2"" /><HighLightRowStyle parent=""HighlightRow"" me=""Style7"" /><Inactiv" & _
|
|
"eStyle parent=""Inactive"" me=""Style4"" /><OddRowStyle parent=""OddRow"" me=""Style9"" " & _
|
|
"/><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /><SelectedStyle par" & _
|
|
"ent=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""Style1"" /></C1.Win.C1Tru" & _
|
|
"eDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=""Normal"" /><Style pa" & _
|
|
"rent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Footer"" /><Style parent" & _
|
|
"=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactive"" /><Style parent=" & _
|
|
"""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /><Style parent=""Nor" & _
|
|
"mal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Style parent=""No" & _
|
|
"rmal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelector"" /><Style parent=" & _
|
|
"""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" /></NamedStyles><ve" & _
|
|
"rtSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Modified</Layout><Defau" & _
|
|
"ltRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 380, 284</ClientArea></Bl" & _
|
|
"ob>"
|
|
'
|
|
'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.AddRange(New System.Windows.Forms.Control() {Me.cbUnterschriftrechts, Me.cbUnterschriftlinks, Me.Label8, Me.Label7})
|
|
Me.GroupBox3.Location = New System.Drawing.Point(8, 296)
|
|
Me.GroupBox3.Name = "GroupBox3"
|
|
Me.GroupBox3.Size = New System.Drawing.Size(368, 24)
|
|
Me.GroupBox3.TabIndex = 36
|
|
Me.GroupBox3.TabStop = False
|
|
Me.GroupBox3.Text = "Unterschrift"
|
|
Me.GroupBox3.Visible = False
|
|
'
|
|
'cbUnterschriftrechts
|
|
'
|
|
Me.cbUnterschriftrechts.Location = New System.Drawing.Point(128, 43)
|
|
Me.cbUnterschriftrechts.Name = "cbUnterschriftrechts"
|
|
Me.cbUnterschriftrechts.Size = New System.Drawing.Size(232, 21)
|
|
Me.cbUnterschriftrechts.TabIndex = 13
|
|
Me.cbUnterschriftrechts.Visible = False
|
|
'
|
|
'cbUnterschriftlinks
|
|
'
|
|
Me.cbUnterschriftlinks.Location = New System.Drawing.Point(128, 19)
|
|
Me.cbUnterschriftlinks.Name = "cbUnterschriftlinks"
|
|
Me.cbUnterschriftlinks.Size = New System.Drawing.Size(232, 21)
|
|
Me.cbUnterschriftlinks.TabIndex = 12
|
|
Me.cbUnterschriftlinks.Visible = False
|
|
'
|
|
'Label8
|
|
'
|
|
Me.Label8.Location = New System.Drawing.Point(8, 48)
|
|
Me.Label8.Name = "Label8"
|
|
Me.Label8.Size = New System.Drawing.Size(96, 23)
|
|
Me.Label8.TabIndex = 14
|
|
Me.Label8.Text = "Unterschrift rechts"
|
|
Me.Label8.Visible = False
|
|
'
|
|
'Label7
|
|
'
|
|
Me.Label7.Location = New System.Drawing.Point(8, 24)
|
|
Me.Label7.Name = "Label7"
|
|
Me.Label7.Size = New System.Drawing.Size(96, 23)
|
|
Me.Label7.TabIndex = 13
|
|
Me.Label7.Text = "Unterschrift links"
|
|
Me.Label7.Visible = False
|
|
'
|
|
'GroupBox1
|
|
'
|
|
Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.RBZustaendigZustaendiger, Me.rbZustaendigKube, Me.cbzust, Me.cbKube})
|
|
Me.GroupBox1.Location = New System.Drawing.Point(8, 296)
|
|
Me.GroupBox1.Name = "GroupBox1"
|
|
Me.GroupBox1.Size = New System.Drawing.Size(368, 24)
|
|
Me.GroupBox1.TabIndex = 35
|
|
Me.GroupBox1.TabStop = False
|
|
Me.GroupBox1.Text = "Zuständigkeit"
|
|
Me.GroupBox1.Visible = False
|
|
'
|
|
'RBZustaendigZustaendiger
|
|
'
|
|
Me.RBZustaendigZustaendiger.Location = New System.Drawing.Point(14, 42)
|
|
Me.RBZustaendigZustaendiger.Name = "RBZustaendigZustaendiger"
|
|
Me.RBZustaendigZustaendiger.Size = New System.Drawing.Size(98, 24)
|
|
Me.RBZustaendigZustaendiger.TabIndex = 10
|
|
Me.RBZustaendigZustaendiger.Text = "Zuständiger"
|
|
Me.RBZustaendigZustaendiger.Visible = False
|
|
'
|
|
'rbZustaendigKube
|
|
'
|
|
Me.rbZustaendigKube.Location = New System.Drawing.Point(14, 18)
|
|
Me.rbZustaendigKube.Name = "rbZustaendigKube"
|
|
Me.rbZustaendigKube.Size = New System.Drawing.Size(106, 24)
|
|
Me.rbZustaendigKube.TabIndex = 8
|
|
Me.rbZustaendigKube.Text = "Kundenberater"
|
|
Me.rbZustaendigKube.Visible = False
|
|
'
|
|
'cbzust
|
|
'
|
|
Me.cbzust.Location = New System.Drawing.Point(128, 47)
|
|
Me.cbzust.Name = "cbzust"
|
|
Me.cbzust.Size = New System.Drawing.Size(232, 21)
|
|
Me.cbzust.TabIndex = 11
|
|
Me.cbzust.Visible = False
|
|
'
|
|
'cbKube
|
|
'
|
|
Me.cbKube.Location = New System.Drawing.Point(128, 21)
|
|
Me.cbKube.Name = "cbKube"
|
|
Me.cbKube.Size = New System.Drawing.Size(232, 21)
|
|
Me.cbKube.TabIndex = 9
|
|
Me.cbKube.Visible = False
|
|
'
|
|
'GroupBox2
|
|
'
|
|
Me.GroupBox2.Controls.AddRange(New System.Windows.Forms.Control() {Me.DateTimePicker1, Me.cbPostzustellung, Me.Label5, Me.Label3})
|
|
Me.GroupBox2.Location = New System.Drawing.Point(8, 296)
|
|
Me.GroupBox2.Name = "GroupBox2"
|
|
Me.GroupBox2.Size = New System.Drawing.Size(368, 16)
|
|
Me.GroupBox2.TabIndex = 6
|
|
Me.GroupBox2.TabStop = False
|
|
Me.GroupBox2.Text = "Allgemein"
|
|
Me.GroupBox2.Visible = False
|
|
'
|
|
'DateTimePicker1
|
|
'
|
|
Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Short
|
|
Me.DateTimePicker1.Location = New System.Drawing.Point(128, 48)
|
|
Me.DateTimePicker1.Name = "DateTimePicker1"
|
|
Me.DateTimePicker1.Size = New System.Drawing.Size(104, 20)
|
|
Me.DateTimePicker1.TabIndex = 7
|
|
Me.DateTimePicker1.Visible = False
|
|
'
|
|
'cbPostzustellung
|
|
'
|
|
Me.cbPostzustellung.Location = New System.Drawing.Point(128, 24)
|
|
Me.cbPostzustellung.Name = "cbPostzustellung"
|
|
Me.cbPostzustellung.Size = New System.Drawing.Size(232, 21)
|
|
Me.cbPostzustellung.TabIndex = 6
|
|
Me.cbPostzustellung.Visible = False
|
|
'
|
|
'Label5
|
|
'
|
|
Me.Label5.Location = New System.Drawing.Point(16, 48)
|
|
Me.Label5.Name = "Label5"
|
|
Me.Label5.TabIndex = 11
|
|
Me.Label5.Text = "Dokument-Datum"
|
|
Me.Label5.Visible = False
|
|
'
|
|
'Label3
|
|
'
|
|
Me.Label3.Location = New System.Drawing.Point(16, 24)
|
|
Me.Label3.Name = "Label3"
|
|
Me.Label3.TabIndex = 10
|
|
Me.Label3.Text = "Post-Zustellung"
|
|
Me.Label3.Visible = False
|
|
'
|
|
'TabPage4
|
|
'
|
|
Me.TabPage4.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox5, Me.GroupBox4})
|
|
Me.TabPage4.Location = New System.Drawing.Point(4, 22)
|
|
Me.TabPage4.Name = "TabPage4"
|
|
Me.TabPage4.Size = New System.Drawing.Size(792, 206)
|
|
Me.TabPage4.TabIndex = 1
|
|
Me.TabPage4.Text = "Zusammenhänge"
|
|
Me.TabPage4.Visible = False
|
|
'
|
|
'GroupBox5
|
|
'
|
|
Me.GroupBox5.Controls.AddRange(New System.Windows.Forms.Control() {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.AllowFilter = True
|
|
Me.ColdList.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.ColdList.AllowSort = True
|
|
Me.ColdList.AllowUpdate = False
|
|
Me.ColdList.AlternatingRows = True
|
|
Me.ColdList.CaptionHeight = 17
|
|
Me.ColdList.CollapseColor = System.Drawing.Color.Black
|
|
Me.ColdList.ContextMenu = Me.ContextMenu7
|
|
Me.ColdList.DataChanged = False
|
|
Me.ColdList.DeadAreaBackColor = System.Drawing.Color.Empty
|
|
Me.ColdList.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.ColdList.ExpandColor = System.Drawing.Color.Black
|
|
Me.ColdList.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.ColdList.Images.Add(CType(resources.GetObject("resource.Images1"), System.Drawing.Bitmap))
|
|
Me.ColdList.Location = New System.Drawing.Point(3, 16)
|
|
Me.ColdList.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
|
|
Me.ColdList.Name = "ColdList"
|
|
Me.ColdList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.ColdList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.ColdList.PreviewInfo.ZoomFactor = 75
|
|
Me.ColdList.PrintInfo.ShowOptionsDialog = False
|
|
Me.ColdList.RecordSelectorWidth = 16
|
|
GridLines2.Color = System.Drawing.Color.DarkGray
|
|
GridLines2.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
|
Me.ColdList.RowDivider = GridLines2
|
|
Me.ColdList.RowHeight = 15
|
|
Me.ColdList.RowSubDividerColor = System.Drawing.Color.DarkGray
|
|
Me.ColdList.ScrollTips = False
|
|
Me.ColdList.Size = New System.Drawing.Size(394, 81)
|
|
Me.ColdList.TabIndex = 0
|
|
Me.ColdList.Text = "C1TrueDBGrid1"
|
|
Me.ColdList.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
|
"r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
|
|
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
|
|
"{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
|
|
"eCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}Foote" & _
|
|
"r{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackCo" & _
|
|
"lor:Highlight;}Style1{}OddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage" & _
|
|
":Center;}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor" & _
|
|
":ControlText;AlignVert:Center;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{" & _
|
|
"}Style13{}Style9{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name=""""" & _
|
|
" AlternatingRowStyle=""True"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFo" & _
|
|
"oterHeight=""17"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecS" & _
|
|
"elWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0," & _
|
|
" 390, 77</ClientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Style2"" me=" & _
|
|
"""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""Eve" & _
|
|
"nRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /><FooterSty" & _
|
|
"le parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style12"" /><Head" & _
|
|
"ingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""HighlightRow""" & _
|
|
" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRowStyle paren" & _
|
|
"t=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style1" & _
|
|
"1"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""S" & _
|
|
"tyle1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" " & _
|
|
"me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""" & _
|
|
"Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Ina" & _
|
|
"ctive"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Edito" & _
|
|
"r"" /><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenR" & _
|
|
"ow"" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSel" & _
|
|
"ector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Gro" & _
|
|
"up"" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>" & _
|
|
"None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 390, 7" & _
|
|
"7</ClientArea></Blob>"
|
|
'
|
|
'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.AddRange(New System.Windows.Forms.Control() {Me.Label20, Me.DateTimePicker3, Me.Label10})
|
|
Me.GroupBox4.Location = New System.Drawing.Point(8, 8)
|
|
Me.GroupBox4.Name = "GroupBox4"
|
|
Me.GroupBox4.Size = New System.Drawing.Size(368, 200)
|
|
Me.GroupBox4.TabIndex = 0
|
|
Me.GroupBox4.TabStop = False
|
|
Me.GroupBox4.Text = "Allgemein"
|
|
'
|
|
'Label20
|
|
'
|
|
Me.Label20.Location = New System.Drawing.Point(8, 72)
|
|
Me.Label20.Name = "Label20"
|
|
Me.Label20.Size = New System.Drawing.Size(80, 23)
|
|
Me.Label20.TabIndex = 35
|
|
Me.Label20.Text = "Bemerkung"
|
|
'
|
|
'DateTimePicker3
|
|
'
|
|
Me.DateTimePicker3.Format = System.Windows.Forms.DateTimePickerFormat.Short
|
|
Me.DateTimePicker3.Location = New System.Drawing.Point(88, 24)
|
|
Me.DateTimePicker3.Name = "DateTimePicker3"
|
|
Me.DateTimePicker3.Size = New System.Drawing.Size(96, 20)
|
|
Me.DateTimePicker3.TabIndex = 18
|
|
'
|
|
'Label10
|
|
'
|
|
Me.Label10.Location = New System.Drawing.Point(8, 24)
|
|
Me.Label10.Name = "Label10"
|
|
Me.Label10.Size = New System.Drawing.Size(80, 23)
|
|
Me.Label10.TabIndex = 34
|
|
Me.Label10.Text = "Archiv-Datum"
|
|
'
|
|
'TabPage5
|
|
'
|
|
Me.TabPage5.Location = New System.Drawing.Point(4, 22)
|
|
Me.TabPage5.Name = "TabPage5"
|
|
Me.TabPage5.Size = New System.Drawing.Size(792, 206)
|
|
Me.TabPage5.TabIndex = 2
|
|
Me.TabPage5.Text = "Notizen / Rechte"
|
|
Me.TabPage5.Visible = False
|
|
'
|
|
'TabPage1
|
|
'
|
|
Me.TabPage1.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button2, Me.GroupBox11})
|
|
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
|
|
Me.TabPage1.Name = "TabPage1"
|
|
Me.TabPage1.Size = New System.Drawing.Size(792, 206)
|
|
Me.TabPage1.TabIndex = 3
|
|
Me.TabPage1.Text = "Zustelladresse"
|
|
'
|
|
'Button2
|
|
'
|
|
Me.Button2.Image = CType(resources.GetObject("Button2.Image"), System.Drawing.Bitmap)
|
|
Me.Button2.Location = New System.Drawing.Point(312, 13)
|
|
Me.Button2.Name = "Button2"
|
|
Me.Button2.Size = New System.Drawing.Size(24, 23)
|
|
Me.Button2.TabIndex = 3
|
|
'
|
|
'GroupBox11
|
|
'
|
|
Me.GroupBox11.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label13, Me.txtAnredeZusteller, 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
|
|
Me.txtAnredeZusteller.Text = ""
|
|
'
|
|
'txtZustelladresse
|
|
'
|
|
Me.txtZustelladresse.Location = New System.Drawing.Point(8, 16)
|
|
Me.txtZustelladresse.Multiline = True
|
|
Me.txtZustelladresse.Name = "txtZustelladresse"
|
|
Me.txtZustelladresse.Size = New System.Drawing.Size(280, 128)
|
|
Me.txtZustelladresse.TabIndex = 0
|
|
Me.txtZustelladresse.Text = "TextBox1"
|
|
'
|
|
'ContextMenu4
|
|
'
|
|
Me.ContextMenu4.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuInfoEmpfaengerAdd, Me.mnuInfoEmpfaengerDelete})
|
|
'
|
|
'mnuInfoEmpfaengerAdd
|
|
'
|
|
Me.mnuInfoEmpfaengerAdd.Index = 0
|
|
Me.mnuInfoEmpfaengerAdd.Text = "Neuer Info-Empfänger"
|
|
'
|
|
'mnuInfoEmpfaengerDelete
|
|
'
|
|
Me.mnuInfoEmpfaengerDelete.Index = 1
|
|
Me.mnuInfoEmpfaengerDelete.Text = "Info-Empfänger löschen"
|
|
'
|
|
'ContextMenu3
|
|
'
|
|
Me.ContextMenu3.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuDokZuordnungAdd, Me.MnuDokzuordnungDelete, Me.MenuItem1, Me.MnuShowDoc})
|
|
'
|
|
'MnuDokZuordnungAdd
|
|
'
|
|
Me.MnuDokZuordnungAdd.Index = 0
|
|
Me.MnuDokZuordnungAdd.Text = "Dokument hinzufügen"
|
|
'
|
|
'MnuDokzuordnungDelete
|
|
'
|
|
Me.MnuDokzuordnungDelete.Index = 1
|
|
Me.MnuDokzuordnungDelete.Text = "Dokument entfernen"
|
|
'
|
|
'MenuItem1
|
|
'
|
|
Me.MenuItem1.Index = 2
|
|
Me.MenuItem1.Text = "-"
|
|
'
|
|
'MnuShowDoc
|
|
'
|
|
Me.MnuShowDoc.Index = 3
|
|
Me.MnuShowDoc.Text = "Dokument anzeigen"
|
|
'
|
|
'ContextMenu6
|
|
'
|
|
Me.ContextMenu6.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem3, Me.MenuItem4})
|
|
'
|
|
'MenuItem3
|
|
'
|
|
Me.MenuItem3.Index = 0
|
|
Me.MenuItem3.Text = "Berechtigungseinschränkung hinzufügen"
|
|
'
|
|
'MenuItem4
|
|
'
|
|
Me.MenuItem4.Index = 1
|
|
Me.MenuItem4.Text = "Berechtigungseinschränkung entfernen"
|
|
'
|
|
'cbVerantwortlich
|
|
'
|
|
Me.cbVerantwortlich.ContextMenu = Me.ContextMenu5
|
|
Me.cbVerantwortlich.ItemHeight = 13
|
|
Me.cbVerantwortlich.Location = New System.Drawing.Point(520, 64)
|
|
Me.cbVerantwortlich.Name = "cbVerantwortlich"
|
|
Me.cbVerantwortlich.Size = New System.Drawing.Size(240, 21)
|
|
Me.cbVerantwortlich.TabIndex = 4
|
|
Me.cbVerantwortlich.Visible = False
|
|
'
|
|
'ContextMenu5
|
|
'
|
|
Me.ContextMenu5.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2})
|
|
'
|
|
'MenuItem2
|
|
'
|
|
Me.MenuItem2.Index = 0
|
|
Me.MenuItem2.Text = "&Berechtigte Mitarbeiter"
|
|
'
|
|
'Label17
|
|
'
|
|
Me.Label17.Location = New System.Drawing.Point(416, 64)
|
|
Me.Label17.Name = "Label17"
|
|
Me.Label17.Size = New System.Drawing.Size(88, 23)
|
|
Me.Label17.TabIndex = 44
|
|
Me.Label17.Text = "Verantwortlicher"
|
|
Me.Label17.Visible = False
|
|
'
|
|
'Label16
|
|
'
|
|
Me.Label16.Location = New System.Drawing.Point(416, 40)
|
|
Me.Label16.Name = "Label16"
|
|
Me.Label16.Size = New System.Drawing.Size(96, 23)
|
|
Me.Label16.TabIndex = 43
|
|
Me.Label16.Text = "Dokumentstatus"
|
|
Me.Label16.Visible = False
|
|
'
|
|
'cbdokumentstatus
|
|
'
|
|
Me.cbdokumentstatus.ItemHeight = 13
|
|
Me.cbdokumentstatus.Location = New System.Drawing.Point(520, 40)
|
|
Me.cbdokumentstatus.Name = "cbdokumentstatus"
|
|
Me.cbdokumentstatus.Size = New System.Drawing.Size(264, 21)
|
|
Me.cbdokumentstatus.TabIndex = 4
|
|
Me.cbdokumentstatus.Visible = False
|
|
'
|
|
'txtPartnerInhaberNr
|
|
'
|
|
Me.txtPartnerInhaberNr.Location = New System.Drawing.Point(16, 72)
|
|
Me.txtPartnerInhaberNr.Name = "txtPartnerInhaberNr"
|
|
Me.txtPartnerInhaberNr.ReadOnly = True
|
|
Me.txtPartnerInhaberNr.Size = New System.Drawing.Size(176, 20)
|
|
Me.txtPartnerInhaberNr.TabIndex = 42
|
|
Me.txtPartnerInhaberNr.Text = ""
|
|
Me.txtPartnerInhaberNr.Visible = False
|
|
'
|
|
'txtBezeichnung
|
|
'
|
|
Me.txtBezeichnung.Location = New System.Drawing.Point(520, 16)
|
|
Me.txtBezeichnung.Name = "txtBezeichnung"
|
|
Me.txtBezeichnung.ReadOnly = True
|
|
Me.txtBezeichnung.Size = New System.Drawing.Size(264, 20)
|
|
Me.txtBezeichnung.TabIndex = 3
|
|
Me.txtBezeichnung.Text = ""
|
|
'
|
|
'Label4
|
|
'
|
|
Me.Label4.Location = New System.Drawing.Point(416, 16)
|
|
Me.Label4.Name = "Label4"
|
|
Me.Label4.TabIndex = 38
|
|
Me.Label4.Text = "Bezeichnung"
|
|
'
|
|
'btnPartnerInhaber
|
|
'
|
|
Me.btnPartnerInhaber.Image = CType(resources.GetObject("btnPartnerInhaber.Image"), System.Drawing.Bitmap)
|
|
Me.btnPartnerInhaber.Location = New System.Drawing.Point(352, 64)
|
|
Me.btnPartnerInhaber.Name = "btnPartnerInhaber"
|
|
Me.btnPartnerInhaber.Size = New System.Drawing.Size(24, 24)
|
|
Me.btnPartnerInhaber.TabIndex = 2
|
|
Me.btnPartnerInhaber.Visible = False
|
|
'
|
|
'txtPartnerZusteller
|
|
'
|
|
Me.txtPartnerZusteller.Location = New System.Drawing.Point(112, 40)
|
|
Me.txtPartnerZusteller.Name = "txtPartnerZusteller"
|
|
Me.txtPartnerZusteller.ReadOnly = True
|
|
Me.txtPartnerZusteller.Size = New System.Drawing.Size(240, 20)
|
|
Me.txtPartnerZusteller.TabIndex = 1
|
|
Me.txtPartnerZusteller.Text = ""
|
|
'
|
|
'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
|
|
Me.txtPartnerInhaber.Text = ""
|
|
'
|
|
'Label2
|
|
'
|
|
Me.Label2.Location = New System.Drawing.Point(8, 40)
|
|
Me.Label2.Name = "Label2"
|
|
Me.Label2.TabIndex = 34
|
|
Me.Label2.Text = "Partner-Zusteller"
|
|
'
|
|
'Label1
|
|
'
|
|
Me.Label1.Location = New System.Drawing.Point(8, 16)
|
|
Me.Label1.Name = "Label1"
|
|
Me.Label1.TabIndex = 33
|
|
Me.Label1.Text = "Partner-Inhaber"
|
|
'
|
|
'cdokumentwerteanzeigen
|
|
'
|
|
Me.cdokumentwerteanzeigen.Location = New System.Drawing.Point(528, 496)
|
|
Me.cdokumentwerteanzeigen.Name = "cdokumentwerteanzeigen"
|
|
Me.cdokumentwerteanzeigen.Size = New System.Drawing.Size(160, 32)
|
|
Me.cdokumentwerteanzeigen.TabIndex = 6
|
|
Me.cdokumentwerteanzeigen.Text = "Dokumentinhalte anzeigen"
|
|
'
|
|
'Button1
|
|
'
|
|
Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Bitmap)
|
|
Me.Button1.Location = New System.Drawing.Point(352, 16)
|
|
Me.Button1.Name = "Button1"
|
|
Me.Button1.Size = New System.Drawing.Size(24, 24)
|
|
Me.Button1.TabIndex = 2
|
|
Me.ToolTip1.SetToolTip(Me.Button1, "Partner Detailinformationen")
|
|
'
|
|
'Button4
|
|
'
|
|
Me.Button4.Image = CType(resources.GetObject("Button4.Image"), System.Drawing.Bitmap)
|
|
Me.Button4.Location = New System.Drawing.Point(328, 64)
|
|
Me.Button4.Name = "Button4"
|
|
Me.Button4.Size = New System.Drawing.Size(24, 24)
|
|
Me.Button4.TabIndex = 47
|
|
Me.Button4.Visible = False
|
|
'
|
|
'cbsave
|
|
'
|
|
Me.cbsave.Enabled = False
|
|
Me.cbsave.Items.AddRange(New Object() {"abc", "def", "gagas d sd", "sdf sdf sfd "})
|
|
Me.cbsave.Location = New System.Drawing.Point(764, 64)
|
|
Me.cbsave.Name = "cbsave"
|
|
Me.cbsave.Size = New System.Drawing.Size(21, 21)
|
|
Me.cbsave.TabIndex = 49
|
|
Me.cbsave.Text = "ComboBox1"
|
|
Me.cbsave.Visible = False
|
|
'
|
|
'cbmoeglicheStati
|
|
'
|
|
Me.cbmoeglicheStati.Enabled = False
|
|
Me.cbmoeglicheStati.Items.AddRange(New Object() {"abc", "def", "gagas d sd", "sdf sdf sfd "})
|
|
Me.cbmoeglicheStati.Location = New System.Drawing.Point(764, 64)
|
|
Me.cbmoeglicheStati.Name = "cbmoeglicheStati"
|
|
Me.cbmoeglicheStati.Size = New System.Drawing.Size(21, 21)
|
|
Me.cbmoeglicheStati.TabIndex = 48
|
|
Me.cbmoeglicheStati.Text = "ComboBox1"
|
|
'
|
|
'Panel1
|
|
'
|
|
Me.Panel1.Location = New System.Drawing.Point(784, 16)
|
|
Me.Panel1.Name = "Panel1"
|
|
Me.Panel1.Size = New System.Drawing.Size(24, 100)
|
|
Me.Panel1.TabIndex = 50
|
|
'
|
|
'Label11
|
|
'
|
|
Me.Label11.Location = New System.Drawing.Point(416, 80)
|
|
Me.Label11.Name = "Label11"
|
|
Me.Label11.Size = New System.Drawing.Size(96, 32)
|
|
Me.Label11.TabIndex = 52
|
|
Me.Label11.Text = "Berechtigt für Folgestatus"
|
|
Me.Label11.Visible = False
|
|
'
|
|
'txtstatus
|
|
'
|
|
Me.txtstatus.Location = New System.Drawing.Point(520, 88)
|
|
Me.txtstatus.Name = "txtstatus"
|
|
Me.txtstatus.Size = New System.Drawing.Size(224, 16)
|
|
Me.txtstatus.TabIndex = 51
|
|
Me.txtstatus.Text = "Label3"
|
|
Me.txtstatus.Visible = False
|
|
'
|
|
'TabControl1
|
|
'
|
|
Me.TabControl1.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabPage2, Me.TabPage6})
|
|
Me.TabControl1.Location = New System.Drawing.Point(8, 64)
|
|
Me.TabControl1.Name = "TabControl1"
|
|
Me.TabControl1.SelectedIndex = 0
|
|
Me.TabControl1.Size = New System.Drawing.Size(800, 424)
|
|
Me.TabControl1.TabIndex = 5
|
|
'
|
|
'TabPage2
|
|
'
|
|
Me.TabPage2.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox14, Me.GroupBox8, Me.GroupBox7, Me.GroupBox6, Me.GroupBox13})
|
|
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
|
|
Me.TabPage2.Name = "TabPage2"
|
|
Me.TabPage2.Size = New System.Drawing.Size(792, 398)
|
|
Me.TabPage2.TabIndex = 0
|
|
Me.TabPage2.Text = "Allgemein"
|
|
'
|
|
'GroupBox14
|
|
'
|
|
Me.GroupBox14.Controls.AddRange(New System.Windows.Forms.Control() {Me.DateErinnerung, Me.Label23, Me.DateTimePicker2, Me.Label6})
|
|
Me.GroupBox14.Location = New System.Drawing.Point(8, 8)
|
|
Me.GroupBox14.Name = "GroupBox14"
|
|
Me.GroupBox14.Size = New System.Drawing.Size(368, 40)
|
|
Me.GroupBox14.TabIndex = 59
|
|
Me.GroupBox14.TabStop = False
|
|
'
|
|
'DateErinnerung
|
|
'
|
|
Me.DateErinnerung.FormatType = C1.Win.C1Input.FormatTypeEnum.ShortDate
|
|
Me.DateErinnerung.Location = New System.Drawing.Point(264, 13)
|
|
Me.DateErinnerung.Name = "DateErinnerung"
|
|
Me.DateErinnerung.ShowUpDownButtons = False
|
|
Me.DateErinnerung.Size = New System.Drawing.Size(96, 20)
|
|
Me.DateErinnerung.TabIndex = 1
|
|
Me.DateErinnerung.Tag = Nothing
|
|
'
|
|
'Label23
|
|
'
|
|
Me.Label23.Location = New System.Drawing.Point(155, 15)
|
|
Me.Label23.Name = "Label23"
|
|
Me.Label23.Size = New System.Drawing.Size(120, 23)
|
|
Me.Label23.TabIndex = 39
|
|
Me.Label23.Text = "Überfällig-Meldung ab"
|
|
'
|
|
'DateTimePicker2
|
|
'
|
|
Me.DateTimePicker2.FormatType = C1.Win.C1Input.FormatTypeEnum.ShortDate
|
|
Me.DateTimePicker2.Location = New System.Drawing.Point(50, 13)
|
|
Me.DateTimePicker2.Name = "DateTimePicker2"
|
|
Me.DateTimePicker2.ShowUpDownButtons = False
|
|
Me.DateTimePicker2.Size = New System.Drawing.Size(96, 20)
|
|
Me.DateTimePicker2.TabIndex = 0
|
|
Me.DateTimePicker2.Tag = Nothing
|
|
'
|
|
'Label6
|
|
'
|
|
Me.Label6.Location = New System.Drawing.Point(8, 14)
|
|
Me.Label6.Name = "Label6"
|
|
Me.Label6.Size = New System.Drawing.Size(80, 23)
|
|
Me.Label6.TabIndex = 37
|
|
Me.Label6.Text = "Termin"
|
|
'
|
|
'GroupBox8
|
|
'
|
|
Me.GroupBox8.Controls.AddRange(New System.Windows.Forms.Control() {Me.drpMiatarbeiter, Me.Notizlist})
|
|
Me.GroupBox8.Location = New System.Drawing.Point(8, 272)
|
|
Me.GroupBox8.Name = "GroupBox8"
|
|
Me.GroupBox8.Size = New System.Drawing.Size(776, 120)
|
|
Me.GroupBox8.TabIndex = 58
|
|
Me.GroupBox8.TabStop = False
|
|
Me.GroupBox8.Text = "Notizen"
|
|
'
|
|
'drpMiatarbeiter
|
|
'
|
|
Me.drpMiatarbeiter.AllowColMove = True
|
|
Me.drpMiatarbeiter.AllowColSelect = True
|
|
Me.drpMiatarbeiter.AllowFilter = True
|
|
Me.drpMiatarbeiter.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.drpMiatarbeiter.AllowSort = True
|
|
Me.drpMiatarbeiter.AlternatingRows = True
|
|
Me.drpMiatarbeiter.CaptionHeight = 17
|
|
Me.drpMiatarbeiter.ColumnCaptionHeight = 17
|
|
Me.drpMiatarbeiter.ColumnFooterHeight = 17
|
|
Me.drpMiatarbeiter.DeadAreaBackColor = System.Drawing.Color.Empty
|
|
Me.drpMiatarbeiter.FetchRowStyles = False
|
|
Me.drpMiatarbeiter.Images.Add(CType(resources.GetObject("resource.Images2"), System.Drawing.Bitmap))
|
|
Me.drpMiatarbeiter.LayoutFileName = ""
|
|
Me.drpMiatarbeiter.LayoutName = ""
|
|
Me.drpMiatarbeiter.LayoutURL = ""
|
|
Me.drpMiatarbeiter.Location = New System.Drawing.Point(400, 32)
|
|
Me.drpMiatarbeiter.Name = "drpMiatarbeiter"
|
|
GridLines3.Color = System.Drawing.Color.DarkGray
|
|
GridLines3.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
|
Me.drpMiatarbeiter.RowDivider = GridLines3
|
|
Me.drpMiatarbeiter.RowHeight = 15
|
|
Me.drpMiatarbeiter.RowSubDividerColor = System.Drawing.Color.DarkGray
|
|
Me.drpMiatarbeiter.ScrollTips = False
|
|
Me.drpMiatarbeiter.Size = New System.Drawing.Size(40, 80)
|
|
Me.drpMiatarbeiter.TabIndex = 2
|
|
Me.drpMiatarbeiter.Text = "C1TrueDBDropdown1"
|
|
Me.drpMiatarbeiter.Visible = False
|
|
Me.drpMiatarbeiter.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
|
"r""><Data>Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}E" & _
|
|
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
|
|
"{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
|
|
"eCaptionText;BackColor:InactiveCaption;}FilterBar{}Footer{}Caption{AlignHorz:Cen" & _
|
|
"ter;}Normal{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style9{}O" & _
|
|
"ddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage:Center;}Heading{Wrap:Tr" & _
|
|
"ue;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Co" & _
|
|
"ntrol;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{}Style13{}Style1{}</Data" & _
|
|
"></Styles><Splits><C1.Win.C1TrueDBGrid.DropdownView Name="""" AlternatingRowStyle=" & _
|
|
"""True"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" Marqu" & _
|
|
"eeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" RecordSelectors=""False"" Vert" & _
|
|
"icalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 36, 76</ClientRe" & _
|
|
"ct><CaptionStyle parent=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=" & _
|
|
"""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""" & _
|
|
"FilterBar"" me=""Style13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle" & _
|
|
" parent=""Group"" me=""Style12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><Hig" & _
|
|
"hLightRowStyle parent=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Inacti" & _
|
|
"ve"" me=""Style4"" /><OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyl" & _
|
|
"e parent=""RecordSelector"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""St" & _
|
|
"yle6"" /><Style parent=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.DropdownView>" & _
|
|
"</Splits><NamedStyles><Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""" & _
|
|
"Heading"" /><Style parent=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Cap" & _
|
|
"tion"" /><Style parent=""Heading"" me=""Inactive"" /><Style parent=""Normal"" me=""Selec" & _
|
|
"ted"" /><Style parent=""Normal"" me=""Editor"" /><Style parent=""Normal"" me=""Highlight" & _
|
|
"Row"" /><Style parent=""Normal"" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow"" " & _
|
|
"/><Style parent=""Heading"" me=""RecordSelector"" /><Style parent=""Normal"" me=""Filte" & _
|
|
"rBar"" /><Style parent=""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSp" & _
|
|
"lits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>16</Defa" & _
|
|
"ultRecSelWidth><ClientArea>0, 0, 36, 76</ClientArea></Blob>"
|
|
'
|
|
'Notizlist
|
|
'
|
|
Me.Notizlist.AllowFilter = True
|
|
Me.Notizlist.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.Notizlist.AllowSort = True
|
|
Me.Notizlist.AlternatingRows = True
|
|
Me.Notizlist.CaptionHeight = 17
|
|
Me.Notizlist.CollapseColor = System.Drawing.Color.Black
|
|
Me.Notizlist.ContextMenu = Me.ContextMenu1
|
|
Me.Notizlist.DataChanged = False
|
|
Me.Notizlist.DeadAreaBackColor = System.Drawing.Color.Empty
|
|
Me.Notizlist.ExpandColor = System.Drawing.Color.Black
|
|
Me.Notizlist.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.Notizlist.Images.Add(CType(resources.GetObject("resource.Images3"), System.Drawing.Bitmap))
|
|
Me.Notizlist.Location = New System.Drawing.Point(8, 16)
|
|
Me.Notizlist.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
|
|
Me.Notizlist.Name = "Notizlist"
|
|
Me.Notizlist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.Notizlist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.Notizlist.PreviewInfo.ZoomFactor = 75
|
|
Me.Notizlist.PrintInfo.ShowOptionsDialog = False
|
|
Me.Notizlist.RecordSelectorWidth = 16
|
|
GridLines4.Color = System.Drawing.Color.DarkGray
|
|
GridLines4.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
|
Me.Notizlist.RowDivider = GridLines4
|
|
Me.Notizlist.RowHeight = 15
|
|
Me.Notizlist.RowSubDividerColor = System.Drawing.Color.DarkGray
|
|
Me.Notizlist.ScrollTips = False
|
|
Me.Notizlist.Size = New System.Drawing.Size(760, 96)
|
|
Me.Notizlist.TabIndex = 0
|
|
Me.Notizlist.Text = "C1TrueDBGrid1"
|
|
Me.Notizlist.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
|
"r""><Data>Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}E" & _
|
|
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
|
|
"{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
|
|
"eCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}Foote" & _
|
|
"r{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackCo" & _
|
|
"lor:Highlight;}Style9{}OddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage" & _
|
|
":Center;}Heading{Wrap:True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:" & _
|
|
"ControlText;BackColor:Control;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{" & _
|
|
"}Style13{}Style1{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name=""""" & _
|
|
" AlternatingRowStyle=""True"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFo" & _
|
|
"oterHeight=""17"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecS" & _
|
|
"elWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0," & _
|
|
" 756, 92</ClientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Style2"" me=" & _
|
|
"""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""Eve" & _
|
|
"nRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /><FooterSty" & _
|
|
"le parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style12"" /><Head" & _
|
|
"ingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""HighlightRow""" & _
|
|
" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRowStyle paren" & _
|
|
"t=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style1" & _
|
|
"1"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""S" & _
|
|
"tyle1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" " & _
|
|
"me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""" & _
|
|
"Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Ina" & _
|
|
"ctive"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Edito" & _
|
|
"r"" /><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenR" & _
|
|
"ow"" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSel" & _
|
|
"ector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Gro" & _
|
|
"up"" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>" & _
|
|
"None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 756, 9" & _
|
|
"2</ClientArea></Blob>"
|
|
'
|
|
'GroupBox7
|
|
'
|
|
Me.GroupBox7.BackColor = System.Drawing.SystemColors.Control
|
|
Me.GroupBox7.Controls.AddRange(New System.Windows.Forms.Control() {Me.InfoMeldungList})
|
|
Me.GroupBox7.Location = New System.Drawing.Point(8, 176)
|
|
Me.GroupBox7.Name = "GroupBox7"
|
|
Me.GroupBox7.Size = New System.Drawing.Size(776, 96)
|
|
Me.GroupBox7.TabIndex = 57
|
|
Me.GroupBox7.TabStop = False
|
|
Me.GroupBox7.Text = "Informationsmeldungen"
|
|
'
|
|
'InfoMeldungList
|
|
'
|
|
Me.InfoMeldungList.AllowFilter = True
|
|
Me.InfoMeldungList.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.InfoMeldungList.AllowSort = True
|
|
Me.InfoMeldungList.AllowUpdate = False
|
|
Me.InfoMeldungList.AlternatingRows = True
|
|
Me.InfoMeldungList.CaptionHeight = 17
|
|
Me.InfoMeldungList.CollapseColor = System.Drawing.Color.Black
|
|
Me.InfoMeldungList.ContextMenu = Me.ContextMenu4
|
|
Me.InfoMeldungList.DataChanged = False
|
|
Me.InfoMeldungList.DeadAreaBackColor = System.Drawing.Color.Empty
|
|
Me.InfoMeldungList.ExpandColor = System.Drawing.Color.Black
|
|
Me.InfoMeldungList.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.InfoMeldungList.Images.Add(CType(resources.GetObject("resource.Images4"), System.Drawing.Bitmap))
|
|
Me.InfoMeldungList.Location = New System.Drawing.Point(8, 16)
|
|
Me.InfoMeldungList.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
|
|
Me.InfoMeldungList.Name = "InfoMeldungList"
|
|
Me.InfoMeldungList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.InfoMeldungList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.InfoMeldungList.PreviewInfo.ZoomFactor = 75
|
|
Me.InfoMeldungList.PrintInfo.ShowOptionsDialog = False
|
|
Me.InfoMeldungList.RecordSelectorWidth = 16
|
|
GridLines5.Color = System.Drawing.Color.DarkGray
|
|
GridLines5.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
|
Me.InfoMeldungList.RowDivider = GridLines5
|
|
Me.InfoMeldungList.RowHeight = 15
|
|
Me.InfoMeldungList.RowSubDividerColor = System.Drawing.Color.DarkGray
|
|
Me.InfoMeldungList.ScrollTips = False
|
|
Me.InfoMeldungList.Size = New System.Drawing.Size(760, 72)
|
|
Me.InfoMeldungList.TabIndex = 0
|
|
Me.InfoMeldungList.Text = "C1TrueDBGrid1"
|
|
Me.InfoMeldungList.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
|
"r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
|
|
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
|
|
"{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
|
|
"eCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}Foote" & _
|
|
"r{}Caption{AlignHorz:Center;}Normal{BackColor:Control;}HighlightRow{ForeColor:Hi" & _
|
|
"ghlightText;BackColor:Highlight;}Style1{}OddRow{BackColor:224, 224, 224;}RecordS" & _
|
|
"elector{AlignImage:Center;}Heading{Wrap:True;BackColor:Control;Border:Raised,,1," & _
|
|
" 1, 1, 1;ForeColor:ControlText;AlignVert:Center;}Style8{}Style10{AlignHorz:Near;" & _
|
|
"}Style11{}Style12{}Style13{}Style9{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid" & _
|
|
".MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""17"" ColumnCaptionHe" & _
|
|
"ight=""17"" ColumnFooterHeight=""17"" MarqueeStyle=""DottedCellBorder"" RecordSelector" & _
|
|
"Width=""16"" DefRecSelWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""" & _
|
|
"><ClientRect>0, 0, 756, 68</ClientRect><BorderSide>0</BorderSide><CaptionStyle p" & _
|
|
"arent=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><EvenRo" & _
|
|
"wStyle parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Sty" & _
|
|
"le13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group"" me" & _
|
|
"=""Style12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle par" & _
|
|
"ent=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4"" />" & _
|
|
"<OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSe" & _
|
|
"lector"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style par" & _
|
|
"ent=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles" & _
|
|
"><Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style par" & _
|
|
"ent=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style parent" & _
|
|
"=""Heading"" me=""Inactive"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=" & _
|
|
"""Normal"" me=""Editor"" /><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=" & _
|
|
"""Normal"" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Head" & _
|
|
"ing"" me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent" & _
|
|
"=""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</h" & _
|
|
"orzSplits><Layout>None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><Clien" & _
|
|
"tArea>0, 0, 756, 68</ClientArea></Blob>"
|
|
'
|
|
'GroupBox6
|
|
'
|
|
Me.GroupBox6.Controls.AddRange(New System.Windows.Forms.Control() {Me.ZuordnungList})
|
|
Me.GroupBox6.Location = New System.Drawing.Point(384, 8)
|
|
Me.GroupBox6.Name = "GroupBox6"
|
|
Me.GroupBox6.Size = New System.Drawing.Size(400, 168)
|
|
Me.GroupBox6.TabIndex = 56
|
|
Me.GroupBox6.TabStop = False
|
|
Me.GroupBox6.Text = "Dokument-Zuordnung"
|
|
'
|
|
'ZuordnungList
|
|
'
|
|
Me.ZuordnungList.AllowFilter = True
|
|
Me.ZuordnungList.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.ZuordnungList.AllowSort = True
|
|
Me.ZuordnungList.AlternatingRows = True
|
|
Me.ZuordnungList.CaptionHeight = 17
|
|
Me.ZuordnungList.CollapseColor = System.Drawing.Color.Black
|
|
Me.ZuordnungList.ContextMenu = Me.ContextMenu3
|
|
Me.ZuordnungList.DataChanged = False
|
|
Me.ZuordnungList.DeadAreaBackColor = System.Drawing.Color.Empty
|
|
Me.ZuordnungList.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.ZuordnungList.ExpandColor = System.Drawing.Color.Black
|
|
Me.ZuordnungList.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.ZuordnungList.Images.Add(CType(resources.GetObject("resource.Images5"), System.Drawing.Bitmap))
|
|
Me.ZuordnungList.Location = New System.Drawing.Point(3, 16)
|
|
Me.ZuordnungList.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
|
|
Me.ZuordnungList.Name = "ZuordnungList"
|
|
Me.ZuordnungList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.ZuordnungList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.ZuordnungList.PreviewInfo.ZoomFactor = 75
|
|
Me.ZuordnungList.PrintInfo.ShowOptionsDialog = False
|
|
Me.ZuordnungList.RecordSelectorWidth = 16
|
|
GridLines6.Color = System.Drawing.Color.DarkGray
|
|
GridLines6.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
|
Me.ZuordnungList.RowDivider = GridLines6
|
|
Me.ZuordnungList.RowHeight = 15
|
|
Me.ZuordnungList.RowSubDividerColor = System.Drawing.Color.DarkGray
|
|
Me.ZuordnungList.ScrollTips = False
|
|
Me.ZuordnungList.Size = New System.Drawing.Size(394, 149)
|
|
Me.ZuordnungList.TabIndex = 0
|
|
Me.ZuordnungList.Text = "C1TrueDBGrid1"
|
|
Me.ZuordnungList.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
|
"r""><Data>Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}E" & _
|
|
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
|
|
"{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
|
|
"eCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}Foote" & _
|
|
"r{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackCo" & _
|
|
"lor:Highlight;}Style9{}OddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage" & _
|
|
":Center;}Heading{Wrap:True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:" & _
|
|
"ControlText;BackColor:Control;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{" & _
|
|
"}Style13{}Style1{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name=""""" & _
|
|
" AlternatingRowStyle=""True"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFo" & _
|
|
"oterHeight=""17"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecS" & _
|
|
"elWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0," & _
|
|
" 390, 145</ClientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Style2"" me" & _
|
|
"=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""Ev" & _
|
|
"enRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /><FooterSt" & _
|
|
"yle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style12"" /><Hea" & _
|
|
"dingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""HighlightRow" & _
|
|
""" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRowStyle pare" & _
|
|
"nt=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style" & _
|
|
"11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""" & _
|
|
"Style1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent=""""" & _
|
|
" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=" & _
|
|
"""Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""In" & _
|
|
"active"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Edit" & _
|
|
"or"" /><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""Even" & _
|
|
"Row"" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSe" & _
|
|
"lector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Gr" & _
|
|
"oup"" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout" & _
|
|
">None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 390, " & _
|
|
"145</ClientArea></Blob>"
|
|
'
|
|
'GroupBox13
|
|
'
|
|
Me.GroupBox13.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtBemerkung})
|
|
Me.GroupBox13.Location = New System.Drawing.Point(8, 48)
|
|
Me.GroupBox13.Name = "GroupBox13"
|
|
Me.GroupBox13.Size = New System.Drawing.Size(368, 128)
|
|
Me.GroupBox13.TabIndex = 55
|
|
Me.GroupBox13.TabStop = False
|
|
Me.GroupBox13.Text = "Bemerkung"
|
|
'
|
|
'txtBemerkung
|
|
'
|
|
Me.txtBemerkung.Location = New System.Drawing.Point(8, 16)
|
|
Me.txtBemerkung.Multiline = True
|
|
Me.txtBemerkung.Name = "txtBemerkung"
|
|
Me.txtBemerkung.Size = New System.Drawing.Size(352, 104)
|
|
Me.txtBemerkung.TabIndex = 0
|
|
Me.txtBemerkung.Text = ""
|
|
'
|
|
'TabPage6
|
|
'
|
|
Me.TabPage6.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox15})
|
|
Me.TabPage6.Location = New System.Drawing.Point(4, 22)
|
|
Me.TabPage6.Name = "TabPage6"
|
|
Me.TabPage6.Size = New System.Drawing.Size(792, 398)
|
|
Me.TabPage6.TabIndex = 1
|
|
Me.TabPage6.Text = "COLD-Dokumentinformationen"
|
|
'
|
|
'GroupBox15
|
|
'
|
|
Me.GroupBox15.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnLoeschen, Me.Button5, Me.Button6, Me.Button7, Me.Button8, Me.Label12, Me.TextBox4, Me.TextBox3, Me.TextBox2, Me.Label14, Me.Label15, Me.Label19, Me.DateTimePicker4, Me.Label21, Me.TextBox1})
|
|
Me.GroupBox15.Location = New System.Drawing.Point(8, 8)
|
|
Me.GroupBox15.Name = "GroupBox15"
|
|
Me.GroupBox15.Size = New System.Drawing.Size(776, 384)
|
|
Me.GroupBox15.TabIndex = 0
|
|
Me.GroupBox15.TabStop = False
|
|
'
|
|
'btnLoeschen
|
|
'
|
|
Me.btnLoeschen.Image = CType(resources.GetObject("btnLoeschen.Image"), System.Drawing.Bitmap)
|
|
Me.btnLoeschen.Location = New System.Drawing.Point(304, 48)
|
|
Me.btnLoeschen.Name = "btnLoeschen"
|
|
Me.btnLoeschen.Size = New System.Drawing.Size(24, 23)
|
|
Me.btnLoeschen.TabIndex = 29
|
|
Me.ToolTip1.SetToolTip(Me.btnLoeschen, "VV-Nummer löschen")
|
|
'
|
|
'Button5
|
|
'
|
|
Me.Button5.Location = New System.Drawing.Point(664, 352)
|
|
Me.Button5.Name = "Button5"
|
|
Me.Button5.TabIndex = 8
|
|
Me.Button5.Text = "&Abbruch"
|
|
Me.Button5.Visible = False
|
|
'
|
|
'Button6
|
|
'
|
|
Me.Button6.Location = New System.Drawing.Point(16, 152)
|
|
Me.Button6.Name = "Button6"
|
|
Me.Button6.Size = New System.Drawing.Size(264, 23)
|
|
Me.Button6.TabIndex = 7
|
|
Me.Button6.Text = "Indexmutation speichern"
|
|
'
|
|
'Button7
|
|
'
|
|
Me.Button7.Location = New System.Drawing.Point(280, 48)
|
|
Me.Button7.Name = "Button7"
|
|
Me.Button7.Size = New System.Drawing.Size(24, 23)
|
|
Me.Button7.TabIndex = 3
|
|
Me.Button7.Text = "..."
|
|
Me.ToolTip1.SetToolTip(Me.Button7, "VV-Nummer wechseln")
|
|
'
|
|
'Button8
|
|
'
|
|
Me.Button8.Image = CType(resources.GetObject("Button8.Image"), System.Drawing.Bitmap)
|
|
Me.Button8.Location = New System.Drawing.Point(280, 24)
|
|
Me.Button8.Name = "Button8"
|
|
Me.Button8.Size = New System.Drawing.Size(24, 23)
|
|
Me.Button8.TabIndex = 1
|
|
Me.ToolTip1.SetToolTip(Me.Button8, "Partner wechseln")
|
|
'
|
|
'Label12
|
|
'
|
|
Me.Label12.Location = New System.Drawing.Point(16, 48)
|
|
Me.Label12.Name = "Label12"
|
|
Me.Label12.Size = New System.Drawing.Size(88, 23)
|
|
Me.Label12.TabIndex = 28
|
|
Me.Label12.Text = "VV-Nummer"
|
|
'
|
|
'TextBox4
|
|
'
|
|
Me.TextBox4.Location = New System.Drawing.Point(160, 48)
|
|
Me.TextBox4.Name = "TextBox4"
|
|
Me.TextBox4.ReadOnly = True
|
|
Me.TextBox4.Size = New System.Drawing.Size(120, 20)
|
|
Me.TextBox4.TabIndex = 2
|
|
Me.TextBox4.Text = ""
|
|
'
|
|
'TextBox3
|
|
'
|
|
Me.TextBox3.Location = New System.Drawing.Point(160, 120)
|
|
Me.TextBox3.Name = "TextBox3"
|
|
Me.TextBox3.Size = New System.Drawing.Size(120, 20)
|
|
Me.TextBox3.TabIndex = 6
|
|
Me.TextBox3.Text = ""
|
|
Me.TextBox3.Visible = False
|
|
'
|
|
'TextBox2
|
|
'
|
|
Me.TextBox2.Location = New System.Drawing.Point(160, 96)
|
|
Me.TextBox2.Name = "TextBox2"
|
|
Me.TextBox2.Size = New System.Drawing.Size(120, 20)
|
|
Me.TextBox2.TabIndex = 5
|
|
Me.TextBox2.Text = ""
|
|
'
|
|
'Label14
|
|
'
|
|
Me.Label14.Location = New System.Drawing.Point(16, 120)
|
|
Me.Label14.Name = "Label14"
|
|
Me.Label14.Size = New System.Drawing.Size(136, 23)
|
|
Me.Label14.TabIndex = 24
|
|
Me.Label14.Text = "Grundstück-Bezeichnung"
|
|
Me.Label14.Visible = False
|
|
'
|
|
'Label15
|
|
'
|
|
Me.Label15.Location = New System.Drawing.Point(16, 96)
|
|
Me.Label15.Name = "Label15"
|
|
Me.Label15.Size = New System.Drawing.Size(80, 23)
|
|
Me.Label15.TabIndex = 23
|
|
Me.Label15.Text = "Geschäftsfall"
|
|
'
|
|
'Label19
|
|
'
|
|
Me.Label19.Location = New System.Drawing.Point(16, 72)
|
|
Me.Label19.Name = "Label19"
|
|
Me.Label19.Size = New System.Drawing.Size(80, 23)
|
|
Me.Label19.TabIndex = 22
|
|
Me.Label19.Text = "Archiv-Datum"
|
|
'
|
|
'DateTimePicker4
|
|
'
|
|
Me.DateTimePicker4.Format = System.Windows.Forms.DateTimePickerFormat.Short
|
|
Me.DateTimePicker4.Location = New System.Drawing.Point(160, 72)
|
|
Me.DateTimePicker4.Name = "DateTimePicker4"
|
|
Me.DateTimePicker4.Size = New System.Drawing.Size(120, 20)
|
|
Me.DateTimePicker4.TabIndex = 4
|
|
'
|
|
'Label21
|
|
'
|
|
Me.Label21.Location = New System.Drawing.Point(16, 24)
|
|
Me.Label21.Name = "Label21"
|
|
Me.Label21.Size = New System.Drawing.Size(64, 23)
|
|
Me.Label21.TabIndex = 20
|
|
Me.Label21.Text = "Partner-Nr."
|
|
'
|
|
'TextBox1
|
|
'
|
|
Me.TextBox1.Location = New System.Drawing.Point(160, 24)
|
|
Me.TextBox1.Name = "TextBox1"
|
|
Me.TextBox1.ReadOnly = True
|
|
Me.TextBox1.Size = New System.Drawing.Size(120, 20)
|
|
Me.TextBox1.TabIndex = 0
|
|
Me.TextBox1.Text = ""
|
|
'
|
|
'pnlBerechtigungen
|
|
'
|
|
Me.pnlBerechtigungen.Controls.AddRange(New System.Windows.Forms.Control() {Me.DokumentFunktionenList})
|
|
Me.pnlBerechtigungen.Location = New System.Drawing.Point(80, 496)
|
|
Me.pnlBerechtigungen.Name = "pnlBerechtigungen"
|
|
Me.pnlBerechtigungen.Size = New System.Drawing.Size(616, 16)
|
|
Me.pnlBerechtigungen.TabIndex = 65
|
|
Me.pnlBerechtigungen.TabStop = False
|
|
Me.pnlBerechtigungen.Text = "Berechtigungseinschränkung"
|
|
Me.pnlBerechtigungen.Visible = False
|
|
'
|
|
'DokumentFunktionenList
|
|
'
|
|
Me.DokumentFunktionenList.AllowFilter = True
|
|
Me.DokumentFunktionenList.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.DokumentFunktionenList.AllowSort = True
|
|
Me.DokumentFunktionenList.AlternatingRows = True
|
|
Me.DokumentFunktionenList.CaptionHeight = 17
|
|
Me.DokumentFunktionenList.CollapseColor = System.Drawing.Color.Black
|
|
Me.DokumentFunktionenList.ContextMenu = Me.ContextMenu6
|
|
Me.DokumentFunktionenList.DataChanged = False
|
|
Me.DokumentFunktionenList.DeadAreaBackColor = System.Drawing.Color.Empty
|
|
Me.DokumentFunktionenList.ExpandColor = System.Drawing.Color.Black
|
|
Me.DokumentFunktionenList.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.DokumentFunktionenList.Images.Add(CType(resources.GetObject("resource.Images6"), System.Drawing.Bitmap))
|
|
Me.DokumentFunktionenList.Location = New System.Drawing.Point(8, 16)
|
|
Me.DokumentFunktionenList.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
|
|
Me.DokumentFunktionenList.Name = "DokumentFunktionenList"
|
|
Me.DokumentFunktionenList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.DokumentFunktionenList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.DokumentFunktionenList.PreviewInfo.ZoomFactor = 75
|
|
Me.DokumentFunktionenList.PrintInfo.ShowOptionsDialog = False
|
|
Me.DokumentFunktionenList.RecordSelectorWidth = 16
|
|
GridLines7.Color = System.Drawing.Color.DarkGray
|
|
GridLines7.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
|
Me.DokumentFunktionenList.RowDivider = GridLines7
|
|
Me.DokumentFunktionenList.RowHeight = 15
|
|
Me.DokumentFunktionenList.RowSubDividerColor = System.Drawing.Color.DarkGray
|
|
Me.DokumentFunktionenList.ScrollTips = False
|
|
Me.DokumentFunktionenList.Size = New System.Drawing.Size(600, 120)
|
|
Me.DokumentFunktionenList.TabIndex = 0
|
|
Me.DokumentFunktionenList.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
|
"r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
|
|
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
|
|
"{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
|
|
"eCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}Foote" & _
|
|
"r{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackCo" & _
|
|
"lor:Highlight;}Style1{}OddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage" & _
|
|
":Center;}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor" & _
|
|
":ControlText;AlignVert:Center;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{" & _
|
|
"}Style13{}Style9{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name=""""" & _
|
|
" AlternatingRowStyle=""True"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFo" & _
|
|
"oterHeight=""17"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecS" & _
|
|
"elWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0," & _
|
|
" 596, 116</ClientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Style2"" me" & _
|
|
"=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""Ev" & _
|
|
"enRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /><FooterSt" & _
|
|
"yle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style12"" /><Hea" & _
|
|
"dingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""HighlightRow" & _
|
|
""" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRowStyle pare" & _
|
|
"nt=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style" & _
|
|
"11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""" & _
|
|
"Style1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent=""""" & _
|
|
" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=" & _
|
|
"""Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""In" & _
|
|
"active"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Edit" & _
|
|
"or"" /><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""Even" & _
|
|
"Row"" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSe" & _
|
|
"lector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Gr" & _
|
|
"oup"" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout" & _
|
|
">None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 596, " & _
|
|
"116</ClientArea></Blob>"
|
|
'
|
|
'GroupBox9
|
|
'
|
|
Me.GroupBox9.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button3, Me.cvertraulich, Me.Label18, Me.cGesperrt, Me.Label9})
|
|
Me.GroupBox9.Location = New System.Drawing.Point(120, 496)
|
|
Me.GroupBox9.Name = "GroupBox9"
|
|
Me.GroupBox9.Size = New System.Drawing.Size(152, 16)
|
|
Me.GroupBox9.TabIndex = 64
|
|
Me.GroupBox9.TabStop = False
|
|
Me.GroupBox9.Text = "Schutz"
|
|
Me.GroupBox9.Visible = False
|
|
'
|
|
'Button3
|
|
'
|
|
Me.Button3.Location = New System.Drawing.Point(16, 88)
|
|
Me.Button3.Name = "Button3"
|
|
Me.Button3.Size = New System.Drawing.Size(120, 48)
|
|
Me.Button3.TabIndex = 19
|
|
Me.Button3.Text = "Liste der berechtigten Mitarbeiter"
|
|
'
|
|
'cvertraulich
|
|
'
|
|
Me.cvertraulich.Location = New System.Drawing.Point(80, 46)
|
|
Me.cvertraulich.Name = "cvertraulich"
|
|
Me.cvertraulich.Size = New System.Drawing.Size(48, 24)
|
|
Me.cvertraulich.TabIndex = 18
|
|
'
|
|
'Label18
|
|
'
|
|
Me.Label18.Location = New System.Drawing.Point(16, 48)
|
|
Me.Label18.Name = "Label18"
|
|
Me.Label18.Size = New System.Drawing.Size(64, 23)
|
|
Me.Label18.TabIndex = 17
|
|
'
|
|
'cGesperrt
|
|
'
|
|
Me.cGesperrt.Enabled = False
|
|
Me.cGesperrt.Location = New System.Drawing.Point(80, 24)
|
|
Me.cGesperrt.Name = "cGesperrt"
|
|
Me.cGesperrt.Size = New System.Drawing.Size(48, 24)
|
|
Me.cGesperrt.TabIndex = 16
|
|
'
|
|
'Label9
|
|
'
|
|
Me.Label9.Location = New System.Drawing.Point(16, 24)
|
|
Me.Label9.Name = "Label9"
|
|
Me.Label9.Size = New System.Drawing.Size(64, 23)
|
|
Me.Label9.TabIndex = 15
|
|
'
|
|
'BtnHelp
|
|
'
|
|
Me.BtnHelp.Image = CType(resources.GetObject("BtnHelp.Image"), System.Drawing.Bitmap)
|
|
Me.BtnHelp.Location = New System.Drawing.Point(8, 496)
|
|
Me.BtnHelp.Name = "BtnHelp"
|
|
Me.BtnHelp.Size = New System.Drawing.Size(24, 23)
|
|
Me.BtnHelp.TabIndex = 66
|
|
'
|
|
'frmDokumentInfoEdit
|
|
'
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|
Me.ClientSize = New System.Drawing.Size(810, 527)
|
|
Me.ControlBox = False
|
|
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.BtnHelp, Me.pnlBerechtigungen, Me.GroupBox9, Me.TabControl1, Me.Label11, Me.txtstatus, Me.Panel1, Me.cbsave, Me.cbmoeglicheStati, Me.Button4, Me.Button1, Me.cdokumentwerteanzeigen, Me.cbVerantwortlich, Me.Label17, Me.Label16, Me.cbdokumentstatus, Me.txtPartnerInhaberNr, Me.txtBezeichnung, Me.Label4, Me.btnPartnerInhaber, Me.txtPartnerZusteller, Me.txtPartnerInhaber, Me.Label2, Me.Label1, Me.TabControl2, Me.btnCancel, Me.btnWeiter})
|
|
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
|
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
|
Me.MaximizeBox = False
|
|
Me.MinimizeBox = False
|
|
Me.Name = "frmDokumentInfoEdit"
|
|
Me.ShowInTaskbar = False
|
|
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
|
Me.Text = "Dokumentinformationen bearbeiten"
|
|
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.DataSet4, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.TabControl2.ResumeLayout(False)
|
|
Me.TabPage3.ResumeLayout(False)
|
|
Me.GroupBox12.ResumeLayout(False)
|
|
Me.GroupBox10.ResumeLayout(False)
|
|
CType(Me.DokWertList, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.GroupBox3.ResumeLayout(False)
|
|
Me.GroupBox1.ResumeLayout(False)
|
|
Me.GroupBox2.ResumeLayout(False)
|
|
Me.TabPage4.ResumeLayout(False)
|
|
Me.GroupBox5.ResumeLayout(False)
|
|
CType(Me.ColdList, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.GroupBox4.ResumeLayout(False)
|
|
Me.TabPage1.ResumeLayout(False)
|
|
Me.GroupBox11.ResumeLayout(False)
|
|
Me.TabControl1.ResumeLayout(False)
|
|
Me.TabPage2.ResumeLayout(False)
|
|
Me.GroupBox14.ResumeLayout(False)
|
|
CType(Me.DateErinnerung, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.DateTimePicker2, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.GroupBox8.ResumeLayout(False)
|
|
CType(Me.drpMiatarbeiter, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.Notizlist, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.GroupBox7.ResumeLayout(False)
|
|
CType(Me.InfoMeldungList, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.GroupBox6.ResumeLayout(False)
|
|
CType(Me.ZuordnungList, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.GroupBox13.ResumeLayout(False)
|
|
Me.TabPage6.ResumeLayout(False)
|
|
Me.GroupBox15.ResumeLayout(False)
|
|
Me.pnlBerechtigungen.ResumeLayout(False)
|
|
CType(Me.DokumentFunktionenList, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.GroupBox9.ResumeLayout(False)
|
|
Me.ResumeLayout(False)
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "Deklarationen"
|
|
|
|
Dim Aktueller_Dokumentverantwortlicher As Integer
|
|
Dim datum As DateTime
|
|
Dim vvnr As String
|
|
Dim gf As String
|
|
Dim gu As String
|
|
Dim m_dokumentid As String
|
|
Property Dokumentid() As String
|
|
Get
|
|
Return m_dokumentid
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_dokumentid = Value
|
|
End Set
|
|
End Property
|
|
|
|
Dim daten As New DataTable()
|
|
Dim dokumente As New DataTable()
|
|
|
|
|
|
Dim w As New WordLib()
|
|
Dim On_Load As Boolean
|
|
Dim NewDokumentID As String
|
|
Dim CurrentProfil As Long
|
|
Dim m_dokumenttypnr As Long
|
|
Dim m_createdocument As Boolean
|
|
|
|
Dim i As Integer
|
|
Dim ii As Integer
|
|
Dim Notizen As DataTable
|
|
Dim Dokumentersetzen As DataTable
|
|
Dim Dokumentzuorndungen As DataTable
|
|
Dim DokumentInfoMeldungen As DataTable
|
|
Dim DokumentFunktionen As DataTable
|
|
Dim m_barcodeid As String
|
|
Dim zu_retournieren As Boolean
|
|
Dim teamzustaendig As Integer
|
|
|
|
|
|
Dim m_dokument_ist_abgeschlossen As Boolean
|
|
Property Dokument_Ist_Abgeschlossen() As Boolean
|
|
Get
|
|
Return m_dokument_ist_abgeschlossen
|
|
End Get
|
|
Set(ByVal Value As Boolean)
|
|
m_dokument_ist_abgeschlossen = Value
|
|
End Set
|
|
End Property
|
|
Dim m_dokumentinfobearbeiten As Boolean
|
|
Property Dokumentinfobearbeiten() As Boolean
|
|
Get
|
|
Return m_dokumentinfobearbeiten
|
|
End Get
|
|
Set(ByVal Value As Boolean)
|
|
m_dokumentinfobearbeiten = Value
|
|
End Set
|
|
End Property
|
|
Property BarcodeID() As String
|
|
Get
|
|
Return m_barcodeid
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_barcodeid = Value
|
|
End Set
|
|
End Property
|
|
|
|
Property Dokumenttypnr() As Long
|
|
Get
|
|
Return m_dokumenttypnr
|
|
End Get
|
|
Set(ByVal Value As Long)
|
|
m_dokumenttypnr = Value
|
|
End Set
|
|
End Property
|
|
|
|
Property CreateDocument() As Boolean
|
|
Get
|
|
Return m_createdocument
|
|
End Get
|
|
Set(ByVal Value As Boolean)
|
|
m_createdocument = Value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_profilnr As Long
|
|
Property Profilnr() As Long
|
|
Get
|
|
Return m_profilnr
|
|
End Get
|
|
Set(ByVal Value As Long)
|
|
m_profilnr = Value
|
|
End Set
|
|
End Property
|
|
Dim m_profile As DataTable
|
|
Property Profile() As DataTable
|
|
Get
|
|
Return m_profile
|
|
End Get
|
|
Set(ByVal Value As DataTable)
|
|
m_profile = Value
|
|
End Set
|
|
End Property
|
|
|
|
Property EditDokumentid() As String
|
|
Get
|
|
Return DokumentID
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
DokumentID = Value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_Partnernr As String
|
|
|
|
Property Partnernr() As String
|
|
Get
|
|
Return m_Partnernr
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_Partnernr = Value
|
|
End Set
|
|
End Property
|
|
|
|
Dim savestatus As Integer
|
|
Dim saveverantwortlicher As Integer
|
|
|
|
Dim m_NurDokInfo As Boolean
|
|
Property NurDokinfo() As Boolean
|
|
Get
|
|
Return m_NurDokInfo
|
|
End Get
|
|
Set(ByVal Value As Boolean)
|
|
m_NurDokInfo = Value
|
|
End Set
|
|
End Property
|
|
|
|
#End Region
|
|
|
|
Dim WithEvents mcbverantwortlich As New MultiComboBox()
|
|
Dim WithEvents mcbunterschriftlinks As New MultiComboBox()
|
|
Dim WithEvents mcbunterschriftrechts As New MultiComboBox()
|
|
Dim WithEvents mcbpostzustellung As New MultiComboBox()
|
|
Dim WithEvents mcbkube As New MultiComboBox()
|
|
Dim WithEvents mcbstatus As New MultiComboBox()
|
|
Dim WithEvents mcbzust As New MultiComboBox()
|
|
Dim WithEvents mcbteam As New MultiComboBox()
|
|
Dim moeglichestati As DataTable
|
|
Dim funktionsliste As String
|
|
Dim selectedstatus As Integer
|
|
|
|
#Region "FormLoad"
|
|
Public Sub New()
|
|
MyBase.New()
|
|
|
|
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
|
End Sub
|
|
|
|
Private Sub frmDokumentbearbeitung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Me.On_Load = True
|
|
If Me.CreateDocument Then
|
|
Formular_Laden_Create_Document()
|
|
If Me.Partnernr <> "" Then
|
|
If DivFnkt.Ist_Berechtigt(Me.Dokumenttypnr, Globals.MitarbeiterNr, Me.Partnernr, "", 2, 0, 0, 0) Then
|
|
Dim f As New FrmPartnersuche()
|
|
f.Dokumenterstellen = True
|
|
f.Partner_Suche(Me.Partnernr)
|
|
Me.txtPartnerInhaber.Text = Str(f.PartnerNr) + " " + f.PartnerKurzbezeichnnung
|
|
Me.txtPartnerInhaberNr.Text = f.PartnerNr
|
|
Me.txtPartnerZusteller.Text = Me.get_partnerzusteller(f.PartnerNr)
|
|
Me.TabControl2.Enabled = True
|
|
f.Dispose()
|
|
Else
|
|
MyMsg.show_standardmessage(30, MsgBoxStyle.Critical)
|
|
Me.Close()
|
|
End If
|
|
Else
|
|
btnPartnerInhaber_Click(sender, e)
|
|
End If
|
|
If Val(Me.txtPartnerInhaberNr.Text) > 91000000 Then
|
|
Me.cbKube.SelectedValue = Globals.MitarbeiterNr
|
|
End If
|
|
Else
|
|
Formular_laden_Edit_Document()
|
|
Dim bc As New DataTable()
|
|
bc = Generic_Select(11)
|
|
If bc.Rows.Count > 0 Then
|
|
Me.BarcodeID = LTrim(Str(bc.Rows(0).Item(0)))
|
|
End If
|
|
bc.Dispose()
|
|
End If
|
|
If Me.BarcodeID <> "" Or Me.Dokumentinfobearbeiten = True Then
|
|
Me.cdokumentwerteanzeigen.Visible = False
|
|
Else
|
|
Me.cdokumentwerteanzeigen.Visible = True
|
|
End If
|
|
|
|
Me.On_Load = False
|
|
If Me.Dokument_Ist_Abgeschlossen Or Me.NurDokinfo Then bereiche_sperren()
|
|
Me.Cursor = Cursors.Default
|
|
|
|
load_indexmutation()
|
|
load_Mitarbeiter()
|
|
End Sub
|
|
|
|
Private Sub settooltip()
|
|
Dim ttip As New ToolTip()
|
|
ttip.SetToolTip(Me.cbmoeglicheStati, Globals.MyTxt.gettext(22000))
|
|
ttip.SetToolTip(Me.btnPartnerInhaber, Globals.MyTxt.gettext(22001))
|
|
ttip.SetToolTip(Me.Button1, Globals.MyTxt.gettext(22002))
|
|
End Sub
|
|
|
|
Private Sub bereiche_sperren()
|
|
Me.btnPartnerInhaber.Enabled = False
|
|
Me.GroupBox1.Enabled = False
|
|
Me.GroupBox2.Enabled = False
|
|
Me.GroupBox3.Enabled = False
|
|
Me.GroupBox4.Enabled = False
|
|
Me.GroupBox5.Enabled = False
|
|
Me.GroupBox10.Enabled = False
|
|
Me.GroupBox11.Enabled = False
|
|
Me.GroupBox12.Enabled = False
|
|
Me.GroupBox9.Enabled = False
|
|
Me.Button2.Enabled = False
|
|
Me.pnlBerechtigungen.Enabled = False
|
|
Me.cbVerantwortlich.Enabled = False
|
|
Me.mcbverantwortlich.Enabled = False
|
|
Me.cbdokumentstatus.Enabled = False
|
|
Me.mcbstatus.Enabled = False
|
|
Me.DokWertList.Enabled = False
|
|
Me.cdokumentwerteanzeigen.Visible = False
|
|
End Sub
|
|
|
|
Private Sub Formular_laden_Edit_Document()
|
|
Dim doc As New edokadb.clsDokument()
|
|
doc.cpMainConnectionProvider = conn
|
|
conn.OpenConnection()
|
|
doc.sDokumentid = New SqlString(CType(Me.EditDokumentid, String))
|
|
doc.SelectOne()
|
|
doc.cpMainConnectionProvider = conn
|
|
doc.sDokumentid = New SqlString(CType(Me.EditDokumentid, String))
|
|
NewDokumentID = Me.EditDokumentid
|
|
Me.Partnernr = doc.iNrpar00.Value
|
|
doc.SelectOne()
|
|
w.Save_Dokument = doc.SelectOne
|
|
Me.Dokumenttypnr = doc.iDokumenttypnr.Value
|
|
Dokumentid = doc.sDokumentid.Value
|
|
Me.Aktueller_Dokumentverantwortlicher = doc.iVerantwortlich.Value
|
|
Load_Defaults()
|
|
|
|
'Parnter laden
|
|
Dim p As New edokadb.clsPartner()
|
|
p.cpMainConnectionProvider = conn
|
|
p.iNRPAR00 = doc.iNrpar00
|
|
p.SelectOne()
|
|
Me.txtPartnerInhaber.Text = Str(p.iNRPAR00.Value) + " " + p.sBKPAR00.Value
|
|
Me.txtPartnerInhaberNr.Text = p.iNRPAR00.Value
|
|
Me.txtPartnerZusteller.Text = Me.get_partnerzusteller(p.iNRPAR00.Value)
|
|
|
|
p.Dispose()
|
|
conn.CloseConnection(True)
|
|
Try
|
|
Me.txtBemerkung.Text = doc.sBemerkung.Value
|
|
Catch
|
|
End Try
|
|
|
|
Try
|
|
If doc.daTermin.Value = "01.01.1900" Then
|
|
Me.DateTimePicker2.ResetText()
|
|
Me.DateTimePicker2.Value = System.DBNull.Value
|
|
Else
|
|
Me.DateTimePicker2.Value = doc.daTermin.Value
|
|
End If
|
|
Catch
|
|
Me.DateTimePicker2.Value = System.DBNull.Value
|
|
End Try
|
|
|
|
Try
|
|
If doc.daErinnerungam.Value = "01.01.1900" Then
|
|
Me.DateErinnerung.ResetText()
|
|
Me.DateErinnerung.Value = System.DBNull.Value
|
|
Else
|
|
Me.DateErinnerung.Value = doc.daErinnerungam.Value
|
|
End If
|
|
Catch
|
|
Me.DateErinnerung.Value = System.DBNull.Value
|
|
End Try
|
|
|
|
If Me.Dokument_Ist_Abgeschlossen Or Me.NurDokinfo Then Exit Sub
|
|
|
|
ii = doc.iPostzustellung.Value
|
|
Me.mcbpostzustellung.SelectedValue = ii
|
|
If doc.bZustaendig_kube.Value = True Then
|
|
ii = doc.iZustaendiger.Value
|
|
Me.mcbkube.SelectedValue = ii
|
|
Else
|
|
ii = doc.iZustaendiger.Value
|
|
Me.mcbzust.SelectedValue = ii
|
|
End If
|
|
ii = doc.iVerantwortlich.Value
|
|
Me.mcbverantwortlich.SelectedValue = ii
|
|
Me.saveverantwortlicher = ii
|
|
|
|
Me.savestatus = doc.iStatusnr.Value
|
|
|
|
ii = doc.iUnterschriftlinks.Value
|
|
Me.mcbunterschriftlinks.SelectedValue = ii
|
|
ii = doc.iUnterschriftrechts.Value
|
|
Me.mcbunterschriftrechts.SelectedValue = ii
|
|
Me.cGesperrt.Checked = doc.bGesperrt.Value = True
|
|
Me.txtBemerkung.Text = doc.sBemerkung.Value
|
|
Me.txtBezeichnung.Text = doc.sBezeichnung.Value
|
|
Me.rbZustaendigKube.Checked = doc.bZustaendig_kube.Value = True
|
|
Me.cvertraulich.Checked = doc.bVertraulich.Value = True
|
|
Me.txtZustelladresse.Text = doc.sZustelladresse.Value
|
|
Me.txtAnredeZusteller.Text = doc.sAnredezustelladresse.Value
|
|
Me.RBZustaendigZustaendiger.Checked = doc.bZustaendig_kube.Value = False
|
|
Me.teamzustaendig = doc.iZustaendiger.Value
|
|
Me.refresh_team()
|
|
Try
|
|
Me.mcbteam.SelectedValue = doc.iMutierertieam.Value
|
|
Catch
|
|
Me.mcbteam.SelectedIndex = 0
|
|
End Try
|
|
Try
|
|
Me.DateTimePicker1.Value = doc.daErstellungsdatum.Value
|
|
Catch
|
|
Me.DateTimePicker1.Value = Now
|
|
End Try
|
|
|
|
Try
|
|
Me.DateTimePicker3.Value = doc.daArchivierungsdatum.Value
|
|
Catch
|
|
Me.DateTimePicker3.Value = Me.DateTimePicker1.Value
|
|
End Try
|
|
|
|
|
|
doc.Dispose()
|
|
|
|
Me.Dokumentersetzen = Dokumentersetzen_Laden()
|
|
w.save_dokumentersetzen = Dokumentersetzen_Laden()
|
|
|
|
Me.ColdList.DataSource = Me.Dokumentersetzen
|
|
DivFnkt.SpaltenTitel_Aktualisieren(Me.ColdList, Me.Dokumentersetzen, "dokumentersetzen")
|
|
|
|
Me.Notizen = Notizen_Laden()
|
|
|
|
w.Save_Notizen = Notizen_Laden()
|
|
Me.Notizlist.DataSource = Notizen
|
|
DivFnkt.SpaltenTitel_Aktualisieren(Me.Notizlist, Me.Notizen, "notizen")
|
|
|
|
w.Save_Dokumentwerte = Generic_Select(10)
|
|
Me.DataSet1.Clear()
|
|
Me.DataSet1.Tables.Clear()
|
|
Me.DataSet1.Tables.Add(DokumentwertListe_laden)
|
|
Me.DokWertList.DataSource = Me.DataSet1
|
|
Me.DokWertList.DataMember = Me.DataSet1.Tables(0).TableName
|
|
For i = 3 To Me.DokWertList.Columns.Count - 1
|
|
Me.DokWertList.Splits(0).DisplayColumns(i).Visible = False
|
|
Next
|
|
Me.DokWertList.Splits(0).DisplayColumns(0).Width = 110
|
|
Me.DokWertList.Splits(0).DisplayColumns(1).Width = 50
|
|
Me.DokWertList.Columns(1).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
|
Me.DokWertList.Splits(0).DisplayColumns(1).Locked = True
|
|
Me.DokWertList.Splits(0).DisplayColumns(2).Width = 160
|
|
conn.CloseConnection(True)
|
|
|
|
w.Save_ColdIndex = Generic_Select(9)
|
|
Me.TabControl2.Enabled = True
|
|
|
|
Dim tmp As DataTable
|
|
tmp = Generic_Select(12)
|
|
w.save_historystatus = tmp.Rows(0).Item(0)
|
|
tmp.Dispose()
|
|
End Sub
|
|
|
|
Private Function Dokumentersetzen_Laden() As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.sp_dokumentersetzen_select"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
If Me.CreateDocument Then
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
Else
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
|
|
End If
|
|
' scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentID))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
|
|
Private Function Notizen_Laden() As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokument_Notizen_select"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
If Me.CreateDocument Then
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
Else
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
|
|
End If
|
|
' scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentID))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Private Function Dokumentzuordnungen_Laden()
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokumentzuordnungen_select"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
If Me.CreateDocument Then
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
Else
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
|
|
End If
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Private Function Dokumentinfomeldungen_laden()
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokumentinfomeldung_select"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
If Me.CreateDocument Then
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumenttypnr))
|
|
Else
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
End If
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokumentinfomeldung_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Private Function DokumentwertListe_laden() As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokumentbearbeitung_Dokumentwerte"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumenttypnr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@CreateNew", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
|
|
End Function
|
|
|
|
Private Sub Formular_Laden_Create_Document()
|
|
NewDokumentID = DivFnkt.Generate_Key()
|
|
Load_Defaults()
|
|
w.save_historystatus = 0
|
|
End Sub
|
|
|
|
Private Sub Load_Defaults()
|
|
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
|
Dim doktyp As New edokadb.clsDokumenttyp()
|
|
doktyp.cpMainConnectionProvider = conn
|
|
doktyp.iDokumenttypnr = New SqlInt32(CType(Me.Dokumenttypnr, Int32))
|
|
doktyp.SelectOne()
|
|
|
|
If doktyp.bFunktionen_zuweisen.Value = True Then
|
|
Dokumentfunktionen_Aktivieren()
|
|
Else
|
|
w.Save_DokumentFunktionen = Generic_Select(6)
|
|
Me.pnlBerechtigungen.Visible = False
|
|
End If
|
|
|
|
'Dokumenttyp-Daten
|
|
If DivFnkt.Ist_Berechtigt(doktyp.iDokumenttypnr.Value, Globals.MitarbeiterNr, 0, 0, 0, 0, 0, 1) Then
|
|
Me.cvertraulich.Visible = True
|
|
Me.Label18.Visible = True
|
|
Me.cvertraulich.Checked = doktyp.bVertrauliches_dokument.Value = True
|
|
Else
|
|
Me.cvertraulich.Checked = False
|
|
Me.cvertraulich.Visible = False
|
|
Me.Label18.Visible = False
|
|
End If
|
|
|
|
Me.txtBezeichnung.Text = doktyp.sBezeichnung.Value
|
|
Me.SqlDataAdapter1.SelectCommand.Parameters("@Dokumentid").Value = ""
|
|
Me.SqlDataAdapter1.SelectCommand.Parameters("@Dokumenttypnr").Value = Me.Dokumenttypnr
|
|
Me.SqlDataAdapter1.SelectCommand.Parameters("@CreateNew").Value = 1
|
|
Me.SqlDataAdapter1.Fill(Me.DataSet1)
|
|
|
|
Me.DokWertList.DataSource = Me.DataSet1
|
|
Me.DokWertList.DataMember = Me.DataSet1.Tables(0).TableName
|
|
For i = 3 To Me.DokWertList.Columns.Count - 1
|
|
Me.DokWertList.Splits(0).DisplayColumns(i).Visible = False
|
|
Next
|
|
Me.DokWertList.Splits(0).DisplayColumns(0).Width = 110
|
|
Me.DokWertList.Splits(0).DisplayColumns(1).Width = 50
|
|
Me.DokWertList.Columns(1).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
|
Me.DokWertList.Splits(0).DisplayColumns(1).Locked = True
|
|
Me.DokWertList.Splits(0).DisplayColumns(2).Width = 160
|
|
|
|
Me.mcbstatus = New MultiComboBox(Me.cbdokumentstatus)
|
|
Me.mcbstatus.CheckNullValue = True
|
|
Me.mcbstatus.NullValueMessage = MyTxt.gettext(18)
|
|
Me.mcbstatus.DisplayColumnName = "Bezeichnung"
|
|
Me.mcbstatus.ValueColumnName = "dokumentstatusnr"
|
|
Me.mcbstatus.Fill_Data(Generic_Select(2), False)
|
|
|
|
Me.mcbkube = New MultiComboBox(Me.cbKube)
|
|
Me.mcbkube.CheckNullValue = True
|
|
Me.mcbkube.NullValueMessage = MyTxt.gettext(18)
|
|
Me.mcbkube.DisplayColumnName = "name"
|
|
Me.mcbkube.ValueColumnName = "mitarbeiternr"
|
|
Me.mcbkube.Fill_Data(Generic_Select(8), False)
|
|
|
|
'Postzustellung
|
|
Me.SqlDataAdapter2.SelectCommand.Parameters("@mandantnr").Value = Globals.MandantNr
|
|
Me.SqlDataAdapter2.SelectCommand.Parameters("@sprache").Value = Globals.Sprache
|
|
Me.SqlDataAdapter2.Fill(Me.DataSet2)
|
|
|
|
mcbpostzustellung = New MultiComboBox(Me.cbPostzustellung)
|
|
Me.mcbpostzustellung.DisplayColumnName = "bezeichnung"
|
|
Me.mcbpostzustellung.ValueColumnName = "nreintrag"
|
|
Dim d As DataTable
|
|
d = Me.DataSet2.Tables(0)
|
|
Me.mcbpostzustellung.Fill_Data(d, False)
|
|
Me.mcbpostzustellung.Enabled = True
|
|
|
|
mcbzust = New MultiComboBox(Me.cbzust)
|
|
Me.mcbzust.DisplayColumnName = "name"
|
|
Me.mcbzust.ValueColumnName = "mitarbeiternr"
|
|
Me.mcbzust.Fill_Data(Generic_Select(3), False)
|
|
ii = Globals.MitarbeiterNr
|
|
Me.mcbzust.SelectedValue = ii
|
|
|
|
mcbunterschriftlinks = New MultiComboBox(Me.cbUnterschriftlinks)
|
|
Me.mcbunterschriftlinks.DisplayColumnName = "name"
|
|
Me.mcbunterschriftlinks.ValueColumnName = "mitarbeiternr"
|
|
For i = 0 To Me.Profile.Rows.Count - 1
|
|
If Me.Profile.Rows(i).Item("profilnr") = Me.Profilnr Then
|
|
CurrentProfil = i
|
|
End If
|
|
Next
|
|
ii = Me.Profile.Rows(CurrentProfil).Item("unterschriftlinks")
|
|
Me.mcbunterschriftlinks.Fill_Data(Generic_Select(3), True)
|
|
Me.mcbunterschriftlinks.SelectedValue = ii
|
|
|
|
mcbunterschriftrechts = New MultiComboBox(Me.cbUnterschriftrechts)
|
|
Me.mcbunterschriftrechts.DisplayColumnName = "name"
|
|
Me.mcbunterschriftrechts.ValueColumnName = "mitarbeiternr"
|
|
For i = 0 To Me.Profile.Rows.Count - 1
|
|
If Me.Profile.Rows(i).Item("profilnr") = Me.Profilnr Then
|
|
CurrentProfil = i
|
|
End If
|
|
Next
|
|
ii = Me.Profile.Rows(CurrentProfil).Item("unterschriftrechts")
|
|
Me.mcbunterschriftrechts.Fill_Data(Generic_Select(3), True)
|
|
Me.mcbunterschriftrechts.SelectedValue = ii
|
|
|
|
Me.mcbverantwortlich = New MultiComboBox(cbVerantwortlich)
|
|
Me.mcbverantwortlich.DisplayColumnName = "mitarbeiter"
|
|
Me.mcbverantwortlich.ValueColumnName = "mitarbeiternr"
|
|
FillMcbVerantwortlich()
|
|
|
|
Me.rbZustaendigKube.Checked = False
|
|
Me.RBZustaendigZustaendiger.Checked = True
|
|
Me.txtZustelladresse.Text = ""
|
|
|
|
If doktyp.bUnterschrift_links.Value = False Then Me.mcbunterschriftlinks.Enabled = False
|
|
If doktyp.bUnterschrift_rechts.Value = False Then Me.mcbunterschriftrechts.Enabled = False
|
|
If doktyp.bUnterschrift_links.Value = True Then Me.mcbunterschriftlinks.Enabled = True
|
|
If doktyp.bUnterschrift_rechts.Value = True Then Me.mcbunterschriftrechts.Enabled = True
|
|
|
|
Me.zu_retournieren = doktyp.bZu_retournieren.Value
|
|
|
|
doktyp.Dispose()
|
|
|
|
'Dokument ersetzen
|
|
Me.Dokumentersetzen = Dokumentersetzen_Laden()
|
|
w.save_dokumentersetzen = Dokumentersetzen_Laden()
|
|
Me.ColdList.DataSource = Me.Dokumentersetzen
|
|
Me.ColdList.Columns("aktiv").FilterText = True
|
|
Me.ColdList.FilterBar = False
|
|
DivFnkt.SpaltenTitel_Aktualisieren(Me.ColdList, Me.Dokumentersetzen, "dokumentersetzen")
|
|
If doktyp.bCold_ersetzen.Value <> True Then Me.ColdList.Enabled = False Else Me.ColdList.Enabled = True
|
|
|
|
'Notizen
|
|
Notizen = Notizen_Laden()
|
|
Me.Notizlist.DataSource = Notizen
|
|
DivFnkt.SpaltenTitel_Aktualisieren(Me.Notizlist, Me.Notizen, "notizen")
|
|
|
|
'Dokumentzuordnungen
|
|
Me.Dokumentzuorndungen = Dokumentzuordnungen_Laden()
|
|
w.Save_Dokumentzuordnungen = Dokumentzuordnungen_Laden()
|
|
Me.ZuordnungList.DataSource = Me.Dokumentzuorndungen
|
|
|
|
DivFnkt.SpaltenTitel_Aktualisieren(Me.ZuordnungList, Me.Dokumentzuorndungen, "dokumentzuordnungen")
|
|
Me.ZuordnungList.Columns("aktiv").FilterText = True
|
|
Me.ZuordnungList.FilterBar = False
|
|
|
|
Me.ZuordnungList.Columns("zuordnungnr").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.ComboBox
|
|
|
|
Dim dxx As New SqlDataAdapter("Select zuordnungnr, bezeichnung from zuordnung", Globals.sConnectionString)
|
|
Dim dh As New DataSet()
|
|
dxx.Fill(dh, "dd")
|
|
Dim vv(100)
|
|
For i = 0 To dh.Tables(0).Rows.Count - 1
|
|
vv(i) = New C1.Win.C1TrueDBGrid.ValueItem()
|
|
vv(i).DisplayValue = dh.Tables(0).Rows(i).Item("bezeichnung")
|
|
vv(i).Value = dh.Tables(0).Rows(i).Item("zuordnungnr")
|
|
Me.ZuordnungList.Columns("zuordnungnr").ValueItems.Values.Add(vv(i))
|
|
Me.ZuordnungList.Columns("zuordnungnr").ValueItems.Translate = True
|
|
Next
|
|
|
|
|
|
'Dokumentinfomeldungen
|
|
Me.InfoMeldungList.FetchRowStyles = True
|
|
Me.DokumentInfoMeldungen = Dokumentinfomeldungen_laden()
|
|
w.Save_Dokumentinfomeldungen = Dokumentinfomeldungen_laden()
|
|
Me.InfoMeldungList.DataSource = Me.DokumentInfoMeldungen
|
|
Me.InfoMeldungList.Columns("aktiv").FilterText = True
|
|
DivFnkt.SpaltenTitel_Aktualisieren(Me.InfoMeldungList, Me.DokumentInfoMeldungen, "Dokumentinfomeldung")
|
|
|
|
'Team
|
|
Me.mcbteam = New MultiComboBox(Me.cbteam)
|
|
Me.mcbteam.CheckNullValue = True
|
|
Me.mcbteam.NullValueMessage = MyTxt.gettext(18)
|
|
Me.mcbteam.DisplayColumnName = "bezeichnung"
|
|
Me.mcbteam.ValueColumnName = "teamnr"
|
|
refresh_team()
|
|
Me.mcbteam.SelectedIndex = 0
|
|
|
|
Me.mcbstatus.SelectedIndex = 0
|
|
Me.savestatus = Me.mcbstatus.SelectedValue
|
|
Me.saveverantwortlicher = Globals.MitarbeiterNr
|
|
|
|
Me.moeglichestati = Generic_Select(15)
|
|
Me.cbmoeglicheStati.Items.Clear()
|
|
Me.funktionsliste = ""
|
|
' Dim i As Integer
|
|
settooltip()
|
|
For i = 0 To Me.moeglichestati.Rows.Count - 1
|
|
Me.cbmoeglicheStati.Items.Add(Me.moeglichestati.Rows(i).Item("bezeichnung"))
|
|
Next
|
|
|
|
|
|
End Sub
|
|
|
|
Public Sub refresh_team()
|
|
Dim tt As New DataTable()
|
|
tt = Generic_Select(7)
|
|
Me.mcbteam.DataSource = Nothing
|
|
Me.mcbteam.Items.Clear()
|
|
If tt.Rows.Count > 1 Then
|
|
Me.mcbteam.Fill_Data(tt, False)
|
|
Me.mcbteam.Enabled = True
|
|
Else
|
|
Me.mcbteam.Fill_Data(tt, False)
|
|
Me.mcbteam.Enabled = False
|
|
End If
|
|
tt.Dispose()
|
|
End Sub
|
|
|
|
Private Sub mcbzust_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles mcbzust.Leave
|
|
If Me.On_Load Then Exit Sub
|
|
refresh_team()
|
|
End Sub
|
|
|
|
Private Sub mcbkube_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles mcbkube.Leave
|
|
If Me.On_Load Then Exit Sub
|
|
refresh_team()
|
|
End Sub
|
|
|
|
|
|
|
|
#End Region
|
|
|
|
#Region "Formularhandling"
|
|
Private Sub Set_Feldwert()
|
|
Try
|
|
'Me.DokWertList.Columns("feldwert").Value = Me.ValueList.Columns(0).Value
|
|
'Me.DokWertList.Columns("feldwert").Value = Me.Datumselect.Text
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub btnPartnerInhaber_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPartnerInhaber.Click
|
|
Dim f As New FrmPartnersuche()
|
|
f.profilnr = Me.Profilnr
|
|
f.NurAbfrage = False
|
|
f.ShowDialog()
|
|
If f.PartnerNr <> 0 Then
|
|
If DivFnkt.Ist_Berechtigt(Me.Dokumenttypnr, Globals.MitarbeiterNr, f.PartnerNr, "", 2, 0, 0, 0) Then
|
|
If Me.txtPartnerInhaber.Text <> "" And Me.txtPartnerInhaber.Text <> Str(f.PartnerNr) + " " + f.PartnerKurzbezeichnnung Then
|
|
MyMsg.show_standardmessage(73, MsgBoxStyle.Information)
|
|
End If
|
|
Me.txtPartnerInhaber.Text = Str(f.PartnerNr) + " " + f.PartnerKurzbezeichnnung
|
|
Me.txtPartnerInhaberNr.Text = f.PartnerNr
|
|
Me.txtPartnerZusteller.Text = Me.get_partnerzusteller(f.PartnerNr)
|
|
Me.TabControl2.Enabled = True
|
|
Me.RBZustaendigZustaendiger.Checked = True
|
|
Me.mcbkube.DataSource = Nothing
|
|
Me.mcbkube.Text = ""
|
|
Me.mcbkube.Items.Clear()
|
|
Me.Partnernr = f.PartnerNr
|
|
FillMcbVerantwortlich()
|
|
|
|
Else
|
|
MyMsg.show_standardmessage(30, MsgBoxStyle.Critical)
|
|
Me.Close()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Datumselect_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
Set_Feldwert()
|
|
End Sub
|
|
|
|
Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
|
|
If Me.CreateDocument = False Then
|
|
DivFnkt.Status_Dokumentbearbeitung(2, Me.DokumentID, False, "")
|
|
If Globals.Dokumentcoldindex_Changed Then Archivfnkt.Restore_Coldindex(Globals.general_ds.Tables(0), Me.DokumentID)
|
|
If Globals.dokumentid_changed Then Archivfnkt.change_dokumentid(DokumentID, Globals.Dokumentidalt)
|
|
Else
|
|
Update_Bclabel(2)
|
|
End If
|
|
|
|
Me.Close()
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "Datenhandling"
|
|
Private Function Generic_Select(ByVal typ As Integer) As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
|
Select Case typ
|
|
Case 1
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokumentbearbeitung_DokWertList"
|
|
Case 2
|
|
scmCmdToExecute.CommandText = "SP_Dokumentbearbeitung_StatusSelektion"
|
|
Case 3
|
|
scmCmdToExecute.CommandText = "SP_Dokumentbearbeitung_Mitarbeiter"
|
|
Case 4
|
|
scmCmdToExecute.CommandText = "SP_Dokumentbearbeitung_Notizen"
|
|
Case 5
|
|
scmCmdToExecute.CommandText = "sp_funktion_zuweisung_gestattet"
|
|
Case 6
|
|
scmCmdToExecute.CommandText = "sp_dokumentfunktion_zugewiesen"
|
|
Case 7
|
|
scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_team"
|
|
Case 8
|
|
scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_kube"
|
|
Case 9
|
|
scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_coldindex"
|
|
Case 10
|
|
scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_dokumentwerte_select"
|
|
Case 11
|
|
scmCmdToExecute.CommandText = "sp_dokument_als_bcdokument"
|
|
Case 12
|
|
scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_statushistory"
|
|
Case 13
|
|
scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_ist_kundenberater"
|
|
Case 14
|
|
scmCmdToExecute.CommandText = "sp_archiv_getschema_doc"
|
|
Case 15
|
|
scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_statuswechsel"
|
|
Case 16
|
|
scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_statuswechsel_funktionen"
|
|
Case 17
|
|
'Mitarbeiter
|
|
scmCmdToExecute.CommandText = "dbo.SP_ValueSelect"
|
|
|
|
Case Else
|
|
End Select
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
Select Case typ
|
|
Case 1
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtPartnerInhaberNr.Text))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@regel", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokWertList.Columns("datenherkunft").Value))
|
|
Case 2
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumenttypnr))
|
|
If Me.DokumentID = Nothing Then Me.DokumentID = ""
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID))
|
|
If Me.CreateDocument = True Then
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
|
|
Else
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 2))
|
|
End If
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
If Globals.bckdokument = False Then
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bck", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
Else
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bck", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
|
|
End If
|
|
Case 5
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
Case 6
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.NewDokumentID))
|
|
Case 7
|
|
If Me.teamzustaendig = Globals.MitarbeiterNr Then
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@profilnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Profilnr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
Else
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@profilnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.teamzustaendig))
|
|
End If
|
|
Case 8
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@partnernr", SqlDbType.VarChar, 20, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtPartnerInhaberNr.Text))
|
|
Case 9
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID))
|
|
Case 10
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID))
|
|
Case 11
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID))
|
|
Case 12
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID))
|
|
Case 13
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtPartnerInhaberNr.Text))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
Case 14
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumenttypnr))
|
|
Case 15
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@currentstatus", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
Case 16
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@currentstatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.selectedstatus))
|
|
Case 17
|
|
'Mitarbeiter
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@Datenherkunft", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "&AlleMitarbeiter&"))
|
|
Case Else
|
|
End Select
|
|
If typ = 1 Then
|
|
End If
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
Private Sub load_Mitarbeiter()
|
|
conn.OpenConnection()
|
|
Dim t As DataTable
|
|
t = Generic_Select(17)
|
|
|
|
Me.drpMiatarbeiter.DataSource = t
|
|
Me.drpMiatarbeiter.ListField = "FullName"
|
|
Me.drpMiatarbeiter.DataField = "mitarbeiternr"
|
|
Me.drpMiatarbeiter.ValueTranslate = True
|
|
Me.Notizlist.Columns("mutierer").DropDown = Me.drpMiatarbeiter
|
|
conn.CloseConnection(True)
|
|
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "Notizen"
|
|
|
|
Private Sub Notizlist_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
|
|
|
|
|
|
|
|
Try
|
|
|
|
If Me.Notizen.Rows.Count = 0 Then
|
|
'Bei Systemnotitzen werden die Menue Ausgeblendet
|
|
MnuEditNotiz.Enabled = False
|
|
MnuDeleteNotiz.Enabled = False
|
|
Notizlist.AllowUpdate = False
|
|
Exit Sub
|
|
|
|
End If
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub MnuDeleteNotiz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuDeleteNotiz.Click
|
|
Try
|
|
Me.Notizlist.Columns(5).Value = False
|
|
Me.Notizlist.Refresh()
|
|
Me.TabControl2.Select()
|
|
Me.Notizlist.Select()
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub MnuNeueNotiz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuNeueNotiz.Click
|
|
Dim f As New frmNotizen()
|
|
Dim objMitarbeiter As New edokadb.clsMitarbeiter() 'koe 01092004 neu
|
|
objMitarbeiter.cpMainConnectionProvider = conn
|
|
objMitarbeiter.iMitarbeiternr = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
|
objMitarbeiter.SelectOne()
|
|
|
|
f.Notiz = ""
|
|
f.Betreff = ""
|
|
f.Mutierer = objMitarbeiter.sName.ToString & " " & objMitarbeiter.sVorname.ToString & " , " & objMitarbeiter.sTgnummer.ToString
|
|
objMitarbeiter.Dispose()
|
|
f.ShowDialog()
|
|
If f.DialogResult = DialogResult.OK Then
|
|
Dim rc As DataRowCollection
|
|
Dim newrow As DataRow
|
|
|
|
rc = Notizen.Rows
|
|
Dim rowvals(Me.Notizen.Columns.Count - 1) As Object
|
|
' For i = 0 To Me.Notizen.Columns.Count - 1
|
|
' MsgBox(Me.Notizen.Columns(i).Caption)
|
|
' Next
|
|
rowvals(0) = System.DBNull.Value
|
|
rowvals(2) = f.Betreff
|
|
rowvals(3) = f.Notiz
|
|
rowvals(5) = True 'Aktiv
|
|
rowvals(6) = Now() 'erstellt_am
|
|
rowvals(7) = Now() 'mutiert_am
|
|
rowvals(8) = Globals.MitarbeiterNr 'mutierer
|
|
newrow = rc.Add(rowvals)
|
|
Me.Notizlist.DataSource = Nothing
|
|
Me.Notizlist.DataSource = Me.Notizen
|
|
load_Mitarbeiter()
|
|
DivFnkt.SpaltenTitel_Aktualisieren(Me.Notizlist, Me.Notizen, "notizen")
|
|
|
|
' Me.Notizlist.Refresh()
|
|
Try
|
|
For i = 0 To Me.Notizlist.Splits(0).Rows.Count - 1
|
|
If Me.Notizlist.Columns("betreff").CellText(i) = f.Betreff Then
|
|
Me.Notizlist.Bookmark = i
|
|
End If
|
|
Next
|
|
Catch
|
|
End Try
|
|
End If
|
|
f.Hide()
|
|
End Sub
|
|
|
|
Private Sub MnuEditNotiz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuEditNotiz.Click
|
|
Dim f As New frmNotizen()
|
|
f.Betreff = Me.Notizlist.Columns("betreff").Value
|
|
f.Notiz = Me.Notizlist.Columns("Notiz").Value
|
|
f.Mutierer = Me.Notizlist.Columns("Mutierer").Text 'koe 01092004 neu
|
|
f.MutiertAm = Me.Notizlist.Columns("Mutiert_Am").Text
|
|
|
|
f.ShowDialog()
|
|
If f.DialogResult = DialogResult.OK Then
|
|
Me.Notizlist.Columns("betreff").Value = f.Betreff
|
|
Me.Notizlist.Columns("notiz").Value = f.Notiz
|
|
Me.Notizlist.Columns("Mutierer").Value = Globals.MitarbeiterNr
|
|
Me.Notizlist.Columns("Mutiert_Am").Text = Now()
|
|
End If
|
|
f.Dispose()
|
|
End Sub
|
|
|
|
Private Sub Notizlist_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
MnuEditNotiz_Click(sender, e)
|
|
End Sub
|
|
|
|
Private Sub Notizlist_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Notizlist.MouseDown
|
|
Me.Notizlist.Bookmark = Me.Notizlist.RowContaining(e.Y)
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "Dokumentwertliste"
|
|
Private Sub MnuValueSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuValueSelect.Click, DokWertList.DoubleClick
|
|
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
|
|
Dim s As String
|
|
Select Case UCase(Me.DokWertList.Columns("feldtyp").Value)
|
|
Case "DATUM"
|
|
Dim f As New frmCalendar()
|
|
f.ShowDialog()
|
|
If f.DialogResult = DialogResult.OK Then
|
|
s = f.MonthCalendar1.SelectionStart
|
|
Me.DokWertList.Columns("feldwert").Value = s
|
|
End If
|
|
f.Dispose()
|
|
Case "TEXT"
|
|
If Microsoft.VisualBasic.Left(Me.DokWertList.Columns("Datenherkunft").Value, 8) = "&Partner" Then
|
|
Dim f As New FrmPartnersuche()
|
|
f.ShowDialog()
|
|
If f.PartnerNr <> 0 Then
|
|
Me.DokWertList.Columns("feldwert").Value = Str(f.PartnerNr) + "-" + f.PartnerKurzbezeichnnung
|
|
End If
|
|
f.Dispose()
|
|
Else
|
|
If Microsoft.VisualBasic.Left(Me.DokWertList.Columns("Datenherkunft").Value, 1) = "&" Then
|
|
Dim f As New frmValueSelector()
|
|
f.Text = f.Text + Me.DokWertList.Columns(0).Value
|
|
f.Datenherkunft = Me.DokWertList.Columns("Datenherkunft").Value
|
|
f.partnernr = Me.txtPartnerInhaberNr.Text()
|
|
f.LoadData()
|
|
If f.Datenvorhanden = True Then
|
|
f.ShowDialog()
|
|
If f.DialogResult = DialogResult.OK Then Me.DokWertList.Columns("feldwert").Value = f.SelWert
|
|
End If
|
|
f.Dispose()
|
|
End If
|
|
End If
|
|
Case Else
|
|
End Select
|
|
Me.Cursor = System.Windows.Forms.Cursors.Default
|
|
End Sub
|
|
|
|
Private Sub DokwertList_RowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles DokWertList.RowColChange
|
|
Try
|
|
Me.DokWertList.Columns("feldwert").EditMask = Me.DokWertList.Columns("eingabeformat").Value
|
|
Me.DokWertList.Columns("feldwert").EditMaskUpdate = True
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
|
|
#Region "Dokumenterstellung"
|
|
|
|
Private Sub btnWeiter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWeiter.Click
|
|
' Dim xdata As DataTable
|
|
' Dim s As String
|
|
' If Me.savestatus = Me.mcbstatus.SelectedValue Then
|
|
' If MyMsg.Show_HinweisMessage(Me.Profilnr, 2, 71, 2) = False Then
|
|
' Exit Sub
|
|
' End If
|
|
' End If
|
|
' If Me.txtPartnerInhaber.Text = "" Then
|
|
' MyMsg.show_standardmessage(205, MsgBoxStyle.Critical)
|
|
' Exit Sub
|
|
' End If
|
|
' If Me.mcbverantwortlich.Text = "" Then
|
|
' MyMsg.show_standardmessage(208, MsgBoxStyle.Critical)
|
|
' Exit Sub
|
|
' End If
|
|
' If Check_Dokumentfunktionen() = False Then Exit Sub
|
|
' xdata = Me.DataSet1.Tables(0)
|
|
' For i = 0 To xdata.Rows.Count - 1
|
|
' If xdata.Rows(i).Item("zwingend") Is System.DBNull.Value Then
|
|
' Else
|
|
' If xdata.Rows(i).Item("zwingend") = True Then
|
|
' If xdata.Rows(i).Item("feldwert") Is System.DBNull.Value Or xdata.Rows(i).Item("feldwert") = "" Then
|
|
' MyMsg.show_standardmessage(206, MsgBoxStyle.Critical)
|
|
' Me.DokWertList.Focus()
|
|
' xdata.Dispose()
|
|
' Exit Sub
|
|
' End If
|
|
' End If
|
|
' End If
|
|
' Next
|
|
' If Me.mcbteam.SelectedValue = 0 Then
|
|
' MyMsg.show_standardmessage(207, MsgBoxStyle.Critical)
|
|
' Me.mcbteam.Focus()
|
|
' Exit Sub
|
|
' End If
|
|
' xdata.Dispose()
|
|
Me.btnWeiter.Enabled = False
|
|
Dokument_Bearbeiten(Me.CreateDocument)
|
|
End Sub
|
|
|
|
Private Function Check_Dokumentfunktionen() As Boolean
|
|
Dim i As Integer
|
|
Dim zz As Integer
|
|
Dim bearbeiten As Boolean
|
|
Dim abschliessen As Boolean
|
|
bearbeiten = False
|
|
abschliessen = False
|
|
Check_Dokumentfunktionen = True
|
|
If Me.DokumentFunktionenList.Visible = False Then Exit Function
|
|
zz = 0
|
|
For i = 0 To Me.DokumentFunktionen.Rows.Count - 1
|
|
If Me.DokumentFunktionen.Rows(i).Item("aktiv") = 1 Then
|
|
If Me.DokumentFunktionen.Rows(i).Item("bearbeiten") = True Then bearbeiten = True
|
|
If Me.DokumentFunktionen.Rows(i).Item("abschliessen") = True Then abschliessen = True
|
|
zz = zz + 1
|
|
End If
|
|
Next
|
|
|
|
If zz = 0 Then
|
|
Check_Dokumentfunktionen = True
|
|
Exit Function
|
|
End If
|
|
If bearbeiten = False Or abschliessen = False Then
|
|
If bearbeiten = False Then
|
|
MyMsg.show_standardmessage(34, MsgBoxStyle.Critical)
|
|
Check_Dokumentfunktionen = False
|
|
End If
|
|
If abschliessen = False Then
|
|
MyMsg.show_standardmessage(35, MsgBoxStyle.Critical)
|
|
Check_Dokumentfunktionen = False
|
|
End If
|
|
End If
|
|
|
|
|
|
End Function
|
|
#End Region
|
|
|
|
#Region "Dokumentbearbeitung"
|
|
|
|
Private Sub Dokument_Bearbeiten(ByVal neu As Boolean)
|
|
If Me.Dokument_Ist_Abgeschlossen Or Me.NurDokinfo = True Then
|
|
Try
|
|
Dim xdoc As New edokadb.clsDokument()
|
|
xdoc.sDokumentid = New SqlString(CType(Me.EditDokumentid, String))
|
|
xdoc.cpMainConnectionProvider = conn
|
|
xdoc.SelectOne()
|
|
xdoc.sBemerkung = New SqlString(CType(Me.txtBemerkung.Text, String))
|
|
xdoc.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
|
If Me.DateTimePicker2.Value Is System.DBNull.Value Then
|
|
xdoc.daTermin = New SqlDateTime(CType("01.01.1900", DateTime))
|
|
Else
|
|
xdoc.daTermin = New SqlDateTime(CType(Me.DateTimePicker2.Value, DateTime))
|
|
End If
|
|
If Me.DateErinnerung.Value Is System.DBNull.Value Then
|
|
xdoc.daErinnerungam = New SqlDateTime(CType("01.01.1900", DateTime))
|
|
Else
|
|
xdoc.daErinnerungam = New SqlDateTime(CType(Me.DateErinnerung.Value, DateTime))
|
|
End If
|
|
|
|
conn.OpenConnection()
|
|
xdoc.Update()
|
|
conn.CloseConnection(True)
|
|
xdoc.Dispose()
|
|
Notizen_Sichern()
|
|
Dokumentzuordnungen_Sichern()
|
|
Dokumentinfomeldungen_Sichern()
|
|
DivFnkt.Status_Dokumentbearbeitung(2, Me.Dokumentid, False, "")
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
Finally
|
|
Me.Close()
|
|
End Try
|
|
Exit Sub
|
|
End If
|
|
w.txtPartner = Me.txtPartnerInhaber.Text
|
|
w.txtDokumenttyp = Me.txtBezeichnung.Text
|
|
w.ProgressBar.Info.Text = "Dokument erstellen"
|
|
w.ProgressBar.Bar1.Value = 10
|
|
|
|
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
|
|
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
|
Dim doc As New edokadb.clsDokument()
|
|
Dim doctyp As New edokadb.clsDokumenttyp()
|
|
Dim docvor As New edokadb.clsOffice_vorlage()
|
|
|
|
'Dokumenttyp laden
|
|
doctyp.cpMainConnectionProvider = conn
|
|
doctyp.iDokumenttypnr = New SqlInt32(CType(Me.Dokumenttypnr, Int32))
|
|
doctyp.SelectOne()
|
|
|
|
'OfficeVorlage laden
|
|
docvor.cpMainConnectionProvider = conn
|
|
docvor.iOffice_vorlagenr = New SqlInt32(CType(doctyp.iOffice_vorlagenr.Value, Int32))
|
|
docvor.SelectOne()
|
|
|
|
'Dokument erstellen
|
|
doc.cpMainConnectionProvider = conn
|
|
If Me.CreateDocument Then
|
|
doc.sDokumentid = New SqlString(CType(NewDokumentID, String))
|
|
Else
|
|
doc.sDokumentid = New SqlString(CType(Me.EditDokumentid, String))
|
|
doc.SelectOne()
|
|
End If
|
|
doc.iDokumenttypnr = New SqlInt32(CType(Me.Dokumenttypnr, Int32))
|
|
doc.iNrpar00 = New SqlInt32(CType(Me.txtPartnerInhaberNr.Text, Int32))
|
|
doc.bAktiv = New SqlBoolean(True)
|
|
doc.bAmsdokument = New SqlBoolean(CType(False, Boolean))
|
|
doc.bAuserstuebernahme = New SqlBoolean(CType(False, Boolean))
|
|
doc.bAusgangsarchiviert = New SqlBoolean(CType(False, Boolean))
|
|
doc.daArchivierungsdatum = New SqlDateTime(CType(Me.DateTimePicker3.Value, DateTime))
|
|
|
|
If Me.DateTimePicker2.Value Is System.DBNull.Value Then
|
|
doc.daTermin = New SqlDateTime(CType("01.01.1900", DateTime))
|
|
Else
|
|
doc.daTermin = New SqlDateTime(CType(Me.DateTimePicker2.Value, DateTime))
|
|
End If
|
|
|
|
doc.bBereit_zur_archivierung = New SqlBoolean(CType(False, Boolean))
|
|
'Hutter - anpassungen
|
|
If Me.mcbstatus.Text = "Bereit für Ausgangsarchivierung" Then
|
|
doc.bBereit_zur_archivierung = New SqlBoolean(CType(True, Boolean))
|
|
End If
|
|
doc.bEingangsarchiviert = New SqlBoolean(CType(False, Boolean))
|
|
doc.bGesperrt = New SqlBoolean(CType(Me.cGesperrt.Checked, Boolean))
|
|
If Me.cGesperrt.Checked Then
|
|
doc.daGesperrtam = New SqlDateTime(CType(Now, DateTime))
|
|
End If
|
|
doc.bUnvollstaendig = New SqlBoolean(CType(False, Boolean))
|
|
doc.bZu_retournieren = New SqlBoolean(CType(doctyp.bZu_retournieren.Value, Boolean))
|
|
doc.iColdstatus = New SqlInt32(CType(0, Int32))
|
|
doc.iMutierertieam = New SqlInt32(CType(Me.mcbteam.SelectedValue, Int32))
|
|
If neu = True Then
|
|
doc.iErsteller = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
|
doc.iErstellerteam = New SqlInt32(CType(0, Int32))
|
|
doc.daErstelltam = New SqlDateTime(CType(Now, DateTime))
|
|
doc.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
|
doc.iMutiererteam = New SqlInt32(CType(0, Int32))
|
|
doc.daMutiertam = New SqlDateTime(CType(Now, DateTime))
|
|
If Globals.bckdokument Then
|
|
doc.iBck = New SqlInt32(CType(1, Int32))
|
|
Else
|
|
doc.iBck = New SqlInt32(CType(1, Int32))
|
|
End If
|
|
doc.iAufbewahrung_elektronisch = New SqlInt32(CType(doctyp.iAufbewahrungsfrist_elektronisch.Value, Int32))
|
|
doc.iAufbewahrung_phaysisch = New SqlInt32(CType(doctyp.iTage_mutation.Value, Int32))
|
|
doc.iBearbeitung_nach_abschluss = New SqlInt32(CType(doctyp.iAnzahl_tage.Value, Int32))
|
|
doc.iBearbeitungszeit_in_minuten = New SqlInt32(CType(doctyp.iDbearbeitungszeit.Value, Int32))
|
|
doc.iMonierung_in_tagen = New SqlInt32(CType(doctyp.iAnzahl_tage.Value, Int32))
|
|
Else
|
|
doc.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
|
doc.iMutierertieam = New SqlInt32(CType(Me.mcbteam.SelectedValue, Int32))
|
|
doc.daMutiertam = New SqlDateTime(CType(Now, DateTime))
|
|
End If
|
|
|
|
doc.iUnterschriftlinks = New SqlInt32(CType(Me.mcbunterschriftlinks.SelectedValue, Int32))
|
|
doc.iUnterschriftrechts = New SqlInt32(CType(Me.mcbunterschriftrechts.SelectedValue, Int32))
|
|
doc.iVerantwortlich = New SqlInt32(CType(Me.mcbverantwortlich.SelectedValue, Int32))
|
|
doc.bVertraulich = New SqlBoolean(CType(Me.cvertraulich.Checked, Boolean))
|
|
doc.sZustelladresse = New SqlString(CType(Me.txtZustelladresse.Text, String))
|
|
doc.sAnredezustelladresse = New SqlString(CType(Me.txtAnredeZusteller.Text, String))
|
|
|
|
If Me.rbZustaendigKube.Checked Then
|
|
doc.iZustaendiger = New SqlInt32(CType(Me.mcbkube.SelectedValue, Int32))
|
|
Else
|
|
doc.iZustaendiger = New SqlInt32(CType(Me.mcbzust.SelectedValue, Int32))
|
|
End If
|
|
doc.iPostzustellung = New SqlInt32(CType(Me.mcbpostzustellung.SelectedValue, Int32))
|
|
doc.bZustaendig_kube = New SqlBoolean(CType(Me.rbZustaendigKube.Checked, Boolean))
|
|
If Me.cGesperrt.Checked Then
|
|
doc.iGesperrt_durch = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
|
doc.daGesperrtam = New SqlDateTime(CType(Now, DateTime))
|
|
Else
|
|
doc.iGesperrt_durch = New SqlInt32(CType(0, Int32))
|
|
End If
|
|
doc.iMa_ausgangsarchivierung = New SqlInt32(CType(0, Int32))
|
|
doc.iMa_eingangsarchivierung = New SqlInt32(CType(0, Int32))
|
|
doc.iMitarbeiternr = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
|
doc.sBemerkung = New SqlString(CType(Me.txtBemerkung.Text, String))
|
|
doc.sColddokumentid = New SqlString(CType("", String))
|
|
|
|
doc.sBezeichnung = New SqlString(CType(Me.txtBezeichnung.Text, String))
|
|
|
|
If Not Me.CreateDocument Then
|
|
doc.iStatusnr = New SqlInt32(CType(Me.mcbstatus.SelectedValue, Int32))
|
|
End If
|
|
|
|
doc.daErstellungsdatum = New SqlDateTime(CType(Me.DateTimePicker1.Value, DateTime))
|
|
' doc.bBereit_zur_archivierung = New SqlBoolean(CType(False, Boolean))
|
|
|
|
If docvor.iAnwendungnr.Value = 1 Then
|
|
doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".doc", String))
|
|
Else
|
|
doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".xls", String))
|
|
End If
|
|
|
|
If Me.CreateDocument Then doc.iDokdurchkubeweitergegeben = New SqlInt32(CType(0, Int32))
|
|
If Not doc.iDokdurchkubeweitergegeben.Value = 1 Then
|
|
Dim tx As DataTable
|
|
tx = Generic_Select(13)
|
|
If tx.Rows(0).Item(0) = 1 Then
|
|
doc.iDokdurchkubeweitergegeben = New SqlInt32(CType(1, Int32))
|
|
Else
|
|
doc.iDokdurchkubeweitergegeben = New SqlInt32(CType(0, Int32))
|
|
End If
|
|
tx.Dispose()
|
|
End If
|
|
|
|
Dim s As String
|
|
|
|
s = DivFnkt.Get_Filename(doc.sDokumentname.Value, Me.txtPartnerInhaberNr.Text)
|
|
conn.OpenConnection()
|
|
If Me.CreateDocument Then
|
|
Dim t As DataTable
|
|
t = Generic_Select(14)
|
|
doc.sColdfolder = New SqlString(CType(t.Rows(0).Item(0), String))
|
|
doc.sColdschema = New SqlString(CType(t.Rows(0).Item(1), String))
|
|
doc.Insert()
|
|
t.Dispose()
|
|
Dim statush As New Statushandling()
|
|
statush.Status_Erstellen(doc.sDokumentid.Value, False)
|
|
statush.Dispose()
|
|
doc.iStatusnr = New SqlInt32(CType(get_current_Status(doc.sDokumentid.Value), Int32))
|
|
doc.Update()
|
|
Else
|
|
doc.Update()
|
|
End If
|
|
conn.CloseConnection(True)
|
|
|
|
Dokumentid = doc.sDokumentid.Value
|
|
If Globals.bckdokument = True Then
|
|
Cold_Index_Bearbeiten(2)
|
|
Else
|
|
Cold_Index_Bearbeiten(1)
|
|
If Me.zu_retournieren Then
|
|
Cold_Index_Bearbeiten(2)
|
|
End If
|
|
End If
|
|
Dokumentid = doc.sDokumentid.Value
|
|
Dokumentwerte_Sichern()
|
|
Notizen_Sichern()
|
|
Dokumentzuordnungen_Sichern()
|
|
Dokumentersetzen_Sichern()
|
|
Dokumentinfomeldungen_Sichern()
|
|
Dokumentfunktionen_sichern()
|
|
Status_History(doc.iStatusnr.Value)
|
|
If Me.BarcodeID = "" And Me.Dokumentinfobearbeiten = False Then
|
|
w.ProgressBar.Show()
|
|
w.ProgressBar.Info.Text = "Dokumentwerte zusammenstellen"
|
|
w.ProgressBar.Bar1.Value = 10
|
|
End If
|
|
Dim xdata As DataTable
|
|
xdata = Dokumentwerte(doc.sDokumentid.Value)
|
|
Dokumentid = doc.sDokumentid.Value
|
|
|
|
'Dokument erstellen bzw. öffnen
|
|
w.DokumentID = doc.sDokumentid.Value
|
|
w.DokumentName = doc.sDokumentname.Value
|
|
If Me.CreateDocument Then
|
|
w.CreateDoc = True
|
|
If Me.BarcodeID = "" Then w.Create_Dokument_Before_Fill(doc.iDokumenttypnr.Value, xdata, s)
|
|
Else
|
|
If Me.BarcodeID = "" And Me.Dokumentinfobearbeiten = False Then
|
|
w.CreateDoc = False
|
|
Dim docrestore As New DocMgmt()
|
|
docrestore.Get_From_DB(Dokumentid, s)
|
|
w.Open_Document(s, xdata, doc.iDokumenttypnr.Value)
|
|
End If
|
|
End If
|
|
Me.Hide()
|
|
|
|
If Globals.Dokumentcoldindex_Changed Then
|
|
w.dokumentidalt = Globals.Dokumentidalt
|
|
w.save_dokumentcoldindex = Globals.general_ds.Tables(0)
|
|
w.Dokumentcoldindex_Changed = Globals.Dokumentcoldindex_Changed
|
|
w.dokumentid_changed = Globals.dokumentid_changed
|
|
w.dokumentcoldindex_status = Globals.dokumentcoldindex_status
|
|
w.Ersetzte_Dokumente_Reaktivieren = Globals.Ersetzte_Dokumente_Reaktivieren
|
|
End If
|
|
|
|
'Anzeigen der Dokumentwerte, sofern die Checkbox markiert war
|
|
If Me.cdokumentwerteanzeigen.Checked Then
|
|
Dim f As New frmDokumentwerte()
|
|
f.WordData = xdata
|
|
f.isOk = True
|
|
Me.Cursor = System.Windows.Forms.Cursors.Default
|
|
f.ShowDialog()
|
|
If f.isOk = 0 Then
|
|
f.Dispose()
|
|
w.CloseDoc()
|
|
If Me.CreateDocument = True Then w.Restore(1) Else w.Restore(2)
|
|
DivFnkt.Status_Dokumentbearbeitung(2, Me.Dokumentid, False, "")
|
|
Else
|
|
If f.isOk = 1 Then
|
|
f.Dispose()
|
|
w.Dokument_Vervollstaendigen(xdata)
|
|
Words.Add(w, w.DokumentName)
|
|
Else
|
|
If f.isOk = 2 Then
|
|
f.Dispose()
|
|
If Me.CreateDocument = True Then w.Restore(1) Else w.Restore(2)
|
|
DivFnkt.Status_Dokumentbearbeitung(2, Me.Dokumentid, False, "")
|
|
Me.CreateDocument = False
|
|
Me.btnWeiter.Enabled = True
|
|
Me.Show()
|
|
End If
|
|
End If
|
|
End If
|
|
Else
|
|
If Me.BarcodeID = "" And Me.Dokumentinfobearbeiten = False Then
|
|
w.Dokument_Vervollstaendigen(xdata)
|
|
Words.Add(w, w.DokumentName)
|
|
Else
|
|
If Not Me.Dokumentinfobearbeiten = True Then
|
|
Update_Bclabel(1)
|
|
End If
|
|
DivFnkt.Status_Dokumentbearbeitung(2, Me.Dokumentid, False, "")
|
|
End If
|
|
End If
|
|
xdata.Dispose()
|
|
doc.Dispose()
|
|
End Sub
|
|
|
|
Private Function get_current_Status(ByVal dokumentid As String) As Long
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokumentbearbeitung_current_status"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@statustext", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.mcbstatus.Text))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@currentstatus", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
get_current_Status = scmCmdToExecute.Parameters.Item("@currentstatus").Value
|
|
Return get_current_Status
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Private Sub Update_Bclabel(ByVal typ As Integer)
|
|
If Me.BarcodeID = "" Then Exit Sub
|
|
Dim bc As New edokadb.clsBarcodeetikette()
|
|
bc.cpMainConnectionProvider = conn
|
|
bc.iBarcodenr = New SqlInt32(CType(Me.BarcodeID, Int32))
|
|
bc.SelectOne()
|
|
conn.OpenConnection()
|
|
If typ = 2 And Me.CreateDocument = True Then
|
|
bc.sDokumentid = New SqlString(CType("", String))
|
|
Else
|
|
bc.sDokumentid = New SqlString(CType(Me.Dokumentid, String))
|
|
End If
|
|
bc.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
|
bc.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
|
bc.Update()
|
|
conn.CloseConnection(True)
|
|
End Sub
|
|
|
|
Public Sub Cold_Index_Bearbeiten(ByVal indextyp As Integer)
|
|
Dim xdata As DataTable
|
|
Dim cdata As DataTable
|
|
cdata = COLD_Index_Sichern(indextyp)
|
|
xdata = Me.DataSet1.Tables(0)
|
|
For i = 0 To xdata.Rows.Count - 1
|
|
If xdata.Rows(i).Item("cold_indexfeld") Is System.DBNull.Value Then
|
|
Else
|
|
If xdata.Rows(i).Item("cold_indexfeld") > 0 Then
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokument_Cold_Index_Update"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
scmCmdToExecute.Connection.Open()
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@coldfeldnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, xdata.Rows(i).Item("cold_indexfeld")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@value", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, xdata.Rows(i).Item("feldwert")))
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Cold_Index_Update::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Connection.Close()
|
|
scmCmdToExecute.Dispose()
|
|
End Try
|
|
End If
|
|
End If
|
|
Next
|
|
cdata.Dispose()
|
|
xdata.Dispose()
|
|
End Sub
|
|
|
|
Public Function COLD_Index_Sichern(ByVal indextyp As Integer) As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokument_Cold_Index"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@indextyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, indextyp))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
|
|
End Function
|
|
|
|
Public Sub Dokumentwerte_Sichern()
|
|
Dim xdata As DataTable
|
|
xdata = Me.DataSet1.Tables(0)
|
|
For i = 0 To xdata.Rows.Count - 1
|
|
If xdata.Rows(i).Item("cold_indexfeld") Is System.DBNull.Value Then xdata.Rows(i).Item("cold_indexfeld") = 0
|
|
If xdata.Rows(i).Item("cold_indexfeld") = 0 Then
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokument_Information_Wert"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
scmCmdToExecute.Connection.Open()
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@vorlagenfeldnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, xdata.Rows(i).Item("vorlagenfeldnr")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@value", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, xdata.Rows(i).Item("feldwert")))
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Connection.Close()
|
|
scmCmdToExecute.Dispose()
|
|
End Try
|
|
End If
|
|
Next
|
|
xdata.Dispose()
|
|
End Sub
|
|
|
|
Public Sub Notizen_Sichern()
|
|
For i = 0 To Me.Notizen.Rows.Count - 1
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokument_Notizen"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
scmCmdToExecute.Connection.Open()
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@notiznr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Notizen.Rows(i).Item("notiznr")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@betreff", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Notizen.Rows(i).Item("betreff")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@value", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Notizen.Rows(i).Item("notiz")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@aktiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Notizen.Rows(i).Item("aktiv")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Connection.Close()
|
|
scmCmdToExecute.Dispose()
|
|
End Try
|
|
Next
|
|
End Sub
|
|
|
|
Public Sub Dokumentersetzen_Sichern()
|
|
For i = 0 To Me.Dokumentersetzen.Rows.Count - 1
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokumentersetzen_sichern"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
scmCmdToExecute.Connection.Open()
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentersetzennr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentersetzen.Rows(i).Item("dokumentersetzennr")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@hauptdokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentersetzen.Rows(i).Item("dokumentid")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@aktiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentersetzen.Rows(i).Item("aktiv")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@coldstatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentersetzen.Rows(i).Item("coldstatus")))
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Ersetzen::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Connection.Close()
|
|
scmCmdToExecute.Dispose()
|
|
End Try
|
|
Next
|
|
End Sub
|
|
|
|
Public Sub Dokumentzuordnungen_Sichern()
|
|
For i = 0 To Me.Dokumentzuorndungen.Rows.Count - 1
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokumentzuordnungen_sichern"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
scmCmdToExecute.Connection.Open()
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentzuordnungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentzuorndungen.Rows(i).Item("NrEintrag")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid2", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentzuorndungen.Rows(i).Item("DOKUMENTID2")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@zuordnungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentzuorndungen.Rows(i).Item("zuordnungnr")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@aktiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentzuorndungen.Rows(i).Item("AKTIV")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mandant", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MandantNr))
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Connection.Close()
|
|
scmCmdToExecute.Dispose()
|
|
End Try
|
|
Next
|
|
End Sub
|
|
|
|
Public Sub Dokumentinfomeldungen_Sichern()
|
|
For i = 0 To Me.DokumentInfoMeldungen.Rows.Count - 1
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokumentinfomeldungen_sichern"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
scmCmdToExecute.Connection.Open()
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentinfomeldungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentInfoMeldungen.Rows(i).Item("dokumentinfomeldungnr")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@empfaenger", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentInfoMeldungen.Rows(i).Item("empfaengernr")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bemerkung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentInfoMeldungen.Rows(i).Item("bemerkung")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@meldungstext", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentInfoMeldungen.Rows(i).Item("meldungstext")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@beistatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentInfoMeldungen.Rows(i).Item("beistatus")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@aktiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentInfoMeldungen.Rows(i).Item("aktiv")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mandant", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MandantNr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@typ", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentInfoMeldungen.Rows(i).Item("typ")))
|
|
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception(scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Connection.Close()
|
|
scmCmdToExecute.Dispose()
|
|
End Try
|
|
Next
|
|
End Sub
|
|
|
|
Public Sub Dokumentfunktionen_sichern()
|
|
Try
|
|
For i = 0 To Me.DokumentFunktionen.Rows.Count - 1
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokumentfunktionen_Sichern"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
scmCmdToExecute.Connection.Open()
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentfunktiongruppenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionen.Rows(i).Item("dokumentfunktiongruppenr")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@funktiongruppenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionen.Rows(i).Item("funktionsgruppenr")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@anzeigen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionen.Rows(i).Item("anzeigen")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bearbeiten", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionen.Rows(i).Item("bearbeiten")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@loeschen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionen.Rows(i).Item("loeschen")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@abschliessen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionen.Rows(i).Item("abschliessen")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@aktiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionen.Rows(i).Item("aktiv")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MandantNr))
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Connection.Close()
|
|
scmCmdToExecute.Dispose()
|
|
End Try
|
|
Next
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
Private Function Dokumentwerte(ByVal dokumentid As String) As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokumentwerte"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ierrorcode", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
Try
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Private Function Status_History(ByVal statusnr As Long)
|
|
Dim statush As New Statushandling()
|
|
Dim i, i1 As Integer
|
|
If Me.saveverantwortlicher = Me.mcbverantwortlich.SelectedValue And Me.savestatus = Me.mcbstatus.SelectedValue And Not Me.CreateDocument And Me.mcbstatus.SelectedIndex = 0 Then
|
|
statush.Dispose()
|
|
Exit Function
|
|
End If
|
|
If Me.CreateDocument Then
|
|
i = Me.mcbstatus.SelectedValue
|
|
Me.mcbstatus.SelectedIndex = 0
|
|
statush.insert_history_status(get_current_Status(Me.Dokumentid), Me.Dokumentid, Globals.MitarbeiterNr)
|
|
System.Threading.Thread.Sleep(500)
|
|
Me.mcbstatus.SelectedValue = i
|
|
If Me.mcbstatus.SelectedIndex <> 0 Or Me.mcbverantwortlich.SelectedValue <> Me.saveverantwortlicher Then
|
|
statush.insert_history_status(get_current_Status(Me.Dokumentid), Me.Dokumentid, Me.mcbverantwortlich.SelectedValue)
|
|
End If
|
|
w.send_statusmessage = True
|
|
Else
|
|
If Me.mcbstatus.SelectedValue <> Me.savestatus Or Me.mcbstatus.SelectedIndex <> 0 Then
|
|
i = Me.mcbstatus.SelectedValue
|
|
Me.mcbstatus.SelectedIndex = 0
|
|
Me.savestatus = Me.mcbstatus.SelectedValue
|
|
statush.insert_history_status(Me.mcbstatus.SelectedValue, Me.Dokumentid, Globals.MitarbeiterNr)
|
|
w.send_statusmessage = True
|
|
Me.mcbstatus.SelectedValue = i
|
|
System.Threading.Thread.Sleep(500)
|
|
End If
|
|
If Me.mcbstatus.SelectedValue <> Me.savestatus Or Me.mcbverantwortlich.SelectedValue <> Me.saveverantwortlicher Then
|
|
statush.insert_history_status(Me.mcbstatus.SelectedValue, Me.Dokumentid, Me.mcbverantwortlich.SelectedValue)
|
|
End If
|
|
End If
|
|
|
|
statush.Dispose()
|
|
End Function
|
|
|
|
|
|
#End Region
|
|
|
|
#Region "Dokumentfunktionen"
|
|
Private Sub Dokumentfunktionen_Aktivieren()
|
|
Dim t As DataTable
|
|
t = Generic_Select(5)
|
|
If t.Rows.Count > 0 Then
|
|
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
|
Me.SqlDataAdapter3.SelectCommand.Parameters("@mandantnr").Value = Globals.MandantNr
|
|
Me.DataSet3.Clear()
|
|
Me.SqlDataAdapter3.Fill(Me.DataSet3)
|
|
' Me.Funktionsliste.DataSource = Me.DataSet3
|
|
' Me.Funktionsliste.DataMember = Me.DataSet3.Tables(0).TableName
|
|
|
|
t.Clear()
|
|
Me.DokumentFunktionen = Generic_Select(6)
|
|
w.Save_DokumentFunktionen = Generic_Select(6)
|
|
Me.DataSet4.Tables.Add(Me.DokumentFunktionen)
|
|
Me.DokumentFunktionenList.DataSource = Me.DataSet4
|
|
Me.DokumentFunktionenList.DataMember = Me.DataSet4.Tables(0).TableName
|
|
Me.DokumentFunktionenList.Columns("aktiv").FilterText = True
|
|
Me.DokumentFunktionenList.FilterBar = False
|
|
DivFnkt.SpaltenTitel_Aktualisieren(Me.DokumentFunktionenList, Me.DokumentFunktionen, "berechtigungseinschraenkung")
|
|
|
|
Else
|
|
Me.pnlBerechtigungen.Visible = False
|
|
End If
|
|
End Sub
|
|
#End Region
|
|
|
|
Private Sub ContextMenu1_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu1.Popup
|
|
If Me.Notizen.Rows.Count = 0 Then
|
|
Me.ContextMenu1.MenuItems(1).Enabled = False
|
|
Me.ContextMenu1.MenuItems(2).Enabled = False
|
|
Else
|
|
If Microsoft.VisualBasic.Left(Notizlist.Columns("betreff").Text, 3) = "***" Then
|
|
Me.ContextMenu1.MenuItems(1).Enabled = False 'Notiz bearbeiten
|
|
Me.ContextMenu1.MenuItems(2).Enabled = False 'Notiz &löschen
|
|
Else
|
|
'Bei Systemnotitzen werden die Menue Ausgeblendet
|
|
Me.ContextMenu1.MenuItems(1).Enabled = True 'Notiz bearbeiten
|
|
Me.ContextMenu1.MenuItems(2).Enabled = True 'Notiz &löschen
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ContextMenu3_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu3.Popup
|
|
If Me.ZuordnungList.Splits(0).Rows.Count = 0 Then
|
|
Me.MnuDokzuordnungDelete.Enabled = False
|
|
Me.MnuShowDoc.Enabled = False
|
|
Else
|
|
Me.MnuDokzuordnungDelete.Enabled = True
|
|
Me.MnuShowDoc.Enabled = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
Dim f As New FrmPartnersuche()
|
|
f.ShowDialog()
|
|
If f.PartnerNr <> 0 Then
|
|
Me.DokWertList.Columns("feldwert").Value = f.PartnerNr
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub rbZustaendigKube_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbZustaendigKube.CheckedChanged
|
|
Me.mcbzust.Enabled = False
|
|
Me.mcbkube.Enabled = True
|
|
If Me.rbZustaendigKube.Checked = True Then
|
|
Me.mcbkube.DataSource = Nothing
|
|
Me.mcbkube.Items.Clear()
|
|
Me.mcbkube.Fill_Data(Generic_Select(8), False)
|
|
If Me.mcbkube.Items.Count = 0 Then
|
|
Me.mcbkube.Text = ""
|
|
Me.rbZustaendigKube.Checked = False
|
|
Me.RBZustaendigZustaendiger.Checked = True
|
|
MyMsg.show_standardmessage(24, MsgBoxStyle.Information)
|
|
RBZustaendigZustaendiger_CheckedChanged(sender, e)
|
|
Exit Sub
|
|
End If
|
|
End If
|
|
Try
|
|
Me.mcbkube.Focus()
|
|
Me.mcbkube.SelectedIndex = 0
|
|
Try
|
|
Me.teamzustaendig = Me.mcbkube.SelectedValue
|
|
Me.refresh_team()
|
|
Catch
|
|
End Try
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
Private Sub RBZustaendigZustaendiger_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBZustaendigZustaendiger.CheckedChanged
|
|
Me.mcbkube.Enabled = False
|
|
Me.mcbzust.Enabled = True
|
|
Me.mcbzust.Focus()
|
|
|
|
Try
|
|
Me.teamzustaendig = Me.mcbzust.SelectedValue
|
|
Me.refresh_team()
|
|
Catch
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub ContextMenu2_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu2.Popup
|
|
If Me.DokWertList.Columns("datenherkunft").Value = "" Then
|
|
Me.MnuValueSelect.Enabled = False
|
|
Else
|
|
Me.MnuValueSelect.Enabled = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
|
|
If Me.On_Load Then Exit Sub
|
|
Me.DateTimePicker3.Value = Me.DateTimePicker1.Value
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
|
Try
|
|
If Me.txtPartnerInhaberNr.Text > 91000000 Then
|
|
Dim f As New frmInteressent()
|
|
f.Partnernr = Me.txtPartnerInhaberNr.Text
|
|
f.Display = True
|
|
f.ShowDialog()
|
|
f.Dispose()
|
|
Else
|
|
Dim f As New frmPartnerDetails()
|
|
f.Partnernr = Me.txtPartnerInhaberNr.Text
|
|
f.ShowDialog()
|
|
f.Dispose()
|
|
End If
|
|
Catch
|
|
Finally
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
|
|
Dim f As New FrmPartnersuche()
|
|
f.ShowDialog()
|
|
|
|
If f.PartnerNr <> 0 Then
|
|
Me.txtZustelladresse.Text = f.zustelladresse
|
|
Me.txtAnredeZusteller.Text = f.Anrede
|
|
Me.txtZustelladresse.Focus()
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub DateTimePicker2_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs)
|
|
If e.KeyCode = Keys.Delete Then
|
|
Me.DateTimePicker2.ResetText()
|
|
Me.DateTimePicker2.Value = System.DBNull.Value
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MnuDokZuordnungAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuDokZuordnungAdd.Click
|
|
Globals.profilnr = Me.Profilnr
|
|
Dim fx As New frmTrefferliste()
|
|
fx.OnlySelect = True
|
|
fx.txtnrpar00.Text = Me.txtPartnerInhaberNr.Text
|
|
fx.Partner_Eingegeben = True
|
|
' fx.refresh_list()
|
|
fx.ToolBar1.Visible = False
|
|
fx.txtnrpar00.Visible = False
|
|
fx.tvstruktur.ContextMenu = Nothing
|
|
fx.Text = "Dokument für Dokumentzuordnung auswählen"
|
|
fx.ImgCombo.Visible = False
|
|
fx.btnPartnersuche.Visible = False
|
|
fx.LblSearch.Visible = False
|
|
fx.DokList.ContextMenu = fx.ContextMenu3
|
|
fx.SelectedDokumentid = ""
|
|
fx.DoRefresh = True
|
|
fx.ShowDialog()
|
|
Try
|
|
If fx.SelectedDokumentid <> "" Then
|
|
Dim rc As DataRowCollection
|
|
Dim newrow As DataRow
|
|
rc = Me.Dokumentzuorndungen.Rows
|
|
Dim rowvals(Me.Dokumentzuorndungen.Columns.Count - 1) As Object
|
|
rowvals(0) = 0
|
|
rowvals(2) = 1
|
|
rowvals(6) = 1
|
|
rowvals(8) = fx.SelectedDokumentid
|
|
rowvals(10) = fx.Dokumentbezeichnung
|
|
|
|
newrow = rc.Add(rowvals)
|
|
Me.ZuordnungList.Refresh()
|
|
'For i = 0 To Me.ZuordnungList.Splits(0).Rows.Count - 1
|
|
'If Me.ZuordnungList.Columns(0).CellText(i) = fx.SelectedDokumentid Then
|
|
' Me.ZuordnungList.Bookmark = i
|
|
'End If
|
|
'Next
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
fx.Dispose()
|
|
End Sub
|
|
|
|
|
|
Private Sub MnuShowDoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuShowDoc.Click
|
|
DivFnkt.ShowDoc(Me.ZuordnungList.Columns(8).Text, Me)
|
|
'Dim doc As New edokadb.clsDokument()
|
|
'Dim Dokument As String
|
|
'Dim FileReader As New DocMgmt()
|
|
'doc.cpMainConnectionProvider = conn
|
|
'doc.sDokumentid = New SqlString(CType(Me.ZuordnungList.Columns(1).Value, String))
|
|
'doc.SelectOne()
|
|
'Dokument = DivFnkt.Get_Filename(doc.sDokumentname.Value, "")
|
|
'FileReader.Get_From_DB(doc.sDokumentid.Value, Dokument)
|
|
'doc.Dispose()
|
|
'FileReader = Nothing
|
|
'Dim w As New WordLib()
|
|
'w.ShowDoc(Dokument)
|
|
'w = Nothing
|
|
End Sub
|
|
|
|
Private Sub MnuDokzuordnungDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuDokzuordnungDelete.Click
|
|
Me.ZuordnungList.Columns("aktiv").Value = False
|
|
Me.ZuordnungList.Refresh()
|
|
Me.TabControl2.Select()
|
|
Me.ZuordnungList.Select()
|
|
End Sub
|
|
|
|
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
Dokumentzuordnungen_Sichern()
|
|
End Sub
|
|
|
|
Private Sub mnuInfoEmpfaengerAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuInfoEmpfaengerAdd.Click
|
|
Dim f As New frmInformationsEmpfaenger()
|
|
f.Dokumenttypnr = Me.Dokumenttypnr
|
|
If Me.CreateDocument = True Then
|
|
f.fromDokumenttyp = True
|
|
Else
|
|
f.fromDokumenttyp = False
|
|
f.dokumentid = Me.Dokumentid
|
|
End If
|
|
f.ShowDialog()
|
|
If f.DialogResult = DialogResult.OK Then
|
|
Dim rc As DataRowCollection
|
|
Dim newrow As DataRow
|
|
rc = Me.DokumentInfoMeldungen.Rows
|
|
Dim rowvals(9) As Object
|
|
rowvals(0) = 0
|
|
rowvals(1) = 0
|
|
rowvals(2) = f.Empfaenger
|
|
rowvals(3) = f.Empaengertext
|
|
rowvals(4) = f.Meldungsnr
|
|
rowvals(5) = f.Meldung
|
|
If Len(f.Bemerkung) > 0 Then f.Bemerkung = f.Bemerkung + vbCrLf + "----------------------" + vbCrLf + vbCrLf
|
|
rowvals(6) = f.Bemerkung
|
|
rowvals(7) = f.Statusnr
|
|
rowvals(8) = f.Statustext
|
|
rowvals(9) = 1
|
|
newrow = rc.Add(rowvals)
|
|
Me.InfoMeldungList.Refresh()
|
|
f.Dispose()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub mnuInfoEmpfaengerDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuInfoEmpfaengerDelete.Click
|
|
Try
|
|
Me.InfoMeldungList.Columns(9).Value = False
|
|
Me.InfoMeldungList.Refresh()
|
|
Me.TabControl2.Select()
|
|
Me.InfoMeldungList.Select()
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub cvertraulich_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
Try
|
|
FillMcbVerantwortlich()
|
|
Me.mcbverantwortlich.Focus()
|
|
Me.mcbkube.SelectAll()
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Function FillMcbVerantwortlich()
|
|
Dim dd As New DataTable()
|
|
Dim I As Integer
|
|
Dim s As String
|
|
s = ""
|
|
Try
|
|
For I = 0 To Me.DokumentFunktionen.Rows.Count - 1
|
|
If Me.DokumentFunktionen.Rows(I).Item("aktiv") = 1 Then
|
|
If s <> "" Then s = s + ";"
|
|
s = s + Microsoft.VisualBasic.LTrim(Str(Me.DokumentFunktionen.Rows(I).Item("funktionsgruppenr")))
|
|
End If
|
|
Next
|
|
Catch
|
|
End Try
|
|
Try
|
|
I = Me.mcbverantwortlich.SelectedValue
|
|
If I = 0 Then I = Globals.MitarbeiterNr
|
|
|
|
Me.mcbverantwortlich.DataSource = Nothing
|
|
Me.mcbverantwortlich.Items.Clear()
|
|
If Me.cvertraulich.Checked = True Then
|
|
dd = DivFnkt.Berechtigte_Mitarbeiter(Me.Dokumenttypnr, 0, Me.Partnernr, "", 3, 0, 0, 1, s)
|
|
Else
|
|
dd = DivFnkt.Berechtigte_Mitarbeiter(Me.Dokumenttypnr, 0, Me.Partnernr, "", 3, 0, 0, 0, s)
|
|
End If
|
|
Me.mcbverantwortlich.Fill_Data(dd, False)
|
|
Me.mcbverantwortlich.SelectedValue = I
|
|
If Me.mcbverantwortlich.Items.Count = 0 Then
|
|
Me.mcbverantwortlich.Text = ""
|
|
Me.mcbverantwortlich.CheckNullValue = False
|
|
Else
|
|
Me.mcbverantwortlich.CheckNullValue = True
|
|
End If
|
|
Catch
|
|
Finally
|
|
dd.Clear()
|
|
dd.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
|
|
Dim i As Integer
|
|
Dim s As String
|
|
s = ""
|
|
Try
|
|
For i = 0 To Me.DokumentFunktionen.Rows.Count - 1
|
|
If Me.DokumentFunktionen.Rows(i).Item("aktiv") = 1 Then
|
|
If s <> "" Then s = s + ";"
|
|
s = s + Microsoft.VisualBasic.LTrim(Str(Me.DokumentFunktionen.Rows(i).Item("funktionsgruppenr")))
|
|
End If
|
|
Next
|
|
Catch
|
|
End Try
|
|
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
|
|
|
|
Dim f As New frmBerechtigungen()
|
|
If Me.cvertraulich.Checked Then
|
|
f.Fill_Berechtigungen(Me.Dokumenttypnr, Me.Partnernr, 1, s)
|
|
Else
|
|
f.Fill_Berechtigungen(Me.Dokumenttypnr, Me.Partnernr, 0, s)
|
|
End If
|
|
Me.Cursor = System.Windows.Forms.Cursors.Default
|
|
f.ShowDialog()
|
|
f.Dispose()
|
|
End Sub
|
|
|
|
Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
MenuItem2_Click(sender, e)
|
|
End Sub
|
|
|
|
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
|
Dim f As New frmDokumentberechtigung()
|
|
f.Dokumenttyp = Me.Dokumenttypnr
|
|
f.Partnernr = Me.Partnernr
|
|
f.Vertraulich = Me.cvertraulich.Checked
|
|
f.ShowDialog()
|
|
If f.DialogResult = DialogResult.OK Then
|
|
Dim rc As DataRowCollection
|
|
Dim newrow As DataRow
|
|
rc = DokumentFunktionen.Rows
|
|
Dim rowvals(Me.DokumentFunktionenList.Columns.Count - 1)
|
|
rowvals(0) = System.DBNull.Value
|
|
rowvals(1) = f.Funktionsgruppebezeichnung
|
|
rowvals(2) = f.Funktionsgruppenr
|
|
rowvals(3) = f.Anzeigen
|
|
rowvals(4) = f.Bearbeiten
|
|
rowvals(5) = f.Loeschen
|
|
rowvals(6) = f.Abschliessen
|
|
rowvals(7) = True
|
|
rowvals(8) = Now
|
|
rowvals(9) = Globals.MitarbeiterNr
|
|
newrow = rc.Add(rowvals)
|
|
Me.DokumentFunktionenList.Refresh()
|
|
For i = 0 To Me.DokumentFunktionenList.Splits(0).Rows.Count - 1
|
|
If Me.DokumentFunktionenList.Columns("bezeichnung").CellText(i) = f.Funktionsgruppebezeichnung Then
|
|
Me.DokumentFunktionenList.Bookmark = i
|
|
End If
|
|
Next
|
|
Me.FillMcbVerantwortlich()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
|
|
Me.DokumentFunktionenList.Columns(7).Value = False
|
|
Me.DokumentFunktionenList.Refresh()
|
|
Me.Button3.Focus()
|
|
Me.DokumentFunktionenList.Focus()
|
|
Me.FillMcbVerantwortlich()
|
|
End Sub
|
|
|
|
Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
|
|
Globals.profilnr = Me.Profilnr
|
|
Dim fx As New frmTrefferliste()
|
|
fx.OnlySelect = True
|
|
fx.txtnrpar00.Text = Me.txtPartnerInhaberNr.Text
|
|
fx.Partner_Eingegeben = True
|
|
' fx.refresh_list()
|
|
fx.ToolBar1.Visible = False
|
|
fx.txtnrpar00.Visible = False
|
|
fx.tvstruktur.ContextMenu = Nothing
|
|
fx.Text = "Dokument für Dokumentzuordnung auswählen"
|
|
fx.ImgCombo.Visible = False
|
|
fx.btnPartnersuche.Visible = False
|
|
fx.LblSearch.Visible = False
|
|
fx.DokList.ContextMenu = fx.ContextMenu3
|
|
fx.SelectedDokumentid = ""
|
|
fx.DoRefresh = True
|
|
fx.ShowDialog()
|
|
Try
|
|
If fx.SelectedDokumentid <> "" Then
|
|
If Check_Dokumentersetzen(Me.Dokumenttypnr, fx.SelectedDokumentid) Then
|
|
Dim rc As DataRowCollection
|
|
Dim newrow As DataRow
|
|
rc = Dokumentersetzen.Rows
|
|
Dim rowvals(Me.Dokumentersetzen.Columns.Count - 1) As Object
|
|
rowvals(0) = System.DBNull.Value
|
|
rowvals(1) = ""
|
|
If Me.CreateDocument Then
|
|
rowvals(1) = ""
|
|
Else
|
|
rowvals(1) = Me.Dokumentid
|
|
End If
|
|
rowvals(2) = fx.SelectedDokumentid
|
|
rowvals(3) = True
|
|
|
|
rowvals(8) = fx.Dokumentbezeichnung
|
|
rowvals(9) = fx.dokumentdatum
|
|
newrow = rc.Add(rowvals)
|
|
Me.ColdList.Refresh()
|
|
End If
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
fx.Dispose()
|
|
End Sub
|
|
|
|
Private Function Check_Dokumentersetzen(ByVal dokumenttypnr As Integer, ByVal dokumentid As String) As Boolean
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim s As String
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.sp_dokumentbearbeitung_chcek_dokumentersetzen"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumenttypnr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@errormessage", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
s = scmCmdToExecute.Parameters.Item("@errormessage").Value
|
|
If s <> "" Then
|
|
MyMsg.show_standardmessage(Val(s), MsgBoxStyle.Critical)
|
|
Return False
|
|
End If
|
|
Return True
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
|
|
End Function
|
|
|
|
Private Sub cbKube_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mcbkube.SelectedIndexChanged
|
|
Try
|
|
Me.teamzustaendig = Me.mcbkube.SelectedValue
|
|
Catch
|
|
End Try
|
|
refresh_team()
|
|
End Sub
|
|
|
|
|
|
Private Sub cbzust_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mcbzust.SelectedIndexChanged
|
|
Try
|
|
Me.teamzustaendig = Me.mcbzust.SelectedValue
|
|
refresh_team()
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub DokWertList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DokWertList.Click
|
|
|
|
End Sub
|
|
|
|
Private Sub InfoMeldungList_FetchRowStyle(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs)
|
|
Try
|
|
If Me.InfoMeldungList.Columns("typ").CellValue(e.Row) = 1 Then
|
|
e.CellStyle.BackColor = System.Drawing.Color.CadetBlue
|
|
End If
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub ContextMenu7_Popup(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextMenu7.Popup
|
|
Try
|
|
If Me.ColdList.Splits(0).Rows.Count = 0 Then
|
|
Me.MenuItem6.Enabled = False
|
|
Else
|
|
Me.MenuItem6.Enabled = True
|
|
End If
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub ContextMenu4_Popup(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextMenu4.Popup
|
|
Try
|
|
If Me.InfoMeldungList.Columns("typ").Value = 1 Then
|
|
Me.mnuInfoEmpfaengerDelete.Enabled = False
|
|
Else
|
|
Me.mnuInfoEmpfaengerDelete.Enabled = True
|
|
End If
|
|
If Me.InfoMeldungList.Splits(0).Rows.Count = 0 Then
|
|
Me.mnuInfoEmpfaengerDelete.Enabled = False
|
|
Else
|
|
Me.mnuInfoEmpfaengerDelete.Enabled = True
|
|
End If
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
|
|
Me.ColdList.Columns("aktiv").Value = False
|
|
End Sub
|
|
|
|
Private Function check_banklagernd() As Boolean
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim i As Integer
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.sp_check_banklagernd"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtPartnerInhaberNr.Text))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@banklagernd", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
i = scmCmdToExecute.Parameters.Item("@banklagernd").Value
|
|
If i <> 0 Then
|
|
check_banklagernd = True
|
|
Else
|
|
check_banklagernd = False
|
|
End If
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
|
|
End Function
|
|
|
|
Private Sub txtZustelladresse_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtZustelladresse.Leave
|
|
If check_banklagernd() = True Then
|
|
If MyMsg.Show_MessageYesNo(72) = MsgBoxResult.No Then
|
|
Me.txtZustelladresse.Text = ""
|
|
Me.txtAnredeZusteller.Text = ""
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub DokWertList_AfterColEdit(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles DokWertList.AfterColEdit
|
|
Me.DokWertList.Update()
|
|
End Sub
|
|
|
|
Private Function get_partnerzusteller(ByVal nrpar00 As Integer) As String
|
|
Dim p As New edokadb.clsPartner()
|
|
Dim p1 As New edokadb.clsPartner()
|
|
Dim s As String
|
|
s = ""
|
|
p.cpMainConnectionProvider = conn
|
|
p.iNRPAR00 = New SqlInt32(CType(nrpar00, Int32))
|
|
p.SelectOne()
|
|
If p.iNRPAR00.ToString <> p.sNRPARAD.ToString Then
|
|
Try
|
|
p1.cpMainConnectionProvider = conn
|
|
p1.iNRPAR00 = New SqlInt32(CType(p.sNRPARAD.Value, Int32))
|
|
p1.SelectOne()
|
|
s = p1.sNRPARAD.ToString + " " + p1.sBKPAR00.Value
|
|
Catch
|
|
s = ""
|
|
End Try
|
|
End If
|
|
p.Dispose()
|
|
p1.Dispose()
|
|
get_partnerzusteller = s
|
|
End Function
|
|
|
|
|
|
Private Sub cbmoeglicheStati_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbmoeglicheStati.DropDown
|
|
Me.cbmoeglicheStati.Width = 200
|
|
Me.cbsave.Visible = True
|
|
End Sub
|
|
|
|
Private Sub cbmoeglicheStati_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbmoeglicheStati.Leave
|
|
Me.cbsave.Visible = False
|
|
Me.cbmoeglicheStati.Width = 21
|
|
End Sub
|
|
|
|
Private Sub cbmoeglicheStati_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbmoeglicheStati.SelectedValueChanged
|
|
Dim i As Integer
|
|
Dim DATA As DataTable
|
|
Me.cbsave.Visible = False
|
|
Me.cbmoeglicheStati.Width = 21
|
|
Me.txtstatus.Text = Me.cbmoeglicheStati.Text
|
|
Me.Label3.Visible = True
|
|
Me.txtstatus.Visible = True
|
|
If Me.txtstatus.Text = Me.mcbstatus.Text Then
|
|
Me.Label3.Visible = False
|
|
Me.txtstatus.Visible = False
|
|
Me.funktionsliste = ""
|
|
Me.selectedstatus = 0
|
|
Else
|
|
For i = 0 To Me.moeglichestati.Rows.Count - 1
|
|
If Me.txtstatus.Text = Me.moeglichestati.Rows(i).Item("bezeichnung") Then
|
|
Me.selectedstatus = Me.moeglichestati.Rows(i).Item("nr")
|
|
End If
|
|
Next
|
|
End If
|
|
Me.funktionsliste = ""
|
|
DATA = Generic_Select(16)
|
|
For i = 0 To DATA.Rows.Count - 1
|
|
If Me.funktionsliste <> "" Then Me.funktionsliste = Me.funktionsliste + ";"
|
|
Me.funktionsliste = Me.funktionsliste + LTrim(DATA.Rows(i).Item("funktionnr"))
|
|
Next
|
|
fill_mcbmitarbeiter()
|
|
Me.mcbverantwortlich.Focus()
|
|
End Sub
|
|
|
|
Private Sub fill_mcbmitarbeiter()
|
|
Me.mcbverantwortlich.DataSource = Nothing
|
|
Me.mcbverantwortlich.Items.Clear()
|
|
Me.mcbverantwortlich.CheckNullValue = True
|
|
Me.mcbverantwortlich.NullValueMessage = MyTxt.gettext(18)
|
|
Me.mcbverantwortlich.DisplayColumnName = "mitarbeiter"
|
|
Me.mcbverantwortlich.ValueColumnName = "mitarbeiternr"
|
|
Me.mcbverantwortlich.Fill_Data(DivFnkt.Berechtigte_Mitarbeiter(0, 0, 0, Me.Dokumentid, 3, 0, 0, 0, Me.funktionsliste), False)
|
|
' Me.mcbmitarbeiter.Fill_Data(DivFnkt.Berechtigte_Mitarbeiter(0, 0, 0, Me.Dokumentid, 3, 0, 0, 0, Me.Funktionsliste), False)
|
|
|
|
' Me.mcbverantwortlich.SelectedValue = Me.mitarbeiternr
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
#Region "IndexMutation"
|
|
Public Function load_indexmutation()
|
|
Dim i As Integer
|
|
Dim s As String
|
|
Me.GroupBox15.Enabled = False
|
|
If DivFnkt.MA_Is_Sysadmin(Globals.MitarbeiterNr) Then
|
|
Me.GroupBox15.Enabled = True
|
|
End If
|
|
|
|
If Me.Dokument_Ist_Abgeschlossen = False Then
|
|
If Me.Aktueller_Dokumentverantwortlicher = Globals.MitarbeiterNr Or DivFnkt.MA_Is_Sysadmin(Globals.MitarbeiterNr) Then
|
|
Me.GroupBox15.Enabled = True
|
|
Else
|
|
Me.GroupBox15.Enabled = False
|
|
End If
|
|
Else
|
|
set_abgeschlossen_menu()
|
|
If GroupBox15.Enabled = False And DivFnkt.MA_Is_Sysadmin(Globals.MitarbeiterNr) Then Me.GroupBox15.Enabled = True
|
|
End If
|
|
|
|
If GroupBox15.Enabled = False Then Exit Function
|
|
|
|
daten = get_dokumentdaten()
|
|
dokumente = get_dokumente()
|
|
Me.TextBox1.Text = Me.Partnernr
|
|
For i = 0 To daten.Rows.Count - 1
|
|
Select Case daten.Rows(i).Item("cold_indexfeldnr")
|
|
Case 1
|
|
Me.TextBox1.Text = RTrim(daten.Rows(i).Item("wert"))
|
|
Partnernr = Me.TextBox1.Text
|
|
Case 3
|
|
Me.TextBox4.Text = RTrim(daten.Rows(i).Item("wert"))
|
|
Me.vvnr = Me.TextBox4.Text
|
|
Case 5
|
|
s = daten.Rows(i).Item("wert")
|
|
If Microsoft.VisualBasic.InStr(s, ".") > 0 Then
|
|
datum = s
|
|
Else
|
|
datum = Microsoft.VisualBasic.Right(s, 2) + "." + Mid(s, 5, 2) + "." + Microsoft.VisualBasic.Left(s, 4)
|
|
End If
|
|
Me.DateTimePicker4.Value = datum
|
|
Case 14
|
|
Me.TextBox2.Text = RTrim(daten.Rows(i).Item("wert"))
|
|
Me.gf = Me.TextBox2.Text
|
|
Case 12
|
|
Me.TextBox2.Text = RTrim(daten.Rows(i).Item("wert"))
|
|
Me.gf = Me.TextBox2.Text
|
|
Case 17
|
|
Me.TextBox3.Text = RTrim(daten.Rows(i).Item("wert"))
|
|
Me.gu = Me.TextBox3.Text
|
|
End Select
|
|
Next
|
|
End Function
|
|
|
|
Private Function get_dokumentdaten() As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim i As Integer
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.sp_indexmutation_getdokinfo"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Private Function get_dokumente() As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim i As Integer
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.sp_indexmutation_getdokumente"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
|
|
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
|
|
Dim f As New FrmPartnersuche()
|
|
f.NurAbfrage = True
|
|
f.ShowDialog()
|
|
If f.PartnerNr <> 0 Then
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Me.TextBox1.Text = f.PartnerNr
|
|
Me.Cursor = Cursors.Default
|
|
MyMsg.show_standardmessage(94, MsgBoxStyle.Information)
|
|
End If
|
|
f.Dispose()
|
|
End Sub
|
|
|
|
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
|
|
Dim f As New frmValueSelector()
|
|
f.Text = "Auswahl VV-Nummer"
|
|
f.Datenherkunft = "&VVdesPartners&"
|
|
f.Datenherkunft = "&VVunformatiert&"
|
|
f.Partnernr = Me.TextBox1.Text
|
|
f.LoadData()
|
|
If f.Datenvorhanden = True Then
|
|
f.ShowDialog()
|
|
If f.DialogResult = DialogResult.OK Then Me.TextBox4.Text = f.SelWert
|
|
End If
|
|
f.Dispose()
|
|
End Sub
|
|
|
|
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
|
|
If Me.Partnernr <> Me.TextBox1.Text Then
|
|
Update_Partnernr(Me.Dokumentid, Me.TextBox1.Text)
|
|
End If
|
|
If Me.vvnr <> Me.TextBox4.Text Then
|
|
Update_vvnr(Dokumentid, Me.TextBox4.Text)
|
|
End If
|
|
If Me.gu <> Me.TextBox3.Text Then
|
|
Update_gu(Dokumentid, Me.TextBox3.Text)
|
|
End If
|
|
If Me.gf <> Me.TextBox2.Text Then
|
|
Update_gf(Me.Dokumentid, Me.TextBox2.Text)
|
|
End If
|
|
If Me.datum <> Me.DateTimePicker4.Value Then
|
|
Update_datum(Dokumentid, Me.datum, Me.DateTimePicker4.Value.ToShortDateString)
|
|
End If
|
|
MyMsg.show_standardmessage(95, MsgBoxStyle.Information)
|
|
End Sub
|
|
|
|
Public Sub Update_Status(ByVal dokumentid As String, ByVal colddokumentid As String, ByVal indextyp As Integer, ByVal status As String)
|
|
Dim ityp As Integer
|
|
If indextyp = 0 Then
|
|
ityp = get_indextyp(dokumentid, colddokumentid)
|
|
Else
|
|
ityp = indextyp
|
|
End If
|
|
Insert_ColdUpdate(dokumentid, colddokumentid, ityp, 7, status)
|
|
Update_DokumentColdIndexwert(dokumentid, ityp, 7, status)
|
|
End Sub
|
|
|
|
Public Sub Update_Partnernr(ByVal dokumentid As String, ByVal partnernr As String)
|
|
Dim d As New edokadb.clsDokument()
|
|
Dim kurzname As String
|
|
Dim ort As String
|
|
d.cpMainConnectionProvider = Globals.conn
|
|
d.sDokumentid = New SqlString(CType(dokumentid, String))
|
|
d.SelectOne()
|
|
d.iNrpar00 = New SqlInt32(CType(partnernr, Int32))
|
|
conn.OpenConnection()
|
|
d.Update()
|
|
conn.CloseConnection(True)
|
|
d.Dispose()
|
|
kurzname = get_data("&PartnerKurzname&")
|
|
ort = get_data("&PartnerInhaberOrt&")
|
|
Dim i As Integer
|
|
For i = 0 To Me.dokumente.Rows.Count - 1
|
|
Insert_ColdUpdate(dokumentid, RTrim(dokumente.Rows(i).Item("wert")), dokumente.Rows(i).Item("indextyp"), 1, partnernr)
|
|
Update_DokumentColdIndexwert(dokumentid, dokumente.Rows(i).Item("indextyp"), 1, Me.TextBox1.Text)
|
|
Insert_ColdUpdate(dokumentid, RTrim(dokumente.Rows(i).Item("wert")), dokumente.Rows(i).Item("indextyp"), 2, kurzname)
|
|
Update_DokumentColdIndexwert(dokumentid, dokumente.Rows(i).Item("indextyp"), 2, kurzname)
|
|
Insert_ColdUpdate(dokumentid, RTrim(dokumente.Rows(i).Item("wert")), dokumente.Rows(i).Item("indextyp"), 8, ort)
|
|
Update_DokumentColdIndexwert(dokumentid, dokumente.Rows(i).Item("indextyp"), 8, ort)
|
|
Next
|
|
End Sub
|
|
|
|
Public Sub Update_vvnr(ByVal dokumentid As String, ByVal vvnr As String)
|
|
Dim i As Integer
|
|
For i = 0 To Me.dokumente.Rows.Count - 1
|
|
Insert_ColdUpdate(dokumentid, RTrim(dokumente.Rows(i).Item("wert")), dokumente.Rows(i).Item("indextyp"), 3, vvnr)
|
|
Update_DokumentColdIndexwert(dokumentid, dokumente.Rows(i).Item("indextyp"), 3, vvnr)
|
|
Next
|
|
End Sub
|
|
|
|
Public Sub Update_gu(ByVal dokumentid As String, ByVal gu As String)
|
|
Dim i As Integer
|
|
For i = 0 To Me.dokumente.Rows.Count - 1
|
|
Insert_ColdUpdate(dokumentid, RTrim(dokumente.Rows(i).Item("wert")), dokumente.Rows(i).Item("indextyp"), 17, gu)
|
|
Update_DokumentColdIndexwert(dokumentid, dokumente.Rows(i).Item("indextyp"), 17, gu)
|
|
Next
|
|
End Sub
|
|
|
|
Public Sub Update_gf(ByVal dokumentid As String, ByVal gf As String)
|
|
Dim i As Integer
|
|
For i = 0 To Me.dokumente.Rows.Count - 1
|
|
Insert_ColdUpdate(dokumentid, RTrim(dokumente.Rows(i).Item("wert")), dokumente.Rows(i).Item("indextyp"), 14, gf)
|
|
Update_DokumentColdIndexwert(dokumentid, dokumente.Rows(i).Item("indextyp"), 14, gf)
|
|
Update_DokumentColdIndexwert(dokumentid, dokumente.Rows(i).Item("indextyp"), 12, gf)
|
|
Next
|
|
End Sub
|
|
|
|
Public Sub Update_datum(ByVal dokumentid As String, ByVal datuma As DateTime, ByVal datum As DateTime)
|
|
Dim i As Integer
|
|
Dim alterwert As String
|
|
Dim neuerwert As String
|
|
Dim s As String
|
|
alterwert = LTrim(Str(Year(datuma)))
|
|
s = LTrim(Str(Month(datuma)))
|
|
While Len(s) < 2
|
|
s = "0" + s
|
|
End While
|
|
alterwert = alterwert + s
|
|
s = LTrim(Str(Microsoft.VisualBasic.Day(datuma)))
|
|
While Len(s) < 2
|
|
s = "0" + s
|
|
End While
|
|
alterwert = alterwert + s
|
|
|
|
neuerwert = LTrim(Str(Year(datum)))
|
|
s = LTrim(Str(Month(datum)))
|
|
While Len(s) < 2
|
|
s = "0" + s
|
|
End While
|
|
neuerwert = neuerwert + s
|
|
s = LTrim(Str(Microsoft.VisualBasic.Day(datum)))
|
|
While Len(s) < 2
|
|
s = "0" + s
|
|
End While
|
|
neuerwert = neuerwert + s
|
|
For i = 0 To Me.dokumente.Rows.Count - 1
|
|
Insert_ColdUpdate_Datum(dokumentid, RTrim(dokumente.Rows(i).Item("wert")), alterwert, neuerwert)
|
|
Update_DokumentColdIndexwert(dokumentid, dokumente.Rows(i).Item("indextyp"), 5, Me.DateTimePicker4.Value.ToShortDateString)
|
|
Next
|
|
|
|
End Sub
|
|
|
|
Public Function Insert_ColdUpdate(ByVal dokumentid As String, ByVal colddokumentid As String, ByVal indextyp As Integer, ByVal feldnr As Integer, ByVal wert As String)
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.SP_Archiv_insert_coldupdate"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
conn.OpenConnection()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@colddokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, colddokumentid))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@indextyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, indextyp))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@feldnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, feldnr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@neuerwert", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, wert))
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
conn.CloseConnection(True)
|
|
End Try
|
|
End Function
|
|
|
|
Public Function Insert_ColdUpdate_Datum(ByVal dokumentid As String, ByVal colddokumentid As String, ByVal alterwert As String, ByVal neuerwert As String)
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.sp_indexmutation_insert_datumupdate"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
conn.OpenConnection()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@colddokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, colddokumentid))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@alterwert", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, alterwert))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@neuerwert", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, neuerwert))
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
conn.CloseConnection(True)
|
|
End Try
|
|
End Function
|
|
|
|
Public Function Update_DokumentColdIndexwert(ByVal dokumentid As String, ByVal Indextyp As Integer, ByVal indexfeld As Integer, ByVal wert As String)
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.SP_Archiv_Update_DokumentColdIndexwert"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
conn.OpenConnection()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@indextyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Indextyp))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@indexfeld", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, indexfeld))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@wert", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, wert))
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
conn.CloseConnection(True)
|
|
End Try
|
|
End Function
|
|
|
|
Private Function get_data(ByVal datenherkunft As String) As String
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim i As Integer
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.sp_dokumentwerte_select"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@datenherkunft", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, datenherkunft))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@value", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return scmCmdToExecute.Parameters("@value").Value
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Private Function get_indextyp(ByVal dokumentid As String, ByVal colddokumentid As String) As Integer
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim i As Integer
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.sp_indexmutation_getindextyp"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@colddokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, colddokumentid))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@indextyp", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return scmCmdToExecute.Parameters("@indextyp").Value
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Private Sub set_abgeschlossen_menu()
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim i As Integer
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.sp_abgeschlossenes_dokument"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@indexmutation", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@aufhebung", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@loeschung", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
i = scmCmdToExecute.Parameters.Item("@indexmutation").Value
|
|
If i <> 0 Then
|
|
Me.GroupBox15.Enabled = True
|
|
End If
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
Private Sub ZuordnungList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ZuordnungList.Click
|
|
|
|
End Sub
|
|
|
|
Private Sub BtnHelp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHelp.Click
|
|
Globals.HTMLHelp.ShowHelpToc("dokumentinformationenbearbeiten")
|
|
End Sub
|
|
|
|
Private Sub btnLoeschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoeschen.Click
|
|
Me.TextBox4.Text = ""
|
|
End Sub
|
|
End Class
|