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.
4534 lines
222 KiB
4534 lines
222 KiB
Imports System.Data
|
|
Imports System.Data.SqlTypes
|
|
Imports System.Data.SqlClient
|
|
Imports System.ComponentModel
|
|
Imports UtilityLibrary.Win32
|
|
|
|
Public Class frmDokumentbearbeitungED
|
|
Inherits System.Windows.Forms.Form
|
|
|
|
#Region " Vom Windows Form Designer generierter Code "
|
|
|
|
|
|
|
|
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
|
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
|
If disposing Then
|
|
If Not (components Is Nothing) Then
|
|
components.Dispose()
|
|
End If
|
|
End If
|
|
MyBase.Dispose(disposing)
|
|
End Sub
|
|
|
|
' Für Windows Form-Designer erforderlich
|
|
Private components As System.ComponentModel.IContainer
|
|
|
|
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
|
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
|
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
|
Friend WithEvents btnWeiter As System.Windows.Forms.Button
|
|
Friend WithEvents btnCancel As System.Windows.Forms.Button
|
|
Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
|
|
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
|
|
Friend WithEvents DataSet1 As System.Data.DataSet
|
|
Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
|
|
Friend WithEvents MnuNeueNotiz As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MnuDeleteNotiz As System.Windows.Forms.MenuItem
|
|
Friend WithEvents SqlDataAdapter2 As System.Data.SqlClient.SqlDataAdapter
|
|
Friend WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlInsertCommand2 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlUpdateCommand2 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlDeleteCommand2 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents DataSet2 As System.Data.DataSet
|
|
Friend WithEvents SqlDataAdapter3 As System.Data.SqlClient.SqlDataAdapter
|
|
Friend WithEvents SqlSelectCommand3 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlInsertCommand3 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlUpdateCommand3 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlDeleteCommand3 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents DataSet3 As System.Data.DataSet
|
|
Friend WithEvents DataSet4 As System.Data.DataSet
|
|
Friend WithEvents TabControl2 As System.Windows.Forms.TabControl
|
|
Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
|
|
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents cbUnterschriftrechts As System.Windows.Forms.ComboBox
|
|
Friend WithEvents cbUnterschriftlinks As System.Windows.Forms.ComboBox
|
|
Friend WithEvents Label8 As System.Windows.Forms.Label
|
|
Friend WithEvents Label7 As System.Windows.Forms.Label
|
|
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents RBZustaendigZustaendiger As System.Windows.Forms.RadioButton
|
|
Friend WithEvents rbZustaendigKube As System.Windows.Forms.RadioButton
|
|
Friend WithEvents cbzust As System.Windows.Forms.ComboBox
|
|
Friend WithEvents cbKube As System.Windows.Forms.ComboBox
|
|
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker
|
|
Friend WithEvents cbPostzustellung As System.Windows.Forms.ComboBox
|
|
Friend WithEvents Label5 As System.Windows.Forms.Label
|
|
Friend WithEvents Label3 As System.Windows.Forms.Label
|
|
Friend WithEvents Label20 As System.Windows.Forms.Label
|
|
Friend WithEvents txtBemerkung As System.Windows.Forms.TextBox
|
|
Friend WithEvents DateTimePicker3 As System.Windows.Forms.DateTimePicker
|
|
Friend WithEvents Label10 As System.Windows.Forms.Label
|
|
Friend WithEvents Label6 As System.Windows.Forms.Label
|
|
Friend WithEvents cbVerantwortlich As System.Windows.Forms.ComboBox
|
|
Friend WithEvents Label17 As System.Windows.Forms.Label
|
|
Friend WithEvents Label16 As System.Windows.Forms.Label
|
|
Friend WithEvents cbdokumentstatus As System.Windows.Forms.ComboBox
|
|
Friend WithEvents txtPartnerInhaberNr As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtBezeichnung As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label4 As System.Windows.Forms.Label
|
|
Friend WithEvents btnPartnerInhaber As System.Windows.Forms.Button
|
|
Friend WithEvents txtPartnerZusteller As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtPartnerInhaber As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label2 As System.Windows.Forms.Label
|
|
Friend WithEvents Label1 As System.Windows.Forms.Label
|
|
Friend WithEvents GroupBox10 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents DokWertList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents cdokumentwerteanzeigen As System.Windows.Forms.CheckBox
|
|
Friend WithEvents ContextMenu2 As System.Windows.Forms.ContextMenu
|
|
Friend WithEvents MnuValueSelect As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MnuEditNotiz As System.Windows.Forms.MenuItem
|
|
Friend WithEvents Button1 As System.Windows.Forms.Button
|
|
Friend WithEvents GroupBox12 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents cbteam As System.Windows.Forms.ComboBox
|
|
Friend WithEvents ContextMenu3 As System.Windows.Forms.ContextMenu
|
|
Friend WithEvents MnuDokZuordnungAdd As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MnuDokzuordnungDelete As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MnuShowDoc As System.Windows.Forms.MenuItem
|
|
Friend WithEvents ContextMenu4 As System.Windows.Forms.ContextMenu
|
|
Friend WithEvents mnuInfoEmpfaengerAdd As System.Windows.Forms.MenuItem
|
|
Friend WithEvents mnuInfoEmpfaengerDelete As System.Windows.Forms.MenuItem
|
|
Friend WithEvents DateTimePicker2 As C1.Win.C1Input.C1DateEdit
|
|
Friend WithEvents ContextMenu5 As System.Windows.Forms.ContextMenu
|
|
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents ContextMenu6 As System.Windows.Forms.ContextMenu
|
|
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents ContextMenu7 As System.Windows.Forms.ContextMenu
|
|
Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents ContextMenu8 As System.Windows.Forms.ContextMenu
|
|
Friend WithEvents Button4 As System.Windows.Forms.Button
|
|
Friend WithEvents cbsave As System.Windows.Forms.ComboBox
|
|
Friend WithEvents cbmoeglicheStati As System.Windows.Forms.ComboBox
|
|
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
|
Friend WithEvents Label11 As System.Windows.Forms.Label
|
|
Friend WithEvents txtstatus As System.Windows.Forms.Label
|
|
Friend WithEvents btntxtBemerkung As System.Windows.Forms.Button
|
|
Friend WithEvents LabelVIBeachten As System.Windows.Forms.Label
|
|
Friend WithEvents PicVIBeachten As System.Windows.Forms.PictureBox
|
|
Friend WithEvents GroupBox11 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents Label13 As System.Windows.Forms.Label
|
|
Friend WithEvents txtAnredeZusteller As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtZustelladresse As System.Windows.Forms.TextBox
|
|
Friend WithEvents Button2 As System.Windows.Forms.Button
|
|
Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents InfoMeldungList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents ZuordnungList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents ColdList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents C1DateEdit1 As C1.Win.C1Input.C1DateEdit
|
|
Friend WithEvents Label12 As System.Windows.Forms.Label
|
|
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
|
|
Friend WithEvents DateTimePicker4 As System.Windows.Forms.DateTimePicker
|
|
Friend WithEvents Label14 As System.Windows.Forms.Label
|
|
Friend WithEvents Label15 As System.Windows.Forms.Label
|
|
Friend WithEvents pnlBerechtigungen As System.Windows.Forms.GroupBox
|
|
Friend WithEvents DokumentFunktionenList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents GroupBox9 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents Button3 As System.Windows.Forms.Button
|
|
Friend WithEvents cvertraulich As System.Windows.Forms.CheckBox
|
|
Friend WithEvents Label18 As System.Windows.Forms.Label
|
|
Friend WithEvents cGesperrt As System.Windows.Forms.CheckBox
|
|
Friend WithEvents Label9 As System.Windows.Forms.Label
|
|
Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents Notizlist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents drpMiatarbeiter As C1.Win.C1TrueDBGrid.C1TrueDBDropdown
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDokumentbearbeitungED))
|
|
Dim Style1 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style
|
|
Dim Style2 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style
|
|
Dim Style3 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style
|
|
Dim Style4 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style
|
|
Dim Style5 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style
|
|
Dim Style6 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style
|
|
Dim Style7 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style
|
|
Dim Style8 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style
|
|
Me.ContextMenu1 = New System.Windows.Forms.ContextMenu
|
|
Me.MnuNeueNotiz = New System.Windows.Forms.MenuItem
|
|
Me.MnuEditNotiz = New System.Windows.Forms.MenuItem
|
|
Me.MnuDeleteNotiz = New System.Windows.Forms.MenuItem
|
|
Me.btnWeiter = New System.Windows.Forms.Button
|
|
Me.btnCancel = New System.Windows.Forms.Button
|
|
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter
|
|
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand
|
|
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection
|
|
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand
|
|
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand
|
|
Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand
|
|
Me.DataSet1 = New System.Data.DataSet
|
|
Me.SqlDataAdapter2 = New System.Data.SqlClient.SqlDataAdapter
|
|
Me.SqlDeleteCommand2 = New System.Data.SqlClient.SqlCommand
|
|
Me.SqlInsertCommand2 = New System.Data.SqlClient.SqlCommand
|
|
Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand
|
|
Me.SqlUpdateCommand2 = New System.Data.SqlClient.SqlCommand
|
|
Me.DataSet2 = New System.Data.DataSet
|
|
Me.SqlDataAdapter3 = New System.Data.SqlClient.SqlDataAdapter
|
|
Me.SqlDeleteCommand3 = New System.Data.SqlClient.SqlCommand
|
|
Me.SqlInsertCommand3 = New System.Data.SqlClient.SqlCommand
|
|
Me.SqlSelectCommand3 = New System.Data.SqlClient.SqlCommand
|
|
Me.SqlUpdateCommand3 = New System.Data.SqlClient.SqlCommand
|
|
Me.DataSet3 = New System.Data.DataSet
|
|
Me.DataSet4 = New System.Data.DataSet
|
|
Me.TabControl2 = New System.Windows.Forms.TabControl
|
|
Me.TabPage3 = New System.Windows.Forms.TabPage
|
|
Me.GroupBox11 = New System.Windows.Forms.GroupBox
|
|
Me.Button2 = New System.Windows.Forms.Button
|
|
Me.Label13 = New System.Windows.Forms.Label
|
|
Me.txtAnredeZusteller = New System.Windows.Forms.TextBox
|
|
Me.txtZustelladresse = New System.Windows.Forms.TextBox
|
|
Me.GroupBox12 = New System.Windows.Forms.GroupBox
|
|
Me.cbteam = New System.Windows.Forms.ComboBox
|
|
Me.GroupBox10 = New System.Windows.Forms.GroupBox
|
|
Me.DokWertList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Me.ContextMenu2 = New System.Windows.Forms.ContextMenu
|
|
Me.MnuValueSelect = New System.Windows.Forms.MenuItem
|
|
Me.GroupBox3 = New System.Windows.Forms.GroupBox
|
|
Me.cbUnterschriftrechts = New System.Windows.Forms.ComboBox
|
|
Me.cbUnterschriftlinks = New System.Windows.Forms.ComboBox
|
|
Me.Label8 = New System.Windows.Forms.Label
|
|
Me.Label7 = New System.Windows.Forms.Label
|
|
Me.GroupBox1 = New System.Windows.Forms.GroupBox
|
|
Me.RBZustaendigZustaendiger = New System.Windows.Forms.RadioButton
|
|
Me.rbZustaendigKube = New System.Windows.Forms.RadioButton
|
|
Me.cbzust = New System.Windows.Forms.ComboBox
|
|
Me.cbKube = New System.Windows.Forms.ComboBox
|
|
Me.GroupBox2 = New System.Windows.Forms.GroupBox
|
|
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker
|
|
Me.cbPostzustellung = New System.Windows.Forms.ComboBox
|
|
Me.Label5 = New System.Windows.Forms.Label
|
|
Me.Label3 = New System.Windows.Forms.Label
|
|
Me.ContextMenu4 = New System.Windows.Forms.ContextMenu
|
|
Me.mnuInfoEmpfaengerAdd = New System.Windows.Forms.MenuItem
|
|
Me.mnuInfoEmpfaengerDelete = New System.Windows.Forms.MenuItem
|
|
Me.ContextMenu3 = New System.Windows.Forms.ContextMenu
|
|
Me.MnuDokZuordnungAdd = New System.Windows.Forms.MenuItem
|
|
Me.MnuDokzuordnungDelete = New System.Windows.Forms.MenuItem
|
|
Me.MenuItem1 = New System.Windows.Forms.MenuItem
|
|
Me.MnuShowDoc = New System.Windows.Forms.MenuItem
|
|
Me.ContextMenu7 = New System.Windows.Forms.ContextMenu
|
|
Me.MenuItem5 = New System.Windows.Forms.MenuItem
|
|
Me.MenuItem6 = New System.Windows.Forms.MenuItem
|
|
Me.DateTimePicker2 = New C1.Win.C1Input.C1DateEdit
|
|
Me.Label20 = New System.Windows.Forms.Label
|
|
Me.txtBemerkung = New System.Windows.Forms.TextBox
|
|
Me.DateTimePicker3 = New System.Windows.Forms.DateTimePicker
|
|
Me.Label10 = New System.Windows.Forms.Label
|
|
Me.Label6 = New System.Windows.Forms.Label
|
|
Me.ContextMenu6 = New System.Windows.Forms.ContextMenu
|
|
Me.MenuItem3 = New System.Windows.Forms.MenuItem
|
|
Me.MenuItem4 = New System.Windows.Forms.MenuItem
|
|
Me.cbVerantwortlich = New System.Windows.Forms.ComboBox
|
|
Me.ContextMenu5 = New System.Windows.Forms.ContextMenu
|
|
Me.MenuItem2 = New System.Windows.Forms.MenuItem
|
|
Me.Label17 = New System.Windows.Forms.Label
|
|
Me.Label16 = New System.Windows.Forms.Label
|
|
Me.cbdokumentstatus = New System.Windows.Forms.ComboBox
|
|
Me.txtPartnerInhaberNr = New System.Windows.Forms.TextBox
|
|
Me.txtBezeichnung = New System.Windows.Forms.TextBox
|
|
Me.Label4 = New System.Windows.Forms.Label
|
|
Me.btnPartnerInhaber = New System.Windows.Forms.Button
|
|
Me.txtPartnerZusteller = New System.Windows.Forms.TextBox
|
|
Me.txtPartnerInhaber = New System.Windows.Forms.TextBox
|
|
Me.Label2 = New System.Windows.Forms.Label
|
|
Me.Label1 = New System.Windows.Forms.Label
|
|
Me.cdokumentwerteanzeigen = New System.Windows.Forms.CheckBox
|
|
Me.Button1 = New System.Windows.Forms.Button
|
|
Me.ContextMenu8 = New System.Windows.Forms.ContextMenu
|
|
Me.Button4 = New System.Windows.Forms.Button
|
|
Me.cbsave = New System.Windows.Forms.ComboBox
|
|
Me.cbmoeglicheStati = New System.Windows.Forms.ComboBox
|
|
Me.Panel1 = New System.Windows.Forms.Panel
|
|
Me.Label11 = New System.Windows.Forms.Label
|
|
Me.txtstatus = New System.Windows.Forms.Label
|
|
Me.btntxtBemerkung = New System.Windows.Forms.Button
|
|
Me.LabelVIBeachten = New System.Windows.Forms.Label
|
|
Me.PicVIBeachten = New System.Windows.Forms.PictureBox
|
|
Me.GroupBox7 = New System.Windows.Forms.GroupBox
|
|
Me.InfoMeldungList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Me.GroupBox6 = New System.Windows.Forms.GroupBox
|
|
Me.ZuordnungList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Me.GroupBox5 = New System.Windows.Forms.GroupBox
|
|
Me.ColdList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Me.GroupBox4 = New System.Windows.Forms.GroupBox
|
|
Me.C1DateEdit1 = New C1.Win.C1Input.C1DateEdit
|
|
Me.Label12 = New System.Windows.Forms.Label
|
|
Me.TextBox1 = New System.Windows.Forms.TextBox
|
|
Me.DateTimePicker4 = New System.Windows.Forms.DateTimePicker
|
|
Me.Label14 = New System.Windows.Forms.Label
|
|
Me.Label15 = New System.Windows.Forms.Label
|
|
Me.pnlBerechtigungen = New System.Windows.Forms.GroupBox
|
|
Me.DokumentFunktionenList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Me.GroupBox9 = New System.Windows.Forms.GroupBox
|
|
Me.Button3 = New System.Windows.Forms.Button
|
|
Me.cvertraulich = New System.Windows.Forms.CheckBox
|
|
Me.Label18 = New System.Windows.Forms.Label
|
|
Me.cGesperrt = New System.Windows.Forms.CheckBox
|
|
Me.Label9 = New System.Windows.Forms.Label
|
|
Me.GroupBox8 = New System.Windows.Forms.GroupBox
|
|
Me.drpMiatarbeiter = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown
|
|
Me.Notizlist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.DataSet4, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.TabControl2.SuspendLayout()
|
|
Me.TabPage3.SuspendLayout()
|
|
Me.GroupBox11.SuspendLayout()
|
|
Me.GroupBox12.SuspendLayout()
|
|
Me.GroupBox10.SuspendLayout()
|
|
CType(Me.DokWertList, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.GroupBox3.SuspendLayout()
|
|
Me.GroupBox1.SuspendLayout()
|
|
Me.GroupBox2.SuspendLayout()
|
|
CType(Me.DateTimePicker2, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.PicVIBeachten, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.GroupBox7.SuspendLayout()
|
|
CType(Me.InfoMeldungList, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.GroupBox6.SuspendLayout()
|
|
CType(Me.ZuordnungList, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.GroupBox5.SuspendLayout()
|
|
CType(Me.ColdList, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.GroupBox4.SuspendLayout()
|
|
CType(Me.C1DateEdit1, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.pnlBerechtigungen.SuspendLayout()
|
|
CType(Me.DokumentFunktionenList, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.GroupBox9.SuspendLayout()
|
|
Me.GroupBox8.SuspendLayout()
|
|
CType(Me.drpMiatarbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.Notizlist, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.SuspendLayout()
|
|
'
|
|
'ContextMenu1
|
|
'
|
|
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuNeueNotiz, Me.MnuEditNotiz, Me.MnuDeleteNotiz})
|
|
'
|
|
'MnuNeueNotiz
|
|
'
|
|
Me.MnuNeueNotiz.Index = 0
|
|
Me.MnuNeueNotiz.Text = "&Neue Notiz"
|
|
'
|
|
'MnuEditNotiz
|
|
'
|
|
Me.MnuEditNotiz.Index = 1
|
|
Me.MnuEditNotiz.Text = "&Notiz bearbeiten"
|
|
'
|
|
'MnuDeleteNotiz
|
|
'
|
|
Me.MnuDeleteNotiz.Index = 2
|
|
Me.MnuDeleteNotiz.Text = "Notiz &löschen"
|
|
'
|
|
'btnWeiter
|
|
'
|
|
Me.btnWeiter.Location = New System.Drawing.Point(696, 472)
|
|
Me.btnWeiter.Name = "btnWeiter"
|
|
Me.btnWeiter.Size = New System.Drawing.Size(104, 23)
|
|
Me.btnWeiter.TabIndex = 13
|
|
Me.btnWeiter.Text = "&Weiter>>"
|
|
'
|
|
'btnCancel
|
|
'
|
|
Me.btnCancel.Location = New System.Drawing.Point(8, 472)
|
|
Me.btnCancel.Name = "btnCancel"
|
|
Me.btnCancel.Size = New System.Drawing.Size(104, 23)
|
|
Me.btnCancel.TabIndex = 14
|
|
Me.btnCancel.Text = "&Abbruch"
|
|
'
|
|
'SqlDataAdapter1
|
|
'
|
|
Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
|
|
Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
|
|
Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
|
|
Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "SP_Dokumentbearbeitung_Dokumentwerte", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("vorlagenfeldnr", "vorlagenfeldnr"), New System.Data.Common.DataColumnMapping("vorlagenfeldregelnr", "vorlagenfeldregelnr"), New System.Data.Common.DataColumnMapping("feldtyp", "feldtyp"), New System.Data.Common.DataColumnMapping("datenherkunft", "datenherkunft"), New System.Data.Common.DataColumnMapping("Feldwert", "Feldwert")})})
|
|
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
|
'
|
|
'SqlDeleteCommand1
|
|
'
|
|
Me.SqlDeleteCommand1.CommandText = "[NewDeleteCommand]"
|
|
Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
|
|
Me.SqlDeleteCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing)})
|
|
'
|
|
'SqlConnection1
|
|
'
|
|
Me.SqlConnection1.ConnectionString = "data source=shu;initial catalog=edoka;persist security info=False;user id=sa;work" & _
|
|
"station id=SHU;packet size=4096"
|
|
Me.SqlConnection1.FireInfoMessageEventOnUserErrors = False
|
|
'
|
|
'SqlInsertCommand1
|
|
'
|
|
Me.SqlInsertCommand1.CommandText = "[NewInsertCommand]"
|
|
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlInsertCommand1.Connection = Me.SqlConnection1
|
|
Me.SqlInsertCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 50), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing)})
|
|
'
|
|
'SqlSelectCommand1
|
|
'
|
|
Me.SqlSelectCommand1.CommandText = "[SP_Dokumentbearbeitung_Dokumentwerte]"
|
|
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
|
|
Me.SqlSelectCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Dokumentid", System.Data.SqlDbType.VarChar, 20), New System.Data.SqlClient.SqlParameter("@Dokumenttypnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@CreateNew", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing)})
|
|
'
|
|
'SqlUpdateCommand1
|
|
'
|
|
Me.SqlUpdateCommand1.CommandText = "[NewUpdateCommand]"
|
|
Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
|
|
Me.SqlUpdateCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 50), New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1), New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 50), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8)})
|
|
'
|
|
'DataSet1
|
|
'
|
|
Me.DataSet1.DataSetName = "NewDataSet"
|
|
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
|
'
|
|
'SqlDataAdapter2
|
|
'
|
|
Me.SqlDataAdapter2.DeleteCommand = Me.SqlDeleteCommand2
|
|
Me.SqlDataAdapter2.InsertCommand = Me.SqlInsertCommand2
|
|
Me.SqlDataAdapter2.SelectCommand = Me.SqlSelectCommand2
|
|
Me.SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Postzustellung", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("nreintrag", "nreintrag"), New System.Data.Common.DataColumnMapping("sprache", "sprache"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
|
Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand2
|
|
'
|
|
'SqlDeleteCommand2
|
|
'
|
|
Me.SqlDeleteCommand2.CommandText = "[pv_postzustellung_delete]"
|
|
Me.SqlDeleteCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlDeleteCommand2.Connection = Me.SqlConnection1
|
|
Me.SqlDeleteCommand2.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_nreintrag", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "nreintrag", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_sprache", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sprache", System.Data.DataRowVersion.Original, Nothing)})
|
|
'
|
|
'SqlInsertCommand2
|
|
'
|
|
Me.SqlInsertCommand2.CommandText = "[pv_postzustellung_insert]"
|
|
Me.SqlInsertCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlInsertCommand2.Connection = Me.SqlConnection1
|
|
Me.SqlInsertCommand2.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@sprache", System.Data.SqlDbType.Int, 4, "sprache"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer")})
|
|
'
|
|
'SqlSelectCommand2
|
|
'
|
|
Me.SqlSelectCommand2.CommandText = "[pv_postzustellung_select]"
|
|
Me.SqlSelectCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlSelectCommand2.Connection = Me.SqlConnection1
|
|
Me.SqlSelectCommand2.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"), New System.Data.SqlClient.SqlParameter("@sprache", System.Data.SqlDbType.Int, 4, "sprache")})
|
|
'
|
|
'SqlUpdateCommand2
|
|
'
|
|
Me.SqlUpdateCommand2.CommandText = "[pv_postzustellung_update]"
|
|
Me.SqlUpdateCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlUpdateCommand2.Connection = Me.SqlConnection1
|
|
Me.SqlUpdateCommand2.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "sprache"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@Param2", System.Data.SqlDbType.Int, 4, "mandantnr"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"), New System.Data.SqlClient.SqlParameter("@Original_nreintrag", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "nreintrag", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_sprache", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sprache", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@nreintrag", System.Data.SqlDbType.Int, 4, "nreintrag")})
|
|
'
|
|
'DataSet2
|
|
'
|
|
Me.DataSet2.DataSetName = "NewDataSet"
|
|
Me.DataSet2.Locale = New System.Globalization.CultureInfo("de-CH")
|
|
'
|
|
'SqlDataAdapter3
|
|
'
|
|
Me.SqlDataAdapter3.DeleteCommand = Me.SqlDeleteCommand3
|
|
Me.SqlDataAdapter3.InsertCommand = Me.SqlInsertCommand3
|
|
Me.SqlDataAdapter3.SelectCommand = Me.SqlSelectCommand3
|
|
Me.SqlDataAdapter3.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "funktionsgruppe", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("funktionsgruppenr", "funktionsgruppenr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung")})})
|
|
Me.SqlDataAdapter3.UpdateCommand = Me.SqlUpdateCommand3
|
|
'
|
|
'SqlDeleteCommand3
|
|
'
|
|
Me.SqlDeleteCommand3.CommandText = "[pv_funktionsgruppe_aktiv_delete]"
|
|
Me.SqlDeleteCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlDeleteCommand3.Connection = Me.SqlConnection1
|
|
Me.SqlDeleteCommand3.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionsgruppenr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing)})
|
|
'
|
|
'SqlInsertCommand3
|
|
'
|
|
Me.SqlInsertCommand3.CommandText = "[pv_funktionsgruppe_aktiv_insert]"
|
|
Me.SqlInsertCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlInsertCommand3.Connection = Me.SqlConnection1
|
|
Me.SqlInsertCommand3.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, "funktionsgruppenr"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung")})
|
|
'
|
|
'SqlSelectCommand3
|
|
'
|
|
Me.SqlSelectCommand3.CommandText = "[pv_funktionsgruppe_aktiv_select]"
|
|
Me.SqlSelectCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlSelectCommand3.Connection = Me.SqlConnection1
|
|
Me.SqlSelectCommand3.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr")})
|
|
'
|
|
'SqlUpdateCommand3
|
|
'
|
|
Me.SqlUpdateCommand3.CommandText = "[pv_funktionsgruppe_aktiv_update]"
|
|
Me.SqlUpdateCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlUpdateCommand3.Connection = Me.SqlConnection1
|
|
Me.SqlUpdateCommand3.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, "funktionsgruppenr"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionsgruppenr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing)})
|
|
'
|
|
'DataSet3
|
|
'
|
|
Me.DataSet3.DataSetName = "NewDataSet"
|
|
Me.DataSet3.Locale = New System.Globalization.CultureInfo("de-CH")
|
|
'
|
|
'DataSet4
|
|
'
|
|
Me.DataSet4.DataSetName = "NewDataSet"
|
|
Me.DataSet4.Locale = New System.Globalization.CultureInfo("de-CH")
|
|
'
|
|
'TabControl2
|
|
'
|
|
Me.TabControl2.Controls.Add(Me.TabPage3)
|
|
Me.TabControl2.Enabled = False
|
|
Me.TabControl2.Location = New System.Drawing.Point(8, 104)
|
|
Me.TabControl2.Name = "TabControl2"
|
|
Me.TabControl2.SelectedIndex = 0
|
|
Me.TabControl2.Size = New System.Drawing.Size(800, 360)
|
|
Me.TabControl2.TabIndex = 11
|
|
'
|
|
'TabPage3
|
|
'
|
|
Me.TabPage3.Controls.Add(Me.GroupBox11)
|
|
Me.TabPage3.Controls.Add(Me.GroupBox12)
|
|
Me.TabPage3.Controls.Add(Me.GroupBox10)
|
|
Me.TabPage3.Controls.Add(Me.GroupBox3)
|
|
Me.TabPage3.Controls.Add(Me.GroupBox1)
|
|
Me.TabPage3.Controls.Add(Me.GroupBox2)
|
|
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
|
|
Me.TabPage3.Name = "TabPage3"
|
|
Me.TabPage3.Size = New System.Drawing.Size(792, 334)
|
|
Me.TabPage3.TabIndex = 0
|
|
Me.TabPage3.Text = "Dokumentinhalt"
|
|
'
|
|
'GroupBox11
|
|
'
|
|
Me.GroupBox11.Controls.Add(Me.Button2)
|
|
Me.GroupBox11.Controls.Add(Me.Label13)
|
|
Me.GroupBox11.Controls.Add(Me.txtAnredeZusteller)
|
|
Me.GroupBox11.Controls.Add(Me.txtZustelladresse)
|
|
Me.GroupBox11.Location = New System.Drawing.Point(384, 128)
|
|
Me.GroupBox11.Name = "GroupBox11"
|
|
Me.GroupBox11.Size = New System.Drawing.Size(400, 192)
|
|
Me.GroupBox11.TabIndex = 5
|
|
Me.GroupBox11.TabStop = False
|
|
Me.GroupBox11.Text = "Zustelladresse"
|
|
'
|
|
'Button2
|
|
'
|
|
Me.Button2.Image = CType(resources.GetObject("Button2.Image"), System.Drawing.Image)
|
|
Me.Button2.Location = New System.Drawing.Point(296, 16)
|
|
Me.Button2.Name = "Button2"
|
|
Me.Button2.Size = New System.Drawing.Size(24, 23)
|
|
Me.Button2.TabIndex = 41
|
|
'
|
|
'Label13
|
|
'
|
|
Me.Label13.Location = New System.Drawing.Point(8, 150)
|
|
Me.Label13.Name = "Label13"
|
|
Me.Label13.Size = New System.Drawing.Size(192, 16)
|
|
Me.Label13.TabIndex = 2
|
|
Me.Label13.Text = "Anrede (z.B.: Herr Muster)"
|
|
'
|
|
'txtAnredeZusteller
|
|
'
|
|
Me.txtAnredeZusteller.Location = New System.Drawing.Point(8, 168)
|
|
Me.txtAnredeZusteller.Name = "txtAnredeZusteller"
|
|
Me.txtAnredeZusteller.Size = New System.Drawing.Size(280, 20)
|
|
Me.txtAnredeZusteller.TabIndex = 1
|
|
'
|
|
'txtZustelladresse
|
|
'
|
|
Me.txtZustelladresse.Location = New System.Drawing.Point(8, 16)
|
|
Me.txtZustelladresse.Multiline = True
|
|
Me.txtZustelladresse.Name = "txtZustelladresse"
|
|
Me.txtZustelladresse.Size = New System.Drawing.Size(280, 128)
|
|
Me.txtZustelladresse.TabIndex = 0
|
|
Me.txtZustelladresse.Text = "TextBox1"
|
|
'
|
|
'GroupBox12
|
|
'
|
|
Me.GroupBox12.Controls.Add(Me.cbteam)
|
|
Me.GroupBox12.Location = New System.Drawing.Point(8, 272)
|
|
Me.GroupBox12.Name = "GroupBox12"
|
|
Me.GroupBox12.Size = New System.Drawing.Size(368, 48)
|
|
Me.GroupBox12.TabIndex = 3
|
|
Me.GroupBox12.TabStop = False
|
|
Me.GroupBox12.Text = "Team"
|
|
'
|
|
'cbteam
|
|
'
|
|
Me.cbteam.Location = New System.Drawing.Point(128, 16)
|
|
Me.cbteam.Name = "cbteam"
|
|
Me.cbteam.Size = New System.Drawing.Size(232, 21)
|
|
Me.cbteam.TabIndex = 0
|
|
'
|
|
'GroupBox10
|
|
'
|
|
Me.GroupBox10.Controls.Add(Me.DokWertList)
|
|
Me.GroupBox10.Location = New System.Drawing.Point(384, 8)
|
|
Me.GroupBox10.Name = "GroupBox10"
|
|
Me.GroupBox10.Size = New System.Drawing.Size(400, 112)
|
|
Me.GroupBox10.TabIndex = 4
|
|
Me.GroupBox10.TabStop = False
|
|
Me.GroupBox10.Text = "Dokumentspezifisch"
|
|
'
|
|
'DokWertList
|
|
'
|
|
Me.DokWertList.AllowFilter = False
|
|
Me.DokWertList.AllowSort = False
|
|
Me.DokWertList.AlternatingRows = True
|
|
Me.DokWertList.ContextMenu = Me.ContextMenu2
|
|
Me.DokWertList.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.DokWertList.Images.Add(CType(resources.GetObject("DokWertList.Images"), System.Drawing.Image))
|
|
Me.DokWertList.Location = New System.Drawing.Point(8, 16)
|
|
Me.DokWertList.Name = "DokWertList"
|
|
Me.DokWertList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.DokWertList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.DokWertList.PreviewInfo.ZoomFactor = 75
|
|
Me.DokWertList.PrintInfo.PageSettings = CType(resources.GetObject("DokWertList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
|
Me.DokWertList.Size = New System.Drawing.Size(384, 88)
|
|
Me.DokWertList.TabIndex = 0
|
|
Me.DokWertList.Text = "C1TrueDBGrid1"
|
|
Me.DokWertList.PropBag = resources.GetString("DokWertList.PropBag")
|
|
'
|
|
'ContextMenu2
|
|
'
|
|
Me.ContextMenu2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuValueSelect})
|
|
'
|
|
'MnuValueSelect
|
|
'
|
|
Me.MnuValueSelect.Index = 0
|
|
Me.MnuValueSelect.Text = "&Wert auswählen"
|
|
'
|
|
'GroupBox3
|
|
'
|
|
Me.GroupBox3.Controls.Add(Me.cbUnterschriftrechts)
|
|
Me.GroupBox3.Controls.Add(Me.cbUnterschriftlinks)
|
|
Me.GroupBox3.Controls.Add(Me.Label8)
|
|
Me.GroupBox3.Controls.Add(Me.Label7)
|
|
Me.GroupBox3.Location = New System.Drawing.Point(8, 184)
|
|
Me.GroupBox3.Name = "GroupBox3"
|
|
Me.GroupBox3.Size = New System.Drawing.Size(368, 80)
|
|
Me.GroupBox3.TabIndex = 2
|
|
Me.GroupBox3.TabStop = False
|
|
Me.GroupBox3.Text = "Unterschrift"
|
|
'
|
|
'cbUnterschriftrechts
|
|
'
|
|
Me.cbUnterschriftrechts.Location = New System.Drawing.Point(128, 43)
|
|
Me.cbUnterschriftrechts.Name = "cbUnterschriftrechts"
|
|
Me.cbUnterschriftrechts.Size = New System.Drawing.Size(232, 21)
|
|
Me.cbUnterschriftrechts.TabIndex = 1
|
|
'
|
|
'cbUnterschriftlinks
|
|
'
|
|
Me.cbUnterschriftlinks.Location = New System.Drawing.Point(128, 19)
|
|
Me.cbUnterschriftlinks.Name = "cbUnterschriftlinks"
|
|
Me.cbUnterschriftlinks.Size = New System.Drawing.Size(232, 21)
|
|
Me.cbUnterschriftlinks.TabIndex = 0
|
|
'
|
|
'Label8
|
|
'
|
|
Me.Label8.Location = New System.Drawing.Point(8, 48)
|
|
Me.Label8.Name = "Label8"
|
|
Me.Label8.Size = New System.Drawing.Size(96, 23)
|
|
Me.Label8.TabIndex = 14
|
|
Me.Label8.Text = "Unterschrift rechts"
|
|
'
|
|
'Label7
|
|
'
|
|
Me.Label7.Location = New System.Drawing.Point(8, 24)
|
|
Me.Label7.Name = "Label7"
|
|
Me.Label7.Size = New System.Drawing.Size(96, 23)
|
|
Me.Label7.TabIndex = 13
|
|
Me.Label7.Text = "Unterschrift links"
|
|
'
|
|
'GroupBox1
|
|
'
|
|
Me.GroupBox1.Controls.Add(Me.RBZustaendigZustaendiger)
|
|
Me.GroupBox1.Controls.Add(Me.rbZustaendigKube)
|
|
Me.GroupBox1.Controls.Add(Me.cbzust)
|
|
Me.GroupBox1.Controls.Add(Me.cbKube)
|
|
Me.GroupBox1.Location = New System.Drawing.Point(8, 96)
|
|
Me.GroupBox1.Name = "GroupBox1"
|
|
Me.GroupBox1.Size = New System.Drawing.Size(368, 80)
|
|
Me.GroupBox1.TabIndex = 1
|
|
Me.GroupBox1.TabStop = False
|
|
Me.GroupBox1.Text = "Zuständigkeit"
|
|
'
|
|
'RBZustaendigZustaendiger
|
|
'
|
|
Me.RBZustaendigZustaendiger.Location = New System.Drawing.Point(8, 24)
|
|
Me.RBZustaendigZustaendiger.Name = "RBZustaendigZustaendiger"
|
|
Me.RBZustaendigZustaendiger.Size = New System.Drawing.Size(98, 24)
|
|
Me.RBZustaendigZustaendiger.TabIndex = 0
|
|
Me.RBZustaendigZustaendiger.Text = "Zuständiger"
|
|
'
|
|
'rbZustaendigKube
|
|
'
|
|
Me.rbZustaendigKube.Location = New System.Drawing.Point(14, 18)
|
|
Me.rbZustaendigKube.Name = "rbZustaendigKube"
|
|
Me.rbZustaendigKube.Size = New System.Drawing.Size(106, 24)
|
|
Me.rbZustaendigKube.TabIndex = 8
|
|
Me.rbZustaendigKube.Text = "Kundenberater"
|
|
Me.rbZustaendigKube.Visible = False
|
|
'
|
|
'cbzust
|
|
'
|
|
Me.cbzust.Location = New System.Drawing.Point(128, 32)
|
|
Me.cbzust.Name = "cbzust"
|
|
Me.cbzust.Size = New System.Drawing.Size(232, 21)
|
|
Me.cbzust.TabIndex = 2
|
|
'
|
|
'cbKube
|
|
'
|
|
Me.cbKube.Location = New System.Drawing.Point(128, 21)
|
|
Me.cbKube.Name = "cbKube"
|
|
Me.cbKube.Size = New System.Drawing.Size(232, 21)
|
|
Me.cbKube.TabIndex = 1
|
|
Me.cbKube.Visible = False
|
|
'
|
|
'GroupBox2
|
|
'
|
|
Me.GroupBox2.Controls.Add(Me.DateTimePicker1)
|
|
Me.GroupBox2.Controls.Add(Me.cbPostzustellung)
|
|
Me.GroupBox2.Controls.Add(Me.Label5)
|
|
Me.GroupBox2.Controls.Add(Me.Label3)
|
|
Me.GroupBox2.Location = New System.Drawing.Point(8, 8)
|
|
Me.GroupBox2.Name = "GroupBox2"
|
|
Me.GroupBox2.Size = New System.Drawing.Size(368, 80)
|
|
Me.GroupBox2.TabIndex = 0
|
|
Me.GroupBox2.TabStop = False
|
|
Me.GroupBox2.Text = "Allgemein"
|
|
'
|
|
'DateTimePicker1
|
|
'
|
|
Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
|
Me.DateTimePicker1.Location = New System.Drawing.Point(128, 48)
|
|
Me.DateTimePicker1.Name = "DateTimePicker1"
|
|
Me.DateTimePicker1.Size = New System.Drawing.Size(104, 20)
|
|
Me.DateTimePicker1.TabIndex = 1
|
|
'
|
|
'cbPostzustellung
|
|
'
|
|
Me.cbPostzustellung.Location = New System.Drawing.Point(128, 24)
|
|
Me.cbPostzustellung.Name = "cbPostzustellung"
|
|
Me.cbPostzustellung.Size = New System.Drawing.Size(232, 21)
|
|
Me.cbPostzustellung.TabIndex = 0
|
|
'
|
|
'Label5
|
|
'
|
|
Me.Label5.Location = New System.Drawing.Point(16, 48)
|
|
Me.Label5.Name = "Label5"
|
|
Me.Label5.Size = New System.Drawing.Size(100, 23)
|
|
Me.Label5.TabIndex = 11
|
|
Me.Label5.Text = "Dokument-Datum"
|
|
'
|
|
'Label3
|
|
'
|
|
Me.Label3.Location = New System.Drawing.Point(16, 24)
|
|
Me.Label3.Name = "Label3"
|
|
Me.Label3.Size = New System.Drawing.Size(100, 23)
|
|
Me.Label3.TabIndex = 10
|
|
Me.Label3.Text = "Post-Zustellung"
|
|
'
|
|
'ContextMenu4
|
|
'
|
|
Me.ContextMenu4.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuInfoEmpfaengerAdd, Me.mnuInfoEmpfaengerDelete})
|
|
'
|
|
'mnuInfoEmpfaengerAdd
|
|
'
|
|
Me.mnuInfoEmpfaengerAdd.Index = 0
|
|
Me.mnuInfoEmpfaengerAdd.Text = "Neuer Info-Empfänger"
|
|
'
|
|
'mnuInfoEmpfaengerDelete
|
|
'
|
|
Me.mnuInfoEmpfaengerDelete.Index = 1
|
|
Me.mnuInfoEmpfaengerDelete.Text = "Info-Empfänger löschen"
|
|
'
|
|
'ContextMenu3
|
|
'
|
|
Me.ContextMenu3.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuDokZuordnungAdd, Me.MnuDokzuordnungDelete, Me.MenuItem1, Me.MnuShowDoc})
|
|
'
|
|
'MnuDokZuordnungAdd
|
|
'
|
|
Me.MnuDokZuordnungAdd.Index = 0
|
|
Me.MnuDokZuordnungAdd.Text = "Dokument hinzufügen"
|
|
'
|
|
'MnuDokzuordnungDelete
|
|
'
|
|
Me.MnuDokzuordnungDelete.Index = 1
|
|
Me.MnuDokzuordnungDelete.Text = "Dokument entfernen"
|
|
'
|
|
'MenuItem1
|
|
'
|
|
Me.MenuItem1.Index = 2
|
|
Me.MenuItem1.Text = "-"
|
|
'
|
|
'MnuShowDoc
|
|
'
|
|
Me.MnuShowDoc.Index = 3
|
|
Me.MnuShowDoc.Text = "Dokument anzeigen"
|
|
'
|
|
'ContextMenu7
|
|
'
|
|
Me.ContextMenu7.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem5, Me.MenuItem6})
|
|
'
|
|
'MenuItem5
|
|
'
|
|
Me.MenuItem5.Index = 0
|
|
Me.MenuItem5.Text = "&Dokument auswählen"
|
|
'
|
|
'MenuItem6
|
|
'
|
|
Me.MenuItem6.Index = 1
|
|
Me.MenuItem6.Text = "Dokument entfernen"
|
|
'
|
|
'DateTimePicker2
|
|
'
|
|
Me.DateTimePicker2.FormatType = C1.Win.C1Input.FormatTypeEnum.ShortDate
|
|
Me.DateTimePicker2.Location = New System.Drawing.Point(88, 48)
|
|
Me.DateTimePicker2.Name = "DateTimePicker2"
|
|
Me.DateTimePicker2.Size = New System.Drawing.Size(96, 20)
|
|
Me.DateTimePicker2.TabIndex = 36
|
|
Me.DateTimePicker2.Tag = Nothing
|
|
Me.DateTimePicker2.VisibleButtons = C1.Win.C1Input.DropDownControlButtonFlags.DropDown
|
|
'
|
|
'Label20
|
|
'
|
|
Me.Label20.Location = New System.Drawing.Point(8, 72)
|
|
Me.Label20.Name = "Label20"
|
|
Me.Label20.Size = New System.Drawing.Size(80, 23)
|
|
Me.Label20.TabIndex = 35
|
|
'
|
|
'txtBemerkung
|
|
'
|
|
Me.txtBemerkung.Location = New System.Drawing.Point(88, 72)
|
|
Me.txtBemerkung.Multiline = True
|
|
Me.txtBemerkung.Name = "txtBemerkung"
|
|
Me.txtBemerkung.Size = New System.Drawing.Size(272, 112)
|
|
Me.txtBemerkung.TabIndex = 20
|
|
'
|
|
'DateTimePicker3
|
|
'
|
|
Me.DateTimePicker3.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
|
Me.DateTimePicker3.Location = New System.Drawing.Point(88, 24)
|
|
Me.DateTimePicker3.Name = "DateTimePicker3"
|
|
Me.DateTimePicker3.Size = New System.Drawing.Size(96, 20)
|
|
Me.DateTimePicker3.TabIndex = 18
|
|
'
|
|
'Label10
|
|
'
|
|
Me.Label10.Location = New System.Drawing.Point(8, 24)
|
|
Me.Label10.Name = "Label10"
|
|
Me.Label10.Size = New System.Drawing.Size(80, 23)
|
|
Me.Label10.TabIndex = 34
|
|
'
|
|
'Label6
|
|
'
|
|
Me.Label6.Location = New System.Drawing.Point(8, 48)
|
|
Me.Label6.Name = "Label6"
|
|
Me.Label6.Size = New System.Drawing.Size(80, 23)
|
|
Me.Label6.TabIndex = 30
|
|
'
|
|
'ContextMenu6
|
|
'
|
|
Me.ContextMenu6.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem3, Me.MenuItem4})
|
|
'
|
|
'MenuItem3
|
|
'
|
|
Me.MenuItem3.Index = 0
|
|
Me.MenuItem3.Text = "Berechtigungseinschränkung hinzufügen"
|
|
'
|
|
'MenuItem4
|
|
'
|
|
Me.MenuItem4.Index = 1
|
|
Me.MenuItem4.Text = "Berechtigungseinschränkung entfernen"
|
|
'
|
|
'cbVerantwortlich
|
|
'
|
|
Me.cbVerantwortlich.ContextMenu = Me.ContextMenu5
|
|
Me.cbVerantwortlich.ItemHeight = 13
|
|
Me.cbVerantwortlich.Location = New System.Drawing.Point(520, 64)
|
|
Me.cbVerantwortlich.Name = "cbVerantwortlich"
|
|
Me.cbVerantwortlich.Size = New System.Drawing.Size(224, 21)
|
|
Me.cbVerantwortlich.TabIndex = 8
|
|
Me.cbVerantwortlich.Visible = False
|
|
'
|
|
'ContextMenu5
|
|
'
|
|
Me.ContextMenu5.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2})
|
|
'
|
|
'MenuItem2
|
|
'
|
|
Me.MenuItem2.Index = 0
|
|
Me.MenuItem2.Text = "&Berechtigte Mitarbeiter"
|
|
'
|
|
'Label17
|
|
'
|
|
Me.Label17.Location = New System.Drawing.Point(416, 64)
|
|
Me.Label17.Name = "Label17"
|
|
Me.Label17.Size = New System.Drawing.Size(88, 23)
|
|
Me.Label17.TabIndex = 44
|
|
Me.Label17.Text = "Verantwortlicher"
|
|
Me.Label17.Visible = False
|
|
'
|
|
'Label16
|
|
'
|
|
Me.Label16.Location = New System.Drawing.Point(416, 40)
|
|
Me.Label16.Name = "Label16"
|
|
Me.Label16.Size = New System.Drawing.Size(96, 23)
|
|
Me.Label16.TabIndex = 43
|
|
Me.Label16.Text = "Dokumentstatus"
|
|
Me.Label16.Visible = False
|
|
'
|
|
'cbdokumentstatus
|
|
'
|
|
Me.cbdokumentstatus.ItemHeight = 13
|
|
Me.cbdokumentstatus.Location = New System.Drawing.Point(520, 40)
|
|
Me.cbdokumentstatus.Name = "cbdokumentstatus"
|
|
Me.cbdokumentstatus.Size = New System.Drawing.Size(264, 21)
|
|
Me.cbdokumentstatus.TabIndex = 7
|
|
Me.cbdokumentstatus.Visible = False
|
|
'
|
|
'txtPartnerInhaberNr
|
|
'
|
|
Me.txtPartnerInhaberNr.Location = New System.Drawing.Point(344, 72)
|
|
Me.txtPartnerInhaberNr.Name = "txtPartnerInhaberNr"
|
|
Me.txtPartnerInhaberNr.ReadOnly = True
|
|
Me.txtPartnerInhaberNr.Size = New System.Drawing.Size(56, 20)
|
|
Me.txtPartnerInhaberNr.TabIndex = 5
|
|
Me.txtPartnerInhaberNr.Visible = False
|
|
'
|
|
'txtBezeichnung
|
|
'
|
|
Me.txtBezeichnung.Location = New System.Drawing.Point(520, 16)
|
|
Me.txtBezeichnung.Name = "txtBezeichnung"
|
|
Me.txtBezeichnung.ReadOnly = True
|
|
Me.txtBezeichnung.Size = New System.Drawing.Size(264, 20)
|
|
Me.txtBezeichnung.TabIndex = 6
|
|
'
|
|
'Label4
|
|
'
|
|
Me.Label4.Location = New System.Drawing.Point(416, 16)
|
|
Me.Label4.Name = "Label4"
|
|
Me.Label4.Size = New System.Drawing.Size(100, 23)
|
|
Me.Label4.TabIndex = 38
|
|
Me.Label4.Text = "Bezeichnung"
|
|
'
|
|
'btnPartnerInhaber
|
|
'
|
|
Me.btnPartnerInhaber.Image = CType(resources.GetObject("btnPartnerInhaber.Image"), System.Drawing.Image)
|
|
Me.btnPartnerInhaber.Location = New System.Drawing.Point(352, 16)
|
|
Me.btnPartnerInhaber.Name = "btnPartnerInhaber"
|
|
Me.btnPartnerInhaber.Size = New System.Drawing.Size(24, 24)
|
|
Me.btnPartnerInhaber.TabIndex = 2
|
|
'
|
|
'txtPartnerZusteller
|
|
'
|
|
Me.txtPartnerZusteller.Location = New System.Drawing.Point(112, 40)
|
|
Me.txtPartnerZusteller.Name = "txtPartnerZusteller"
|
|
Me.txtPartnerZusteller.ReadOnly = True
|
|
Me.txtPartnerZusteller.Size = New System.Drawing.Size(240, 20)
|
|
Me.txtPartnerZusteller.TabIndex = 1
|
|
'
|
|
'txtPartnerInhaber
|
|
'
|
|
Me.txtPartnerInhaber.Location = New System.Drawing.Point(112, 16)
|
|
Me.txtPartnerInhaber.Name = "txtPartnerInhaber"
|
|
Me.txtPartnerInhaber.ReadOnly = True
|
|
Me.txtPartnerInhaber.Size = New System.Drawing.Size(240, 20)
|
|
Me.txtPartnerInhaber.TabIndex = 0
|
|
'
|
|
'Label2
|
|
'
|
|
Me.Label2.Location = New System.Drawing.Point(8, 40)
|
|
Me.Label2.Name = "Label2"
|
|
Me.Label2.Size = New System.Drawing.Size(100, 23)
|
|
Me.Label2.TabIndex = 34
|
|
Me.Label2.Text = "Partner-Zusteller"
|
|
'
|
|
'Label1
|
|
'
|
|
Me.Label1.Location = New System.Drawing.Point(8, 16)
|
|
Me.Label1.Name = "Label1"
|
|
Me.Label1.Size = New System.Drawing.Size(100, 23)
|
|
Me.Label1.TabIndex = 33
|
|
Me.Label1.Text = "Partner-Inhaber"
|
|
'
|
|
'cdokumentwerteanzeigen
|
|
'
|
|
Me.cdokumentwerteanzeigen.Location = New System.Drawing.Point(536, 467)
|
|
Me.cdokumentwerteanzeigen.Name = "cdokumentwerteanzeigen"
|
|
Me.cdokumentwerteanzeigen.Size = New System.Drawing.Size(160, 32)
|
|
Me.cdokumentwerteanzeigen.TabIndex = 12
|
|
Me.cdokumentwerteanzeigen.Text = "Dokumentinhalte anzeigen"
|
|
'
|
|
'Button1
|
|
'
|
|
Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
|
|
Me.Button1.Location = New System.Drawing.Point(376, 16)
|
|
Me.Button1.Name = "Button1"
|
|
Me.Button1.Size = New System.Drawing.Size(24, 24)
|
|
Me.Button1.TabIndex = 3
|
|
'
|
|
'Button4
|
|
'
|
|
Me.Button4.Image = CType(resources.GetObject("Button4.Image"), System.Drawing.Image)
|
|
Me.Button4.Location = New System.Drawing.Point(296, 64)
|
|
Me.Button4.Name = "Button4"
|
|
Me.Button4.Size = New System.Drawing.Size(24, 24)
|
|
Me.Button4.TabIndex = 4
|
|
Me.Button4.Visible = False
|
|
'
|
|
'cbsave
|
|
'
|
|
Me.cbsave.Items.AddRange(New Object() {"abc", "def", "gagas d sd", "sdf sdf sfd "})
|
|
Me.cbsave.Location = New System.Drawing.Point(744, 64)
|
|
Me.cbsave.Name = "cbsave"
|
|
Me.cbsave.Size = New System.Drawing.Size(21, 21)
|
|
Me.cbsave.TabIndex = 49
|
|
Me.cbsave.Text = "ComboBox1"
|
|
Me.cbsave.Visible = False
|
|
'
|
|
'cbmoeglicheStati
|
|
'
|
|
Me.cbmoeglicheStati.Items.AddRange(New Object() {"abc", "def", "gagas d sd", "sdf sdf sfd "})
|
|
Me.cbmoeglicheStati.Location = New System.Drawing.Point(743, 64)
|
|
Me.cbmoeglicheStati.Name = "cbmoeglicheStati"
|
|
Me.cbmoeglicheStati.Size = New System.Drawing.Size(21, 21)
|
|
Me.cbmoeglicheStati.TabIndex = 9
|
|
Me.cbmoeglicheStati.Text = "ComboBox1"
|
|
Me.cbmoeglicheStati.Visible = False
|
|
'
|
|
'Panel1
|
|
'
|
|
Me.Panel1.Location = New System.Drawing.Point(784, 16)
|
|
Me.Panel1.Name = "Panel1"
|
|
Me.Panel1.Size = New System.Drawing.Size(24, 100)
|
|
Me.Panel1.TabIndex = 50
|
|
Me.Panel1.Visible = False
|
|
'
|
|
'Label11
|
|
'
|
|
Me.Label11.Location = New System.Drawing.Point(416, 80)
|
|
Me.Label11.Name = "Label11"
|
|
Me.Label11.Size = New System.Drawing.Size(96, 32)
|
|
Me.Label11.TabIndex = 52
|
|
Me.Label11.Text = "Berechtigt für Folgestatus"
|
|
Me.Label11.Visible = False
|
|
'
|
|
'txtstatus
|
|
'
|
|
Me.txtstatus.Location = New System.Drawing.Point(520, 88)
|
|
Me.txtstatus.Name = "txtstatus"
|
|
Me.txtstatus.Size = New System.Drawing.Size(224, 16)
|
|
Me.txtstatus.TabIndex = 51
|
|
Me.txtstatus.Text = "Label3"
|
|
Me.txtstatus.Visible = False
|
|
'
|
|
'btntxtBemerkung
|
|
'
|
|
Me.btntxtBemerkung.Image = CType(resources.GetObject("btntxtBemerkung.Image"), System.Drawing.Image)
|
|
Me.btntxtBemerkung.Location = New System.Drawing.Point(764, 64)
|
|
Me.btntxtBemerkung.Name = "btntxtBemerkung"
|
|
Me.btntxtBemerkung.Size = New System.Drawing.Size(21, 21)
|
|
Me.btntxtBemerkung.TabIndex = 10
|
|
Me.btntxtBemerkung.Visible = False
|
|
'
|
|
'LabelVIBeachten
|
|
'
|
|
Me.LabelVIBeachten.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.LabelVIBeachten.ForeColor = System.Drawing.Color.Red
|
|
Me.LabelVIBeachten.Location = New System.Drawing.Point(48, 72)
|
|
Me.LabelVIBeachten.Name = "LabelVIBeachten"
|
|
Me.LabelVIBeachten.Size = New System.Drawing.Size(240, 21)
|
|
Me.LabelVIBeachten.TabIndex = 54
|
|
Me.LabelVIBeachten.Text = "VI beachten"
|
|
Me.LabelVIBeachten.Visible = False
|
|
'
|
|
'PicVIBeachten
|
|
'
|
|
Me.PicVIBeachten.Image = CType(resources.GetObject("PicVIBeachten.Image"), System.Drawing.Image)
|
|
Me.PicVIBeachten.Location = New System.Drawing.Point(3, 58)
|
|
Me.PicVIBeachten.Name = "PicVIBeachten"
|
|
Me.PicVIBeachten.Size = New System.Drawing.Size(45, 46)
|
|
Me.PicVIBeachten.TabIndex = 55
|
|
Me.PicVIBeachten.TabStop = False
|
|
Me.PicVIBeachten.Visible = False
|
|
'
|
|
'GroupBox7
|
|
'
|
|
Me.GroupBox7.BackColor = System.Drawing.SystemColors.Control
|
|
Me.GroupBox7.Controls.Add(Me.InfoMeldungList)
|
|
Me.GroupBox7.Location = New System.Drawing.Point(488, 200)
|
|
Me.GroupBox7.Name = "GroupBox7"
|
|
Me.GroupBox7.Size = New System.Drawing.Size(32, 96)
|
|
Me.GroupBox7.TabIndex = 59
|
|
Me.GroupBox7.TabStop = False
|
|
Me.GroupBox7.Text = "Informationsmeldungen"
|
|
Me.GroupBox7.Visible = False
|
|
'
|
|
'InfoMeldungList
|
|
'
|
|
Me.InfoMeldungList.AllowUpdate = False
|
|
Me.InfoMeldungList.AlternatingRows = True
|
|
Me.InfoMeldungList.ContextMenu = Me.ContextMenu4
|
|
Me.InfoMeldungList.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.InfoMeldungList.Images.Add(CType(resources.GetObject("InfoMeldungList.Images"), System.Drawing.Image))
|
|
Me.InfoMeldungList.Location = New System.Drawing.Point(8, 16)
|
|
Me.InfoMeldungList.Name = "InfoMeldungList"
|
|
Me.InfoMeldungList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.InfoMeldungList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.InfoMeldungList.PreviewInfo.ZoomFactor = 75
|
|
Me.InfoMeldungList.PrintInfo.PageSettings = CType(resources.GetObject("InfoMeldungList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
|
Me.InfoMeldungList.Size = New System.Drawing.Size(760, 72)
|
|
Me.InfoMeldungList.TabIndex = 0
|
|
Me.InfoMeldungList.Text = "C1TrueDBGrid1"
|
|
Me.InfoMeldungList.PropBag = resources.GetString("InfoMeldungList.PropBag")
|
|
'
|
|
'GroupBox6
|
|
'
|
|
Me.GroupBox6.Controls.Add(Me.ZuordnungList)
|
|
Me.GroupBox6.Location = New System.Drawing.Point(568, 200)
|
|
Me.GroupBox6.Name = "GroupBox6"
|
|
Me.GroupBox6.Size = New System.Drawing.Size(24, 88)
|
|
Me.GroupBox6.TabIndex = 58
|
|
Me.GroupBox6.TabStop = False
|
|
Me.GroupBox6.Text = "Dokument-Zuordnung"
|
|
Me.GroupBox6.Visible = False
|
|
'
|
|
'ZuordnungList
|
|
'
|
|
Me.ZuordnungList.AlternatingRows = True
|
|
Me.ZuordnungList.ContextMenu = Me.ContextMenu3
|
|
Me.ZuordnungList.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.ZuordnungList.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.ZuordnungList.Images.Add(CType(resources.GetObject("ZuordnungList.Images"), System.Drawing.Image))
|
|
Me.ZuordnungList.Location = New System.Drawing.Point(3, 16)
|
|
Me.ZuordnungList.Name = "ZuordnungList"
|
|
Me.ZuordnungList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.ZuordnungList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.ZuordnungList.PreviewInfo.ZoomFactor = 75
|
|
Me.ZuordnungList.PrintInfo.PageSettings = CType(resources.GetObject("ZuordnungList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
|
Me.ZuordnungList.Size = New System.Drawing.Size(18, 69)
|
|
Me.ZuordnungList.TabIndex = 1
|
|
Me.ZuordnungList.Text = "C1TrueDBGrid1"
|
|
Me.ZuordnungList.PropBag = resources.GetString("ZuordnungList.PropBag")
|
|
'
|
|
'GroupBox5
|
|
'
|
|
Me.GroupBox5.Controls.Add(Me.ColdList)
|
|
Me.GroupBox5.Location = New System.Drawing.Point(600, 192)
|
|
Me.GroupBox5.Name = "GroupBox5"
|
|
Me.GroupBox5.Size = New System.Drawing.Size(16, 96)
|
|
Me.GroupBox5.TabIndex = 57
|
|
Me.GroupBox5.TabStop = False
|
|
Me.GroupBox5.Text = "Dokumente ersetzen"
|
|
Me.GroupBox5.Visible = False
|
|
'
|
|
'ColdList
|
|
'
|
|
Me.ColdList.AllowUpdate = False
|
|
Me.ColdList.AlternatingRows = True
|
|
Me.ColdList.ContextMenu = Me.ContextMenu7
|
|
Me.ColdList.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.ColdList.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.ColdList.Images.Add(CType(resources.GetObject("ColdList.Images"), System.Drawing.Image))
|
|
Me.ColdList.Location = New System.Drawing.Point(3, 16)
|
|
Me.ColdList.Name = "ColdList"
|
|
Me.ColdList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.ColdList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.ColdList.PreviewInfo.ZoomFactor = 75
|
|
Me.ColdList.PrintInfo.PageSettings = CType(resources.GetObject("ColdList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
|
Me.ColdList.Size = New System.Drawing.Size(10, 77)
|
|
Me.ColdList.TabIndex = 0
|
|
Me.ColdList.Text = "C1TrueDBGrid1"
|
|
Me.ColdList.PropBag = resources.GetString("ColdList.PropBag")
|
|
'
|
|
'GroupBox4
|
|
'
|
|
Me.GroupBox4.Controls.Add(Me.C1DateEdit1)
|
|
Me.GroupBox4.Controls.Add(Me.Label12)
|
|
Me.GroupBox4.Controls.Add(Me.TextBox1)
|
|
Me.GroupBox4.Controls.Add(Me.DateTimePicker4)
|
|
Me.GroupBox4.Controls.Add(Me.Label14)
|
|
Me.GroupBox4.Controls.Add(Me.Label15)
|
|
Me.GroupBox4.Location = New System.Drawing.Point(528, 184)
|
|
Me.GroupBox4.Name = "GroupBox4"
|
|
Me.GroupBox4.Size = New System.Drawing.Size(24, 192)
|
|
Me.GroupBox4.TabIndex = 56
|
|
Me.GroupBox4.TabStop = False
|
|
Me.GroupBox4.Text = "Allgemein"
|
|
Me.GroupBox4.Visible = False
|
|
'
|
|
'C1DateEdit1
|
|
'
|
|
Me.C1DateEdit1.FormatType = C1.Win.C1Input.FormatTypeEnum.ShortDate
|
|
Me.C1DateEdit1.Location = New System.Drawing.Point(88, 48)
|
|
Me.C1DateEdit1.Name = "C1DateEdit1"
|
|
Me.C1DateEdit1.Size = New System.Drawing.Size(96, 20)
|
|
Me.C1DateEdit1.TabIndex = 1
|
|
Me.C1DateEdit1.Tag = Nothing
|
|
Me.C1DateEdit1.VisibleButtons = C1.Win.C1Input.DropDownControlButtonFlags.DropDown
|
|
'
|
|
'Label12
|
|
'
|
|
Me.Label12.Location = New System.Drawing.Point(8, 72)
|
|
Me.Label12.Name = "Label12"
|
|
Me.Label12.Size = New System.Drawing.Size(80, 23)
|
|
Me.Label12.TabIndex = 35
|
|
Me.Label12.Text = "Bemerkung"
|
|
'
|
|
'TextBox1
|
|
'
|
|
Me.TextBox1.Location = New System.Drawing.Point(88, 72)
|
|
Me.TextBox1.Multiline = True
|
|
Me.TextBox1.Name = "TextBox1"
|
|
Me.TextBox1.Size = New System.Drawing.Size(272, 112)
|
|
Me.TextBox1.TabIndex = 2
|
|
'
|
|
'DateTimePicker4
|
|
'
|
|
Me.DateTimePicker4.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
|
Me.DateTimePicker4.Location = New System.Drawing.Point(88, 24)
|
|
Me.DateTimePicker4.Name = "DateTimePicker4"
|
|
Me.DateTimePicker4.Size = New System.Drawing.Size(96, 20)
|
|
Me.DateTimePicker4.TabIndex = 0
|
|
'
|
|
'Label14
|
|
'
|
|
Me.Label14.Location = New System.Drawing.Point(8, 24)
|
|
Me.Label14.Name = "Label14"
|
|
Me.Label14.Size = New System.Drawing.Size(80, 23)
|
|
Me.Label14.TabIndex = 34
|
|
Me.Label14.Text = "Archiv-Datum"
|
|
'
|
|
'Label15
|
|
'
|
|
Me.Label15.Location = New System.Drawing.Point(8, 48)
|
|
Me.Label15.Name = "Label15"
|
|
Me.Label15.Size = New System.Drawing.Size(80, 23)
|
|
Me.Label15.TabIndex = 30
|
|
Me.Label15.Text = "Termin"
|
|
'
|
|
'pnlBerechtigungen
|
|
'
|
|
Me.pnlBerechtigungen.Controls.Add(Me.DokumentFunktionenList)
|
|
Me.pnlBerechtigungen.Location = New System.Drawing.Point(648, 200)
|
|
Me.pnlBerechtigungen.Name = "pnlBerechtigungen"
|
|
Me.pnlBerechtigungen.Size = New System.Drawing.Size(16, 152)
|
|
Me.pnlBerechtigungen.TabIndex = 62
|
|
Me.pnlBerechtigungen.TabStop = False
|
|
Me.pnlBerechtigungen.Text = "Berechtigungseinschränkung"
|
|
Me.pnlBerechtigungen.Visible = False
|
|
'
|
|
'DokumentFunktionenList
|
|
'
|
|
Me.DokumentFunktionenList.AlternatingRows = True
|
|
Me.DokumentFunktionenList.ContextMenu = Me.ContextMenu6
|
|
Me.DokumentFunktionenList.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.DokumentFunktionenList.Images.Add(CType(resources.GetObject("DokumentFunktionenList.Images"), System.Drawing.Image))
|
|
Me.DokumentFunktionenList.Location = New System.Drawing.Point(8, 16)
|
|
Me.DokumentFunktionenList.Name = "DokumentFunktionenList"
|
|
Me.DokumentFunktionenList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.DokumentFunktionenList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.DokumentFunktionenList.PreviewInfo.ZoomFactor = 75
|
|
Me.DokumentFunktionenList.PrintInfo.PageSettings = CType(resources.GetObject("DokumentFunktionenList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
|
Me.DokumentFunktionenList.Size = New System.Drawing.Size(600, 128)
|
|
Me.DokumentFunktionenList.TabIndex = 1
|
|
Me.DokumentFunktionenList.Text = "C1TrueDBGrid1"
|
|
Me.DokumentFunktionenList.PropBag = resources.GetString("DokumentFunktionenList.PropBag")
|
|
'
|
|
'GroupBox9
|
|
'
|
|
Me.GroupBox9.Controls.Add(Me.Button3)
|
|
Me.GroupBox9.Controls.Add(Me.cvertraulich)
|
|
Me.GroupBox9.Controls.Add(Me.Label18)
|
|
Me.GroupBox9.Controls.Add(Me.cGesperrt)
|
|
Me.GroupBox9.Controls.Add(Me.Label9)
|
|
Me.GroupBox9.Location = New System.Drawing.Point(744, 200)
|
|
Me.GroupBox9.Name = "GroupBox9"
|
|
Me.GroupBox9.Size = New System.Drawing.Size(32, 152)
|
|
Me.GroupBox9.TabIndex = 61
|
|
Me.GroupBox9.TabStop = False
|
|
Me.GroupBox9.Text = "Schutz"
|
|
Me.GroupBox9.Visible = False
|
|
'
|
|
'Button3
|
|
'
|
|
Me.Button3.Location = New System.Drawing.Point(16, 96)
|
|
Me.Button3.Name = "Button3"
|
|
Me.Button3.Size = New System.Drawing.Size(120, 48)
|
|
Me.Button3.TabIndex = 2
|
|
Me.Button3.Text = "Liste der berechtigten Mitarbeiter"
|
|
'
|
|
'cvertraulich
|
|
'
|
|
Me.cvertraulich.Location = New System.Drawing.Point(80, 46)
|
|
Me.cvertraulich.Name = "cvertraulich"
|
|
Me.cvertraulich.Size = New System.Drawing.Size(48, 24)
|
|
Me.cvertraulich.TabIndex = 18
|
|
'
|
|
'Label18
|
|
'
|
|
Me.Label18.Location = New System.Drawing.Point(16, 48)
|
|
Me.Label18.Name = "Label18"
|
|
Me.Label18.Size = New System.Drawing.Size(64, 23)
|
|
Me.Label18.TabIndex = 1
|
|
Me.Label18.Text = "Vertraulich"
|
|
'
|
|
'cGesperrt
|
|
'
|
|
Me.cGesperrt.Enabled = False
|
|
Me.cGesperrt.Location = New System.Drawing.Point(80, 24)
|
|
Me.cGesperrt.Name = "cGesperrt"
|
|
Me.cGesperrt.Size = New System.Drawing.Size(48, 24)
|
|
Me.cGesperrt.TabIndex = 16
|
|
'
|
|
'Label9
|
|
'
|
|
Me.Label9.Location = New System.Drawing.Point(16, 24)
|
|
Me.Label9.Name = "Label9"
|
|
Me.Label9.Size = New System.Drawing.Size(64, 23)
|
|
Me.Label9.TabIndex = 0
|
|
Me.Label9.Text = "Gesperrt"
|
|
'
|
|
'GroupBox8
|
|
'
|
|
Me.GroupBox8.Controls.Add(Me.drpMiatarbeiter)
|
|
Me.GroupBox8.Controls.Add(Me.Notizlist)
|
|
Me.GroupBox8.Location = New System.Drawing.Point(704, 112)
|
|
Me.GroupBox8.Name = "GroupBox8"
|
|
Me.GroupBox8.Size = New System.Drawing.Size(40, 152)
|
|
Me.GroupBox8.TabIndex = 60
|
|
Me.GroupBox8.TabStop = False
|
|
Me.GroupBox8.Text = "Notizen"
|
|
Me.GroupBox8.Visible = False
|
|
'
|
|
'drpMiatarbeiter
|
|
'
|
|
Me.drpMiatarbeiter.AllowColMove = True
|
|
Me.drpMiatarbeiter.AllowColSelect = True
|
|
Me.drpMiatarbeiter.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.drpMiatarbeiter.AlternatingRows = True
|
|
Me.drpMiatarbeiter.CaptionStyle = Style1
|
|
Me.drpMiatarbeiter.ColumnCaptionHeight = 17
|
|
Me.drpMiatarbeiter.ColumnFooterHeight = 17
|
|
Me.drpMiatarbeiter.EvenRowStyle = Style2
|
|
Me.drpMiatarbeiter.FetchRowStyles = False
|
|
Me.drpMiatarbeiter.FooterStyle = Style3
|
|
Me.drpMiatarbeiter.HeadingStyle = Style4
|
|
Me.drpMiatarbeiter.HighLightRowStyle = Style5
|
|
Me.drpMiatarbeiter.Images.Add(CType(resources.GetObject("drpMiatarbeiter.Images"), System.Drawing.Image))
|
|
Me.drpMiatarbeiter.Location = New System.Drawing.Point(12, 36)
|
|
Me.drpMiatarbeiter.Name = "drpMiatarbeiter"
|
|
Me.drpMiatarbeiter.OddRowStyle = Style6
|
|
Me.drpMiatarbeiter.RecordSelectorStyle = Style7
|
|
Me.drpMiatarbeiter.RowDivider.Color = System.Drawing.Color.DarkGray
|
|
Me.drpMiatarbeiter.RowDivider.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.[Single]
|
|
Me.drpMiatarbeiter.RowSubDividerColor = System.Drawing.Color.DarkGray
|
|
Me.drpMiatarbeiter.ScrollTips = False
|
|
Me.drpMiatarbeiter.Size = New System.Drawing.Size(40, 80)
|
|
Me.drpMiatarbeiter.Style = Style8
|
|
Me.drpMiatarbeiter.TabIndex = 4
|
|
Me.drpMiatarbeiter.Text = "C1TrueDBDropdown1"
|
|
Me.drpMiatarbeiter.Visible = False
|
|
Me.drpMiatarbeiter.PropBag = resources.GetString("drpMiatarbeiter.PropBag")
|
|
'
|
|
'Notizlist
|
|
'
|
|
Me.Notizlist.AlternatingRows = True
|
|
Me.Notizlist.ContextMenu = Me.ContextMenu1
|
|
Me.Notizlist.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.Notizlist.Images.Add(CType(resources.GetObject("Notizlist.Images"), System.Drawing.Image))
|
|
Me.Notizlist.Location = New System.Drawing.Point(8, 16)
|
|
Me.Notizlist.Name = "Notizlist"
|
|
Me.Notizlist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.Notizlist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.Notizlist.PreviewInfo.ZoomFactor = 75
|
|
Me.Notizlist.PrintInfo.PageSettings = CType(resources.GetObject("Notizlist.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
|
Me.Notizlist.Size = New System.Drawing.Size(760, 128)
|
|
Me.Notizlist.TabIndex = 1
|
|
Me.Notizlist.Text = "C1TrueDBGrid1"
|
|
Me.Notizlist.PropBag = resources.GetString("Notizlist.PropBag")
|
|
'
|
|
'frmDokumentbearbeitungED
|
|
'
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|
Me.ClientSize = New System.Drawing.Size(802, 503)
|
|
Me.ControlBox = False
|
|
Me.Controls.Add(Me.LabelVIBeachten)
|
|
Me.Controls.Add(Me.pnlBerechtigungen)
|
|
Me.Controls.Add(Me.GroupBox9)
|
|
Me.Controls.Add(Me.GroupBox8)
|
|
Me.Controls.Add(Me.GroupBox7)
|
|
Me.Controls.Add(Me.GroupBox6)
|
|
Me.Controls.Add(Me.GroupBox5)
|
|
Me.Controls.Add(Me.GroupBox4)
|
|
Me.Controls.Add(Me.txtPartnerZusteller)
|
|
Me.Controls.Add(Me.PicVIBeachten)
|
|
Me.Controls.Add(Me.btntxtBemerkung)
|
|
Me.Controls.Add(Me.Label11)
|
|
Me.Controls.Add(Me.txtstatus)
|
|
Me.Controls.Add(Me.Panel1)
|
|
Me.Controls.Add(Me.cbmoeglicheStati)
|
|
Me.Controls.Add(Me.Button4)
|
|
Me.Controls.Add(Me.Button1)
|
|
Me.Controls.Add(Me.cdokumentwerteanzeigen)
|
|
Me.Controls.Add(Me.cbVerantwortlich)
|
|
Me.Controls.Add(Me.Label17)
|
|
Me.Controls.Add(Me.Label16)
|
|
Me.Controls.Add(Me.cbdokumentstatus)
|
|
Me.Controls.Add(Me.txtPartnerInhaberNr)
|
|
Me.Controls.Add(Me.txtBezeichnung)
|
|
Me.Controls.Add(Me.Label4)
|
|
Me.Controls.Add(Me.btnPartnerInhaber)
|
|
Me.Controls.Add(Me.txtPartnerInhaber)
|
|
Me.Controls.Add(Me.Label2)
|
|
Me.Controls.Add(Me.Label1)
|
|
Me.Controls.Add(Me.TabControl2)
|
|
Me.Controls.Add(Me.btnCancel)
|
|
Me.Controls.Add(Me.btnWeiter)
|
|
Me.Controls.Add(Me.cbsave)
|
|
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
|
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
|
Me.MaximizeBox = False
|
|
Me.MinimizeBox = False
|
|
Me.Name = "frmDokumentbearbeitungED"
|
|
Me.ShowInTaskbar = False
|
|
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
|
Me.Text = "Dokumentbearbeitung Einzeldokument"
|
|
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.DataSet4, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.TabControl2.ResumeLayout(False)
|
|
Me.TabPage3.ResumeLayout(False)
|
|
Me.GroupBox11.ResumeLayout(False)
|
|
Me.GroupBox11.PerformLayout()
|
|
Me.GroupBox12.ResumeLayout(False)
|
|
Me.GroupBox10.ResumeLayout(False)
|
|
CType(Me.DokWertList, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.GroupBox3.ResumeLayout(False)
|
|
Me.GroupBox1.ResumeLayout(False)
|
|
Me.GroupBox2.ResumeLayout(False)
|
|
CType(Me.DateTimePicker2, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.PicVIBeachten, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.GroupBox7.ResumeLayout(False)
|
|
CType(Me.InfoMeldungList, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.GroupBox6.ResumeLayout(False)
|
|
CType(Me.ZuordnungList, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.GroupBox5.ResumeLayout(False)
|
|
CType(Me.ColdList, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.GroupBox4.ResumeLayout(False)
|
|
Me.GroupBox4.PerformLayout()
|
|
CType(Me.C1DateEdit1, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.pnlBerechtigungen.ResumeLayout(False)
|
|
CType(Me.DokumentFunktionenList, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.GroupBox9.ResumeLayout(False)
|
|
Me.GroupBox8.ResumeLayout(False)
|
|
CType(Me.drpMiatarbeiter, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.Notizlist, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.ResumeLayout(False)
|
|
Me.PerformLayout()
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "Deklarationen"
|
|
Dim txtBemerkungVerantwortlicher As String
|
|
Dim w As New WordLib()
|
|
Dim On_Load As Boolean
|
|
Dim NewDokumentID As String
|
|
Dim CurrentProfil As Long
|
|
Dim m_dokumenttypnr As Long
|
|
Dim m_createdocument As Boolean
|
|
Dim DokumentID As String
|
|
Dim i As Integer
|
|
Dim ii As Integer
|
|
Dim Notizen As DataTable
|
|
Dim Dokumentersetzen As DataTable
|
|
Dim Dokumentzuorndungen As DataTable
|
|
Dim DokumentInfoMeldungen As DataTable
|
|
Dim DokumentFunktionen As DataTable
|
|
Dim m_barcodeid As String
|
|
Dim zu_retournieren As Boolean
|
|
Dim teamzustaendig As Integer
|
|
Dim VIBeachten As Boolean
|
|
|
|
|
|
Dim m_dokument_ist_abgeschlossen As Boolean
|
|
Property Dokument_Ist_Abgeschlossen() As Boolean
|
|
Get
|
|
Return m_dokument_ist_abgeschlossen
|
|
End Get
|
|
Set(ByVal Value As Boolean)
|
|
m_dokument_ist_abgeschlossen = Value
|
|
End Set
|
|
End Property
|
|
Dim m_dokumentinfobearbeiten As Boolean
|
|
Property Dokumentinfobearbeiten() As Boolean
|
|
Get
|
|
Return m_dokumentinfobearbeiten
|
|
End Get
|
|
Set(ByVal Value As Boolean)
|
|
m_dokumentinfobearbeiten = Value
|
|
End Set
|
|
End Property
|
|
Property BarcodeID() As String
|
|
Get
|
|
Return m_barcodeid
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_barcodeid = Value
|
|
End Set
|
|
End Property
|
|
|
|
Property Dokumenttypnr() As Long
|
|
Get
|
|
Return m_dokumenttypnr
|
|
End Get
|
|
Set(ByVal Value As Long)
|
|
m_dokumenttypnr = Value
|
|
End Set
|
|
End Property
|
|
|
|
Property CreateDocument() As Boolean
|
|
Get
|
|
Return m_createdocument
|
|
End Get
|
|
Set(ByVal Value As Boolean)
|
|
m_createdocument = Value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_profilnr As Long
|
|
Property Profilnr() As Long
|
|
Get
|
|
Return m_profilnr
|
|
End Get
|
|
Set(ByVal Value As Long)
|
|
m_profilnr = Value
|
|
End Set
|
|
End Property
|
|
Dim m_profile As DataTable
|
|
Property Profile() As DataTable
|
|
Get
|
|
Return m_profile
|
|
End Get
|
|
Set(ByVal Value As DataTable)
|
|
m_profile = Value
|
|
End Set
|
|
End Property
|
|
|
|
Property EditDokumentid() As String
|
|
Get
|
|
Return DokumentID
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
DokumentID = Value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_Partnernr As String
|
|
Property Partnernr() As String
|
|
Get
|
|
Return m_Partnernr
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_Partnernr = Value
|
|
End Set
|
|
End Property
|
|
|
|
Dim savestatus As Integer
|
|
Dim firststatus As Integer
|
|
Dim saveverantwortlicher As Integer
|
|
|
|
#End Region
|
|
|
|
Dim WithEvents mcbverantwortlich As New MultiComboBox()
|
|
Dim WithEvents mcbunterschriftlinks As New MultiComboBox()
|
|
Dim WithEvents mcbunterschriftrechts As New MultiComboBox()
|
|
Dim WithEvents mcbpostzustellung As New MultiComboBox()
|
|
Dim WithEvents mcbkube As New MultiComboBox()
|
|
Dim WithEvents mcbstatus As New MultiComboBox()
|
|
Dim WithEvents mcbzust As New MultiComboBox()
|
|
Dim WithEvents mcbteam As New MultiComboBox()
|
|
Dim moeglichestati As DataTable
|
|
Dim funktionsliste As String
|
|
Dim selectedstatus As Integer
|
|
Dim ErsetzenMoeglich As Boolean = False
|
|
Dim progress As New frmProgress()
|
|
|
|
Dim check_existing_address As Boolean = False
|
|
|
|
#Region "FormLoad"
|
|
Public Sub New()
|
|
MyBase.New()
|
|
|
|
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
|
End Sub
|
|
|
|
Private Sub frmDokumentbearbeitung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Me.On_Load = True
|
|
w.save_stv = Globals.stv
|
|
Me.TabControl2.Enabled = True
|
|
If Me.CreateDocument Then
|
|
progress.Bar1a.Value = 10
|
|
progress.Info.Text = "Vorbereitung Dokumenterstellung"
|
|
progress.Refresh()
|
|
progress.Show()
|
|
progress.Refresh()
|
|
|
|
Formular_Laden_Create_Document()
|
|
progress.Bar1a.Value = 90
|
|
progress.Refresh()
|
|
|
|
If Me.Partnernr <> "" Then
|
|
If DivFnkt.Ist_Berechtigt(Me.Dokumenttypnr, Globals.MitarbeiterNr, Me.Partnernr, "", 2, 0, 0, 0) Then
|
|
Dim f As New FrmPartnersuche()
|
|
f.Dokumenterstellen = True
|
|
f.Dokumenttypnrnr = Me.Dokumenttypnr
|
|
f.Partner_Suche(Me.Partnernr)
|
|
Me.txtPartnerInhaber.Text = Str(f.PartnerNr) + " " + f.PartnerKurzbezeichnnung
|
|
Me.txtPartnerInhaberNr.Text = f.PartnerNr
|
|
Me.txtPartnerZusteller.Text = Me.get_partnerzusteller(f.PartnerNr)
|
|
Me.VIBeachten = f.VIBeachten
|
|
f.Dispose()
|
|
'edex Banklagernd
|
|
Banklagernd_Check()
|
|
|
|
Else
|
|
MyMsg.show_standardmessage(30, MsgBoxStyle.Critical)
|
|
Me.Close()
|
|
End If
|
|
Else
|
|
' btnPartnerInhaber_Click(sender, e)
|
|
End If
|
|
If Val(Me.txtPartnerInhaberNr.Text) > 91000000 Then
|
|
Me.cbKube.SelectedValue = Globals.MitarbeiterNr
|
|
End If
|
|
Me.cbmoeglicheStati.Visible = False
|
|
Me.cbsave.Visible = False
|
|
Else
|
|
Formular_laden_Edit_Document()
|
|
Dim bc As New DataTable()
|
|
bc = Generic_Select(11)
|
|
If bc.Rows.Count > 0 Then
|
|
Me.BarcodeID = LTrim(Str(bc.Rows(0).Item(0)))
|
|
End If
|
|
bc.Dispose()
|
|
Me.cbmoeglicheStati.Visible = True
|
|
Me.cbsave.Visible = True
|
|
End If
|
|
Me.cdokumentwerteanzeigen.Visible = False
|
|
|
|
Me.On_Load = False
|
|
If Me.Dokument_Ist_Abgeschlossen Then bereiche_sperren()
|
|
If Me.VIBeachten = True Then
|
|
Me.PicVIBeachten.Visible = True
|
|
Me.LabelVIBeachten.Visible = True
|
|
Else
|
|
Me.PicVIBeachten.Visible = False
|
|
Me.LabelVIBeachten.Visible = False
|
|
End If
|
|
'progress.Close()
|
|
'progress.Dispose()
|
|
|
|
Me.Visible = True
|
|
'Anzeige der Hinweismeldung, dass es sich um ein Einzeldokument handelt
|
|
If MyMsg.Show_HinweisMessage(Me.Profilnr, 3, 96, 1) = False Then
|
|
Exit Sub
|
|
End If
|
|
|
|
End Sub
|
|
|
|
'EDEX_Banklagernd
|
|
Private Sub Banklagernd_Check()
|
|
Dim i As Integer
|
|
i = check_banklagernd()
|
|
If i = 0 Then Exit Sub
|
|
Dim dt As New edokadb.clsDokumenttyp()
|
|
dt.cpMainConnectionProvider = conn
|
|
dt.iDokumenttypnr = New SqlInt32(CType(Dokumenttypnr, Int32))
|
|
dt.SelectOne()
|
|
If dt.bKundenDokument.Value = False Then
|
|
dt.Dispose()
|
|
Exit Sub
|
|
End If
|
|
dt.Dispose()
|
|
Try
|
|
Select Case i
|
|
Case 1
|
|
Dim f As New frmBanklagerndverarbeitung(Me.Partnernr, True, True)
|
|
Dim p As New edokadb.clsPartner()
|
|
p.cpMainConnectionProvider = conn
|
|
p.iNRPAR00 = New SqlInt32(CType(Trim(Me.txtPartnerInhaberNr.Text), Int32))
|
|
p.SelectOne()
|
|
If p.bSaldiert.Value = True Then
|
|
f.rbeinzelbldossier.Checked = False
|
|
f.rbeinzelbldossier.Enabled = False
|
|
f.RBEinzelPersoenlich.Checked = True
|
|
Else
|
|
f.rbeinzelbldossier.Checked = True
|
|
f.rbeinzelbldossier.Enabled = True
|
|
End If
|
|
f.ShowDialog()
|
|
If f.rbeinzelbldossier.Checked Then
|
|
Me.txtZustelladresse.Text = ""
|
|
Me.txtZustelladresse.Enabled = False
|
|
Me.Button2.Enabled = False
|
|
Me.check_existing_address = False
|
|
End If
|
|
If f.rbeinzelblversand.Checked Then
|
|
Me.txtZustelladresse.Text = ""
|
|
Me.txtZustelladresse.Enabled = True
|
|
Me.Button2.Enabled = True
|
|
Me.check_existing_address = True
|
|
End If
|
|
If f.RBEinzelPersoenlich.Checked = True Then
|
|
Me.txtZustelladresse.Text = DivFnkt.get_parnter_namevorname(Me.Partnernr) + vbCrLf + "persönlich ausgehändigt"
|
|
Me.txtZustelladresse.Enabled = False
|
|
Me.Button2.Enabled = False
|
|
Me.check_existing_address = False
|
|
End If
|
|
Case 2
|
|
Dim f As New frmBanklagerndverarbeitung(Me.Partnernr, True, True)
|
|
Dim p As New edokadb.clsPartner()
|
|
f.rbeinzelblversand.Enabled = False
|
|
p.cpMainConnectionProvider = conn
|
|
p.iNRPAR00 = New SqlInt32(CType(Trim(Me.txtPartnerInhaberNr.Text), Int32))
|
|
p.SelectOne()
|
|
If p.bSaldiert.Value = True Then
|
|
f.rbeinzelbldossier.Checked = False
|
|
f.rbeinzelbldossier.Enabled = False
|
|
f.RBEinzelPersoenlich.Checked = True
|
|
Else
|
|
f.rbeinzelbldossier.Checked = True
|
|
f.rbeinzelbldossier.Enabled = True
|
|
End If
|
|
f.ShowDialog()
|
|
If f.rbeinzelbldossier.Checked Then
|
|
Me.txtZustelladresse.Text = ""
|
|
Me.txtZustelladresse.Enabled = False
|
|
Me.Button2.Enabled = False
|
|
Me.check_existing_address = False
|
|
End If
|
|
If f.rbeinzelblversand.Checked Then
|
|
Me.txtZustelladresse.Text = ""
|
|
Me.txtZustelladresse.Enabled = True
|
|
Me.Button2.Enabled = True
|
|
Me.check_existing_address = True
|
|
End If
|
|
If f.RBEinzelPersoenlich.Checked = True Then
|
|
Me.txtZustelladresse.Text = DivFnkt.get_parnter_namevorname(Me.Partnernr) + vbCrLf + "persönlich ausgehändigt"
|
|
Me.txtZustelladresse.Enabled = False
|
|
Me.Button2.Enabled = False
|
|
Me.check_existing_address = False
|
|
End If
|
|
|
|
End Select
|
|
If i > 0 Then
|
|
End If
|
|
Catch
|
|
Finally
|
|
Try
|
|
Globals.conn.CloseConnection(True)
|
|
Catch
|
|
End Try
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub settooltip()
|
|
Dim ttip As New ToolTip()
|
|
ttip.SetToolTip(Me.cbmoeglicheStati, Globals.MyTxt.gettext(22000))
|
|
ttip.SetToolTip(Me.btnPartnerInhaber, Globals.MyTxt.gettext(22001))
|
|
ttip.SetToolTip(Me.Button1, Globals.MyTxt.gettext(22002))
|
|
ttip.SetToolTip(Me.btntxtBemerkung, MyTxt.gettext(22007))
|
|
End Sub
|
|
|
|
Private Sub bereiche_sperren()
|
|
Me.btnPartnerInhaber.Enabled = False
|
|
Me.GroupBox1.Enabled = False
|
|
Me.GroupBox2.Enabled = False
|
|
Me.GroupBox3.Enabled = False
|
|
Me.GroupBox4.Enabled = False
|
|
Me.GroupBox5.Enabled = False
|
|
Me.GroupBox10.Enabled = False
|
|
Me.GroupBox11.Enabled = False
|
|
Me.GroupBox12.Enabled = False
|
|
Me.GroupBox9.Enabled = False
|
|
Me.Button2.Enabled = False
|
|
Me.pnlBerechtigungen.Enabled = False
|
|
Me.cbVerantwortlich.Enabled = False
|
|
Me.mcbverantwortlich.Enabled = False
|
|
Me.cbdokumentstatus.Enabled = False
|
|
Me.mcbstatus.Enabled = False
|
|
Me.DokWertList.Enabled = False
|
|
Me.cdokumentwerteanzeigen.Visible = False
|
|
End Sub
|
|
|
|
Private Sub Formular_laden_Edit_Document()
|
|
Dim doc As New edokadb.clsDokument()
|
|
doc.cpMainConnectionProvider = conn
|
|
conn.OpenConnection()
|
|
doc.sDokumentid = New SqlString(CType(Me.EditDokumentid, String))
|
|
doc.SelectOne()
|
|
doc.cpMainConnectionProvider = conn
|
|
doc.sDokumentid = New SqlString(CType(Me.EditDokumentid, String))
|
|
NewDokumentID = Me.EditDokumentid
|
|
Me.Partnernr = doc.iNrpar00.Value
|
|
doc.SelectOne()
|
|
w.Save_Dokument = doc.SelectOne
|
|
Me.Dokumenttypnr = doc.iDokumenttypnr.Value
|
|
DokumentID = doc.sDokumentid.Value
|
|
Load_Defaults()
|
|
|
|
'Parnter laden
|
|
Dim p As New edokadb.clsPartner()
|
|
p.cpMainConnectionProvider = conn
|
|
p.iNRPAR00 = doc.iNrpar00
|
|
p.SelectOne()
|
|
Me.txtPartnerInhaber.Text = Str(p.iNRPAR00.Value) + " " + p.sBKPAR00.Value
|
|
Me.txtPartnerInhaberNr.Text = p.iNRPAR00.Value
|
|
Me.txtPartnerZusteller.Text = Me.get_partnerzusteller(p.iNRPAR00.Value)
|
|
If p.sCDVIG00.Value = "Y" Or p.iAZEPL00.Value > 1 Or p.bCDVSA00.Value = True Then Me.VIBeachten = True Else Me.VIBeachten = False
|
|
p.Dispose()
|
|
|
|
ii = doc.iPostzustellung.Value
|
|
Me.mcbpostzustellung.SelectedValue = ii
|
|
If doc.bZustaendig_kube.Value = True Then
|
|
ii = doc.iZustaendiger.Value
|
|
Me.mcbkube.SelectedValue = ii
|
|
Else
|
|
ii = doc.iZustaendiger.Value
|
|
Me.mcbzust.SelectedValue = ii
|
|
End If
|
|
ii = doc.iVerantwortlich.Value
|
|
'Prüfung, sofern akt. verantwortlicher = MA-Systemuser, dann aktueller Mitarbeiter setzen
|
|
If ii > 9950 Then
|
|
ii = Globals.MitarbeiterNr
|
|
End If
|
|
|
|
Me.mcbverantwortlich.SelectedValue = ii
|
|
Me.saveverantwortlicher = ii
|
|
w.save_verantwortlicher = ii
|
|
|
|
Me.savestatus = doc.iStatusnr.Value
|
|
|
|
ii = doc.iUnterschriftlinks.Value
|
|
Me.mcbunterschriftlinks.SelectedValue = ii
|
|
ii = doc.iUnterschriftrechts.Value
|
|
Me.mcbunterschriftrechts.SelectedValue = ii
|
|
Me.cGesperrt.Checked = doc.bGesperrt.Value = True
|
|
Me.txtBemerkung.Text = doc.sBemerkung.Value
|
|
Me.txtBezeichnung.Text = doc.sBezeichnung.Value
|
|
Me.rbZustaendigKube.Checked = doc.bZustaendig_kube.Value = True
|
|
Me.cvertraulich.Checked = doc.bVertraulich.Value = True
|
|
Me.txtZustelladresse.Text = doc.sZustelladresse.Value
|
|
Me.txtAnredeZusteller.Text = doc.sAnredezustelladresse.Value
|
|
Me.RBZustaendigZustaendiger.Checked = doc.bZustaendig_kube.Value = False
|
|
Me.teamzustaendig = doc.iZustaendiger.Value
|
|
Me.refresh_team()
|
|
Try
|
|
Me.mcbteam.SelectedValue = doc.iMutierertieam.Value
|
|
Catch
|
|
Me.mcbteam.SelectedIndex = 0
|
|
End Try
|
|
Try
|
|
Me.DateTimePicker1.Value = doc.daErstellungsdatum.Value
|
|
Catch
|
|
Me.DateTimePicker1.Value = Now
|
|
End Try
|
|
|
|
Try
|
|
Me.DateTimePicker3.Value = doc.daArchivierungsdatum.Value
|
|
Catch
|
|
Me.DateTimePicker3.Value = Me.DateTimePicker1.Value
|
|
End Try
|
|
|
|
Try
|
|
If doc.daTermin.Value = "01.01.1900" Then
|
|
Me.DateTimePicker2.ResetText()
|
|
Me.DateTimePicker2.Value = System.DBNull.Value
|
|
Else
|
|
Me.DateTimePicker2.Value = doc.daTermin.Value
|
|
End If
|
|
Catch
|
|
Me.DateTimePicker2.Value = System.DBNull.Value
|
|
End Try
|
|
|
|
doc.Dispose()
|
|
|
|
Me.Dokumentersetzen = Dokumentersetzen_Laden()
|
|
w.save_dokumentersetzen = Dokumentersetzen_Laden()
|
|
|
|
Me.ColdList.DataSource = Me.Dokumentersetzen
|
|
DivFnkt.SpaltenTitel_Aktualisieren(Me.ColdList, Me.Dokumentersetzen, "dokumentersetzen")
|
|
|
|
Me.Notizen = Notizen_Laden()
|
|
|
|
w.Save_Notizen = Notizen_Laden()
|
|
Me.Notizlist.DataSource = Notizen
|
|
DivFnkt.SpaltenTitel_Aktualisieren(Me.Notizlist, Me.Notizen, "notizen")
|
|
|
|
w.Save_Dokumentwerte = Generic_Select(10)
|
|
Me.DataSet1.Clear()
|
|
Me.DataSet1.Tables.Clear()
|
|
Me.DataSet1.Tables.Add(DokumentwertListe_laden)
|
|
Me.DokWertList.DataSource = Me.DataSet1
|
|
Me.DokWertList.DataMember = Me.DataSet1.Tables(0).TableName
|
|
For i = 3 To Me.DokWertList.Columns.Count - 1
|
|
Me.DokWertList.Splits(0).DisplayColumns(i).Visible = False
|
|
Next
|
|
'KC 2008-05-07 Zusatzanfoderung Rel 4.0 DokInfoWerte alle abfüllen (Filter auf Liste)
|
|
Me.DokWertList.AllowFilter = True
|
|
Me.DokWertList.FilterActive = False
|
|
For i = 0 To Me.DokWertList.Columns.Count - 1
|
|
Me.DokWertList.Columns(i).FilterText = ""
|
|
If Me.DokWertList.Columns(i).DataField = "userinterface" Then
|
|
Me.DokWertList.Columns(i).FilterText = True
|
|
End If
|
|
Next
|
|
Me.DokWertList.Splits(0).DisplayColumns(0).Width = 110
|
|
Me.DokWertList.Splits(0).DisplayColumns(1).Width = 60
|
|
Me.DokWertList.Columns(1).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
|
'Me.DokWertList.Splits(0).DisplayColumns(1).Locked = True
|
|
Me.DokWertList.Splits(0).DisplayColumns(0).Locked = True
|
|
Me.DokWertList.Splits(0).DisplayColumns(2).Width = 160
|
|
conn.CloseConnection(True)
|
|
|
|
w.Save_ColdIndex = Generic_Select(9)
|
|
Me.TabControl2.Enabled = True
|
|
|
|
Dim tmp As DataTable
|
|
tmp = Generic_Select(12)
|
|
w.save_historystatus = tmp.Rows(0).Item(0)
|
|
tmp.Dispose()
|
|
End Sub
|
|
|
|
Private Function Dokumentersetzen_Laden() As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.sp_dokumentersetzen_select"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
If Me.CreateDocument Then
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
Else
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID))
|
|
End If
|
|
' scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentID))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
|
|
Private Function Notizen_Laden() As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokument_Notizen_select"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
If Me.CreateDocument Then
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
Else
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID))
|
|
End If
|
|
' scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentID))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Private Function Dokumentzuordnungen_Laden()
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokumentzuordnungen_select"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
If Me.CreateDocument Then
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
Else
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID))
|
|
End If
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Private Function Dokumentinfomeldungen_laden()
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokumentinfomeldung_select"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
If Me.CreateDocument Then
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumenttypnr))
|
|
Else
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
End If
|
|
sdaAdapter.Fill(dtToReturn)
|
|
|
|
'Release 4.0 KC 01.06.2007 XMl Daten berücksichtigen (DokumentBearbeitung.edka)
|
|
Dim objDokumentWert As AvaloqDokumentWert
|
|
For i = 0 To dtToReturn.Rows.Count - 1
|
|
objDokumentWert = objAvaloqDokumentWerte.getAvaloqDokumentWertByName(dtToReturn.Rows(i).Item(0))
|
|
|
|
If objDokumentWert Is Nothing = False Then
|
|
dtToReturn.Rows(i).Item(2) = objDokumentWert.value
|
|
'dtToReturn.Rows(i).Item(5) = objDokumentWert.dataType
|
|
End If
|
|
Next
|
|
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokumentinfomeldung_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Private Function DokumentwertListe_laden() As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokumentbearbeitung_Dokumentwerte"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentID))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumenttypnr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@CreateNew", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
|
|
'Release 4.0 KC 01.06.2007 XMl Daten berücksichtigen (DokumentBearbeitung.edka)
|
|
|
|
For i = 0 To dtToReturn.Rows.Count - 1
|
|
Dim objDokumentWert As AvaloqDokumentWert
|
|
If Not dtToReturn.Rows(i).Item(0) Is System.DBNull.Value Then
|
|
objDokumentWert = objAvaloqDokumentWerte.getAvaloqDokumentWertByName(dtToReturn.Rows(i).Item(0))
|
|
End If
|
|
If objDokumentWert Is Nothing = False Then
|
|
dtToReturn.Rows(i).Item(2) = objDokumentWert.value
|
|
End If
|
|
objDokumentWert = Nothing
|
|
Next
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
|
|
End Function
|
|
|
|
Private Sub Formular_Laden_Create_Document()
|
|
NewDokumentID = DivFnkt.Generate_Key()
|
|
Load_Defaults()
|
|
w.save_historystatus = 0
|
|
End Sub
|
|
|
|
Private Sub Load_Defaults()
|
|
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
|
Dim doktyp As New edokadb.clsDokumenttyp()
|
|
doktyp.cpMainConnectionProvider = conn
|
|
doktyp.iDokumenttypnr = New SqlInt32(CType(Me.Dokumenttypnr, Int32))
|
|
doktyp.SelectOne()
|
|
|
|
If doktyp.bFunktionen_zuweisen.Value = True Then
|
|
Dokumentfunktionen_Aktivieren()
|
|
Else
|
|
w.Save_DokumentFunktionen = Generic_Select(6)
|
|
Me.pnlBerechtigungen.Visible = False
|
|
End If
|
|
|
|
'Dokumenttyp-Daten
|
|
If Me.CreateDocument = True Then
|
|
If DivFnkt.Ist_Berechtigt(doktyp.iDokumenttypnr.Value, Globals.MitarbeiterNr, 0, 0, 2, 0, 0, 1) Then
|
|
Me.cvertraulich.Visible = True
|
|
Me.Label18.Visible = True
|
|
Me.cvertraulich.Checked = doktyp.bVertrauliches_dokument.Value = True
|
|
Else
|
|
Me.cvertraulich.Checked = False
|
|
Me.cvertraulich.Visible = False
|
|
Me.Label18.Visible = False
|
|
End If
|
|
Else
|
|
If DivFnkt.Ist_Berechtigt(doktyp.iDokumenttypnr.Value, Globals.MitarbeiterNr, 0, 0, 3, 0, 0, 1) Then
|
|
Me.cvertraulich.Visible = True
|
|
Me.Label18.Visible = True
|
|
Me.cvertraulich.Checked = doktyp.bVertrauliches_dokument.Value = True
|
|
Else
|
|
Me.cvertraulich.Checked = False
|
|
Me.cvertraulich.Visible = False
|
|
Me.Label18.Visible = False
|
|
End If
|
|
End If
|
|
|
|
progress.Bar1a.Value = 20
|
|
progress.Refresh()
|
|
|
|
Me.txtBezeichnung.Text = doktyp.sBezeichnung.Value
|
|
Me.SqlDataAdapter1.SelectCommand.Parameters("@Dokumentid").Value = ""
|
|
Me.SqlDataAdapter1.SelectCommand.Parameters("@Dokumenttypnr").Value = Me.Dokumenttypnr
|
|
Me.SqlDataAdapter1.SelectCommand.Parameters("@CreateNew").Value = 1
|
|
Me.SqlDataAdapter1.Fill(Me.DataSet1)
|
|
|
|
Me.DokWertList.DataSource = Me.DataSet1
|
|
Me.DokWertList.DataMember = Me.DataSet1.Tables(0).TableName
|
|
For i = 3 To Me.DokWertList.Columns.Count - 1
|
|
Me.DokWertList.Splits(0).DisplayColumns(i).Visible = False
|
|
Next
|
|
Me.DokWertList.Splits(0).DisplayColumns(0).Width = 110
|
|
Me.DokWertList.Splits(0).DisplayColumns(1).Width = 60
|
|
Me.DokWertList.Columns(1).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
|
'Me.DokWertList.Splits(0).DisplayColumns(1).Locked = True
|
|
Me.DokWertList.Splits(0).DisplayColumns(0).Locked = True
|
|
Me.DokWertList.Splits(0).DisplayColumns(2).Width = 160
|
|
|
|
'Release 4.0 KC 31.05.2007 XMl Daten berücksichtigen (DokumentErstellung.edka)
|
|
|
|
For i = 0 To Me.DokWertList.RowCount - 1
|
|
Dim objDokumentWert As AvaloqDokumentWert
|
|
If Not Me.DokWertList.Item(i, 0) Is System.DBNull.Value Then
|
|
objDokumentWert = objAvaloqDokumentWerte.getAvaloqDokumentWertByName(Me.DokWertList.Item(i, 0))
|
|
End If
|
|
If objDokumentWert Is Nothing = False Then
|
|
Me.DataSet1.Tables(0).Rows(i).Item("Feldwert") = objDokumentWert.value
|
|
'Me.DataSet1.Tables(0).Rows(i).Item("Feldtyp") = objDokumentWert.dataType
|
|
End If
|
|
objDokumentWert = Nothing
|
|
Next
|
|
'KC 2008-05-07 Zusatzanfoderung Rel 4.0 DokInfoWerte alle abfüllen (Filter auf Liste)
|
|
Me.DokWertList.AllowFilter = True
|
|
Me.DokWertList.FilterActive = False
|
|
For i = 0 To Me.DokWertList.Columns.Count - 1
|
|
Me.DokWertList.Columns(i).FilterText = ""
|
|
If Me.DokWertList.Columns(i).DataField = "userinterface" Then
|
|
Me.DokWertList.Columns(i).FilterText = True
|
|
End If
|
|
Next
|
|
Me.mcbstatus = New MultiComboBox(Me.cbdokumentstatus)
|
|
Me.mcbstatus.CheckNullValue = True
|
|
Me.mcbstatus.NullValueMessage = MyTxt.gettext(18)
|
|
Me.mcbstatus.DisplayColumnName = "Bezeichnung"
|
|
Me.mcbstatus.ValueColumnName = "dokumentstatusnr"
|
|
Me.mcbstatus.Fill_Data(Generic_Select(2), False)
|
|
|
|
Me.mcbkube = New MultiComboBox(Me.cbKube)
|
|
Me.mcbkube.CheckNullValue = True
|
|
Me.mcbkube.NullValueMessage = MyTxt.gettext(18)
|
|
Me.mcbkube.DisplayColumnName = "name"
|
|
Me.mcbkube.ValueColumnName = "mitarbeiternr"
|
|
Me.mcbkube.Fill_Data(Generic_Select(8), False)
|
|
|
|
progress.Bar1a.Value = 30
|
|
progress.Refresh()
|
|
|
|
|
|
'Postzustellung
|
|
Me.SqlDataAdapter2.SelectCommand.Parameters("@mandantnr").Value = Globals.MandantNr
|
|
Me.SqlDataAdapter2.SelectCommand.Parameters("@sprache").Value = Globals.Sprache
|
|
Me.SqlDataAdapter2.Fill(Me.DataSet2)
|
|
|
|
mcbpostzustellung = New MultiComboBox(Me.cbPostzustellung)
|
|
Me.mcbpostzustellung.DisplayColumnName = "bezeichnung"
|
|
Me.mcbpostzustellung.ValueColumnName = "nreintrag"
|
|
Dim d As DataTable
|
|
d = Me.DataSet2.Tables(0)
|
|
Me.mcbpostzustellung.Fill_Data(d, False)
|
|
Me.mcbpostzustellung.Enabled = True
|
|
Me.mcbpostzustellung.CheckNullValue = False
|
|
|
|
mcbzust = New MultiComboBox(Me.cbzust)
|
|
Me.mcbzust.DisplayColumnName = "name"
|
|
Me.mcbzust.ValueColumnName = "mitarbeiternr"
|
|
Me.mcbzust.Fill_Data(Generic_Select(3), False)
|
|
ii = Globals.MitarbeiterNr
|
|
Me.mcbzust.SelectedValue = ii
|
|
|
|
progress.Bar1a.Value = 40
|
|
progress.Refresh()
|
|
|
|
mcbunterschriftlinks = New MultiComboBox(Me.cbUnterschriftlinks)
|
|
Me.mcbunterschriftlinks.DisplayColumnName = "name"
|
|
Me.mcbunterschriftlinks.ValueColumnName = "mitarbeiternr"
|
|
For i = 0 To Me.Profile.Rows.Count - 1
|
|
If Me.Profile.Rows(i).Item("profilnr") = Me.Profilnr Then
|
|
CurrentProfil = i
|
|
End If
|
|
Next
|
|
ii = Me.Profile.Rows(CurrentProfil).Item("unterschriftlinks")
|
|
Me.mcbunterschriftlinks.Fill_Data(Generic_Select(3), True)
|
|
Me.mcbunterschriftlinks.SelectedValue = ii
|
|
|
|
mcbunterschriftrechts = New MultiComboBox(Me.cbUnterschriftrechts)
|
|
Me.mcbunterschriftrechts.DisplayColumnName = "name"
|
|
Me.mcbunterschriftrechts.ValueColumnName = "mitarbeiternr"
|
|
For i = 0 To Me.Profile.Rows.Count - 1
|
|
If Me.Profile.Rows(i).Item("profilnr") = Me.Profilnr Then
|
|
CurrentProfil = i
|
|
End If
|
|
Next
|
|
ii = Me.Profile.Rows(CurrentProfil).Item("unterschriftrechts")
|
|
Me.mcbunterschriftrechts.Fill_Data(Generic_Select(3), True)
|
|
Me.mcbunterschriftrechts.SelectedValue = ii
|
|
|
|
Me.mcbunterschriftlinks.CheckNullValue = False
|
|
Me.mcbunterschriftrechts.CheckNullValue = False
|
|
|
|
Me.mcbverantwortlich = New MultiComboBox(cbVerantwortlich)
|
|
Me.mcbverantwortlich.DisplayColumnName = "mitarbeiter"
|
|
Me.mcbverantwortlich.ValueColumnName = "mitarbeiternr"
|
|
FillMcbVerantwortlich()
|
|
|
|
Me.rbZustaendigKube.Checked = False
|
|
Me.RBZustaendigZustaendiger.Checked = True
|
|
Me.txtZustelladresse.Text = ""
|
|
|
|
If doktyp.bUnterschrift_links.Value = False Then Me.mcbunterschriftlinks.Enabled = False
|
|
If doktyp.bUnterschrift_rechts.Value = False Then Me.mcbunterschriftrechts.Enabled = False
|
|
If doktyp.bUnterschrift_links.Value = True Then Me.mcbunterschriftlinks.Enabled = True
|
|
If doktyp.bUnterschrift_rechts.Value = True Then Me.mcbunterschriftrechts.Enabled = True
|
|
|
|
progress.Bar1a.Value = 50
|
|
progress.Refresh()
|
|
|
|
Me.zu_retournieren = doktyp.bZu_retournieren.Value
|
|
|
|
doktyp.Dispose()
|
|
|
|
'Dokument ersetzen
|
|
Me.Dokumentersetzen = Dokumentersetzen_Laden()
|
|
w.save_dokumentersetzen = Dokumentersetzen_Laden()
|
|
Me.ColdList.DataSource = Me.Dokumentersetzen
|
|
Me.ColdList.Columns("aktiv").FilterText = True
|
|
Me.ColdList.FilterBar = False
|
|
DivFnkt.SpaltenTitel_Aktualisieren(Me.ColdList, Me.Dokumentersetzen, "dokumentersetzen")
|
|
If doktyp.bCold_ersetzen.Value <> True Then
|
|
Me.ErsetzenMoeglich = False
|
|
Else
|
|
Me.ErsetzenMoeglich = True
|
|
End If
|
|
|
|
'Notizen
|
|
Notizen = Notizen_Laden()
|
|
Me.Notizlist.DataSource = Notizen
|
|
DivFnkt.SpaltenTitel_Aktualisieren(Me.Notizlist, Me.Notizen, "notizen")
|
|
|
|
progress.Bar1a.Value = 60
|
|
progress.Refresh()
|
|
|
|
'Dokumentzuordnungen
|
|
Me.Dokumentzuorndungen = Dokumentzuordnungen_Laden()
|
|
w.Save_Dokumentzuordnungen = Dokumentzuordnungen_Laden()
|
|
Me.ZuordnungList.DataSource = Me.Dokumentzuorndungen
|
|
|
|
DivFnkt.SpaltenTitel_Aktualisieren(Me.ZuordnungList, Me.Dokumentzuorndungen, "dokumentzuordnungen")
|
|
Me.ZuordnungList.Columns("aktiv").FilterText = True
|
|
Me.ZuordnungList.FilterBar = False
|
|
|
|
Me.ZuordnungList.Columns("zuordnungnr").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.ComboBox
|
|
|
|
Dim dxx As New SqlDataAdapter("Select zuordnungnr, bezeichnung from zuordnung", Globals.sConnectionString)
|
|
Dim dh As New DataSet()
|
|
dxx.Fill(dh, "dd")
|
|
Dim vv(100)
|
|
For i = 0 To dh.Tables(0).Rows.Count - 1
|
|
vv(i) = New C1.Win.C1TrueDBGrid.ValueItem()
|
|
vv(i).DisplayValue = dh.Tables(0).Rows(i).Item("bezeichnung")
|
|
vv(i).Value = dh.Tables(0).Rows(i).Item("zuordnungnr")
|
|
Me.ZuordnungList.Columns("zuordnungnr").ValueItems.Values.Add(vv(i))
|
|
Me.ZuordnungList.Columns("zuordnungnr").ValueItems.Translate = True
|
|
Next
|
|
|
|
|
|
progress.Bar1a.Value = 70
|
|
progress.Refresh()
|
|
|
|
'Dokumentinfomeldungen
|
|
Me.InfoMeldungList.FetchRowStyles = True
|
|
Me.DokumentInfoMeldungen = Dokumentinfomeldungen_laden()
|
|
w.Save_Dokumentinfomeldungen = Dokumentinfomeldungen_laden()
|
|
Me.InfoMeldungList.DataSource = Me.DokumentInfoMeldungen
|
|
Me.InfoMeldungList.Columns("aktiv").FilterText = True
|
|
DivFnkt.SpaltenTitel_Aktualisieren(Me.InfoMeldungList, Me.DokumentInfoMeldungen, "Dokumentinfomeldung")
|
|
|
|
'Team
|
|
Me.mcbteam = New MultiComboBox(Me.cbteam)
|
|
Me.mcbteam.CheckNullValue = True
|
|
Me.mcbteam.NullValueMessage = MyTxt.gettext(18)
|
|
Me.mcbteam.DisplayColumnName = "bezeichnung"
|
|
Me.mcbteam.ValueColumnName = "teamnr"
|
|
refresh_team()
|
|
Me.mcbteam.SelectedIndex = 0
|
|
|
|
progress.Bar1a.Value = 80
|
|
progress.Refresh()
|
|
|
|
Me.mcbstatus.SelectedIndex = 0
|
|
Me.savestatus = Me.mcbstatus.SelectedValue
|
|
Me.firststatus = Me.savestatus
|
|
Me.saveverantwortlicher = Globals.MitarbeiterNr
|
|
|
|
Me.moeglichestati = Generic_Select(15)
|
|
Me.cbmoeglicheStati.Items.Clear()
|
|
Me.funktionsliste = ""
|
|
' Dim i As Integer
|
|
settooltip()
|
|
For i = 0 To Me.moeglichestati.Rows.Count - 1
|
|
Me.cbmoeglicheStati.Items.Add(Me.moeglichestati.Rows(i).Item("bezeichnung"))
|
|
Next
|
|
Me.btnPartnerInhaber.Enabled = True
|
|
'20080402: RGL: setzt standardwerte von automatisiert von avaloq her chond
|
|
SetDefaultValues()
|
|
|
|
End Sub
|
|
|
|
Private Sub SetDefaultValues()
|
|
'Try
|
|
' Me.Partnerwechsel = True
|
|
' If Me.Partnerwechsel = True Then Me.btnPartnerInhaber.Enabled = True Else Me.btnPartnerInhaber.Enabled = False
|
|
' If Me.Statuswechsel = True Then Me.cbdokumentstatus.Enabled = True Else Me.cbdokumentstatus.Enabled = False
|
|
' If Me.Verantwortlicherwechsel = True Then Me.cbVerantwortlich.Enabled = True Else Me.cbVerantwortlich.Enabled = False
|
|
|
|
|
|
|
|
' If Not IsNothing(Me.Zustaendiger) Then
|
|
' mcbzust.SelectedValue = Me.Zustaendiger
|
|
' End If
|
|
' If Not IsNothing(Me.UnterschriftLinks) Then
|
|
' mcbunterschriftlinks.SelectedValue = Me.UnterschriftLinks
|
|
' End If
|
|
' If Not IsNothing(Me.Unterschriftrechts) Then
|
|
' mcbunterschriftrechts.SelectedValue = Me.Unterschriftrechts
|
|
' End If
|
|
' If Not IsNothing(Me.Verantwortlicher) Then
|
|
' mcbverantwortlich.SelectedValue = Me.Verantwortlicher
|
|
' End If
|
|
'Catch ex As Exception
|
|
' TKBLib.Errorhandling.TraceHelper.Msg("EdokaApp.frmDokumentBearbeitungED.SetDefaultValues()", ex.Message & ex.StackTrace, TraceLevel.Error)
|
|
' Throw ex
|
|
'End Try
|
|
End Sub
|
|
|
|
Public Sub DoNoEdit()
|
|
Me.On_Load = True
|
|
w.save_stv = Globals.stv
|
|
Me.TabControl2.Enabled = True
|
|
If Me.CreateDocument Then
|
|
progress.Bar1a.Value = 10
|
|
progress.Info.Text = "Vorbereitung Dokumenterstellung"
|
|
progress.Refresh()
|
|
progress.Show()
|
|
progress.Refresh()
|
|
|
|
Formular_Laden_Create_Document()
|
|
progress.Bar1a.Value = 90
|
|
progress.Refresh()
|
|
|
|
If Me.Partnernr <> "" Then
|
|
If DivFnkt.Ist_Berechtigt(Me.Dokumenttypnr, Globals.MitarbeiterNr, Me.Partnernr, "", 2, 0, 0, 0) Then
|
|
Dim f As New FrmPartnersuche()
|
|
f.Dokumenterstellen = True
|
|
f.Dokumenttypnrnr = Me.Dokumenttypnr
|
|
f.Partner_Suche(Me.Partnernr)
|
|
Me.txtPartnerInhaber.Text = Str(f.PartnerNr) + " " + f.PartnerKurzbezeichnnung
|
|
Me.txtPartnerInhaberNr.Text = f.PartnerNr
|
|
Me.txtPartnerZusteller.Text = Me.get_partnerzusteller(f.PartnerNr)
|
|
Me.VIBeachten = f.VIBeachten
|
|
f.Dispose()
|
|
'edex Banklagernd
|
|
Banklagernd_Check()
|
|
|
|
Else
|
|
MyMsg.show_standardmessage(30, MsgBoxStyle.Critical)
|
|
Me.Close()
|
|
End If
|
|
Else
|
|
' btnPartnerInhaber_Click(sender, e)
|
|
End If
|
|
If Val(Me.txtPartnerInhaberNr.Text) > 91000000 Then
|
|
Me.cbKube.SelectedValue = Globals.MitarbeiterNr
|
|
End If
|
|
Me.cbmoeglicheStati.Visible = False
|
|
Me.cbsave.Visible = False
|
|
Else
|
|
Formular_laden_Edit_Document()
|
|
Dim bc As New DataTable()
|
|
bc = Generic_Select(11)
|
|
If bc.Rows.Count > 0 Then
|
|
Me.BarcodeID = LTrim(Str(bc.Rows(0).Item(0)))
|
|
End If
|
|
bc.Dispose()
|
|
Me.cbmoeglicheStati.Visible = True
|
|
Me.cbsave.Visible = True
|
|
End If
|
|
Me.cdokumentwerteanzeigen.Visible = False
|
|
|
|
Me.On_Load = False
|
|
If Me.Dokument_Ist_Abgeschlossen Then bereiche_sperren()
|
|
If Me.VIBeachten = True Then
|
|
Me.PicVIBeachten.Visible = True
|
|
Me.LabelVIBeachten.Visible = True
|
|
Else
|
|
Me.PicVIBeachten.Visible = False
|
|
Me.LabelVIBeachten.Visible = False
|
|
End If
|
|
progress.Close()
|
|
progress.Dispose()
|
|
|
|
'Me.Visible = True
|
|
'Anzeige der Hinweismeldung, dass es sich um ein Einzeldokument handelt
|
|
If MyMsg.Show_HinweisMessage(Me.Profilnr, 3, 96, 1) = False Then
|
|
Exit Sub
|
|
End If
|
|
If Val(Me.txtPartnerInhaberNr.Text) > 91000000 Then
|
|
If DivFnkt.EDOKA_Partner_Dokument(3, Me.Dokumenttypnr) = False Then
|
|
MyMsg.show_standardmessage(110, MsgBoxStyle.Critical)
|
|
Exit Sub
|
|
End If
|
|
End If
|
|
If Me.check_existing_address = True And Trim(Me.txtZustelladresse.Text) = "" Then
|
|
MyMsg.show_standardmessage(610, MsgBoxStyle.Critical)
|
|
Exit Sub
|
|
End If
|
|
Try
|
|
Dim p As New edokadb.clsPartner()
|
|
p.cpMainConnectionProvider = conn
|
|
p.iNRPAR00 = New SqlInt32(CType(Trim(Me.txtPartnerInhaberNr.Text), Int32))
|
|
p.SelectOne()
|
|
If p.bSaldiert.Value = True Then
|
|
Dim dt As New edokadb.clsDokumenttyp()
|
|
dt.cpMainConnectionProvider = conn
|
|
dt.iDokumenttypnr = New SqlInt32(CType(Me.Dokumenttypnr, Int32))
|
|
dt.SelectOne()
|
|
If dt.bVertrag.Value = True Then
|
|
MyMsg.show_standardmessage(234, MsgBoxStyle.Critical)
|
|
dt.Dispose()
|
|
p.Dispose()
|
|
Exit Sub
|
|
End If
|
|
dt.Dispose()
|
|
End If
|
|
p.Dispose()
|
|
Catch
|
|
End Try
|
|
Dim xdata As DataTable
|
|
Dim s As String
|
|
'SHU
|
|
' Meldung wird bei Formularaufbau angezeigt
|
|
'If MyMsg.Show_HinweisMessage(Me.Profilnr, 3, 96, 1) = False Then
|
|
' Exit Sub
|
|
'End If
|
|
|
|
If Me.txtPartnerInhaber.Text = "" Then
|
|
Me.txtPartnerInhaber.Text = "1"
|
|
Me.txtPartnerInhaberNr.Text = "1"
|
|
End If
|
|
If Check_Dokumentfunktionen() = False Then Exit Sub
|
|
xdata = Me.DataSet1.Tables(0)
|
|
For i = 0 To xdata.Rows.Count - 1
|
|
If xdata.Rows(i).Item("zwingend") Is System.DBNull.Value Then
|
|
Else
|
|
If xdata.Rows(i).Item("zwingend") = True Then
|
|
If xdata.Rows(i).Item("feldwert") Is System.DBNull.Value Or xdata.Rows(i).Item("feldwert") = "" Then
|
|
MyMsg.show_standardmessage(206, MsgBoxStyle.Critical)
|
|
Me.DokWertList.Focus()
|
|
xdata.Dispose()
|
|
Exit Sub
|
|
End If
|
|
End If
|
|
End If
|
|
Next
|
|
If Me.mcbteam.SelectedValue = 0 Then
|
|
MyMsg.show_standardmessage(207, MsgBoxStyle.Critical)
|
|
Me.mcbteam.Focus()
|
|
Exit Sub
|
|
End If
|
|
xdata.Dispose()
|
|
Me.btnWeiter.Enabled = False
|
|
Dokument_Bearbeiten(Me.CreateDocument)
|
|
|
|
End Sub
|
|
|
|
Public Sub refresh_team()
|
|
Dim tt As New DataTable()
|
|
tt = Generic_Select(7)
|
|
Me.mcbteam.DataSource = Nothing
|
|
Me.mcbteam.Items.Clear()
|
|
If tt.Rows.Count > 1 Then
|
|
Me.mcbteam.Fill_Data(tt, False)
|
|
Me.mcbteam.Enabled = True
|
|
Else
|
|
Me.mcbteam.Fill_Data(tt, False)
|
|
Me.mcbteam.Enabled = False
|
|
End If
|
|
tt.Dispose()
|
|
End Sub
|
|
|
|
Private Sub mcbzust_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles mcbzust.Leave
|
|
If Me.On_Load Then Exit Sub
|
|
refresh_team()
|
|
End Sub
|
|
|
|
Private Sub mcbkube_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles mcbkube.Leave
|
|
If Me.On_Load Then Exit Sub
|
|
refresh_team()
|
|
End Sub
|
|
|
|
|
|
|
|
#End Region
|
|
|
|
#Region "Formularhandling"
|
|
Private Sub Set_Feldwert()
|
|
Try
|
|
'Me.DokWertList.Columns("feldwert").Value = Me.ValueList.Columns(0).Value
|
|
'Me.DokWertList.Columns("feldwert").Value = Me.Datumselect.Text
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub btnPartnerInhaber_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPartnerInhaber.Click
|
|
Dim f As New FrmPartnersuche()
|
|
f.Dokumenttypnrnr = Me.Dokumenttypnr
|
|
f.profilnr = Me.Profilnr
|
|
f.NurAbfrage = False
|
|
f.ShowDialog()
|
|
If f.PartnerNr <> 0 Then
|
|
If DivFnkt.Ist_Berechtigt(Me.Dokumenttypnr, Globals.MitarbeiterNr, f.PartnerNr, "", 2, 0, 0, 0) Then
|
|
If Me.txtPartnerInhaber.Text <> "" And Me.txtPartnerInhaber.Text <> Str(f.PartnerNr) + " " + f.PartnerKurzbezeichnnung Then
|
|
MyMsg.show_standardmessage(73, MsgBoxStyle.Information)
|
|
End If
|
|
Me.txtPartnerInhaber.Text = Str(f.PartnerNr) + " " + f.PartnerKurzbezeichnnung
|
|
Me.txtPartnerInhaberNr.Text = f.PartnerNr
|
|
Me.txtPartnerZusteller.Text = Me.get_partnerzusteller(f.PartnerNr)
|
|
Me.TabControl2.Enabled = True
|
|
Me.RBZustaendigZustaendiger.Checked = True
|
|
Me.mcbkube.DataSource = Nothing
|
|
Me.mcbkube.Text = ""
|
|
Me.mcbkube.Items.Clear()
|
|
Me.Partnernr = f.PartnerNr
|
|
Me.VIBeachten = f.VIBeachten
|
|
FillMcbVerantwortlich()
|
|
'EDEX Banklagernd
|
|
Banklagernd_Check()
|
|
|
|
|
|
Else
|
|
MyMsg.show_standardmessage(30, MsgBoxStyle.Critical)
|
|
Me.Close()
|
|
End If
|
|
If Me.VIBeachten = True Then
|
|
Me.PicVIBeachten.Visible = True
|
|
Me.LabelVIBeachten.Visible = True
|
|
Else
|
|
Me.PicVIBeachten.Visible = False
|
|
Me.LabelVIBeachten.Visible = False
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
'EDEX Banklagernd
|
|
Private Function check_banklagernd() As Integer
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim i As Integer
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.sp_check_banklagernd"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtPartnerInhaberNr.Text))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@banklagernd", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return scmCmdToExecute.Parameters.Item("@banklagernd").Value
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
|
|
Private Sub Datumselect_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
Set_Feldwert()
|
|
End Sub
|
|
|
|
Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
|
|
If Me.CreateDocument = False Then
|
|
DivFnkt.Status_Dokumentbearbeitung(2, Me.DokumentID, False, "")
|
|
If Globals.Dokumentcoldindex_Changed Then Archivfnkt.Restore_Coldindex(Globals.general_ds.Tables(0), Me.DokumentID)
|
|
If Globals.dokumentid_changed Then Archivfnkt.change_dokumentid(DokumentID, Globals.Dokumentidalt)
|
|
Else
|
|
Update_Bclabel(2)
|
|
End If
|
|
|
|
Me.Close()
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "Datenhandling"
|
|
Private Function Generic_Select(ByVal typ As Integer) As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
|
Select Case typ
|
|
Case 1
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokumentbearbeitung_DokWertList"
|
|
Case 2
|
|
scmCmdToExecute.CommandText = "SP_Dokumentbearbeitung_StatusSelektion"
|
|
Case 3
|
|
scmCmdToExecute.CommandText = "SP_Dokumentbearbeitung_Mitarbeiter"
|
|
Case 4
|
|
scmCmdToExecute.CommandText = "SP_Dokumentbearbeitung_Notizen"
|
|
Case 5
|
|
scmCmdToExecute.CommandText = "sp_funktion_zuweisung_gestattet"
|
|
Case 6
|
|
scmCmdToExecute.CommandText = "sp_dokumentfunktion_zugewiesen"
|
|
Case 7
|
|
scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_team"
|
|
Case 8
|
|
scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_kube"
|
|
Case 9
|
|
scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_coldindex"
|
|
Case 10
|
|
scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_dokumentwerte_select"
|
|
Case 11
|
|
scmCmdToExecute.CommandText = "sp_dokument_als_bcdokument"
|
|
Case 12
|
|
scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_statushistory"
|
|
Case 13
|
|
scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_ist_kundenberater"
|
|
Case 14
|
|
scmCmdToExecute.CommandText = "sp_archiv_getschema_doc"
|
|
Case 15
|
|
scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_statuswechsel"
|
|
Case 16
|
|
scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_statuswechsel_funktionen"
|
|
Case 17
|
|
'Mitarbeiter
|
|
scmCmdToExecute.CommandText = "dbo.SP_ValueSelect"
|
|
|
|
|
|
Case Else
|
|
End Select
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
Select Case typ
|
|
Case 1
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtPartnerInhaberNr.Text))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@regel", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokWertList.Columns("datenherkunft").Value))
|
|
Case 2
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumenttypnr))
|
|
If Me.DokumentID = Nothing Then Me.DokumentID = ""
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID))
|
|
If Me.CreateDocument = True Then
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
|
|
Else
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 2))
|
|
End If
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
If Globals.bckdokument = False Then
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bck", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
Else
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bck", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
|
|
End If
|
|
Case 5
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
Case 6
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.NewDokumentID))
|
|
Case 7
|
|
If Me.teamzustaendig = Globals.MitarbeiterNr Then
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@profilnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Profilnr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
Else
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@profilnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.teamzustaendig))
|
|
End If
|
|
Case 8
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@partnernr", SqlDbType.VarChar, 20, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtPartnerInhaberNr.Text))
|
|
Case 9
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID))
|
|
Case 10
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID))
|
|
Case 11
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID))
|
|
Case 12
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID))
|
|
Case 13
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtPartnerInhaberNr.Text))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
Case 14
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumenttypnr))
|
|
Case 15
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@currentstatus", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
Case 16
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@currentstatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.selectedstatus))
|
|
Case 17
|
|
'Mitarbeiter
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@Datenherkunft", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "&AlleMitarbeiter&"))
|
|
|
|
Case Else
|
|
End Select
|
|
If typ = 1 Then
|
|
End If
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
Private Sub load_Mitarbeiter()
|
|
conn.OpenConnection()
|
|
Dim t As DataTable
|
|
t = Generic_Select(17)
|
|
|
|
Me.drpMiatarbeiter.DataSource = t
|
|
Me.drpMiatarbeiter.ListField = "FullName"
|
|
Me.drpMiatarbeiter.DataField = "mitarbeiternr"
|
|
Me.drpMiatarbeiter.ValueTranslate = True
|
|
Me.Notizlist.Columns("mutierer").DropDown = Me.drpMiatarbeiter
|
|
conn.CloseConnection(True)
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "Notizen"
|
|
|
|
Private Sub Notizlist_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
|
|
If Me.Notizen.Rows.Count = 0 Then Exit Sub
|
|
Try
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub MnuDeleteNotiz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuDeleteNotiz.Click
|
|
Try
|
|
Me.Notizlist.Columns(5).Value = False
|
|
Me.Notizlist.Refresh()
|
|
Me.TabControl2.Select()
|
|
Me.Notizlist.Select()
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub MnuNeueNotiz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuNeueNotiz.Click
|
|
Dim f As New frmNotizen()
|
|
f.Mutierer = Globals.MitarbeiterNr.ToString
|
|
|
|
f.Notiz = ""
|
|
f.Betreff = ""
|
|
|
|
f.ShowDialog()
|
|
If f.DialogResult = DialogResult.OK Then
|
|
Dim rc As DataRowCollection
|
|
Dim newrow As DataRow
|
|
|
|
rc = Notizen.Rows
|
|
Dim rowvals(Me.Notizen.Columns.Count - 1) As Object
|
|
' For i = 0 To Me.Notizen.Columns.Count - 1
|
|
' MsgBox(Me.Notizen.Columns(i).Caption)
|
|
' Next
|
|
rowvals(0) = System.DBNull.Value
|
|
rowvals(2) = f.Betreff
|
|
rowvals(3) = f.Notiz
|
|
rowvals(5) = True 'Aktiv
|
|
rowvals(6) = Now() 'erstellt_am
|
|
rowvals(7) = Now() 'mutiert_am
|
|
rowvals(8) = Globals.MitarbeiterNr 'mutierer
|
|
newrow = rc.Add(rowvals)
|
|
Me.Notizlist.DataSource = Nothing
|
|
Me.Notizlist.DataSource = Me.Notizen
|
|
load_Mitarbeiter()
|
|
|
|
DivFnkt.SpaltenTitel_Aktualisieren(Me.Notizlist, Me.Notizen, "notizen")
|
|
|
|
' Me.Notizlist.Refresh()
|
|
Try
|
|
For i = 0 To Me.Notizlist.Splits(0).Rows.Count - 1
|
|
If Me.Notizlist.Columns("betreff").CellText(i) = f.Betreff Then
|
|
Me.Notizlist.Bookmark = i
|
|
End If
|
|
Next
|
|
Catch
|
|
End Try
|
|
End If
|
|
f.Hide()
|
|
End Sub
|
|
|
|
Private Sub MnuEditNotiz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuEditNotiz.Click
|
|
Dim f As New frmNotizen()
|
|
f.Betreff = Me.Notizlist.Columns("betreff").Value
|
|
f.Notiz = Me.Notizlist.Columns("Notiz").Value
|
|
f.Mutierer = Me.Notizlist.Columns("Mutierer").Text
|
|
f.MutiertAm = Me.Notizlist.Columns("Mutiert_Am").Text
|
|
|
|
f.ShowDialog()
|
|
If f.DialogResult = DialogResult.OK Then
|
|
Me.Notizlist.Columns("betreff").Value = f.Betreff
|
|
Me.Notizlist.Columns("notiz").Value = f.Notiz
|
|
Me.Notizlist.Columns("Mutierer").Value = Globals.MitarbeiterNr
|
|
Me.Notizlist.Columns("Mutiert_Am").Text = Now()
|
|
End If
|
|
f.Dispose()
|
|
End Sub
|
|
|
|
Private Sub Notizlist_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
MnuEditNotiz_Click(sender, e)
|
|
End Sub
|
|
Private Sub Notizlist_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Notizlist.MouseDown
|
|
Me.Notizlist.Bookmark = Me.Notizlist.RowContaining(e.Y)
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "Dokumentwertliste"
|
|
Private Sub MnuValueSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuValueSelect.Click, DokWertList.DoubleClick
|
|
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
|
|
Dim s As String
|
|
Select Case UCase(Me.DokWertList.Columns("feldtyp").Value)
|
|
Case "DATUMSHORT"
|
|
Dim f As New frmCalendar()
|
|
f.ShowDialog()
|
|
If f.DialogResult = DialogResult.OK Then
|
|
s = f.MonthCalendar1.SelectionStart.ToShortDateString
|
|
Me.DokWertList.Columns("feldwert").Value = s
|
|
End If
|
|
f.Dispose()
|
|
Case "DATUMMEDIUM"
|
|
Dim f As New frmCalendar()
|
|
f.ShowDialog()
|
|
If f.DialogResult = DialogResult.OK Then
|
|
s = f.MonthCalendar1.SelectionStart
|
|
s = Format(f.MonthCalendar1.SelectionStart, "dd. MMMM yyyy")
|
|
Me.DokWertList.Columns("feldwert").Value = s
|
|
End If
|
|
f.Dispose()
|
|
Case "DATUMLONG"
|
|
Dim f As New frmCalendar()
|
|
f.ShowDialog()
|
|
If f.DialogResult = DialogResult.OK Then
|
|
s = f.MonthCalendar1.SelectionStart.ToLongDateString
|
|
Me.DokWertList.Columns("feldwert").Value = s
|
|
End If
|
|
f.Dispose()
|
|
|
|
Case "TEXT"
|
|
If Microsoft.VisualBasic.Left(Me.DokWertList.Columns("Datenherkunft").Value, 8) = "&Partner" Then
|
|
Dim f As New FrmPartnersuche()
|
|
f.ShowDialog()
|
|
If f.PartnerNr <> 0 Then
|
|
Me.DokWertList.Columns("feldwert").Value = Str(f.PartnerNr) + "-" + f.PartnerKurzbezeichnnung
|
|
End If
|
|
f.Dispose()
|
|
Else
|
|
If Microsoft.VisualBasic.Left(Me.DokWertList.Columns("Datenherkunft").Value, 1) = "&" Then
|
|
Dim f As New frmValueSelector()
|
|
If Me.DokWertList.Columns("Datenherkunft").Value = "&SekPartnerVV&" Then
|
|
Dim ss As String
|
|
Dim ii As Integer
|
|
For i = 0 To Me.DokWertList.Splits(0).Rows.Count - 1
|
|
If Me.DokWertList.Columns("datenherkunft").CellValue(i) = "&Partner&" Then
|
|
ss = Me.DokWertList.Columns("feldwert").CellText(i)
|
|
End If
|
|
Next
|
|
'ss = Me.DokWertList.Columns("feldwert").CellText(0)
|
|
ii = InStr(ss, "-")
|
|
If ii < 1 Then Exit Sub
|
|
f.Partnernr = LTrim(Microsoft.VisualBasic.Left(ss, ii - 1))
|
|
Else
|
|
If Me.DokWertList.Columns("Datenherkunft").Value = "&TerPartnerVV&" Then
|
|
Dim ss As String
|
|
Dim ii As Integer
|
|
For i = 0 To Me.DokWertList.Splits(0).Rows.Count - 1
|
|
If Me.DokWertList.Columns("datenherkunft").CellValue(i) = "&Partner3&" Then
|
|
ss = Me.DokWertList.Columns("feldwert").CellText(i)
|
|
End If
|
|
Next
|
|
'ss = Me.DokWertList.Columns("feldwert").CellText(0)
|
|
ii = InStr(ss, "-")
|
|
If ii < 1 Then Exit Sub
|
|
f.Partnernr = LTrim(Microsoft.VisualBasic.Left(ss, ii - 1))
|
|
Else
|
|
f.partnernr = Me.txtPartnerInhaberNr.Text()
|
|
End If
|
|
End If
|
|
f.Text = f.Text + Me.DokWertList.Columns(0).Value
|
|
f.Datenherkunft = Me.DokWertList.Columns("Datenherkunft").Value
|
|
'f.partnernr = Me.txtPartnerInhaberNr.Text()
|
|
f.LoadData()
|
|
If f.Datenvorhanden = True Then
|
|
f.ShowDialog()
|
|
If f.DialogResult = DialogResult.OK Then Me.DokWertList.Columns("feldwert").Value = f.SelWert
|
|
End If
|
|
f.Dispose()
|
|
End If
|
|
End If
|
|
Case Else
|
|
End Select
|
|
Me.Cursor = System.Windows.Forms.Cursors.Default
|
|
End Sub
|
|
|
|
Private Sub DokwertList_RowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles DokWertList.RowColChange
|
|
Try
|
|
Me.DokWertList.Columns("feldwert").EditMask = Me.DokWertList.Columns("eingabeformat").Value
|
|
Me.DokWertList.Columns("feldwert").EditMaskUpdate = True
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
|
|
#Region "Dokumenterstellung"
|
|
|
|
Private Sub btnWeiter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWeiter.Click
|
|
If Val(Me.txtPartnerInhaberNr.Text) > 91000000 Then
|
|
If DivFnkt.EDOKA_Partner_Dokument(3, Me.Dokumenttypnr) = False Then
|
|
MyMsg.show_standardmessage(110, MsgBoxStyle.Critical)
|
|
Exit Sub
|
|
End If
|
|
End If
|
|
If Me.check_existing_address = True And Trim(Me.txtZustelladresse.Text) = "" Then
|
|
MyMsg.show_standardmessage(610, MsgBoxStyle.Critical)
|
|
Exit Sub
|
|
End If
|
|
Try
|
|
Dim p As New edokadb.clsPartner()
|
|
p.cpMainConnectionProvider = conn
|
|
p.iNRPAR00 = New SqlInt32(CType(Trim(Me.txtPartnerInhaberNr.Text), Int32))
|
|
p.SelectOne()
|
|
If p.bSaldiert.Value = True Then
|
|
Dim dt As New edokadb.clsDokumenttyp()
|
|
dt.cpMainConnectionProvider = conn
|
|
dt.iDokumenttypnr = New SqlInt32(CType(Me.Dokumenttypnr, Int32))
|
|
dt.SelectOne()
|
|
If dt.bVertrag.Value = True Then
|
|
MyMsg.show_standardmessage(234, MsgBoxStyle.Critical)
|
|
dt.Dispose()
|
|
p.Dispose()
|
|
Exit Sub
|
|
End If
|
|
dt.Dispose()
|
|
End If
|
|
p.Dispose()
|
|
Catch
|
|
End Try
|
|
Dim xdata As DataTable
|
|
Dim s As String
|
|
'SHU
|
|
' Meldung wird bei Formularaufbau angezeigt
|
|
'If MyMsg.Show_HinweisMessage(Me.Profilnr, 3, 96, 1) = False Then
|
|
' Exit Sub
|
|
'End If
|
|
|
|
If Me.txtPartnerInhaber.Text = "" Then
|
|
Me.txtPartnerInhaber.Text = "9999999"
|
|
Me.txtPartnerInhaberNr.Text = "9999999"
|
|
End If
|
|
If Check_Dokumentfunktionen() = False Then Exit Sub
|
|
xdata = Me.DataSet1.Tables(0)
|
|
For i = 0 To xdata.Rows.Count - 1
|
|
If xdata.Rows(i).Item("zwingend") Is System.DBNull.Value Then
|
|
Else
|
|
If xdata.Rows(i).Item("zwingend") = True Then
|
|
If xdata.Rows(i).Item("feldwert") Is System.DBNull.Value Or xdata.Rows(i).Item("feldwert") = "" Then
|
|
MyMsg.show_standardmessage(206, MsgBoxStyle.Critical)
|
|
Me.DokWertList.Focus()
|
|
xdata.Dispose()
|
|
Exit Sub
|
|
End If
|
|
End If
|
|
End If
|
|
Next
|
|
If Me.mcbteam.SelectedValue = 0 Then
|
|
MyMsg.show_standardmessage(207, MsgBoxStyle.Critical)
|
|
Me.mcbteam.Focus()
|
|
Exit Sub
|
|
End If
|
|
xdata.Dispose()
|
|
Me.btnWeiter.Enabled = False
|
|
Dokument_Bearbeiten(Me.CreateDocument)
|
|
Try
|
|
' Rel 4.0 Fensterhandling Problem
|
|
' Handle verweis auf Prozess EDOKA...
|
|
Dim r As Process
|
|
Dim Ret As Int32
|
|
Dim hWndMain As IntPtr
|
|
|
|
Dim MyProcesses() As Process = _
|
|
Process.GetProcessesByName( _
|
|
Process.GetCurrentProcess().ProcessName)
|
|
|
|
|
|
For Each r In MyProcesses
|
|
|
|
If (r.Id = Process.GetCurrentProcess().Id) Then
|
|
Globals.Apphandle = r.MainWindowHandle()
|
|
End If
|
|
|
|
Next
|
|
|
|
Win32API.ShowWindow(Globals.Apphandle, Win32API.SW_Minimze)
|
|
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Function Check_Dokumentfunktionen() As Boolean
|
|
Dim i As Integer
|
|
Dim zz As Integer
|
|
Dim bearbeiten As Boolean
|
|
Dim abschliessen As Boolean
|
|
bearbeiten = False
|
|
abschliessen = False
|
|
Check_Dokumentfunktionen = True
|
|
If Me.DokumentFunktionenList.Visible = False Then Exit Function
|
|
zz = 0
|
|
For i = 0 To Me.DokumentFunktionen.Rows.Count - 1
|
|
If Me.DokumentFunktionen.Rows(i).Item("aktiv") = 1 Then
|
|
If Me.DokumentFunktionen.Rows(i).Item("bearbeiten") = True Then bearbeiten = True
|
|
If Me.DokumentFunktionen.Rows(i).Item("abschliessen") = True Then abschliessen = True
|
|
zz = zz + 1
|
|
End If
|
|
Next
|
|
|
|
If zz = 0 Then
|
|
Check_Dokumentfunktionen = True
|
|
Exit Function
|
|
End If
|
|
If bearbeiten = False Or abschliessen = False Then
|
|
If bearbeiten = False Then
|
|
MyMsg.show_standardmessage(34, MsgBoxStyle.Critical)
|
|
Check_Dokumentfunktionen = False
|
|
End If
|
|
If abschliessen = False Then
|
|
MyMsg.show_standardmessage(35, MsgBoxStyle.Critical)
|
|
Check_Dokumentfunktionen = False
|
|
End If
|
|
End If
|
|
|
|
|
|
End Function
|
|
#End Region
|
|
|
|
#Region "Dokumentbearbeitung"
|
|
|
|
Private Sub Dokument_Bearbeiten(ByVal neu As Boolean)
|
|
Try
|
|
Globals.PerfMon.insert_entry("Start Dokumenterstellung/Bearbeitung")
|
|
If Me.Dokument_Ist_Abgeschlossen Then
|
|
Notizen_Sichern()
|
|
Dokumentzuordnungen_Sichern()
|
|
Dokumentinfomeldungen_Sichern()
|
|
DivFnkt.Status_Dokumentbearbeitung(2, Me.DokumentID, False, "")
|
|
Me.Close()
|
|
Exit Sub
|
|
End If
|
|
w.txtPartner = Me.txtPartnerInhaber.Text
|
|
w.txtDokumenttyp = Me.txtBezeichnung.Text
|
|
w.ProgressBar.Info.Text = "Dokument erstellen"
|
|
w.ProgressBar.Bar1a.Value = 10
|
|
w.txtBemerkung_Verantwortlicher = Me.txtBemerkungVerantwortlicher
|
|
|
|
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
|
|
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
|
Dim doc As New edokadb.clsDokument()
|
|
Dim doctyp As New edokadb.clsDokumenttyp()
|
|
Dim docvor As New edokadb.clsOffice_vorlage()
|
|
|
|
'Dokumenttyp laden
|
|
doctyp.cpMainConnectionProvider = conn
|
|
doctyp.iDokumenttypnr = New SqlInt32(CType(Me.Dokumenttypnr, Int32))
|
|
doctyp.SelectOne()
|
|
|
|
'OfficeVorlage laden
|
|
docvor.cpMainConnectionProvider = conn
|
|
docvor.iOffice_vorlagenr = New SqlInt32(CType(doctyp.iOffice_vorlagenr.Value, Int32))
|
|
docvor.SelectOne()
|
|
|
|
'Dokument erstellen
|
|
doc.cpMainConnectionProvider = conn
|
|
If Me.CreateDocument Then
|
|
doc.sDokumentid = New SqlString(CType(NewDokumentID, String))
|
|
Else
|
|
doc.sDokumentid = New SqlString(CType(Me.EditDokumentid, String))
|
|
doc.SelectOne()
|
|
End If
|
|
doc.iDokumenttypnr = New SqlInt32(CType(Me.Dokumenttypnr, Int32))
|
|
doc.iNrpar00 = New SqlInt32(CType(Me.txtPartnerInhaberNr.Text, Int32))
|
|
doc.bAktiv = New SqlBoolean(True)
|
|
doc.bAmsdokument = New SqlBoolean(CType(False, Boolean))
|
|
doc.bAuserstuebernahme = New SqlBoolean(CType(False, Boolean))
|
|
doc.bAusgangsarchiviert = New SqlBoolean(CType(False, Boolean))
|
|
doc.daArchivierungsdatum = New SqlDateTime(CType(Me.DateTimePicker3.Value, DateTime))
|
|
|
|
If Me.DateTimePicker2.Value Is System.DBNull.Value Then
|
|
doc.daTermin = New SqlDateTime(CType("01.01.1900", DateTime))
|
|
Else
|
|
doc.daTermin = New SqlDateTime(CType(Me.DateTimePicker2.Value, DateTime))
|
|
End If
|
|
|
|
doc.bBereit_zur_archivierung = New SqlBoolean(CType(False, Boolean))
|
|
'Hutter - anpassungen
|
|
If Me.mcbstatus.Text = "Bereit für Ausgangsarchivierung" Then
|
|
doc.bBereit_zur_archivierung = New SqlBoolean(CType(True, Boolean))
|
|
End If
|
|
doc.bEingangsarchiviert = New SqlBoolean(CType(False, Boolean))
|
|
doc.bGesperrt = New SqlBoolean(CType(Me.cGesperrt.Checked, Boolean))
|
|
If Me.cGesperrt.Checked Then
|
|
doc.daGesperrtam = New SqlDateTime(CType(Now, DateTime))
|
|
End If
|
|
doc.bUnvollstaendig = New SqlBoolean(CType(False, Boolean))
|
|
doc.bZu_retournieren = New SqlBoolean(CType(doctyp.bZu_retournieren.Value, Boolean))
|
|
doc.iColdstatus = New SqlInt32(CType(0, Int32))
|
|
doc.iMutierertieam = New SqlInt32(CType(Me.mcbteam.SelectedValue, Int32))
|
|
If neu = True Then
|
|
doc.iErsteller = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
|
doc.iErstellerteam = New SqlInt32(CType(Me.mcbteam.SelectedValue, Int32))
|
|
doc.daErstelltam = New SqlDateTime(CType(Now, DateTime))
|
|
doc.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
|
doc.iMutiererteam = New SqlInt32(CType(Me.mcbteam.SelectedValue, Int32))
|
|
doc.daMutiertam = New SqlDateTime(CType(Now, DateTime))
|
|
If Globals.bckdokument Then
|
|
doc.iBck = New SqlInt32(CType(1, Int32))
|
|
Else
|
|
doc.iBck = New SqlInt32(CType(1, Int32))
|
|
End If
|
|
doc.iAufbewahrung_elektronisch = New SqlInt32(CType(doctyp.iAufbewahrungsfrist_elektronisch.Value, Int32))
|
|
doc.iAufbewahrung_phaysisch = New SqlInt32(CType(doctyp.iAufbewahrungsfrist_physisch.Value, Int32))
|
|
doc.iBearbeitung_nach_abschluss = New SqlInt32(CType(doctyp.iTage_mutation.Value, Int32))
|
|
doc.iBearbeitungszeit_in_minuten = New SqlInt32(CType(doctyp.iDbearbeitungszeit.Value, Int32))
|
|
doc.iMonierung_in_tagen = New SqlInt32(CType(doctyp.iAnzahl_tage.Value, Int32))
|
|
Else
|
|
doc.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
|
doc.iMutierertieam = New SqlInt32(CType(Me.mcbteam.SelectedValue, Int32))
|
|
doc.daMutiertam = New SqlDateTime(CType(Now, DateTime))
|
|
End If
|
|
|
|
doc.iUnterschriftlinks = New SqlInt32(CType(Me.mcbunterschriftlinks.SelectedValue, Int32))
|
|
doc.iUnterschriftrechts = New SqlInt32(CType(Me.mcbunterschriftrechts.SelectedValue, Int32))
|
|
doc.iVerantwortlich = New SqlInt32(CType(Me.mcbverantwortlich.SelectedValue, Int32))
|
|
doc.bVertraulich = New SqlBoolean(CType(Me.cvertraulich.Checked, Boolean))
|
|
doc.sZustelladresse = New SqlString(CType(Me.txtZustelladresse.Text, String))
|
|
doc.sAnredezustelladresse = New SqlString(CType(Me.txtAnredeZusteller.Text, String))
|
|
|
|
If Me.rbZustaendigKube.Checked Then
|
|
doc.iZustaendiger = New SqlInt32(CType(Me.mcbkube.SelectedValue, Int32))
|
|
Else
|
|
doc.iZustaendiger = New SqlInt32(CType(Me.mcbzust.SelectedValue, Int32))
|
|
End If
|
|
doc.iPostzustellung = New SqlInt32(CType(Me.mcbpostzustellung.SelectedValue, Int32))
|
|
doc.bZustaendig_kube = New SqlBoolean(CType(Me.rbZustaendigKube.Checked, Boolean))
|
|
If Me.cGesperrt.Checked Then
|
|
doc.iGesperrt_durch = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
|
doc.daGesperrtam = New SqlDateTime(CType(Now, DateTime))
|
|
Else
|
|
doc.iGesperrt_durch = New SqlInt32(CType(0, Int32))
|
|
End If
|
|
doc.iMa_ausgangsarchivierung = New SqlInt32(CType(0, Int32))
|
|
doc.iMa_eingangsarchivierung = New SqlInt32(CType(0, Int32))
|
|
doc.iMitarbeiternr = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
|
doc.sBemerkung = New SqlString(CType(Me.txtBemerkung.Text, String))
|
|
doc.sColddokumentid = New SqlString(CType("", String))
|
|
doc.iAnzeigeStatus = New SqlInt32(CType(0, Int32))
|
|
|
|
doc.sBezeichnung = New SqlString(CType(Me.txtBezeichnung.Text, String))
|
|
|
|
If Not Me.CreateDocument Then
|
|
doc.iStatusnr = New SqlInt32(CType(Me.mcbstatus.SelectedValue, Int32))
|
|
End If
|
|
|
|
doc.daErstellungsdatum = New SqlDateTime(CType(Me.DateTimePicker1.Value, DateTime))
|
|
' doc.bBereit_zur_archivierung = New SqlBoolean(CType(False, Boolean))
|
|
|
|
If docvor.iAnwendungnr.Value = 1 Then
|
|
doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".doc", String))
|
|
Else
|
|
doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".xls", String))
|
|
End If
|
|
|
|
If Me.CreateDocument Then doc.iDokdurchkubeweitergegeben = New SqlInt32(CType(0, Int32))
|
|
If Not doc.iDokdurchkubeweitergegeben.Value = 1 Then
|
|
Dim tx As DataTable
|
|
tx = Generic_Select(13)
|
|
If tx.Rows(0).Item(0) = 1 Then
|
|
doc.iDokdurchkubeweitergegeben = New SqlInt32(CType(1, Int32))
|
|
Else
|
|
doc.iDokdurchkubeweitergegeben = New SqlInt32(CType(0, Int32))
|
|
End If
|
|
tx.Dispose()
|
|
End If
|
|
|
|
Dim s As String
|
|
|
|
s = DivFnkt.Get_Filename(doc.sDokumentname.Value, Me.txtPartnerInhaberNr.Text)
|
|
conn.OpenConnection()
|
|
If Me.CreateDocument Then
|
|
Dim t As DataTable
|
|
t = Generic_Select(14)
|
|
doc.sColdfolder = New SqlString(CType(t.Rows(0).Item(0), String))
|
|
doc.sColdschema = New SqlString(CType(t.Rows(0).Item(1), String))
|
|
doc.Insert()
|
|
t.Dispose()
|
|
Dim statush As New Statushandling()
|
|
statush.Status_Erstellen(doc.sDokumentid.Value, False)
|
|
statush.Dispose()
|
|
doc.iStatusnr = New SqlInt32(CType(get_current_Status(doc.sDokumentid.Value), Int32))
|
|
doc.Update()
|
|
Else
|
|
doc.Update()
|
|
End If
|
|
conn.CloseConnection(True)
|
|
|
|
DokumentID = doc.sDokumentid.Value
|
|
If Globals.bckdokument = True Then
|
|
Cold_Index_Bearbeiten(2)
|
|
Else
|
|
Cold_Index_Bearbeiten(1)
|
|
If Me.zu_retournieren Then
|
|
Cold_Index_Bearbeiten(2)
|
|
End If
|
|
End If
|
|
Globals.PerfMon.insert_entry("'-- Begin Dokumentdaten sichern")
|
|
DokumentID = doc.sDokumentid.Value
|
|
Dokumentwerte_Sichern()
|
|
Notizen_Sichern()
|
|
Dokumentzuordnungen_Sichern()
|
|
Dokumentersetzen_Sichern()
|
|
Dokumentinfomeldungen_Sichern()
|
|
Dokumentfunktionen_sichern()
|
|
Status_History(doc.iStatusnr.Value)
|
|
Globals.PerfMon.insert_entry("'-- Ende Dokumentdaten sichern")
|
|
If Me.BarcodeID = "" And Me.Dokumentinfobearbeiten = False Then
|
|
w.ProgressBar.Show()
|
|
w.ProgressBar.Info.Text = "Dokumentwerte zusammenstellen"
|
|
w.ProgressBar.Bar1a.Value = 10
|
|
End If
|
|
Globals.PerfMon.insert_entry("'-- Begin Dokumentwerte zusammenstellen")
|
|
Dim xdata As DataTable
|
|
xdata = Dokumentwerte(doc.sDokumentid.Value)
|
|
Globals.PerfMon.insert_entry("'--Ende Dokumentwerte zusammenstellen")
|
|
DokumentID = doc.sDokumentid.Value
|
|
|
|
'Dokument erstellen bzw. öffnen
|
|
w.DokumentID = doc.sDokumentid.Value
|
|
w.DokumentName = doc.sDokumentname.Value
|
|
If Me.CreateDocument Then
|
|
w.CreateDoc = True
|
|
If Me.BarcodeID = "" Then
|
|
If w.Create_Dokument_Before_Fill(doc.iDokumenttypnr.Value, xdata, s) = False Then
|
|
w.ProgressBar.Visible = False
|
|
w.Restore(1)
|
|
Me.Cursor = Cursors.Default
|
|
Me.btnWeiter.Enabled = True
|
|
DivFnkt.Status_Dokumentbearbeitung(2, Me.DokumentID, False, "")
|
|
Exit Sub
|
|
End If
|
|
End If
|
|
|
|
' If Me.BarcodeID = "" Then w.Create_Dokument_Before_Fill(doc.iDokumenttypnr.Value, xdata, s)
|
|
' If docvor.bIdv_nativ.Value = True Then
|
|
' End If
|
|
' xdata.Dispose()
|
|
' doc.Dispose()
|
|
' Exit Sub
|
|
Else
|
|
If Me.BarcodeID = "" And Me.Dokumentinfobearbeiten = False Then
|
|
w.CreateDoc = False
|
|
Dim docrestore As New DocMgmt()
|
|
docrestore.Get_From_DB(DokumentID, s)
|
|
w.Open_Document(s, xdata, doc.iDokumenttypnr.Value)
|
|
End If
|
|
End If
|
|
Me.Hide()
|
|
|
|
If Globals.Dokumentcoldindex_Changed Then
|
|
w.dokumentidalt = Globals.Dokumentidalt
|
|
w.save_dokumentcoldindex = Globals.general_ds.Tables(Globals.general_ds.Tables.Count - 1).Copy
|
|
w.Dokumentcoldindex_Changed = Globals.Dokumentcoldindex_Changed
|
|
w.dokumentid_changed = Globals.dokumentid_changed
|
|
w.dokumentcoldindex_status = Globals.dokumentcoldindex_status
|
|
w.Ersetzte_Dokumente_Reaktivieren = Globals.Ersetzte_Dokumente_Reaktivieren
|
|
End If
|
|
|
|
'Anzeigen der Dokumentwerte, sofern die Checkbox markiert war
|
|
If Me.cdokumentwerteanzeigen.Checked Then
|
|
Globals.PerfMon.insert_entry("'-- Begin Dokumentwerte anzeigen")
|
|
Dim f As New frmDokumentwerte()
|
|
f.WordData = xdata
|
|
f.isOk = True
|
|
Me.Cursor = System.Windows.Forms.Cursors.Default
|
|
f.ShowDialog()
|
|
Globals.PerfMon.insert_entry("'-- Ende Dokumentwerte anzeigen")
|
|
If f.isOk = 0 Then
|
|
f.Dispose()
|
|
w.CloseDoc()
|
|
w.ProgressBar.Close()
|
|
If Me.CreateDocument = True Then w.Restore(1) Else w.Restore(2)
|
|
DivFnkt.Status_Dokumentbearbeitung(2, Me.DokumentID, False, "")
|
|
Else
|
|
If f.isOk = 1 Then
|
|
f.Dispose()
|
|
w.Dokument_Vervollstaendigen(xdata)
|
|
Globals.PerfMon.insert_entry(Me.DokumentID + " Start Dokumentbearbeitung")
|
|
If Me.CreateDocument Then
|
|
DivFnkt.Status_Dokumentbearbeitung(1, Me.DokumentID, True, w.DokumentName)
|
|
End If
|
|
'Rel 4.03 - Sofern das Dokument bereits in der Words-Auflistung vorhanden ist, dieses löschen
|
|
Try
|
|
Words.Remove(w.DokumentName)
|
|
Catch ex As Exception
|
|
End Try
|
|
Words.Add(w, w.DokumentName)
|
|
If IsNothing(objSpooler) = False Then
|
|
If objSpooler.NoEdit = 2 Then
|
|
Words.Remove(w.DokumentName)
|
|
End If
|
|
End If
|
|
Else
|
|
If f.isOk = 2 Then
|
|
f.Dispose()
|
|
If Me.CreateDocument = True Then w.Restore(1) Else w.Restore(2)
|
|
DivFnkt.Status_Dokumentbearbeitung(2, Me.DokumentID, False, "")
|
|
Me.CreateDocument = False
|
|
Me.btnWeiter.Enabled = True
|
|
Me.Show()
|
|
End If
|
|
End If
|
|
End If
|
|
Else
|
|
w.Dokument_Vervollstaendigen(xdata)
|
|
Globals.PerfMon.insert_entry(Me.DokumentID + " Start Dokumentbearbeitung")
|
|
End If
|
|
xdata.Dispose()
|
|
doc.Dispose()
|
|
Globals.PerfMon.insert_entry(Me.DokumentID + " Ende Dokumenterstellung")
|
|
Try
|
|
w.ProgressBar.Close()
|
|
w.ProgressBar.Dispose()
|
|
Catch
|
|
End Try
|
|
Catch ex As Exception
|
|
w.Close_And_Destroy()
|
|
Dim s As String
|
|
Globals.In_Bearbeitung = False
|
|
DivFnkt.Status_Dokumentbearbeitung(2, Me.DokumentID, True, w.DokumentName)
|
|
s = Globals.MyTxt.gettext(98)
|
|
s = s + vbCrLf + vbCrLf + ex.Message
|
|
MsgBox(s, MsgBoxStyle.Critical)
|
|
PerfMon.force_insert_entry("Dok (E): " + ex.Message + "-" + " " + Me.Dokumenttypnr.ToString + " " + Me.txtBezeichnung.Text + " " + Me.txtPartnerInhaber.Text + ": ")
|
|
PerfMon.force_insert_entry("Dok (E): Wordlib Errormessage: " + w.Errormessage)
|
|
w.ProgressBar.Visible = False
|
|
Me.Cursor = Cursors.Default
|
|
If Me.CreateDocument Then w.Restore(1) Else w.Restore(2)
|
|
DivFnkt.Status_Dokumentbearbeitung(2, Me.DokumentID, False, "")
|
|
Try
|
|
w.Try_Show_Office_Object()
|
|
Catch ex1 As Exception
|
|
|
|
End Try
|
|
Me.Cursor = Cursors.Default
|
|
Me.btnWeiter.Enabled = True
|
|
Me.Visible = True
|
|
Try
|
|
conn.CloseConnection(True)
|
|
Catch
|
|
End Try
|
|
End Try
|
|
End Sub
|
|
|
|
Private Function get_current_Status(ByVal dokumentid As String) As Long
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokumentbearbeitung_current_status"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@statustext", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.mcbstatus.Text))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@currentstatus", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
get_current_Status = scmCmdToExecute.Parameters.Item("@currentstatus").Value
|
|
Return get_current_Status
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Private Sub Update_Bclabel(ByVal typ As Integer)
|
|
If Me.BarcodeID = "" Then Exit Sub
|
|
Dim bc As New edokadb.clsBarcodeetikette()
|
|
bc.cpMainConnectionProvider = conn
|
|
bc.iBarcodenr = New SqlInt32(CType(Me.BarcodeID, Int32))
|
|
bc.SelectOne()
|
|
conn.OpenConnection()
|
|
If typ = 2 And Me.CreateDocument = True Then
|
|
bc.sDokumentid = New SqlString(CType("", String))
|
|
Else
|
|
bc.sDokumentid = New SqlString(CType(Me.DokumentID, String))
|
|
End If
|
|
bc.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
|
bc.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
|
bc.Update()
|
|
conn.CloseConnection(True)
|
|
End Sub
|
|
|
|
Public Sub Cold_Index_Bearbeiten(ByVal indextyp As Integer)
|
|
Dim xdata As DataTable
|
|
Dim cdata As DataTable
|
|
cdata = COLD_Index_Sichern(indextyp)
|
|
xdata = Me.DataSet1.Tables(0)
|
|
For i = 0 To xdata.Rows.Count - 1
|
|
If xdata.Rows(i).Item("cold_indexfeld") Is System.DBNull.Value Then
|
|
Else
|
|
If xdata.Rows(i).Item("cold_indexfeld") > 0 Then
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokument_Cold_Index_Update"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
scmCmdToExecute.Connection.Open()
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentID))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@coldfeldnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, xdata.Rows(i).Item("cold_indexfeld")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@value", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, xdata.Rows(i).Item("feldwert")))
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Cold_Index_Update::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Connection.Close()
|
|
scmCmdToExecute.Dispose()
|
|
End Try
|
|
End If
|
|
End If
|
|
Next
|
|
cdata.Dispose()
|
|
xdata.Dispose()
|
|
End Sub
|
|
|
|
Public Function COLD_Index_Sichern(ByVal indextyp As Integer) As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokument_Cold_Index"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentID))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@indextyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, indextyp))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
|
|
End Function
|
|
|
|
Public Sub Dokumentwerte_Sichern()
|
|
Dim xdata As DataTable
|
|
xdata = Me.DataSet1.Tables(0)
|
|
For i = 0 To xdata.Rows.Count - 1
|
|
If xdata.Rows(i).Item("cold_indexfeld") Is System.DBNull.Value Then xdata.Rows(i).Item("cold_indexfeld") = 0
|
|
If xdata.Rows(i).Item("cold_indexfeld") = 0 Then
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokument_Information_Wert"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
scmCmdToExecute.Connection.Open()
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentID))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@vorlagenfeldnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, xdata.Rows(i).Item("vorlagenfeldnr")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@value", SqlDbType.VarChar, 8000, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, xdata.Rows(i).Item("feldwert")))
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Connection.Close()
|
|
scmCmdToExecute.Dispose()
|
|
End Try
|
|
End If
|
|
Next
|
|
xdata.Dispose()
|
|
End Sub
|
|
|
|
Public Sub Notizen_Sichern()
|
|
For i = 0 To Me.Notizen.Rows.Count - 1
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokument_Notizen"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
scmCmdToExecute.Connection.Open()
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentID))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@notiznr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Notizen.Rows(i).Item("notiznr")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@betreff", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Notizen.Rows(i).Item("betreff")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@value", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Notizen.Rows(i).Item("notiz")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@aktiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Notizen.Rows(i).Item("aktiv")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Notizen.Rows(i).Item("mutierer")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ersteller", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Notizen.Rows(i).Item("ersteller")))
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Connection.Close()
|
|
scmCmdToExecute.Dispose()
|
|
End Try
|
|
Next
|
|
End Sub
|
|
|
|
Public Sub Dokumentersetzen_Sichern()
|
|
For i = 0 To Me.Dokumentersetzen.Rows.Count - 1
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokumentersetzen_sichern"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
scmCmdToExecute.Connection.Open()
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentersetzennr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentersetzen.Rows(i).Item("dokumentersetzennr")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@hauptdokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentID))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentersetzen.Rows(i).Item("dokumentid")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@aktiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentersetzen.Rows(i).Item("aktiv")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@coldstatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentersetzen.Rows(i).Item("coldstatus")))
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Ersetzen::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Connection.Close()
|
|
scmCmdToExecute.Dispose()
|
|
End Try
|
|
Next
|
|
End Sub
|
|
|
|
Public Sub Dokumentzuordnungen_Sichern()
|
|
For i = 0 To Me.Dokumentzuorndungen.Rows.Count - 1
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokumentzuordnungen_sichern"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
scmCmdToExecute.Connection.Open()
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentzuordnungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentzuorndungen.Rows(i).Item("NrEintrag")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid2", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentzuorndungen.Rows(i).Item("DOKUMENTID2")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@zuordnungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentzuorndungen.Rows(i).Item("zuordnungnr")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@aktiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentzuorndungen.Rows(i).Item("AKTIV")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mandant", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MandantNr))
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Connection.Close()
|
|
scmCmdToExecute.Dispose()
|
|
End Try
|
|
Next
|
|
End Sub
|
|
|
|
Public Sub Dokumentinfomeldungen_Sichern()
|
|
For i = 0 To Me.DokumentInfoMeldungen.Rows.Count - 1
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokumentinfomeldungen_sichern"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
scmCmdToExecute.Connection.Open()
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentinfomeldungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentInfoMeldungen.Rows(i).Item("dokumentinfomeldungnr")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@empfaenger", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentInfoMeldungen.Rows(i).Item("empfaengernr")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bemerkung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentInfoMeldungen.Rows(i).Item("bemerkung")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@meldungstext", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentInfoMeldungen.Rows(i).Item("meldungstext")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@beistatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentInfoMeldungen.Rows(i).Item("beistatus")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@aktiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentInfoMeldungen.Rows(i).Item("aktiv")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mandant", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MandantNr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@typ", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentInfoMeldungen.Rows(i).Item("typ")))
|
|
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception(scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Connection.Close()
|
|
scmCmdToExecute.Dispose()
|
|
End Try
|
|
Next
|
|
End Sub
|
|
|
|
Public Sub Dokumentfunktionen_sichern()
|
|
Try
|
|
For i = 0 To Me.DokumentFunktionen.Rows.Count - 1
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokumentfunktionen_Sichern"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
scmCmdToExecute.Connection.Open()
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentID))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentfunktiongruppenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionen.Rows(i).Item("dokumentfunktiongruppenr")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@funktiongruppenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionen.Rows(i).Item("funktionsgruppenr")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@anzeigen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionen.Rows(i).Item("anzeigen")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bearbeiten", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionen.Rows(i).Item("bearbeiten")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@loeschen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionen.Rows(i).Item("loeschen")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@abschliessen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionen.Rows(i).Item("abschliessen")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@aktiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionen.Rows(i).Item("aktiv")))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MandantNr))
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Connection.Close()
|
|
scmCmdToExecute.Dispose()
|
|
End Try
|
|
Next
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
Private Function Dokumentwerte(ByVal dokumentid As String) As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokumentwerte"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ierrorcode", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
Try
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Private Function Status_History(ByVal statusnr As Long)
|
|
Dim statush As New Statushandling()
|
|
Dim i, i1 As Integer
|
|
If Me.saveverantwortlicher = Me.mcbverantwortlich.SelectedValue And Me.savestatus = Me.mcbstatus.SelectedValue And Not Me.CreateDocument And Me.mcbstatus.SelectedIndex = 0 Then
|
|
statush.Dispose()
|
|
Exit Function
|
|
End If
|
|
If Me.CreateDocument Then
|
|
i = Me.mcbstatus.SelectedValue
|
|
Me.mcbstatus.SelectedIndex = 0
|
|
statush.insert_history_status(get_current_Status(Me.DokumentID), Me.DokumentID, Globals.MitarbeiterNr)
|
|
System.Threading.Thread.Sleep(500)
|
|
Me.mcbstatus.SelectedValue = i
|
|
If Me.mcbstatus.SelectedIndex <> 0 Or Me.mcbverantwortlich.SelectedValue <> Me.saveverantwortlicher Then
|
|
statush.insert_history_status(get_current_Status(Me.DokumentID), Me.DokumentID, Me.mcbverantwortlich.SelectedValue)
|
|
End If
|
|
w.send_statusmessage = True
|
|
Else
|
|
If Me.mcbstatus.SelectedValue <> Me.savestatus Or Me.mcbstatus.SelectedIndex <> 0 Then
|
|
i = Me.mcbstatus.SelectedValue
|
|
Me.mcbstatus.SelectedIndex = 0
|
|
Me.savestatus = Me.mcbstatus.SelectedValue
|
|
statush.insert_history_status(Me.mcbstatus.SelectedValue, Me.DokumentID, Globals.MitarbeiterNr)
|
|
w.send_statusmessage = True
|
|
Me.mcbstatus.SelectedValue = i
|
|
System.Threading.Thread.Sleep(500)
|
|
End If
|
|
If Me.mcbstatus.SelectedValue <> Me.savestatus Or Me.mcbverantwortlich.SelectedValue <> Me.saveverantwortlicher Then
|
|
statush.insert_history_status(Me.mcbstatus.SelectedValue, Me.DokumentID, Me.mcbverantwortlich.SelectedValue)
|
|
End If
|
|
End If
|
|
|
|
statush.Dispose()
|
|
End Function
|
|
|
|
|
|
#End Region
|
|
|
|
#Region "Dokumentfunktionen"
|
|
Private Sub Dokumentfunktionen_Aktivieren()
|
|
Dim t As DataTable
|
|
t = Generic_Select(5)
|
|
If t.Rows.Count > 0 Then
|
|
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
|
Me.SqlDataAdapter3.SelectCommand.Parameters("@mandantnr").Value = Globals.MandantNr
|
|
Me.DataSet3.Clear()
|
|
Me.SqlDataAdapter3.Fill(Me.DataSet3)
|
|
' Me.Funktionsliste.DataSource = Me.DataSet3
|
|
' Me.Funktionsliste.DataMember = Me.DataSet3.Tables(0).TableName
|
|
|
|
t.Clear()
|
|
Me.DokumentFunktionen = Generic_Select(6)
|
|
w.Save_DokumentFunktionen = Generic_Select(6)
|
|
Me.DataSet4.Tables.Add(Me.DokumentFunktionen)
|
|
Me.DokumentFunktionenList.DataSource = Me.DataSet4
|
|
Me.DokumentFunktionenList.DataMember = Me.DataSet4.Tables(0).TableName
|
|
Me.DokumentFunktionenList.Columns("aktiv").FilterText = True
|
|
Me.DokumentFunktionenList.FilterBar = False
|
|
DivFnkt.SpaltenTitel_Aktualisieren(Me.DokumentFunktionenList, Me.DokumentFunktionen, "berechtigungseinschraenkung")
|
|
|
|
Else
|
|
Me.pnlBerechtigungen.Visible = False
|
|
End If
|
|
End Sub
|
|
#End Region
|
|
|
|
Private Sub ContextMenu1_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu1.Popup
|
|
If Me.Notizen.Rows.Count = 0 Then
|
|
Me.ContextMenu1.MenuItems(1).Enabled = False
|
|
Me.ContextMenu1.MenuItems(2).Enabled = False
|
|
Else
|
|
Me.ContextMenu1.MenuItems(1).Enabled = True
|
|
Me.ContextMenu1.MenuItems(2).Enabled = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ContextMenu3_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu3.Popup
|
|
If Me.ZuordnungList.Splits(0).Rows.Count = 0 Then
|
|
Me.MnuDokzuordnungDelete.Enabled = False
|
|
Me.MnuShowDoc.Enabled = False
|
|
Else
|
|
Me.MnuDokzuordnungDelete.Enabled = True
|
|
Me.MnuShowDoc.Enabled = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
Dim f As New FrmPartnersuche()
|
|
f.Dokumenttypnrnr = Me.Dokumenttypnr
|
|
f.ShowDialog()
|
|
If f.PartnerNr <> 0 Then
|
|
Me.DokWertList.Columns("feldwert").Value = f.PartnerNr
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub rbZustaendigKube_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbZustaendigKube.CheckedChanged
|
|
Me.mcbzust.Enabled = False
|
|
Me.mcbkube.Enabled = True
|
|
If Me.rbZustaendigKube.Checked = True Then
|
|
Me.mcbkube.DataSource = Nothing
|
|
Me.mcbkube.Items.Clear()
|
|
Me.mcbkube.Fill_Data(Generic_Select(8), False)
|
|
If Me.mcbkube.Items.Count = 0 Then
|
|
Me.mcbkube.Text = ""
|
|
Me.rbZustaendigKube.Checked = False
|
|
Me.RBZustaendigZustaendiger.Checked = True
|
|
MyMsg.show_standardmessage(24, MsgBoxStyle.Information)
|
|
RBZustaendigZustaendiger_CheckedChanged(sender, e)
|
|
Exit Sub
|
|
End If
|
|
End If
|
|
Try
|
|
Me.mcbkube.Focus()
|
|
Me.mcbkube.SelectedIndex = 0
|
|
Try
|
|
Me.teamzustaendig = Me.mcbkube.SelectedValue
|
|
Me.refresh_team()
|
|
Catch
|
|
End Try
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
Private Sub RBZustaendigZustaendiger_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBZustaendigZustaendiger.CheckedChanged
|
|
Me.mcbkube.Enabled = False
|
|
Me.mcbzust.Enabled = True
|
|
Me.mcbzust.Focus()
|
|
|
|
Try
|
|
Me.teamzustaendig = Me.mcbzust.SelectedValue
|
|
Me.refresh_team()
|
|
Catch
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub ContextMenu2_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu2.Popup
|
|
If Me.DokWertList.Columns("datenherkunft").Value = "" Then
|
|
Me.MnuValueSelect.Enabled = False
|
|
Else
|
|
Me.MnuValueSelect.Enabled = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
|
|
If Me.On_Load Then Exit Sub
|
|
Me.DateTimePicker3.Value = Me.DateTimePicker1.Value
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
|
Try
|
|
If Me.txtPartnerInhaberNr.Text > 91000000 Then
|
|
Dim f As New frmInteressent()
|
|
f.Partnernr = Me.txtPartnerInhaberNr.Text
|
|
f.Display = True
|
|
f.ShowDialog()
|
|
f.Dispose()
|
|
Else
|
|
Dim f As New frmPartnerDetails()
|
|
f.Partnernr = Me.txtPartnerInhaberNr.Text
|
|
f.ShowDialog()
|
|
f.Dispose()
|
|
End If
|
|
Catch
|
|
Finally
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
Dim f As New FrmPartnersuche()
|
|
f.Dokumenttypnrnr = Me.Dokumenttypnr
|
|
f.ShowDialog()
|
|
|
|
If f.PartnerNr <> 0 Then
|
|
Me.txtZustelladresse.Text = f.zustelladresse
|
|
Me.txtAnredeZusteller.Text = f.Anrede
|
|
Me.txtZustelladresse.Focus()
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub DateTimePicker2_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DateTimePicker2.KeyDown
|
|
If e.KeyCode = Keys.Delete Then
|
|
Me.DateTimePicker2.ResetText()
|
|
Me.DateTimePicker2.Value = System.DBNull.Value
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MnuDokZuordnungAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuDokZuordnungAdd.Click
|
|
Globals.profilnr = Me.Profilnr
|
|
Dim fx As New frmTrefferliste()
|
|
fx.OnlySelect = True
|
|
fx.txtnrpar00.Text = Me.txtPartnerInhaberNr.Text
|
|
fx.Partner_Eingegeben = True
|
|
' fx.refresh_list()
|
|
fx.ToolBar1.Visible = False
|
|
fx.txtnrpar00.Visible = False
|
|
fx.tvstruktur.ContextMenu = Nothing
|
|
fx.Text = "Dokument für Dokumentzuordnung auswählen"
|
|
fx.ImgCombo.Visible = False
|
|
fx.btnPartnersuche.Visible = False
|
|
fx.LblSearch.Visible = False
|
|
fx.DokList.ContextMenu = fx.ContextMenu3
|
|
fx.SelectedDokumentid = ""
|
|
fx.DoRefresh = True
|
|
fx.ShowDialog()
|
|
Try
|
|
If fx.SelectedDokumentid <> "" Then
|
|
Dim rc As DataRowCollection
|
|
Dim newrow As DataRow
|
|
rc = Me.Dokumentzuorndungen.Rows
|
|
Dim rowvals(Me.Dokumentzuorndungen.Columns.Count - 1) As Object
|
|
rowvals(0) = 0
|
|
rowvals(2) = 1
|
|
rowvals(6) = 1
|
|
rowvals(8) = fx.SelectedDokumentid
|
|
rowvals(10) = fx.Dokumentbezeichnung
|
|
|
|
newrow = rc.Add(rowvals)
|
|
Me.ZuordnungList.Refresh()
|
|
'For i = 0 To Me.ZuordnungList.Splits(0).Rows.Count - 1
|
|
'If Me.ZuordnungList.Columns(0).CellText(i) = fx.SelectedDokumentid Then
|
|
' Me.ZuordnungList.Bookmark = i
|
|
'End If
|
|
'Next
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
fx.Dispose()
|
|
End Sub
|
|
|
|
|
|
Private Sub MnuShowDoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuShowDoc.Click
|
|
Dim doc As New edokadb.clsDokument()
|
|
Dim Dokument As String
|
|
Dim FileReader As New DocMgmt()
|
|
doc.cpMainConnectionProvider = conn
|
|
doc.sDokumentid = New SqlString(CType(Me.ZuordnungList.Columns(1).Value, String))
|
|
doc.SelectOne()
|
|
Dokument = DivFnkt.Get_Filename(doc.sDokumentname.Value, "")
|
|
FileReader.Get_From_DB(doc.sDokumentid.Value, Dokument)
|
|
doc.Dispose()
|
|
FileReader = Nothing
|
|
Dim w As New WordLib()
|
|
w.ShowDoc(Dokument)
|
|
w = Nothing
|
|
End Sub
|
|
|
|
Private Sub MnuDokzuordnungDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuDokzuordnungDelete.Click
|
|
Me.ZuordnungList.Columns("aktiv").Value = False
|
|
Me.ZuordnungList.Refresh()
|
|
Me.TabControl2.Select()
|
|
Me.ZuordnungList.Select()
|
|
End Sub
|
|
|
|
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
Dokumentzuordnungen_Sichern()
|
|
End Sub
|
|
|
|
Private Sub mnuInfoEmpfaengerAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuInfoEmpfaengerAdd.Click
|
|
Dim f As New frmInformationsEmpfaenger()
|
|
f.Dokumenttypnr = Me.Dokumenttypnr
|
|
If Me.CreateDocument = True Then
|
|
f.fromDokumenttyp = True
|
|
Else
|
|
f.fromDokumenttyp = False
|
|
f.dokumentid = Me.DokumentID
|
|
End If
|
|
f.ShowDialog()
|
|
If f.DialogResult = DialogResult.OK Then
|
|
Dim rc As DataRowCollection
|
|
Dim newrow As DataRow
|
|
rc = Me.DokumentInfoMeldungen.Rows
|
|
Dim rowvals(9) As Object
|
|
rowvals(0) = 0
|
|
rowvals(1) = 0
|
|
rowvals(2) = f.Empfaenger
|
|
rowvals(3) = f.Empaengertext
|
|
rowvals(4) = f.Meldungsnr
|
|
rowvals(5) = f.Meldung
|
|
If Len(f.Bemerkung) > 0 Then f.Bemerkung = f.Bemerkung + vbCrLf + "----------------------" + vbCrLf + vbCrLf
|
|
rowvals(6) = f.Bemerkung
|
|
rowvals(7) = f.Statusnr
|
|
rowvals(8) = f.Statustext
|
|
rowvals(9) = 1
|
|
newrow = rc.Add(rowvals)
|
|
Me.InfoMeldungList.Refresh()
|
|
f.Dispose()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub mnuInfoEmpfaengerDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuInfoEmpfaengerDelete.Click
|
|
Try
|
|
Me.InfoMeldungList.Columns(9).Value = False
|
|
Me.InfoMeldungList.Refresh()
|
|
Me.TabControl2.Select()
|
|
Me.InfoMeldungList.Select()
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub cvertraulich_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
Try
|
|
FillMcbVerantwortlich()
|
|
Me.mcbverantwortlich.Focus()
|
|
Me.mcbkube.SelectAll()
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Function FillMcbVerantwortlich()
|
|
Dim dd As New DataTable()
|
|
Dim I As Integer
|
|
Dim s As String
|
|
s = ""
|
|
Try
|
|
For I = 0 To Me.DokumentFunktionen.Rows.Count - 1
|
|
If Me.DokumentFunktionen.Rows(I).Item("aktiv") = 1 Then
|
|
If s <> "" Then s = s + ";"
|
|
s = s + Microsoft.VisualBasic.LTrim(Str(Me.DokumentFunktionen.Rows(I).Item("funktionsgruppenr")))
|
|
End If
|
|
Next
|
|
Catch
|
|
End Try
|
|
Try
|
|
I = Me.mcbverantwortlich.SelectedValue
|
|
If I = 0 Then I = Globals.MitarbeiterNr
|
|
|
|
Me.mcbverantwortlich.DataSource = Nothing
|
|
Me.mcbverantwortlich.Items.Clear()
|
|
If Me.cvertraulich.Checked = True Then
|
|
dd = DivFnkt.Berechtigte_Mitarbeiter(Me.Dokumenttypnr, 0, Me.Partnernr, "", 3, 0, 0, 1, s)
|
|
Else
|
|
dd = DivFnkt.Berechtigte_Mitarbeiter(Me.Dokumenttypnr, 0, Me.Partnernr, "", 3, 0, 0, 0, s)
|
|
End If
|
|
Me.mcbverantwortlich.Fill_Data(dd, False)
|
|
Me.mcbverantwortlich.SelectedValue = I
|
|
If Me.mcbverantwortlich.Items.Count = 0 Then
|
|
Me.mcbverantwortlich.Text = ""
|
|
Me.mcbverantwortlich.CheckNullValue = False
|
|
Else
|
|
Me.mcbverantwortlich.CheckNullValue = True
|
|
End If
|
|
Catch
|
|
Finally
|
|
dd.Clear()
|
|
dd.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
|
|
Dim i As Integer
|
|
Dim s As String
|
|
s = ""
|
|
Try
|
|
For i = 0 To Me.DokumentFunktionen.Rows.Count - 1
|
|
If Me.DokumentFunktionen.Rows(i).Item("aktiv") = 1 Then
|
|
If s <> "" Then s = s + ";"
|
|
s = s + Microsoft.VisualBasic.LTrim(Str(Me.DokumentFunktionen.Rows(i).Item("funktionsgruppenr")))
|
|
End If
|
|
Next
|
|
Catch
|
|
End Try
|
|
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
|
|
|
|
Dim f As New frmBerechtigungen()
|
|
If Me.cvertraulich.Checked Then
|
|
f.Fill_Berechtigungen(Me.Dokumenttypnr, Me.Partnernr, 1, s)
|
|
Else
|
|
f.Fill_Berechtigungen(Me.Dokumenttypnr, Me.Partnernr, 0, s)
|
|
End If
|
|
Me.Cursor = System.Windows.Forms.Cursors.Default
|
|
f.ShowDialog()
|
|
f.Dispose()
|
|
End Sub
|
|
|
|
Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
MenuItem2_Click(sender, e)
|
|
End Sub
|
|
|
|
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
|
Dim f As New frmDokumentberechtigung()
|
|
f.Dokumenttyp = Me.Dokumenttypnr
|
|
f.Partnernr = Me.Partnernr
|
|
f.Vertraulich = Me.cvertraulich.Checked
|
|
f.ShowDialog()
|
|
If f.DialogResult = DialogResult.OK Then
|
|
Dim rc As DataRowCollection
|
|
Dim newrow As DataRow
|
|
rc = DokumentFunktionen.Rows
|
|
Dim rowvals(Me.DokumentFunktionenList.Columns.Count - 1)
|
|
rowvals(0) = System.DBNull.Value
|
|
rowvals(1) = f.Funktionsgruppebezeichnung
|
|
rowvals(2) = f.Funktionsgruppenr
|
|
rowvals(3) = f.Anzeigen
|
|
rowvals(4) = f.Bearbeiten
|
|
rowvals(5) = f.Loeschen
|
|
rowvals(6) = f.Abschliessen
|
|
rowvals(7) = True
|
|
rowvals(8) = Now
|
|
rowvals(9) = Globals.MitarbeiterNr
|
|
newrow = rc.Add(rowvals)
|
|
Me.DokumentFunktionenList.Refresh()
|
|
For i = 0 To Me.DokumentFunktionenList.Splits(0).Rows.Count - 1
|
|
If Me.DokumentFunktionenList.Columns("bezeichnung").CellText(i) = f.Funktionsgruppebezeichnung Then
|
|
Me.DokumentFunktionenList.Bookmark = i
|
|
End If
|
|
Next
|
|
Me.FillMcbVerantwortlich()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
|
|
Me.DokumentFunktionenList.Columns(7).Value = False
|
|
Me.DokumentFunktionenList.Refresh()
|
|
Me.Button3.Focus()
|
|
Me.DokumentFunktionenList.Focus()
|
|
Me.FillMcbVerantwortlich()
|
|
End Sub
|
|
|
|
Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
|
|
Globals.profilnr = Me.Profilnr
|
|
Dim fx As New frmTrefferliste()
|
|
fx.OnlySelect = True
|
|
fx.txtnrpar00.Text = Me.txtPartnerInhaberNr.Text
|
|
fx.Partner_Eingegeben = True
|
|
' fx.refresh_list()
|
|
fx.ToolBar1.Visible = False
|
|
fx.txtnrpar00.Visible = False
|
|
fx.tvstruktur.ContextMenu = Nothing
|
|
fx.Text = "Dokument für Dokumentzuordnung auswählen"
|
|
fx.ImgCombo.Visible = False
|
|
fx.btnPartnersuche.Visible = False
|
|
fx.LblSearch.Visible = False
|
|
fx.DokList.ContextMenu = fx.ContextMenu3
|
|
fx.SelectedDokumentid = ""
|
|
fx.DoRefresh = True
|
|
fx.ShowDialog()
|
|
Try
|
|
If fx.SelectedDokumentid <> "" Then
|
|
If Check_Dokumentersetzen(Me.Dokumenttypnr, fx.SelectedDokumentid) Then
|
|
Dim rc As DataRowCollection
|
|
Dim newrow As DataRow
|
|
rc = Dokumentersetzen.Rows
|
|
Dim rowvals(Me.Dokumentersetzen.Columns.Count - 1) As Object
|
|
rowvals(0) = System.DBNull.Value
|
|
rowvals(1) = ""
|
|
If Me.CreateDocument Then
|
|
rowvals(1) = ""
|
|
Else
|
|
rowvals(1) = Me.DokumentID
|
|
End If
|
|
rowvals(2) = fx.SelectedDokumentid
|
|
rowvals(3) = True
|
|
|
|
rowvals(8) = fx.Dokumentbezeichnung
|
|
rowvals(9) = fx.dokumentdatum
|
|
newrow = rc.Add(rowvals)
|
|
Me.ColdList.Refresh()
|
|
End If
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
fx.Dispose()
|
|
End Sub
|
|
|
|
Private Function Check_Dokumentersetzen(ByVal dokumenttypnr As Integer, ByVal dokumentid As String) As Boolean
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim s As String
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.sp_dokumentbearbeitung_chcek_dokumentersetzen"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumenttypnr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@errormessage", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
s = scmCmdToExecute.Parameters.Item("@errormessage").Value
|
|
If s <> "" Then
|
|
MyMsg.show_standardmessage(Val(s), MsgBoxStyle.Critical)
|
|
Return False
|
|
End If
|
|
Return True
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
|
|
End Function
|
|
|
|
Private Sub cbKube_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mcbkube.SelectedIndexChanged
|
|
Try
|
|
Me.teamzustaendig = Me.mcbkube.SelectedValue
|
|
Catch
|
|
End Try
|
|
refresh_team()
|
|
End Sub
|
|
|
|
|
|
Private Sub cbzust_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mcbzust.SelectedIndexChanged
|
|
Try
|
|
Me.teamzustaendig = Me.mcbzust.SelectedValue
|
|
refresh_team()
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub DokWertList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DokWertList.Click
|
|
|
|
End Sub
|
|
|
|
Private Sub InfoMeldungList_FetchRowStyle(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs)
|
|
Try
|
|
If Me.InfoMeldungList.Columns("typ").CellValue(e.Row) = 1 Then
|
|
e.CellStyle.BackColor = System.Drawing.Color.CadetBlue
|
|
End If
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub ContextMenu7_Popup(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextMenu7.Popup
|
|
If Me.ErsetzenMoeglich = False Then
|
|
Me.MenuItem5.Enabled = False
|
|
Me.MenuItem6.Enabled = False
|
|
Exit Sub
|
|
End If
|
|
Try
|
|
If Me.ColdList.Splits(0).Rows.Count = 0 Then
|
|
Me.MenuItem6.Enabled = False
|
|
Else
|
|
Me.MenuItem6.Enabled = True
|
|
End If
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub ContextMenu4_Popup(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextMenu4.Popup
|
|
Try
|
|
If Me.InfoMeldungList.Columns("typ").Value = 1 Then
|
|
Me.mnuInfoEmpfaengerDelete.Enabled = False
|
|
Else
|
|
Me.mnuInfoEmpfaengerDelete.Enabled = True
|
|
End If
|
|
If Me.InfoMeldungList.Splits(0).Rows.Count = 0 Then
|
|
Me.mnuInfoEmpfaengerDelete.Enabled = False
|
|
Else
|
|
Me.mnuInfoEmpfaengerDelete.Enabled = True
|
|
End If
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
|
|
Me.ColdList.Columns("aktiv").Value = False
|
|
End Sub
|
|
|
|
'Private Function check_banklagernd() As Boolean
|
|
' Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
' Dim i As Integer
|
|
' Dim dtToReturn As DataTable = New DataTable()
|
|
' Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
' scmCmdToExecute.CommandText = "dbo.sp_check_banklagernd"
|
|
' scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
' scmCmdToExecute.Connection = conn.scoDBConnection
|
|
' Try
|
|
' scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtPartnerInhaberNr.Text))
|
|
' scmCmdToExecute.Parameters.Add(New SqlParameter("@banklagernd", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
' sdaAdapter.Fill(dtToReturn)
|
|
' i = scmCmdToExecute.Parameters.Item("@banklagernd").Value
|
|
' If i <> 0 Then
|
|
' check_banklagernd = True
|
|
' Else
|
|
' check_banklagernd = False
|
|
' End If
|
|
' Catch ex As Exception
|
|
' ' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
' Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
' Finally
|
|
' scmCmdToExecute.Dispose()
|
|
' sdaAdapter.Dispose()
|
|
' End Try
|
|
|
|
'End Function
|
|
|
|
Private Sub txtZustelladresse_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
'If check_banklagernd() = True Then
|
|
' If MyMsg.Show_MessageYesNo(72) = MsgBoxResult.No Then
|
|
' Me.txtZustelladresse.Text = ""
|
|
' Me.txtAnredeZusteller.Text = ""
|
|
' End If
|
|
'End If
|
|
End Sub
|
|
|
|
Private Sub DokWertList_AfterColEdit(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles DokWertList.AfterColEdit
|
|
Me.DokWertList.Update()
|
|
End Sub
|
|
|
|
Private Function get_partnerzusteller(ByVal nrpar00 As Integer) As String
|
|
Dim p As New edokadb.clsPartner()
|
|
Dim p1 As New edokadb.clsPartner()
|
|
Dim s As String
|
|
s = ""
|
|
p.cpMainConnectionProvider = conn
|
|
p.iNRPAR00 = New SqlInt32(CType(nrpar00, Int32))
|
|
p.SelectOne()
|
|
If p.iNRPAR00.ToString <> p.sNRPARAD.ToString Then
|
|
Try
|
|
p1.cpMainConnectionProvider = conn
|
|
p1.iNRPAR00 = New SqlInt32(CType(p.sNRPARAD.Value, Int32))
|
|
p1.SelectOne()
|
|
s = p1.sNRPARAD.ToString + " " + p1.sBKPAR00.Value
|
|
Catch
|
|
s = ""
|
|
End Try
|
|
End If
|
|
p.Dispose()
|
|
p1.Dispose()
|
|
get_partnerzusteller = s
|
|
End Function
|
|
|
|
|
|
Private Sub cbmoeglicheStati_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbmoeglicheStati.DropDown
|
|
Me.cbmoeglicheStati.Width = 200
|
|
Me.cbsave.Visible = True
|
|
End Sub
|
|
|
|
Private Sub cbmoeglicheStati_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbmoeglicheStati.Leave
|
|
Me.cbsave.Visible = False
|
|
Me.cbmoeglicheStati.Width = 21
|
|
End Sub
|
|
|
|
Private Sub cbmoeglicheStati_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbmoeglicheStati.SelectedValueChanged
|
|
Dim i As Integer
|
|
Dim DATA As DataTable
|
|
Me.cbsave.Visible = False
|
|
Me.cbmoeglicheStati.Width = 21
|
|
Me.txtstatus.Text = Me.cbmoeglicheStati.Text
|
|
Me.Label3.Visible = True
|
|
Me.txtstatus.Visible = True
|
|
If Me.txtstatus.Text = Me.mcbstatus.Text Then
|
|
Me.Label3.Visible = False
|
|
Me.txtstatus.Visible = False
|
|
Me.funktionsliste = ""
|
|
Me.selectedstatus = 0
|
|
Else
|
|
For i = 0 To Me.moeglichestati.Rows.Count - 1
|
|
If Me.txtstatus.Text = Me.moeglichestati.Rows(i).Item("bezeichnung") Then
|
|
Me.selectedstatus = Me.moeglichestati.Rows(i).Item("nr")
|
|
End If
|
|
Next
|
|
End If
|
|
Me.funktionsliste = ""
|
|
DATA = Generic_Select(16)
|
|
For i = 0 To DATA.Rows.Count - 1
|
|
If Me.funktionsliste <> "" Then Me.funktionsliste = Me.funktionsliste + ";"
|
|
Me.funktionsliste = Me.funktionsliste + LTrim(DATA.Rows(i).Item("funktionnr"))
|
|
Next
|
|
fill_mcbmitarbeiter()
|
|
Me.mcbverantwortlich.SelectedValue = Me.saveverantwortlicher
|
|
Me.mcbverantwortlich.Focus()
|
|
End Sub
|
|
|
|
Private Sub fill_mcbmitarbeiter()
|
|
Me.mcbverantwortlich.DataSource = Nothing
|
|
Me.mcbverantwortlich.Items.Clear()
|
|
Me.mcbverantwortlich.CheckNullValue = True
|
|
Me.mcbverantwortlich.NullValueMessage = MyTxt.gettext(18)
|
|
Me.mcbverantwortlich.DisplayColumnName = "mitarbeiter"
|
|
Me.mcbverantwortlich.ValueColumnName = "mitarbeiternr"
|
|
Me.mcbverantwortlich.Fill_Data(DivFnkt.Berechtigte_Mitarbeiter(0, 0, 0, Me.DokumentID, 3, 0, 0, 0, Me.funktionsliste), False)
|
|
End Sub
|
|
|
|
Private Sub btntxtBemerkung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntxtBemerkung.Click
|
|
Dim f As New frmtxtBemerkung()
|
|
f.txtBemerkung.Text = ""
|
|
f.ShowDialog()
|
|
If f.DialogResult = DialogResult.OK Then Me.txtBemerkungVerantwortlicher = f.txtBemerkung.Text
|
|
f.Dispose()
|
|
End Sub
|
|
|
|
Private Sub DokWertList_BeforeColUpdate(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.BeforeColUpdateEventArgs) Handles DokWertList.BeforeColUpdate
|
|
If InStr(Me.DokWertList.Columns("Datenherkunft").Text, "VV") > 0 Then
|
|
If Len(Me.DokWertList.Columns("feldwert").Text) > 16 Then
|
|
MyMsg.show_standardmessage(235, MsgBoxStyle.Critical)
|
|
e.Cancel = True
|
|
End If
|
|
End If
|
|
If e.ColIndex = 1 Then
|
|
e.Cancel = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
|
|
Dim f As New FrmPartnersuche()
|
|
f.Dokumenttypnrnr = Me.Dokumenttypnr
|
|
f.ShowDialog()
|
|
|
|
If f.PartnerNr <> 0 Then
|
|
Me.txtZustelladresse.Text = f.zustelladresse
|
|
Me.txtAnredeZusteller.Text = f.Anrede
|
|
Me.txtZustelladresse.Focus()
|
|
End If
|
|
|
|
End Sub
|
|
|
|
#Region "Properties"
|
|
'20080402 RGL für Steuerung von "aussen" Spooler, NOVA
|
|
Dim m_zustaendiger As Integer
|
|
Property Zustaendiger() As Integer
|
|
Get
|
|
Return m_zustaendiger
|
|
End Get
|
|
Set(ByVal Value As Integer)
|
|
m_zustaendiger = Value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_verantwortlicher As Integer
|
|
Property Verantwortlicher() As Integer
|
|
Get
|
|
Return m_verantwortlicher
|
|
End Get
|
|
Set(ByVal Value As Integer)
|
|
m_verantwortlicher = Value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_unterschriftlinks As Integer
|
|
Property UnterschriftLinks() As Integer
|
|
Get
|
|
Return m_unterschriftlinks
|
|
End Get
|
|
Set(ByVal Value As Integer)
|
|
m_unterschriftlinks = Value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_unterschriftrechts As Integer
|
|
Property Unterschriftrechts() As Integer
|
|
Get
|
|
Return m_unterschriftrechts
|
|
End Get
|
|
Set(ByVal Value As Integer)
|
|
m_unterschriftrechts = Value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_fanummer1 As String
|
|
Property FANummer1() As String
|
|
Get
|
|
Return m_fanummer1
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_fanummer1 = Value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_fanummer2 As String
|
|
Property FANummer2() As String
|
|
Get
|
|
Return m_fanummer2
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_fanummer2 = Value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_fanummer3 As String
|
|
Property FANummer3() As String
|
|
Get
|
|
Return m_fanummer3
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_fanummer3 = Value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_neuedokumentid As String
|
|
Property NeueDokumentid() As String
|
|
Get
|
|
Return m_neuedokumentid
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_neuedokumentid = Value
|
|
End Set
|
|
End Property
|
|
|
|
Dim M_Partnerwechsel As Boolean
|
|
Property Partnerwechsel() As Boolean
|
|
Get
|
|
Return M_Partnerwechsel
|
|
End Get
|
|
Set(ByVal Value As Boolean)
|
|
M_Partnerwechsel = Value
|
|
End Set
|
|
End Property
|
|
Dim m_Statuswechsel As Boolean
|
|
Property Statuswechsel() As Boolean
|
|
Get
|
|
Return m_Statuswechsel
|
|
End Get
|
|
Set(ByVal Value As Boolean)
|
|
m_Statuswechsel = Value
|
|
End Set
|
|
End Property
|
|
Dim m_verantwortlicherwechsel As Boolean
|
|
Property Verantwortlicherwechsel() As Boolean
|
|
Get
|
|
Return m_verantwortlicherwechsel
|
|
End Get
|
|
Set(ByVal Value As Boolean)
|
|
m_verantwortlicherwechsel = False
|
|
End Set
|
|
End Property
|
|
|
|
#End Region
|
|
|
|
Private Sub frmDokumentbearbeitungED_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
|
|
progress.Close()
|
|
progress.Dispose()
|
|
End Sub
|
|
End Class
|