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 'main'
${ noResults }
EDOKA_DMS/Backup/EDOKA/Systemadministration/Domains/frmDomainDokumenttypDetail.vb

4942 lines
270 KiB
Raw Permalink Blame History

Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports System.Drawing
Imports System.Drawing.Color
Imports System.ComponentModel
Public Class frmDomainDokumenttypDetail
Inherits System.Windows.Forms.Form
#Region " Vom Windows Form Designer generierter Code "
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
' 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 ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton
Friend WithEvents ToolBarButton3 As System.Windows.Forms.ToolBarButton
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Dokumenttypnr As System.Windows.Forms.Label
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
Friend WithEvents Label19 As System.Windows.Forms.Label
Friend WithEvents Label18 As System.Windows.Forms.Label
Friend WithEvents Label17 As System.Windows.Forms.Label
Friend WithEvents Label16 As System.Windows.Forms.Label
Friend WithEvents Label15 As System.Windows.Forms.Label
Friend WithEvents Label14 As System.Windows.Forms.Label
Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents cbAufbewahrungphysisch As System.Windows.Forms.ComboBox
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents cbAufbewahrungelektronisch As System.Windows.Forms.ComboBox
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents cbInEdokaDB As System.Windows.Forms.ComboBox
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents cbAbschluss As System.Windows.Forms.ComboBox
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents cbMonierung As System.Windows.Forms.ComboBox
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents cbBearbeitungszeit As System.Windows.Forms.ComboBox
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents cUnterschriftrechts As System.Windows.Forms.CheckBox
Friend WithEvents cUnterschriftlinks As System.Windows.Forms.CheckBox
Friend WithEvents cVertraulich As System.Windows.Forms.CheckBox
Friend WithEvents cNichtgeloescht As System.Windows.Forms.CheckBox
Friend WithEvents cStatusMutation As System.Windows.Forms.CheckBox
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents btnSelDokumentartEingang As System.Windows.Forms.Button
Friend WithEvents btnSelDokumentartAusgang As System.Windows.Forms.Button
Friend WithEvents btnSelColdfolder As System.Windows.Forms.Button
Friend WithEvents btnSelPhysischeAblage As System.Windows.Forms.Button
Friend WithEvents cbArchiv As System.Windows.Forms.ComboBox
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents cbColdFolder As System.Windows.Forms.ComboBox
Friend WithEvents cEingangErsetztAusgang As System.Windows.Forms.CheckBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents cbDokartEingang As System.Windows.Forms.ComboBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents cbDokartAusgang As System.Windows.Forms.ComboBox
Friend WithEvents cZuRetournieren As System.Windows.Forms.CheckBox
Friend WithEvents cZuVercolden As System.Windows.Forms.CheckBox
Friend WithEvents Grp1 As System.Windows.Forms.GroupBox
Friend WithEvents btnSelOfficeVorlage As System.Windows.Forms.Button
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents TxTBeschreibung As System.Windows.Forms.TextBox
Friend WithEvents TxTBezeichnung As System.Windows.Forms.TextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents cbOfficeVorlage As System.Windows.Forms.ComboBox
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
Friend WithEvents TabStruktur As System.Windows.Forms.TabPage
Friend WithEvents TabStatusreihenfolge As System.Windows.Forms.TabPage
Friend WithEvents TabDokumentfelder As System.Windows.Forms.TabPage
Friend WithEvents ImageList2 As System.Windows.Forms.ImageList
Friend WithEvents TxtDokumentartKundendossier As System.Windows.Forms.TextBox
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents TVStruktur As System.Windows.Forms.TreeView
Friend WithEvents RBKundendossier As System.Windows.Forms.RadioButton
Friend WithEvents RBErstellung As System.Windows.Forms.RadioButton
Friend WithEvents RBHost As System.Windows.Forms.RadioButton
Friend WithEvents RBEingang As System.Windows.Forms.RadioButton
Friend WithEvents TxtDokumentartHost As System.Windows.Forms.TextBox
Friend WithEvents TxTDokumentartRetournierung As System.Windows.Forms.TextBox
Friend WithEvents TxtDokumentartErstellung As System.Windows.Forms.TextBox
Friend WithEvents cbStatustyp As System.Windows.Forms.ComboBox
Friend WithEvents Label20 As System.Windows.Forms.Label
Friend WithEvents Statuslist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents btnsave As System.Windows.Forms.Button
Friend WithEvents pnlVorlagenfeld As System.Windows.Forms.Panel
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 vorlagenfeldlist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
Friend WithEvents Label21 As System.Windows.Forms.Label
Friend WithEvents Label22 As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents cbprozesserstellung As System.Windows.Forms.ComboBox
Friend WithEvents cbprozessverwendung As System.Windows.Forms.ComboBox
Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
Friend WithEvents txthostdokumenttyp As System.Windows.Forms.TextBox
Friend WithEvents cHostDokument As System.Windows.Forms.CheckBox
Friend WithEvents cAMSDokument As System.Windows.Forms.CheckBox
Friend WithEvents Label23 As System.Windows.Forms.Label
Friend WithEvents cWirdImportiert As System.Windows.Forms.CheckBox
Friend WithEvents cDokumentwirderstellt As System.Windows.Forms.CheckBox
Friend WithEvents CDokumentwirdretourniert As System.Windows.Forms.CheckBox
Friend WithEvents Label24 As System.Windows.Forms.Label
Friend WithEvents DokumentstatusRolle_Liste As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents BtnSaveRollen As System.Windows.Forms.Button
Friend WithEvents btnNeueRolle As System.Windows.Forms.Button
Friend WithEvents SqlDataAdapter2 As System.Data.SqlClient.SqlDataAdapter
Friend WithEvents DataSet2 As System.Data.DataSet
Friend WithEvents ToolBarButton2 As System.Windows.Forms.ToolBarButton
Friend WithEvents ContextMenu2 As System.Windows.Forms.ContextMenu
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
Friend WithEvents RBGesamt As System.Windows.Forms.RadioButton
Friend WithEvents TxtDokumentartGesamt As System.Windows.Forms.TextBox
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
Friend WithEvents MnuDokZuordnungauheben As System.Windows.Forms.MenuItem
Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
Friend WithEvents cAktiv As System.Windows.Forms.CheckBox
Friend WithEvents CDokumentersetzen As System.Windows.Forms.CheckBox
Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip
Friend WithEvents ContextMenu3 As System.Windows.Forms.ContextMenu
Friend WithEvents BeschrausOV As System.Windows.Forms.MenuItem
Friend WithEvents ToolBarButton4 As System.Windows.Forms.ToolBarButton
Friend WithEvents ToolBarButton5 As System.Windows.Forms.ToolBarButton
Friend WithEvents ToolBarButton6 As System.Windows.Forms.ToolBarButton
Friend WithEvents Label25 As System.Windows.Forms.Label
Friend WithEvents vorlagenfeldbezeichnunglist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
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 Button3 As System.Windows.Forms.Button
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 ColdIndexfeldList As C1.Win.C1TrueDBGrid.C1TrueDBDropdown
Friend WithEvents SqlDataAdapter4 As System.Data.SqlClient.SqlDataAdapter
Friend WithEvents SqlSelectCommand4 As System.Data.SqlClient.SqlCommand
Friend WithEvents DataSet4 As System.Data.DataSet
Friend WithEvents cEmailVersand As System.Windows.Forms.CheckBox
Friend WithEvents cFunktion_zuweisen As System.Windows.Forms.CheckBox
Friend WithEvents rbDokStatusStandard As System.Windows.Forms.RadioButton
Friend WithEvents rbEtikette As System.Windows.Forms.RadioButton
Friend WithEvents txtDokumentstatus As System.Windows.Forms.TextBox
Friend WithEvents txtDokumentstatus_barcode As System.Windows.Forms.TextBox
Friend WithEvents Panel3 As System.Windows.Forms.Panel
Friend WithEvents btnsavevorlagenfeldlist As System.Windows.Forms.Button
Friend WithEvents BtnStandard As System.Windows.Forms.Button
Friend WithEvents btnVorlagenfeld As System.Windows.Forms.Button
Friend WithEvents cidvnative As System.Windows.Forms.CheckBox
Friend WithEvents RBEinzeldokumente As System.Windows.Forms.RadioButton
Friend WithEvents txtDokumentartEinzeldokument As System.Windows.Forms.TextBox
Friend WithEvents Label26 As System.Windows.Forms.Label
Friend WithEvents cbOwner As System.Windows.Forms.ComboBox
Friend WithEvents cbVertrag As System.Windows.Forms.CheckBox
Friend WithEvents SqlConnection2 As System.Data.SqlClient.SqlConnection
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 btnselobnr As System.Windows.Forms.Button
Friend WithEvents cbobnr As System.Windows.Forms.ComboBox
Friend WithEvents Label27 As System.Windows.Forms.Label
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents InfomeldungList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents ContextMenu4 As System.Windows.Forms.ContextMenu
Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents Label28 As System.Windows.Forms.Label
Friend WithEvents Label29 As System.Windows.Forms.Label
Friend WithEvents Button5 As System.Windows.Forms.Button
Friend WithEvents Button6 As System.Windows.Forms.Button
Friend WithEvents Button7 As System.Windows.Forms.Button
Friend WithEvents Button8 As System.Windows.Forms.Button
Friend WithEvents Aufhebungliste As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents indexmutationliste As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents SqlDataAdapter5 As System.Data.SqlClient.SqlDataAdapter
Friend WithEvents SqlDataAdapter6 As System.Data.SqlClient.SqlDataAdapter
Friend WithEvents DataSet5 As System.Data.DataSet
Friend WithEvents DataSet6 As System.Data.DataSet
Friend WithEvents SqlSelectCommand6 As System.Data.SqlClient.SqlCommand
Friend WithEvents SqlInsertCommand5 As System.Data.SqlClient.SqlCommand
Friend WithEvents SqlUpdateCommand5 As System.Data.SqlClient.SqlCommand
Friend WithEvents SqlDeleteCommand5 As System.Data.SqlClient.SqlCommand
Friend WithEvents SqlSelectCommand5 As System.Data.SqlClient.SqlCommand
Friend WithEvents SqlInsertCommand4 As System.Data.SqlClient.SqlCommand
Friend WithEvents SqlUpdateCommand4 As System.Data.SqlClient.SqlCommand
Friend WithEvents SqlDeleteCommand4 As System.Data.SqlClient.SqlCommand
Friend WithEvents ToolBarButton7 As System.Windows.Forms.ToolBarButton
Friend WithEvents ToolBarButton8 As System.Windows.Forms.ToolBarButton
Friend WithEvents Label30 As System.Windows.Forms.Label
Friend WithEvents cbedingtretournierbar As System.Windows.Forms.CheckBox
Friend WithEvents Label31 As System.Windows.Forms.Label
Friend WithEvents cbbedingteretournierung As System.Windows.Forms.ComboBox
Friend WithEvents cbtagebedr As System.Windows.Forms.ComboBox
Friend WithEvents Label32 As System.Windows.Forms.Label
Friend WithEvents Label33 As System.Windows.Forms.Label
Friend WithEvents Button9 As System.Windows.Forms.Button
Friend WithEvents BtnHelp As System.Windows.Forms.Button
Friend WithEvents cbKDE As System.Windows.Forms.CheckBox
Friend WithEvents cbAnzeige As System.Windows.Forms.CheckBox
Friend WithEvents TbSerienbrief As System.Windows.Forms.TabPage
Friend WithEvents cbsb As System.Windows.Forms.CheckBox
Friend WithEvents cbsbnur As System.Windows.Forms.CheckBox
Friend WithEvents cbsbedituser As System.Windows.Forms.CheckBox
Friend WithEvents cbsbimport As System.Windows.Forms.CheckBox
Friend WithEvents cintern As System.Windows.Forms.CheckBox
Friend WithEvents celdokimport As System.Windows.Forms.CheckBox
Friend WithEvents txtFachverantwortung As System.Windows.Forms.TextBox
Friend WithEvents Label34 As System.Windows.Forms.Label
Friend WithEvents cbezmut As System.Windows.Forms.CheckBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDomainDokumenttypDetail))
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.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.ToolBar1 = New System.Windows.Forms.ToolBar
Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton
Me.ToolBarButton3 = New System.Windows.Forms.ToolBarButton
Me.ToolBarButton2 = New System.Windows.Forms.ToolBarButton
Me.ToolBarButton4 = New System.Windows.Forms.ToolBarButton
Me.ToolBarButton5 = New System.Windows.Forms.ToolBarButton
Me.ToolBarButton6 = New System.Windows.Forms.ToolBarButton
Me.ToolBarButton7 = New System.Windows.Forms.ToolBarButton
Me.ToolBarButton8 = New System.Windows.Forms.ToolBarButton
Me.Panel1 = New System.Windows.Forms.Panel
Me.cidvnative = New System.Windows.Forms.CheckBox
Me.txtDokumentstatus_barcode = New System.Windows.Forms.TextBox
Me.txtDokumentstatus = New System.Windows.Forms.TextBox
Me.cAktiv = New System.Windows.Forms.CheckBox
Me.TxtDokumentartGesamt = New System.Windows.Forms.TextBox
Me.GroupBox5 = New System.Windows.Forms.GroupBox
Me.celdokimport = New System.Windows.Forms.CheckBox
Me.cbedingtretournierbar = New System.Windows.Forms.CheckBox
Me.CDokumentwirdretourniert = New System.Windows.Forms.CheckBox
Me.cWirdImportiert = New System.Windows.Forms.CheckBox
Me.cDokumentwirderstellt = New System.Windows.Forms.CheckBox
Me.Label23 = New System.Windows.Forms.Label
Me.txthostdokumenttyp = New System.Windows.Forms.TextBox
Me.cHostDokument = New System.Windows.Forms.CheckBox
Me.cAMSDokument = New System.Windows.Forms.CheckBox
Me.GroupBox4 = New System.Windows.Forms.GroupBox
Me.Button2 = New System.Windows.Forms.Button
Me.Button1 = New System.Windows.Forms.Button
Me.cbprozessverwendung = New System.Windows.Forms.ComboBox
Me.Label22 = New System.Windows.Forms.Label
Me.cbprozesserstellung = New System.Windows.Forms.ComboBox
Me.Label21 = New System.Windows.Forms.Label
Me.TxTDokumentartRetournierung = New System.Windows.Forms.TextBox
Me.TxtDokumentartErstellung = New System.Windows.Forms.TextBox
Me.TxtDokumentartHost = New System.Windows.Forms.TextBox
Me.TxtDokumentartKundendossier = New System.Windows.Forms.TextBox
Me.Dokumenttypnr = New System.Windows.Forms.Label
Me.GroupBox3 = New System.Windows.Forms.GroupBox
Me.Label33 = New System.Windows.Forms.Label
Me.Label32 = New System.Windows.Forms.Label
Me.cbtagebedr = New System.Windows.Forms.ComboBox
Me.Label19 = New System.Windows.Forms.Label
Me.Label18 = New System.Windows.Forms.Label
Me.Label17 = New System.Windows.Forms.Label
Me.Label16 = New System.Windows.Forms.Label
Me.Label15 = New System.Windows.Forms.Label
Me.Label14 = New System.Windows.Forms.Label
Me.Label13 = New System.Windows.Forms.Label
Me.cbAufbewahrungphysisch = New System.Windows.Forms.ComboBox
Me.Label12 = New System.Windows.Forms.Label
Me.cbAufbewahrungelektronisch = New System.Windows.Forms.ComboBox
Me.Label11 = New System.Windows.Forms.Label
Me.cbInEdokaDB = New System.Windows.Forms.ComboBox
Me.Label10 = New System.Windows.Forms.Label
Me.cbAbschluss = New System.Windows.Forms.ComboBox
Me.Label9 = New System.Windows.Forms.Label
Me.cbMonierung = New System.Windows.Forms.ComboBox
Me.Label8 = New System.Windows.Forms.Label
Me.cbBearbeitungszeit = New System.Windows.Forms.ComboBox
Me.GroupBox2 = New System.Windows.Forms.GroupBox
Me.cintern = New System.Windows.Forms.CheckBox
Me.cbAnzeige = New System.Windows.Forms.CheckBox
Me.cbezmut = New System.Windows.Forms.CheckBox
Me.cbKDE = New System.Windows.Forms.CheckBox
Me.Label30 = New System.Windows.Forms.Label
Me.cbVertrag = New System.Windows.Forms.CheckBox
Me.cFunktion_zuweisen = New System.Windows.Forms.CheckBox
Me.cEmailVersand = New System.Windows.Forms.CheckBox
Me.CDokumentersetzen = New System.Windows.Forms.CheckBox
Me.cUnterschriftrechts = New System.Windows.Forms.CheckBox
Me.cUnterschriftlinks = New System.Windows.Forms.CheckBox
Me.cVertraulich = New System.Windows.Forms.CheckBox
Me.cNichtgeloescht = New System.Windows.Forms.CheckBox
Me.cStatusMutation = New System.Windows.Forms.CheckBox
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.Label31 = New System.Windows.Forms.Label
Me.cbbedingteretournierung = New System.Windows.Forms.ComboBox
Me.Label27 = New System.Windows.Forms.Label
Me.btnselobnr = New System.Windows.Forms.Button
Me.cbobnr = New System.Windows.Forms.ComboBox
Me.btnSelDokumentartEingang = New System.Windows.Forms.Button
Me.btnSelDokumentartAusgang = New System.Windows.Forms.Button
Me.btnSelColdfolder = New System.Windows.Forms.Button
Me.btnSelPhysischeAblage = New System.Windows.Forms.Button
Me.cbArchiv = New System.Windows.Forms.ComboBox
Me.Label7 = New System.Windows.Forms.Label
Me.Label6 = New System.Windows.Forms.Label
Me.cbColdFolder = New System.Windows.Forms.ComboBox
Me.cEingangErsetztAusgang = New System.Windows.Forms.CheckBox
Me.Label5 = New System.Windows.Forms.Label
Me.cbDokartEingang = New System.Windows.Forms.ComboBox
Me.Label4 = New System.Windows.Forms.Label
Me.cbDokartAusgang = New System.Windows.Forms.ComboBox
Me.cZuRetournieren = New System.Windows.Forms.CheckBox
Me.cZuVercolden = New System.Windows.Forms.CheckBox
Me.Grp1 = New System.Windows.Forms.GroupBox
Me.txtFachverantwortung = New System.Windows.Forms.TextBox
Me.Label34 = New System.Windows.Forms.Label
Me.Label26 = New System.Windows.Forms.Label
Me.cbOwner = New System.Windows.Forms.ComboBox
Me.btnSelOfficeVorlage = New System.Windows.Forms.Button
Me.Label3 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.TxTBeschreibung = New System.Windows.Forms.TextBox
Me.ContextMenu3 = New System.Windows.Forms.ContextMenu
Me.BeschrausOV = New System.Windows.Forms.MenuItem
Me.TxTBezeichnung = New System.Windows.Forms.TextBox
Me.Label1 = New System.Windows.Forms.Label
Me.cbOfficeVorlage = New System.Windows.Forms.ComboBox
Me.txtDokumentartEinzeldokument = New System.Windows.Forms.TextBox
Me.TabControl1 = New System.Windows.Forms.TabControl
Me.TabStruktur = New System.Windows.Forms.TabPage
Me.TVStruktur = New System.Windows.Forms.TreeView
Me.ContextMenu2 = New System.Windows.Forms.ContextMenu
Me.MnuDokZuordnungauheben = New System.Windows.Forms.MenuItem
Me.MenuItem2 = New System.Windows.Forms.MenuItem
Me.MenuItem4 = New System.Windows.Forms.MenuItem
Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components)
Me.Panel2 = New System.Windows.Forms.Panel
Me.RBEinzeldokumente = New System.Windows.Forms.RadioButton
Me.RBGesamt = New System.Windows.Forms.RadioButton
Me.RBEingang = New System.Windows.Forms.RadioButton
Me.RBHost = New System.Windows.Forms.RadioButton
Me.RBErstellung = New System.Windows.Forms.RadioButton
Me.RBKundendossier = New System.Windows.Forms.RadioButton
Me.TabStatusreihenfolge = New System.Windows.Forms.TabPage
Me.rbEtikette = New System.Windows.Forms.RadioButton
Me.rbDokStatusStandard = New System.Windows.Forms.RadioButton
Me.BtnSaveRollen = New System.Windows.Forms.Button
Me.btnNeueRolle = New System.Windows.Forms.Button
Me.DokumentstatusRolle_Liste = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
Me.Label24 = New System.Windows.Forms.Label
Me.btnsave = New System.Windows.Forms.Button
Me.Label20 = New System.Windows.Forms.Label
Me.cbStatustyp = New System.Windows.Forms.ComboBox
Me.Statuslist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
Me.TabPage2 = New System.Windows.Forms.TabPage
Me.Button7 = New System.Windows.Forms.Button
Me.Button8 = New System.Windows.Forms.Button
Me.Button5 = New System.Windows.Forms.Button
Me.Button6 = New System.Windows.Forms.Button
Me.Label29 = New System.Windows.Forms.Label
Me.Label28 = New System.Windows.Forms.Label
Me.Aufhebungliste = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
Me.ContextMenu4 = New System.Windows.Forms.ContextMenu
Me.MenuItem7 = New System.Windows.Forms.MenuItem
Me.MenuItem8 = New System.Windows.Forms.MenuItem
Me.indexmutationliste = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
Me.TabPage1 = New System.Windows.Forms.TabPage
Me.Button4 = New System.Windows.Forms.Button
Me.InfomeldungList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
Me.TabDokumentfelder = New System.Windows.Forms.TabPage
Me.TbSerienbrief = New System.Windows.Forms.TabPage
Me.cbsbimport = New System.Windows.Forms.CheckBox
Me.cbsbedituser = New System.Windows.Forms.CheckBox
Me.cbsbnur = New System.Windows.Forms.CheckBox
Me.cbsb = New System.Windows.Forms.CheckBox
Me.pnlVorlagenfeld = New System.Windows.Forms.Panel
Me.Panel3 = New System.Windows.Forms.Panel
Me.Button9 = New System.Windows.Forms.Button
Me.btnVorlagenfeld = New System.Windows.Forms.Button
Me.BtnStandard = New System.Windows.Forms.Button
Me.btnsavevorlagenfeldlist = New System.Windows.Forms.Button
Me.ColdIndexfeldList = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown
Me.Button3 = New System.Windows.Forms.Button
Me.Label25 = New System.Windows.Forms.Label
Me.vorlagenfeldbezeichnunglist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
Me.ContextMenu1 = New System.Windows.Forms.ContextMenu
Me.MenuItem1 = New System.Windows.Forms.MenuItem
Me.MenuItem3 = New System.Windows.Forms.MenuItem
Me.MenuItem5 = New System.Windows.Forms.MenuItem
Me.MenuItem6 = New System.Windows.Forms.MenuItem
Me.vorlagenfeldlist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
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.SqlConnection2 = New System.Data.SqlClient.SqlConnection
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.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
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.SqlDataAdapter4 = New System.Data.SqlClient.SqlDataAdapter
Me.SqlSelectCommand4 = New System.Data.SqlClient.SqlCommand
Me.DataSet4 = New System.Data.DataSet
Me.SqlDataAdapter5 = New System.Data.SqlClient.SqlDataAdapter
Me.SqlDeleteCommand4 = New System.Data.SqlClient.SqlCommand
Me.SqlInsertCommand4 = New System.Data.SqlClient.SqlCommand
Me.SqlSelectCommand5 = New System.Data.SqlClient.SqlCommand
Me.SqlUpdateCommand4 = New System.Data.SqlClient.SqlCommand
Me.SqlDataAdapter6 = New System.Data.SqlClient.SqlDataAdapter
Me.SqlDeleteCommand5 = New System.Data.SqlClient.SqlCommand
Me.SqlInsertCommand5 = New System.Data.SqlClient.SqlCommand
Me.SqlSelectCommand6 = New System.Data.SqlClient.SqlCommand
Me.SqlUpdateCommand5 = New System.Data.SqlClient.SqlCommand
Me.DataSet5 = New System.Data.DataSet
Me.DataSet6 = New System.Data.DataSet
Me.BtnHelp = New System.Windows.Forms.Button
Me.Panel1.SuspendLayout()
Me.GroupBox5.SuspendLayout()
Me.GroupBox4.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.Grp1.SuspendLayout()
Me.TabControl1.SuspendLayout()
Me.TabStruktur.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.TabStatusreihenfolge.SuspendLayout()
CType(Me.DokumentstatusRolle_Liste, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Statuslist, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage2.SuspendLayout()
CType(Me.Aufhebungliste, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.indexmutationliste, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage1.SuspendLayout()
CType(Me.InfomeldungList, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TbSerienbrief.SuspendLayout()
Me.pnlVorlagenfeld.SuspendLayout()
Me.Panel3.SuspendLayout()
CType(Me.ColdIndexfeldList, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.vorlagenfeldbezeichnunglist, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.vorlagenfeldlist, System.ComponentModel.ISupportInitialize).BeginInit()
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()
CType(Me.DataSet5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DataSet6, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'ImageList1
'
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
Me.ImageList1.Images.SetKeyName(0, "")
Me.ImageList1.Images.SetKeyName(1, "")
Me.ImageList1.Images.SetKeyName(2, "")
Me.ImageList1.Images.SetKeyName(3, "")
Me.ImageList1.Images.SetKeyName(4, "")
Me.ImageList1.Images.SetKeyName(5, "")
Me.ImageList1.Images.SetKeyName(6, "")
Me.ImageList1.Images.SetKeyName(7, "")
Me.ImageList1.Images.SetKeyName(8, "")
Me.ImageList1.Images.SetKeyName(9, "")
Me.ImageList1.Images.SetKeyName(10, "")
'
'ToolBar1
'
Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1, Me.ToolBarButton3, Me.ToolBarButton2, Me.ToolBarButton4, Me.ToolBarButton5, Me.ToolBarButton6, Me.ToolBarButton7, Me.ToolBarButton8})
Me.ToolBar1.DropDownArrows = True
Me.ToolBar1.ImageList = Me.ImageList1
Me.ToolBar1.Location = New System.Drawing.Point(0, 0)
Me.ToolBar1.Name = "ToolBar1"
Me.ToolBar1.ShowToolTips = True
Me.ToolBar1.Size = New System.Drawing.Size(846, 28)
Me.ToolBar1.TabIndex = 10
'
'ToolBarButton1
'
Me.ToolBarButton1.ImageIndex = 0
Me.ToolBarButton1.Name = "ToolBarButton1"
'
'ToolBarButton3
'
Me.ToolBarButton3.ImageIndex = 1
Me.ToolBarButton3.Name = "ToolBarButton3"
'
'ToolBarButton2
'
Me.ToolBarButton2.ImageIndex = 5
Me.ToolBarButton2.Name = "ToolBarButton2"
'
'ToolBarButton4
'
Me.ToolBarButton4.ImageIndex = 5
Me.ToolBarButton4.Name = "ToolBarButton4"
Me.ToolBarButton4.Visible = False
'
'ToolBarButton5
'
Me.ToolBarButton5.ImageIndex = 9
Me.ToolBarButton5.Name = "ToolBarButton5"
'
'ToolBarButton6
'
Me.ToolBarButton6.ImageIndex = 8
Me.ToolBarButton6.Name = "ToolBarButton6"
'
'ToolBarButton7
'
Me.ToolBarButton7.Name = "ToolBarButton7"
Me.ToolBarButton7.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
'
'ToolBarButton8
'
Me.ToolBarButton8.ImageIndex = 10
Me.ToolBarButton8.Name = "ToolBarButton8"
'
'Panel1
'
Me.Panel1.Controls.Add(Me.cidvnative)
Me.Panel1.Controls.Add(Me.txtDokumentstatus_barcode)
Me.Panel1.Controls.Add(Me.txtDokumentstatus)
Me.Panel1.Controls.Add(Me.cAktiv)
Me.Panel1.Controls.Add(Me.TxtDokumentartGesamt)
Me.Panel1.Controls.Add(Me.GroupBox5)
Me.Panel1.Controls.Add(Me.GroupBox4)
Me.Panel1.Controls.Add(Me.TxTDokumentartRetournierung)
Me.Panel1.Controls.Add(Me.TxtDokumentartErstellung)
Me.Panel1.Controls.Add(Me.TxtDokumentartHost)
Me.Panel1.Controls.Add(Me.TxtDokumentartKundendossier)
Me.Panel1.Controls.Add(Me.Dokumenttypnr)
Me.Panel1.Controls.Add(Me.GroupBox3)
Me.Panel1.Controls.Add(Me.GroupBox2)
Me.Panel1.Controls.Add(Me.GroupBox1)
Me.Panel1.Controls.Add(Me.Grp1)
Me.Panel1.Controls.Add(Me.txtDokumentartEinzeldokument)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left
Me.Panel1.Location = New System.Drawing.Point(0, 28)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(504, 706)
Me.Panel1.TabIndex = 13
'
'cidvnative
'
Me.cidvnative.Location = New System.Drawing.Point(384, 683)
Me.cidvnative.Name = "cidvnative"
Me.cidvnative.Size = New System.Drawing.Size(104, 16)
Me.cidvnative.TabIndex = 27
Me.cidvnative.Text = "Einzeldokument"
'
'txtDokumentstatus_barcode
'
Me.txtDokumentstatus_barcode.Location = New System.Drawing.Point(192, 0)
Me.txtDokumentstatus_barcode.Name = "txtDokumentstatus_barcode"
Me.txtDokumentstatus_barcode.Size = New System.Drawing.Size(16, 20)
Me.txtDokumentstatus_barcode.TabIndex = 26
Me.txtDokumentstatus_barcode.Text = "Retournierung"
Me.txtDokumentstatus_barcode.Visible = False
'
'txtDokumentstatus
'
Me.txtDokumentstatus.Location = New System.Drawing.Point(176, 0)
Me.txtDokumentstatus.Name = "txtDokumentstatus"
Me.txtDokumentstatus.Size = New System.Drawing.Size(16, 20)
Me.txtDokumentstatus.TabIndex = 25
Me.txtDokumentstatus.Text = "Retournierung"
Me.txtDokumentstatus.Visible = False
'
'cAktiv
'
Me.cAktiv.Location = New System.Drawing.Point(8, 683)
Me.cAktiv.Name = "cAktiv"
Me.cAktiv.Size = New System.Drawing.Size(72, 16)
Me.cAktiv.TabIndex = 24
Me.cAktiv.Text = "Aktiv"
'
'TxtDokumentartGesamt
'
Me.TxtDokumentartGesamt.Location = New System.Drawing.Point(80, 0)
Me.TxtDokumentartGesamt.Name = "TxtDokumentartGesamt"
Me.TxtDokumentartGesamt.Size = New System.Drawing.Size(24, 20)
Me.TxtDokumentartGesamt.TabIndex = 23
Me.TxtDokumentartGesamt.Text = "Erstellung"
Me.TxtDokumentartGesamt.Visible = False
'
'GroupBox5
'
Me.GroupBox5.Controls.Add(Me.celdokimport)
Me.GroupBox5.Controls.Add(Me.cbedingtretournierbar)
Me.GroupBox5.Controls.Add(Me.CDokumentwirdretourniert)
Me.GroupBox5.Controls.Add(Me.cWirdImportiert)
Me.GroupBox5.Controls.Add(Me.cDokumentwirderstellt)
Me.GroupBox5.Controls.Add(Me.Label23)
Me.GroupBox5.Controls.Add(Me.txthostdokumenttyp)
Me.GroupBox5.Controls.Add(Me.cHostDokument)
Me.GroupBox5.Controls.Add(Me.cAMSDokument)
Me.GroupBox5.Location = New System.Drawing.Point(8, 165)
Me.GroupBox5.Name = "GroupBox5"
Me.GroupBox5.Size = New System.Drawing.Size(488, 80)
Me.GroupBox5.TabIndex = 1
Me.GroupBox5.TabStop = False
Me.GroupBox5.Text = "Dokument-Modus"
'
'celdokimport
'
Me.celdokimport.Location = New System.Drawing.Point(283, 16)
Me.celdokimport.Name = "celdokimport"
Me.celdokimport.Size = New System.Drawing.Size(157, 24)
Me.celdokimport.TabIndex = 16
Me.celdokimport.Text = "Elektr. Dok-Import (PDF)"
'
'cbedingtretournierbar
'
Me.cbedingtretournierbar.Location = New System.Drawing.Point(168, 56)
Me.cbedingtretournierbar.Name = "cbedingtretournierbar"
Me.cbedingtretournierbar.Size = New System.Drawing.Size(160, 16)
Me.cbedingtretournierbar.TabIndex = 15
Me.cbedingtretournierbar.Text = "Bedingt retournierbar"
'
'CDokumentwirdretourniert
'
Me.CDokumentwirdretourniert.Location = New System.Drawing.Point(16, 57)
Me.CDokumentwirdretourniert.Name = "CDokumentwirdretourniert"
Me.CDokumentwirdretourniert.Size = New System.Drawing.Size(160, 16)
Me.CDokumentwirdretourniert.TabIndex = 5
Me.CDokumentwirdretourniert.Text = "Retournierung mit Etikette"
'
'cWirdImportiert
'
Me.cWirdImportiert.Location = New System.Drawing.Point(16, 38)
Me.cWirdImportiert.Name = "cWirdImportiert"
Me.cWirdImportiert.Size = New System.Drawing.Size(104, 16)
Me.cWirdImportiert.TabIndex = 4
Me.cWirdImportiert.Text = "Wird importiert"
'
'cDokumentwirderstellt
'
Me.cDokumentwirderstellt.Location = New System.Drawing.Point(16, 16)
Me.cDokumentwirderstellt.Name = "cDokumentwirderstellt"
Me.cDokumentwirderstellt.Size = New System.Drawing.Size(136, 24)
Me.cDokumentwirderstellt.TabIndex = 0
Me.cDokumentwirderstellt.Text = "Dokument wird erstellt"
'
'Label23
'
Me.Label23.Location = New System.Drawing.Point(280, 38)
Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(32, 23)
Me.Label23.TabIndex = 14
Me.Label23.Text = "Typ"
'
'txthostdokumenttyp
'
Me.txthostdokumenttyp.Enabled = False
Me.txthostdokumenttyp.Location = New System.Drawing.Point(320, 38)
Me.txthostdokumenttyp.Name = "txthostdokumenttyp"
Me.txthostdokumenttyp.Size = New System.Drawing.Size(64, 20)
Me.txthostdokumenttyp.TabIndex = 3
'
'cHostDokument
'
Me.cHostDokument.Location = New System.Drawing.Point(168, 38)
Me.cHostDokument.Name = "cHostDokument"
Me.cHostDokument.Size = New System.Drawing.Size(112, 16)
Me.cHostDokument.TabIndex = 2
Me.cHostDokument.Text = "HOST-Dokument"
'
'cAMSDokument
'
Me.cAMSDokument.Location = New System.Drawing.Point(168, 16)
Me.cAMSDokument.Name = "cAMSDokument"
Me.cAMSDokument.Size = New System.Drawing.Size(104, 24)
Me.cAMSDokument.TabIndex = 1
Me.cAMSDokument.Text = "AMS-Dokument"
'
'GroupBox4
'
Me.GroupBox4.Controls.Add(Me.Button2)
Me.GroupBox4.Controls.Add(Me.Button1)
Me.GroupBox4.Controls.Add(Me.cbprozessverwendung)
Me.GroupBox4.Controls.Add(Me.Label22)
Me.GroupBox4.Controls.Add(Me.cbprozesserstellung)
Me.GroupBox4.Controls.Add(Me.Label21)
Me.GroupBox4.Location = New System.Drawing.Point(8, 683)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(488, 16)
Me.GroupBox4.TabIndex = 5
Me.GroupBox4.TabStop = False
Me.GroupBox4.Text = "Prozesse"
Me.GroupBox4.Visible = False
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(456, 18)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(24, 23)
Me.Button2.TabIndex = 22
Me.Button2.Text = "..."
Me.Button2.Visible = False
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(208, 16)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(24, 23)
Me.Button1.TabIndex = 21
Me.Button1.Text = "..."
Me.Button1.Visible = False
'
'cbprozessverwendung
'
Me.cbprozessverwendung.Location = New System.Drawing.Point(320, 18)
Me.cbprozessverwendung.Name = "cbprozessverwendung"
Me.cbprozessverwendung.Size = New System.Drawing.Size(136, 21)
Me.cbprozessverwendung.TabIndex = 3
Me.cbprozessverwendung.Text = "CBProzessVerwendung"
'
'Label22
'
Me.Label22.Location = New System.Drawing.Point(248, 21)
Me.Label22.Name = "Label22"
Me.Label22.Size = New System.Drawing.Size(72, 16)
Me.Label22.TabIndex = 2
Me.Label22.Text = "Verwendung"
'
'cbprozesserstellung
'
Me.cbprozesserstellung.Location = New System.Drawing.Point(72, 17)
Me.cbprozesserstellung.Name = "cbprozesserstellung"
Me.cbprozesserstellung.Size = New System.Drawing.Size(136, 21)
Me.cbprozesserstellung.TabIndex = 1
Me.cbprozesserstellung.Text = "CBProzessErstellung"
'
'Label21
'
Me.Label21.Location = New System.Drawing.Point(16, 20)
Me.Label21.Name = "Label21"
Me.Label21.Size = New System.Drawing.Size(56, 16)
Me.Label21.TabIndex = 0
Me.Label21.Text = "Erstellung"
'
'TxTDokumentartRetournierung
'
Me.TxTDokumentartRetournierung.Location = New System.Drawing.Point(136, 0)
Me.TxTDokumentartRetournierung.Name = "TxTDokumentartRetournierung"
Me.TxTDokumentartRetournierung.Size = New System.Drawing.Size(16, 20)
Me.TxTDokumentartRetournierung.TabIndex = 20
Me.TxTDokumentartRetournierung.Text = "Retournierung"
Me.TxTDokumentartRetournierung.Visible = False
'
'TxtDokumentartErstellung
'
Me.TxtDokumentartErstellung.Location = New System.Drawing.Point(112, 0)
Me.TxtDokumentartErstellung.Name = "TxtDokumentartErstellung"
Me.TxtDokumentartErstellung.Size = New System.Drawing.Size(16, 20)
Me.TxtDokumentartErstellung.TabIndex = 19
Me.TxtDokumentartErstellung.Text = "Erstellung"
Me.TxtDokumentartErstellung.Visible = False
'
'TxtDokumentartHost
'
Me.TxtDokumentartHost.Location = New System.Drawing.Point(48, 0)
Me.TxtDokumentartHost.Name = "TxtDokumentartHost"
Me.TxtDokumentartHost.Size = New System.Drawing.Size(24, 20)
Me.TxtDokumentartHost.TabIndex = 18
Me.TxtDokumentartHost.Text = "Host"
Me.TxtDokumentartHost.Visible = False
'
'TxtDokumentartKundendossier
'
Me.TxtDokumentartKundendossier.Location = New System.Drawing.Point(8, 0)
Me.TxtDokumentartKundendossier.Name = "TxtDokumentartKundendossier"
Me.TxtDokumentartKundendossier.Size = New System.Drawing.Size(32, 20)
Me.TxtDokumentartKundendossier.TabIndex = 17
Me.TxtDokumentartKundendossier.Text = "Kundendossier"
Me.TxtDokumentartKundendossier.Visible = False
'
'Dokumenttypnr
'
Me.Dokumenttypnr.Location = New System.Drawing.Point(504, 24)
Me.Dokumenttypnr.Name = "Dokumenttypnr"
Me.Dokumenttypnr.Size = New System.Drawing.Size(100, 16)
Me.Dokumenttypnr.TabIndex = 16
Me.Dokumenttypnr.Text = "Label20"
Me.Dokumenttypnr.Visible = False
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.Label33)
Me.GroupBox3.Controls.Add(Me.Label32)
Me.GroupBox3.Controls.Add(Me.cbtagebedr)
Me.GroupBox3.Controls.Add(Me.Label19)
Me.GroupBox3.Controls.Add(Me.Label18)
Me.GroupBox3.Controls.Add(Me.Label17)
Me.GroupBox3.Controls.Add(Me.Label16)
Me.GroupBox3.Controls.Add(Me.Label15)
Me.GroupBox3.Controls.Add(Me.Label14)
Me.GroupBox3.Controls.Add(Me.Label13)
Me.GroupBox3.Controls.Add(Me.cbAufbewahrungphysisch)
Me.GroupBox3.Controls.Add(Me.Label12)
Me.GroupBox3.Controls.Add(Me.cbAufbewahrungelektronisch)
Me.GroupBox3.Controls.Add(Me.Label11)
Me.GroupBox3.Controls.Add(Me.cbInEdokaDB)
Me.GroupBox3.Controls.Add(Me.Label10)
Me.GroupBox3.Controls.Add(Me.cbAbschluss)
Me.GroupBox3.Controls.Add(Me.Label9)
Me.GroupBox3.Controls.Add(Me.cbMonierung)
Me.GroupBox3.Controls.Add(Me.Label8)
Me.GroupBox3.Controls.Add(Me.cbBearbeitungszeit)
Me.GroupBox3.Location = New System.Drawing.Point(256, 429)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(240, 248)
Me.GroupBox3.TabIndex = 4
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Zeiten"
'
'Label33
'
Me.Label33.Location = New System.Drawing.Point(192, 176)
Me.Label33.Name = "Label33"
Me.Label33.Size = New System.Drawing.Size(32, 16)
Me.Label33.TabIndex = 33
Me.Label33.Text = "Tage"
'
'Label32
'
Me.Label32.Location = New System.Drawing.Point(8, 168)
Me.Label32.Name = "Label32"
Me.Label32.Size = New System.Drawing.Size(136, 32)
Me.Label32.TabIndex = 32
Me.Label32.Text = "Vernichtung falls nicht retourniert wird nach"
'
'cbtagebedr
'
Me.cbtagebedr.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbtagebedr.Enabled = False
Me.cbtagebedr.Location = New System.Drawing.Point(144, 174)
Me.cbtagebedr.Name = "cbtagebedr"
Me.cbtagebedr.Size = New System.Drawing.Size(48, 21)
Me.cbtagebedr.TabIndex = 31
'
'Label19
'
Me.Label19.Location = New System.Drawing.Point(192, 24)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(32, 16)
Me.Label19.TabIndex = 30
Me.Label19.Text = "Min."
'
'Label18
'
Me.Label18.Location = New System.Drawing.Point(192, 144)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(32, 16)
Me.Label18.TabIndex = 29
Me.Label18.Text = "Jahre"
'
'Label17
'
Me.Label17.Location = New System.Drawing.Point(192, 120)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(32, 16)
Me.Label17.TabIndex = 28
Me.Label17.Text = "Jahre"
'
'Label16
'
Me.Label16.Location = New System.Drawing.Point(192, 96)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(32, 16)
Me.Label16.TabIndex = 27
Me.Label16.Text = "Mte."
'
'Label15
'
Me.Label15.Location = New System.Drawing.Point(192, 72)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(32, 16)
Me.Label15.TabIndex = 26
Me.Label15.Text = "Tage"
'
'Label14
'
Me.Label14.Location = New System.Drawing.Point(192, 48)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(32, 16)
Me.Label14.TabIndex = 25
Me.Label14.Text = "Tage"
'
'Label13
'
Me.Label13.Location = New System.Drawing.Point(8, 144)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(136, 16)
Me.Label13.TabIndex = 24
Me.Label13.Text = "Aufbewahrung ph."
'
'cbAufbewahrungphysisch
'
Me.cbAufbewahrungphysisch.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbAufbewahrungphysisch.Enabled = False
Me.cbAufbewahrungphysisch.Location = New System.Drawing.Point(144, 144)
Me.cbAufbewahrungphysisch.Name = "cbAufbewahrungphysisch"
Me.cbAufbewahrungphysisch.Size = New System.Drawing.Size(48, 21)
Me.cbAufbewahrungphysisch.TabIndex = 23
'
'Label12
'
Me.Label12.Location = New System.Drawing.Point(8, 120)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(136, 16)
Me.Label12.TabIndex = 22
Me.Label12.Text = "Aufbewahrung el."
'
'cbAufbewahrungelektronisch
'
Me.cbAufbewahrungelektronisch.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbAufbewahrungelektronisch.Location = New System.Drawing.Point(144, 120)
Me.cbAufbewahrungelektronisch.Name = "cbAufbewahrungelektronisch"
Me.cbAufbewahrungelektronisch.Size = New System.Drawing.Size(48, 21)
Me.cbAufbewahrungelektronisch.TabIndex = 21
'
'Label11
'
Me.Label11.Location = New System.Drawing.Point(8, 96)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(136, 16)
Me.Label11.TabIndex = 20
Me.Label11.Text = "in EDOKA-Datenbank"
'
'cbInEdokaDB
'
Me.cbInEdokaDB.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbInEdokaDB.Location = New System.Drawing.Point(144, 96)
Me.cbInEdokaDB.Name = "cbInEdokaDB"
Me.cbInEdokaDB.Size = New System.Drawing.Size(48, 21)
Me.cbInEdokaDB.TabIndex = 19
'
'Label10
'
Me.Label10.Location = New System.Drawing.Point(8, 72)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(136, 16)
Me.Label10.TabIndex = 18
Me.Label10.Text = "Bearbeitung n. Abschluss"
'
'cbAbschluss
'
Me.cbAbschluss.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbAbschluss.Location = New System.Drawing.Point(144, 72)
Me.cbAbschluss.Name = "cbAbschluss"
Me.cbAbschluss.Size = New System.Drawing.Size(48, 21)
Me.cbAbschluss.TabIndex = 17
'
'Label9
'
Me.Label9.Location = New System.Drawing.Point(8, 48)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(136, 16)
Me.Label9.TabIndex = 16
Me.Label9.Text = "Monierung in Tagen."
'
'cbMonierung
'
Me.cbMonierung.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbMonierung.Enabled = False
Me.cbMonierung.Location = New System.Drawing.Point(144, 48)
Me.cbMonierung.Name = "cbMonierung"
Me.cbMonierung.Size = New System.Drawing.Size(48, 21)
Me.cbMonierung.TabIndex = 15
'
'Label8
'
Me.Label8.Location = New System.Drawing.Point(8, 24)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(136, 16)
Me.Label8.TabIndex = 14
Me.Label8.Text = "Bearbeitungszeit in Min."
'
'cbBearbeitungszeit
'
Me.cbBearbeitungszeit.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbBearbeitungszeit.Location = New System.Drawing.Point(144, 24)
Me.cbBearbeitungszeit.Name = "cbBearbeitungszeit"
Me.cbBearbeitungszeit.Size = New System.Drawing.Size(48, 21)
Me.cbBearbeitungszeit.TabIndex = 13
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.cintern)
Me.GroupBox2.Controls.Add(Me.cbAnzeige)
Me.GroupBox2.Controls.Add(Me.cbezmut)
Me.GroupBox2.Controls.Add(Me.cbKDE)
Me.GroupBox2.Controls.Add(Me.Label30)
Me.GroupBox2.Controls.Add(Me.cbVertrag)
Me.GroupBox2.Controls.Add(Me.cFunktion_zuweisen)
Me.GroupBox2.Controls.Add(Me.cEmailVersand)
Me.GroupBox2.Controls.Add(Me.CDokumentersetzen)
Me.GroupBox2.Controls.Add(Me.cUnterschriftrechts)
Me.GroupBox2.Controls.Add(Me.cUnterschriftlinks)
Me.GroupBox2.Controls.Add(Me.cVertraulich)
Me.GroupBox2.Controls.Add(Me.cNichtgeloescht)
Me.GroupBox2.Controls.Add(Me.cStatusMutation)
Me.GroupBox2.Location = New System.Drawing.Point(8, 429)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(240, 248)
Me.GroupBox2.TabIndex = 3
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Diverses"
'
'cintern
'
Me.cintern.Location = New System.Drawing.Point(169, 228)
Me.cintern.Name = "cintern"
Me.cintern.Size = New System.Drawing.Size(73, 24)
Me.cintern.TabIndex = 19
Me.cintern.Text = "intern"
'
'cbAnzeige
'
Me.cbAnzeige.Location = New System.Drawing.Point(16, 210)
Me.cbAnzeige.Name = "cbAnzeige"
Me.cbAnzeige.Size = New System.Drawing.Size(216, 24)
Me.cbAnzeige.TabIndex = 17
Me.cbAnzeige.Text = "Anzeige in der Vorlagenauswahl"
'
'cbezmut
'
Me.cbezmut.Location = New System.Drawing.Point(16, 228)
Me.cbezmut.Name = "cbezmut"
Me.cbezmut.Size = New System.Drawing.Size(147, 24)
Me.cbezmut.TabIndex = 18
Me.cbezmut.Text = "Bezeichnung mutierbar"
'
'cbKDE
'
Me.cbKDE.Location = New System.Drawing.Point(16, 192)
Me.cbKDE.Name = "cbKDE"
Me.cbKDE.Size = New System.Drawing.Size(216, 24)
Me.cbKDE.TabIndex = 16
Me.cbKDE.Text = "Ablage im elektr. Banklagernd-Dossier"
'
'Label30
'
Me.Label30.Location = New System.Drawing.Point(32, 32)
Me.Label30.Name = "Label30"
Me.Label30.Size = New System.Drawing.Size(192, 32)
Me.Label30.TabIndex = 11
Me.Label30.Text = "(Gesetzliche Aufbewahrungsfrist ab Status 'aufgehoben')"
'
'cbVertrag
'
Me.cbVertrag.Location = New System.Drawing.Point(16, 13)
Me.cbVertrag.Name = "cbVertrag"
Me.cbVertrag.Size = New System.Drawing.Size(216, 24)
Me.cbVertrag.TabIndex = 10
Me.cbVertrag.Text = "Dokument hat Gültigkeit"
'
'cFunktion_zuweisen
'
Me.cFunktion_zuweisen.BackColor = System.Drawing.Color.Transparent
Me.cFunktion_zuweisen.Location = New System.Drawing.Point(16, 178)
Me.cFunktion_zuweisen.Name = "cFunktion_zuweisen"
Me.cFunktion_zuweisen.Size = New System.Drawing.Size(224, 19)
Me.cFunktion_zuweisen.TabIndex = 9
Me.cFunktion_zuweisen.Text = "Dokumentberechtigungen einschränken"
Me.cFunktion_zuweisen.UseVisualStyleBackColor = False
'
'cEmailVersand
'
Me.cEmailVersand.Location = New System.Drawing.Point(16, 163)
Me.cEmailVersand.Name = "cEmailVersand"
Me.cEmailVersand.Size = New System.Drawing.Size(216, 19)
Me.cEmailVersand.TabIndex = 8
Me.cEmailVersand.Text = "E-Mail-Versand möglich"
'
'CDokumentersetzen
'
Me.CDokumentersetzen.Location = New System.Drawing.Point(16, 145)
Me.CDokumentersetzen.Name = "CDokumentersetzen"
Me.CDokumentersetzen.Size = New System.Drawing.Size(216, 24)
Me.CDokumentersetzen.TabIndex = 7
Me.CDokumentersetzen.Text = "Dokumente ersetzen möglich"
'
'cUnterschriftrechts
'
Me.cUnterschriftrechts.Location = New System.Drawing.Point(16, 128)
Me.cUnterschriftrechts.Name = "cUnterschriftrechts"
Me.cUnterschriftrechts.Size = New System.Drawing.Size(216, 24)
Me.cUnterschriftrechts.TabIndex = 6
Me.cUnterschriftrechts.Text = "Unterschrift rechts"
'
'cUnterschriftlinks
'
Me.cUnterschriftlinks.Location = New System.Drawing.Point(16, 111)
Me.cUnterschriftlinks.Name = "cUnterschriftlinks"
Me.cUnterschriftlinks.Size = New System.Drawing.Size(216, 24)
Me.cUnterschriftlinks.TabIndex = 5
Me.cUnterschriftlinks.Text = "Unterschrift links"
'
'cVertraulich
'
Me.cVertraulich.Location = New System.Drawing.Point(16, 94)
Me.cVertraulich.Name = "cVertraulich"
Me.cVertraulich.Size = New System.Drawing.Size(216, 24)
Me.cVertraulich.TabIndex = 4
Me.cVertraulich.Text = "Vertraulich"
'
'cNichtgeloescht
'
Me.cNichtgeloescht.Location = New System.Drawing.Point(16, 77)
Me.cNichtgeloescht.Name = "cNichtgeloescht"
Me.cNichtgeloescht.Size = New System.Drawing.Size(216, 24)
Me.cNichtgeloescht.TabIndex = 3
Me.cNichtgeloescht.Text = "Wird bei Reorganisation nicht gelöscht"
'
'cStatusMutation
'
Me.cStatusMutation.Location = New System.Drawing.Point(16, 59)
Me.cStatusMutation.Name = "cStatusMutation"
Me.cStatusMutation.Size = New System.Drawing.Size(216, 24)
Me.cStatusMutation.TabIndex = 2
Me.cStatusMutation.Text = "Statusmutation bei Partner-Saldierung"
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.Label31)
Me.GroupBox1.Controls.Add(Me.cbbedingteretournierung)
Me.GroupBox1.Controls.Add(Me.Label27)
Me.GroupBox1.Controls.Add(Me.btnselobnr)
Me.GroupBox1.Controls.Add(Me.cbobnr)
Me.GroupBox1.Controls.Add(Me.btnSelDokumentartEingang)
Me.GroupBox1.Controls.Add(Me.btnSelDokumentartAusgang)
Me.GroupBox1.Controls.Add(Me.btnSelColdfolder)
Me.GroupBox1.Controls.Add(Me.btnSelPhysischeAblage)
Me.GroupBox1.Controls.Add(Me.cbArchiv)
Me.GroupBox1.Controls.Add(Me.Label7)
Me.GroupBox1.Controls.Add(Me.Label6)
Me.GroupBox1.Controls.Add(Me.cbColdFolder)
Me.GroupBox1.Controls.Add(Me.cEingangErsetztAusgang)
Me.GroupBox1.Controls.Add(Me.Label5)
Me.GroupBox1.Controls.Add(Me.cbDokartEingang)
Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Controls.Add(Me.cbDokartAusgang)
Me.GroupBox1.Controls.Add(Me.cZuRetournieren)
Me.GroupBox1.Controls.Add(Me.cZuVercolden)
Me.GroupBox1.Location = New System.Drawing.Point(8, 247)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(488, 176)
Me.GroupBox1.TabIndex = 2
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Archivierung"
'
'Label31
'
Me.Label31.Location = New System.Drawing.Point(16, 100)
Me.Label31.Name = "Label31"
Me.Label31.Size = New System.Drawing.Size(176, 29)
Me.Label31.TabIndex = 22
Me.Label31.Text = "Löst aus als bedingt retournierbar"
'
'cbbedingteretournierung
'
Me.cbbedingteretournierung.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbbedingteretournierung.Enabled = False
Me.cbbedingteretournierung.Location = New System.Drawing.Point(192, 100)
Me.cbbedingteretournierung.Name = "cbbedingteretournierung"
Me.cbbedingteretournierung.Size = New System.Drawing.Size(264, 21)
Me.cbbedingteretournierung.TabIndex = 23
'
'Label27
'
Me.Label27.Location = New System.Drawing.Point(128, 152)
Me.Label27.Name = "Label27"
Me.Label27.Size = New System.Drawing.Size(128, 16)
Me.Label27.TabIndex = 21
Me.Label27.Text = "Prozess"
Me.Label27.Visible = False
'
'btnselobnr
'
Me.btnselobnr.Enabled = False
Me.btnselobnr.Location = New System.Drawing.Point(456, 152)
Me.btnselobnr.Name = "btnselobnr"
Me.btnselobnr.Size = New System.Drawing.Size(24, 23)
Me.btnselobnr.TabIndex = 20
Me.btnselobnr.Text = "..."
Me.btnselobnr.Visible = False
'
'cbobnr
'
Me.cbobnr.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbobnr.Enabled = False
Me.cbobnr.Location = New System.Drawing.Point(256, 152)
Me.cbobnr.Name = "cbobnr"
Me.cbobnr.Size = New System.Drawing.Size(200, 21)
Me.cbobnr.TabIndex = 19
Me.cbobnr.Visible = False
'
'btnSelDokumentartEingang
'
Me.btnSelDokumentartEingang.Enabled = False
Me.btnSelDokumentartEingang.Location = New System.Drawing.Point(456, 48)
Me.btnSelDokumentartEingang.Name = "btnSelDokumentartEingang"
Me.btnSelDokumentartEingang.Size = New System.Drawing.Size(24, 23)
Me.btnSelDokumentartEingang.TabIndex = 6
Me.btnSelDokumentartEingang.Text = "..."
'
'btnSelDokumentartAusgang
'
Me.btnSelDokumentartAusgang.Enabled = False
Me.btnSelDokumentartAusgang.Location = New System.Drawing.Point(456, 24)
Me.btnSelDokumentartAusgang.Name = "btnSelDokumentartAusgang"
Me.btnSelDokumentartAusgang.Size = New System.Drawing.Size(24, 23)
Me.btnSelDokumentartAusgang.TabIndex = 3
Me.btnSelDokumentartAusgang.Text = "..."
'
'btnSelColdfolder
'
Me.btnSelColdfolder.Enabled = False
Me.btnSelColdfolder.Location = New System.Drawing.Point(456, 128)
Me.btnSelColdfolder.Name = "btnSelColdfolder"
Me.btnSelColdfolder.Size = New System.Drawing.Size(24, 23)
Me.btnSelColdfolder.TabIndex = 9
Me.btnSelColdfolder.Text = "..."
Me.btnSelColdfolder.Visible = False
'
'btnSelPhysischeAblage
'
Me.btnSelPhysischeAblage.Enabled = False
Me.btnSelPhysischeAblage.Location = New System.Drawing.Point(456, 72)
Me.btnSelPhysischeAblage.Name = "btnSelPhysischeAblage"
Me.btnSelPhysischeAblage.Size = New System.Drawing.Size(24, 23)
Me.btnSelPhysischeAblage.TabIndex = 11
Me.btnSelPhysischeAblage.Text = "..."
'
'cbArchiv
'
Me.cbArchiv.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbArchiv.Enabled = False
Me.cbArchiv.Location = New System.Drawing.Point(256, 72)
Me.cbArchiv.Name = "cbArchiv"
Me.cbArchiv.Size = New System.Drawing.Size(200, 21)
Me.cbArchiv.TabIndex = 10
'
'Label7
'
Me.Label7.Location = New System.Drawing.Point(128, 72)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(104, 16)
Me.Label7.TabIndex = 18
Me.Label7.Text = "Physisches Archiv"
'
'Label6
'
Me.Label6.Location = New System.Drawing.Point(128, 128)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(128, 16)
Me.Label6.TabIndex = 17
Me.Label6.Text = "COLD-Ordner"
Me.Label6.Visible = False
'
'cbColdFolder
'
Me.cbColdFolder.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbColdFolder.Enabled = False
Me.cbColdFolder.Location = New System.Drawing.Point(256, 128)
Me.cbColdFolder.Name = "cbColdFolder"
Me.cbColdFolder.Size = New System.Drawing.Size(200, 21)
Me.cbColdFolder.TabIndex = 8
Me.cbColdFolder.Visible = False
'
'cEingangErsetztAusgang
'
Me.cEingangErsetztAusgang.Enabled = False
Me.cEingangErsetztAusgang.Location = New System.Drawing.Point(16, 64)
Me.cEingangErsetztAusgang.Name = "cEingangErsetztAusgang"
Me.cEingangErsetztAusgang.Size = New System.Drawing.Size(104, 40)
Me.cEingangErsetztAusgang.TabIndex = 7
Me.cEingangErsetztAusgang.Text = "Eingang ersetzt Ausgang"
'
'Label5
'
Me.Label5.Location = New System.Drawing.Point(128, 48)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(128, 16)
Me.Label5.TabIndex = 14
Me.Label5.Text = "DokArt COLD Eingang"
'
'cbDokartEingang
'
Me.cbDokartEingang.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbDokartEingang.Enabled = False
Me.cbDokartEingang.Location = New System.Drawing.Point(256, 48)
Me.cbDokartEingang.Name = "cbDokartEingang"
Me.cbDokartEingang.Size = New System.Drawing.Size(200, 21)
Me.cbDokartEingang.TabIndex = 5
'
'Label4
'
Me.Label4.Location = New System.Drawing.Point(128, 24)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(128, 16)
Me.Label4.TabIndex = 12
Me.Label4.Text = "DokArt COLD Ausgang"
'
'cbDokartAusgang
'
Me.cbDokartAusgang.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbDokartAusgang.Enabled = False
Me.cbDokartAusgang.Location = New System.Drawing.Point(256, 24)
Me.cbDokartAusgang.Name = "cbDokartAusgang"
Me.cbDokartAusgang.Size = New System.Drawing.Size(200, 21)
Me.cbDokartAusgang.TabIndex = 1
'
'cZuRetournieren
'
Me.cZuRetournieren.Enabled = False
Me.cZuRetournieren.Location = New System.Drawing.Point(16, 43)
Me.cZuRetournieren.Name = "cZuRetournieren"
Me.cZuRetournieren.Size = New System.Drawing.Size(104, 24)
Me.cZuRetournieren.TabIndex = 4
Me.cZuRetournieren.Text = "zu retournieren"
'
'cZuVercolden
'
Me.cZuVercolden.Location = New System.Drawing.Point(16, 19)
Me.cZuVercolden.Name = "cZuVercolden"
Me.cZuVercolden.Size = New System.Drawing.Size(104, 24)
Me.cZuVercolden.TabIndex = 0
Me.cZuVercolden.Text = "zu vercolden"
'
'Grp1
'
Me.Grp1.Controls.Add(Me.txtFachverantwortung)
Me.Grp1.Controls.Add(Me.Label34)
Me.Grp1.Controls.Add(Me.Label26)
Me.Grp1.Controls.Add(Me.cbOwner)
Me.Grp1.Controls.Add(Me.btnSelOfficeVorlage)
Me.Grp1.Controls.Add(Me.Label3)
Me.Grp1.Controls.Add(Me.Label2)
Me.Grp1.Controls.Add(Me.TxTBeschreibung)
Me.Grp1.Controls.Add(Me.TxTBezeichnung)
Me.Grp1.Controls.Add(Me.Label1)
Me.Grp1.Controls.Add(Me.cbOfficeVorlage)
Me.Grp1.Location = New System.Drawing.Point(8, 24)
Me.Grp1.Name = "Grp1"
Me.Grp1.Size = New System.Drawing.Size(488, 135)
Me.Grp1.TabIndex = 0
Me.Grp1.TabStop = False
Me.Grp1.Text = "Vorlage"
'
'txtFachverantwortung
'
Me.txtFachverantwortung.Location = New System.Drawing.Point(120, 111)
Me.txtFachverantwortung.Name = "txtFachverantwortung"
Me.txtFachverantwortung.Size = New System.Drawing.Size(336, 20)
Me.txtFachverantwortung.TabIndex = 17
'
'Label34
'
Me.Label34.Location = New System.Drawing.Point(16, 112)
Me.Label34.Name = "Label34"
Me.Label34.Size = New System.Drawing.Size(100, 16)
Me.Label34.TabIndex = 16
Me.Label34.Text = "Fachverantw."
'
'Label26
'
Me.Label26.Location = New System.Drawing.Point(16, 88)
Me.Label26.Name = "Label26"
Me.Label26.Size = New System.Drawing.Size(100, 16)
Me.Label26.TabIndex = 14
Me.Label26.Text = "Owner"
'
'cbOwner
'
Me.cbOwner.Location = New System.Drawing.Point(120, 88)
Me.cbOwner.Name = "cbOwner"
Me.cbOwner.Size = New System.Drawing.Size(336, 21)
Me.cbOwner.TabIndex = 13
'
'btnSelOfficeVorlage
'
Me.btnSelOfficeVorlage.Location = New System.Drawing.Point(456, 16)
Me.btnSelOfficeVorlage.Name = "btnSelOfficeVorlage"
Me.btnSelOfficeVorlage.Size = New System.Drawing.Size(24, 23)
Me.btnSelOfficeVorlage.TabIndex = 12
Me.btnSelOfficeVorlage.Text = "..."
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(16, 64)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(100, 16)
Me.Label3.TabIndex = 11
Me.Label3.Text = "Beschreibung"
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(16, 40)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(100, 16)
Me.Label2.TabIndex = 10
Me.Label2.Text = "Bezeichnung"
'
'TxTBeschreibung
'
Me.TxTBeschreibung.ContextMenu = Me.ContextMenu3
Me.TxTBeschreibung.Location = New System.Drawing.Point(120, 64)
Me.TxTBeschreibung.Multiline = True
Me.TxTBeschreibung.Name = "TxTBeschreibung"
Me.TxTBeschreibung.Size = New System.Drawing.Size(336, 24)
Me.TxTBeschreibung.TabIndex = 9
'
'ContextMenu3
'
Me.ContextMenu3.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.BeschrausOV})
'
'BeschrausOV
'
Me.BeschrausOV.Index = 0
Me.BeschrausOV.Text = "Beschreibung aus Officevorlage übernehmen"
'
'TxTBezeichnung
'
Me.TxTBezeichnung.Location = New System.Drawing.Point(120, 40)
Me.TxTBezeichnung.Name = "TxTBezeichnung"
Me.TxTBezeichnung.Size = New System.Drawing.Size(336, 20)
Me.TxTBezeichnung.TabIndex = 8
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(16, 16)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(100, 16)
Me.Label1.TabIndex = 7
Me.Label1.Text = "Office-Vorlage"
'
'cbOfficeVorlage
'
Me.cbOfficeVorlage.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbOfficeVorlage.Location = New System.Drawing.Point(120, 16)
Me.cbOfficeVorlage.Name = "cbOfficeVorlage"
Me.cbOfficeVorlage.Size = New System.Drawing.Size(336, 21)
Me.cbOfficeVorlage.TabIndex = 6
'
'txtDokumentartEinzeldokument
'
Me.txtDokumentartEinzeldokument.Location = New System.Drawing.Point(216, 0)
Me.txtDokumentartEinzeldokument.Name = "txtDokumentartEinzeldokument"
Me.txtDokumentartEinzeldokument.Size = New System.Drawing.Size(16, 20)
Me.txtDokumentartEinzeldokument.TabIndex = 29
Me.txtDokumentartEinzeldokument.Visible = False
'
'TabControl1
'
Me.TabControl1.Controls.Add(Me.TabStruktur)
Me.TabControl1.Controls.Add(Me.TabStatusreihenfolge)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabDokumentfelder)
Me.TabControl1.Controls.Add(Me.TbSerienbrief)
Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TabControl1.Location = New System.Drawing.Point(504, 28)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(342, 706)
Me.TabControl1.TabIndex = 14
'
'TabStruktur
'
Me.TabStruktur.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.TabStruktur.Controls.Add(Me.TVStruktur)
Me.TabStruktur.Controls.Add(Me.Panel2)
Me.TabStruktur.Location = New System.Drawing.Point(4, 22)
Me.TabStruktur.Name = "TabStruktur"
Me.TabStruktur.Size = New System.Drawing.Size(334, 680)
Me.TabStruktur.TabIndex = 0
Me.TabStruktur.Text = "Struktur"
'
'TVStruktur
'
Me.TVStruktur.ContextMenu = Me.ContextMenu2
Me.TVStruktur.Dock = System.Windows.Forms.DockStyle.Fill
Me.TVStruktur.ImageIndex = 0
Me.TVStruktur.ImageList = Me.ImageList2
Me.TVStruktur.Location = New System.Drawing.Point(0, 40)
Me.TVStruktur.Name = "TVStruktur"
Me.TVStruktur.SelectedImageIndex = 0
Me.TVStruktur.Size = New System.Drawing.Size(330, 636)
Me.TVStruktur.TabIndex = 1
'
'ContextMenu2
'
Me.ContextMenu2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuDokZuordnungauheben, Me.MenuItem2, Me.MenuItem4})
'
'MnuDokZuordnungauheben
'
Me.MnuDokZuordnungauheben.Index = 0
Me.MnuDokZuordnungauheben.Text = "Zuordnung aufheben"
'
'MenuItem2
'
Me.MenuItem2.Index = 1
Me.MenuItem2.Text = "-"
'
'MenuItem4
'
Me.MenuItem4.Index = 2
Me.MenuItem4.Text = "Dokumenttypen dieser Struktur"
'
'ImageList2
'
Me.ImageList2.ImageStream = CType(resources.GetObject("ImageList2.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
Me.ImageList2.Images.SetKeyName(0, "")
Me.ImageList2.Images.SetKeyName(1, "")
Me.ImageList2.Images.SetKeyName(2, "")
'
'Panel2
'
Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.Panel2.Controls.Add(Me.RBEinzeldokumente)
Me.Panel2.Controls.Add(Me.RBGesamt)
Me.Panel2.Controls.Add(Me.RBEingang)
Me.Panel2.Controls.Add(Me.RBHost)
Me.Panel2.Controls.Add(Me.RBErstellung)
Me.Panel2.Controls.Add(Me.RBKundendossier)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(330, 40)
Me.Panel2.TabIndex = 0
'
'RBEinzeldokumente
'
Me.RBEinzeldokumente.Location = New System.Drawing.Point(8, 8)
Me.RBEinzeldokumente.Name = "RBEinzeldokumente"
Me.RBEinzeldokumente.Size = New System.Drawing.Size(296, 24)
Me.RBEinzeldokumente.TabIndex = 7
Me.RBEinzeldokumente.Text = "Einzeldokumente"
Me.RBEinzeldokumente.Visible = False
'
'RBGesamt
'
Me.RBGesamt.Location = New System.Drawing.Point(184, 8)
Me.RBGesamt.Name = "RBGesamt"
Me.RBGesamt.Size = New System.Drawing.Size(112, 24)
Me.RBGesamt.TabIndex = 6
Me.RBGesamt.Text = "gesamte Struktur"
Me.RBGesamt.Visible = False
'
'RBEingang
'
Me.RBEingang.Location = New System.Drawing.Point(232, 8)
Me.RBEingang.Name = "RBEingang"
Me.RBEingang.Size = New System.Drawing.Size(80, 24)
Me.RBEingang.TabIndex = 5
Me.RBEingang.Text = "Eingang"
Me.RBEingang.Visible = False
'
'RBHost
'
Me.RBHost.Location = New System.Drawing.Point(104, 8)
Me.RBHost.Name = "RBHost"
Me.RBHost.Size = New System.Drawing.Size(56, 24)
Me.RBHost.TabIndex = 4
Me.RBHost.Text = "HOST"
'
'RBErstellung
'
Me.RBErstellung.Location = New System.Drawing.Point(104, 8)
Me.RBErstellung.Name = "RBErstellung"
Me.RBErstellung.Size = New System.Drawing.Size(80, 24)
Me.RBErstellung.TabIndex = 3
Me.RBErstellung.Text = "Erstellung"
Me.RBErstellung.Visible = False
'
'RBKundendossier
'
Me.RBKundendossier.Location = New System.Drawing.Point(8, 8)
Me.RBKundendossier.Name = "RBKundendossier"
Me.RBKundendossier.Size = New System.Drawing.Size(104, 24)
Me.RBKundendossier.TabIndex = 0
Me.RBKundendossier.Text = "Kundendossier"
'
'TabStatusreihenfolge
'
Me.TabStatusreihenfolge.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.TabStatusreihenfolge.Controls.Add(Me.rbEtikette)
Me.TabStatusreihenfolge.Controls.Add(Me.rbDokStatusStandard)
Me.TabStatusreihenfolge.Controls.Add(Me.BtnSaveRollen)
Me.TabStatusreihenfolge.Controls.Add(Me.btnNeueRolle)
Me.TabStatusreihenfolge.Controls.Add(Me.DokumentstatusRolle_Liste)
Me.TabStatusreihenfolge.Controls.Add(Me.Label24)
Me.TabStatusreihenfolge.Controls.Add(Me.btnsave)
Me.TabStatusreihenfolge.Controls.Add(Me.Label20)
Me.TabStatusreihenfolge.Controls.Add(Me.cbStatustyp)
Me.TabStatusreihenfolge.Controls.Add(Me.Statuslist)
Me.TabStatusreihenfolge.Location = New System.Drawing.Point(4, 22)
Me.TabStatusreihenfolge.Name = "TabStatusreihenfolge"
Me.TabStatusreihenfolge.Size = New System.Drawing.Size(334, 680)
Me.TabStatusreihenfolge.TabIndex = 1
Me.TabStatusreihenfolge.Text = "Statusreihenfolge"
'
'rbEtikette
'
Me.rbEtikette.Enabled = False
Me.rbEtikette.Location = New System.Drawing.Point(88, 48)
Me.rbEtikette.Name = "rbEtikette"
Me.rbEtikette.Size = New System.Drawing.Size(168, 24)
Me.rbEtikette.TabIndex = 11
Me.rbEtikette.Text = "Retournierung mit Etikette"
'
'rbDokStatusStandard
'
Me.rbDokStatusStandard.Location = New System.Drawing.Point(16, 48)
Me.rbDokStatusStandard.Name = "rbDokStatusStandard"
Me.rbDokStatusStandard.Size = New System.Drawing.Size(72, 24)
Me.rbDokStatusStandard.TabIndex = 10
Me.rbDokStatusStandard.Text = "Standard"
'
'BtnSaveRollen
'
Me.BtnSaveRollen.ImageIndex = 1
Me.BtnSaveRollen.ImageList = Me.ImageList1
Me.BtnSaveRollen.Location = New System.Drawing.Point(296, 320)
Me.BtnSaveRollen.Name = "BtnSaveRollen"
Me.BtnSaveRollen.Size = New System.Drawing.Size(24, 24)
Me.BtnSaveRollen.TabIndex = 9
'
'btnNeueRolle
'
Me.btnNeueRolle.ImageIndex = 3
Me.btnNeueRolle.ImageList = Me.ImageList1
Me.btnNeueRolle.Location = New System.Drawing.Point(272, 320)
Me.btnNeueRolle.Name = "btnNeueRolle"
Me.btnNeueRolle.Size = New System.Drawing.Size(24, 24)
Me.btnNeueRolle.TabIndex = 8
'
'DokumentstatusRolle_Liste
'
Me.DokumentstatusRolle_Liste.AllowSort = False
Me.DokumentstatusRolle_Liste.AlternatingRows = True
Me.DokumentstatusRolle_Liste.BackColor = System.Drawing.Color.Gray
Me.DokumentstatusRolle_Liste.FilterBar = True
Me.DokumentstatusRolle_Liste.GroupByCaption = "Drag a column header here to group by that column"
Me.DokumentstatusRolle_Liste.Images.Add(CType(resources.GetObject("DokumentstatusRolle_Liste.Images"), System.Drawing.Image))
Me.DokumentstatusRolle_Liste.Location = New System.Drawing.Point(8, 352)
Me.DokumentstatusRolle_Liste.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.HighlightCell
Me.DokumentstatusRolle_Liste.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
Me.DokumentstatusRolle_Liste.Name = "DokumentstatusRolle_Liste"
Me.DokumentstatusRolle_Liste.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.DokumentstatusRolle_Liste.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.DokumentstatusRolle_Liste.PreviewInfo.ZoomFactor = 75
Me.DokumentstatusRolle_Liste.PrintInfo.PageSettings = CType(resources.GetObject("DokumentstatusRolle_Liste.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.DokumentstatusRolle_Liste.Size = New System.Drawing.Size(312, 264)
Me.DokumentstatusRolle_Liste.TabIndex = 7
Me.DokumentstatusRolle_Liste.Text = "C1TrueDBGrid1"
Me.DokumentstatusRolle_Liste.PropBag = resources.GetString("DokumentstatusRolle_Liste.PropBag")
'
'Label24
'
Me.Label24.Location = New System.Drawing.Point(8, 328)
Me.Label24.Name = "Label24"
Me.Label24.Size = New System.Drawing.Size(200, 16)
Me.Label24.TabIndex = 6
Me.Label24.Text = "Funktion, welche den Status setzen kann"
'
'btnsave
'
Me.btnsave.Image = CType(resources.GetObject("btnsave.Image"), System.Drawing.Image)
Me.btnsave.Location = New System.Drawing.Point(296, 40)
Me.btnsave.Name = "btnsave"
Me.btnsave.Size = New System.Drawing.Size(24, 24)
Me.btnsave.TabIndex = 5
'
'Label20
'
Me.Label20.Location = New System.Drawing.Point(8, 16)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(56, 23)
Me.Label20.TabIndex = 4
Me.Label20.Text = "Statustyp"
'
'cbStatustyp
'
Me.cbStatustyp.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbStatustyp.Location = New System.Drawing.Point(80, 16)
Me.cbStatustyp.Name = "cbStatustyp"
Me.cbStatustyp.Size = New System.Drawing.Size(240, 21)
Me.cbStatustyp.TabIndex = 3
'
'Statuslist
'
Me.Statuslist.AllowSort = False
Me.Statuslist.AlternatingRows = True
Me.Statuslist.BackColor = System.Drawing.Color.Gray
Me.Statuslist.GroupByCaption = "Drag a column header here to group by that column"
Me.Statuslist.Images.Add(CType(resources.GetObject("Statuslist.Images"), System.Drawing.Image))
Me.Statuslist.Location = New System.Drawing.Point(8, 72)
Me.Statuslist.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.HighlightCell
Me.Statuslist.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
Me.Statuslist.Name = "Statuslist"
Me.Statuslist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.Statuslist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.Statuslist.PreviewInfo.ZoomFactor = 75
Me.Statuslist.PrintInfo.PageSettings = CType(resources.GetObject("Statuslist.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.Statuslist.Size = New System.Drawing.Size(312, 232)
Me.Statuslist.TabIndex = 0
Me.Statuslist.Text = "C1TrueDBGrid1"
Me.Statuslist.PropBag = resources.GetString("Statuslist.PropBag")
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.Button7)
Me.TabPage2.Controls.Add(Me.Button8)
Me.TabPage2.Controls.Add(Me.Button5)
Me.TabPage2.Controls.Add(Me.Button6)
Me.TabPage2.Controls.Add(Me.Label29)
Me.TabPage2.Controls.Add(Me.Label28)
Me.TabPage2.Controls.Add(Me.Aufhebungliste)
Me.TabPage2.Controls.Add(Me.indexmutationliste)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Size = New System.Drawing.Size(334, 680)
Me.TabPage2.TabIndex = 4
Me.TabPage2.Text = "Nach Abschluss"
'
'Button7
'
Me.Button7.ImageIndex = 1
Me.Button7.ImageList = Me.ImageList1
Me.Button7.Location = New System.Drawing.Point(304, 304)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(24, 24)
Me.Button7.TabIndex = 13
'
'Button8
'
Me.Button8.ImageIndex = 3
Me.Button8.ImageList = Me.ImageList1
Me.Button8.Location = New System.Drawing.Point(280, 304)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(24, 24)
Me.Button8.TabIndex = 12
'
'Button5
'
Me.Button5.ImageIndex = 1
Me.Button5.ImageList = Me.ImageList1
Me.Button5.Location = New System.Drawing.Point(304, 32)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(24, 24)
Me.Button5.TabIndex = 11
'
'Button6
'
Me.Button6.ImageIndex = 3
Me.Button6.ImageList = Me.ImageList1
Me.Button6.Location = New System.Drawing.Point(280, 32)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(24, 24)
Me.Button6.TabIndex = 10
'
'Label29
'
Me.Label29.Location = New System.Drawing.Point(8, 304)
Me.Label29.Name = "Label29"
Me.Label29.Size = New System.Drawing.Size(200, 16)
Me.Label29.TabIndex = 5
Me.Label29.Text = "Aufhebung/Löschung nach Abschluss"
'
'Label28
'
Me.Label28.Location = New System.Drawing.Point(8, 32)
Me.Label28.Name = "Label28"
Me.Label28.Size = New System.Drawing.Size(288, 16)
Me.Label28.TabIndex = 4
Me.Label28.Text = "Indexmutation nach Abschluss"
'
'Aufhebungliste
'
Me.Aufhebungliste.AllowSort = False
Me.Aufhebungliste.AlternatingRows = True
Me.Aufhebungliste.BackColor = System.Drawing.Color.Gray
Me.Aufhebungliste.ContextMenu = Me.ContextMenu4
Me.Aufhebungliste.GroupByCaption = "Drag a column header here to group by that column"
Me.Aufhebungliste.Images.Add(CType(resources.GetObject("Aufhebungliste.Images"), System.Drawing.Image))
Me.Aufhebungliste.Location = New System.Drawing.Point(8, 328)
Me.Aufhebungliste.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.HighlightCell
Me.Aufhebungliste.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
Me.Aufhebungliste.Name = "Aufhebungliste"
Me.Aufhebungliste.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.Aufhebungliste.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.Aufhebungliste.PreviewInfo.ZoomFactor = 75
Me.Aufhebungliste.PrintInfo.PageSettings = CType(resources.GetObject("Aufhebungliste.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.Aufhebungliste.Size = New System.Drawing.Size(320, 232)
Me.Aufhebungliste.TabIndex = 3
Me.Aufhebungliste.Text = "C1TrueDBGrid1"
Me.Aufhebungliste.PropBag = resources.GetString("Aufhebungliste.PropBag")
'
'ContextMenu4
'
Me.ContextMenu4.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem7, Me.MenuItem8})
'
'MenuItem7
'
Me.MenuItem7.Index = 0
Me.MenuItem7.Text = "&Neuer Info-Empfänger"
'
'MenuItem8
'
Me.MenuItem8.Index = 1
Me.MenuItem8.Text = "&Info-Empfänger löschen"
'
'indexmutationliste
'
Me.indexmutationliste.AllowSort = False
Me.indexmutationliste.AlternatingRows = True
Me.indexmutationliste.BackColor = System.Drawing.Color.Gray
Me.indexmutationliste.ContextMenu = Me.ContextMenu4
Me.indexmutationliste.GroupByCaption = "Drag a column header here to group by that column"
Me.indexmutationliste.Images.Add(CType(resources.GetObject("indexmutationliste.Images"), System.Drawing.Image))
Me.indexmutationliste.Location = New System.Drawing.Point(8, 56)
Me.indexmutationliste.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.HighlightCell
Me.indexmutationliste.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
Me.indexmutationliste.Name = "indexmutationliste"
Me.indexmutationliste.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.indexmutationliste.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.indexmutationliste.PreviewInfo.ZoomFactor = 75
Me.indexmutationliste.PrintInfo.PageSettings = CType(resources.GetObject("indexmutationliste.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.indexmutationliste.Size = New System.Drawing.Size(320, 232)
Me.indexmutationliste.TabIndex = 2
Me.indexmutationliste.Text = "C1TrueDBGrid1"
Me.indexmutationliste.PropBag = resources.GetString("indexmutationliste.PropBag")
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.Button4)
Me.TabPage1.Controls.Add(Me.InfomeldungList)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Size = New System.Drawing.Size(334, 680)
Me.TabPage1.TabIndex = 3
Me.TabPage1.Text = "Informationsmeldungen"
'
'Button4
'
Me.Button4.Image = CType(resources.GetObject("Button4.Image"), System.Drawing.Image)
Me.Button4.Location = New System.Drawing.Point(8, 16)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(24, 24)
Me.Button4.TabIndex = 6
'
'InfomeldungList
'
Me.InfomeldungList.AllowSort = False
Me.InfomeldungList.AlternatingRows = True
Me.InfomeldungList.BackColor = System.Drawing.Color.Gray
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, 40)
Me.InfomeldungList.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.HighlightCell
Me.InfomeldungList.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
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(320, 232)
Me.InfomeldungList.TabIndex = 1
Me.InfomeldungList.Text = "C1TrueDBGrid1"
Me.InfomeldungList.PropBag = resources.GetString("InfomeldungList.PropBag")
'
'TabDokumentfelder
'
Me.TabDokumentfelder.Location = New System.Drawing.Point(4, 22)
Me.TabDokumentfelder.Name = "TabDokumentfelder"
Me.TabDokumentfelder.Size = New System.Drawing.Size(334, 680)
Me.TabDokumentfelder.TabIndex = 2
Me.TabDokumentfelder.Text = "Vorlagenfelder"
'
'TbSerienbrief
'
Me.TbSerienbrief.Controls.Add(Me.cbsbimport)
Me.TbSerienbrief.Controls.Add(Me.cbsbedituser)
Me.TbSerienbrief.Controls.Add(Me.cbsbnur)
Me.TbSerienbrief.Controls.Add(Me.cbsb)
Me.TbSerienbrief.Location = New System.Drawing.Point(4, 22)
Me.TbSerienbrief.Name = "TbSerienbrief"
Me.TbSerienbrief.Size = New System.Drawing.Size(334, 680)
Me.TbSerienbrief.TabIndex = 5
Me.TbSerienbrief.Text = "Serienbriefe"
'
'cbsbimport
'
Me.cbsbimport.Enabled = False
Me.cbsbimport.Location = New System.Drawing.Point(24, 104)
Me.cbsbimport.Name = "cbsbimport"
Me.cbsbimport.Size = New System.Drawing.Size(280, 24)
Me.cbsbimport.TabIndex = 3
Me.cbsbimport.Text = "Benutzer kann eine eigene Vorlage importieren"
'
'cbsbedituser
'
Me.cbsbedituser.Enabled = False
Me.cbsbedituser.Location = New System.Drawing.Point(24, 80)
Me.cbsbedituser.Name = "cbsbedituser"
Me.cbsbedituser.Size = New System.Drawing.Size(280, 24)
Me.cbsbedituser.TabIndex = 2
Me.cbsbedituser.Text = "Benutzer kann die Serienbrief-Vorlage bearbeiten"
'
'cbsbnur
'
Me.cbsbnur.Enabled = False
Me.cbsbnur.Location = New System.Drawing.Point(40, 48)
Me.cbsbnur.Name = "cbsbnur"
Me.cbsbnur.Size = New System.Drawing.Size(240, 24)
Me.cbsbnur.TabIndex = 1
Me.cbsbnur.Text = "Nur als Serienbriefvorlage"
'
'cbsb
'
Me.cbsb.Location = New System.Drawing.Point(24, 24)
Me.cbsb.Name = "cbsb"
Me.cbsb.Size = New System.Drawing.Size(240, 24)
Me.cbsb.TabIndex = 0
Me.cbsb.Text = "Vorlage als Serienbrief-Vorlage"
'
'pnlVorlagenfeld
'
Me.pnlVorlagenfeld.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.pnlVorlagenfeld.Controls.Add(Me.Panel3)
Me.pnlVorlagenfeld.Controls.Add(Me.ColdIndexfeldList)
Me.pnlVorlagenfeld.Controls.Add(Me.Button3)
Me.pnlVorlagenfeld.Controls.Add(Me.Label25)
Me.pnlVorlagenfeld.Controls.Add(Me.vorlagenfeldbezeichnunglist)
Me.pnlVorlagenfeld.Controls.Add(Me.vorlagenfeldlist)
Me.pnlVorlagenfeld.Location = New System.Drawing.Point(3, 48)
Me.pnlVorlagenfeld.Name = "pnlVorlagenfeld"
Me.pnlVorlagenfeld.Size = New System.Drawing.Size(845, 686)
Me.pnlVorlagenfeld.TabIndex = 15
'
'Panel3
'
Me.Panel3.Controls.Add(Me.Button9)
Me.Panel3.Controls.Add(Me.btnVorlagenfeld)
Me.Panel3.Controls.Add(Me.BtnStandard)
Me.Panel3.Controls.Add(Me.btnsavevorlagenfeldlist)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel3.Location = New System.Drawing.Point(0, 0)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(841, 32)
Me.Panel3.TabIndex = 8
'
'Button9
'
Me.Button9.Location = New System.Drawing.Point(368, 8)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(176, 23)
Me.Button9.TabIndex = 6
Me.Button9.Text = "AMS-Vorlgenfelder importieren"
Me.Button9.Visible = False
'
'btnVorlagenfeld
'
Me.btnVorlagenfeld.Location = New System.Drawing.Point(176, 8)
Me.btnVorlagenfeld.Name = "btnVorlagenfeld"
Me.btnVorlagenfeld.Size = New System.Drawing.Size(136, 23)
Me.btnVorlagenfeld.TabIndex = 5
Me.btnVorlagenfeld.Text = "&Vorlagenfeld hinzufügen"
'
'BtnStandard
'
Me.BtnStandard.Location = New System.Drawing.Point(40, 8)
Me.BtnStandard.Name = "BtnStandard"
Me.BtnStandard.Size = New System.Drawing.Size(136, 23)
Me.BtnStandard.TabIndex = 4
Me.BtnStandard.Text = "&Standards generieren"
'
'btnsavevorlagenfeldlist
'
Me.btnsavevorlagenfeldlist.Image = CType(resources.GetObject("btnsavevorlagenfeldlist.Image"), System.Drawing.Image)
Me.btnsavevorlagenfeldlist.Location = New System.Drawing.Point(8, 8)
Me.btnsavevorlagenfeldlist.Name = "btnsavevorlagenfeldlist"
Me.btnsavevorlagenfeldlist.Size = New System.Drawing.Size(24, 23)
Me.btnsavevorlagenfeldlist.TabIndex = 3
'
'ColdIndexfeldList
'
Me.ColdIndexfeldList.AllowColMove = True
Me.ColdIndexfeldList.AllowColSelect = True
Me.ColdIndexfeldList.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
Me.ColdIndexfeldList.AlternatingRows = False
Me.ColdIndexfeldList.CaptionStyle = Style1
Me.ColdIndexfeldList.ColumnCaptionHeight = 17
Me.ColdIndexfeldList.ColumnFooterHeight = 17
Me.ColdIndexfeldList.EvenRowStyle = Style2
Me.ColdIndexfeldList.FetchRowStyles = False
Me.ColdIndexfeldList.FooterStyle = Style3
Me.ColdIndexfeldList.HeadingStyle = Style4
Me.ColdIndexfeldList.HighLightRowStyle = Style5
Me.ColdIndexfeldList.Images.Add(CType(resources.GetObject("ColdIndexfeldList.Images"), System.Drawing.Image))
Me.ColdIndexfeldList.Location = New System.Drawing.Point(624, 24)
Me.ColdIndexfeldList.Name = "ColdIndexfeldList"
Me.ColdIndexfeldList.OddRowStyle = Style6
Me.ColdIndexfeldList.RecordSelectorStyle = Style7
Me.ColdIndexfeldList.RowDivider.Color = System.Drawing.Color.DarkGray
Me.ColdIndexfeldList.RowDivider.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.[Single]
Me.ColdIndexfeldList.RowSubDividerColor = System.Drawing.Color.DarkGray
Me.ColdIndexfeldList.ScrollTips = False
Me.ColdIndexfeldList.Size = New System.Drawing.Size(120, 120)
Me.ColdIndexfeldList.Style = Style8
Me.ColdIndexfeldList.TabIndex = 7
Me.ColdIndexfeldList.Text = "C1TrueDBDropdown1"
Me.ColdIndexfeldList.Visible = False
Me.ColdIndexfeldList.PropBag = resources.GetString("ColdIndexfeldList.PropBag")
'
'Button3
'
Me.Button3.Image = CType(resources.GetObject("Button3.Image"), System.Drawing.Image)
Me.Button3.Location = New System.Drawing.Point(8, 520)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(24, 23)
Me.Button3.TabIndex = 6
'
'Label25
'
Me.Label25.Location = New System.Drawing.Point(32, 520)
Me.Label25.Name = "Label25"
Me.Label25.Size = New System.Drawing.Size(112, 23)
Me.Label25.TabIndex = 5
Me.Label25.Text = "Feldbezeichnung "
'
'vorlagenfeldbezeichnunglist
'
Me.vorlagenfeldbezeichnunglist.AllowDrop = True
Me.vorlagenfeldbezeichnunglist.AllowFilter = False
Me.vorlagenfeldbezeichnunglist.AlternatingRows = True
Me.vorlagenfeldbezeichnunglist.BackColor = System.Drawing.Color.Gray
Me.vorlagenfeldbezeichnunglist.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
Me.vorlagenfeldbezeichnunglist.ContextMenu = Me.ContextMenu1
Me.vorlagenfeldbezeichnunglist.FilterBar = True
Me.vorlagenfeldbezeichnunglist.GroupByCaption = "Drag a column header here to group by that column"
Me.vorlagenfeldbezeichnunglist.Images.Add(CType(resources.GetObject("vorlagenfeldbezeichnunglist.Images"), System.Drawing.Image))
Me.vorlagenfeldbezeichnunglist.Location = New System.Drawing.Point(0, 552)
Me.vorlagenfeldbezeichnunglist.Name = "vorlagenfeldbezeichnunglist"
Me.vorlagenfeldbezeichnunglist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.vorlagenfeldbezeichnunglist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.vorlagenfeldbezeichnunglist.PreviewInfo.ZoomFactor = 75
Me.vorlagenfeldbezeichnunglist.PrintInfo.PageSettings = CType(resources.GetObject("vorlagenfeldbezeichnunglist.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.vorlagenfeldbezeichnunglist.Size = New System.Drawing.Size(832, 72)
Me.vorlagenfeldbezeichnunglist.TabIndex = 4
Me.vorlagenfeldbezeichnunglist.Text = "VorlagenfeldList"
Me.vorlagenfeldbezeichnunglist.PropBag = resources.GetString("vorlagenfeldbezeichnunglist.PropBag")
'
'ContextMenu1
'
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem3, Me.MenuItem5, Me.MenuItem6})
'
'MenuItem1
'
Me.MenuItem1.Index = 0
Me.MenuItem1.Text = "&Standards generieren"
'
'MenuItem3
'
Me.MenuItem3.Index = 1
Me.MenuItem3.Text = "&Vorlagenfeld hinzufügen"
'
'MenuItem5
'
Me.MenuItem5.Index = 2
Me.MenuItem5.Text = "-"
'
'MenuItem6
'
Me.MenuItem6.Index = 3
Me.MenuItem6.Text = "V&orlagenfelder speichern"
'
'vorlagenfeldlist
'
Me.vorlagenfeldlist.AllowDrop = True
Me.vorlagenfeldlist.AlternatingRows = True
Me.vorlagenfeldlist.BackColor = System.Drawing.Color.Gray
Me.vorlagenfeldlist.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
Me.vorlagenfeldlist.ContextMenu = Me.ContextMenu1
Me.vorlagenfeldlist.FilterBar = True
Me.vorlagenfeldlist.GroupByCaption = "Drag a column header here to group by that column"
Me.vorlagenfeldlist.Images.Add(CType(resources.GetObject("vorlagenfeldlist.Images"), System.Drawing.Image))
Me.vorlagenfeldlist.Location = New System.Drawing.Point(3, 40)
Me.vorlagenfeldlist.Name = "vorlagenfeldlist"
Me.vorlagenfeldlist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.vorlagenfeldlist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.vorlagenfeldlist.PreviewInfo.ZoomFactor = 75
Me.vorlagenfeldlist.PrintInfo.PageSettings = CType(resources.GetObject("vorlagenfeldlist.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.vorlagenfeldlist.Size = New System.Drawing.Size(829, 472)
Me.vorlagenfeldlist.TabIndex = 0
Me.vorlagenfeldlist.Text = "VorlagenfeldList"
Me.vorlagenfeldlist.PropBag = resources.GetString("vorlagenfeldlist.PropBag")
'
'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", "vorlagenfeld", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("vorlagenfeldnr", "vorlagenfeldnr"), New System.Data.Common.DataColumnMapping("dokumenttypnr", "dokumenttypnr"), New System.Data.Common.DataColumnMapping("vorlagenfeldregelnr", "vorlagenfeldregelnr"), New System.Data.Common.DataColumnMapping("feldname", "feldname"), New System.Data.Common.DataColumnMapping("beginntextmarke", "beginntextmarke"), New System.Data.Common.DataColumnMapping("endetextmarke", "endetextmarke"), New System.Data.Common.DataColumnMapping("einstiegsmakro", "einstiegsmakro"), New System.Data.Common.DataColumnMapping("ausstiegsmakro", "ausstiegsmakro"), New System.Data.Common.DataColumnMapping("reihenfolge", "reihenfolge"), New System.Data.Common.DataColumnMapping("cold_indexfeld", "cold_indexfeld"), New System.Data.Common.DataColumnMapping("eingabe_zwingend", "eingabe_zwingend"), New System.Data.Common.DataColumnMapping("testdaten", "testdaten"), 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.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
'
'SqlDeleteCommand1
'
Me.SqlDeleteCommand1.CommandText = "[pv_vorlagenfeld_delete]"
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(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_vorlagenfeldnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlagenfeldnr", 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_ausstiegsmakro", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ausstiegsmakro", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_beginntextmarke", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beginntextmarke", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_cold_indexfeld", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "cold_indexfeld", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumenttypnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumenttypnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_eingabe_zwingend", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eingabe_zwingend", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_einstiegsmakro", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "einstiegsmakro", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_endetextmarke", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "endetextmarke", 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_feldname", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "feldname", 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_reihenfolge", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reihenfolge", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_testdaten", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "testdaten", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_vorlagenfeldregelnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlagenfeldregelnr", 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 = "[pv_vorlagenfeld_insert]"
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(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@vorlagenfeldnr", System.Data.SqlDbType.Int, 4, "vorlagenfeldnr"), New System.Data.SqlClient.SqlParameter("@dokumenttypnr", System.Data.SqlDbType.Int, 4, "dokumenttypnr"), New System.Data.SqlClient.SqlParameter("@vorlagenfeldregelnr", System.Data.SqlDbType.Int, 4, "vorlagenfeldregelnr"), New System.Data.SqlClient.SqlParameter("@feldname", System.Data.SqlDbType.VarChar, 255, "feldname"), New System.Data.SqlClient.SqlParameter("@beginntextmarke", System.Data.SqlDbType.VarChar, 255, "beginntextmarke"), New System.Data.SqlClient.SqlParameter("@endetextmarke", System.Data.SqlDbType.VarChar, 255, "endetextmarke"), New System.Data.SqlClient.SqlParameter("@einstiegsmakro", System.Data.SqlDbType.Bit, 1, "einstiegsmakro"), New System.Data.SqlClient.SqlParameter("@ausstiegsmakro", System.Data.SqlDbType.Bit, 1, "ausstiegsmakro"), New System.Data.SqlClient.SqlParameter("@reihenfolge", System.Data.SqlDbType.Int, 4, "reihenfolge"), New System.Data.SqlClient.SqlParameter("@cold_indexfeld", System.Data.SqlDbType.Int, 4, "cold_indexfeld"), New System.Data.SqlClient.SqlParameter("@eingabe_zwingend", System.Data.SqlDbType.Bit, 1, "eingabe_zwingend"), New System.Data.SqlClient.SqlParameter("@testdaten", System.Data.SqlDbType.VarChar, 255, "testdaten"), 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")})
'
'SqlSelectCommand1
'
Me.SqlSelectCommand1.CommandText = "[sp_vorlagenfeld_select]"
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("@Dokumenttypnr", 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 = "[pv_vorlagenfeld_update]"
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(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@vorlagenfeldnr", System.Data.SqlDbType.Int, 4, "vorlagenfeldnr"), New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "dokumenttypnr"), New System.Data.SqlClient.SqlParameter("@vorlagenfeldregelnr", System.Data.SqlDbType.Int, 4, "vorlagenfeldregelnr"), New System.Data.SqlClient.SqlParameter("@feldname", System.Data.SqlDbType.VarChar, 255, "feldname"), New System.Data.SqlClient.SqlParameter("@beginntextmarke", System.Data.SqlDbType.VarChar, 255, "beginntextmarke"), New System.Data.SqlClient.SqlParameter("@endetextmarke", System.Data.SqlDbType.VarChar, 255, "endetextmarke"), New System.Data.SqlClient.SqlParameter("@einstiegsmakro", System.Data.SqlDbType.Bit, 1, "einstiegsmakro"), New System.Data.SqlClient.SqlParameter("@ausstiegsmakro", System.Data.SqlDbType.Bit, 1, "ausstiegsmakro"), New System.Data.SqlClient.SqlParameter("@reihenfolge", System.Data.SqlDbType.Int, 4, "reihenfolge"), New System.Data.SqlClient.SqlParameter("@cold_indexfeld", System.Data.SqlDbType.Int, 4, "cold_indexfeld"), New System.Data.SqlClient.SqlParameter("@eingabe_zwingend", System.Data.SqlDbType.Bit, 1, "eingabe_zwingend"), New System.Data.SqlClient.SqlParameter("@testdaten", System.Data.SqlDbType.VarChar, 255, "testdaten"), 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"), New System.Data.SqlClient.SqlParameter("@Original_vorlagenfeldnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlagenfeldnr", 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_ausstiegsmakro", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ausstiegsmakro", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_beginntextmarke", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beginntextmarke", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_cold_indexfeld", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "cold_indexfeld", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumenttypnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumenttypnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_eingabe_zwingend", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eingabe_zwingend", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_einstiegsmakro", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "einstiegsmakro", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_endetextmarke", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "endetextmarke", 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_feldname", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "feldname", 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_reihenfolge", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reihenfolge", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_testdaten", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "testdaten", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_vorlagenfeldregelnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlagenfeldregelnr", System.Data.DataRowVersion.Original, Nothing)})
'
'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", "dokumentstatus_funktion", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("dokumentstatus_funktionnr", "dokumentstatus_funktionnr"), New System.Data.Common.DataColumnMapping("dokumentstatusnr", "dokumentstatusnr"), New System.Data.Common.DataColumnMapping("funktionnr", "funktionnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), 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_dokumentstatus_funktion_delete]"
Me.SqlDeleteCommand2.CommandType = System.Data.CommandType.StoredProcedure
Me.SqlDeleteCommand2.Connection = Me.SqlConnection2
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_dokumentstatus_funktionnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentstatus_funktionnr", 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_dokumentstatusnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentstatusnr", 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_funktionnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionnr", 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)})
'
'SqlConnection2
'
Me.SqlConnection2.ConnectionString = "data source=shu;initial catalog=edoka_tkb;integrated security=SSPI;persist securi" & _
"ty info=False;workstation id=SHU;packet size=4096"
Me.SqlConnection2.FireInfoMessageEventOnUserErrors = False
'
'SqlInsertCommand2
'
Me.SqlInsertCommand2.CommandText = "[pv_dokumentstatus_funktion_insert]"
Me.SqlInsertCommand2.CommandType = System.Data.CommandType.StoredProcedure
Me.SqlInsertCommand2.Connection = Me.SqlConnection2
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("@dokumentstatus_funktionnr", System.Data.SqlDbType.Int, 4, "dokumentstatus_funktionnr"), New System.Data.SqlClient.SqlParameter("@dokumentstatusnr", System.Data.SqlDbType.Int, 4, "dokumentstatusnr"), New System.Data.SqlClient.SqlParameter("@funktionnr", System.Data.SqlDbType.Int, 4, "funktionnr"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"), 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 = "[sp_dokumentstatus_funktion_select]"
Me.SqlSelectCommand2.CommandType = System.Data.CommandType.StoredProcedure
Me.SqlSelectCommand2.Connection = Me.SqlConnection2
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(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@dokumentstatusnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing)})
'
'SqlUpdateCommand2
'
Me.SqlUpdateCommand2.CommandText = "[pv_dokumentstatus_funktion_update]"
Me.SqlUpdateCommand2.CommandType = System.Data.CommandType.StoredProcedure
Me.SqlUpdateCommand2.Connection = Me.SqlConnection2
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("@dokumentstatus_funktionnr", System.Data.SqlDbType.Int, 4, "dokumentstatus_funktionnr"), New System.Data.SqlClient.SqlParameter("@dokumentstatusnr", System.Data.SqlDbType.Int, 4, "dokumentstatusnr"), New System.Data.SqlClient.SqlParameter("@funktionnr", System.Data.SqlDbType.Int, 4, "funktionnr"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"), 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_dokumentstatus_funktionnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentstatus_funktionnr", 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_dokumentstatusnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentstatusnr", 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_funktionnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionnr", 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)})
'
'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", "vorlagenfeldbezeichnung", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("vorlagenfeldbezeichnungnr", "vorlagenfeldbezeichnungnr"), New System.Data.Common.DataColumnMapping("vorlagenfeld", "vorlagenfeld"), New System.Data.Common.DataColumnMapping("sprache", "sprache"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), 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.SqlDataAdapter3.UpdateCommand = Me.SqlUpdateCommand3
'
'SqlDeleteCommand3
'
Me.SqlDeleteCommand3.CommandText = "[pv_vorlagenfeldbezeichnung_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_vorlagenfeldbezeichnungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlagenfeldbezeichnungnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, 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_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("@Original_vorlagenfeld", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlagenfeld", System.Data.DataRowVersion.Original, Nothing)})
'
'SqlInsertCommand3
'
Me.SqlInsertCommand3.CommandText = "[pv_vorlagenfeldbezeichnung_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("@vorlagenfeldbezeichnungnr", System.Data.SqlDbType.Int, 4, "vorlagenfeldbezeichnungnr"), New System.Data.SqlClient.SqlParameter("@vorlagenfeld", System.Data.SqlDbType.Int, 4, "vorlagenfeld"), New System.Data.SqlClient.SqlParameter("@sprache", System.Data.SqlDbType.Int, 4, "sprache"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"), 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")})
'
'SqlSelectCommand3
'
Me.SqlSelectCommand3.CommandText = "[pv_vorlagenfeldbezeichnung_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("@vorlagenfeld", System.Data.SqlDbType.Int, 4, "vorlagenfeld")})
'
'SqlUpdateCommand3
'
Me.SqlUpdateCommand3.CommandText = "[pv_vorlagenfeldbezeichnung_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("@vorlagenfeldbezeichnungnr", System.Data.SqlDbType.Int, 4, "vorlagenfeldbezeichnungnr"), New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "vorlagenfeld"), New System.Data.SqlClient.SqlParameter("@sprache", System.Data.SqlDbType.Int, 4, "sprache"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"), 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_vorlagenfeldbezeichnungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlagenfeldbezeichnungnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, 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_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("@Original_vorlagenfeld", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlagenfeld", System.Data.DataRowVersion.Original, Nothing)})
'
'DataSet3
'
Me.DataSet3.DataSetName = "NewDataSet"
'
'SqlDataAdapter4
'
Me.SqlDataAdapter4.SelectCommand = Me.SqlSelectCommand4
Me.SqlDataAdapter4.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "coldindex", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("coldindexnr", "coldindexnr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung")})})
'
'SqlSelectCommand4
'
Me.SqlSelectCommand4.CommandText = "[pv_coldindexfeld_auswahl_select]"
Me.SqlSelectCommand4.CommandType = System.Data.CommandType.StoredProcedure
Me.SqlSelectCommand4.Connection = Me.SqlConnection1
Me.SqlSelectCommand4.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("@foldernr", System.Data.SqlDbType.Int, 4, "cold_foldernr")})
'
'DataSet4
'
Me.DataSet4.DataSetName = "NewDataSet"
'
'SqlDataAdapter5
'
Me.SqlDataAdapter5.DeleteCommand = Me.SqlDeleteCommand4
Me.SqlDataAdapter5.InsertCommand = Me.SqlInsertCommand4
Me.SqlDataAdapter5.SelectCommand = Me.SqlSelectCommand5
Me.SqlDataAdapter5.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "dokumentindexmutation", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("indexmutationnr", "indexmutationnr"), New System.Data.Common.DataColumnMapping("dokumenttypnr", "dokumenttypnr"), New System.Data.Common.DataColumnMapping("funktionnr", "funktionnr"), 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"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv")})})
Me.SqlDataAdapter5.UpdateCommand = Me.SqlUpdateCommand4
'
'SqlDeleteCommand4
'
Me.SqlDeleteCommand4.CommandText = "[pv_dokumentindexmutation_delete]"
Me.SqlDeleteCommand4.CommandType = System.Data.CommandType.StoredProcedure
Me.SqlDeleteCommand4.Connection = Me.SqlConnection2
Me.SqlDeleteCommand4.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_indexmutationnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "indexmutationnr", 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_dokumenttypnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumenttypnr", 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_funktionnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionnr", 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)})
'
'SqlInsertCommand4
'
Me.SqlInsertCommand4.CommandText = "[pv_dokumentindexmutation_insert]"
Me.SqlInsertCommand4.CommandType = System.Data.CommandType.StoredProcedure
Me.SqlInsertCommand4.Connection = Me.SqlConnection2
Me.SqlInsertCommand4.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("@indexmutationnr", System.Data.SqlDbType.Int, 4, "indexmutationnr"), New System.Data.SqlClient.SqlParameter("@dokumenttypnr", System.Data.SqlDbType.Int, 4, "dokumenttypnr"), New System.Data.SqlClient.SqlParameter("@funktionnr", System.Data.SqlDbType.Int, 4, "funktionnr"), 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("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv")})
'
'SqlSelectCommand5
'
Me.SqlSelectCommand5.CommandText = "[pv_dokumentindexmutation_select]"
Me.SqlSelectCommand5.CommandType = System.Data.CommandType.StoredProcedure
Me.SqlSelectCommand5.Connection = Me.SqlConnection2
Me.SqlSelectCommand5.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("@dokumenttypnr", System.Data.SqlDbType.Int, 4, "dokumenttypnr")})
'
'SqlUpdateCommand4
'
Me.SqlUpdateCommand4.CommandText = "[pv_dokumentindexmutation_update]"
Me.SqlUpdateCommand4.CommandType = System.Data.CommandType.StoredProcedure
Me.SqlUpdateCommand4.Connection = Me.SqlConnection2
Me.SqlUpdateCommand4.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("@indexmutationnr", System.Data.SqlDbType.Int, 4, "indexmutationnr"), New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "dokumenttypnr"), New System.Data.SqlClient.SqlParameter("@funktionnr", System.Data.SqlDbType.Int, 4, "funktionnr"), 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("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"), New System.Data.SqlClient.SqlParameter("@Original_indexmutationnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "indexmutationnr", 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_dokumenttypnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumenttypnr", 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_funktionnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionnr", 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)})
'
'SqlDataAdapter6
'
Me.SqlDataAdapter6.DeleteCommand = Me.SqlDeleteCommand5
Me.SqlDataAdapter6.InsertCommand = Me.SqlInsertCommand5
Me.SqlDataAdapter6.SelectCommand = Me.SqlSelectCommand6
Me.SqlDataAdapter6.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "dokumentaufhebung", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("aufhebungnr", "aufhebungnr"), New System.Data.Common.DataColumnMapping("dokumenttypnr", "dokumenttypnr"), New System.Data.Common.DataColumnMapping("funktionnr", "funktionnr"), 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"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv")})})
Me.SqlDataAdapter6.UpdateCommand = Me.SqlUpdateCommand5
'
'SqlDeleteCommand5
'
Me.SqlDeleteCommand5.CommandText = "[pv_dokumentaufhebung_delete]"
Me.SqlDeleteCommand5.CommandType = System.Data.CommandType.StoredProcedure
Me.SqlDeleteCommand5.Connection = Me.SqlConnection2
Me.SqlDeleteCommand5.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_aufhebungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aufhebungnr", 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_dokumenttypnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumenttypnr", 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_funktionnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionnr", 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)})
'
'SqlInsertCommand5
'
Me.SqlInsertCommand5.CommandText = "[pv_dokumentaufhebung_insert]"
Me.SqlInsertCommand5.CommandType = System.Data.CommandType.StoredProcedure
Me.SqlInsertCommand5.Connection = Me.SqlConnection2
Me.SqlInsertCommand5.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("@aufhebungnr", System.Data.SqlDbType.Int, 4, "aufhebungnr"), New System.Data.SqlClient.SqlParameter("@dokumenttypnr", System.Data.SqlDbType.Int, 4, "dokumenttypnr"), New System.Data.SqlClient.SqlParameter("@funktionnr", System.Data.SqlDbType.Int, 4, "funktionnr"), 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("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv")})
'
'SqlSelectCommand6
'
Me.SqlSelectCommand6.CommandText = "[pv_dokumentaufhebung_select]"
Me.SqlSelectCommand6.CommandType = System.Data.CommandType.StoredProcedure
Me.SqlSelectCommand6.Connection = Me.SqlConnection2
Me.SqlSelectCommand6.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("@dokumenttypnr", System.Data.SqlDbType.Int, 4, "dokumenttypnr")})
'
'SqlUpdateCommand5
'
Me.SqlUpdateCommand5.CommandText = "[pv_dokumentaufhebung_update]"
Me.SqlUpdateCommand5.CommandType = System.Data.CommandType.StoredProcedure
Me.SqlUpdateCommand5.Connection = Me.SqlConnection2
Me.SqlUpdateCommand5.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("@aufhebungnr", System.Data.SqlDbType.Int, 4, "aufhebungnr"), New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "dokumenttypnr"), New System.Data.SqlClient.SqlParameter("@funktionnr", System.Data.SqlDbType.Int, 4, "funktionnr"), 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("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"), New System.Data.SqlClient.SqlParameter("@Original_aufhebungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aufhebungnr", 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_dokumenttypnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumenttypnr", 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_funktionnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionnr", 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)})
'
'DataSet5
'
Me.DataSet5.DataSetName = "NewDataSet"
'
'DataSet6
'
Me.DataSet6.DataSetName = "NewDataSet"
'
'BtnHelp
'
Me.BtnHelp.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.BtnHelp.Image = CType(resources.GetObject("BtnHelp.Image"), System.Drawing.Image)
Me.BtnHelp.Location = New System.Drawing.Point(824, 2)
Me.BtnHelp.Name = "BtnHelp"
Me.BtnHelp.Size = New System.Drawing.Size(24, 23)
Me.BtnHelp.TabIndex = 67
'
'frmDomainDokumenttypDetail
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(846, 734)
Me.ControlBox = False
Me.Controls.Add(Me.BtnHelp)
Me.Controls.Add(Me.pnlVorlagenfeld)
Me.Controls.Add(Me.TabControl1)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.ToolBar1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.Name = "frmDomainDokumenttypDetail"
Me.ShowInTaskbar = False
Me.Text = "Dokumenttyp-Detail"
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.GroupBox5.ResumeLayout(False)
Me.GroupBox5.PerformLayout()
Me.GroupBox4.ResumeLayout(False)
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox1.ResumeLayout(False)
Me.Grp1.ResumeLayout(False)
Me.Grp1.PerformLayout()
Me.TabControl1.ResumeLayout(False)
Me.TabStruktur.ResumeLayout(False)
Me.Panel2.ResumeLayout(False)
Me.TabStatusreihenfolge.ResumeLayout(False)
CType(Me.DokumentstatusRolle_Liste, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Statuslist, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage2.ResumeLayout(False)
CType(Me.Aufhebungliste, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.indexmutationliste, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage1.ResumeLayout(False)
CType(Me.InfomeldungList, System.ComponentModel.ISupportInitialize).EndInit()
Me.TbSerienbrief.ResumeLayout(False)
Me.pnlVorlagenfeld.ResumeLayout(False)
Me.Panel3.ResumeLayout(False)
CType(Me.ColdIndexfeldList, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.vorlagenfeldbezeichnunglist, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.vorlagenfeldlist, System.ComponentModel.ISupportInitialize).EndInit()
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()
CType(Me.DataSet5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DataSet6, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
#End Region
#Region "Deklarationen"
Dim m_NeuerEintrag As Boolean
Dim m_dokumenttypkey As Long
Dim tcoldfolder As DataTable
Dim tobnr As DataTable
Dim tofficevorlage As DataTable
Dim tphysischesarchiv As DataTable
Dim tdokumentartausgang As DataTable
Dim tdokumentarteingang As DataTable
Dim dokumentart As New edokadb.clsMyDokumentart()
Dim tstatustyp As DataTable
Dim DataChanged As Boolean
Dim tprozess1 As DataTable
Dim tprozess2 As DataTable
Dim neu As Boolean
Dim On_Load As Boolean
Dim dokumentinfomeldungen As DataTable
Dim t As DataTable
Dim r As DataTable
Dim savestatustyp As Long
Dim me_onLoad As Boolean
Dim StatusDataChanged As Boolean
Dim VorlagenDataChanged As Boolean
Dim DokStatus As Integer
Dim mcbowner As New MultiComboBox()
Dim WithEvents mcbbedingteretournierung As New MultiComboBox()
Dim IndexMutationNachAbschluss As Boolean = False
Dim LoeschungNachAbschluss As Boolean = False
#End Region
#Region "Properties"
Property NeuerEintrag() As Boolean
Get
Return m_NeuerEintrag
End Get
Set(ByVal Value As Boolean)
m_NeuerEintrag = Value
End Set
End Property
Property DokumentTypkey() As Long
Get
Return m_dokumenttypkey
End Get
Set(ByVal Value As Long)
m_dokumenttypkey = Value
End Set
End Property
#End Region
#Region "Formularhandling"
Private Sub frmDomainDokumenttypDetail_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
Me.SqlConnection2.ConnectionString = Globals.sConnectionString
Me.SqlConnection1.Open()
me_onLoad = True
DataChanged = False
Dim tn As TreeNode
Load_Listen()
If Me.NeuerEintrag = False Then
neu = False
Me.On_Load = True
Load_Data()
Me.On_Load = False
Else
neu = True
init_fields()
Me.TxtDokumentartKundendossier.Text = 0
Me.TxtDokumentartErstellung.Text = 0
Me.TxtDokumentartHost.Text = 0
Me.TxTDokumentartRetournierung.Text = 0
Me.TxtDokumentartGesamt.Text = 0
Me.txtDokumentstatus_barcode.Text = 0
Me.txtDokumentartEinzeldokument.Text = 0
Me.txtDokumentstatus.Text = Me.cbStatustyp.SelectedValue
Me.cbBearbeitungszeit.Text = 1
Me.cbAufbewahrungelektronisch.Text = 10
Me.cbAufbewahrungphysisch.Text = 10
Me.cbInEdokaDB.Text = 3
Me.cbMonierung.Text = 3
Me.cbAbschluss.Text = 5
Me.cAktiv.Checked = True
End If
If Me.cidvnative.Checked Then Me.RBEinzeldokumente.Checked = True Else Me.RBKundendossier.Checked = True
Me.DokStatus = 0
Load_Dokumentstatus()
Me.savestatustyp = Me.cbStatustyp.SelectedValue
Me.StatusDataChanged = False
Me.DataChanged = False
Me.VorlagenDataChanged = False
SetFields(sender, e)
Me.dokumentinfomeldungen = Me.Dokumentinfomeldungen_laden
Me.InfomeldungList.DataSource = Me.dokumentinfomeldungen
Me.InfomeldungList.Columns(8).FilterText = True
DivFnkt.SpaltenTitel_Aktualisieren(Me.InfomeldungList, Me.dokumentinfomeldungen, "Dokumentinfomeldung")
me_onLoad = False
set_tooltips()
Update_Aufhebungliste()
Update_indexmutation()
If DivFnkt.MA_Is_Sysadmin(Globals.MitarbeiterNr) Then
Me.Label6.Visible = True
Me.Label27.Visible = True
Me.cbColdFolder.Visible = True
Me.cbobnr.Visible = True
Me.btnSelColdfolder.Visible = True
Me.btnselobnr.Visible = True
End If
If Me.cbKDE.Checked = True Then Me.cbArchiv.Enabled = True
Me.TabControl1.SelectedTab = Me.TabStatusreihenfolge
Me.TabControl1.SelectedTab = Me.TabStruktur
Try
Catch ex As Exception
End Try
End Sub
Private Sub set_tooltips()
Dim ttip As New ToolTip()
ttip.SetToolTip(Me.cbOfficeVorlage, Globals.MyTxt.gettext(20000))
ttip.SetToolTip(Me.TxTBezeichnung, Globals.MyTxt.gettext(20001))
ttip.SetToolTip(Me.TxTBeschreibung, Globals.MyTxt.gettext(20002))
ttip.SetToolTip(Me.cDokumentwirderstellt, Globals.MyTxt.gettext(20003))
ttip.SetToolTip(Me.cAMSDokument, Globals.MyTxt.gettext(20004))
ttip.SetToolTip(Me.cHostDokument, Globals.MyTxt.gettext(20005))
ttip.SetToolTip(Me.txthostdokumenttyp, Globals.MyTxt.gettext(20006))
ttip.SetToolTip(Me.cWirdImportiert, Globals.MyTxt.gettext(20007))
ttip.SetToolTip(Me.CDokumentwirdretourniert, Globals.MyTxt.gettext(20008))
ttip.SetToolTip(Me.cZuVercolden, Globals.MyTxt.gettext(20009))
ttip.SetToolTip(Me.cbDokartAusgang, Globals.MyTxt.gettext(20010))
ttip.SetToolTip(Me.cZuRetournieren, Globals.MyTxt.gettext(20011))
ttip.SetToolTip(Me.cbDokartEingang, Globals.MyTxt.gettext(20012))
ttip.SetToolTip(Me.cEingangErsetztAusgang, Globals.MyTxt.gettext(20013))
ttip.SetToolTip(Me.cbColdFolder, Globals.MyTxt.gettext(20014))
ttip.SetToolTip(Me.cbobnr, Globals.MyTxt.gettext(20040))
ttip.SetToolTip(Me.cbArchiv, Globals.MyTxt.gettext(20015))
ttip.SetToolTip(Me.cStatusMutation, Globals.MyTxt.gettext(20016))
ttip.SetToolTip(Me.cNichtgeloescht, Globals.MyTxt.gettext(20017))
ttip.SetToolTip(Me.cVertraulich, Globals.MyTxt.gettext(20018))
ttip.SetToolTip(Me.cUnterschriftlinks, Globals.MyTxt.gettext(20019))
ttip.SetToolTip(Me.cUnterschriftrechts, Globals.MyTxt.gettext(20020))
ttip.SetToolTip(Me.CDokumentersetzen, Globals.MyTxt.gettext(20021))
ttip.SetToolTip(Me.cbBearbeitungszeit, Globals.MyTxt.gettext(20022))
ttip.SetToolTip(Me.cbMonierung, Globals.MyTxt.gettext(20023))
ttip.SetToolTip(Me.cbAbschluss, Globals.MyTxt.gettext(20024))
ttip.SetToolTip(Me.cbInEdokaDB, Globals.MyTxt.gettext(20025))
ttip.SetToolTip(Me.cbAufbewahrungelektronisch, Globals.MyTxt.gettext(20026))
ttip.SetToolTip(Me.cbAufbewahrungphysisch, Globals.MyTxt.gettext(20027))
ttip.SetToolTip(Me.cbprozesserstellung, Globals.MyTxt.gettext(20028))
ttip.SetToolTip(Me.cbprozessverwendung, Globals.MyTxt.gettext(20029))
ttip.SetToolTip(Me.cAktiv, Globals.MyTxt.gettext(20030))
ttip.SetToolTip(Me.TVStruktur, Globals.MyTxt.gettext(20031))
ttip.SetToolTip(Me.cbStatustyp, Globals.MyTxt.gettext(20032))
ttip.SetToolTip(Me.Statuslist, Globals.MyTxt.gettext(20033))
ttip.SetToolTip(Me.DokumentstatusRolle_Liste, Globals.MyTxt.gettext(20034))
ttip.SetToolTip(Me.cFunktion_zuweisen, Globals.MyTxt.gettext(20035))
ttip.SetToolTip(Me.cEmailVersand, Globals.MyTxt.gettext(20036))
ttip.SetToolTip(Me.rbDokStatusStandard, MyTxt.gettext(20037))
ttip.SetToolTip(Me.rbEtikette, MyTxt.gettext(20038))
ttip.SetToolTip(Me.cidvnative, MyTxt.gettext(20039))
ttip.SetToolTip(Me.cbVertrag, MyTxt.gettext(20041))
ttip.SetToolTip(Me.cbbedingteretournierung, MyTxt.gettext(20042))
ttip.SetToolTip(Me.cbtagebedr, MyTxt.gettext(20043))
End Sub
Private Sub cidvnative_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cidvnative.CheckedChanged
If Me.cidvnative.Checked Then
Me.RBKundendossier.Visible = False
Me.RBEinzeldokumente.Visible = True
Me.RBEinzeldokumente.Checked = True
Me.TxtDokumentartKundendossier.Text = "0"
Else
Me.RBKundendossier.Visible = True
Me.RBEinzeldokumente.Visible = False
Me.RBKundendossier.Checked = True
Me.txtDokumentartEinzeldokument.Text = "0"
End If
Me.Handle_StrukturRadiobuttons(sender, e)
End Sub
Private Sub cZuVercolden_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cZuVercolden.Click
If Me.cZuVercolden.Checked = True And Me.cZuVercolden.Enabled = True Then
Me.cbDokartAusgang.Enabled = True
Me.btnSelDokumentartAusgang.Enabled = True
Me.cZuRetournieren.Enabled = True
Me.mcbbedingteretournierung.Enabled = True
Me.cbColdFolder.Enabled = True
Me.cbobnr.Enabled = True
Me.btnSelColdfolder.Enabled = True
Me.btnselobnr.Enabled = True
Else
Me.cbDokartAusgang.Enabled = False
Me.btnSelDokumentartAusgang.Enabled = False
Me.cZuRetournieren.Enabled = False
Me.cbDokartEingang.Enabled = False
Me.btnSelDokumentartEingang.Enabled = False
Me.cbColdFolder.Enabled = False
Me.cbobnr.Enabled = False
Me.btnselobnr.Enabled = False
Me.btnSelColdfolder.Enabled = False
Me.cEingangErsetztAusgang.Enabled = False
Me.cbArchiv.Enabled = False
Me.btnSelPhysischeAblage.Enabled = False
End If
If Me.cWirdImportiert.Checked = True Then
Me.cZuRetournieren.Enabled = False
Me.mcbbedingteretournierung.Enabled = False
Me.cZuRetournieren.Checked = False
Me.cbDokartEingang.Enabled = False
Me.cEingangErsetztAusgang.Checked = False
Me.cEingangErsetztAusgang.Enabled = False
End If
End Sub
Private Sub cZuRetournieren_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cZuRetournieren.Click
If Me.cZuRetournieren.Checked = True And Me.cZuRetournieren.Enabled = True Then
Me.cbDokartEingang.Enabled = True
Me.cbMonierung.Enabled = True
Me.cbAufbewahrungphysisch.Enabled = True
Me.btnSelDokumentartEingang.Enabled = True
Me.cEingangErsetztAusgang.Enabled = True
Me.cbArchiv.Enabled = True
Me.btnSelPhysischeAblage.Enabled = True
Else
Me.cbMonierung.Enabled = False
Me.cbAufbewahrungphysisch.Enabled = False
Me.cbDokartEingang.Enabled = False
Me.btnSelDokumentartEingang.Enabled = False
Me.cEingangErsetztAusgang.Enabled = False
Me.cbArchiv.Enabled = False
Me.btnSelPhysischeAblage.Enabled = False
End If
End Sub
Private Sub TxtBezeichnung_exit(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxTBezeichnung.Leave
If Me.TxTBezeichnung.Text <> "" Then
Me.cDokumentwirderstellt.Enabled = True
Me.cAMSDokument.Enabled = True
Me.cHostDokument.Enabled = True
Else
MyMsg.show_standardmessage(201, MsgBoxStyle.Critical)
Me.TxTBezeichnung.Focus()
End If
End Sub
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Save_Data()
End Sub
Private Function Save_Changes() As MsgBoxResult
Dim msg As MsgBoxResult
If Not DataChanged Then
Return MsgBoxResult.OK
Exit Function
End If
If DataChanged Then
msg = Globals.MyMsg.Show_MessageYesNoCancel(2)
If msg = MsgBoxResult.No Then
Return MsgBoxResult.OK
End If
If msg = MsgBoxResult.Yes Then
Save_Data()
DataChanged = False
Return MsgBoxResult.OK
End If
If msg = MsgBoxResult.Cancel Then Return MsgBoxResult.Cancel
End If
End Function
Private Sub TabControl1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged
If Me.DataSet3.HasChanges Then
Try
Me.SqlDataAdapter3.Update(Me.DataSet3)
Catch
End Try
End If
Save_Rollenliste()
If TabControl1.SelectedIndex = 0 Or TabControl1.SelectedIndex = 1 Then
If Me.VorlagenDataChanged = True Then
If MyMsg.Show_MessageYesNo(10) = MsgBoxResult.OK Then
Me.save_vorlagenfeldlist()
End If
Me.update_vorlagenfelder()
End If
End If
If TabControl1.SelectedIndex = 1 Or TabControl1.SelectedIndex = 2 Then
pnlVorlagenfeld.Visible = False
If Save_Changes() <> MsgBoxResult.OK Then TabControl1.SelectedIndex = 0
End If
If TabControl1.SelectedIndex = 0 Or TabControl1.SelectedIndex = 2 Then
pnlVorlagenfeld.Visible = False
If Me.StatusDataChanged = True Then
If MyMsg.Show_MessageYesNo(9) = MsgBoxResult.OK Then
Save_Statusdata()
Else
Load_Dokumentstatus()
End If
End If
End If
If TabControl1.SelectedIndex = 2 Then
pnlVorlagenfeld.Visible = False
End If
pnlVorlagenfeld.Visible = False
If TabControl1.SelectedTab.Name = "TabDokumentfelder" Then
' If TabControl1.SelectedIndex = 3 Then
pnlVorlagenfeld.Visible = True
update_vorlagenfelder()
End If
If TabControl1.SelectedIndex = 5 Then
If Me.cDokumentwirderstellt.Checked = False Then
Me.cbsb.Enabled = False
Me.cbsb.Checked = False
Me.cbsbnur.Enabled = False
Me.cbsbnur.Checked = False
Me.cbsbedituser.Enabled = False
Me.cbsbedituser.Checked = False
Me.cbsbimport.Enabled = False
Me.cbsbimport.Checked = False
Else
Dim ov As New edokadb.clsOffice_vorlage()
Try
ov.cpMainConnectionProvider = Globals.conn
ov.iOffice_vorlagenr = New SqlInt32(CType(Me.cbOfficeVorlage.SelectedValue, Int32))
ov.SelectOne()
If ov.iAnwendungnr.Value <> 1 And ov.iAnwendungnr.Value <> 4 And ov.iAnwendungnr.Value <> 5 And ov.iAnwendungnr.Value <> 6 And ov.iAnwendungnr.Value <> 7 Then
Me.cbsb.Enabled = False
Else
Me.cbsb.Enabled = True
End If
Catch
Me.cbsb.Enabled = False
Finally
ov.Dispose()
End Try
End If
End If
End Sub
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
Select Case ToolBar1.Buttons.IndexOf(e.Button)
Case 0
If Me.DataSet3.HasChanges Then
Try
Me.SqlDataAdapter3.Update(Me.DataSet3)
Catch
End Try
End If
If Me.StatusDataChanged Then If MyMsg.Show_MessageYesNo(9) = MsgBoxResult.Yes Then Save_Statusdata()
If Me.VorlagenDataChanged Then If MyMsg.Show_MessageYesNo(10) = MsgBoxResult.Yes Then Me.save_vorlagenfeldlist()
Save_Rollenliste()
If Save_Changes() = MsgBoxResult.OK Then Me.Close()
Case 1
Save_Data()
Case 2
Dim ww As New WordLib()
ww.Create_Dokument(Me.DokumentTypkey, False)
ww = Nothing
Case 4
DivFnkt.Generate_Report(115, "DokumenttypVFelder.rpt", "@id=" + Trim(Str(Me.DokumentTypkey)), "Dokumenttyp - Vorlagenfelder", Nothing)
DivFnkt.Generate_Report(116, "Dokumenttyp.rpt", "@dokumenttypnr=" + Trim(Str(Me.DokumentTypkey)), "Dokumenttyp", Nothing)
'Rel. 4.1 Reporting
'Dim f As New frmReporting()
'f.show_report_dokumenttyp(Me.Dokumenttypnr.Text)
'f.Show()
Case 5
Dim ww As New WordLib()
ww.Create_Dokument(Me.DokumentTypkey, True)
Case 7
Dim frm As New frmDokumenttypOptions()
frm.Dokumenttypnr = Me.Dokumenttypnr.Text
frm.ShowDialog()
Case Else
End Select
End Sub
Private Sub FormValuecbOfficeVorlage_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbOfficeVorlage.SelectedIndexChanged, cbDokartAusgang.SelectedIndexChanged, cbDokartEingang.SelectedIndexChanged, cbColdFolder.SelectedIndexChanged, cbArchiv.SelectedIndexChanged, cbBearbeitungszeit.SelectedValueChanged, cbMonierung.SelectedValueChanged, cbAbschluss.SelectedValueChanged, cbInEdokaDB.SelectedValueChanged, cbAufbewahrungelektronisch.SelectedValueChanged, cbAufbewahrungphysisch.SelectedValueChanged, TxtDokumentartErstellung.TextChanged, TxtDokumentartHost.TextChanged, TxtDokumentartKundendossier.TextChanged, TxTDokumentartRetournierung.TextChanged, TxTBeschreibung.TextChanged, TxTBezeichnung.TextChanged, cAMSDokument.Click, CDokumentwirdretourniert.Click, cDokumentwirderstellt.Click, cEingangErsetztAusgang.Click, cHostDokument.Click, cNichtgeloescht.Click, cStatusMutation.Click, cUnterschriftlinks.Click, cUnterschriftrechts.Click, cVertraulich.Click, cWirdImportiert.Click, cZuRetournieren.Click, cZuVercolden.Click, txthostdokumenttyp.TextChanged, cbVertrag.CheckedChanged, cidvnative.CheckedChanged, cFunktion_zuweisen.CheckedChanged, cbobnr.SelectedIndexChanged, cbedingtretournierbar.CheckedChanged
DataChanged = True
End Sub
Private Sub Check_Officevorlage(ByVal sernder As System.Object, ByVal e As System.EventArgs) Handles cbOfficeVorlage.SelectedValueChanged
'If me_onLoad Then Exit Sub
'Dim cdokumenttyp As New edokadb.clsDokumenttyp()
'Dim dt As DataTable
'cdokumenttyp.cpMainConnectionProvider = conn
'cdokumenttyp.iOffice_vorlagenr = New SqlInt32(CType(Me.cbOfficeVorlage.SelectedValue, Int32))
'dt = cdokumenttyp.SelectAllWoffice_vorlagenrLogic
'If dt.Rows.Count > 0 Then
' Globals.MyMsg.show_standardmessage(203, MsgBoxStyle.Information)
'End If
'dt.Dispose()
'cdokumenttyp.Dispose()
End Sub
Private Sub cbAufbewahrungelektronisch_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbAufbewahrungelektronisch.SelectedIndexChanged
'Me.cbAufbewahrungphysisch.SelectedIndex = Me.cbAufbewahrungelektronisch.SelectedIndex
End Sub
Private Sub cbAufbewahrungphysisch_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbAufbewahrungphysisch.SelectedIndexChanged
'Me.cbAufbewahrungelektronisch.SelectedIndex = Me.cbAufbewahrungphysisch.SelectedIndex
End Sub
#End Region
#Region "Datenbezugsformulare"
Private Sub btnSelOfficeVorlage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelOfficeVorlage.Click
Dim frm As New frmDomainOfficeVorlage()
frm.ToSelect = True
frm.Eintragnr = 0
frm.TransferKey = 0
frm.Refresh()
frm.Owner = Me
frm.ShowDialog()
If frm.TransferKey <> 0 Then Me.cbOfficeVorlage.SelectedValue = frm.TransferKey
frm.Dispose()
End Sub
Private Sub btnSelPhysischeAblage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelPhysischeAblage.Click
Dim frm As New frmDomainPhsischesArchiv()
frm.ToSelect = True
frm.TransferKey = 0
frm.Eintragnr = 0
frm.Refresh()
frm.Owner = Me
frm.ShowDialog()
If frm.TransferKey <> 0 Then Me.cbArchiv.SelectedValue = frm.TransferKey
frm.Dispose()
End Sub
Private Sub btnSelColdfolder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelColdfolder.Click
Dim frm As New frmDomainColdFolder()
frm.ToSelect = True
frm.TransferKey = 0
frm.Refresh()
frm.Owner = Me
frm.ShowDialog()
If frm.TransferKey <> 0 Then Me.cbColdFolder.SelectedValue = frm.TransferKey
frm.Dispose()
End Sub
Private Sub btnSelObNr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnselobnr.Click
Dim frm As New frmDomainObjektbezeichnung()
frm.ToSelect = True
frm.TransferKey = 0
frm.Refresh()
frm.Owner = Me
frm.ShowDialog()
If frm.TransferKey <> 0 Then Me.cbobnr.SelectedValue = frm.TransferKey
frm.Dispose()
End Sub
Private Sub btnSelDokumentartAusgang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelDokumentartAusgang.Click
Dim frm As New FrmDomainDokumentart()
frm.ToSelect = True
frm.Transferkey = 0
frm.showlevel = 6
frm.Refresh()
frm.ShowDialog()
If frm.Transferkey <> 0 Then Me.cbDokartAusgang.SelectedValue = frm.Transferkey
frm.Dispose()
End Sub
Private Sub btnSelDokumentartEingang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelDokumentartEingang.Click
Dim frm As New FrmDomainDokumentart()
frm.ToSelect = True
frm.showlevel = 7
frm.Transferkey = 0
frm.Refresh()
frm.ShowDialog()
If frm.Transferkey <> 0 Then Me.cbDokartEingang.SelectedValue = frm.Transferkey
frm.Dispose()
End Sub
#End Region
#Region "Datenhandling"
Private Sub Load_Listen()
Dim i As Integer
Me.cbBearbeitungszeit.Items.Clear()
For i = 0 To 180
Me.cbBearbeitungszeit.Items.Add(i)
Next
Me.cbAufbewahrungelektronisch.Items.Clear()
Me.cbAufbewahrungphysisch.Items.Clear()
For i = 0 To 25
Me.cbAufbewahrungelektronisch.Items.Add(i)
Me.cbAufbewahrungphysisch.Items.Add(i)
Next
Me.cbMonierung.Items.Clear()
Me.cbAbschluss.Items.Clear()
For i = 0 To 120
Me.cbMonierung.Items.Add(i)
' Me.cbAbschluss.Items.Add(i)
Next
For i = 0 To 30
Me.cbAbschluss.Items.Add(i)
Next
For i = 60 To 1850 Step 30
Me.cbAbschluss.Items.Add(i)
Next
Me.cbAbschluss.Items.Add(1850)
Me.cbAbschluss.Items.Add(1860)
Me.cbInEdokaDB.Items.Clear()
For i = 0 To 24
Me.cbInEdokaDB.Items.Add(i)
Next
Me.cbtagebedr.Items.Clear()
For i = 0 To 60
Me.cbtagebedr.Items.Add(i)
Next
Dim dofficevorlage As New edokadb.clsOffice_vorlage()
dofficevorlage.cpMainConnectionProvider = conn
tofficevorlage = dofficevorlage.SelectAll()
Me.cbOfficeVorlage.DataSource = Me.tofficevorlage
Me.cbOfficeVorlage.DisplayMember = "bezeichnung"
Me.cbOfficeVorlage.ValueMember = "office_vorlagenr"
dofficevorlage.Dispose()
Dim dphysischesarchiv As New edokadb.clsPhysischesArchiv()
dphysischesarchiv.cpMainConnectionProvider = conn
tphysischesarchiv = dphysischesarchiv.SelectAll
Me.cbArchiv.DataSource = Me.tphysischesarchiv
Me.cbArchiv.DisplayMember = "bezeichnung"
Me.cbArchiv.ValueMember = "physischesarchivnr"
dphysischesarchiv.Dispose()
Dim dcoldfolder As New edokadb.clsCold_folder()
dcoldfolder.cpMainConnectionProvider = conn
tcoldfolder = dcoldfolder.SelectAll
For i = 0 To tcoldfolder.Rows.Count - 1
If tcoldfolder.Rows(i).Item("aktiv") = False Then
tcoldfolder.Rows(i).Delete()
End If
Next
Me.cbColdFolder.DataSource = Me.tcoldfolder
Me.cbColdFolder.DisplayMember = "bezeichnung"
Me.cbColdFolder.ValueMember = "cold_foldernr"
dcoldfolder.Dispose()
Dim dobnr As New edokadb.clsObjektbezeichnung()
dobnr.cpMainConnectionProvider = conn
tobnr = dobnr.SelectAll
For i = 0 To tobnr.Rows.Count - 1
If tobnr.Rows(i).Item("aktiv") = False Then
tobnr.Rows(i).Delete()
End If
Next
Me.cbobnr.DataSource = Me.tobnr
Me.cbobnr.DisplayMember = "bezeichnung"
Me.cbobnr.ValueMember = "objektbezeichnungnr"
dobnr.Dispose()
Dim ddokumentartausgang As New edokadb.clsMyDokumentart()
ddokumentartausgang.cpMainConnectionProvider = conn
tdokumentartausgang = ddokumentartausgang.SelectHierarchy_By_Root(6)
Me.cbDokartAusgang.DataSource = Me.tdokumentartausgang
Me.cbDokartAusgang.DisplayMember = "bezeichnung"
Me.cbDokartAusgang.ValueMember = "dokumentartnr"
ddokumentartausgang.cpMainConnectionProvider = conn
tdokumentarteingang = ddokumentartausgang.SelectHierarchy_By_Root(7)
Me.cbDokartEingang.DataSource = Me.tdokumentarteingang
Me.cbDokartEingang.DisplayMember = "bezeichnung"
Me.cbDokartEingang.ValueMember = "dokumentartnr"
ddokumentartausgang.Dispose()
Dim dstatustyp As New edokadb.clsStatustyp()
dstatustyp.cpMainConnectionProvider = conn
tstatustyp = dstatustyp.SelectAll
Me.cbStatustyp.DataSource = Me.tstatustyp
Me.cbStatustyp.DisplayMember = "bezeichnung"
Me.cbStatustyp.ValueMember = "statustypnr"
dstatustyp.Dispose()
Dim dprozess As New edokadb.clsProzess()
dprozess.cpMainConnectionProvider = conn
tprozess1 = dprozess.SelectAll
tprozess2 = dprozess.SelectAll
Me.cbprozesserstellung.DataSource = Me.tprozess1
Me.cbprozesserstellung.DisplayMember = "bezeichnung"
Me.cbprozesserstellung.ValueMember = "prozessnr"
Me.cbprozessverwendung.DataSource = Me.tprozess2
Me.cbprozessverwendung.DisplayMember = "bezeichnung"
Me.cbprozessverwendung.ValueMember = "prozessnr"
dprozess.Dispose()
Dim ii As Integer
mcbowner = New MultiComboBox(cbOwner)
Me.mcbowner.DisplayColumnName = "name"
Me.mcbowner.ValueColumnName = "mitarbeiternr"
Me.mcbowner.Fill_Data(Generic_Select(3), False)
mcbbedingteretournierung = New MultiComboBox(Me.cbbedingteretournierung)
Me.mcbbedingteretournierung.DisplayColumnName = "bezeichnung"
Me.mcbbedingteretournierung.ValueColumnName = "nummer"
Me.mcbbedingteretournierung.Fill_Data(Generic_Select(4), True)
Me.mcbbedingteretournierung.Enabled = True
Me.cbbedingteretournierung.Enabled = True
End Sub
Private Function Check_Status() As Boolean
Dim normal As Integer
Dim bck As Integer
If Me.cDokumentwirderstellt.Checked Then normal = 1 Else normal = 0
If Me.CDokumentwirdretourniert.Checked Then bck = 1 Else bck = 0
If Me.cAMSDokument.Checked Then normal = 1
Dim iErrorcode As Integer
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.Connection = conn.scoDBConnection
scmCmdToExecute.Connection.Open()
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.CommandText = "dbo.[sp_check_last_status]"
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentTypkey))
If Me.cbVertrag.Checked = True Then
scmCmdToExecute.Parameters.Add(New SqlParameter("@vertrag", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
Else
scmCmdToExecute.Parameters.Add(New SqlParameter("@vertrag", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
End If
scmCmdToExecute.Parameters.Add(New SqlParameter("@bck", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, bck))
scmCmdToExecute.Parameters.Add(New SqlParameter("@normal", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, normal))
scmCmdToExecute.Parameters.Add(New SqlParameter("@result", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
Try
scmCmdToExecute.ExecuteNonQuery()
If scmCmdToExecute.Parameters("@result").Value = 0 Then Return False Else Return True
Catch ex As Exception
Throw New Exception("sp_vorlagenfeld_standard_insert:Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Connection.Close()
scmCmdToExecute.Dispose()
End Try
scmCmdToExecute.Dispose()
End Function
Private Function Check_Dokumentpaketvorlage() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.Connection = conn.scoDBConnection
scmCmdToExecute.Connection.Open()
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.CommandText = "edex_sp_dokumentpaketvorlage_dokumenttyp"
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentTypkey))
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@anzahl", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
Try
scmCmdToExecute.ExecuteNonQuery()
If scmCmdToExecute.Parameters("@anzahl").Value > 0 Then
If MyMsg.show_MessageYesNo_ReplaceText(410, LTrim(Str(scmCmdToExecute.Parameters("@anzahl").Value)), "") = MsgBoxResult.Yes Then
scmCmdToExecute.CommandText = "edex_sp_dokumentpaketvorlage_dokumenttyp"
scmCmdToExecute.Parameters.Clear()
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentTypkey))
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@anzahl", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
scmCmdToExecute.ExecuteNonQuery()
Return True
Else
Return False
End If
Else
Return True
End If
Catch ex As Exception
Throw New Exception("sp_vorlagenfeld_standard_insert:Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Connection.Close()
scmCmdToExecute.Dispose()
End Try
End Function
Private Function Save_Data() As Boolean
Save_Data = True
Save_Data = True
If Check_Status() = False Then
MyMsg.show_standardmessage(238, MsgBoxStyle.Information)
Save_Data = False
End If
If Me.TxtDokumentartKundendossier.Text = 2 Then
MyMsg.show_standardmessage(200, MsgBoxStyle.Exclamation)
Me.TVStruktur.Focus()
Exit Function
End If
If Me.TxTBezeichnung.Text = "" Then
MyMsg.show_standardmessage(201, MsgBoxStyle.Exclamation)
Me.TxTBezeichnung.Focus()
Exit Function
End If
If Me.cbedingtretournierbar.Checked = True And Me.cbtagebedr.Text = "0" Then
MyMsg.show_standardmessage(239, MsgBoxStyle.Critical)
Me.cbtagebedr.Focus()
Exit Function
End If
'edex 20050206
If Me.cAktiv.Checked = False Then
If Check_Dokumentpaketvorlage() = False Then
Save_Data = False
Exit Function
End If
End If
Dim dbkey As New edokadb.clsMyKey_Tabelle()
Dim doktyp As New edokadb.clsDokumenttyp()
Dim key As Long
' neuer DB-Key lesen
If Me.NeuerEintrag Then
dbkey.cpMainConnectionProvider = conn
key = dbkey.get_dbkey("dokumenttyp")
doktyp.iDokumenttypnr = New SqlInt32(CType(key, Int32))
doktyp.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
Me.DokumentTypkey = key
Else
doktyp.cpMainConnectionProvider = conn
doktyp.iDokumenttypnr = New SqlInt32(CType(Me.DokumentTypkey, Int32))
doktyp.SelectOne()
End If
doktyp.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32))
doktyp.bAktiv = New SqlBoolean(CType(Me.cAktiv.Checked, Boolean))
doktyp.iOffice_vorlagenr = New SqlInt32(CType(Me.cbOfficeVorlage.SelectedValue, Int32))
doktyp.sBeschreibung = New SqlString(CType(Me.TxTBeschreibung.Text, String))
doktyp.sBezeichnung = New SqlString(CType(Me.TxTBezeichnung.Text, String))
doktyp.bZu_vercolden = New SqlBoolean(CType(Me.cZuVercolden.Checked, Boolean))
doktyp.iDokumentart_coldausgang = New SqlInt32(CType(Me.cbDokartAusgang.SelectedValue, Int32))
doktyp.bZu_retournieren = New SqlBoolean(CType(Me.cZuRetournieren.Checked, Boolean))
doktyp.iDokumentart_coldeingang = New SqlInt32(CType(Me.cbDokartEingang.SelectedValue, Int32))
doktyp.bEingang_ersetzt_ausgang = New SqlBoolean(CType(Me.cEingangErsetztAusgang.Checked, Boolean))
doktyp.iCold_folder = New SqlInt32(CType(Me.cbColdFolder.SelectedValue, Int32))
doktyp.iObjektbezeichnungnr = New SqlInt32(CType(Me.cbobnr.SelectedValue, Int32))
doktyp.iPhysisches_archiv = New SqlInt32(CType(Me.cbArchiv.SelectedValue, Int32))
doktyp.bWird_importiert = New SqlBoolean(CType(Me.cWirdImportiert.Checked, Boolean))
doktyp.bPartnersaldierung_statusalt = New SqlBoolean(CType(Me.cStatusMutation.Checked, Boolean))
doktyp.bWird_nicht_geloescht = New SqlBoolean(CType(Me.cNichtgeloescht.Checked, Boolean))
doktyp.bVertrauliches_dokument = New SqlBoolean(CType(Me.cVertraulich.Checked, Boolean))
doktyp.bUnterschrift_links = New SqlBoolean(CType(Me.cUnterschriftlinks.Checked, Boolean))
doktyp.bUnterschrift_rechts = New SqlBoolean(CType(Me.cUnterschriftrechts.Checked, Boolean))
doktyp.bAmsdokument = New SqlBoolean(CType(Me.cAMSDokument.Checked, Boolean))
doktyp.bHostdokument = New SqlBoolean(CType(Me.cHostDokument.Checked, Boolean))
doktyp.iDbearbeitungszeit = New SqlInt32(CType(Me.cbBearbeitungszeit.Text, Int32))
doktyp.iAnzahl_tage = New SqlInt32(CType(Me.cbMonierung.Text, Int32))
doktyp.iTage_mutation = New SqlInt32(CType(Me.cbAbschluss.Text, Int32))
doktyp.iAufbewahrungsfrist_elektronisch = New SqlInt32(CType(Me.cbAufbewahrungelektronisch.Text, Int32))
doktyp.iAufbewahrungsfrist_physisch = New SqlInt32(CType(Me.cbAufbewahrungphysisch.Text, Int32))
doktyp.iMonate_bis_zur_archivierung = New SqlInt32(CType(Me.cbInEdokaDB.Text, Int32))
doktyp.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
doktyp.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
doktyp.iDokumentart_kundendossier = New SqlInt32(CType(Me.TxtDokumentartKundendossier.Text, Int32))
doktyp.iDokumentart_retournierung = New SqlInt32(CType(Me.TxTDokumentartRetournierung.Text, Int32))
doktyp.iDokumentart_neuerstellung = New SqlInt32(CType(Me.TxtDokumentartErstellung.Text, Int32))
doktyp.iDokumentart_host = New SqlInt32(CType(Me.TxtDokumentartHost.Text, Int32))
doktyp.iProzessnr = New SqlInt32(CType(Me.cbprozesserstellung.SelectedValue, Int32))
doktyp.iProzessnr1 = New SqlInt32(CType(Me.cbprozessverwendung.SelectedValue, Int32))
doktyp.iDokumentart_weitere = New SqlInt32(CType(Me.TxtDokumentartGesamt.Text, Int32))
doktyp.sHostdokumenttyp = New SqlString(CType(Me.txthostdokumenttyp.Text, String))
doktyp.bDokument_wird_erstellt = New SqlBoolean(CType(Me.cDokumentwirderstellt.Checked, Boolean))
doktyp.bDokument_wird_retourniert = New SqlBoolean(CType(Me.CDokumentwirdretourniert.Checked, Boolean))
doktyp.bBedingtretournierbar = New SqlBoolean(CType(Me.cbedingtretournierbar.Checked, Boolean))
Try
doktyp.iTagebisvernichtungbedingteretournierung = New SqlInt32(CType(Me.cbtagebedr.Text, Int32))
Catch
Me.cbtagebedr.Text = 0
doktyp.iTagebisvernichtungbedingteretournierung = New SqlInt32(CType(Me.cbtagebedr.Text, Int32))
End Try
doktyp.iDoktypbedingteretournierung = New SqlInt32(CType(Me.mcbbedingteretournierung.SelectedValue, Int32))
doktyp.bCold_ersetzen = New SqlBoolean(CType(Me.CDokumentersetzen.Checked, Boolean))
doktyp.bEmail_versand = New SqlBoolean(CType(Me.cEmailVersand.Checked, Boolean))
doktyp.bFunktionen_zuweisen = New SqlBoolean(CType(Me.cFunktion_zuweisen.Checked, Boolean))
doktyp.bNurnative = New SqlBoolean(CType(Me.cidvnative.Checked, Boolean))
doktyp.iDokumentart_nativ = New SqlInt32(CType(Me.txtDokumentartEinzeldokument.Text, Int32))
' doktyp.iDokumentstatus = New SqlInt32(CType(Me.cbStatustyp.SelectedValue, Int32))
doktyp.iDokumentstatus = New SqlInt32(CType(Me.txtDokumentstatus.Text, Int32))
doktyp.iDokumentstatus_barcode = New SqlInt32(CType(Me.txtDokumentstatus_barcode.Text, Int32))
doktyp.bVertrag = New SqlBoolean(CType(Me.cbVertrag.Checked, Boolean))
doktyp.iOwner = New SqlInt32(CType(Me.mcbowner.SelectedValue, Int32))
'EDEX Banklagernd
doktyp.bKundenDokument = New SqlBoolean(CType(Me.cbKDE.Checked, Boolean))
doktyp.bAnzeigeZurDokumenterstellung = New SqlBoolean(CType(Me.cbAnzeige.Checked, Boolean))
'EDEX Serienbriefe
doktyp.bSb = New SqlBoolean(CType(Me.cbsb.Checked = True, Boolean))
doktyp.bSbedituser = New SqlBoolean(CType(Me.cbsbedituser.Checked = True, Boolean))
doktyp.bSbimport = New SqlBoolean(CType(Me.cbsbimport.Checked = True, Boolean))
doktyp.bSbnur = New SqlBoolean(CType(Me.cbsbnur.Checked = True, Boolean))
doktyp.bBezeichnungmut = New SqlBoolean(CType(Me.cbezmut.Checked = True, Boolean))
'Rel. 4.1
doktyp.bIntern = New SqlBoolean(CType(Me.cintern.Checked = True, Boolean))
doktyp.bElDokImport = New SqlBoolean(CType(Me.celdokimport.Checked, Boolean))
doktyp.sFachverantwortung = New SqlString(CType(Me.txtFachverantwortung.Text, String))
doktyp.cpMainConnectionProvider = conn
conn.OpenConnection()
If Me.NeuerEintrag Then
doktyp.Insert()
Me.NeuerEintrag = False
Else
Try
doktyp.Update()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
conn.CloseConnection(True)
doktyp.Dispose()
dbkey.Dispose()
DataChanged = False
End Function
Private Sub Load_Data()
Dim doktyp As New edokadb.clsDokumenttyp()
doktyp.cpMainConnectionProvider = conn
doktyp.iDokumenttypnr = New SqlInt32(CType(Me.DokumentTypkey, Int32))
doktyp.SelectOne()
Me.cbOfficeVorlage.SelectedValue = doktyp.iOffice_vorlagenr.Value
Me.TxTBeschreibung.Text = doktyp.sBeschreibung.Value
Me.TxTBezeichnung.Text = doktyp.sBezeichnung.Value
Me.cZuVercolden.Checked = doktyp.bZu_vercolden.Value = True
Me.cZuRetournieren.Checked = doktyp.bZu_retournieren.Value = True
Me.cEingangErsetztAusgang.Checked = doktyp.bEingang_ersetzt_ausgang.Value = True
Me.cbArchiv.SelectedValue = doktyp.iPhysisches_archiv.Value
Me.cbColdFolder.SelectedValue = doktyp.iCold_folder.Value
Me.cbobnr.SelectedValue = doktyp.iObjektbezeichnungnr.Value
Me.cbDokartAusgang.SelectedValue = doktyp.iDokumentart_coldausgang.Value
Me.cbDokartEingang.SelectedValue = doktyp.iDokumentart_coldeingang.Value
Me.cWirdImportiert.Checked = doktyp.bWird_importiert.Value = True
Me.cStatusMutation.Checked = doktyp.bPartnersaldierung_statusalt.Value = True
Me.cNichtgeloescht.Checked = doktyp.bWird_nicht_geloescht.Value = True
Me.cVertraulich.Checked = doktyp.bVertrauliches_dokument.Value = True
Me.cUnterschriftlinks.Checked = doktyp.bUnterschrift_links.Value = True
Me.cUnterschriftrechts.Checked = doktyp.bUnterschrift_rechts.Value = True
Me.cAMSDokument.Checked = doktyp.bAmsdokument.Value = True
Me.cHostDokument.Checked = doktyp.bHostdokument.Value = True
Me.cAktiv.Checked = doktyp.bAktiv.Value = True
Me.cbBearbeitungszeit.Text = doktyp.iDbearbeitungszeit.Value
Me.cbMonierung.Text = doktyp.iAnzahl_tage.Value
Me.cbAbschluss.Text = doktyp.iTage_mutation.Value
Me.cbAufbewahrungelektronisch.Text = doktyp.iAufbewahrungsfrist_elektronisch.Value
Me.cbAufbewahrungphysisch.Text = doktyp.iAufbewahrungsfrist_physisch.Value
Me.cbInEdokaDB.Text = doktyp.iMonate_bis_zur_archivierung.Value
Me.Dokumenttypnr.Text = doktyp.iDokumenttypnr.Value
Me.TxtDokumentartKundendossier.Text = doktyp.iDokumentart_kundendossier.Value
Me.TxtDokumentartErstellung.Text = doktyp.iDokumentart_neuerstellung.Value
Me.TxtDokumentartHost.Text = doktyp.iDokumentart_host.Value
Me.TxTDokumentartRetournierung.Text = doktyp.iDokumentart_retournierung.Value
Me.TxtDokumentartGesamt.Text = doktyp.iDokumentart_weitere.Value
Me.txtDokumentartEinzeldokument.Text = doktyp.iDokumentart_nativ.Value
Me.savestatustyp = Me.cbStatustyp.SelectedValue
Me.cbprozesserstellung.SelectedValue = doktyp.iProzessnr.Value
Me.cbprozessverwendung.SelectedValue = doktyp.iProzessnr1.Value
Me.cDokumentwirderstellt.Checked = doktyp.bDokument_wird_erstellt.Value = True
Me.CDokumentwirdretourniert.Checked = doktyp.bDokument_wird_retourniert.Value = True
Me.cbedingtretournierbar.Checked = doktyp.bBedingtretournierbar.Value = True
Me.cbtagebedr.Text = doktyp.iTagebisvernichtungbedingteretournierung.Value
Me.CDokumentersetzen.Checked = doktyp.bCold_ersetzen.Value = True
Me.cEmailVersand.Checked = doktyp.bEmail_versand.Value = True
Me.cFunktion_zuweisen.Checked = doktyp.bFunktionen_zuweisen.Value = True
Me.txtDokumentstatus_barcode.Text = doktyp.iDokumentstatus_barcode.Value
Me.txtDokumentstatus.Text = doktyp.iDokumentstatus.Value
Me.cbVertrag.Checked = doktyp.bVertrag.Value = True
Dim ii As Integer
ii = doktyp.iOwner.Value
Me.mcbowner.SelectedValue = ii
ii = doktyp.iDoktypbedingteretournierung.Value
Me.mcbbedingteretournierung.SelectedValue = ii
If Me.cDokumentwirderstellt.Checked = True Or Me.cbedingtretournierbar.Checked = True Then
Me.cbStatustyp.SelectedValue = doktyp.iDokumentstatus.Value
Else
Me.cbStatustyp.SelectedValue = doktyp.iDokumentstatus_barcode.Value
End If
Try
If doktyp.sHostdokumenttyp.Value Is DBNull.Value Then
Me.txthostdokumenttyp.Text = ""
Else
Me.txthostdokumenttyp.Text = doktyp.sHostdokumenttyp.Value
End If
Catch
Me.txthostdokumenttyp.Text = ""
End Try
Me.cbOfficeVorlage.SelectedValue = doktyp.iOffice_vorlagenr.Value
Me.cidvnative.Checked = doktyp.bNurnative.Value = True
'EDEX Banklagernd
Me.cbKDE.Checked = doktyp.bKundenDokument.Value = True
Me.cbAnzeige.Checked = doktyp.bAnzeigeZurDokumenterstellung.Value = True
'EDEX Serienbriefe
Me.cbsb.Checked = doktyp.bSb.Value
Me.cbsbedituser.Checked = doktyp.bSbedituser.Value
Me.cbsbimport.Checked = doktyp.bSbimport.Value
Me.cbsbnur.Checked = doktyp.bSbnur.Value
Me.cbezmut.Checked = doktyp.bBezeichnungmut.Value
'Rel. 4.1
Me.cintern.Checked = doktyp.bIntern.Value = True
Me.celdokimport.Checked = doktyp.bElDokImport.Value = True
Me.txtFachverantwortung.Text = doktyp.sFachverantwortung.Value
doktyp.Dispose()
End Sub
Private Function Generic_Select(ByVal typ As Integer) As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Select Case typ
Case 3
scmCmdToExecute.CommandText = "SP_Dokumentbearbeitung_Mitarbeiter"
Case 4
scmCmdToExecute.CommandText = "SP_get_dokumenttyp_bedingt"
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 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
#End Region
#Region "Strukturbaum"
Private Sub Handle_StrukturRadiobuttons(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBKundendossier.CheckedChanged, RBHost.CheckedChanged, RBErstellung.CheckedChanged, RBEingang.CheckedChanged, RBGesamt.CheckedChanged
Me.TVStruktur.Visible = False
If Me.RBKundendossier.Checked Then
dokumentart.LoadTreeMenu(Me.TVStruktur, 2)
Me.TVStruktur.ExpandAll()
DivFnkt.Searchnode(Me.TVStruktur, Me.TxtDokumentartKundendossier.Text, 1)
End If
If Me.RBHost.Checked Then
dokumentart.LoadTreeMenu(Me.TVStruktur, 3)
Me.TVStruktur.ExpandAll()
DivFnkt.Searchnode(Me.TVStruktur, Me.TxtDokumentartHost.Text, 1)
End If
If Me.RBErstellung.Checked Then
dokumentart.LoadTreeMenu(Me.TVStruktur, 4)
Me.TVStruktur.ExpandAll()
DivFnkt.Searchnode(Me.TVStruktur, Me.TxtDokumentartErstellung.Text, 1)
End If
If Me.RBEingang.Checked Then
dokumentart.LoadTreeMenu(Me.TVStruktur, 8)
Me.TVStruktur.ExpandAll()
DivFnkt.Searchnode(Me.TVStruktur, Me.TxTDokumentartRetournierung.Text, 1)
End If
If Me.RBGesamt.Checked Then
dokumentart.LoadTreeMenu(Me.TVStruktur, 1)
Me.TVStruktur.ExpandAll()
If CType(Me.TxtDokumentartGesamt.Text, Integer) <> 0 Then
DivFnkt.Searchnode(Me.TVStruktur, Me.TxtDokumentartGesamt.Text, 1)
End If
If CType(Me.TxtDokumentartKundendossier.Text, Integer) <> 0 Then
DivFnkt.Searchnode(Me.TVStruktur, Me.TxtDokumentartKundendossier.Text, 1)
End If
If CType(Me.TxtDokumentartHost.Text, Integer) <> 0 Then
DivFnkt.Searchnode(Me.TVStruktur, Me.TxtDokumentartHost.Text, 1)
End If
End If
If Me.RBEinzeldokumente.Checked Then
dokumentart.LoadTreeMenu(Me.TVStruktur, 147)
Me.TVStruktur.ExpandAll()
DivFnkt.Searchnode(Me.TVStruktur, Me.txtDokumentartEinzeldokument.Text, 1)
End If
Me.TVStruktur.Visible = True
End Sub
Private Sub TVStruktur_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TVStruktur.AfterSelect
Dim tn As New TreeNode()
tn = Me.TVStruktur.SelectedNode
If tn.GetNodeCount(True) > 0 And Me.TxtDokumentartKundendossier.Text <> "0" Then
MyMsg.show_standardmessage(202, MsgBoxStyle.Critical)
tn = Nothing
Exit Sub
End If
tn = Nothing
If Me.RBKundendossier.Checked Then
Me.TxtDokumentartKundendossier.Text = Me.TVStruktur.SelectedNode.Tag
Me.TVStruktur.SelectedNode.SelectedImageIndex = 1
End If
If Me.RBHost.Checked Then
Me.TxtDokumentartHost.Text = Me.TVStruktur.SelectedNode.Tag
Me.TVStruktur.SelectedNode.SelectedImageIndex = 1
End If
If Me.RBEingang.Checked Then
Me.TxTDokumentartRetournierung.Text = Me.TVStruktur.SelectedNode.Tag
Me.TVStruktur.SelectedNode.SelectedImageIndex = 1
End If
If Me.RBErstellung.Checked Then
Me.TxtDokumentartErstellung.Text = Me.TVStruktur.SelectedNode.Tag
Me.TVStruktur.SelectedNode.SelectedImageIndex = 1
End If
If Me.RBGesamt.Checked Then
Me.TxtDokumentartGesamt.Text = Me.TVStruktur.SelectedNode.Tag
Me.TVStruktur.SelectedNode.SelectedImageIndex = 1
End If
If Me.RBEinzeldokumente.Checked Then
Me.txtDokumentartEinzeldokument.Text = Me.TVStruktur.SelectedNode.Tag
Me.TVStruktur.SelectedNode.SelectedImageIndex = 1
End If
End Sub
#End Region
#Region "Statushandling"
Private Sub Load_Dokumentstatus()
Dim dstatus As New edokadb.clsMyDokumentstatus()
dstatus.Dokumenttypnr = Me.DokumentTypkey
Try
If Me.DokStatus = 1 Then
dstatus.Statustypnr = Me.txtDokumentstatus_barcode.Text
Else
dstatus.Statustypnr = Me.txtDokumentstatus.Text
End If
Catch
End Try
'dstatus.Statustypnr = Me.cbStatustyp.SelectedValue
dstatus.cpMainConnectionProvider = conn
t = dstatus.SelectDokumentstatus()
Me.Statuslist.DataSource = t
dstatus.Dispose()
SpaltenTitel_Aktualisieren()
End Sub
Public Sub SpaltenTitel_Aktualisieren()
'Spaltentitel setzen
Dim titel As New EDOKA.MySpaltenTitel()
Dim ts As New EDOKA.Tabellenspalte()
Dim i As Integer
Dim t As New DataTable()
Dim dc As C1.Win.C1TrueDBGrid.C1DisplayColumn
Dim s As String
ts.Tabelle = "dokumentstatus"
For i = 0 To Me.Statuslist.Columns.Count - 1
s = Me.Statuslist.Columns(i).DataField
ts.Feld = s
ts.getspalte()
Me.Statuslist.Columns(i).Caption = ts.spaltenname
If Me.Statuslist.Columns(i).Caption = "" Then
Me.Statuslist.Splits(0).DisplayColumns(i).Width = 0
Else
Me.Statuslist.Splits(0).DisplayColumns(i).Width = ts.ColWith
End If
If ts.locked Then
Me.Statuslist.Splits(0).DisplayColumns(i).Locked = True
End If
If Me.Statuslist.Columns(i).DataField = "folgestatus_durch_anderen_verantwortlichen" Then
Me.Statuslist.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
End If
Next
End Sub
Public Sub SpaltenTitel_Aktualisieren_StatusRolle()
'Spaltentitel setzen
Dim titel As New EDOKA.MySpaltenTitel()
Dim ts As New EDOKA.Tabellenspalte()
Dim i As Integer
Dim t As New DataTable()
Dim dc As C1.Win.C1TrueDBGrid.C1DisplayColumn
Dim s As String
ts.Tabelle = "dokumentstatus_funktion"
For i = 0 To Me.DokumentstatusRolle_Liste.Columns.Count - 1
s = Me.DokumentstatusRolle_Liste.Columns(i).DataField
ts.Feld = s
ts.getspalte()
Me.DokumentstatusRolle_Liste.Columns(i).Caption = ts.spaltenname
If Me.DokumentstatusRolle_Liste.Columns(i).Caption = "" Then
Me.DokumentstatusRolle_Liste.Splits(0).DisplayColumns(i).Width = 0
Else
Me.DokumentstatusRolle_Liste.Splits(0).DisplayColumns(i).Width = ts.ColWith
End If
If ts.locked Then
Me.DokumentstatusRolle_Liste.Splits(0).DisplayColumns(i).Locked = True
End If
If Me.DokumentstatusRolle_Liste.Columns(i).DataField = "aktiv" Then
Me.DokumentstatusRolle_Liste.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
Me.DokumentstatusRolle_Liste.Columns(i).DefaultValue = True
Me.DokumentstatusRolle_Liste.Columns(i).FilterText = True
End If
Next
End Sub
Private Sub cbStatustyp_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbStatustyp.SelectedValueChanged
Dim dstatus As New edokadb.clsMyDokumentstatus()
If me_onLoad Then
Exit Sub
End If
If Me.DokStatus = 0 Then
Me.txtDokumentstatus.Text = Me.cbStatustyp.SelectedValue
Else
Me.txtDokumentstatus_barcode.Text = Me.cbStatustyp.SelectedValue
End If
If Me.cbStatustyp.SelectedValue = 0 And Me.savestatustyp <> Me.cbStatustyp.SelectedValue Then
If MyMsg.Show_MessageYesNo(7) = MsgBoxResult.Yes Then
dstatus.Dokumenttypnr = Me.DokumentTypkey
dstatus.Statustypnr = Me.savestatustyp
conn.OpenConnection()
dstatus.cpMainConnectionProvider = conn
dstatus.DeleteDokumentstatus()
conn.CloseConnection(True)
Load_Dokumentstatus()
Save_Data()
Me.savestatustyp = Me.cbStatustyp.SelectedValue
Else
Me.cbStatustyp.SelectedValue = Me.savestatustyp
End If
End If
If Me.cbStatustyp.SelectedValue <> Me.savestatustyp Then
If Me.savestatustyp <> 0 Then
If MyMsg.Show_MessageYesNo(8) = MsgBoxResult.No Then
Me.cbStatustyp.SelectedValue = Me.savestatustyp
Exit Sub
End If
End If
dstatus.cpMainConnectionProvider = conn
conn.OpenConnection()
dstatus.Dokumenttypnr = Me.DokumentTypkey
dstatus.Statustypnr = Me.cbStatustyp.SelectedValue
dstatus.Statustyp = Me.DokStatus
Me.savestatustyp = Me.cbStatustyp.SelectedValue
Try
dstatus.InsertDokumentstatus()
Catch ex As Exception
MsgBox(ex.Message)
Finally
conn.CloseConnection(True)
End Try
Load_Dokumentstatus()
dstatus.Dispose()
Save_Data()
Me.savestatustyp = Me.cbStatustyp.SelectedValue
End If
End Sub
Private Sub MenuErledigung_Setzen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim frm As New frmSelectStatus()
Dim i As Integer
Dim coln As Integer
For i = 0 To Me.Statuslist.Columns.Count - 1
If Me.Statuslist.Columns(i).DataField = "erledigung_ab" Then coln = i
Next
frm.Dokumenttypnr = Me.DokumentTypkey
frm.Statustypnr = Me.cbStatustyp.SelectedValue
frm.ToSelect = True
frm.TransferKey = 0
frm.Refresh()
frm.ShowDialog()
If frm.TransferKey <> 0 Then
Me.Statuslist.Columns(coln).Value = frm.TransferKey
Me.StatusDataChanged = True
End If
frm.Dispose()
End Sub
Private Sub MnuErledigung_ab_aufheben_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim frm As New frmSelectStatus()
Dim i As Integer
Dim coln As Integer
For i = 0 To Me.Statuslist.Columns.Count - 1
If Me.Statuslist.Columns(i).DataField = "erledigung_ab" Then coln = i
Next
Me.Statuslist.Columns(coln).Value = -1
Me.StatusDataChanged = True
End Sub
Private Sub Statuslist_aftercellupdate(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles Statuslist.AfterColEdit
Me.StatusDataChanged = True
End Sub
Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
Save_Statusdata()
End Sub
Private Sub Save_Statusdata()
Dim i As Integer
Dim dsdata As New edokadb.clsMyDokumentstatus()
dsdata.cpMainConnectionProvider = conn
t = Me.Statuslist.DataSource
For i = 0 To t.Rows.Count - 1
dsdata.iDokumentstatusnr = New SqlInt32(CType(t.Rows(i).Item("dokumentstatusnr"), Int32))
dsdata.SelectOne()
If dsdata.iErledigung_ab.Value <> t.Rows(i).Item("erledigung_ab") Or _
dsdata.bFolgestatus_durch_anderen_verantwortlichen.Value <> t.Rows(i).Item("Folgestatus_durch_anderen_verantwortlichen") Then
dsdata.iErledigung_ab = New SqlInt32(CType(t.Rows(i).Item("erledigung_ab"), Int32))
dsdata.bFolgestatus_durch_anderen_verantwortlichen = New SqlBoolean(CType(t.Rows(i).Item("folgestatus_durch_anderen_verantwortlichen"), Boolean))
dsdata.daMutiert_am = New SqlDateTime(Now)
dsdata.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
conn.OpenConnection()
dsdata.iDokumentstatusnr = New SqlInt32(CType(t.Rows(i).Item("dokumentstatusnr"), Int32))
dsdata.Update()
conn.CloseConnection(True)
End If
Me.StatusDataChanged = False
Next
End Sub
Private Sub Statuslist_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles Statuslist.RowColChange
Save_Rollenliste()
Update_RollenListe()
End Sub
Private Sub Update_RollenListe()
Me.DataSet2.Clear()
Me.SqlDataAdapter2.SelectCommand.Parameters.Clear()
Me.SqlDataAdapter2.SelectCommand.Parameters.AddWithValue("@dokumentstatusnr", Me.Statuslist.Columns(0).Value)
Me.SqlDataAdapter2.Fill(Me.DataSet2)
Me.DokumentstatusRolle_Liste.DataSource = Me.DataSet2
Me.DokumentstatusRolle_Liste.DataMember = "dokumentstatus_funktion"
SpaltenTitel_Aktualisieren_StatusRolle()
End Sub
Private Sub Update_Aufhebungliste()
Try
Me.DataSet6.Clear()
Me.SqlDataAdapter6.SelectCommand.Parameters.Clear()
Me.SqlDataAdapter6.SelectCommand.Parameters.Add("@dokumenttypnr", Me.Dokumenttypnr.Text)
Me.SqlDataAdapter6.Fill(Me.DataSet6)
Me.Aufhebungliste.DataSource = Me.DataSet6
Me.Aufhebungliste.DataMember = Me.DataSet6.Tables(0).TableName
DivFnkt.SpaltenTitel_Aktualisieren(Me.Aufhebungliste, Me.DataSet6.Tables(0), "dokumenttypaufhebung")
Catch ex As Exception
' MsgBox(ex.Message)
End Try
End Sub
Private Sub Update_indexmutation()
Try
Me.DataSet5.Clear()
Me.SqlDataAdapter5.SelectCommand.Parameters.Clear()
Me.SqlDataAdapter5.SelectCommand.Parameters.Add("@dokumenttypnr", Me.Dokumenttypnr.Text)
Me.SqlDataAdapter5.Fill(Me.DataSet5)
Me.indexmutationliste.DataSource = Me.DataSet5
Me.indexmutationliste.DataMember = Me.DataSet5.Tables(0).TableName
DivFnkt.SpaltenTitel_Aktualisieren(Me.indexmutationliste, Me.DataSet5.Tables(0), "dokumenttypindexmutation")
Catch
End Try
End Sub
Private Sub btnNeueRolle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNeueRolle.Click
Dim frm As New frmDomainFunktionsgruppe()
Dim key As Long
Dim dbkey As New edokadb.clsMyKey_Tabelle()
Dim vdata As New edokadb.clsDokumentstatus_funktion()
frm.ToSelect = True
frm.TransferKey = 0
frm.Eintragnr = 0
frm.Refresh()
frm.Owner = Me
frm.ShowDialog()
If frm.TransferKey = 0 Then
frm.Dispose()
Exit Sub
Me.cbArchiv.SelectedValue = frm.TransferKey
End If
dbkey.cpMainConnectionProvider = conn
key = dbkey.get_dbkey("dokumentstatus_funktion")
vdata.cpMainConnectionProvider = conn
vdata.iDokumentstatus_funktionnr = New SqlInt32(CType(key, Int32))
vdata.iDokumentstatusnr = New SqlInt32(CType(Me.Statuslist.Columns(0).Value, Int32))
vdata.iFunktionnr = New SqlInt32(CType(frm.TransferKey, Int32))
vdata.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
vdata.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
vdata.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
vdata.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32))
vdata.bAktiv = New SqlBoolean(CType(True, Boolean))
conn.OpenConnection()
vdata.Insert()
conn.CloseConnection(True)
vdata.Dispose()
frm.Dispose()
Update_RollenListe()
End Sub
Private Sub Save_Rollenliste()
If Me.DataSet2.HasChanges Then
If Globals.MyMsg.Show_MessageYesNo(14) = MsgBoxResult.Yes Then
Me.SqlDataAdapter2.Update(Me.DataSet2)
End If
End If
End Sub
Private Sub BtnSaveRollen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSaveRollen.Click
Me.SqlDataAdapter2.Update(Me.DataSet2)
End Sub
Private Sub rbEtikette_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbEtikette.CheckedChanged
Change_Dokstatus(1)
End Sub
Private Sub rbDokStatusStandard_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbDokStatusStandard.CheckedChanged
Change_Dokstatus(0)
End Sub
Private Sub Change_Dokstatus(ByVal Statustyp As Integer)
Me.DokStatus = Statustyp
End Sub
Private Sub rbEtikette_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbEtikette.Click
If Me.rbEtikette.Checked Then
Me.cbStatustyp.SelectedValue = Me.txtDokumentstatus_barcode.Text
Save_Rollenliste()
Load_Dokumentstatus()
Update_RollenListe()
End If
End Sub
Private Sub rbDokStatusStandard_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbDokStatusStandard.Click
If Me.rbDokStatusStandard.Checked Then
Me.cbStatustyp.SelectedValue = Me.txtDokumentstatus.Text
Save_Rollenliste()
Load_Dokumentstatus()
Update_RollenListe()
End If
End Sub
#End Region
#Region "Vorlagenfeld"
Private Sub update_vorlagenfelder()
Dim i As Integer
Me.SqlDataAdapter1.SelectCommand.Parameters.Clear()
Me.SqlDataAdapter1.SelectCommand.Parameters.AddWithValue("@Dokumenttypnr", CType(Me.DokumentTypkey, Int32))
Try
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
Me.SqlConnection2.ConnectionString = Globals.sConnectionString
Catch
End Try
Try
Me.DataSet1.Clear()
Me.SqlDataAdapter1.Fill(Me.DataSet1)
Catch ex As Exception
'MsgBox(ex.Message)
End Try
Me.vorlagenfeldlist.DataSource = Me.DataSet1
Me.vorlagenfeldlist.DataMember = "vorlagenfeld"
Me.vorlagenfeldlist.Columns("aktiv").FilterText = True
SpaltenTitel_Aktualisieren1()
If Me.cbColdFolder.Enabled = True Then
Me.SqlDataAdapter4.SelectCommand.Parameters("@foldernr").Value = Me.cbColdFolder.SelectedValue
Me.SqlDataAdapter4.Fill(Me.DataSet4)
Me.ColdIndexfeldList.DataSource = Me.DataSet4
Me.ColdIndexfeldList.DataMember = "ColdIndex"
Me.ColdIndexfeldList.Columns(0).Caption = Globals.MyTxt.Get_Meldungstext(7018)
Me.ColdIndexfeldList.Columns(1).Caption = Globals.MyTxt.Get_Meldungstext(7019)
Me.vorlagenfeldlist.Columns("cold_indexfeld").DropDown = Me.ColdIndexfeldList
Else
For i = 0 To Me.vorlagenfeldlist.Columns.Count - 1
If Me.vorlagenfeldlist.Columns(i).DataField = "cold_indexfeld" Then
Me.vorlagenfeldlist.Splits(0).DisplayColumns(i).Width = 0
End If
Next
End If
End Sub
Public Sub SpaltenTitel_Aktualisieren1()
'Spaltentitel setzen
Dim titel As New EDOKA.MySpaltenTitel()
Dim ts As New EDOKA.Tabellenspalte()
Dim i As Integer
Dim t As New DataTable()
Dim dc As C1.Win.C1TrueDBGrid.C1DisplayColumn
Dim s As String
ts.Tabelle = "vorlagenfeld"
For i = 0 To Me.vorlagenfeldlist.Columns.Count - 1
s = Me.vorlagenfeldlist.Columns(i).DataField
ts.Feld = s
ts.getspalte()
Me.vorlagenfeldlist.Columns(i).Caption = ts.spaltenname
If Me.vorlagenfeldlist.Columns(i).Caption = "" Then
Me.vorlagenfeldlist.Splits(0).DisplayColumns(i).Width = 0
Else
Me.vorlagenfeldlist.Splits(0).DisplayColumns(i).Width = ts.ColWith
End If
If ts.locked Then
Me.vorlagenfeldlist.Splits(0).DisplayColumns(i).Locked = True
End If
If Me.vorlagenfeldlist.Columns(i).DataField = "einstiegsmakro" Then
Me.vorlagenfeldlist.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
End If
If Me.vorlagenfeldlist.Columns(i).DataField = "ausstiegsmakro" Then
Me.vorlagenfeldlist.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
End If
If Me.vorlagenfeldlist.Columns(i).DataField = "aktiv" Then
Me.vorlagenfeldlist.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
End If
If Me.vorlagenfeldlist.Columns(i).DataField = "userinterface" Then
Me.vorlagenfeldlist.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
End If
If Me.vorlagenfeldlist.Columns(i).DataField = "eingabe_zwingend" Then
Me.vorlagenfeldlist.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
End If
Me.vorlagenfeldlist.Splits(0).DisplayColumns("userinterface").Locked = True
Me.vorlagenfeldlist.Splits(0).DisplayColumns("eingabe_zwingend").Locked = False
Next
End Sub
Private Sub C1TrueDBGrid1_FetchCellTips(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchCellTipsEventArgs) Handles vorlagenfeldlist.FetchCellTips
Try
Dim ts As New EDOKA.Tabellenspalte()
ts.Tabelle = "vorlagenfeld"
ts.Feld = Me.vorlagenfeldlist.Columns(e.ColIndex).DataField
ts.getspalte()
e.CellTip = ts.TipText
ts = Nothing
Catch
End Try
End Sub
Private Sub BtnStandard_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
Dim iErrorcode As Integer
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.Connection = conn.scoDBConnection
scmCmdToExecute.Connection.Open()
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.CommandText = "dbo.[sp_vorlagenfeld_standards_insert]"
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentTypkey))
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.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, iErrorcode))
Try
scmCmdToExecute.ExecuteNonQuery()
Return
Catch ex As Exception
Throw New Exception("sp_vorlagenfeld_standard_insert:Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Connection.Close()
scmCmdToExecute.Dispose()
update_vorlagenfelder()
End Try
scmCmdToExecute.Dispose()
End Sub
Private Sub vorlagenfeldlist_aftercellupdate(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles vorlagenfeldlist.AfterColEdit
Try
Dim i As Integer
For i = 0 To Me.vorlagenfeldlist.Columns.Count - 1
If Me.vorlagenfeldlist.Columns(i).DataField = "mutiert_am" Then Me.vorlagenfeldlist.Columns(i).Value = Now
If Me.vorlagenfeldlist.Columns(i).DataField = "mutierer" Then Me.vorlagenfeldlist.Columns(i).Value = Globals.MitarbeiterNr
Me.VorlagenDataChanged = True
Next
Catch
End Try
End Sub
Private Sub save_vorlagenfeldlist()
Try
SqlDataAdapter1.Update(Me.DataSet1)
Catch ex As Exception
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
End Try
Me.VorlagenDataChanged = False
End Sub
Private Sub btnVorlagenfeld_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
End Sub
Private Sub Insert_Vorlagenfeld(ByVal vorlagenfeldregelnr As Integer)
Dim iErrorcode As Integer
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.Connection = conn.scoDBConnection
scmCmdToExecute.Connection.Open()
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.CommandText = "dbo.[sp_vorlagenfeld_insert]"
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentTypkey))
scmCmdToExecute.Parameters.Add(New SqlParameter("@vorlagenfeldregelnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, vorlagenfeldregelnr))
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.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, iErrorcode))
Try
scmCmdToExecute.ExecuteNonQuery()
Return
Catch ex As Exception
Throw New Exception("sp_vorlagenfeld_standard_insert:Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Connection.Close()
scmCmdToExecute.Dispose()
update_vorlagenfelder()
End Try
scmCmdToExecute.Dispose()
End Sub
Private Sub MnuDokZuordnungauheben_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuDokZuordnungauheben.Click
If Me.RBKundendossier.Checked Then
DivFnkt.Searchnode(Me.TVStruktur, Me.TxtDokumentartKundendossier.Text, 2)
Me.TxtDokumentartKundendossier.Text = 0
End If
If Me.RBHost.Checked Then
DivFnkt.Searchnode(Me.TVStruktur, Me.TxtDokumentartHost.Text, 2)
Me.TxtDokumentartHost.Text = 0
End If
If Me.RBGesamt.Checked Then
DivFnkt.Searchnode(Me.TVStruktur, Me.TxtDokumentartGesamt.Text, 2)
Me.TxtDokumentartGesamt.Text = 0
End If
End Sub
Private Sub BeschrausOV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeschrausOV.Click
Dim i As Long
Try
For i = 0 To tofficevorlage.Rows.Count - 1
If tofficevorlage.Rows(i).Item(0) = Me.cbOfficeVorlage.SelectedValue Then
Me.TxTBeschreibung.Text = tofficevorlage.Rows(i).Item("beschreibung")
End If
Next
Catch
End Try
End Sub
Private Sub vorlagenfeldbezeichnunglist_update()
If Me.DataSet3.HasChanges Then
Try
Me.SqlDataAdapter3.Update(Me.DataSet3)
Catch
End Try
End If
Me.DataSet3.Clear()
If Me.vorlagenfeldlist.Columns("userinterface").Value = True Then
Me.SqlDataAdapter3.SelectCommand.Parameters("@vorlagenfeld").Value = Me.vorlagenfeldlist.Columns(0).Value
Me.SqlDataAdapter3.Fill(Me.DataSet3)
If Me.DataSet3.Tables(0).Rows.Count < 1 Then
insert_german()
End If
Me.vorlagenfeldbezeichnunglist.DataSource = Nothing
Me.vorlagenfeldbezeichnunglist.DataSource = Me.DataSet3.Tables(0)
Me.vorlagenfeldbezeichnunglist.DataMember = Me.DataSet3.Tables(0).TableName
SpaltenTitel_Aktualisieren2()
' Me.vorlagenfeldbezeichnunglist.AllowAddNew = True
Else
' Me.vorlagenfeldbezeichnunglist.AllowAddNew = False
End If
End Sub
Private Sub insert_german()
Dim vb As New edokadb.clsVorlagenfeldbezeichnung()
Dim dbkey As New edokadb.clsMyKey_Tabelle()
Dim key As Long
dbkey.cpMainConnectionProvider = conn
key = dbkey.get_dbkey("vorlagenfeldbezeichnung")
vb.cpMainConnectionProvider = conn
vb.iVorlagenfeldbezeichnungnr = New SqlInt32(CType(key, Int32))
vb.iVorlagenfeld = New SqlInt32(CType(Me.vorlagenfeldlist.Columns(0).Value, Int32))
vb.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
vb.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
vb.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
vb.iSprache = New SqlInt32(CType(1, Int32))
conn.OpenConnection()
vb.Insert()
conn.CloseConnection(True)
vb.Dispose()
dbkey.Dispose()
Me.DataSet3.Tables.Clear()
Me.SqlDataAdapter3.Fill(Me.DataSet3)
End Sub
Public Sub SpaltenTitel_Aktualisieren2()
'Spaltentitel setzen
Dim titel As New EDOKA.MySpaltenTitel()
Dim ts As New EDOKA.Tabellenspalte()
Dim i As Integer
Dim t As New DataTable()
Dim dc As C1.Win.C1TrueDBGrid.C1DisplayColumn
Dim s As String
ts.Tabelle = "vorlagenfeldbezeichnung"
For i = 0 To Me.vorlagenfeldbezeichnunglist.Columns.Count - 1
s = Me.vorlagenfeldbezeichnunglist.Columns(i).DataField
ts.Feld = s
ts.getspalte()
Me.vorlagenfeldbezeichnunglist.Columns(i).Caption = ts.spaltenname
If Me.vorlagenfeldbezeichnunglist.Columns(i).Caption = "" Then
Me.vorlagenfeldbezeichnunglist.Splits(0).DisplayColumns(i).Width = 0
Else
Me.vorlagenfeldbezeichnunglist.Splits(0).DisplayColumns(i).Width = ts.ColWith
End If
If ts.locked Then
Me.vorlagenfeldbezeichnunglist.Splits(0).DisplayColumns(i).Locked = True
End If
Next
End Sub
Private Sub vorlagenfeldbezeichnunglist_aftercellupdate(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles vorlagenfeldbezeichnunglist.AfterColUpdate
'Aktualisieren von Mutierer und Mutiert_am
Dim i As Integer
Try
For i = 0 To Me.vorlagenfeldbezeichnunglist.Columns.Count - 1
If Me.vorlagenfeldbezeichnunglist.Columns(i).DataField = "mutiert_am" Then Me.vorlagenfeldbezeichnunglist.Columns(i).Value = Now
If Me.vorlagenfeldbezeichnunglist.Columns(i).DataField = "mutierer" Then Me.vorlagenfeldbezeichnunglist.Columns(i).Value = Globals.MitarbeiterNr
Next
'neuer DB-Key auslösen, sofern kein Key vorhanden ist
If Me.vorlagenfeldbezeichnunglist.Columns(0).Value Is DBNull.Value Then
Dim dbkey As New edokadb.clsMyKey_Tabelle()
Dim key As Long
dbkey.cpMainConnectionProvider = conn
key = dbkey.get_dbkey("vorlagenfeldbezeichnunglist")
Me.vorlagenfeldbezeichnunglist.Columns(0).Value = key
For i = 0 To Me.vorlagenfeldbezeichnunglist.Columns.Count - 1
If Me.vorlagenfeldbezeichnunglist.Columns(i).DataField = "mandantnr" Then
Me.vorlagenfeldbezeichnunglist.Columns(i).Value = Globals.MandantNr
End If
Next
dbkey.Dispose()
End If
Catch
End Try
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.SqlDataAdapter3.Update(Me.DataSet3)
End Sub
Private Sub vorlagenfeldlist_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles vorlagenfeldlist.MouseUp
vorlagenfeldbezeichnunglist_update()
End Sub
#End Region
Private Sub btnsavevorlagenfeldlist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsavevorlagenfeldlist.Click
save_vorlagenfeldlist()
End Sub
Private Sub BtnStandard_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStandard.Click
Dim iErrorcode As Integer
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.Connection = conn.scoDBConnection
scmCmdToExecute.Connection.Open()
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.CommandText = "dbo.[sp_vorlagenfeld_standards_insert]"
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentTypkey))
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.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, iErrorcode))
Try
scmCmdToExecute.ExecuteNonQuery()
Return
Catch ex As Exception
Throw New Exception("sp_vorlagenfeld_standard_insert:Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Connection.Close()
scmCmdToExecute.Dispose()
update_vorlagenfelder()
End Try
scmCmdToExecute.Dispose()
End Sub
Private Sub btnVorlagenfeld_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVorlagenfeld.Click
Dim i As Long
Dim x, y As Long
Dim frm As New frmDomainVorlagenfeldregel()
frm.ToSelect = True
frm.Eintragnr = 0
frm.TransferKey = 0
frm.ShowDialog()
For i = 1 To frm.cTransferkey.Count
Insert_Vorlagenfeld(frm.cTransferkey.Item(i))
Next
save_vorlagenfeldlist()
y = 0
For i = 0 To Me.vorlagenfeldlist.Splits(0).Rows.Count - 1
x = Me.vorlagenfeldlist.Columns(0).CellText(i)
If x > y Then
Me.vorlagenfeldlist.Bookmark = i
y = x
End If
Next
End Sub
Private Sub vorlagenfeldlist_RowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles vorlagenfeldlist.RowColChange
Try
Me.vorlagenfeldbezeichnunglist_update()
Catch ex As Exception
'MsgBox(ex.Message)
End Try
End Sub
#Region "Felder-Aktivierung / Inakivierung"
Private Sub camsdokument_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cAMSDokument.Click
If Me.cAMSDokument.Checked And Me.cDokumentwirderstellt.Checked = False Then
Else
Me.GroupBox1.Enabled = True
Me.GroupBox2.Enabled = True
Me.GroupBox3.Enabled = True
Me.txthostdokumenttyp.Enabled = False
Me.txthostdokumenttyp.Text = ""
Me.RBKundendossier.Checked = True
Me.RBHost.Checked = False
Me.RBHost.Visible = False
Handle_StrukturRadiobuttons(sender, e)
If Me.cDokumentwirderstellt.Checked = True Then
Me.cWirdImportiert.Enabled = True
Me.cHostDokument.Enabled = False
Else
Me.cWirdImportiert.Enabled = True
Me.cHostDokument.Enabled = True
End If
Me.cDokumentwirderstellt.Enabled = True
Me.CDokumentwirdretourniert.Enabled = True
Me.mcbbedingteretournierung.Enabled = True
End If
End Sub
Private Sub chostdokument_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cHostDokument.Click
If Me.cHostDokument.Checked = False Then
Me.txthostdokumenttyp.Text = ""
Me.txthostdokumenttyp.Enabled = False
Me.cDokumentwirderstellt.Enabled = True
Me.cWirdImportiert.Enabled = True
Me.cAMSDokument.Enabled = True
Me.CDokumentwirdretourniert.Enabled = True
Me.mcbbedingteretournierung.Enabled = True
Me.GroupBox1.Enabled = True
Me.GroupBox2.Enabled = True
Me.GroupBox3.Enabled = True
Me.txthostdokumenttyp.Enabled = False
Me.txthostdokumenttyp.Text = ""
Me.RBKundendossier.Checked = True
Me.RBHost.Checked = False
Me.RBHost.Visible = False
Handle_StrukturRadiobuttons(sender, e)
Me.cWirdImportiert.Enabled = True
Me.cAMSDokument.Enabled = True
Me.cDokumentwirderstellt.Enabled = True
Me.rbDokStatusStandard.Enabled = True
Me.cbStatustyp.Enabled = True
Me.TabControl1.TabPages(1).Enabled = True
Me.TabControl1.TabPages(2).Enabled = True
SetFields(sender, e)
End If
End Sub
Private Sub SetFields(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cAMSDokument.CheckedChanged, cDokumentwirderstellt.CheckedChanged, cWirdImportiert.CheckedChanged, CDokumentwirdretourniert.CheckedChanged, cHostDokument.CheckedChanged, cbedingtretournierbar.CheckedChanged
If Me.On_Load Then Exit Sub
If Me.cHostDokument.Checked = True Then
fields_hostdokument(sender, e)
Exit Sub
End If
If Me.cDokumentwirderstellt.Checked = False And _
Me.cWirdImportiert.Checked = False And _
Me.CDokumentwirdretourniert.Checked = False And _
Me.cAMSDokument.Checked = False And Me.cbedingtretournierbar.Checked = False Then
init_fields()
Exit Sub
End If
If Me.cDokumentwirderstellt.Checked = True And _
Me.cWirdImportiert.Checked = False And _
Me.CDokumentwirdretourniert.Checked = False And _
Me.cAMSDokument.Checked = False Then
Fields_Dokumentwirderstellt()
Me.cZuVercolden_CheckedChanged(sender, e)
Me.cZuRetournieren_CheckedChanged(sender, e)
Exit Sub
End If
If Me.cAMSDokument.Checked = True And Me.cDokumentwirderstellt.Checked = False Then
'hutter
'Fields_AMSDokument(sender, e)
Fields_Dokumentwirderstellt_Ams()
Me.cZuVercolden_CheckedChanged(sender, e)
Me.cZuRetournieren_CheckedChanged(sender, e)
Exit Sub
End If
If Me.cDokumentwirderstellt.Checked = True And Me.cAMSDokument.Checked = True And _
Me.CDokumentwirdretourniert.Checked = False Then
Fields_Dokumentwirderstellt_Ams()
Me.cZuVercolden_CheckedChanged(sender, e)
Me.cZuRetournieren_CheckedChanged(sender, e)
Exit Sub
End If
If Me.cDokumentwirderstellt.Checked = True And Me.CDokumentwirdretourniert.Checked = True Then
fields_Dokumentwirderstellt_retournierung()
Me.cZuVercolden_CheckedChanged(sender, e)
Me.cZuRetournieren_CheckedChanged(sender, e)
End If
If Me.CDokumentwirdretourniert.Checked = True And Me.cDokumentwirderstellt.Checked = False Then
fields_Dokumentwirdretourniert()
Exit Sub
End If
If Me.cbedingtretournierbar.Checked = True Then
Me.cDokumentwirderstellt.Checked = False
Me.cWirdImportiert.Checked = False
Me.CDokumentwirdretourniert.Checked = False
Me.cAMSDokument.Checked = False
Me.cHostDokument.Checked = False
Me.mcbbedingteretournierung.Enabled = False
Me.cbtagebedr.Enabled = True
fields_Dokumentwirdretourniert()
Me.cVertraulich.Checked = False
Me.cVertraulich.Enabled = False
Me.cFunktion_zuweisen.Checked = False
Me.cFunktion_zuweisen.Enabled = False
Me.rbEtikette.Enabled = False
Exit Sub
End If
If Me.cWirdImportiert.Checked = True Then
fields_Dokumentwirdimportiert()
Me.cZuVercolden_CheckedChanged(sender, e)
Me.cZuRetournieren_CheckedChanged(sender, e)
End If
End Sub
Private Sub init_fields()
Me.cbVertrag.Enabled = False
Me.cStatusMutation.Enabled = False
Me.cNichtgeloescht.Enabled = False
Me.cUnterschriftlinks.Enabled = False
Me.cUnterschriftrechts.Enabled = False
' Me.CDokumentersetzen.Enabled = False
Me.cVertraulich.Enabled = False
Me.cEmailVersand.Enabled = False
Me.cFunktion_zuweisen.Enabled = False
Me.cUnterschriftlinks.Checked = False
Me.cUnterschriftrechts.Checked = False
Me.cStatusMutation.Checked = False
Me.cbBearbeitungszeit.Enabled = False
Me.cbMonierung.Enabled = False
Me.cbAbschluss.Enabled = False
Me.cbInEdokaDB.Enabled = False
Me.cbAufbewahrungelektronisch.Enabled = False
Me.cbAufbewahrungphysisch.Enabled = False
Me.cZuVercolden.Enabled = False
Me.cZuRetournieren.Enabled = False
Me.cEingangErsetztAusgang.Enabled = False
Me.cbDokartAusgang.Enabled = False
Me.cbDokartEingang.Enabled = False
Me.cbArchiv.Enabled = False
If Not Me.cidvnative.Checked = True Then Me.cidvnative.Checked = False
Me.cZuVercolden.Enabled = False
Me.cbDokartAusgang.Enabled = False
Me.cbColdFolder.Enabled = False
Me.cbobnr.Enabled = False
Me.cUnterschriftlinks.Checked = False
Me.cUnterschriftrechts.Checked = False
Me.cZuVercolden.Checked = False
Me.CDokumentersetzen.Checked = False
Me.cEmailVersand.Checked = False
Me.cFunktion_zuweisen.Checked = False
Me.cEingangErsetztAusgang.Checked = False
Me.cbtagebedr.Enabled = False
'Rel. 4.1
Me.cintern.Checked = False
End Sub
Private Sub Fields_Dokumentwirderstellt()
Me.cbVertrag.Enabled = True
Me.cStatusMutation.Enabled = True
Me.cNichtgeloescht.Enabled = True
Me.cUnterschriftlinks.Enabled = True
Me.cUnterschriftrechts.Enabled = True
Me.CDokumentersetzen.Enabled = True
Me.cVertraulich.Enabled = True
Me.cEmailVersand.Enabled = True
Me.cFunktion_zuweisen.Enabled = True
Me.cbBearbeitungszeit.Enabled = True
Me.cbMonierung.Enabled = True
Me.cbAbschluss.Enabled = True
Me.cbInEdokaDB.Enabled = True
Me.cbAufbewahrungelektronisch.Enabled = True
Me.cbAufbewahrungphysisch.Enabled = True
Me.cbMonierung.Enabled = True
Me.cidvnative.Enabled = True
Me.rbEtikette.Enabled = False
'Default setzen
If neu Then
Me.cUnterschriftlinks.Checked = True
Me.cUnterschriftrechts.Checked = True
Me.cStatusMutation.Checked = True
Me.cidvnative.Checked = False
Me.cbDokartAusgang.SelectedIndex = 1
Me.cbDokartEingang.SelectedIndex = 1
Me.cbColdFolder.SelectedIndex = 1
Me.cbArchiv.SelectedIndex = 1
Me.cbobnr.SelectedIndex = 1
Me.cUnterschriftlinks.Checked = True
Me.cUnterschriftrechts.Checked = True
Me.cZuVercolden.Checked = False
Me.cZuRetournieren.Checked = False
Me.cEmailVersand.Checked = False
Me.cFunktion_zuweisen.Checked = False
Me.cZuVercolden.Enabled = True
Me.cEingangErsetztAusgang.Enabled = False
Me.cbArchiv.Enabled = False
Me.cbDokartAusgang.Enabled = False
End If
End Sub
Private Sub Fields_AMSDokument(ByVal sender As Object, ByVal e As System.EventArgs)
Me.cbVertrag.Enabled = True
Me.cStatusMutation.Enabled = True
Me.cNichtgeloescht.Enabled = True
Me.cUnterschriftlinks.Enabled = False
Me.cUnterschriftrechts.Enabled = False
Me.CDokumentersetzen.Enabled = False
Me.cVertraulich.Enabled = True
Me.cEmailVersand.Enabled = False
Me.cFunktion_zuweisen.Enabled = False
Me.cUnterschriftlinks.CheckState = CheckState.Unchecked
Me.cUnterschriftrechts.CheckState = CheckState.Unchecked
Me.CDokumentersetzen.CheckState = CheckState.Unchecked
Me.cEmailVersand.CheckState = CheckState.Unchecked
Me.cFunktion_zuweisen.CheckState = CheckState.Unchecked
Me.cbBearbeitungszeit.Enabled = False
Me.cbBearbeitungszeit.Text = ""
Me.cbMonierung.Enabled = False
Me.cbMonierung.Text = ""
Me.cbAbschluss.Enabled = False
Me.cbAbschluss.Text = ""
Me.cbInEdokaDB.Enabled = False
Me.cbInEdokaDB.Text = ""
Me.cbAufbewahrungelektronisch.Enabled = True
Me.cbAufbewahrungphysisch.Enabled = True
Me.cZuVercolden.CheckState = CheckState.Unchecked
Me.cZuVercolden.Enabled = False
Me.cZuRetournieren.CheckState = CheckState.Unchecked
Me.cZuRetournieren.Enabled = False
Me.cEingangErsetztAusgang.CheckState = CheckState.Unchecked
Me.cEingangErsetztAusgang.Enabled = False
Me.cbDokartAusgang.Enabled = False
Me.cbDokartAusgang.Text = ""
Me.cbDokartEingang.Enabled = False
Me.cbDokartEingang.Text = ""
Me.cbArchiv.Enabled = False
Me.cbArchiv.Text = ""
Me.cidvnative.CheckState = CheckState.Unchecked
Me.cidvnative.Enabled = False
Me.rbEtikette.Enabled = False
Me.cbStatustyp.SelectedValue = 1
cbStatustyp_SelectedIndexChanged(sender, e)
Me.RBKundendossier.Checked = True
Me.RBKundendossier.Visible = True
Handle_StrukturRadiobuttons(sender, e)
Me.cWirdImportiert.Checked = False
Me.cWirdImportiert.Enabled = False
Me.cHostDokument.Checked = False
Me.cHostDokument.Enabled = False
Me.txthostdokumenttyp.Enabled = False
Me.txthostdokumenttyp.Text = ""
Me.cDokumentwirderstellt.Enabled = False
Me.cDokumentwirderstellt.Checked = False
Me.pnlVorlagenfeld.Enabled = False
Me.TabControl1.TabPages(2).Enabled = False
Me.CDokumentwirdretourniert.Enabled = False
End Sub
Private Sub Fields_Dokumentwirderstellt_Ams()
Me.cbVertrag.Enabled = True
Me.cStatusMutation.Enabled = True
Me.cNichtgeloescht.Enabled = True
Me.cUnterschriftlinks.Enabled = True
Me.cUnterschriftrechts.Enabled = True
Me.CDokumentersetzen.Enabled = True
Me.cVertraulich.Enabled = True
Me.cEmailVersand.Enabled = True
Me.cFunktion_zuweisen.Enabled = True
Me.cbBearbeitungszeit.Enabled = True
Me.cbMonierung.Enabled = True
Me.cbAbschluss.Enabled = True
Me.cbInEdokaDB.Enabled = True
Me.rbEtikette.Enabled = False
Me.cbAufbewahrungelektronisch.Enabled = True
Me.cbAufbewahrungphysisch.Enabled = True
'Default setzen
If neu Then
Me.cUnterschriftlinks.Checked = True
Me.cUnterschriftrechts.Checked = True
Me.cStatusMutation.Checked = True
Me.cidvnative.Checked = False
Me.cbDokartAusgang.SelectedIndex = 1
Me.cbDokartEingang.SelectedIndex = 1
Me.cbColdFolder.SelectedIndex = 1
Me.cbobnr.SelectedIndex = 1
Me.cbArchiv.SelectedIndex = 1
Me.cUnterschriftlinks.Checked = True
Me.cUnterschriftrechts.Checked = True
Me.cZuVercolden.Checked = False
Me.cZuRetournieren.Checked = False
Me.cEmailVersand.Checked = False
Me.cFunktion_zuweisen.Checked = False
Me.cZuVercolden.Enabled = True
Me.cEingangErsetztAusgang.Enabled = False
Me.cbArchiv.Enabled = False
Me.cbDokartAusgang.Enabled = False
End If
Me.cidvnative.CheckState = CheckState.Unchecked
Me.cidvnative.Enabled = False
' If Me.cUnterschriftlinks.CheckState = CheckState.Unchecked Then
' Me.cUnterschriftlinks.CheckState = CheckState.Checked
' End If
' If Me.cUnterschriftrechts.CheckState = CheckState.Unchecked Then
' Me.cUnterschriftrechts.CheckState = CheckState.Checked
' End If
' If Me.CDokumentersetzen.CheckState = CheckState.Unchecked Then
' Me.CDokumentersetzen.CheckState = CheckState.Unchecked
'End If
End Sub
Private Sub fields_Dokumentwirderstellt_retournierung()
Me.cbVertrag.Enabled = True
Me.cStatusMutation.Enabled = True
Me.cNichtgeloescht.Enabled = True
Me.cUnterschriftlinks.Enabled = True
Me.cUnterschriftrechts.Enabled = True
Me.CDokumentersetzen.Enabled = True
Me.cVertraulich.Enabled = True
Me.cEmailVersand.Enabled = True
Me.cFunktion_zuweisen.Enabled = True
Me.cbBearbeitungszeit.Enabled = True
Me.cbMonierung.Enabled = True
Me.cbAbschluss.Enabled = True
Me.cbInEdokaDB.Enabled = True
Me.cbAufbewahrungelektronisch.Enabled = True
Me.cbAufbewahrungphysisch.Enabled = True
Me.rbEtikette.Enabled = True
'Default setzen
If neu Then
Me.cUnterschriftlinks.Checked = True
Me.cUnterschriftrechts.Checked = True
Me.cStatusMutation.Checked = True
Me.cidvnative.Checked = False
Me.cbDokartAusgang.SelectedIndex = 1
Me.cbDokartEingang.SelectedIndex = 1
Me.cbColdFolder.SelectedIndex = 1
Me.cbArchiv.SelectedIndex = 1
Me.cUnterschriftlinks.Checked = True
Me.cUnterschriftrechts.Checked = True
Me.cZuVercolden.Checked = False
Me.cZuRetournieren.Checked = False
Me.cEmailVersand.Checked = False
Me.cFunktion_zuweisen.Checked = False
Me.cZuVercolden.Enabled = True
Me.cZuVercolden.Checked = True
Me.cZuRetournieren.Enabled = True
Me.cZuRetournieren.Checked = True
Me.cEingangErsetztAusgang.Enabled = False
Me.cbArchiv.Enabled = False
Me.cbDokartAusgang.Enabled = False
End If
Me.cidvnative.Enabled = False
Me.cidvnative.Checked = False
End Sub
Private Sub fields_Dokumentwirdretourniert()
Me.cbVertrag.Enabled = True
Me.cStatusMutation.Enabled = True
Me.cNichtgeloescht.Enabled = True
Me.cUnterschriftlinks.Enabled = False
Me.cUnterschriftrechts.Enabled = False
Me.CDokumentersetzen.Enabled = True
Me.cVertraulich.Enabled = True
Me.cEmailVersand.Enabled = False
Me.cFunktion_zuweisen.Enabled = False
Me.cUnterschriftlinks.CheckState = CheckState.Unchecked
Me.cUnterschriftrechts.CheckState = CheckState.Unchecked
' Me.CDokumentersetzen.CheckState = CheckState.Unchecked
Me.cEmailVersand.CheckState = CheckState.Unchecked
Me.cFunktion_zuweisen.CheckState = CheckState.Unchecked
Me.cbBearbeitungszeit.Enabled = True
Me.cbMonierung.Enabled = True
Me.cbAbschluss.Enabled = False
Me.cbAbschluss.Text = ""
Me.cbInEdokaDB.Enabled = True
Me.cbAufbewahrungelektronisch.Enabled = True
Me.cbAufbewahrungphysisch.Enabled = True
Me.cZuVercolden.CheckState = CheckState.Unchecked
Me.cZuVercolden.Enabled = False
Me.cZuRetournieren.CheckState = CheckState.Checked
Me.cZuRetournieren.Enabled = False
Me.cEingangErsetztAusgang.Enabled = False
Me.cbDokartAusgang.Enabled = False
Me.cbDokartEingang.Enabled = True
Me.cbColdFolder.Enabled = True
Me.cbobnr.Enabled = True
Me.cbArchiv.Enabled = True
Me.rbEtikette.Enabled = True
Me.cbArchiv.Enabled = True
Me.cidvnative.CheckState = CheckState.Unchecked
Me.cidvnative.Enabled = False
Me.cFunktion_zuweisen.Enabled = True
If neu Then
Me.cEingangErsetztAusgang.CheckState = CheckState.Unchecked
Me.CDokumentersetzen.Checked = False
Me.cFunktion_zuweisen.Checked = False
Me.cbDokartAusgang.SelectedIndex = 1
Me.cbDokartEingang.SelectedIndex = 1
Me.cbColdFolder.SelectedIndex = 1
Me.cbArchiv.SelectedIndex = 1
End If
End Sub
Private Sub fields_Dokumentwirdimportiert()
Me.cbVertrag.Enabled = True
Me.cStatusMutation.Enabled = True
Me.cNichtgeloescht.Enabled = True
Me.cUnterschriftlinks.Enabled = True
Me.cUnterschriftrechts.Enabled = True
Me.CDokumentersetzen.Enabled = True
Me.cVertraulich.Enabled = True
Me.cEmailVersand.Enabled = True
Me.cFunktion_zuweisen.Enabled = True
Me.cUnterschriftlinks.Checked = True
Me.cUnterschriftrechts.Checked = True
Me.cStatusMutation.Checked = True
Me.cbBearbeitungszeit.Enabled = True
Me.cbMonierung.Enabled = True
Me.cbAbschluss.Enabled = True
Me.cbInEdokaDB.Enabled = True
Me.cbAufbewahrungelektronisch.Enabled = True
Me.cbAufbewahrungphysisch.Enabled = True
Me.cZuVercolden.Enabled = True
Me.cZuRetournieren.Enabled = True
Me.cEingangErsetztAusgang.Enabled = True
Me.cbDokartAusgang.Enabled = True
Me.cbDokartEingang.Enabled = True
Me.cbArchiv.Enabled = True
Me.cidvnative.Checked = False
End Sub
Private Sub fields_hostdokument(ByVal sender As Object, ByVal e As System.EventArgs)
Me.RBKundendossier.Checked = True
Me.TabControl1.TabPages(1).Enabled = True
Me.TabControl1.TabPages(2).Enabled = True
Me.pnlVorlagenfeld.Enabled = True
Me.TabDokumentfelder.Enabled = True
Me.RBKundendossier.Visible = True
Me.RBHost.Visible = False
Me.RBHost.Checked = False
'Formatierung für HOST-Dokumente
Me.cbStatustyp.SelectedValue = 0
cbStatustyp_SelectedIndexChanged(sender, e)
Me.txthostdokumenttyp.Enabled = True
Me.RBKundendossier.Checked = False
Me.RBKundendossier.Visible = False
Me.RBHost.Visible = True
Me.RBHost.Checked = True
Handle_StrukturRadiobuttons(sender, e)
Me.cWirdImportiert.Checked = False
Me.cWirdImportiert.Enabled = False
Me.cAMSDokument.Checked = False
Me.cAMSDokument.Enabled = False
Me.cDokumentwirderstellt.Enabled = False
Me.cDokumentwirderstellt.Checked = False
Me.pnlVorlagenfeld.Enabled = False
Me.TabControl1.TabPages(1).Enabled = False
Me.TabControl1.TabPages(2).Enabled = False
Me.CDokumentwirdretourniert.Enabled = False
End Sub
#End Region
Private Sub Panel3_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel3.Paint
End Sub
Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
Dim f As New frmInformationsEmpfaenger()
f.fromDokumenttyp = True
f.Dokumenttypnr = Me.Dokumenttypnr.Text
f.statustyp = Me.cbStatustyp.SelectedValue
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
Dim rc As DataRowCollection
Dim newrow As DataRow
rc = Me.DokumentInfoMeldungen.Rows
Dim rowvals(8) As Object
rowvals(0) = 0
rowvals(1) = f.Empfaenger
rowvals(2) = f.Empaengertext
rowvals(3) = f.Meldungsnr
rowvals(4) = f.Meldung
If Len(f.Bemerkung) > 0 Then f.Bemerkung = f.Bemerkung + vbCrLf + "----------------------" + vbCrLf + vbCrLf
rowvals(5) = f.Bemerkung
rowvals(6) = f.Statusnr
rowvals(7) = f.Statustext
rowvals(8) = 1
newrow = rc.Add(rowvals)
Me.InfomeldungList.Refresh()
f.Dispose()
End If
End Sub
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_Dokumenttypinfomeldung_select"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn.scoDBConnection
Try
If Me.NeuerEintrag Then
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
Else
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Val(Me.Dokumenttypnr.Text)))
End If
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
MsgBox(ex.Message)
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("Dokumentinfomeldung_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
Dim i As Integer
Me.InfomeldungList.Columns(8).Text = False
Me.InfomeldungList.Refresh()
Me.TabControl1.Select()
Me.InfomeldungList.Select()
End Sub
Public Sub Dokumenttypinfomeldungen_Sichern()
Dim i As Integer
For i = 0 To Me.dokumentinfomeldungen.Rows.Count - 1
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.SP_Dokumenttypinfomeldungen_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("dokumenttypinfomeldungnr")))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Val(Me.Dokumenttypnr.Text)))
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.ExecuteNonQuery()
Catch ex As Exception
' // 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
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dokumenttypinfomeldungen_Sichern()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection
Dim ic As Integer
Dim frm As New frmDomainFunktionsgruppe()
Dim key As Long
Dim dbkey As New edokadb.clsMyKey_Tabelle()
Dim vdata As New edokadb.clsDokumentindexmutation()
frm.ToSelect = True
frm.TransferKey = 0
frm.Eintragnr = 0
frm.Refresh()
frm.Owner = Me
frm.ShowDialog()
colRows = frm.DomainList.SelectedRows
For ic = 0 To colRows.Count - 1
dbkey.cpMainConnectionProvider = conn
key = dbkey.get_dbkey("dokumentindexmutation")
vdata.cpMainConnectionProvider = conn
vdata.iIndexmutationnr = New SqlInt32(CType(key, Int32))
vdata.iDokumenttypnr = New SqlInt32(CType(Me.Dokumenttypnr.Text, Int32))
vdata.iFunktionnr = New SqlInt32(CType(frm.DomainList.Columns(0).CellValue(colRows(ic)), Int32))
vdata.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
vdata.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
vdata.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
vdata.bAktiv = New SqlBoolean(CType(True, Boolean))
conn.OpenConnection()
vdata.Insert()
conn.CloseConnection(True)
Me.IndexMutationNachAbschluss = True
Next ic
vdata.Dispose()
frm.Dispose()
Update_indexmutation()
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection
Dim ic As Integer
Dim frm As New frmDomainFunktionsgruppe()
Dim key As Long
Dim dbkey As New edokadb.clsMyKey_Tabelle()
Dim vdata As New edokadb.clsDokumentaufhebung()
frm.ToSelect = True
frm.TransferKey = 0
frm.Eintragnr = 0
frm.Refresh()
frm.Owner = Me
frm.ShowDialog()
colRows = frm.DomainList.SelectedRows
For ic = 0 To colRows.Count - 1
dbkey.cpMainConnectionProvider = conn
key = dbkey.get_dbkey("dokumentindexmutation")
vdata.cpMainConnectionProvider = conn
vdata.iAufhebungnr = New SqlInt32(CType(key, Int32))
vdata.iDokumenttypnr = New SqlInt32(CType(Me.Dokumenttypnr.Text, Int32))
vdata.iFunktionnr = New SqlInt32(CType(frm.DomainList.Columns(0).CellValue(colRows(ic)), Int32))
vdata.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
vdata.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
vdata.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
vdata.bAktiv = New SqlBoolean(CType(True, Boolean))
conn.OpenConnection()
vdata.Insert()
conn.CloseConnection(True)
Me.LoeschungNachAbschluss = True
Next ic
vdata.Dispose()
frm.Dispose()
Update_Aufhebungliste()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Me.SqlDataAdapter5.Update(Me.DataSet5)
Me.IndexMutationNachAbschluss = True
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Try
Me.SqlDataAdapter6.Update(Me.DataSet6)
Me.LoeschungNachAbschluss = True
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub frmDomainDokumenttypDetail_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
If Check_Status() = False Then
MyMsg.show_standardmessage(238, MsgBoxStyle.Information)
e.Cancel = True
End If
End Sub
Private Sub insert_dokumentmutation(ByVal type As Integer)
'Dim ud As New edokadb.clsUpdate_Dokument_Indexmutation_Loeschung()
'ud.cpMainConnectionProvider = conn
'If type = 1 Then
' ud.bLoeschung = New SqlBoolean(CType(False, Boolean))
' ud.bIndexmutation = New SqlBoolean(CType(True, Boolean))
'Else
' ud.bLoeschung = New SqlBoolean(CType(True, Boolean))
' ud.bIndexmutation = New SqlBoolean(CType(False, Boolean))
'End If
'ud.daStatusdatum = New SqlDateTime(CType(Now, DateTime))
'ud.iStatus = New SqlInt32(CType(0, Int32))
'ud.iDokumenttypnr = New SqlInt32(CType(Me.DokumentTypkey, Int32))
'ud.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
'conn.OpenConnection()
'ud.Insert()
'conn.CloseConnection(True)
'ud.Dispose()
End Sub
Private Sub cZuRetournieren_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cZuRetournieren.CheckedChanged
If Me.cZuRetournieren.Checked Then
Me.mcbbedingteretournierung.SelectedValue = 0
Me.mcbbedingteretournierung.Enabled = False
Else
Me.mcbbedingteretournierung.SelectedValue = 0
Me.mcbbedingteretournierung.Enabled = True
End If
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Dim f As New frmAMSOfficeVorlage()
f.Dokumenttypnr = Me.DokumentTypkey
f.ShowDialog()
update_vorlagenfelder()
End Sub
Private Sub BtnHelp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHelp.Click
Globals.HTMLHelp.ShowHelpToc("dokumenttyp")
End Sub
Private Sub cbsb_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbsb.CheckedChanged
If Me.cbsb.Checked = True Then
Me.cbsbnur.Enabled = True
Me.cbsbedituser.Enabled = True
Me.cbsbimport.Enabled = True
Else
Me.cbsbedituser.Checked = False
Me.cbsbimport.Checked = False
Me.cbsbnur.Checked = False
Me.cbsbedituser.Enabled = False
Me.cbsbimport.Enabled = False
Me.cbsbnur.Enabled = False
End If
End Sub
Private Sub cbKDE_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbKDE.CheckedChanged
If Me.cbKDE.Checked = True Then
If Me.cbArchiv.Enabled = False Then Me.cbArchiv.Enabled = True
End If
End Sub
End Class
Reference in new issue View Git Blame Copy Permalink