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 SqlDeleteCommand3 As System.Data.SqlClient.SqlCommand Friend WithEvents SQLUpdateCommand3 As System.Data.SqlClient.SqlCommand Friend WithEvents SQLInsertCommand3 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 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 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 Panel4 As System.Windows.Forms.Panel Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer Friend WithEvents Panel5 As System.Windows.Forms.Panel Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox Friend WithEvents cbFachverantwortung As System.Windows.Forms.ComboBox Friend WithEvents SqlInsertCommand As SqlCommand Friend WithEvents SqlUpdateCommand As SqlCommand Friend WithEvents ESS_Field_Class_List As C1.Win.C1TrueDBGrid.C1TrueDBDropdown Friend WithEvents cbezmut As System.Windows.Forms.CheckBox 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() Dim Style9 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style10 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style11 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style12 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style13 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style14 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style15 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style16 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.cbFachverantwortung = New System.Windows.Forms.ComboBox() 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.Panel4 = New System.Windows.Forms.Panel() 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.GroupBox8 = New System.Windows.Forms.GroupBox() Me.Button4 = New System.Windows.Forms.Button() Me.InfomeldungList = 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.GroupBox7 = New System.Windows.Forms.GroupBox() Me.Label28 = New System.Windows.Forms.Label() Me.Button7 = New System.Windows.Forms.Button() Me.indexmutationliste = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.Button8 = New System.Windows.Forms.Button() Me.Aufhebungliste = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.Button5 = New System.Windows.Forms.Button() Me.Label29 = New System.Windows.Forms.Label() Me.Button6 = New System.Windows.Forms.Button() Me.GroupBox6 = New System.Windows.Forms.GroupBox() Me.Label20 = New System.Windows.Forms.Label() Me.rbEtikette = New System.Windows.Forms.RadioButton() Me.Statuslist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.rbDokStatusStandard = New System.Windows.Forms.RadioButton() Me.cbStatustyp = New System.Windows.Forms.ComboBox() Me.BtnSaveRollen = New System.Windows.Forms.Button() Me.btnsave = New System.Windows.Forms.Button() Me.btnNeueRolle = New System.Windows.Forms.Button() Me.Label24 = New System.Windows.Forms.Label() Me.DokumentstatusRolle_Liste = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.TabDokumentfelder = New System.Windows.Forms.TabPage() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() Me.ESS_Field_Class_List = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown() Me.vorlagenfeldlist = 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.ColdIndexfeldList = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown() Me.Panel3 = New System.Windows.Forms.Panel() Me.pnlVorlagenfeld = 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.vorlagenfeldbezeichnunglist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.Panel5 = New System.Windows.Forms.Panel() Me.Button3 = New System.Windows.Forms.Button() Me.Label25 = New System.Windows.Forms.Label() 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.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.SqlInsertCommand = New System.Data.SqlClient.SqlCommand() Me.SqlUpdateCommand = New System.Data.SqlClient.SqlCommand() 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.Panel4.SuspendLayout() Me.Panel2.SuspendLayout() Me.TabStatusreihenfolge.SuspendLayout() Me.GroupBox8.SuspendLayout() CType(Me.InfomeldungList, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox7.SuspendLayout() CType(Me.indexmutationliste, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Aufhebungliste, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox6.SuspendLayout() CType(Me.Statuslist, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DokumentstatusRolle_Liste, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabDokumentfelder.SuspendLayout() Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainer1.Panel2.SuspendLayout() Me.SplitContainer1.SuspendLayout() CType(Me.ESS_Field_Class_List, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.vorlagenfeldlist, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ColdIndexfeldList, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel3.SuspendLayout() CType(Me.vorlagenfeldbezeichnunglist, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel5.SuspendLayout() Me.TbSerienbrief.SuspendLayout() 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(1156, 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, 0) Me.Panel1.Name = "Panel1" Me.Panel1.Size = New System.Drawing.Size(504, 728) 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, 148) 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, 140) 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, 146) 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, 210) Me.Label19.Name = "Label19" Me.Label19.Size = New System.Drawing.Size(32, 16) Me.Label19.TabIndex = 30 Me.Label19.Text = "Min." Me.Label19.Visible = False ' 'Label18 ' Me.Label18.Location = New System.Drawing.Point(192, 116) 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, 92) 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, 68) 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, 44) 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, 20) 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, 116) 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, 116) 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, 92) 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, 92) 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, 68) 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, 68) 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, 44) 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, 44) 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, 20) 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, 20) 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, 210) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(136, 16) Me.Label8.TabIndex = 14 Me.Label8.Text = "Bearbeitungszeit in Min." Me.Label8.Visible = False ' 'cbBearbeitungszeit ' Me.cbBearbeitungszeit.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cbBearbeitungszeit.Location = New System.Drawing.Point(144, 210) Me.cbBearbeitungszeit.Name = "cbBearbeitungszeit" Me.cbBearbeitungszeit.Size = New System.Drawing.Size(48, 21) Me.cbBearbeitungszeit.TabIndex = 13 Me.cbBearbeitungszeit.Visible = False ' '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.cbFachverantwortung) 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" ' 'cbFachverantwortung ' Me.cbFachverantwortung.Location = New System.Drawing.Point(120, 111) Me.cbFachverantwortung.Name = "cbFachverantwortung" Me.cbFachverantwortung.Size = New System.Drawing.Size(336, 21) Me.cbFachverantwortung.TabIndex = 18 ' 'txtFachverantwortung ' Me.txtFachverantwortung.Location = New System.Drawing.Point(102, 109) Me.txtFachverantwortung.Name = "txtFachverantwortung" Me.txtFachverantwortung.Size = New System.Drawing.Size(14, 20) Me.txtFachverantwortung.TabIndex = 17 Me.txtFachverantwortung.Visible = False ' '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.TabDokumentfelder) Me.TabControl1.Controls.Add(Me.TbSerienbrief) Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.TabControl1.Location = New System.Drawing.Point(0, 28) Me.TabControl1.Name = "TabControl1" Me.TabControl1.RightToLeft = System.Windows.Forms.RightToLeft.No Me.TabControl1.SelectedIndex = 0 Me.TabControl1.Size = New System.Drawing.Size(1156, 758) Me.TabControl1.TabIndex = 14 ' 'TabStruktur ' Me.TabStruktur.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.TabStruktur.Controls.Add(Me.Panel4) Me.TabStruktur.Controls.Add(Me.Panel1) Me.TabStruktur.Location = New System.Drawing.Point(4, 22) Me.TabStruktur.Name = "TabStruktur" Me.TabStruktur.Size = New System.Drawing.Size(1148, 732) Me.TabStruktur.TabIndex = 0 Me.TabStruktur.Text = "Allgemein" ' 'Panel4 ' Me.Panel4.Controls.Add(Me.TVStruktur) Me.Panel4.Controls.Add(Me.Panel2) Me.Panel4.Dock = System.Windows.Forms.DockStyle.Left Me.Panel4.Location = New System.Drawing.Point(504, 0) Me.Panel4.Name = "Panel4" Me.Panel4.Size = New System.Drawing.Size(444, 728) Me.Panel4.TabIndex = 14 ' '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(444, 688) 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(444, 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.GroupBox8) Me.TabStatusreihenfolge.Controls.Add(Me.GroupBox7) Me.TabStatusreihenfolge.Controls.Add(Me.GroupBox6) Me.TabStatusreihenfolge.Location = New System.Drawing.Point(4, 22) Me.TabStatusreihenfolge.Name = "TabStatusreihenfolge" Me.TabStatusreihenfolge.Size = New System.Drawing.Size(1148, 732) Me.TabStatusreihenfolge.TabIndex = 1 Me.TabStatusreihenfolge.Text = "Statusreihenfolge / Nach Abschluss / Informationsmeldungen" ' 'GroupBox8 ' Me.GroupBox8.Controls.Add(Me.Button4) Me.GroupBox8.Controls.Add(Me.InfomeldungList) Me.GroupBox8.Dock = System.Windows.Forms.DockStyle.Left Me.GroupBox8.Location = New System.Drawing.Point(700, 0) Me.GroupBox8.Name = "GroupBox8" Me.GroupBox8.Size = New System.Drawing.Size(357, 730) Me.GroupBox8.TabIndex = 7 Me.GroupBox8.TabStop = False Me.GroupBox8.Text = "Inforamtionsmeldungen" ' 'Button4 ' Me.Button4.Image = CType(resources.GetObject("Button4.Image"), System.Drawing.Image) Me.Button4.Location = New System.Drawing.Point(305, 57) 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(9, 81) 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.0R 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") ' '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" ' 'GroupBox7 ' Me.GroupBox7.Controls.Add(Me.Label28) Me.GroupBox7.Controls.Add(Me.Button7) Me.GroupBox7.Controls.Add(Me.indexmutationliste) Me.GroupBox7.Controls.Add(Me.Button8) Me.GroupBox7.Controls.Add(Me.Aufhebungliste) Me.GroupBox7.Controls.Add(Me.Button5) Me.GroupBox7.Controls.Add(Me.Label29) Me.GroupBox7.Controls.Add(Me.Button6) Me.GroupBox7.Dock = System.Windows.Forms.DockStyle.Left Me.GroupBox7.Location = New System.Drawing.Point(347, 0) Me.GroupBox7.Name = "GroupBox7" Me.GroupBox7.Size = New System.Drawing.Size(353, 730) Me.GroupBox7.TabIndex = 14 Me.GroupBox7.TabStop = False Me.GroupBox7.Text = "Nach Abschluss" ' 'Label28 ' Me.Label28.Location = New System.Drawing.Point(15, 63) Me.Label28.Name = "Label28" Me.Label28.Size = New System.Drawing.Size(243, 16) Me.Label28.TabIndex = 4 Me.Label28.Text = "Indexmutation nach Abschluss" ' 'Button7 ' Me.Button7.ImageIndex = 1 Me.Button7.ImageList = Me.ImageList1 Me.Button7.Location = New System.Drawing.Point(311, 331) Me.Button7.Name = "Button7" Me.Button7.Size = New System.Drawing.Size(24, 24) Me.Button7.TabIndex = 13 ' 'indexmutationliste ' Me.indexmutationliste.AllowSort = False Me.indexmutationliste.AlternatingRows = True Me.indexmutationliste.BackColor = System.Drawing.Color.Gray 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(15, 81) 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.0R 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") ' 'Button8 ' Me.Button8.ImageIndex = 3 Me.Button8.ImageList = Me.ImageList1 Me.Button8.Location = New System.Drawing.Point(287, 331) Me.Button8.Name = "Button8" Me.Button8.Size = New System.Drawing.Size(24, 24) Me.Button8.TabIndex = 12 ' 'Aufhebungliste ' Me.Aufhebungliste.AllowSort = False Me.Aufhebungliste.AlternatingRows = True Me.Aufhebungliste.BackColor = System.Drawing.Color.Gray 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(15, 361) 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.0R Me.Aufhebungliste.PrintInfo.PageSettings = CType(resources.GetObject("Aufhebungliste.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.Aufhebungliste.Size = New System.Drawing.Size(320, 264) Me.Aufhebungliste.TabIndex = 3 Me.Aufhebungliste.Text = "C1TrueDBGrid1" Me.Aufhebungliste.PropBag = resources.GetString("Aufhebungliste.PropBag") ' 'Button5 ' Me.Button5.ImageIndex = 1 Me.Button5.ImageList = Me.ImageList1 Me.Button5.Location = New System.Drawing.Point(311, 57) Me.Button5.Name = "Button5" Me.Button5.Size = New System.Drawing.Size(24, 24) Me.Button5.TabIndex = 11 ' 'Label29 ' Me.Label29.Location = New System.Drawing.Point(15, 337) 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" ' 'Button6 ' Me.Button6.ImageIndex = 3 Me.Button6.ImageList = Me.ImageList1 Me.Button6.Location = New System.Drawing.Point(287, 57) Me.Button6.Name = "Button6" Me.Button6.Size = New System.Drawing.Size(24, 24) Me.Button6.TabIndex = 10 ' 'GroupBox6 ' Me.GroupBox6.Controls.Add(Me.Label20) Me.GroupBox6.Controls.Add(Me.rbEtikette) Me.GroupBox6.Controls.Add(Me.Statuslist) Me.GroupBox6.Controls.Add(Me.rbDokStatusStandard) Me.GroupBox6.Controls.Add(Me.cbStatustyp) Me.GroupBox6.Controls.Add(Me.BtnSaveRollen) Me.GroupBox6.Controls.Add(Me.btnsave) Me.GroupBox6.Controls.Add(Me.btnNeueRolle) Me.GroupBox6.Controls.Add(Me.Label24) Me.GroupBox6.Controls.Add(Me.DokumentstatusRolle_Liste) Me.GroupBox6.Dock = System.Windows.Forms.DockStyle.Left Me.GroupBox6.Location = New System.Drawing.Point(0, 0) Me.GroupBox6.Name = "GroupBox6" Me.GroupBox6.Size = New System.Drawing.Size(347, 730) Me.GroupBox6.TabIndex = 12 Me.GroupBox6.TabStop = False Me.GroupBox6.Text = "Statusreihenfolge" ' 'Label20 ' Me.Label20.Location = New System.Drawing.Point(15, 25) Me.Label20.Name = "Label20" Me.Label20.Size = New System.Drawing.Size(56, 23) Me.Label20.TabIndex = 4 Me.Label20.Text = "Statustyp" ' 'rbEtikette ' Me.rbEtikette.Enabled = False Me.rbEtikette.Location = New System.Drawing.Point(95, 57) Me.rbEtikette.Name = "rbEtikette" Me.rbEtikette.Size = New System.Drawing.Size(168, 24) Me.rbEtikette.TabIndex = 11 Me.rbEtikette.Text = "Retournierung mit Etikette" ' '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(15, 81) 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.0R 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") ' 'rbDokStatusStandard ' Me.rbDokStatusStandard.Location = New System.Drawing.Point(23, 57) Me.rbDokStatusStandard.Name = "rbDokStatusStandard" Me.rbDokStatusStandard.Size = New System.Drawing.Size(72, 24) Me.rbDokStatusStandard.TabIndex = 10 Me.rbDokStatusStandard.Text = "Standard" ' 'cbStatustyp ' Me.cbStatustyp.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cbStatustyp.Location = New System.Drawing.Point(87, 25) Me.cbStatustyp.Name = "cbStatustyp" Me.cbStatustyp.Size = New System.Drawing.Size(240, 21) Me.cbStatustyp.TabIndex = 3 ' 'BtnSaveRollen ' Me.BtnSaveRollen.ImageIndex = 1 Me.BtnSaveRollen.ImageList = Me.ImageList1 Me.BtnSaveRollen.Location = New System.Drawing.Point(303, 329) Me.BtnSaveRollen.Name = "BtnSaveRollen" Me.BtnSaveRollen.Size = New System.Drawing.Size(24, 24) Me.BtnSaveRollen.TabIndex = 9 ' 'btnsave ' Me.btnsave.Image = CType(resources.GetObject("btnsave.Image"), System.Drawing.Image) Me.btnsave.Location = New System.Drawing.Point(303, 57) Me.btnsave.Name = "btnsave" Me.btnsave.Size = New System.Drawing.Size(24, 24) Me.btnsave.TabIndex = 5 ' 'btnNeueRolle ' Me.btnNeueRolle.ImageIndex = 3 Me.btnNeueRolle.ImageList = Me.ImageList1 Me.btnNeueRolle.Location = New System.Drawing.Point(279, 329) Me.btnNeueRolle.Name = "btnNeueRolle" Me.btnNeueRolle.Size = New System.Drawing.Size(24, 24) Me.btnNeueRolle.TabIndex = 8 ' 'Label24 ' Me.Label24.Location = New System.Drawing.Point(15, 337) 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" ' '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(15, 361) 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.0R 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") ' 'TabDokumentfelder ' Me.TabDokumentfelder.Controls.Add(Me.SplitContainer1) Me.TabDokumentfelder.Location = New System.Drawing.Point(4, 22) Me.TabDokumentfelder.Name = "TabDokumentfelder" Me.TabDokumentfelder.Size = New System.Drawing.Size(1148, 732) Me.TabDokumentfelder.TabIndex = 2 Me.TabDokumentfelder.Text = "Vorlagenfelder" ' 'SplitContainer1 ' Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill Me.SplitContainer1.Location = New System.Drawing.Point(0, 0) Me.SplitContainer1.Name = "SplitContainer1" Me.SplitContainer1.Orientation = System.Windows.Forms.Orientation.Horizontal ' 'SplitContainer1.Panel1 ' Me.SplitContainer1.Panel1.Controls.Add(Me.ESS_Field_Class_List) Me.SplitContainer1.Panel1.Controls.Add(Me.vorlagenfeldlist) Me.SplitContainer1.Panel1.Controls.Add(Me.ColdIndexfeldList) Me.SplitContainer1.Panel1.Controls.Add(Me.Panel3) ' 'SplitContainer1.Panel2 ' Me.SplitContainer1.Panel2.Controls.Add(Me.vorlagenfeldbezeichnunglist) Me.SplitContainer1.Panel2.Controls.Add(Me.Panel5) Me.SplitContainer1.Size = New System.Drawing.Size(1148, 732) Me.SplitContainer1.SplitterDistance = 516 Me.SplitContainer1.TabIndex = 16 ' 'ESS_Field_Class_List ' Me.ESS_Field_Class_List.AllowColMove = True Me.ESS_Field_Class_List.AllowColSelect = True Me.ESS_Field_Class_List.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows Me.ESS_Field_Class_List.AlternatingRows = False Me.ESS_Field_Class_List.CaptionStyle = Style1 Me.ESS_Field_Class_List.ColumnCaptionHeight = 17 Me.ESS_Field_Class_List.ColumnFooterHeight = 17 Me.ESS_Field_Class_List.EvenRowStyle = Style2 Me.ESS_Field_Class_List.FetchRowStyles = False Me.ESS_Field_Class_List.FooterStyle = Style3 Me.ESS_Field_Class_List.HeadingStyle = Style4 Me.ESS_Field_Class_List.HighLightRowStyle = Style5 Me.ESS_Field_Class_List.Images.Add(CType(resources.GetObject("ESS_Field_Class_List.Images"), System.Drawing.Image)) Me.ESS_Field_Class_List.Location = New System.Drawing.Point(514, 198) Me.ESS_Field_Class_List.Name = "ESS_Field_Class_List" Me.ESS_Field_Class_List.OddRowStyle = Style6 Me.ESS_Field_Class_List.RecordSelectorStyle = Style7 Me.ESS_Field_Class_List.RowDivider.Color = System.Drawing.Color.DarkGray Me.ESS_Field_Class_List.RowDivider.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.[Single] Me.ESS_Field_Class_List.RowSubDividerColor = System.Drawing.Color.DarkGray Me.ESS_Field_Class_List.ScrollTips = False Me.ESS_Field_Class_List.Size = New System.Drawing.Size(120, 120) Me.ESS_Field_Class_List.Style = Style8 Me.ESS_Field_Class_List.TabIndex = 9 Me.ESS_Field_Class_List.Text = "C1TrueDBDropdown1" Me.ESS_Field_Class_List.Visible = False Me.ESS_Field_Class_List.PropBag = resources.GetString("ESS_Field_Class_List.PropBag") ' '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.Dock = System.Windows.Forms.DockStyle.Fill 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(0, 42) 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.0R Me.vorlagenfeldlist.PrintInfo.PageSettings = CType(resources.GetObject("vorlagenfeldlist.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.vorlagenfeldlist.Size = New System.Drawing.Size(1148, 474) Me.vorlagenfeldlist.TabIndex = 0 Me.vorlagenfeldlist.Text = "VorlagenfeldList" Me.vorlagenfeldlist.PropBag = resources.GetString("vorlagenfeldlist.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" ' 'ColdIndexfeldList ' Me.ColdIndexfeldList.AllowColMove = True Me.ColdIndexfeldList.AllowColSelect = True Me.ColdIndexfeldList.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows Me.ColdIndexfeldList.AlternatingRows = False Me.ColdIndexfeldList.CaptionStyle = Style9 Me.ColdIndexfeldList.ColumnCaptionHeight = 17 Me.ColdIndexfeldList.ColumnFooterHeight = 17 Me.ColdIndexfeldList.EvenRowStyle = Style10 Me.ColdIndexfeldList.FetchRowStyles = False Me.ColdIndexfeldList.FooterStyle = Style11 Me.ColdIndexfeldList.HeadingStyle = Style12 Me.ColdIndexfeldList.HighLightRowStyle = Style13 Me.ColdIndexfeldList.Images.Add(CType(resources.GetObject("ColdIndexfeldList.Images"), System.Drawing.Image)) Me.ColdIndexfeldList.Location = New System.Drawing.Point(271, 37) Me.ColdIndexfeldList.Name = "ColdIndexfeldList" Me.ColdIndexfeldList.OddRowStyle = Style14 Me.ColdIndexfeldList.RecordSelectorStyle = Style15 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 = Style16 Me.ColdIndexfeldList.TabIndex = 7 Me.ColdIndexfeldList.Text = "C1TrueDBDropdown1" Me.ColdIndexfeldList.Visible = False Me.ColdIndexfeldList.PropBag = resources.GetString("ColdIndexfeldList.PropBag") ' 'Panel3 ' Me.Panel3.Controls.Add(Me.pnlVorlagenfeld) 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(1148, 42) Me.Panel3.TabIndex = 8 ' 'pnlVorlagenfeld ' Me.pnlVorlagenfeld.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.pnlVorlagenfeld.Location = New System.Drawing.Point(561, 28) Me.pnlVorlagenfeld.Name = "pnlVorlagenfeld" Me.pnlVorlagenfeld.Size = New System.Drawing.Size(142, 72) Me.pnlVorlagenfeld.TabIndex = 15 Me.pnlVorlagenfeld.Visible = False ' '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 ' '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.Dock = System.Windows.Forms.DockStyle.Fill 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, 38) 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.0R Me.vorlagenfeldbezeichnunglist.PrintInfo.PageSettings = CType(resources.GetObject("vorlagenfeldbezeichnunglist.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.vorlagenfeldbezeichnunglist.Size = New System.Drawing.Size(1148, 174) Me.vorlagenfeldbezeichnunglist.TabIndex = 4 Me.vorlagenfeldbezeichnunglist.Text = "VorlagenfeldList" Me.vorlagenfeldbezeichnunglist.PropBag = resources.GetString("vorlagenfeldbezeichnunglist.PropBag") ' 'Panel5 ' Me.Panel5.Controls.Add(Me.Button3) Me.Panel5.Controls.Add(Me.Label25) Me.Panel5.Dock = System.Windows.Forms.DockStyle.Top Me.Panel5.Location = New System.Drawing.Point(0, 0) Me.Panel5.Name = "Panel5" Me.Panel5.Size = New System.Drawing.Size(1148, 38) Me.Panel5.TabIndex = 0 ' 'Button3 ' Me.Button3.Image = CType(resources.GetObject("Button3.Image"), System.Drawing.Image) Me.Button3.Location = New System.Drawing.Point(4, 10) 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(28, 10) Me.Label25.Name = "Label25" Me.Label25.Size = New System.Drawing.Size(112, 23) Me.Label25.TabIndex = 5 Me.Label25.Text = "Feldbezeichnung " ' '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(1148, 732) 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" ' '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"), New System.Data.Common.DataColumnMapping("ess_field_class_id", "ess_field_class_id"), New System.Data.Common.DataColumnMapping("ess_feldname", "ess_feldname"), New System.Data.Common.DataColumnMapping("ess_img_top", "ess_img_top"), New System.Data.Common.DataColumnMapping("ess_img_left", "ess_img_left"), New System.Data.Common.DataColumnMapping("ess_img_width", "ess_img_width"), New System.Data.Common.DataColumnMapping("ess_img_height", "ess_img_height")})}) Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1 ' 'SqlDeleteCommand1 ' Me.SqlDeleteCommand1.CommandText = "dbo.pv_vorlagenfeld_delete_ess" 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.[Variant], 0, 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, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlagenfeldnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_dokumenttypnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "dokumenttypnr", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_dokumenttypnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumenttypnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_vorlagenfeldregelnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "vorlagenfeldregelnr", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_vorlagenfeldregelnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlagenfeldregelnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_feldname", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "feldname", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_feldname", System.Data.SqlDbType.VarChar, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "feldname", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_beginntextmarke", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "beginntextmarke", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_beginntextmarke", System.Data.SqlDbType.VarChar, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beginntextmarke", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_endetextmarke", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "endetextmarke", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_endetextmarke", System.Data.SqlDbType.VarChar, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "endetextmarke", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_einstiegsmakro", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "einstiegsmakro", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_einstiegsmakro", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "einstiegsmakro", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_ausstiegsmakro", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "ausstiegsmakro", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_ausstiegsmakro", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ausstiegsmakro", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_reihenfolge", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "reihenfolge", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_reihenfolge", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reihenfolge", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_cold_indexfeld", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "cold_indexfeld", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_cold_indexfeld", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "cold_indexfeld", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_eingabe_zwingend", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "eingabe_zwingend", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_eingabe_zwingend", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eingabe_zwingend", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_testdaten", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "testdaten", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_testdaten", System.Data.SqlDbType.VarChar, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "testdaten", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_mandantnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_aktiv", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_erstellt_am", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_mutiert_am", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_mutierer", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_ess_field_class_id", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "ess_field_class_id", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_ess_field_class_id", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ess_field_class_id", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_ess_img_top", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "ess_img_top", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_ess_img_top", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ess_img_top", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_ess_img_left", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "ess_img_left", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_ess_img_left", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ess_img_left", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_ess_img_width", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "ess_img_width", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_ess_img_width", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ess_img_width", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_ess_img_height", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "ess_img_height", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_ess_img_height", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ess_img_height", System.Data.DataRowVersion.Original, Nothing)}) ' 'SqlConnection1 ' Me.SqlConnection1.ConnectionString = "Data Source=shu00;Initial Catalog=EDOKA;Integrated Security=True" Me.SqlConnection1.FireInfoMessageEventOnUserErrors = False ' 'SqlInsertCommand1 ' Me.SqlInsertCommand1.CommandText = "dbo.pv_vorlagenfeld_insert_ess" 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.[Variant], 0, 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, 0, "vorlagenfeldnr"), New System.Data.SqlClient.SqlParameter("@dokumenttypnr", System.Data.SqlDbType.Int, 0, "dokumenttypnr"), New System.Data.SqlClient.SqlParameter("@vorlagenfeldregelnr", System.Data.SqlDbType.Int, 0, "vorlagenfeldregelnr"), New System.Data.SqlClient.SqlParameter("@feldname", System.Data.SqlDbType.VarChar, 0, "feldname"), New System.Data.SqlClient.SqlParameter("@beginntextmarke", System.Data.SqlDbType.VarChar, 0, "beginntextmarke"), New System.Data.SqlClient.SqlParameter("@endetextmarke", System.Data.SqlDbType.VarChar, 0, "endetextmarke"), New System.Data.SqlClient.SqlParameter("@einstiegsmakro", System.Data.SqlDbType.Bit, 0, "einstiegsmakro"), New System.Data.SqlClient.SqlParameter("@ausstiegsmakro", System.Data.SqlDbType.Bit, 0, "ausstiegsmakro"), New System.Data.SqlClient.SqlParameter("@reihenfolge", System.Data.SqlDbType.Int, 0, "reihenfolge"), New System.Data.SqlClient.SqlParameter("@cold_indexfeld", System.Data.SqlDbType.Int, 0, "cold_indexfeld"), New System.Data.SqlClient.SqlParameter("@eingabe_zwingend", System.Data.SqlDbType.Bit, 0, "eingabe_zwingend"), New System.Data.SqlClient.SqlParameter("@testdaten", System.Data.SqlDbType.VarChar, 0, "testdaten"), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 0, "mandantnr"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 0, "aktiv"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 0, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 0, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 0, "mutierer"), New System.Data.SqlClient.SqlParameter("@ess_field_class_id", System.Data.SqlDbType.Int, 0, "ess_field_class_id"), New System.Data.SqlClient.SqlParameter("@ess_feldname", System.Data.SqlDbType.VarChar, 0, "ess_feldname"), New System.Data.SqlClient.SqlParameter("@ess_img_top", System.Data.SqlDbType.Int, 0, "ess_img_top"), New System.Data.SqlClient.SqlParameter("@ess_img_left", System.Data.SqlDbType.Int, 0, "ess_img_left"), New System.Data.SqlClient.SqlParameter("@ess_img_width", System.Data.SqlDbType.Int, 0, "ess_img_width"), New System.Data.SqlClient.SqlParameter("@ess_img_height", System.Data.SqlDbType.Int, 0, "ess_img_height")}) ' 'SqlSelectCommand1 ' Me.SqlSelectCommand1.CommandText = "dbo.sp_vorlagenfeld_select_ess" 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.[Variant], 0, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing)}) ' 'SqlUpdateCommand1 ' Me.SqlUpdateCommand1.CommandText = "dbo.pv_vorlagenfeld_update_ess" 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.[Variant], 0, 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, 0, "vorlagenfeldnr"), New System.Data.SqlClient.SqlParameter("@dokumenttypnr", System.Data.SqlDbType.Int, 0, "dokumenttypnr"), New System.Data.SqlClient.SqlParameter("@vorlagenfeldregelnr", System.Data.SqlDbType.Int, 0, "vorlagenfeldregelnr"), New System.Data.SqlClient.SqlParameter("@feldname", System.Data.SqlDbType.VarChar, 0, "feldname"), New System.Data.SqlClient.SqlParameter("@beginntextmarke", System.Data.SqlDbType.VarChar, 0, "beginntextmarke"), New System.Data.SqlClient.SqlParameter("@endetextmarke", System.Data.SqlDbType.VarChar, 0, "endetextmarke"), New System.Data.SqlClient.SqlParameter("@einstiegsmakro", System.Data.SqlDbType.Bit, 0, "einstiegsmakro"), New System.Data.SqlClient.SqlParameter("@ausstiegsmakro", System.Data.SqlDbType.Bit, 0, "ausstiegsmakro"), New System.Data.SqlClient.SqlParameter("@reihenfolge", System.Data.SqlDbType.Int, 0, "reihenfolge"), New System.Data.SqlClient.SqlParameter("@cold_indexfeld", System.Data.SqlDbType.Int, 0, "cold_indexfeld"), New System.Data.SqlClient.SqlParameter("@eingabe_zwingend", System.Data.SqlDbType.Bit, 0, "eingabe_zwingend"), New System.Data.SqlClient.SqlParameter("@testdaten", System.Data.SqlDbType.VarChar, 0, "testdaten"), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 0, "mandantnr"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 0, "aktiv"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 0, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 0, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 0, "mutierer"), New System.Data.SqlClient.SqlParameter("@ess_field_class_id", System.Data.SqlDbType.Int, 0, "ess_field_class_id"), New System.Data.SqlClient.SqlParameter("@ess_feldname", System.Data.SqlDbType.VarChar, 0, "ess_feldname"), New System.Data.SqlClient.SqlParameter("@ess_img_top", System.Data.SqlDbType.Int, 0, "ess_img_top"), New System.Data.SqlClient.SqlParameter("@ess_img_left", System.Data.SqlDbType.Int, 0, "ess_img_left"), New System.Data.SqlClient.SqlParameter("@ess_img_width", System.Data.SqlDbType.Int, 0, "ess_img_width"), New System.Data.SqlClient.SqlParameter("@ess_img_height", System.Data.SqlDbType.Int, 0, "ess_img_height"), New System.Data.SqlClient.SqlParameter("@Original_vorlagenfeldnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlagenfeldnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_dokumenttypnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "dokumenttypnr", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_dokumenttypnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumenttypnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_vorlagenfeldregelnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "vorlagenfeldregelnr", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_vorlagenfeldregelnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlagenfeldregelnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_feldname", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "feldname", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_feldname", System.Data.SqlDbType.VarChar, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "feldname", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_beginntextmarke", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "beginntextmarke", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_beginntextmarke", System.Data.SqlDbType.VarChar, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beginntextmarke", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_endetextmarke", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "endetextmarke", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_endetextmarke", System.Data.SqlDbType.VarChar, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "endetextmarke", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_einstiegsmakro", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "einstiegsmakro", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_einstiegsmakro", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "einstiegsmakro", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_ausstiegsmakro", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "ausstiegsmakro", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_ausstiegsmakro", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ausstiegsmakro", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_reihenfolge", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "reihenfolge", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_reihenfolge", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reihenfolge", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_cold_indexfeld", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "cold_indexfeld", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_cold_indexfeld", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "cold_indexfeld", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_eingabe_zwingend", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "eingabe_zwingend", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_eingabe_zwingend", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eingabe_zwingend", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_testdaten", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "testdaten", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_testdaten", System.Data.SqlDbType.VarChar, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "testdaten", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_mandantnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_aktiv", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_erstellt_am", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_mutiert_am", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_mutierer", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_ess_field_class_id", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "ess_field_class_id", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_ess_field_class_id", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ess_field_class_id", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_ess_img_top", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "ess_img_top", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_ess_img_top", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ess_img_top", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_ess_img_left", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "ess_img_left", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_ess_img_left", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ess_img_left", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_ess_img_width", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "ess_img_width", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_ess_img_width", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ess_img_width", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_ess_img_height", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "ess_img_height", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_ess_img_height", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ess_img_height", 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", "pv_vorlagenfeldbezeichnung_select", 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"), New System.Data.Common.DataColumnMapping("TechBezeichnung", "TechBezeichnung")})}) Me.SqlDataAdapter3.UpdateCommand = Me.SQLUpdateCommand3 ' 'SqlDeleteCommand3 ' Me.SqlDeleteCommand3.CommandText = "dbo.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.[Variant], 0, 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, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlagenfeldbezeichnungnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_vorlagenfeld", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "vorlagenfeld", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_vorlagenfeld", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlagenfeld", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_sprache", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sprache", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_bezeichnung", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_erstellt_am", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_mutiert_am", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_mutierer", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_TechBezeichnung", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "TechBezeichnung", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_TechBezeichnung", System.Data.SqlDbType.VarChar, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "TechBezeichnung", System.Data.DataRowVersion.Original, Nothing)}) ' 'SQLInsertCommand3 ' Me.SQLInsertCommand3.CommandText = "dbo.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.[Variant], 0, 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, 0, "vorlagenfeldbezeichnungnr"), New System.Data.SqlClient.SqlParameter("@vorlagenfeld", System.Data.SqlDbType.Int, 0, "vorlagenfeld"), New System.Data.SqlClient.SqlParameter("@sprache", System.Data.SqlDbType.Int, 0, "sprache"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 0, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 0, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 0, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 0, "mutierer"), New System.Data.SqlClient.SqlParameter("@TechBezeichnung", System.Data.SqlDbType.VarChar, 0, "TechBezeichnung")}) ' 'SqlSelectCommand3 ' Me.SqlSelectCommand3.CommandText = "dbo.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.[Variant], 0, 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 = "dbo.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.[Variant], 0, 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, 0, "vorlagenfeldbezeichnungnr"), New System.Data.SqlClient.SqlParameter("@vorlagenfeld", System.Data.SqlDbType.Int, 0, "vorlagenfeld"), New System.Data.SqlClient.SqlParameter("@sprache", System.Data.SqlDbType.Int, 0, "sprache"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 0, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 0, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 0, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 0, "mutierer"), New System.Data.SqlClient.SqlParameter("@TechBezeichnung", System.Data.SqlDbType.VarChar, 0, "TechBezeichnung"), New System.Data.SqlClient.SqlParameter("@Original_vorlagenfeldbezeichnungnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlagenfeldbezeichnungnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_vorlagenfeld", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "vorlagenfeld", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_vorlagenfeld", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlagenfeld", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_sprache", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sprache", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_bezeichnung", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_erstellt_am", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_mutiert_am", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_mutierer", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_TechBezeichnung", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "TechBezeichnung", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_TechBezeichnung", System.Data.SqlDbType.VarChar, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "TechBezeichnung", 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(1128, 2) Me.BtnHelp.Name = "BtnHelp" Me.BtnHelp.Size = New System.Drawing.Size(30, 23) Me.BtnHelp.TabIndex = 67 ' 'SqlInsertCommand ' Me.SqlInsertCommand.CommandText = "dbo.pv_vorlagenfeldbezeichnung_insert" Me.SqlInsertCommand.CommandType = System.Data.CommandType.StoredProcedure Me.SqlInsertCommand.Connection = Me.SqlConnection1 Me.SqlInsertCommand.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"), New System.Data.SqlClient.SqlParameter("@TechBezeichnung", System.Data.SqlDbType.VarChar, 255, "TechBezeichnung")}) ' 'SqlUpdateCommand ' Me.SqlUpdateCommand.CommandText = "dbo.pv_vorlagenfeldbezeichnung_update" Me.SqlUpdateCommand.CommandType = System.Data.CommandType.StoredProcedure Me.SqlUpdateCommand.Connection = Me.SqlConnection1 Me.SqlUpdateCommand.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"), New System.Data.SqlClient.SqlParameter("@TechBezeichnung", System.Data.SqlDbType.VarChar, 255, "TechBezeichnung"), 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("@IsNull_vorlagenfeld", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "vorlagenfeld", System.Data.DataRowVersion.Current, True, 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), 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("@IsNull_bezeichnung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Current, True, 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("@IsNull_erstellt_am", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Current, True, 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("@IsNull_mutiert_am", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Current, True, 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("@IsNull_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Current, True, 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("@IsNull_TechBezeichnung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "TechBezeichnung", System.Data.DataRowVersion.Current, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_TechBezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "TechBezeichnung", System.Data.DataRowVersion.Original, Nothing)}) ' 'frmDomainDokumenttypDetail ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(1156, 786) Me.ControlBox = False Me.Controls.Add(Me.BtnHelp) Me.Controls.Add(Me.TabControl1) Me.Controls.Add(Me.ToolBar1) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.SizableToolWindow 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.Panel4.ResumeLayout(False) Me.Panel2.ResumeLayout(False) Me.TabStatusreihenfolge.ResumeLayout(False) Me.GroupBox8.ResumeLayout(False) CType(Me.InfomeldungList, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox7.ResumeLayout(False) CType(Me.indexmutationliste, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Aufhebungliste, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox6.ResumeLayout(False) CType(Me.Statuslist, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DokumentstatusRolle_Liste, System.ComponentModel.ISupportInitialize).EndInit() Me.TabDokumentfelder.ResumeLayout(False) Me.SplitContainer1.Panel1.ResumeLayout(False) Me.SplitContainer1.Panel2.ResumeLayout(False) Me.SplitContainer1.ResumeLayout(False) CType(Me.ESS_Field_Class_List, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.vorlagenfeldlist, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ColdIndexfeldList, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel3.ResumeLayout(False) CType(Me.vorlagenfeldbezeichnunglist, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel5.ResumeLayout(False) Me.TbSerienbrief.ResumeLayout(False) 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 mcbfachverantwortung 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 Dim tblfielclasslist As New DataTable Get_ESS_Field_ID_LIst(tblfielclasslist) Me.ESS_Field_Class_List.DataSource = tblfielclasslist Me.ESS_Field_Class_List.DataMember = tblfielclasslist.TableName Me.ESS_Field_Class_List.DisplayMember = "Name" Me.ESS_Field_Class_List.ValueMember = "ID" 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.cbAufbewahrungphysisch.Items.Add(999) Me.cbAufbewahrungelektronisch.Items.Add(999) 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) mcbfachverantwortung = New MultiComboBox(cbFachverantwortung) Me.mcbfachverantwortung.DisplayColumnName = "Name" Me.mcbfachverantwortung.ValueColumnName = "mitarbeiternr" Me.mcbfachverantwortung.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)) If IsNumeric(Me.mcbfachverantwortung.SelectedValue) Then doktyp.sFachverantwortung = New SqlInt32(CType(Me.mcbfachverantwortung.SelectedValue, Int32)) Else doktyp.sFachverantwortung = New SqlString(CType(Me.mcbfachverantwortung.Text, String)) End If 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 Try If IsNumeric(doktyp.sFachverantwortung.Value) Then ii = doktyp.sFachverantwortung.Value Me.mcbfachverantwortung.SelectedValue = ii Else Me.mcbfachverantwortung.Text = doktyp.sFachverantwortung.Value End If Catch End Try 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 Me.vorlagenfeldlist.Columns("ess_field_class_id").DropDown = Me.ESS_Field_Class_List Me.vorlagenfeldlist.Splits(0).DisplayColumns("ess_field_class_id").DropDownList = True Me.ESS_Field_Class_List.DisplayColumns(0).Width = 20 Me.ESS_Field_Class_List.DisplayColumns(1).Width = Me.vorlagenfeldlist.Splits(0).DisplayColumns("ess_field_class_id").Width - 20 'Me.ESS_Field_Class_List.DisplayColumns("ID").Visible = False 'Me.ESS_Field_Class_List.ValueTranslate = 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() Try 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 Catch ex As Exception 'MsgBox(ex.Message) End Try 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 If MsgBox("Alle Standardfelder generieren?", vbYesNo + vbQuestion) = MsgBoxResult.No Then Exit Sub 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 celdokimport.CheckedChanged, 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 cDokumentwirderstellt.Checked = True Then Me.cbAufbewahrungphysisch.Enabled = True Else Me.cbAufbewahrungphysisch.Enabled = False 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) Me.celdokimport_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 Private Sub celdokimport_CheckedChanged(sender As Object, e As EventArgs) Handles celdokimport.CheckedChanged If celdokimport.Checked = True Then Me.cbAufbewahrungphysisch.Enabled = True End Sub Private Function Get_ESS_Field_ID_LIst(ByRef table As DataTable) As Integer Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.sp_get_ess_field_class_list" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection Try sdaAdapter.Fill(table) Catch ex As Exception MsgBox(ex.Message) ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("sp_get_ess_field_class_list::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function End Class