shu
/
EDOKA_DMS
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
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.
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '07c531bdf3'
${ noResults }
EDOKA_DMS/Backup/EDOKA/Dokumentmanagement/frmDokumentbearbeitungED.vb

4662 lines
231 KiB
Raw Blame History

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"
'
'SqlDataAdapter2
'
Me.SqlDataAdapter2.DeleteCommand = Me.SqlDeleteCommand2
Me.SqlDataAdapter2.InsertCommand = Me.SqlInsertCommand2
Me.SqlDataAdapter2.SelectCommand = Me.SqlSelectCommand2
Me.SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Postzustellung", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("nreintrag", "nreintrag"), New System.Data.Common.DataColumnMapping("sprache", "sprache"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand2
'
'SqlDeleteCommand2
'
Me.SqlDeleteCommand2.CommandText = "[pv_postzustellung_delete]"
Me.SqlDeleteCommand2.CommandType = System.Data.CommandType.StoredProcedure
Me.SqlDeleteCommand2.Connection = Me.SqlConnection1
Me.SqlDeleteCommand2.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_nreintrag", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "nreintrag", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_sprache", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sprache", System.Data.DataRowVersion.Original, Nothing)})
'
'SqlInsertCommand2
'
Me.SqlInsertCommand2.CommandText = "[pv_postzustellung_insert]"
Me.SqlInsertCommand2.CommandType = System.Data.CommandType.StoredProcedure
Me.SqlInsertCommand2.Connection = Me.SqlConnection1
Me.SqlInsertCommand2.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@sprache", System.Data.SqlDbType.Int, 4, "sprache"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer")})
'
'SqlSelectCommand2
'
Me.SqlSelectCommand2.CommandText = "[pv_postzustellung_select]"
Me.SqlSelectCommand2.CommandType = System.Data.CommandType.StoredProcedure
Me.SqlSelectCommand2.Connection = Me.SqlConnection1
Me.SqlSelectCommand2.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"), New System.Data.SqlClient.SqlParameter("@sprache", System.Data.SqlDbType.Int, 4, "sprache")})
'
'SqlUpdateCommand2
'
Me.SqlUpdateCommand2.CommandText = "[pv_postzustellung_update]"
Me.SqlUpdateCommand2.CommandType = System.Data.CommandType.StoredProcedure
Me.SqlUpdateCommand2.Connection = Me.SqlConnection1
Me.SqlUpdateCommand2.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "sprache"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@Param2", System.Data.SqlDbType.Int, 4, "mandantnr"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"), New System.Data.SqlClient.SqlParameter("@Original_nreintrag", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "nreintrag", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_sprache", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sprache", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@nreintrag", System.Data.SqlDbType.Int, 4, "nreintrag")})
'
'DataSet2
'
Me.DataSet2.DataSetName = "NewDataSet"
'
'SqlDataAdapter3
'
Me.SqlDataAdapter3.DeleteCommand = Me.SqlDeleteCommand3
Me.SqlDataAdapter3.InsertCommand = Me.SqlInsertCommand3
Me.SqlDataAdapter3.SelectCommand = Me.SqlSelectCommand3
Me.SqlDataAdapter3.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "funktionsgruppe", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("funktionsgruppenr", "funktionsgruppenr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung")})})
Me.SqlDataAdapter3.UpdateCommand = Me.SqlUpdateCommand3
'
'SqlDeleteCommand3
'
Me.SqlDeleteCommand3.CommandText = "[pv_funktionsgruppe_aktiv_delete]"
Me.SqlDeleteCommand3.CommandType = System.Data.CommandType.StoredProcedure
Me.SqlDeleteCommand3.Connection = Me.SqlConnection1
Me.SqlDeleteCommand3.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionsgruppenr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing)})
'
'SqlInsertCommand3
'
Me.SqlInsertCommand3.CommandText = "[pv_funktionsgruppe_aktiv_insert]"
Me.SqlInsertCommand3.CommandType = System.Data.CommandType.StoredProcedure
Me.SqlInsertCommand3.Connection = Me.SqlConnection1
Me.SqlInsertCommand3.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, "funktionsgruppenr"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung")})
'
'SqlSelectCommand3
'
Me.SqlSelectCommand3.CommandText = "[pv_funktionsgruppe_aktiv_select]"
Me.SqlSelectCommand3.CommandType = System.Data.CommandType.StoredProcedure
Me.SqlSelectCommand3.Connection = Me.SqlConnection1
Me.SqlSelectCommand3.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr")})
'
'SqlUpdateCommand3
'
Me.SqlUpdateCommand3.CommandText = "[pv_funktionsgruppe_aktiv_update]"
Me.SqlUpdateCommand3.CommandType = System.Data.CommandType.StoredProcedure
Me.SqlUpdateCommand3.Connection = Me.SqlConnection1
Me.SqlUpdateCommand3.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, "funktionsgruppenr"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionsgruppenr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing)})
'
'DataSet3
'
Me.DataSet3.DataSetName = "NewDataSet"
'
'DataSet4
'
Me.DataSet4.DataSetName = "NewDataSet"
'
'TabControl2
'
Me.TabControl2.Controls.Add(Me.TabPage3)
Me.TabControl2.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
'Rel. 4.1 - Adresse versandfähig
If Me.Partnernr <> "" Then
If DivFnkt.Check_Versandfahigkeit(Me.Partnernr) = False Then
MyMsg.show_standardmessage(50102, MsgBoxStyle.Exclamation)
End If
End If
'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
'Rel. 4.1
If dt.bIntern.Value = True Then
dt.Dispose()
Exit Sub
End If
dt.Dispose()
Try
Select Case i
Case 1
Dim f As New frmBanklagerndverarbeitung(Me.Partnernr, True, 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
'Rel. 4.1 - Adresse versandfähig
If Me.Partnernr <> "" Then
If DivFnkt.Check_Versandfahigkeit(Me.Partnernr) = False Then
MyMsg.show_standardmessage(50102, MsgBoxStyle.Exclamation)
End If
End If
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
'Rel. 4.1 - Adresse versandfähig
If Me.Partnernr <> "" Then
If DivFnkt.Check_Versandfahigkeit(Me.Partnernr) = False Then
MyMsg.show_standardmessage(50102, MsgBoxStyle.Exclamation)
End If
End If
End If
End Sub
'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()
'Rel. OM2010
If DivFnkt.Get_Office_2010_Param(9) = "True" Then
Dim i As Integer
Dim f As New frmImportOffice2010(0)
i = f.Get_Applikationnr(docvor.iOffice_vorlagenr.Value)
If i <> 0 Then
docvor.iAnwendungnr = New SqlInt32(CType(i, Int32))
End If
f.Dispose()
End If
'Dokument erstellen
doc.cpMainConnectionProvider = conn
If Me.CreateDocument Then
doc.sDokumentid = New SqlString(CType(NewDokumentID, String))
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))
'Rel. Office 2010
Select Case docvor.iAnwendungnr.Value
Case 1
doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".doc", String))
Case 2
doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".xls", String))
Case 3
doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".pdf", String))
Case 4
doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".docx", String))
Case 5
doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".docm", String))
Case 6
doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".dotx", String))
Case 7
doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".dotm", String))
Case 8
doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".xlsx", String))
Case 9
doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".xlsm", String))
Case 10
doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".xltx", String))
Case 11
doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".xltm", String))
Case Else
End Select
'If docvor.iAnwendungnr.Value = 1 Then
' doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".doc", String))
'Else
' doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".xls", String))
'End If
'Ende Rel. Office 2010
'qdf
If UCase(docvor.sPrefix_dokumentname.Value) = "QDF" Then
doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".qdf", 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
'qdf
If UCase(docvor.sPrefix_dokumentname.Value) = "QDF" Then
qdf_bearbeiten(docvor.iOffice_vorlagenr.Value, doc.sDokumentname, xdata)
w.DokumentID = Me.DokumentID
w.CreateDoc = True
w.Restore(1)
w.ProgressBar.Close()
Me.Cursor = Cursors.Default
Me.btnWeiter.Enabled = False
DivFnkt.Status_Dokumentbearbeitung(2, Me.DokumentID, False, "")
Me.Close()
Exit Sub
End If
'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
Sub qdf_bearbeiten(ByVal officevorlagenr As Integer, ByVal dokumentname As String, ByRef xdata As DataTable)
Dim ds As New DataSet
Dim x As New FrmDomainOfficeVorlageDatei()
Dim s As String = x.Get_From_DB(officevorlagenr, Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente") + dokumentname)
x.Dispose()
Rename(s, dokumentname)
Dim fi As New System.IO.StreamReader(dokumentname)
Dim daten As String
daten = fi.ReadToEnd
For Each dr As DataRow In xdata.Rows
Try
daten = daten.Replace(dr.Item("feldname"), dr.Item("xvalue"))
Catch ex As Exception
End Try
Next
fi.Close()
Dim fo As New System.IO.StreamWriter(dokumentname)
fo.Write(daten)
fo.Flush()
fo.Close()
Shell(get_viewer_param + " " + Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente") + dokumentname, AppWinStyle.NormalFocus, False)
End Sub
Function Get_Viewer_Param() As String
Dim pa As New SqlDataAdapter("Select inhalt from snp_parameter where nreintrag=1", Globals.sConnectionString)
Dim ph As New DataSet()
Try
pa.Fill(ph, "Params")
Return ph.Tables(0).Rows(0).Item(0)
Catch ex As Exception
MsgBox("Snapform-Viewer-Parameter konnte nicht geladen werden", MsgBoxStyle.Critical)
Return ""
Finally
ph.Dispose()
ph.Dispose()
End Try
End Function
End Class
Reference in new issue View Git Blame Copy Permalink