Imports System.Data Imports System.Data.SqlTypes Imports System.Data.SqlClient Imports System.ComponentModel Imports System.Drawing Imports System.Drawing.Color Public Class frmProfil 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 MainMenu1 As System.Windows.Forms.MainMenu Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar Friend WithEvents ColorDialog1 As System.Windows.Forms.ColorDialog Friend WithEvents btnClose As System.Windows.Forms.ToolBarButton Friend WithEvents btnSave As System.Windows.Forms.ToolBarButton Friend WithEvents ImageList1 As System.Windows.Forms.ImageList Friend WithEvents btnOpen As System.Windows.Forms.ToolBarButton Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents MnuListe As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem11 As System.Windows.Forms.MenuItem Friend WithEvents Panel2 As System.Windows.Forms.Panel Friend WithEvents Button4 As System.Windows.Forms.Button Friend WithEvents MenuItem12 As System.Windows.Forms.MenuItem Friend WithEvents Label25 As System.Windows.Forms.Label Friend WithEvents ComboBox10 As System.Windows.Forms.ComboBox Friend WithEvents Label24 As System.Windows.Forms.Label Friend WithEvents ComboBox9 As System.Windows.Forms.ComboBox Friend WithEvents Profile As System.Windows.Forms.TreeView Friend WithEvents CTMenuErsteller As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem15 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem16 As System.Windows.Forms.MenuItem Friend WithEvents CTMenuVerantwortlicher As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem20 As System.Windows.Forms.MenuItem Friend WithEvents CTMenuMutierer As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem24 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem25 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem26 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem27 As System.Windows.Forms.MenuItem 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 ctmenu1 As System.Windows.Forms.ContextMenu Friend WithEvents Splitter1 As System.Windows.Forms.Splitter Friend WithEvents ImageList2 As System.Windows.Forms.ImageList Friend WithEvents MnuDel As System.Windows.Forms.MenuItem Friend WithEvents ImageList3 As System.Windows.Forms.ImageList Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu Friend WithEvents MnuSelectDokumentart As System.Windows.Forms.MenuItem Friend WithEvents MnuDeleteDokumentart As System.Windows.Forms.MenuItem Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem13 As System.Windows.Forms.MenuItem Friend WithEvents SqlConnection2 As System.Data.SqlClient.SqlConnection 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 MenuItem14 As System.Windows.Forms.MenuItem Friend WithEvents ContextMenu2 As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem17 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem18 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem19 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem21 As System.Windows.Forms.MenuItem Friend WithEvents TabPage1 As System.Windows.Forms.TabPage Friend WithEvents pnlhostdiv As System.Windows.Forms.Panel Friend WithEvents TextBox5 As System.Windows.Forms.TextBox Friend WithEvents Button10 As System.Windows.Forms.Button Friend WithEvents TextBox4 As System.Windows.Forms.TextBox Friend WithEvents Button9 As System.Windows.Forms.Button Friend WithEvents Label20 As System.Windows.Forms.Label Friend WithEvents hostinklmavip As System.Windows.Forms.CheckBox Friend WithEvents HostDatum1 As System.Windows.Forms.TextBox Friend WithEvents Label29 As System.Windows.Forms.Label Friend WithEvents DateTimePicker7 As System.Windows.Forms.DateTimePicker Friend WithEvents DateTimePicker9 As System.Windows.Forms.DateTimePicker Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox Friend WithEvents lblhostdatum31 As System.Windows.Forms.Label Friend WithEvents ComboBox6 As System.Windows.Forms.ComboBox Friend WithEvents Label27 As System.Windows.Forms.Label Friend WithEvents lblhostdatum3 As System.Windows.Forms.Label Friend WithEvents HostDatum3 As System.Windows.Forms.TextBox Friend WithEvents HostTag3 As System.Windows.Forms.ComboBox Friend WithEvents HostDatum2 As System.Windows.Forms.TextBox Friend WithEvents DateTimePicker8 As System.Windows.Forms.DateTimePicker Friend WithEvents lblhostdatum2 As System.Windows.Forms.Label Friend WithEvents Label32 As System.Windows.Forms.Label Friend WithEvents Label33 As System.Windows.Forms.Label Friend WithEvents Label34 As System.Windows.Forms.Label Friend WithEvents Label35 As System.Windows.Forms.Label Friend WithEvents CheckBox3 As System.Windows.Forms.CheckBox Friend WithEvents CheckBox4 As System.Windows.Forms.CheckBox Friend WithEvents CheckBox5 As System.Windows.Forms.CheckBox Friend WithEvents TextBox7 As System.Windows.Forms.TextBox Friend WithEvents TextBox8 As System.Windows.Forms.TextBox Friend WithEvents TextBox9 As System.Windows.Forms.TextBox Friend WithEvents Label36 As System.Windows.Forms.Label Friend WithEvents Label37 As System.Windows.Forms.Label Friend WithEvents Label38 As System.Windows.Forms.Label Friend WithEvents DateTimePicker10 As System.Windows.Forms.DateTimePicker Friend WithEvents DateTimePicker11 As System.Windows.Forms.DateTimePicker Friend WithEvents DateTimePicker12 As System.Windows.Forms.DateTimePicker Friend WithEvents Button8 As System.Windows.Forms.Button Friend WithEvents Button7 As System.Windows.Forms.Button Friend WithEvents Button6 As System.Windows.Forms.Button Friend WithEvents PnlDokumentDaten As System.Windows.Forms.Panel Friend WithEvents cinklalt As System.Windows.Forms.CheckBox Friend WithEvents cbmavip As System.Windows.Forms.CheckBox Friend WithEvents Label8 As System.Windows.Forms.Label Friend WithEvents Label7 As System.Windows.Forms.Label Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents cbd6 As System.Windows.Forms.CheckBox Friend WithEvents cbd4 As System.Windows.Forms.CheckBox Friend WithEvents cbd2 As System.Windows.Forms.CheckBox Friend WithEvents Label18 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 Button17 As System.Windows.Forms.Button Friend WithEvents Button16 As System.Windows.Forms.Button Friend WithEvents Button15 As System.Windows.Forms.Button Friend WithEvents Button14 As System.Windows.Forms.Button Friend WithEvents Button13 As System.Windows.Forms.Button Friend WithEvents Button12 As System.Windows.Forms.Button Friend WithEvents cbrollend6 As System.Windows.Forms.CheckBox Friend WithEvents cbrollend5 As System.Windows.Forms.CheckBox Friend WithEvents cbrollend4 As System.Windows.Forms.CheckBox Friend WithEvents cbrollend3 As System.Windows.Forms.CheckBox Friend WithEvents Label39 As System.Windows.Forms.Label Friend WithEvents Label40 As System.Windows.Forms.Label Friend WithEvents Label12 As System.Windows.Forms.Label Friend WithEvents Label23 As System.Windows.Forms.Label Friend WithEvents cbrollend2 As System.Windows.Forms.CheckBox Friend WithEvents cbrollend1 As System.Windows.Forms.CheckBox Friend WithEvents Label11 As System.Windows.Forms.Label Friend WithEvents Label10 As System.Windows.Forms.Label Friend WithEvents txtdatum1 As System.Windows.Forms.TextBox Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker Friend WithEvents txtdatum2 As System.Windows.Forms.TextBox Friend WithEvents DateTimePicker2 As System.Windows.Forms.DateTimePicker Friend WithEvents txtdatum3 As System.Windows.Forms.TextBox Friend WithEvents txtdatum4 As System.Windows.Forms.TextBox Friend WithEvents Label17 As System.Windows.Forms.Label Friend WithEvents txtdatum5 As System.Windows.Forms.TextBox Friend WithEvents txtdatum6 As System.Windows.Forms.TextBox Friend WithEvents DateTimePicker6 As System.Windows.Forms.DateTimePicker Friend WithEvents DateTimePicker3 As System.Windows.Forms.DateTimePicker Friend WithEvents DateTimePicker4 As System.Windows.Forms.DateTimePicker Friend WithEvents DateTimePicker5 As System.Windows.Forms.DateTimePicker Friend WithEvents datumtext5 As System.Windows.Forms.Label Friend WithEvents GroupBox10 As System.Windows.Forms.GroupBox Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Button3 As System.Windows.Forms.Button Friend WithEvents PnlPartner As System.Windows.Forms.Panel Friend WithEvents PartnerList As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents btnPartnersuche As System.Windows.Forms.Button Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents TextBox3 As System.Windows.Forms.TextBox Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents TextBox2 As System.Windows.Forms.TextBox Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents Panel4 As System.Windows.Forms.Panel Friend WithEvents Label19 As System.Windows.Forms.Label Friend WithEvents LBSelectHost As System.Windows.Forms.ListBox Friend WithEvents Button11 As System.Windows.Forms.Button Friend WithEvents Label22 As System.Windows.Forms.Label Friend WithEvents lbselect As System.Windows.Forms.ListBox Friend WithEvents LBSort As System.Windows.Forms.ListBox Friend WithEvents Label21 As System.Windows.Forms.Label Friend WithEvents lbSortfields As System.Windows.Forms.ListBox Friend WithEvents PnlDokumentart As System.Windows.Forms.Panel Friend WithEvents TVDokart As System.Windows.Forms.TreeView Friend WithEvents Panel3 As System.Windows.Forms.Panel Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents TreeView1 As System.Windows.Forms.TreeView Friend WithEvents TVHostDok As System.Windows.Forms.TreeView Friend WithEvents TabPage4 As System.Windows.Forms.TabPage Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox Friend WithEvents cbteam As System.Windows.Forms.ComboBox Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents Button5 As System.Windows.Forms.Button Friend WithEvents colbtn6 As System.Windows.Forms.Button Friend WithEvents colbtn5 As System.Windows.Forms.Button Friend WithEvents colbtn4 As System.Windows.Forms.Button Friend WithEvents colbtn3 As System.Windows.Forms.Button Friend WithEvents colbtn2 As System.Windows.Forms.Button Friend WithEvents colbtn1 As System.Windows.Forms.Button Friend WithEvents GroupBox9 As System.Windows.Forms.GroupBox Friend WithEvents cb5 As System.Windows.Forms.CheckBox Friend WithEvents cb4 As System.Windows.Forms.CheckBox Friend WithEvents cb2 As System.Windows.Forms.CheckBox Friend WithEvents cb1 As System.Windows.Forms.CheckBox Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox Friend WithEvents Label31 As System.Windows.Forms.Label Friend WithEvents cbUnterschriftrechts As System.Windows.Forms.ComboBox Friend WithEvents Label30 As System.Windows.Forms.Label Friend WithEvents cbUnterschriftlinks As System.Windows.Forms.ComboBox Friend WithEvents TabControl1 As System.Windows.Forms.TabControl Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents Label9 As System.Windows.Forms.Label Friend WithEvents cbrollend8 As System.Windows.Forms.CheckBox Friend WithEvents cbrollend9 As System.Windows.Forms.CheckBox Friend WithEvents DatumHostText1 As System.Windows.Forms.Label Friend WithEvents DatumHostText2 As System.Windows.Forms.Label Friend WithEvents Button18 As System.Windows.Forms.Button Friend WithEvents Button19 As System.Windows.Forms.Button Friend WithEvents MenuItem22 As System.Windows.Forms.MenuItem Friend WithEvents TextBox6 As System.Windows.Forms.TextBox Friend WithEvents Button20 As System.Windows.Forms.Button Friend WithEvents btnini As System.Windows.Forms.ToolBarButton Friend WithEvents GroupBox12 As System.Windows.Forms.GroupBox Friend WithEvents cb3 As System.Windows.Forms.CheckBox Friend WithEvents cb3_1 As System.Windows.Forms.CheckBox Friend WithEvents TabControl2 As System.Windows.Forms.TabControl Friend WithEvents TabPage2 As System.Windows.Forms.TabPage Friend WithEvents TabPage3 As System.Windows.Forms.TabPage Friend WithEvents TabPage5 As System.Windows.Forms.TabPage Friend WithEvents datumtext1 As System.Windows.Forms.Label Friend WithEvents datumtext2 As System.Windows.Forms.Label Friend WithEvents datumtext3 As System.Windows.Forms.Label Friend WithEvents datumtext4 As System.Windows.Forms.Label Friend WithEvents datumtext6 As System.Windows.Forms.Label Friend WithEvents Label26 As System.Windows.Forms.Label Friend WithEvents Button21 As System.Windows.Forms.Button Friend WithEvents DateTimePicker13 As System.Windows.Forms.DateTimePicker Friend WithEvents Button22 As System.Windows.Forms.Button Friend WithEvents Label28 As System.Windows.Forms.Label Friend WithEvents Label41 As System.Windows.Forms.Label Friend WithEvents Button23 As System.Windows.Forms.Button Friend WithEvents Button24 As System.Windows.Forms.Button Friend WithEvents Label42 As System.Windows.Forms.Label Friend WithEvents Label43 As System.Windows.Forms.Label Friend WithEvents Label44 As System.Windows.Forms.Label Friend WithEvents DateTimePicker14 As System.Windows.Forms.DateTimePicker Friend WithEvents DateTimePicker15 As System.Windows.Forms.DateTimePicker Friend WithEvents DateTimePicker16 As System.Windows.Forms.DateTimePicker Friend WithEvents Label49 As System.Windows.Forms.Label Friend WithEvents Button25 As System.Windows.Forms.Button Friend WithEvents DateTimePicker17 As System.Windows.Forms.DateTimePicker Friend WithEvents Button26 As System.Windows.Forms.Button Friend WithEvents Label50 As System.Windows.Forms.Label Friend WithEvents Label51 As System.Windows.Forms.Label Friend WithEvents Button27 As System.Windows.Forms.Button Friend WithEvents Button28 As System.Windows.Forms.Button Friend WithEvents Label52 As System.Windows.Forms.Label Friend WithEvents Label53 As System.Windows.Forms.Label Friend WithEvents Label54 As System.Windows.Forms.Label Friend WithEvents DateTimePicker18 As System.Windows.Forms.DateTimePicker Friend WithEvents DateTimePicker19 As System.Windows.Forms.DateTimePicker Friend WithEvents DateTimePicker20 As System.Windows.Forms.DateTimePicker Friend WithEvents Groupbox3 As System.Windows.Forms.GroupBox Friend WithEvents txtdatum2zv As System.Windows.Forms.TextBox Friend WithEvents txtdatum1zv As System.Windows.Forms.TextBox Friend WithEvents textdatum1zv As System.Windows.Forms.Label Friend WithEvents textdatum2zv As System.Windows.Forms.Label Friend WithEvents textdatum3zv As System.Windows.Forms.Label Friend WithEvents textdatum4zv As System.Windows.Forms.Label Friend WithEvents txtdatum3uvm As System.Windows.Forms.TextBox Friend WithEvents txtdatum4uvm As System.Windows.Forms.TextBox Friend WithEvents txtdatum2uvm As System.Windows.Forms.TextBox Friend WithEvents txtdatum1uvm As System.Windows.Forms.TextBox Friend WithEvents textdatum1uvm As System.Windows.Forms.Label Friend WithEvents textdatum2uvm As System.Windows.Forms.Label Friend WithEvents textdatum3uvm As System.Windows.Forms.Label Friend WithEvents textdatum4uvm As System.Windows.Forms.Label Friend WithEvents txtdatum3zv As System.Windows.Forms.TextBox Friend WithEvents txtdatum4zv As System.Windows.Forms.TextBox Friend WithEvents cbuvmrollend4 As System.Windows.Forms.CheckBox Friend WithEvents cbuvmrollend2 As System.Windows.Forms.CheckBox Friend WithEvents cbuvmrollend3 As System.Windows.Forms.CheckBox Friend WithEvents cbuvmrollend1 As System.Windows.Forms.CheckBox Friend WithEvents Label45 As System.Windows.Forms.Label Friend WithEvents txtuvmauftragnr As System.Windows.Forms.TextBox Friend WithEvents Button29 As System.Windows.Forms.Button Friend WithEvents pnluvm As System.Windows.Forms.Panel Friend WithEvents pnlzv As System.Windows.Forms.Panel Friend WithEvents btnzvzahlungsart As System.Windows.Forms.Button Friend WithEvents Label62 As System.Windows.Forms.Label Friend WithEvents txtzvzahlungsart As System.Windows.Forms.TextBox Friend WithEvents btnzvverarbeitungsart As System.Windows.Forms.Button Friend WithEvents Label61 As System.Windows.Forms.Label Friend WithEvents txtzvverarbeitungsart As System.Windows.Forms.TextBox Friend WithEvents btnzvswift As System.Windows.Forms.Button Friend WithEvents Label60 As System.Windows.Forms.Label Friend WithEvents txtzvswift As System.Windows.Forms.TextBox Friend WithEvents btnzvreferenz As System.Windows.Forms.Button Friend WithEvents Label59 As System.Windows.Forms.Label Friend WithEvents txtzvreferenznr As System.Windows.Forms.TextBox Friend WithEvents btnzvposten As System.Windows.Forms.Button Friend WithEvents Label58 As System.Windows.Forms.Label Friend WithEvents txtzvpostennr As System.Windows.Forms.TextBox Friend WithEvents btnzvpcnr As System.Windows.Forms.Button Friend WithEvents Label57 As System.Windows.Forms.Label Friend WithEvents txtzvpcnr As System.Windows.Forms.TextBox Friend WithEvents btnzvbeguenstiger As System.Windows.Forms.Button Friend WithEvents Label56 As System.Windows.Forms.Label Friend WithEvents txtzvbeguenstigter As System.Windows.Forms.TextBox Friend WithEvents btnzviso As System.Windows.Forms.Button Friend WithEvents Label55 As System.Windows.Forms.Label Friend WithEvents txtzviso As System.Windows.Forms.TextBox Friend WithEvents btnzvclearing As System.Windows.Forms.Button Friend WithEvents Label48 As System.Windows.Forms.Label Friend WithEvents txtzvclearingnr As System.Windows.Forms.TextBox Friend WithEvents btnzvbetrag As System.Windows.Forms.Button Friend WithEvents Label47 As System.Windows.Forms.Label Friend WithEvents txtzvbetrag As System.Windows.Forms.TextBox Friend WithEvents btnzvauftraggeber As System.Windows.Forms.Button Friend WithEvents Label46 As System.Windows.Forms.Label Friend WithEvents txtzvauftraggeber As System.Windows.Forms.TextBox Friend WithEvents btnzvauftragsnr As System.Windows.Forms.Button Friend WithEvents Label63 As System.Windows.Forms.Label Friend WithEvents txtzvauftragsnr As System.Windows.Forms.TextBox Friend WithEvents cbzvrollend1 As System.Windows.Forms.CheckBox Friend WithEvents cbzvrollend4 As System.Windows.Forms.CheckBox Friend WithEvents cbzvrollend2 As System.Windows.Forms.CheckBox Friend WithEvents cbzvrollend3 As System.Windows.Forms.CheckBox Friend WithEvents GroupBox13 As System.Windows.Forms.GroupBox Friend WithEvents GroupBox14 As System.Windows.Forms.GroupBox Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox Friend WithEvents Label64 As System.Windows.Forms.Label Friend WithEvents Label65 As System.Windows.Forms.Label Friend WithEvents Label66 As System.Windows.Forms.Label Friend WithEvents BtnHelp As System.Windows.Forms.Button Friend WithEvents TreeView2 As System.Windows.Forms.TreeView Friend WithEvents cinklaltversant 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(frmProfil)) Dim TreeNode1 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Daten") Dim TreeNode2 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Dokumentart") Dim TreeNode3 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Dokumentstatus") Dim TreeNode4 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Partner") Dim TreeNode5 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Dokument", 0, 0, New System.Windows.Forms.TreeNode() {TreeNode1, TreeNode2, TreeNode3, TreeNode4}) Dim TreeNode6 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Kostenstelle") Dim TreeNode7 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Marktbereich") Dim TreeNode8 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Mitarbeiter") Dim TreeNode9 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Niederlassung") Dim TreeNode10 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Team") Dim TreeNode11 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Ersteller", 8, 8, New System.Windows.Forms.TreeNode() {TreeNode6, TreeNode7, TreeNode8, TreeNode9, TreeNode10}) Dim TreeNode12 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Kostenstelle") Dim TreeNode13 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Marktbereich") Dim TreeNode14 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Mitarbeiter") Dim TreeNode15 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Niederlassung") Dim TreeNode16 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Team") Dim TreeNode17 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Mutierer", 9, 9, New System.Windows.Forms.TreeNode() {TreeNode12, TreeNode13, TreeNode14, TreeNode15, TreeNode16}) Dim TreeNode18 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Kostenstelle") Dim TreeNode19 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Marktbereich") Dim TreeNode20 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Mitarbeiter") Dim TreeNode21 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Niederlassung") Dim TreeNode22 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Team") Dim TreeNode23 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Verantwortlich", 7, 7, New System.Windows.Forms.TreeNode() {TreeNode18, TreeNode19, TreeNode20, TreeNode21, TreeNode22}) Me.MainMenu1 = New System.Windows.Forms.MainMenu(Me.components) Me.MenuItem1 = New System.Windows.Forms.MenuItem() Me.MenuItem5 = New System.Windows.Forms.MenuItem() Me.ToolBar1 = New System.Windows.Forms.ToolBar() Me.btnClose = New System.Windows.Forms.ToolBarButton() Me.btnOpen = New System.Windows.Forms.ToolBarButton() Me.btnSave = New System.Windows.Forms.ToolBarButton() Me.btnini = New System.Windows.Forms.ToolBarButton() Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) Me.ColorDialog1 = New System.Windows.Forms.ColorDialog() Me.Panel1 = New System.Windows.Forms.Panel() Me.MnuListe = New System.Windows.Forms.ContextMenu() Me.MenuItem12 = New System.Windows.Forms.MenuItem() Me.MenuItem6 = New System.Windows.Forms.MenuItem() Me.MenuItem7 = New System.Windows.Forms.MenuItem() Me.MenuItem9 = New System.Windows.Forms.MenuItem() Me.MenuItem11 = New System.Windows.Forms.MenuItem() Me.MenuItem13 = New System.Windows.Forms.MenuItem() Me.MenuItem8 = New System.Windows.Forms.MenuItem() Me.MenuItem10 = New System.Windows.Forms.MenuItem() Me.Panel2 = New System.Windows.Forms.Panel() Me.Profile = New System.Windows.Forms.TreeView() Me.Button4 = New System.Windows.Forms.Button() Me.Label25 = New System.Windows.Forms.Label() Me.ComboBox10 = New System.Windows.Forms.ComboBox() Me.Label24 = New System.Windows.Forms.Label() Me.ComboBox9 = New System.Windows.Forms.ComboBox() Me.ctmenu1 = New System.Windows.Forms.ContextMenu() Me.MnuDel = New System.Windows.Forms.MenuItem() Me.MenuItem14 = New System.Windows.Forms.MenuItem() Me.CTMenuErsteller = New System.Windows.Forms.ContextMenu() Me.MenuItem15 = New System.Windows.Forms.MenuItem() Me.MenuItem16 = New System.Windows.Forms.MenuItem() Me.CTMenuVerantwortlicher = New System.Windows.Forms.ContextMenu() Me.MenuItem20 = New System.Windows.Forms.MenuItem() Me.CTMenuMutierer = New System.Windows.Forms.ContextMenu() Me.MenuItem24 = New System.Windows.Forms.MenuItem() Me.MenuItem25 = New System.Windows.Forms.MenuItem() Me.MenuItem26 = New System.Windows.Forms.MenuItem() Me.MenuItem27 = New System.Windows.Forms.MenuItem() 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.SqlConnection2 = New System.Data.SqlClient.SqlConnection() Me.DataSet1 = New System.Data.DataSet() Me.Splitter1 = New System.Windows.Forms.Splitter() Me.ContextMenu2 = New System.Windows.Forms.ContextMenu() Me.MenuItem17 = New System.Windows.Forms.MenuItem() Me.MenuItem18 = New System.Windows.Forms.MenuItem() Me.MenuItem21 = New System.Windows.Forms.MenuItem() Me.MenuItem22 = New System.Windows.Forms.MenuItem() Me.MenuItem19 = New System.Windows.Forms.MenuItem() Me.ContextMenu1 = New System.Windows.Forms.ContextMenu() Me.MnuSelectDokumentart = New System.Windows.Forms.MenuItem() Me.MnuDeleteDokumentart = New System.Windows.Forms.MenuItem() Me.MenuItem2 = New System.Windows.Forms.MenuItem() Me.MenuItem3 = New System.Windows.Forms.MenuItem() Me.MenuItem4 = New System.Windows.Forms.MenuItem() Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components) Me.ImageList3 = New System.Windows.Forms.ImageList(Me.components) Me.TabPage1 = New System.Windows.Forms.TabPage() Me.TreeView2 = New System.Windows.Forms.TreeView() Me.PnlDokumentDaten = New System.Windows.Forms.Panel() Me.cinklaltversant = New System.Windows.Forms.CheckBox() Me.TabControl2 = New System.Windows.Forms.TabControl() Me.TabPage2 = New System.Windows.Forms.TabPage() Me.Label40 = New System.Windows.Forms.Label() Me.txtdatum3 = New System.Windows.Forms.TextBox() Me.Label17 = New System.Windows.Forms.Label() Me.txtdatum4 = New System.Windows.Forms.TextBox() Me.txtdatum6 = New System.Windows.Forms.TextBox() Me.txtdatum2 = New System.Windows.Forms.TextBox() Me.Button16 = New System.Windows.Forms.Button() Me.cbrollend1 = New System.Windows.Forms.CheckBox() Me.Label15 = New System.Windows.Forms.Label() Me.Button17 = New System.Windows.Forms.Button() Me.Button15 = New System.Windows.Forms.Button() Me.DateTimePicker3 = New System.Windows.Forms.DateTimePicker() Me.Button13 = New System.Windows.Forms.Button() Me.Label23 = New System.Windows.Forms.Label() Me.Label12 = New System.Windows.Forms.Label() Me.Button14 = New System.Windows.Forms.Button() Me.Button12 = New System.Windows.Forms.Button() Me.cbrollend5 = New System.Windows.Forms.CheckBox() Me.cbrollend4 = New System.Windows.Forms.CheckBox() Me.cbrollend2 = New System.Windows.Forms.CheckBox() Me.datumtext5 = New System.Windows.Forms.Label() Me.Label39 = New System.Windows.Forms.Label() Me.Label13 = New System.Windows.Forms.Label() Me.txtdatum1 = New System.Windows.Forms.TextBox() Me.cbrollend6 = New System.Windows.Forms.CheckBox() Me.Label11 = New System.Windows.Forms.Label() Me.cbrollend3 = New System.Windows.Forms.CheckBox() Me.Label10 = New System.Windows.Forms.Label() Me.txtdatum5 = New System.Windows.Forms.TextBox() Me.datumtext1 = New System.Windows.Forms.Label() Me.datumtext2 = New System.Windows.Forms.Label() Me.datumtext3 = New System.Windows.Forms.Label() Me.datumtext4 = New System.Windows.Forms.Label() Me.datumtext6 = New System.Windows.Forms.Label() Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker() Me.DateTimePicker4 = New System.Windows.Forms.DateTimePicker() Me.DateTimePicker5 = New System.Windows.Forms.DateTimePicker() Me.DateTimePicker6 = New System.Windows.Forms.DateTimePicker() Me.TabPage3 = New System.Windows.Forms.TabPage() Me.txtdatum3zv = New System.Windows.Forms.TextBox() Me.txtdatum4zv = New System.Windows.Forms.TextBox() Me.txtdatum2zv = New System.Windows.Forms.TextBox() Me.cbzvrollend1 = New System.Windows.Forms.CheckBox() Me.Label26 = New System.Windows.Forms.Label() Me.Button21 = New System.Windows.Forms.Button() Me.DateTimePicker13 = New System.Windows.Forms.DateTimePicker() Me.Button22 = New System.Windows.Forms.Button() Me.Label28 = New System.Windows.Forms.Label() Me.Label41 = New System.Windows.Forms.Label() Me.Button23 = New System.Windows.Forms.Button() Me.Button24 = New System.Windows.Forms.Button() Me.cbzvrollend4 = New System.Windows.Forms.CheckBox() Me.cbzvrollend2 = New System.Windows.Forms.CheckBox() Me.Label42 = New System.Windows.Forms.Label() Me.txtdatum1zv = New System.Windows.Forms.TextBox() Me.Label43 = New System.Windows.Forms.Label() Me.cbzvrollend3 = New System.Windows.Forms.CheckBox() Me.Label44 = New System.Windows.Forms.Label() Me.textdatum1zv = New System.Windows.Forms.Label() Me.textdatum2zv = New System.Windows.Forms.Label() Me.textdatum3zv = New System.Windows.Forms.Label() Me.textdatum4zv = New System.Windows.Forms.Label() Me.DateTimePicker14 = New System.Windows.Forms.DateTimePicker() Me.DateTimePicker15 = New System.Windows.Forms.DateTimePicker() Me.DateTimePicker16 = New System.Windows.Forms.DateTimePicker() Me.TabPage5 = New System.Windows.Forms.TabPage() Me.txtdatum4uvm = New System.Windows.Forms.TextBox() Me.txtdatum3uvm = New System.Windows.Forms.TextBox() Me.txtdatum2uvm = New System.Windows.Forms.TextBox() Me.cbuvmrollend1 = New System.Windows.Forms.CheckBox() Me.Label49 = New System.Windows.Forms.Label() Me.Button25 = New System.Windows.Forms.Button() Me.DateTimePicker17 = New System.Windows.Forms.DateTimePicker() Me.Button26 = New System.Windows.Forms.Button() Me.Label50 = New System.Windows.Forms.Label() Me.Label51 = New System.Windows.Forms.Label() Me.Button27 = New System.Windows.Forms.Button() Me.Button28 = New System.Windows.Forms.Button() Me.cbuvmrollend4 = New System.Windows.Forms.CheckBox() Me.cbuvmrollend2 = New System.Windows.Forms.CheckBox() Me.Label52 = New System.Windows.Forms.Label() Me.txtdatum1uvm = New System.Windows.Forms.TextBox() Me.Label53 = New System.Windows.Forms.Label() Me.cbuvmrollend3 = New System.Windows.Forms.CheckBox() Me.Label54 = New System.Windows.Forms.Label() Me.textdatum1uvm = New System.Windows.Forms.Label() Me.textdatum2uvm = New System.Windows.Forms.Label() Me.textdatum3uvm = New System.Windows.Forms.Label() Me.textdatum4uvm = New System.Windows.Forms.Label() Me.DateTimePicker18 = New System.Windows.Forms.DateTimePicker() Me.DateTimePicker19 = New System.Windows.Forms.DateTimePicker() Me.DateTimePicker20 = New System.Windows.Forms.DateTimePicker() Me.cinklalt = New System.Windows.Forms.CheckBox() Me.cbmavip = New System.Windows.Forms.CheckBox() Me.Label8 = New System.Windows.Forms.Label() Me.Label7 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() Me.cbd6 = New System.Windows.Forms.CheckBox() Me.cbd4 = New System.Windows.Forms.CheckBox() Me.cbd2 = New System.Windows.Forms.CheckBox() Me.Label18 = New System.Windows.Forms.Label() Me.Label16 = New System.Windows.Forms.Label() Me.Label14 = New System.Windows.Forms.Label() Me.GroupBox10 = New System.Windows.Forms.GroupBox() Me.Button1 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button() Me.Groupbox3 = New System.Windows.Forms.GroupBox() Me.pnlzv = New System.Windows.Forms.Panel() Me.btnzvzahlungsart = New System.Windows.Forms.Button() Me.Label62 = New System.Windows.Forms.Label() Me.txtzvzahlungsart = New System.Windows.Forms.TextBox() Me.btnzvverarbeitungsart = New System.Windows.Forms.Button() Me.Label61 = New System.Windows.Forms.Label() Me.txtzvverarbeitungsart = New System.Windows.Forms.TextBox() Me.btnzvswift = New System.Windows.Forms.Button() Me.Label60 = New System.Windows.Forms.Label() Me.txtzvswift = New System.Windows.Forms.TextBox() Me.btnzvreferenz = New System.Windows.Forms.Button() Me.Label59 = New System.Windows.Forms.Label() Me.txtzvreferenznr = New System.Windows.Forms.TextBox() Me.btnzvposten = New System.Windows.Forms.Button() Me.Label58 = New System.Windows.Forms.Label() Me.txtzvpostennr = New System.Windows.Forms.TextBox() Me.btnzvpcnr = New System.Windows.Forms.Button() Me.Label57 = New System.Windows.Forms.Label() Me.txtzvpcnr = New System.Windows.Forms.TextBox() Me.btnzvbeguenstiger = New System.Windows.Forms.Button() Me.Label56 = New System.Windows.Forms.Label() Me.txtzvbeguenstigter = New System.Windows.Forms.TextBox() Me.btnzviso = New System.Windows.Forms.Button() Me.Label55 = New System.Windows.Forms.Label() Me.txtzviso = New System.Windows.Forms.TextBox() Me.btnzvclearing = New System.Windows.Forms.Button() Me.Label48 = New System.Windows.Forms.Label() Me.txtzvclearingnr = New System.Windows.Forms.TextBox() Me.btnzvbetrag = New System.Windows.Forms.Button() Me.Label47 = New System.Windows.Forms.Label() Me.txtzvbetrag = New System.Windows.Forms.TextBox() Me.btnzvauftraggeber = New System.Windows.Forms.Button() Me.Label46 = New System.Windows.Forms.Label() Me.txtzvauftraggeber = New System.Windows.Forms.TextBox() Me.btnzvauftragsnr = New System.Windows.Forms.Button() Me.Label63 = New System.Windows.Forms.Label() Me.txtzvauftragsnr = New System.Windows.Forms.TextBox() Me.GroupBox13 = New System.Windows.Forms.GroupBox() Me.pnlhostdiv = New System.Windows.Forms.Panel() Me.GroupBox4 = New System.Windows.Forms.GroupBox() Me.Label66 = New System.Windows.Forms.Label() Me.Label65 = New System.Windows.Forms.Label() Me.Label64 = New System.Windows.Forms.Label() Me.Button20 = New System.Windows.Forms.Button() Me.TextBox6 = New System.Windows.Forms.TextBox() Me.Button9 = New System.Windows.Forms.Button() Me.TextBox4 = New System.Windows.Forms.TextBox() Me.Button10 = New System.Windows.Forms.Button() Me.TextBox5 = New System.Windows.Forms.TextBox() Me.Label20 = New System.Windows.Forms.Label() Me.hostinklmavip = New System.Windows.Forms.CheckBox() Me.Label29 = New System.Windows.Forms.Label() Me.DateTimePicker7 = New System.Windows.Forms.DateTimePicker() Me.GroupBox6 = New System.Windows.Forms.GroupBox() Me.Button18 = New System.Windows.Forms.Button() Me.Button19 = New System.Windows.Forms.Button() Me.DatumHostText2 = New System.Windows.Forms.Label() Me.DatumHostText1 = New System.Windows.Forms.Label() Me.cbrollend9 = New System.Windows.Forms.CheckBox() Me.cbrollend8 = New System.Windows.Forms.CheckBox() Me.HostDatum1 = New System.Windows.Forms.TextBox() Me.Label9 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label() Me.lblhostdatum31 = New System.Windows.Forms.Label() Me.ComboBox6 = New System.Windows.Forms.ComboBox() Me.Label27 = New System.Windows.Forms.Label() Me.lblhostdatum3 = New System.Windows.Forms.Label() Me.HostDatum3 = New System.Windows.Forms.TextBox() Me.HostTag3 = New System.Windows.Forms.ComboBox() Me.HostDatum2 = New System.Windows.Forms.TextBox() Me.DateTimePicker8 = New System.Windows.Forms.DateTimePicker() Me.lblhostdatum2 = New System.Windows.Forms.Label() Me.DateTimePicker9 = New System.Windows.Forms.DateTimePicker() Me.Label32 = New System.Windows.Forms.Label() Me.Label33 = New System.Windows.Forms.Label() Me.Label34 = New System.Windows.Forms.Label() Me.Label35 = New System.Windows.Forms.Label() Me.CheckBox3 = New System.Windows.Forms.CheckBox() Me.CheckBox4 = New System.Windows.Forms.CheckBox() Me.CheckBox5 = New System.Windows.Forms.CheckBox() Me.TextBox7 = New System.Windows.Forms.TextBox() Me.TextBox8 = New System.Windows.Forms.TextBox() Me.TextBox9 = New System.Windows.Forms.TextBox() Me.Label36 = New System.Windows.Forms.Label() Me.Label37 = New System.Windows.Forms.Label() Me.Label38 = New System.Windows.Forms.Label() Me.DateTimePicker10 = New System.Windows.Forms.DateTimePicker() Me.DateTimePicker11 = New System.Windows.Forms.DateTimePicker() Me.DateTimePicker12 = New System.Windows.Forms.DateTimePicker() Me.Button8 = New System.Windows.Forms.Button() Me.Button7 = New System.Windows.Forms.Button() Me.Button6 = New System.Windows.Forms.Button() Me.pnluvm = New System.Windows.Forms.Panel() Me.Button29 = New System.Windows.Forms.Button() Me.txtuvmauftragnr = New System.Windows.Forms.TextBox() Me.Label45 = New System.Windows.Forms.Label() Me.GroupBox14 = New System.Windows.Forms.GroupBox() Me.PnlDokumentart = New System.Windows.Forms.Panel() Me.TVDokart = New System.Windows.Forms.TreeView() Me.Panel3 = New System.Windows.Forms.Panel() Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.TreeView1 = New System.Windows.Forms.TreeView() Me.TVHostDok = New System.Windows.Forms.TreeView() Me.Panel4 = New System.Windows.Forms.Panel() Me.Label19 = New System.Windows.Forms.Label() Me.LBSelectHost = New System.Windows.Forms.ListBox() Me.Button11 = New System.Windows.Forms.Button() Me.Label22 = New System.Windows.Forms.Label() Me.lbselect = New System.Windows.Forms.ListBox() Me.LBSort = New System.Windows.Forms.ListBox() Me.Label21 = New System.Windows.Forms.Label() Me.lbSortfields = New System.Windows.Forms.ListBox() Me.GroupBox12 = New System.Windows.Forms.GroupBox() Me.PnlPartner = New System.Windows.Forms.Panel() Me.PartnerList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.btnPartnersuche = New System.Windows.Forms.Button() Me.Label3 = New System.Windows.Forms.Label() Me.TextBox3 = New System.Windows.Forms.TextBox() Me.Label2 = New System.Windows.Forms.Label() Me.TextBox2 = New System.Windows.Forms.TextBox() Me.Label1 = New System.Windows.Forms.Label() Me.TextBox1 = New System.Windows.Forms.TextBox() Me.TabPage4 = New System.Windows.Forms.TabPage() Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.cbteam = New System.Windows.Forms.ComboBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.Button5 = New System.Windows.Forms.Button() Me.colbtn6 = New System.Windows.Forms.Button() Me.colbtn5 = New System.Windows.Forms.Button() Me.colbtn4 = New System.Windows.Forms.Button() Me.colbtn3 = New System.Windows.Forms.Button() Me.colbtn2 = New System.Windows.Forms.Button() Me.colbtn1 = New System.Windows.Forms.Button() Me.GroupBox9 = New System.Windows.Forms.GroupBox() Me.cb3_1 = New System.Windows.Forms.CheckBox() Me.cb5 = New System.Windows.Forms.CheckBox() Me.cb4 = New System.Windows.Forms.CheckBox() Me.cb3 = New System.Windows.Forms.CheckBox() Me.cb2 = New System.Windows.Forms.CheckBox() Me.cb1 = New System.Windows.Forms.CheckBox() Me.GroupBox5 = New System.Windows.Forms.GroupBox() Me.Label31 = New System.Windows.Forms.Label() Me.cbUnterschriftrechts = New System.Windows.Forms.ComboBox() Me.Label30 = New System.Windows.Forms.Label() Me.cbUnterschriftlinks = New System.Windows.Forms.ComboBox() Me.TabControl1 = New System.Windows.Forms.TabControl() Me.BtnHelp = New System.Windows.Forms.Button() Me.Panel2.SuspendLayout() CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage1.SuspendLayout() Me.PnlDokumentDaten.SuspendLayout() Me.TabControl2.SuspendLayout() Me.TabPage2.SuspendLayout() Me.TabPage3.SuspendLayout() Me.TabPage5.SuspendLayout() Me.pnlzv.SuspendLayout() Me.pnlhostdiv.SuspendLayout() Me.GroupBox4.SuspendLayout() Me.GroupBox6.SuspendLayout() Me.pnluvm.SuspendLayout() Me.PnlDokumentart.SuspendLayout() Me.Panel3.SuspendLayout() CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel4.SuspendLayout() Me.PnlPartner.SuspendLayout() CType(Me.PartnerList, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage4.SuspendLayout() Me.GroupBox2.SuspendLayout() Me.GroupBox1.SuspendLayout() Me.GroupBox9.SuspendLayout() Me.GroupBox5.SuspendLayout() Me.TabControl1.SuspendLayout() Me.SuspendLayout() ' 'MenuItem1 ' Me.MenuItem1.Index = -1 Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem5}) Me.MenuItem1.Text = "&Datei" ' 'MenuItem5 ' Me.MenuItem5.Index = 0 Me.MenuItem5.Text = "&Schliessen" ' 'ToolBar1 ' Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnClose, Me.btnOpen, Me.btnSave, Me.btnini}) 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(792, 28) Me.ToolBar1.TabIndex = 0 ' 'btnClose ' Me.btnClose.ImageIndex = 0 Me.btnClose.Name = "btnClose" Me.btnClose.ToolTipText = "Fenster schliessen" ' 'btnOpen ' Me.btnOpen.ImageIndex = 7 Me.btnOpen.Name = "btnOpen" Me.btnOpen.Visible = False ' 'btnSave ' Me.btnSave.ImageIndex = 1 Me.btnSave.Name = "btnSave" ' 'btnini ' Me.btnini.ImageIndex = 12 Me.btnini.Name = "btnini" Me.btnini.ToolTipText = "Profil initialisieren" ' '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, "") Me.ImageList1.Images.SetKeyName(11, "") Me.ImageList1.Images.SetKeyName(12, "") ' 'Panel1 ' Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top Me.Panel1.Location = New System.Drawing.Point(0, 28) Me.Panel1.Name = "Panel1" Me.Panel1.Size = New System.Drawing.Size(792, 8) Me.Panel1.TabIndex = 4 ' 'MnuListe ' Me.MnuListe.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem12, Me.MenuItem6, Me.MenuItem7, Me.MenuItem9, Me.MenuItem11, Me.MenuItem13, Me.MenuItem8, Me.MenuItem10}) ' 'MenuItem12 ' Me.MenuItem12.Index = 0 Me.MenuItem12.Text = "Übernehmen" ' 'MenuItem6 ' Me.MenuItem6.Index = 1 Me.MenuItem6.Text = "Auswählen" ' 'MenuItem7 ' Me.MenuItem7.Index = 2 Me.MenuItem7.Text = "Als Standard" ' 'MenuItem9 ' Me.MenuItem9.Index = 3 Me.MenuItem9.Text = "-" ' 'MenuItem11 ' Me.MenuItem11.Index = 4 Me.MenuItem11.Text = "Neues Profil" ' 'MenuItem13 ' Me.MenuItem13.Index = 5 Me.MenuItem13.Text = "Profil kopieren" ' 'MenuItem8 ' Me.MenuItem8.Index = 6 Me.MenuItem8.Text = "Umbenennen" ' 'MenuItem10 ' Me.MenuItem10.Index = 7 Me.MenuItem10.Text = "Löschen" ' 'Panel2 ' Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Panel2.Controls.Add(Me.Profile) Me.Panel2.Dock = System.Windows.Forms.DockStyle.Left Me.Panel2.Location = New System.Drawing.Point(0, 36) Me.Panel2.Name = "Panel2" Me.Panel2.Size = New System.Drawing.Size(176, 541) Me.Panel2.TabIndex = 11 ' 'Profile ' Me.Profile.ContextMenu = Me.MnuListe Me.Profile.Dock = System.Windows.Forms.DockStyle.Fill Me.Profile.FullRowSelect = True Me.Profile.Location = New System.Drawing.Point(0, 0) Me.Profile.Name = "Profile" Me.Profile.ShowLines = False Me.Profile.ShowPlusMinus = False Me.Profile.Size = New System.Drawing.Size(174, 539) Me.Profile.Sorted = True Me.Profile.TabIndex = 0 ' 'Button4 ' Me.Button4.Location = New System.Drawing.Point(200, 552) Me.Button4.Name = "Button4" Me.Button4.Size = New System.Drawing.Size(112, 24) Me.Button4.TabIndex = 14 Me.Button4.Text = "Übernehmen" ' 'Label25 ' Me.Label25.Location = New System.Drawing.Point(16, 64) Me.Label25.Name = "Label25" Me.Label25.Size = New System.Drawing.Size(48, 23) Me.Label25.TabIndex = 3 ' 'ComboBox10 ' Me.ComboBox10.Location = New System.Drawing.Point(64, 64) Me.ComboBox10.Name = "ComboBox10" Me.ComboBox10.Size = New System.Drawing.Size(216, 21) Me.ComboBox10.TabIndex = 2 ' 'Label24 ' Me.Label24.Location = New System.Drawing.Point(16, 32) Me.Label24.Name = "Label24" Me.Label24.Size = New System.Drawing.Size(48, 23) Me.Label24.TabIndex = 1 ' 'ComboBox9 ' Me.ComboBox9.Location = New System.Drawing.Point(64, 32) Me.ComboBox9.Name = "ComboBox9" Me.ComboBox9.Size = New System.Drawing.Size(216, 21) Me.ComboBox9.TabIndex = 0 ' 'ctmenu1 ' Me.ctmenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuDel, Me.MenuItem14}) ' 'MnuDel ' Me.MnuDel.Index = 0 Me.MnuDel.Text = "Eintrag löschen" ' 'MenuItem14 ' Me.MenuItem14.Index = 1 Me.MenuItem14.Text = "Einträge löschen" ' 'CTMenuErsteller ' Me.CTMenuErsteller.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem15, Me.MenuItem16}) ' 'MenuItem15 ' Me.MenuItem15.Index = 0 Me.MenuItem15.Text = "Partner übernehmen" ' 'MenuItem16 ' Me.MenuItem16.Index = 1 Me.MenuItem16.Text = "Detailinformationen" ' 'CTMenuVerantwortlicher ' Me.CTMenuVerantwortlicher.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem20}) ' 'MenuItem20 ' Me.MenuItem20.Index = 0 Me.MenuItem20.Text = "Eintrag übernehmen" ' 'CTMenuMutierer ' Me.CTMenuMutierer.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem24, Me.MenuItem25, Me.MenuItem26, Me.MenuItem27}) ' 'MenuItem24 ' Me.MenuItem24.Index = 0 Me.MenuItem24.Text = "&Eintrag selektieren" ' 'MenuItem25 ' Me.MenuItem25.Index = 1 Me.MenuItem25.Text = "&Selektion aufheben" ' 'MenuItem26 ' Me.MenuItem26.Index = 2 Me.MenuItem26.Text = "-" ' 'MenuItem27 ' Me.MenuItem27.Index = 3 Me.MenuItem27.Text = "&Alle aufheben" ' '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", "profil", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("profilnr", "profilnr"), New System.Data.Common.DataColumnMapping("mitarbeiternr", "mitarbeiternr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("standard", "standard"), 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("color1", "color1"), New System.Data.Common.DataColumnMapping("color2", "color2"), New System.Data.Common.DataColumnMapping("color3", "color3"), New System.Data.Common.DataColumnMapping("color4", "color4"), New System.Data.Common.DataColumnMapping("color5", "color5"), New System.Data.Common.DataColumnMapping("color6", "color6"), New System.Data.Common.DataColumnMapping("color7", "color7"), New System.Data.Common.DataColumnMapping("color8", "color8"), New System.Data.Common.DataColumnMapping("unterschriftlinks", "unterschriftlinks"), New System.Data.Common.DataColumnMapping("unterschriftrechts", "unterschriftrechts"), New System.Data.Common.DataColumnMapping("hw1", "hw1"), New System.Data.Common.DataColumnMapping("hw2", "hw2"), New System.Data.Common.DataColumnMapping("hw3", "hw3"), New System.Data.Common.DataColumnMapping("hw4", "hw4"), New System.Data.Common.DataColumnMapping("hw5", "hw5"), New System.Data.Common.DataColumnMapping("hw6", "hw6"), New System.Data.Common.DataColumnMapping("hw7", "hw7"), New System.Data.Common.DataColumnMapping("hw8", "hw8"), New System.Data.Common.DataColumnMapping("hw9", "hw9"), New System.Data.Common.DataColumnMapping("hw10", "hw10"), New System.Data.Common.DataColumnMapping("hw11", "hw11"), New System.Data.Common.DataColumnMapping("vmb", "vmb"), New System.Data.Common.DataColumnMapping("vnl", "vnl"), New System.Data.Common.DataColumnMapping("vkost", "vkost"), New System.Data.Common.DataColumnMapping("vteam", "vteam"), New System.Data.Common.DataColumnMapping("vma", "vma"), New System.Data.Common.DataColumnMapping("mmb", "mmb"), New System.Data.Common.DataColumnMapping("mnl", "mnl"), New System.Data.Common.DataColumnMapping("mkost", "mkost"), New System.Data.Common.DataColumnMapping("mteam", "mteam"), New System.Data.Common.DataColumnMapping("mma", "mma"), New System.Data.Common.DataColumnMapping("emb", "emb"), New System.Data.Common.DataColumnMapping("enl", "enl"), New System.Data.Common.DataColumnMapping("ekost", "ekost"), New System.Data.Common.DataColumnMapping("eteam", "eteam"), New System.Data.Common.DataColumnMapping("ema", "ema"), New System.Data.Common.DataColumnMapping("dpartner", "dpartner"), New System.Data.Common.DataColumnMapping("ddokart", "ddokart"), New System.Data.Common.DataColumnMapping("ddokstatus", "ddokstatus"), New System.Data.Common.DataColumnMapping("datum1", "datum1"), New System.Data.Common.DataColumnMapping("datum2", "datum2"), New System.Data.Common.DataColumnMapping("datum3", "datum3"), New System.Data.Common.DataColumnMapping("datum4", "datum4"), New System.Data.Common.DataColumnMapping("datum5", "datum5"), New System.Data.Common.DataColumnMapping("datum6", "datum6"), New System.Data.Common.DataColumnMapping("datum7", "datum7"), New System.Data.Common.DataColumnMapping("datum8", "datum8"), New System.Data.Common.DataColumnMapping("erstaelterals", "erstaelterals"), New System.Data.Common.DataColumnMapping("mutaelterasl", "mutaelterasl"), New System.Data.Common.DataColumnMapping("team", "team"), New System.Data.Common.DataColumnMapping("sort", "sort"), New System.Data.Common.DataColumnMapping("aktive", "aktive"), New System.Data.Common.DataColumnMapping("profiltyp", "profiltyp"), New System.Data.Common.DataColumnMapping("doktyp", "doktyp"), New System.Data.Common.DataColumnMapping("inklmavip", "inklmavip"), New System.Data.Common.DataColumnMapping("inklalt", "inklalt"), New System.Data.Common.DataColumnMapping("hostpartner", "hostpartner"), New System.Data.Common.DataColumnMapping("hostdokart", "hostdokart"), New System.Data.Common.DataColumnMapping("hostdoktyp", "hostdoktyp"), New System.Data.Common.DataColumnMapping("hosttag1", "hosttag1"), New System.Data.Common.DataColumnMapping("hostdatum1", "hostdatum1"), New System.Data.Common.DataColumnMapping("hosttag2", "hosttag2"), New System.Data.Common.DataColumnMapping("hostdatum2", "hostdatum2"), New System.Data.Common.DataColumnMapping("hosttag3", "hosttag3"), New System.Data.Common.DataColumnMapping("hostdatum3", "hostdatum3"), New System.Data.Common.DataColumnMapping("inklhostmavip", "inklhostmavip")})}) Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1 ' 'SqlDeleteCommand1 ' Me.SqlDeleteCommand1.CommandText = "[pv_profil_delete]" Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure Me.SqlDeleteCommand1.Connection = Me.SqlConnection1 Me.SqlDeleteCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_profilnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "profilnr", 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_aktive", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktive", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_color1", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color1", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_color2", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color2", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_color3", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color3", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_color4", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color4", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_color5", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color5", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_color6", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color6", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_color7", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color7", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_color8", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color8", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_datum1", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum1", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_datum2", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum2", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_datum3", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum3", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_datum4", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum4", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_datum5", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum5", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_datum6", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum6", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_datum7", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum7", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_datum8", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum8", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_ddokart", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ddokart", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_ddokstatus", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ddokstatus", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_doktyp", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "doktyp", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dpartner", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dpartner", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_ekost", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ekost", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_ema", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ema", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_emb", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "emb", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_enl", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "enl", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_erstaelterals", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstaelterals", 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_eteam", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eteam", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hostdatum1", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdatum1", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hostdatum2", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdatum2", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hostdatum3", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdatum3", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hostdokart", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdokart", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hostdoktyp", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdoktyp", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hostpartner", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostpartner", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hosttag1", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hosttag1", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hosttag2", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hosttag2", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hosttag3", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hosttag3", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hw1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw1", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hw10", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw10", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hw11", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw11", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hw2", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw2", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hw3", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw3", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hw4", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw4", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hw5", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw5", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hw6", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw6", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hw7", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw7", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hw8", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw8", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hw9", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw9", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_inklalt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "inklalt", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_inklhostmavip", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "inklhostmavip", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_inklmavip", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "inklmavip", 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_mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiternr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mkost", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mkost", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mma", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mma", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mmb", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mmb", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mnl", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mnl", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mteam", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mteam", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutaelterasl", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutaelterasl", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_profiltyp", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "profiltyp", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_sort", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sort", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_standard", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "standard", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_team", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "team", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_unterschriftlinks", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschriftlinks", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_unterschriftrechts", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschriftrechts", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_vkost", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vkost", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_vma", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vma", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_vmb", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vmb", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_vnl", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vnl", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_vteam", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vteam", System.Data.DataRowVersion.Original, Nothing)}) ' 'SqlConnection1 ' Me.SqlConnection1.ConnectionString = "data source=shu;initial catalog=edoka;persist security info=False;user id=sa;work" & _ "station id=SHU;packet size=4096" Me.SqlConnection1.FireInfoMessageEventOnUserErrors = False ' 'SqlInsertCommand1 ' Me.SqlInsertCommand1.CommandText = "[pv_profil_insert]" Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure Me.SqlInsertCommand1.Connection = Me.SqlConnection1 Me.SqlInsertCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@profilnr", System.Data.SqlDbType.Int, 4, "profilnr"), New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "mitarbeiternr"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"), New System.Data.SqlClient.SqlParameter("@standard", System.Data.SqlDbType.Bit, 1, "standard"), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"), New System.Data.SqlClient.SqlParameter("@color1", System.Data.SqlDbType.VarChar, 50, "color1"), New System.Data.SqlClient.SqlParameter("@color2", System.Data.SqlDbType.VarChar, 50, "color2"), New System.Data.SqlClient.SqlParameter("@color3", System.Data.SqlDbType.VarChar, 50, "color3"), New System.Data.SqlClient.SqlParameter("@color4", System.Data.SqlDbType.VarChar, 50, "color4"), New System.Data.SqlClient.SqlParameter("@color5", System.Data.SqlDbType.VarChar, 50, "color5"), New System.Data.SqlClient.SqlParameter("@color6", System.Data.SqlDbType.VarChar, 50, "color6"), New System.Data.SqlClient.SqlParameter("@color7", System.Data.SqlDbType.VarChar, 50, "color7"), New System.Data.SqlClient.SqlParameter("@color8", System.Data.SqlDbType.VarChar, 50, "color8"), New System.Data.SqlClient.SqlParameter("@unterschriftlinks", System.Data.SqlDbType.Int, 4, "unterschriftlinks"), New System.Data.SqlClient.SqlParameter("@unterschriftrechts", System.Data.SqlDbType.Int, 4, "unterschriftrechts"), New System.Data.SqlClient.SqlParameter("@hw1", System.Data.SqlDbType.Int, 4, "hw1"), New System.Data.SqlClient.SqlParameter("@hw2", System.Data.SqlDbType.Int, 4, "hw2"), New System.Data.SqlClient.SqlParameter("@hw3", System.Data.SqlDbType.Int, 4, "hw3"), New System.Data.SqlClient.SqlParameter("@hw4", System.Data.SqlDbType.Int, 4, "hw4"), New System.Data.SqlClient.SqlParameter("@hw5", System.Data.SqlDbType.Int, 4, "hw5"), New System.Data.SqlClient.SqlParameter("@hw6", System.Data.SqlDbType.Int, 4, "hw6"), New System.Data.SqlClient.SqlParameter("@hw7", System.Data.SqlDbType.Int, 4, "hw7"), New System.Data.SqlClient.SqlParameter("@hw8", System.Data.SqlDbType.Int, 4, "hw8"), New System.Data.SqlClient.SqlParameter("@hw9", System.Data.SqlDbType.Int, 4, "hw9"), New System.Data.SqlClient.SqlParameter("@hw10", System.Data.SqlDbType.Int, 4, "hw10"), New System.Data.SqlClient.SqlParameter("@hw11", System.Data.SqlDbType.Int, 4, "hw11"), New System.Data.SqlClient.SqlParameter("@vmb", System.Data.SqlDbType.VarChar, 255, "vmb"), New System.Data.SqlClient.SqlParameter("@vnl", System.Data.SqlDbType.VarChar, 255, "vnl"), New System.Data.SqlClient.SqlParameter("@vkost", System.Data.SqlDbType.VarChar, 255, "vkost"), New System.Data.SqlClient.SqlParameter("@vteam", System.Data.SqlDbType.VarChar, 255, "vteam"), New System.Data.SqlClient.SqlParameter("@vma", System.Data.SqlDbType.VarChar, 255, "vma"), New System.Data.SqlClient.SqlParameter("@mmb", System.Data.SqlDbType.VarChar, 255, "mmb"), New System.Data.SqlClient.SqlParameter("@mnl", System.Data.SqlDbType.VarChar, 255, "mnl"), New System.Data.SqlClient.SqlParameter("@mkost", System.Data.SqlDbType.VarChar, 255, "mkost"), New System.Data.SqlClient.SqlParameter("@mteam", System.Data.SqlDbType.VarChar, 255, "mteam"), New System.Data.SqlClient.SqlParameter("@mma", System.Data.SqlDbType.VarChar, 255, "mma"), New System.Data.SqlClient.SqlParameter("@emb", System.Data.SqlDbType.VarChar, 255, "emb"), New System.Data.SqlClient.SqlParameter("@enl", System.Data.SqlDbType.VarChar, 255, "enl"), New System.Data.SqlClient.SqlParameter("@ekost", System.Data.SqlDbType.VarChar, 255, "ekost"), New System.Data.SqlClient.SqlParameter("@eteam", System.Data.SqlDbType.VarChar, 255, "eteam"), New System.Data.SqlClient.SqlParameter("@ema", System.Data.SqlDbType.VarChar, 255, "ema"), New System.Data.SqlClient.SqlParameter("@dpartner", System.Data.SqlDbType.VarChar, 255, "dpartner"), New System.Data.SqlClient.SqlParameter("@ddokart", System.Data.SqlDbType.VarChar, 255, "ddokart"), New System.Data.SqlClient.SqlParameter("@ddokstatus", System.Data.SqlDbType.VarChar, 255, "ddokstatus"), New System.Data.SqlClient.SqlParameter("@datum1", System.Data.SqlDbType.VarChar, 50, "datum1"), New System.Data.SqlClient.SqlParameter("@datum2", System.Data.SqlDbType.VarChar, 50, "datum2"), New System.Data.SqlClient.SqlParameter("@datum3", System.Data.SqlDbType.VarChar, 50, "datum3"), New System.Data.SqlClient.SqlParameter("@datum4", System.Data.SqlDbType.VarChar, 50, "datum4"), New System.Data.SqlClient.SqlParameter("@datum5", System.Data.SqlDbType.VarChar, 50, "datum5"), New System.Data.SqlClient.SqlParameter("@datum6", System.Data.SqlDbType.VarChar, 50, "datum6"), New System.Data.SqlClient.SqlParameter("@datum7", System.Data.SqlDbType.VarChar, 50, "datum7"), New System.Data.SqlClient.SqlParameter("@datum8", System.Data.SqlDbType.VarChar, 50, "datum8"), New System.Data.SqlClient.SqlParameter("@erstaelterals", System.Data.SqlDbType.VarChar, 50, "erstaelterals"), New System.Data.SqlClient.SqlParameter("@mutaelterasl", System.Data.SqlDbType.VarChar, 50, "mutaelterasl"), New System.Data.SqlClient.SqlParameter("@team", System.Data.SqlDbType.Int, 4, "team"), New System.Data.SqlClient.SqlParameter("@sort", System.Data.SqlDbType.VarChar, 1024, "sort"), New System.Data.SqlClient.SqlParameter("@aktive", System.Data.SqlDbType.Bit, 1, "aktive"), New System.Data.SqlClient.SqlParameter("@profiltyp", System.Data.SqlDbType.Int, 4, "profiltyp"), New System.Data.SqlClient.SqlParameter("@doktyp", System.Data.SqlDbType.VarChar, 255, "doktyp"), New System.Data.SqlClient.SqlParameter("@inklmavip", System.Data.SqlDbType.Bit, 1, "inklmavip"), New System.Data.SqlClient.SqlParameter("@inklalt", System.Data.SqlDbType.Bit, 1, "inklalt"), New System.Data.SqlClient.SqlParameter("@hostpartner", System.Data.SqlDbType.VarChar, 255, "hostpartner"), New System.Data.SqlClient.SqlParameter("@hostdokart", System.Data.SqlDbType.VarChar, 255, "hostdokart"), New System.Data.SqlClient.SqlParameter("@hostdoktyp", System.Data.SqlDbType.VarChar, 255, "hostdoktyp"), New System.Data.SqlClient.SqlParameter("@hosttag1", System.Data.SqlDbType.VarChar, 50, "hosttag1"), New System.Data.SqlClient.SqlParameter("@hostdatum1", System.Data.SqlDbType.VarChar, 50, "hostdatum1"), New System.Data.SqlClient.SqlParameter("@hosttag2", System.Data.SqlDbType.VarChar, 50, "hosttag2"), New System.Data.SqlClient.SqlParameter("@hostdatum2", System.Data.SqlDbType.VarChar, 50, "hostdatum2"), New System.Data.SqlClient.SqlParameter("@hosttag3", System.Data.SqlDbType.VarChar, 50, "hosttag3"), New System.Data.SqlClient.SqlParameter("@hostdatum3", System.Data.SqlDbType.VarChar, 50, "hostdatum3"), New System.Data.SqlClient.SqlParameter("@inklhostmavip", System.Data.SqlDbType.Bit, 1, "inklhostmavip")}) ' 'SqlSelectCommand1 ' Me.SqlSelectCommand1.CommandText = "[pv_profil_select]" Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure Me.SqlSelectCommand1.Connection = Me.SqlConnection1 Me.SqlSelectCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "mitarbeiternr"), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr")}) ' 'SqlUpdateCommand1 ' Me.SqlUpdateCommand1.CommandText = "[pv_profil_update]" Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure Me.SqlUpdateCommand1.Connection = Me.SqlConnection1 Me.SqlUpdateCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@profilnr", System.Data.SqlDbType.Int, 4, "profilnr"), New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "mitarbeiternr"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"), New System.Data.SqlClient.SqlParameter("@standard", System.Data.SqlDbType.Bit, 1, "standard"), New System.Data.SqlClient.SqlParameter("@Param2", System.Data.SqlDbType.Int, 4, "mandantnr"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"), New System.Data.SqlClient.SqlParameter("@color1", System.Data.SqlDbType.VarChar, 50, "color1"), New System.Data.SqlClient.SqlParameter("@color2", System.Data.SqlDbType.VarChar, 50, "color2"), New System.Data.SqlClient.SqlParameter("@color3", System.Data.SqlDbType.VarChar, 50, "color3"), New System.Data.SqlClient.SqlParameter("@color4", System.Data.SqlDbType.VarChar, 50, "color4"), New System.Data.SqlClient.SqlParameter("@color5", System.Data.SqlDbType.VarChar, 50, "color5"), New System.Data.SqlClient.SqlParameter("@color6", System.Data.SqlDbType.VarChar, 50, "color6"), New System.Data.SqlClient.SqlParameter("@color7", System.Data.SqlDbType.VarChar, 50, "color7"), New System.Data.SqlClient.SqlParameter("@color8", System.Data.SqlDbType.VarChar, 50, "color8"), New System.Data.SqlClient.SqlParameter("@unterschriftlinks", System.Data.SqlDbType.Int, 4, "unterschriftlinks"), New System.Data.SqlClient.SqlParameter("@unterschriftrechts", System.Data.SqlDbType.Int, 4, "unterschriftrechts"), New System.Data.SqlClient.SqlParameter("@hw1", System.Data.SqlDbType.Int, 4, "hw1"), New System.Data.SqlClient.SqlParameter("@hw2", System.Data.SqlDbType.Int, 4, "hw2"), New System.Data.SqlClient.SqlParameter("@hw3", System.Data.SqlDbType.Int, 4, "hw3"), New System.Data.SqlClient.SqlParameter("@hw4", System.Data.SqlDbType.Int, 4, "hw4"), New System.Data.SqlClient.SqlParameter("@hw5", System.Data.SqlDbType.Int, 4, "hw5"), New System.Data.SqlClient.SqlParameter("@hw6", System.Data.SqlDbType.Int, 4, "hw6"), New System.Data.SqlClient.SqlParameter("@hw7", System.Data.SqlDbType.Int, 4, "hw7"), New System.Data.SqlClient.SqlParameter("@hw8", System.Data.SqlDbType.Int, 4, "hw8"), New System.Data.SqlClient.SqlParameter("@hw9", System.Data.SqlDbType.Int, 4, "hw9"), New System.Data.SqlClient.SqlParameter("@hw10", System.Data.SqlDbType.Int, 4, "hw10"), New System.Data.SqlClient.SqlParameter("@hw11", System.Data.SqlDbType.Int, 4, "hw11"), New System.Data.SqlClient.SqlParameter("@vmb", System.Data.SqlDbType.VarChar, 255, "vmb"), New System.Data.SqlClient.SqlParameter("@vnl", System.Data.SqlDbType.VarChar, 255, "vnl"), New System.Data.SqlClient.SqlParameter("@vkost", System.Data.SqlDbType.VarChar, 255, "vkost"), New System.Data.SqlClient.SqlParameter("@vteam", System.Data.SqlDbType.VarChar, 255, "vteam"), New System.Data.SqlClient.SqlParameter("@vma", System.Data.SqlDbType.VarChar, 255, "vma"), New System.Data.SqlClient.SqlParameter("@mmb", System.Data.SqlDbType.VarChar, 255, "mmb"), New System.Data.SqlClient.SqlParameter("@mnl", System.Data.SqlDbType.VarChar, 255, "mnl"), New System.Data.SqlClient.SqlParameter("@mkost", System.Data.SqlDbType.VarChar, 255, "mkost"), New System.Data.SqlClient.SqlParameter("@mteam", System.Data.SqlDbType.VarChar, 255, "mteam"), New System.Data.SqlClient.SqlParameter("@mma", System.Data.SqlDbType.VarChar, 255, "mma"), New System.Data.SqlClient.SqlParameter("@emb", System.Data.SqlDbType.VarChar, 255, "emb"), New System.Data.SqlClient.SqlParameter("@enl", System.Data.SqlDbType.VarChar, 255, "enl"), New System.Data.SqlClient.SqlParameter("@ekost", System.Data.SqlDbType.VarChar, 255, "ekost"), New System.Data.SqlClient.SqlParameter("@eteam", System.Data.SqlDbType.VarChar, 255, "eteam"), New System.Data.SqlClient.SqlParameter("@ema", System.Data.SqlDbType.VarChar, 255, "ema"), New System.Data.SqlClient.SqlParameter("@dpartner", System.Data.SqlDbType.VarChar, 255, "dpartner"), New System.Data.SqlClient.SqlParameter("@ddokart", System.Data.SqlDbType.VarChar, 255, "ddokart"), New System.Data.SqlClient.SqlParameter("@ddokstatus", System.Data.SqlDbType.VarChar, 255, "ddokstatus"), New System.Data.SqlClient.SqlParameter("@datum1", System.Data.SqlDbType.VarChar, 50, "datum1"), New System.Data.SqlClient.SqlParameter("@datum2", System.Data.SqlDbType.VarChar, 50, "datum2"), New System.Data.SqlClient.SqlParameter("@datum3", System.Data.SqlDbType.VarChar, 50, "datum3"), New System.Data.SqlClient.SqlParameter("@datum4", System.Data.SqlDbType.VarChar, 50, "datum4"), New System.Data.SqlClient.SqlParameter("@datum5", System.Data.SqlDbType.VarChar, 50, "datum5"), New System.Data.SqlClient.SqlParameter("@datum6", System.Data.SqlDbType.VarChar, 50, "datum6"), New System.Data.SqlClient.SqlParameter("@datum7", System.Data.SqlDbType.VarChar, 50, "datum7"), New System.Data.SqlClient.SqlParameter("@datum8", System.Data.SqlDbType.VarChar, 50, "datum8"), New System.Data.SqlClient.SqlParameter("@erstaelterals", System.Data.SqlDbType.VarChar, 50, "erstaelterals"), New System.Data.SqlClient.SqlParameter("@mutaelterasl", System.Data.SqlDbType.VarChar, 50, "mutaelterasl"), New System.Data.SqlClient.SqlParameter("@team", System.Data.SqlDbType.Int, 4, "team"), New System.Data.SqlClient.SqlParameter("@sort", System.Data.SqlDbType.VarChar, 1024, "sort"), New System.Data.SqlClient.SqlParameter("@aktive", System.Data.SqlDbType.Bit, 1, "aktive"), New System.Data.SqlClient.SqlParameter("@profiltyp", System.Data.SqlDbType.Int, 4, "profiltyp"), New System.Data.SqlClient.SqlParameter("@doktyp", System.Data.SqlDbType.VarChar, 255, "doktyp"), New System.Data.SqlClient.SqlParameter("@inklmavip", System.Data.SqlDbType.Bit, 1, "inklmavip"), New System.Data.SqlClient.SqlParameter("@inklalt", System.Data.SqlDbType.Bit, 1, "inklalt"), New System.Data.SqlClient.SqlParameter("@hostpartner", System.Data.SqlDbType.VarChar, 255, "hostpartner"), New System.Data.SqlClient.SqlParameter("@hostdokart", System.Data.SqlDbType.VarChar, 255, "hostdokart"), New System.Data.SqlClient.SqlParameter("@hostdoktyp", System.Data.SqlDbType.VarChar, 255, "hostdoktyp"), New System.Data.SqlClient.SqlParameter("@hosttag1", System.Data.SqlDbType.VarChar, 50, "hosttag1"), New System.Data.SqlClient.SqlParameter("@hostdatum1", System.Data.SqlDbType.VarChar, 50, "hostdatum1"), New System.Data.SqlClient.SqlParameter("@hosttag2", System.Data.SqlDbType.VarChar, 50, "hosttag2"), New System.Data.SqlClient.SqlParameter("@hostdatum2", System.Data.SqlDbType.VarChar, 50, "hostdatum2"), New System.Data.SqlClient.SqlParameter("@hosttag3", System.Data.SqlDbType.VarChar, 50, "hosttag3"), New System.Data.SqlClient.SqlParameter("@hostdatum3", System.Data.SqlDbType.VarChar, 50, "hostdatum3"), New System.Data.SqlClient.SqlParameter("@inklhostmavip", System.Data.SqlDbType.Bit, 1, "inklhostmavip"), New System.Data.SqlClient.SqlParameter("@Original_profilnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "profilnr", 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_aktive", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktive", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_color1", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color1", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_color2", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color2", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_color3", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color3", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_color4", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color4", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_color5", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color5", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_color6", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color6", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_color7", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color7", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_color8", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color8", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_datum1", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum1", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_datum2", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum2", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_datum3", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum3", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_datum4", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum4", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_datum5", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum5", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_datum6", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum6", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_datum7", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum7", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_datum8", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum8", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_ddokart", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ddokart", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_ddokstatus", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ddokstatus", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_doktyp", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "doktyp", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dpartner", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dpartner", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_ekost", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ekost", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_ema", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ema", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_emb", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "emb", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_enl", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "enl", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_erstaelterals", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstaelterals", 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_eteam", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eteam", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hostdatum1", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdatum1", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hostdatum2", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdatum2", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hostdatum3", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdatum3", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hostdokart", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdokart", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hostdoktyp", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdoktyp", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hostpartner", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostpartner", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hosttag1", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hosttag1", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hosttag2", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hosttag2", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hosttag3", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hosttag3", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hw1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw1", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hw10", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw10", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hw11", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw11", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hw2", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw2", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hw3", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw3", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hw4", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw4", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hw5", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw5", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hw6", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw6", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hw7", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw7", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hw8", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw8", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hw9", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw9", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_inklalt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "inklalt", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_inklhostmavip", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "inklhostmavip", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_inklmavip", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "inklmavip", 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_mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiternr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mkost", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mkost", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mma", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mma", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mmb", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mmb", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mnl", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mnl", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mteam", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mteam", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutaelterasl", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutaelterasl", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_profiltyp", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "profiltyp", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_sort", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sort", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_standard", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "standard", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_team", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "team", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_unterschriftlinks", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschriftlinks", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_unterschriftrechts", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschriftrechts", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_vkost", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vkost", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_vma", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vma", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_vmb", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vmb", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_vnl", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vnl", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_vteam", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vteam", 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 ' 'DataSet1 ' Me.DataSet1.DataSetName = "NewDataSet" ' 'Splitter1 ' Me.Splitter1.Location = New System.Drawing.Point(176, 36) Me.Splitter1.Name = "Splitter1" Me.Splitter1.Size = New System.Drawing.Size(3, 541) Me.Splitter1.TabIndex = 15 Me.Splitter1.TabStop = False ' 'ContextMenu2 ' Me.ContextMenu2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem17, Me.MenuItem18, Me.MenuItem21, Me.MenuItem22, Me.MenuItem19}) ' 'MenuItem17 ' Me.MenuItem17.Index = 0 Me.MenuItem17.Text = "&Aufwärts" ' 'MenuItem18 ' Me.MenuItem18.Index = 1 Me.MenuItem18.Text = "A&bwärts" ' 'MenuItem21 ' Me.MenuItem21.Index = 2 Me.MenuItem21.Text = "Sortierung ändern" ' 'MenuItem22 ' Me.MenuItem22.Index = 3 Me.MenuItem22.Text = "-" ' 'MenuItem19 ' Me.MenuItem19.Index = 4 Me.MenuItem19.Text = "&Löschen" ' 'ContextMenu1 ' Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuSelectDokumentart, Me.MnuDeleteDokumentart, Me.MenuItem2, Me.MenuItem3, Me.MenuItem4}) ' 'MnuSelectDokumentart ' Me.MnuSelectDokumentart.Index = 0 Me.MnuSelectDokumentart.Text = "Eintrag auswählen" ' 'MnuDeleteDokumentart ' Me.MnuDeleteDokumentart.Index = 1 Me.MnuDeleteDokumentart.Text = "Eintrag abwählen" ' 'MenuItem2 ' Me.MenuItem2.Index = 2 Me.MenuItem2.Text = "-" ' 'MenuItem3 ' Me.MenuItem3.Index = 3 Me.MenuItem3.Text = "Knoten öffnen" ' 'MenuItem4 ' Me.MenuItem4.Index = 4 Me.MenuItem4.Text = "Knoten schliessen" ' '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, "") Me.ImageList2.Images.SetKeyName(3, "") Me.ImageList2.Images.SetKeyName(4, "") Me.ImageList2.Images.SetKeyName(5, "") Me.ImageList2.Images.SetKeyName(6, "") Me.ImageList2.Images.SetKeyName(7, "") Me.ImageList2.Images.SetKeyName(8, "") Me.ImageList2.Images.SetKeyName(9, "") Me.ImageList2.Images.SetKeyName(10, "") Me.ImageList2.Images.SetKeyName(11, "") Me.ImageList2.Images.SetKeyName(12, "") Me.ImageList2.Images.SetKeyName(13, "") ' 'ImageList3 ' Me.ImageList3.ImageStream = CType(resources.GetObject("ImageList3.ImageStream"), System.Windows.Forms.ImageListStreamer) Me.ImageList3.TransparentColor = System.Drawing.Color.Transparent Me.ImageList3.Images.SetKeyName(0, "") Me.ImageList3.Images.SetKeyName(1, "") Me.ImageList3.Images.SetKeyName(2, "") ' 'TabPage1 ' Me.TabPage1.Controls.Add(Me.TreeView2) Me.TabPage1.Controls.Add(Me.PnlDokumentDaten) Me.TabPage1.Controls.Add(Me.pnlzv) Me.TabPage1.Controls.Add(Me.pnlhostdiv) Me.TabPage1.Controls.Add(Me.pnluvm) Me.TabPage1.Controls.Add(Me.PnlDokumentart) Me.TabPage1.Controls.Add(Me.Panel3) Me.TabPage1.Controls.Add(Me.TreeView1) Me.TabPage1.Controls.Add(Me.TVHostDok) Me.TabPage1.Controls.Add(Me.Panel4) Me.TabPage1.Controls.Add(Me.PnlPartner) Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Name = "TabPage1" Me.TabPage1.Size = New System.Drawing.Size(605, 515) Me.TabPage1.TabIndex = 0 Me.TabPage1.Text = "Selektion / Sortierung" ' 'TreeView2 ' Me.TreeView2.Location = New System.Drawing.Point(24, 104) Me.TreeView2.Name = "TreeView2" Me.TreeView2.Size = New System.Drawing.Size(121, 97) Me.TreeView2.TabIndex = 12 ' 'PnlDokumentDaten ' Me.PnlDokumentDaten.Controls.Add(Me.cinklaltversant) Me.PnlDokumentDaten.Controls.Add(Me.TabControl2) Me.PnlDokumentDaten.Controls.Add(Me.cinklalt) Me.PnlDokumentDaten.Controls.Add(Me.cbmavip) Me.PnlDokumentDaten.Controls.Add(Me.Label8) Me.PnlDokumentDaten.Controls.Add(Me.Label7) Me.PnlDokumentDaten.Controls.Add(Me.Label6) Me.PnlDokumentDaten.Controls.Add(Me.Label5) Me.PnlDokumentDaten.Controls.Add(Me.cbd6) Me.PnlDokumentDaten.Controls.Add(Me.cbd4) Me.PnlDokumentDaten.Controls.Add(Me.cbd2) Me.PnlDokumentDaten.Controls.Add(Me.Label18) Me.PnlDokumentDaten.Controls.Add(Me.Label16) Me.PnlDokumentDaten.Controls.Add(Me.Label14) Me.PnlDokumentDaten.Controls.Add(Me.GroupBox10) Me.PnlDokumentDaten.Controls.Add(Me.Button1) Me.PnlDokumentDaten.Controls.Add(Me.Button2) Me.PnlDokumentDaten.Controls.Add(Me.Button3) Me.PnlDokumentDaten.Controls.Add(Me.Groupbox3) Me.PnlDokumentDaten.Location = New System.Drawing.Point(224, 8) Me.PnlDokumentDaten.Name = "PnlDokumentDaten" Me.PnlDokumentDaten.Size = New System.Drawing.Size(376, 496) Me.PnlDokumentDaten.TabIndex = 1 Me.PnlDokumentDaten.Visible = False ' 'cinklaltversant ' Me.cinklaltversant.Location = New System.Drawing.Point(16, 286) Me.cinklaltversant.Name = "cinklaltversant" Me.cinklaltversant.Size = New System.Drawing.Size(336, 24) Me.cinklaltversant.TabIndex = 89 Me.cinklaltversant.Text = "versandte, vor Abschluss gelöschte Dokumente" ' 'TabControl2 ' Me.TabControl2.Appearance = System.Windows.Forms.TabAppearance.FlatButtons Me.TabControl2.Controls.Add(Me.TabPage2) Me.TabControl2.Controls.Add(Me.TabPage3) Me.TabControl2.Controls.Add(Me.TabPage5) Me.TabControl2.Location = New System.Drawing.Point(16, 24) Me.TabControl2.Name = "TabControl2" Me.TabControl2.SelectedIndex = 0 Me.TabControl2.Size = New System.Drawing.Size(344, 208) Me.TabControl2.TabIndex = 86 ' 'TabPage2 ' Me.TabPage2.Controls.Add(Me.Label40) Me.TabPage2.Controls.Add(Me.txtdatum3) Me.TabPage2.Controls.Add(Me.Label17) Me.TabPage2.Controls.Add(Me.txtdatum4) Me.TabPage2.Controls.Add(Me.txtdatum6) Me.TabPage2.Controls.Add(Me.txtdatum2) Me.TabPage2.Controls.Add(Me.Button16) Me.TabPage2.Controls.Add(Me.cbrollend1) Me.TabPage2.Controls.Add(Me.Label15) Me.TabPage2.Controls.Add(Me.Button17) Me.TabPage2.Controls.Add(Me.Button15) Me.TabPage2.Controls.Add(Me.DateTimePicker3) Me.TabPage2.Controls.Add(Me.Button13) Me.TabPage2.Controls.Add(Me.Label23) Me.TabPage2.Controls.Add(Me.Label12) Me.TabPage2.Controls.Add(Me.Button14) Me.TabPage2.Controls.Add(Me.Button12) Me.TabPage2.Controls.Add(Me.cbrollend5) Me.TabPage2.Controls.Add(Me.cbrollend4) Me.TabPage2.Controls.Add(Me.cbrollend2) Me.TabPage2.Controls.Add(Me.datumtext5) Me.TabPage2.Controls.Add(Me.Label39) Me.TabPage2.Controls.Add(Me.Label13) Me.TabPage2.Controls.Add(Me.txtdatum1) Me.TabPage2.Controls.Add(Me.cbrollend6) Me.TabPage2.Controls.Add(Me.Label11) Me.TabPage2.Controls.Add(Me.cbrollend3) Me.TabPage2.Controls.Add(Me.Label10) Me.TabPage2.Controls.Add(Me.txtdatum5) Me.TabPage2.Controls.Add(Me.datumtext1) Me.TabPage2.Controls.Add(Me.datumtext2) Me.TabPage2.Controls.Add(Me.datumtext3) Me.TabPage2.Controls.Add(Me.datumtext4) Me.TabPage2.Controls.Add(Me.datumtext6) Me.TabPage2.Controls.Add(Me.DateTimePicker1) Me.TabPage2.Controls.Add(Me.DateTimePicker2) Me.TabPage2.Controls.Add(Me.DateTimePicker4) Me.TabPage2.Controls.Add(Me.DateTimePicker5) Me.TabPage2.Controls.Add(Me.DateTimePicker6) Me.TabPage2.Location = New System.Drawing.Point(4, 25) Me.TabPage2.Name = "TabPage2" Me.TabPage2.Size = New System.Drawing.Size(336, 179) Me.TabPage2.TabIndex = 0 Me.TabPage2.Text = "EDOKA-Dokumente" ' 'Label40 ' Me.Label40.Location = New System.Drawing.Point(72, 120) Me.Label40.Name = "Label40" Me.Label40.Size = New System.Drawing.Size(32, 23) Me.Label40.TabIndex = 63 Me.Label40.Text = "von" ' 'txtdatum3 ' Me.txtdatum3.BackColor = System.Drawing.Color.White Me.txtdatum3.Enabled = False Me.txtdatum3.ForeColor = System.Drawing.Color.Black Me.txtdatum3.Location = New System.Drawing.Point(112, 64) Me.txtdatum3.Name = "txtdatum3" Me.txtdatum3.ReadOnly = True Me.txtdatum3.Size = New System.Drawing.Size(79, 20) Me.txtdatum3.TabIndex = 56 ' 'Label17 ' Me.Label17.Location = New System.Drawing.Point(8, 120) Me.Label17.Name = "Label17" Me.Label17.Size = New System.Drawing.Size(72, 23) Me.Label17.TabIndex = 52 Me.Label17.Text = "Archivierung" ' 'txtdatum4 ' Me.txtdatum4.BackColor = System.Drawing.Color.White Me.txtdatum4.Enabled = False Me.txtdatum4.ForeColor = System.Drawing.Color.Black Me.txtdatum4.Location = New System.Drawing.Point(112, 88) Me.txtdatum4.Name = "txtdatum4" Me.txtdatum4.ReadOnly = True Me.txtdatum4.Size = New System.Drawing.Size(80, 20) Me.txtdatum4.TabIndex = 57 ' 'txtdatum6 ' Me.txtdatum6.BackColor = System.Drawing.Color.White Me.txtdatum6.Enabled = False Me.txtdatum6.ForeColor = System.Drawing.Color.Black Me.txtdatum6.Location = New System.Drawing.Point(112, 144) Me.txtdatum6.Name = "txtdatum6" Me.txtdatum6.ReadOnly = True Me.txtdatum6.Size = New System.Drawing.Size(80, 20) Me.txtdatum6.TabIndex = 59 ' 'txtdatum2 ' Me.txtdatum2.BackColor = System.Drawing.Color.White Me.txtdatum2.Enabled = False Me.txtdatum2.ForeColor = System.Drawing.Color.Black Me.txtdatum2.Location = New System.Drawing.Point(112, 32) Me.txtdatum2.Name = "txtdatum2" Me.txtdatum2.ReadOnly = True Me.txtdatum2.Size = New System.Drawing.Size(80, 20) Me.txtdatum2.TabIndex = 55 ' 'Button16 ' Me.Button16.Image = CType(resources.GetObject("Button16.Image"), System.Drawing.Image) Me.Button16.Location = New System.Drawing.Point(288, 120) Me.Button16.Name = "Button16" Me.Button16.Size = New System.Drawing.Size(32, 24) Me.Button16.TabIndex = 77 ' 'cbrollend1 ' Me.cbrollend1.Location = New System.Drawing.Point(216, 8) Me.cbrollend1.Name = "cbrollend1" Me.cbrollend1.Size = New System.Drawing.Size(72, 24) Me.cbrollend1.TabIndex = 57 Me.cbrollend1.Text = "(rollend)" ' 'Label15 ' Me.Label15.Location = New System.Drawing.Point(8, 64) Me.Label15.Name = "Label15" Me.Label15.Size = New System.Drawing.Size(64, 23) Me.Label15.TabIndex = 50 Me.Label15.Text = "Mutation" ' 'Button17 ' Me.Button17.Image = CType(resources.GetObject("Button17.Image"), System.Drawing.Image) Me.Button17.Location = New System.Drawing.Point(288, 144) Me.Button17.Name = "Button17" Me.Button17.Size = New System.Drawing.Size(32, 24) Me.Button17.TabIndex = 78 ' 'Button15 ' Me.Button15.Image = CType(resources.GetObject("Button15.Image"), System.Drawing.Image) Me.Button15.Location = New System.Drawing.Point(288, 88) Me.Button15.Name = "Button15" Me.Button15.Size = New System.Drawing.Size(32, 24) Me.Button15.TabIndex = 76 ' 'DateTimePicker3 ' Me.DateTimePicker3.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker3.Location = New System.Drawing.Point(112, 64) Me.DateTimePicker3.Name = "DateTimePicker3" Me.DateTimePicker3.Size = New System.Drawing.Size(98, 20) Me.DateTimePicker3.TabIndex = 44 Me.DateTimePicker3.TabStop = False Me.DateTimePicker3.Value = New Date(2004, 1, 14, 18, 49, 58, 734) ' 'Button13 ' Me.Button13.Image = CType(resources.GetObject("Button13.Image"), System.Drawing.Image) Me.Button13.Location = New System.Drawing.Point(288, 32) Me.Button13.Name = "Button13" Me.Button13.Size = New System.Drawing.Size(32, 24) Me.Button13.TabIndex = 74 ' 'Label23 ' Me.Label23.Location = New System.Drawing.Point(72, 64) Me.Label23.Name = "Label23" Me.Label23.Size = New System.Drawing.Size(32, 23) Me.Label23.TabIndex = 61 Me.Label23.Text = "von" ' 'Label12 ' Me.Label12.Location = New System.Drawing.Point(72, 88) Me.Label12.Name = "Label12" Me.Label12.Size = New System.Drawing.Size(32, 23) Me.Label12.TabIndex = 62 Me.Label12.Text = "bis" ' 'Button14 ' Me.Button14.Image = CType(resources.GetObject("Button14.Image"), System.Drawing.Image) Me.Button14.Location = New System.Drawing.Point(288, 64) Me.Button14.Name = "Button14" Me.Button14.Size = New System.Drawing.Size(32, 24) Me.Button14.TabIndex = 75 ' 'Button12 ' Me.Button12.Image = CType(resources.GetObject("Button12.Image"), System.Drawing.Image) Me.Button12.Location = New System.Drawing.Point(288, 8) Me.Button12.Name = "Button12" Me.Button12.Size = New System.Drawing.Size(32, 24) Me.Button12.TabIndex = 73 ' 'cbrollend5 ' Me.cbrollend5.Location = New System.Drawing.Point(216, 120) Me.cbrollend5.Name = "cbrollend5" Me.cbrollend5.Size = New System.Drawing.Size(72, 24) Me.cbrollend5.TabIndex = 67 Me.cbrollend5.Text = "(rollend)" ' 'cbrollend4 ' Me.cbrollend4.Location = New System.Drawing.Point(216, 88) Me.cbrollend4.Name = "cbrollend4" Me.cbrollend4.Size = New System.Drawing.Size(72, 24) Me.cbrollend4.TabIndex = 66 Me.cbrollend4.Text = "(rollend)" ' 'cbrollend2 ' Me.cbrollend2.Location = New System.Drawing.Point(216, 32) Me.cbrollend2.Name = "cbrollend2" Me.cbrollend2.Size = New System.Drawing.Size(72, 24) Me.cbrollend2.TabIndex = 58 Me.cbrollend2.Text = "(rollend)" ' 'datumtext5 ' Me.datumtext5.Location = New System.Drawing.Point(224, 120) Me.datumtext5.Name = "datumtext5" Me.datumtext5.Size = New System.Drawing.Size(100, 23) Me.datumtext5.TabIndex = 71 Me.datumtext5.Visible = False ' 'Label39 ' Me.Label39.Location = New System.Drawing.Point(72, 144) Me.Label39.Name = "Label39" Me.Label39.Size = New System.Drawing.Size(32, 23) Me.Label39.TabIndex = 64 Me.Label39.Text = "bis" ' 'Label13 ' Me.Label13.Location = New System.Drawing.Point(8, 8) Me.Label13.Name = "Label13" Me.Label13.Size = New System.Drawing.Size(56, 23) Me.Label13.TabIndex = 48 Me.Label13.Text = "Erstellung" ' 'txtdatum1 ' Me.txtdatum1.BackColor = System.Drawing.Color.White Me.txtdatum1.Enabled = False Me.txtdatum1.ForeColor = System.Drawing.Color.Black Me.txtdatum1.Location = New System.Drawing.Point(112, 8) Me.txtdatum1.Name = "txtdatum1" Me.txtdatum1.ReadOnly = True Me.txtdatum1.Size = New System.Drawing.Size(79, 20) Me.txtdatum1.TabIndex = 54 ' 'cbrollend6 ' Me.cbrollend6.Location = New System.Drawing.Point(216, 144) Me.cbrollend6.Name = "cbrollend6" Me.cbrollend6.Size = New System.Drawing.Size(72, 24) Me.cbrollend6.TabIndex = 68 Me.cbrollend6.Text = "(rollend)" ' 'Label11 ' Me.Label11.Location = New System.Drawing.Point(72, 32) Me.Label11.Name = "Label11" Me.Label11.Size = New System.Drawing.Size(32, 23) Me.Label11.TabIndex = 56 Me.Label11.Text = "bis" ' 'cbrollend3 ' Me.cbrollend3.Location = New System.Drawing.Point(216, 64) Me.cbrollend3.Name = "cbrollend3" Me.cbrollend3.Size = New System.Drawing.Size(72, 24) Me.cbrollend3.TabIndex = 65 Me.cbrollend3.Text = "(rollend)" ' 'Label10 ' Me.Label10.Location = New System.Drawing.Point(72, 8) Me.Label10.Name = "Label10" Me.Label10.Size = New System.Drawing.Size(32, 23) Me.Label10.TabIndex = 0 Me.Label10.Text = "von" ' 'txtdatum5 ' Me.txtdatum5.BackColor = System.Drawing.Color.White Me.txtdatum5.Enabled = False Me.txtdatum5.ForeColor = System.Drawing.Color.Black Me.txtdatum5.Location = New System.Drawing.Point(112, 120) Me.txtdatum5.Name = "txtdatum5" Me.txtdatum5.ReadOnly = True Me.txtdatum5.Size = New System.Drawing.Size(79, 20) Me.txtdatum5.TabIndex = 58 ' 'datumtext1 ' Me.datumtext1.Location = New System.Drawing.Point(224, 8) Me.datumtext1.Name = "datumtext1" Me.datumtext1.Size = New System.Drawing.Size(100, 23) Me.datumtext1.TabIndex = 59 Me.datumtext1.Visible = False ' 'datumtext2 ' Me.datumtext2.Location = New System.Drawing.Point(224, 32) Me.datumtext2.Name = "datumtext2" Me.datumtext2.Size = New System.Drawing.Size(100, 23) Me.datumtext2.TabIndex = 60 Me.datumtext2.Visible = False ' 'datumtext3 ' Me.datumtext3.Location = New System.Drawing.Point(224, 64) Me.datumtext3.Name = "datumtext3" Me.datumtext3.Size = New System.Drawing.Size(100, 23) Me.datumtext3.TabIndex = 69 Me.datumtext3.Visible = False ' 'datumtext4 ' Me.datumtext4.Location = New System.Drawing.Point(224, 88) Me.datumtext4.Name = "datumtext4" Me.datumtext4.Size = New System.Drawing.Size(100, 23) Me.datumtext4.TabIndex = 70 Me.datumtext4.Visible = False ' 'datumtext6 ' Me.datumtext6.Location = New System.Drawing.Point(224, 144) Me.datumtext6.Name = "datumtext6" Me.datumtext6.Size = New System.Drawing.Size(100, 23) Me.datumtext6.TabIndex = 72 Me.datumtext6.Visible = False ' 'DateTimePicker1 ' Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom Me.DateTimePicker1.Location = New System.Drawing.Point(112, 8) Me.DateTimePicker1.Name = "DateTimePicker1" Me.DateTimePicker1.Size = New System.Drawing.Size(96, 20) Me.DateTimePicker1.TabIndex = 42 Me.DateTimePicker1.TabStop = False Me.DateTimePicker1.Value = New Date(2004, 1, 14, 18, 49, 58, 750) ' 'DateTimePicker2 ' Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker2.Location = New System.Drawing.Point(112, 32) Me.DateTimePicker2.Name = "DateTimePicker2" Me.DateTimePicker2.Size = New System.Drawing.Size(96, 20) Me.DateTimePicker2.TabIndex = 43 Me.DateTimePicker2.TabStop = False Me.DateTimePicker2.Value = New Date(2004, 1, 14, 18, 49, 58, 750) ' 'DateTimePicker4 ' Me.DateTimePicker4.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker4.Location = New System.Drawing.Point(112, 88) Me.DateTimePicker4.Name = "DateTimePicker4" Me.DateTimePicker4.Size = New System.Drawing.Size(98, 20) Me.DateTimePicker4.TabIndex = 45 Me.DateTimePicker4.TabStop = False Me.DateTimePicker4.Value = New Date(2004, 1, 14, 18, 49, 58, 734) ' 'DateTimePicker5 ' Me.DateTimePicker5.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker5.Location = New System.Drawing.Point(112, 120) Me.DateTimePicker5.Name = "DateTimePicker5" Me.DateTimePicker5.Size = New System.Drawing.Size(98, 20) Me.DateTimePicker5.TabIndex = 46 Me.DateTimePicker5.TabStop = False Me.DateTimePicker5.Value = New Date(2004, 1, 14, 18, 49, 58, 703) ' 'DateTimePicker6 ' Me.DateTimePicker6.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker6.Location = New System.Drawing.Point(112, 144) Me.DateTimePicker6.Name = "DateTimePicker6" Me.DateTimePicker6.Size = New System.Drawing.Size(98, 20) Me.DateTimePicker6.TabIndex = 47 Me.DateTimePicker6.TabStop = False Me.DateTimePicker6.Value = New Date(2004, 1, 14, 18, 49, 58, 703) ' 'TabPage3 ' Me.TabPage3.Controls.Add(Me.txtdatum3zv) Me.TabPage3.Controls.Add(Me.txtdatum4zv) Me.TabPage3.Controls.Add(Me.txtdatum2zv) Me.TabPage3.Controls.Add(Me.cbzvrollend1) Me.TabPage3.Controls.Add(Me.Label26) Me.TabPage3.Controls.Add(Me.Button21) Me.TabPage3.Controls.Add(Me.DateTimePicker13) Me.TabPage3.Controls.Add(Me.Button22) Me.TabPage3.Controls.Add(Me.Label28) Me.TabPage3.Controls.Add(Me.Label41) Me.TabPage3.Controls.Add(Me.Button23) Me.TabPage3.Controls.Add(Me.Button24) Me.TabPage3.Controls.Add(Me.cbzvrollend4) Me.TabPage3.Controls.Add(Me.cbzvrollend2) Me.TabPage3.Controls.Add(Me.Label42) Me.TabPage3.Controls.Add(Me.txtdatum1zv) Me.TabPage3.Controls.Add(Me.Label43) Me.TabPage3.Controls.Add(Me.cbzvrollend3) Me.TabPage3.Controls.Add(Me.Label44) Me.TabPage3.Controls.Add(Me.textdatum1zv) Me.TabPage3.Controls.Add(Me.textdatum2zv) Me.TabPage3.Controls.Add(Me.textdatum3zv) Me.TabPage3.Controls.Add(Me.textdatum4zv) Me.TabPage3.Controls.Add(Me.DateTimePicker14) Me.TabPage3.Controls.Add(Me.DateTimePicker15) Me.TabPage3.Controls.Add(Me.DateTimePicker16) Me.TabPage3.Location = New System.Drawing.Point(4, 25) Me.TabPage3.Name = "TabPage3" Me.TabPage3.Size = New System.Drawing.Size(336, 179) Me.TabPage3.TabIndex = 1 Me.TabPage3.Text = "ZV-Belege" ' 'txtdatum3zv ' Me.txtdatum3zv.BackColor = System.Drawing.Color.White Me.txtdatum3zv.Enabled = False Me.txtdatum3zv.ForeColor = System.Drawing.Color.Black Me.txtdatum3zv.Location = New System.Drawing.Point(112, 64) Me.txtdatum3zv.Name = "txtdatum3zv" Me.txtdatum3zv.ReadOnly = True Me.txtdatum3zv.Size = New System.Drawing.Size(79, 20) Me.txtdatum3zv.TabIndex = 86 ' 'txtdatum4zv ' Me.txtdatum4zv.BackColor = System.Drawing.Color.White Me.txtdatum4zv.Enabled = False Me.txtdatum4zv.ForeColor = System.Drawing.Color.Black Me.txtdatum4zv.Location = New System.Drawing.Point(112, 88) Me.txtdatum4zv.Name = "txtdatum4zv" Me.txtdatum4zv.ReadOnly = True Me.txtdatum4zv.Size = New System.Drawing.Size(80, 20) Me.txtdatum4zv.TabIndex = 88 ' 'txtdatum2zv ' Me.txtdatum2zv.BackColor = System.Drawing.Color.White Me.txtdatum2zv.Enabled = False Me.txtdatum2zv.ForeColor = System.Drawing.Color.Black Me.txtdatum2zv.Location = New System.Drawing.Point(112, 32) Me.txtdatum2zv.Name = "txtdatum2zv" Me.txtdatum2zv.ReadOnly = True Me.txtdatum2zv.Size = New System.Drawing.Size(80, 20) Me.txtdatum2zv.TabIndex = 85 ' 'cbzvrollend1 ' Me.cbzvrollend1.Location = New System.Drawing.Point(216, 8) Me.cbzvrollend1.Name = "cbzvrollend1" Me.cbzvrollend1.Size = New System.Drawing.Size(72, 24) Me.cbzvrollend1.TabIndex = 89 Me.cbzvrollend1.Text = "(rollend)" ' 'Label26 ' Me.Label26.Location = New System.Drawing.Point(8, 64) Me.Label26.Name = "Label26" Me.Label26.Size = New System.Drawing.Size(64, 48) Me.Label26.TabIndex = 83 Me.Label26.Text = "Archivie-rung" ' 'Button21 ' Me.Button21.Image = CType(resources.GetObject("Button21.Image"), System.Drawing.Image) Me.Button21.Location = New System.Drawing.Point(288, 88) Me.Button21.Name = "Button21" Me.Button21.Size = New System.Drawing.Size(32, 24) Me.Button21.TabIndex = 102 ' 'DateTimePicker13 ' Me.DateTimePicker13.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker13.Location = New System.Drawing.Point(112, 64) Me.DateTimePicker13.Name = "DateTimePicker13" Me.DateTimePicker13.Size = New System.Drawing.Size(98, 20) Me.DateTimePicker13.TabIndex = 80 Me.DateTimePicker13.TabStop = False Me.DateTimePicker13.Value = New Date(2004, 1, 14, 18, 49, 58, 734) ' 'Button22 ' Me.Button22.Image = CType(resources.GetObject("Button22.Image"), System.Drawing.Image) Me.Button22.Location = New System.Drawing.Point(288, 32) Me.Button22.Name = "Button22" Me.Button22.Size = New System.Drawing.Size(32, 24) Me.Button22.TabIndex = 100 ' 'Label28 ' Me.Label28.Location = New System.Drawing.Point(72, 64) Me.Label28.Name = "Label28" Me.Label28.Size = New System.Drawing.Size(32, 23) Me.Label28.TabIndex = 93 Me.Label28.Text = "von" ' 'Label41 ' Me.Label41.Location = New System.Drawing.Point(72, 88) Me.Label41.Name = "Label41" Me.Label41.Size = New System.Drawing.Size(32, 23) Me.Label41.TabIndex = 94 Me.Label41.Text = "bis" ' 'Button23 ' Me.Button23.Image = CType(resources.GetObject("Button23.Image"), System.Drawing.Image) Me.Button23.Location = New System.Drawing.Point(288, 64) Me.Button23.Name = "Button23" Me.Button23.Size = New System.Drawing.Size(32, 24) Me.Button23.TabIndex = 101 ' 'Button24 ' Me.Button24.Image = CType(resources.GetObject("Button24.Image"), System.Drawing.Image) Me.Button24.Location = New System.Drawing.Point(288, 8) Me.Button24.Name = "Button24" Me.Button24.Size = New System.Drawing.Size(32, 24) Me.Button24.TabIndex = 99 ' 'cbzvrollend4 ' Me.cbzvrollend4.Location = New System.Drawing.Point(216, 88) Me.cbzvrollend4.Name = "cbzvrollend4" Me.cbzvrollend4.Size = New System.Drawing.Size(72, 24) Me.cbzvrollend4.TabIndex = 96 Me.cbzvrollend4.Text = "(rollend)" ' 'cbzvrollend2 ' Me.cbzvrollend2.Location = New System.Drawing.Point(216, 32) Me.cbzvrollend2.Name = "cbzvrollend2" Me.cbzvrollend2.Size = New System.Drawing.Size(72, 24) Me.cbzvrollend2.TabIndex = 90 Me.cbzvrollend2.Text = "(rollend)" ' 'Label42 ' Me.Label42.Location = New System.Drawing.Point(8, 8) Me.Label42.Name = "Label42" Me.Label42.Size = New System.Drawing.Size(56, 23) Me.Label42.TabIndex = 82 Me.Label42.Text = "Valuta" ' 'txtdatum1zv ' Me.txtdatum1zv.BackColor = System.Drawing.Color.White Me.txtdatum1zv.Enabled = False Me.txtdatum1zv.ForeColor = System.Drawing.Color.Black Me.txtdatum1zv.Location = New System.Drawing.Point(112, 8) Me.txtdatum1zv.Name = "txtdatum1zv" Me.txtdatum1zv.ReadOnly = True Me.txtdatum1zv.Size = New System.Drawing.Size(79, 20) Me.txtdatum1zv.TabIndex = 84 ' 'Label43 ' Me.Label43.Location = New System.Drawing.Point(72, 32) Me.Label43.Name = "Label43" Me.Label43.Size = New System.Drawing.Size(32, 23) Me.Label43.TabIndex = 87 Me.Label43.Text = "bis" ' 'cbzvrollend3 ' Me.cbzvrollend3.Location = New System.Drawing.Point(216, 64) Me.cbzvrollend3.Name = "cbzvrollend3" Me.cbzvrollend3.Size = New System.Drawing.Size(72, 24) Me.cbzvrollend3.TabIndex = 95 Me.cbzvrollend3.Text = "(rollend)" ' 'Label44 ' Me.Label44.Location = New System.Drawing.Point(72, 8) Me.Label44.Name = "Label44" Me.Label44.Size = New System.Drawing.Size(32, 23) Me.Label44.TabIndex = 77 Me.Label44.Text = "von" ' 'textdatum1zv ' Me.textdatum1zv.Location = New System.Drawing.Point(224, 8) Me.textdatum1zv.Name = "textdatum1zv" Me.textdatum1zv.Size = New System.Drawing.Size(100, 23) Me.textdatum1zv.TabIndex = 91 Me.textdatum1zv.Visible = False ' 'textdatum2zv ' Me.textdatum2zv.Location = New System.Drawing.Point(224, 32) Me.textdatum2zv.Name = "textdatum2zv" Me.textdatum2zv.Size = New System.Drawing.Size(100, 23) Me.textdatum2zv.TabIndex = 92 Me.textdatum2zv.Visible = False ' 'textdatum3zv ' Me.textdatum3zv.Location = New System.Drawing.Point(224, 64) Me.textdatum3zv.Name = "textdatum3zv" Me.textdatum3zv.Size = New System.Drawing.Size(100, 23) Me.textdatum3zv.TabIndex = 97 Me.textdatum3zv.Visible = False ' 'textdatum4zv ' Me.textdatum4zv.Location = New System.Drawing.Point(224, 88) Me.textdatum4zv.Name = "textdatum4zv" Me.textdatum4zv.Size = New System.Drawing.Size(100, 23) Me.textdatum4zv.TabIndex = 98 Me.textdatum4zv.Visible = False ' 'DateTimePicker14 ' Me.DateTimePicker14.Format = System.Windows.Forms.DateTimePickerFormat.Custom Me.DateTimePicker14.Location = New System.Drawing.Point(112, 8) Me.DateTimePicker14.Name = "DateTimePicker14" Me.DateTimePicker14.Size = New System.Drawing.Size(96, 20) Me.DateTimePicker14.TabIndex = 78 Me.DateTimePicker14.TabStop = False Me.DateTimePicker14.Value = New Date(2004, 1, 14, 18, 49, 58, 750) ' 'DateTimePicker15 ' Me.DateTimePicker15.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker15.Location = New System.Drawing.Point(112, 32) Me.DateTimePicker15.Name = "DateTimePicker15" Me.DateTimePicker15.Size = New System.Drawing.Size(96, 20) Me.DateTimePicker15.TabIndex = 79 Me.DateTimePicker15.TabStop = False Me.DateTimePicker15.Value = New Date(2004, 1, 14, 18, 49, 58, 750) ' 'DateTimePicker16 ' Me.DateTimePicker16.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker16.Location = New System.Drawing.Point(112, 88) Me.DateTimePicker16.Name = "DateTimePicker16" Me.DateTimePicker16.Size = New System.Drawing.Size(98, 20) Me.DateTimePicker16.TabIndex = 81 Me.DateTimePicker16.TabStop = False Me.DateTimePicker16.Value = New Date(2004, 1, 14, 18, 49, 58, 734) ' 'TabPage5 ' Me.TabPage5.Controls.Add(Me.txtdatum4uvm) Me.TabPage5.Controls.Add(Me.txtdatum3uvm) Me.TabPage5.Controls.Add(Me.txtdatum2uvm) Me.TabPage5.Controls.Add(Me.cbuvmrollend1) Me.TabPage5.Controls.Add(Me.Label49) Me.TabPage5.Controls.Add(Me.Button25) Me.TabPage5.Controls.Add(Me.DateTimePicker17) Me.TabPage5.Controls.Add(Me.Button26) Me.TabPage5.Controls.Add(Me.Label50) Me.TabPage5.Controls.Add(Me.Label51) Me.TabPage5.Controls.Add(Me.Button27) Me.TabPage5.Controls.Add(Me.Button28) Me.TabPage5.Controls.Add(Me.cbuvmrollend4) Me.TabPage5.Controls.Add(Me.cbuvmrollend2) Me.TabPage5.Controls.Add(Me.Label52) Me.TabPage5.Controls.Add(Me.txtdatum1uvm) Me.TabPage5.Controls.Add(Me.Label53) Me.TabPage5.Controls.Add(Me.cbuvmrollend3) Me.TabPage5.Controls.Add(Me.Label54) Me.TabPage5.Controls.Add(Me.textdatum1uvm) Me.TabPage5.Controls.Add(Me.textdatum2uvm) Me.TabPage5.Controls.Add(Me.textdatum3uvm) Me.TabPage5.Controls.Add(Me.textdatum4uvm) Me.TabPage5.Controls.Add(Me.DateTimePicker18) Me.TabPage5.Controls.Add(Me.DateTimePicker19) Me.TabPage5.Controls.Add(Me.DateTimePicker20) Me.TabPage5.Location = New System.Drawing.Point(4, 25) Me.TabPage5.Name = "TabPage5" Me.TabPage5.Size = New System.Drawing.Size(336, 179) Me.TabPage5.TabIndex = 2 Me.TabPage5.Text = "Basis-Verträge" ' 'txtdatum4uvm ' Me.txtdatum4uvm.BackColor = System.Drawing.Color.White Me.txtdatum4uvm.Enabled = False Me.txtdatum4uvm.ForeColor = System.Drawing.Color.Black Me.txtdatum4uvm.Location = New System.Drawing.Point(112, 88) Me.txtdatum4uvm.Name = "txtdatum4uvm" Me.txtdatum4uvm.ReadOnly = True Me.txtdatum4uvm.Size = New System.Drawing.Size(80, 20) Me.txtdatum4uvm.TabIndex = 88 ' 'txtdatum3uvm ' Me.txtdatum3uvm.BackColor = System.Drawing.Color.White Me.txtdatum3uvm.Enabled = False Me.txtdatum3uvm.ForeColor = System.Drawing.Color.Black Me.txtdatum3uvm.Location = New System.Drawing.Point(112, 64) Me.txtdatum3uvm.Name = "txtdatum3uvm" Me.txtdatum3uvm.ReadOnly = True Me.txtdatum3uvm.Size = New System.Drawing.Size(79, 20) Me.txtdatum3uvm.TabIndex = 86 ' 'txtdatum2uvm ' Me.txtdatum2uvm.BackColor = System.Drawing.Color.White Me.txtdatum2uvm.Enabled = False Me.txtdatum2uvm.ForeColor = System.Drawing.Color.Black Me.txtdatum2uvm.Location = New System.Drawing.Point(112, 32) Me.txtdatum2uvm.Name = "txtdatum2uvm" Me.txtdatum2uvm.ReadOnly = True Me.txtdatum2uvm.Size = New System.Drawing.Size(80, 20) Me.txtdatum2uvm.TabIndex = 85 ' 'cbuvmrollend1 ' Me.cbuvmrollend1.Location = New System.Drawing.Point(216, 8) Me.cbuvmrollend1.Name = "cbuvmrollend1" Me.cbuvmrollend1.Size = New System.Drawing.Size(72, 24) Me.cbuvmrollend1.TabIndex = 89 Me.cbuvmrollend1.Text = "(rollend)" ' 'Label49 ' Me.Label49.Location = New System.Drawing.Point(8, 64) Me.Label49.Name = "Label49" Me.Label49.Size = New System.Drawing.Size(64, 32) Me.Label49.TabIndex = 83 Me.Label49.Text = "Archivie-rung" ' 'Button25 ' Me.Button25.Image = CType(resources.GetObject("Button25.Image"), System.Drawing.Image) Me.Button25.Location = New System.Drawing.Point(288, 88) Me.Button25.Name = "Button25" Me.Button25.Size = New System.Drawing.Size(32, 24) Me.Button25.TabIndex = 102 ' 'DateTimePicker17 ' Me.DateTimePicker17.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker17.Location = New System.Drawing.Point(112, 64) Me.DateTimePicker17.Name = "DateTimePicker17" Me.DateTimePicker17.Size = New System.Drawing.Size(98, 20) Me.DateTimePicker17.TabIndex = 80 Me.DateTimePicker17.TabStop = False Me.DateTimePicker17.Value = New Date(2004, 1, 14, 18, 49, 58, 734) ' 'Button26 ' Me.Button26.Image = CType(resources.GetObject("Button26.Image"), System.Drawing.Image) Me.Button26.Location = New System.Drawing.Point(288, 32) Me.Button26.Name = "Button26" Me.Button26.Size = New System.Drawing.Size(32, 24) Me.Button26.TabIndex = 100 ' 'Label50 ' Me.Label50.Location = New System.Drawing.Point(72, 64) Me.Label50.Name = "Label50" Me.Label50.Size = New System.Drawing.Size(32, 23) Me.Label50.TabIndex = 93 Me.Label50.Text = "von" ' 'Label51 ' Me.Label51.Location = New System.Drawing.Point(72, 88) Me.Label51.Name = "Label51" Me.Label51.Size = New System.Drawing.Size(32, 23) Me.Label51.TabIndex = 94 Me.Label51.Text = "bis" ' 'Button27 ' Me.Button27.Image = CType(resources.GetObject("Button27.Image"), System.Drawing.Image) Me.Button27.Location = New System.Drawing.Point(288, 64) Me.Button27.Name = "Button27" Me.Button27.Size = New System.Drawing.Size(32, 24) Me.Button27.TabIndex = 101 ' 'Button28 ' Me.Button28.Image = CType(resources.GetObject("Button28.Image"), System.Drawing.Image) Me.Button28.Location = New System.Drawing.Point(288, 8) Me.Button28.Name = "Button28" Me.Button28.Size = New System.Drawing.Size(32, 24) Me.Button28.TabIndex = 99 ' 'cbuvmrollend4 ' Me.cbuvmrollend4.Location = New System.Drawing.Point(216, 88) Me.cbuvmrollend4.Name = "cbuvmrollend4" Me.cbuvmrollend4.Size = New System.Drawing.Size(72, 24) Me.cbuvmrollend4.TabIndex = 96 Me.cbuvmrollend4.Text = "(rollend)" ' 'cbuvmrollend2 ' Me.cbuvmrollend2.Location = New System.Drawing.Point(216, 32) Me.cbuvmrollend2.Name = "cbuvmrollend2" Me.cbuvmrollend2.Size = New System.Drawing.Size(72, 24) Me.cbuvmrollend2.TabIndex = 90 Me.cbuvmrollend2.Text = "(rollend)" ' 'Label52 ' Me.Label52.Location = New System.Drawing.Point(8, 8) Me.Label52.Name = "Label52" Me.Label52.Size = New System.Drawing.Size(56, 23) Me.Label52.TabIndex = 82 Me.Label52.Text = "Erstellung" ' 'txtdatum1uvm ' Me.txtdatum1uvm.BackColor = System.Drawing.Color.White Me.txtdatum1uvm.Enabled = False Me.txtdatum1uvm.ForeColor = System.Drawing.Color.Black Me.txtdatum1uvm.Location = New System.Drawing.Point(112, 8) Me.txtdatum1uvm.Name = "txtdatum1uvm" Me.txtdatum1uvm.ReadOnly = True Me.txtdatum1uvm.Size = New System.Drawing.Size(79, 20) Me.txtdatum1uvm.TabIndex = 84 ' 'Label53 ' Me.Label53.Location = New System.Drawing.Point(72, 32) Me.Label53.Name = "Label53" Me.Label53.Size = New System.Drawing.Size(32, 23) Me.Label53.TabIndex = 87 Me.Label53.Text = "bis" ' 'cbuvmrollend3 ' Me.cbuvmrollend3.Location = New System.Drawing.Point(216, 64) Me.cbuvmrollend3.Name = "cbuvmrollend3" Me.cbuvmrollend3.Size = New System.Drawing.Size(72, 24) Me.cbuvmrollend3.TabIndex = 95 Me.cbuvmrollend3.Text = "(rollend)" ' 'Label54 ' Me.Label54.Location = New System.Drawing.Point(72, 8) Me.Label54.Name = "Label54" Me.Label54.Size = New System.Drawing.Size(32, 23) Me.Label54.TabIndex = 77 Me.Label54.Text = "von" ' 'textdatum1uvm ' Me.textdatum1uvm.Location = New System.Drawing.Point(224, 8) Me.textdatum1uvm.Name = "textdatum1uvm" Me.textdatum1uvm.Size = New System.Drawing.Size(100, 23) Me.textdatum1uvm.TabIndex = 91 Me.textdatum1uvm.Visible = False ' 'textdatum2uvm ' Me.textdatum2uvm.Location = New System.Drawing.Point(224, 32) Me.textdatum2uvm.Name = "textdatum2uvm" Me.textdatum2uvm.Size = New System.Drawing.Size(100, 23) Me.textdatum2uvm.TabIndex = 92 Me.textdatum2uvm.Visible = False ' 'textdatum3uvm ' Me.textdatum3uvm.Location = New System.Drawing.Point(224, 64) Me.textdatum3uvm.Name = "textdatum3uvm" Me.textdatum3uvm.Size = New System.Drawing.Size(100, 23) Me.textdatum3uvm.TabIndex = 97 Me.textdatum3uvm.Visible = False ' 'textdatum4uvm ' Me.textdatum4uvm.Location = New System.Drawing.Point(224, 88) Me.textdatum4uvm.Name = "textdatum4uvm" Me.textdatum4uvm.Size = New System.Drawing.Size(100, 23) Me.textdatum4uvm.TabIndex = 98 Me.textdatum4uvm.Visible = False ' 'DateTimePicker18 ' Me.DateTimePicker18.Format = System.Windows.Forms.DateTimePickerFormat.Custom Me.DateTimePicker18.Location = New System.Drawing.Point(112, 8) Me.DateTimePicker18.Name = "DateTimePicker18" Me.DateTimePicker18.Size = New System.Drawing.Size(96, 20) Me.DateTimePicker18.TabIndex = 78 Me.DateTimePicker18.TabStop = False Me.DateTimePicker18.Value = New Date(2004, 1, 14, 18, 49, 58, 750) ' 'DateTimePicker19 ' Me.DateTimePicker19.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker19.Location = New System.Drawing.Point(112, 32) Me.DateTimePicker19.Name = "DateTimePicker19" Me.DateTimePicker19.Size = New System.Drawing.Size(96, 20) Me.DateTimePicker19.TabIndex = 79 Me.DateTimePicker19.TabStop = False Me.DateTimePicker19.Value = New Date(2004, 1, 14, 18, 49, 58, 750) ' 'DateTimePicker20 ' Me.DateTimePicker20.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker20.Location = New System.Drawing.Point(112, 88) Me.DateTimePicker20.Name = "DateTimePicker20" Me.DateTimePicker20.Size = New System.Drawing.Size(98, 20) Me.DateTimePicker20.TabIndex = 81 Me.DateTimePicker20.TabStop = False Me.DateTimePicker20.Value = New Date(2004, 1, 14, 18, 49, 58, 734) ' 'cinklalt ' Me.cinklalt.Location = New System.Drawing.Point(16, 264) Me.cinklalt.Name = "cinklalt" Me.cinklalt.Size = New System.Drawing.Size(336, 24) Me.cinklalt.TabIndex = 84 Me.cinklalt.Text = "nach Abschluss gelöschte oder aufgehobene Dokumente" ' 'cbmavip ' Me.cbmavip.Location = New System.Drawing.Point(16, 248) Me.cbmavip.Name = "cbmavip" Me.cbmavip.Size = New System.Drawing.Size(264, 24) Me.cbmavip.TabIndex = 82 Me.cbmavip.Text = "Partnerselektion inkl. Mitarbeiter- und VIP" Me.cbmavip.Visible = False ' 'Label8 ' Me.Label8.Location = New System.Drawing.Point(256, 344) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(40, 23) Me.Label8.TabIndex = 70 Me.Label8.Text = "Tagen" Me.Label8.Visible = False ' 'Label7 ' Me.Label7.Location = New System.Drawing.Point(256, 320) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(40, 23) Me.Label7.TabIndex = 69 Me.Label7.Text = "Tagen" Me.Label7.Visible = False ' 'Label6 ' Me.Label6.Location = New System.Drawing.Point(32, 344) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(160, 23) Me.Label6.TabIndex = 67 Me.Label6.Text = "Mutationsdatum in den letzen " Me.Label6.Visible = False ' 'Label5 ' Me.Label5.Location = New System.Drawing.Point(32, 320) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(160, 23) Me.Label5.TabIndex = 66 Me.Label5.Text = "Erstellungsdatum in den letzen" Me.Label5.Visible = False ' 'cbd6 ' Me.cbd6.Location = New System.Drawing.Point(16, 464) Me.cbd6.Name = "cbd6" Me.cbd6.Size = New System.Drawing.Size(16, 24) Me.cbd6.TabIndex = 64 Me.cbd6.Visible = False ' 'cbd4 ' Me.cbd4.Location = New System.Drawing.Point(16, 440) Me.cbd4.Name = "cbd4" Me.cbd4.Size = New System.Drawing.Size(16, 24) Me.cbd4.TabIndex = 62 Me.cbd4.Visible = False ' 'cbd2 ' Me.cbd2.Location = New System.Drawing.Point(16, 416) Me.cbd2.Name = "cbd2" Me.cbd2.Size = New System.Drawing.Size(16, 24) Me.cbd2.TabIndex = 60 Me.cbd2.Visible = False ' 'Label18 ' Me.Label18.Location = New System.Drawing.Point(48, 464) Me.Label18.Name = "Label18" Me.Label18.Size = New System.Drawing.Size(100, 23) Me.Label18.TabIndex = 53 Me.Label18.Text = "Archivierung bis" Me.Label18.Visible = False ' 'Label16 ' Me.Label16.Location = New System.Drawing.Point(48, 440) Me.Label16.Name = "Label16" Me.Label16.Size = New System.Drawing.Size(96, 23) Me.Label16.TabIndex = 51 Me.Label16.Text = "Mutation bis" Me.Label16.Visible = False ' 'Label14 ' Me.Label14.Location = New System.Drawing.Point(48, 416) Me.Label14.Name = "Label14" Me.Label14.Size = New System.Drawing.Size(96, 23) Me.Label14.TabIndex = 49 Me.Label14.Text = "Erstellung bis" Me.Label14.Visible = False ' 'GroupBox10 ' Me.GroupBox10.BackColor = System.Drawing.Color.Transparent Me.GroupBox10.Location = New System.Drawing.Point(8, 248) Me.GroupBox10.Name = "GroupBox10" Me.GroupBox10.Size = New System.Drawing.Size(360, 64) Me.GroupBox10.TabIndex = 85 Me.GroupBox10.TabStop = False Me.GroupBox10.Text = "Datenselektion" ' 'Button1 ' Me.Button1.Location = New System.Drawing.Point(344, 48) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(16, 16) Me.Button1.TabIndex = 74 ' 'Button2 ' Me.Button2.Location = New System.Drawing.Point(344, 88) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(16, 16) Me.Button2.TabIndex = 75 ' 'Button3 ' Me.Button3.Location = New System.Drawing.Point(344, 136) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(16, 16) Me.Button3.TabIndex = 76 ' 'Groupbox3 ' Me.Groupbox3.Location = New System.Drawing.Point(8, 8) Me.Groupbox3.Name = "Groupbox3" Me.Groupbox3.Size = New System.Drawing.Size(360, 232) Me.Groupbox3.TabIndex = 87 Me.Groupbox3.TabStop = False Me.Groupbox3.Text = "Datum-Selektion" ' 'pnlzv ' Me.pnlzv.Controls.Add(Me.btnzvzahlungsart) Me.pnlzv.Controls.Add(Me.Label62) Me.pnlzv.Controls.Add(Me.txtzvzahlungsart) Me.pnlzv.Controls.Add(Me.btnzvverarbeitungsart) Me.pnlzv.Controls.Add(Me.Label61) Me.pnlzv.Controls.Add(Me.txtzvverarbeitungsart) Me.pnlzv.Controls.Add(Me.btnzvswift) Me.pnlzv.Controls.Add(Me.Label60) Me.pnlzv.Controls.Add(Me.txtzvswift) Me.pnlzv.Controls.Add(Me.btnzvreferenz) Me.pnlzv.Controls.Add(Me.Label59) Me.pnlzv.Controls.Add(Me.txtzvreferenznr) Me.pnlzv.Controls.Add(Me.btnzvposten) Me.pnlzv.Controls.Add(Me.Label58) Me.pnlzv.Controls.Add(Me.txtzvpostennr) Me.pnlzv.Controls.Add(Me.btnzvpcnr) Me.pnlzv.Controls.Add(Me.Label57) Me.pnlzv.Controls.Add(Me.txtzvpcnr) Me.pnlzv.Controls.Add(Me.btnzvbeguenstiger) Me.pnlzv.Controls.Add(Me.Label56) Me.pnlzv.Controls.Add(Me.txtzvbeguenstigter) Me.pnlzv.Controls.Add(Me.btnzviso) Me.pnlzv.Controls.Add(Me.Label55) Me.pnlzv.Controls.Add(Me.txtzviso) Me.pnlzv.Controls.Add(Me.btnzvclearing) Me.pnlzv.Controls.Add(Me.Label48) Me.pnlzv.Controls.Add(Me.txtzvclearingnr) Me.pnlzv.Controls.Add(Me.btnzvbetrag) Me.pnlzv.Controls.Add(Me.Label47) Me.pnlzv.Controls.Add(Me.txtzvbetrag) Me.pnlzv.Controls.Add(Me.btnzvauftraggeber) Me.pnlzv.Controls.Add(Me.Label46) Me.pnlzv.Controls.Add(Me.txtzvauftraggeber) Me.pnlzv.Controls.Add(Me.btnzvauftragsnr) Me.pnlzv.Controls.Add(Me.Label63) Me.pnlzv.Controls.Add(Me.txtzvauftragsnr) Me.pnlzv.Controls.Add(Me.GroupBox13) Me.pnlzv.Location = New System.Drawing.Point(224, 8) Me.pnlzv.Name = "pnlzv" Me.pnlzv.Size = New System.Drawing.Size(376, 504) Me.pnlzv.TabIndex = 11 ' 'btnzvzahlungsart ' Me.btnzvzahlungsart.Location = New System.Drawing.Point(320, 384) Me.btnzvzahlungsart.Name = "btnzvzahlungsart" Me.btnzvzahlungsart.Size = New System.Drawing.Size(32, 24) Me.btnzvzahlungsart.TabIndex = 35 Me.btnzvzahlungsart.Text = "OK" ' 'Label62 ' Me.Label62.Location = New System.Drawing.Point(16, 384) Me.Label62.Name = "Label62" Me.Label62.Size = New System.Drawing.Size(100, 23) Me.Label62.TabIndex = 34 Me.Label62.Text = "Zahlungsart" ' 'txtzvzahlungsart ' Me.txtzvzahlungsart.Location = New System.Drawing.Point(120, 384) Me.txtzvzahlungsart.Name = "txtzvzahlungsart" Me.txtzvzahlungsart.Size = New System.Drawing.Size(192, 20) Me.txtzvzahlungsart.TabIndex = 33 ' 'btnzvverarbeitungsart ' Me.btnzvverarbeitungsart.Location = New System.Drawing.Point(320, 352) Me.btnzvverarbeitungsart.Name = "btnzvverarbeitungsart" Me.btnzvverarbeitungsart.Size = New System.Drawing.Size(32, 24) Me.btnzvverarbeitungsart.TabIndex = 32 Me.btnzvverarbeitungsart.Text = "OK" ' 'Label61 ' Me.Label61.Location = New System.Drawing.Point(16, 352) Me.Label61.Name = "Label61" Me.Label61.Size = New System.Drawing.Size(100, 23) Me.Label61.TabIndex = 31 Me.Label61.Text = "Verarbeitungsart" ' 'txtzvverarbeitungsart ' Me.txtzvverarbeitungsart.Location = New System.Drawing.Point(120, 352) Me.txtzvverarbeitungsart.Name = "txtzvverarbeitungsart" Me.txtzvverarbeitungsart.Size = New System.Drawing.Size(192, 20) Me.txtzvverarbeitungsart.TabIndex = 30 ' 'btnzvswift ' Me.btnzvswift.Location = New System.Drawing.Point(320, 320) Me.btnzvswift.Name = "btnzvswift" Me.btnzvswift.Size = New System.Drawing.Size(32, 24) Me.btnzvswift.TabIndex = 29 Me.btnzvswift.Text = "OK" ' 'Label60 ' Me.Label60.Location = New System.Drawing.Point(16, 320) Me.Label60.Name = "Label60" Me.Label60.Size = New System.Drawing.Size(100, 23) Me.Label60.TabIndex = 28 Me.Label60.Text = "SWIFT-Adresse" ' 'txtzvswift ' Me.txtzvswift.Location = New System.Drawing.Point(120, 320) Me.txtzvswift.Name = "txtzvswift" Me.txtzvswift.Size = New System.Drawing.Size(192, 20) Me.txtzvswift.TabIndex = 27 ' 'btnzvreferenz ' Me.btnzvreferenz.Location = New System.Drawing.Point(320, 288) Me.btnzvreferenz.Name = "btnzvreferenz" Me.btnzvreferenz.Size = New System.Drawing.Size(32, 24) Me.btnzvreferenz.TabIndex = 26 Me.btnzvreferenz.Text = "OK" ' 'Label59 ' Me.Label59.Location = New System.Drawing.Point(16, 288) Me.Label59.Name = "Label59" Me.Label59.Size = New System.Drawing.Size(100, 23) Me.Label59.TabIndex = 25 Me.Label59.Text = "Referenz-Nr" ' 'txtzvreferenznr ' Me.txtzvreferenznr.Location = New System.Drawing.Point(120, 288) Me.txtzvreferenznr.Name = "txtzvreferenznr" Me.txtzvreferenznr.Size = New System.Drawing.Size(192, 20) Me.txtzvreferenznr.TabIndex = 24 ' 'btnzvposten ' Me.btnzvposten.Location = New System.Drawing.Point(320, 256) Me.btnzvposten.Name = "btnzvposten" Me.btnzvposten.Size = New System.Drawing.Size(32, 24) Me.btnzvposten.TabIndex = 23 Me.btnzvposten.Text = "OK" ' 'Label58 ' Me.Label58.Location = New System.Drawing.Point(16, 256) Me.Label58.Name = "Label58" Me.Label58.Size = New System.Drawing.Size(100, 23) Me.Label58.TabIndex = 22 Me.Label58.Text = "Posten-Nr" ' 'txtzvpostennr ' Me.txtzvpostennr.Location = New System.Drawing.Point(120, 256) Me.txtzvpostennr.Name = "txtzvpostennr" Me.txtzvpostennr.Size = New System.Drawing.Size(192, 20) Me.txtzvpostennr.TabIndex = 21 ' 'btnzvpcnr ' Me.btnzvpcnr.Location = New System.Drawing.Point(320, 224) Me.btnzvpcnr.Name = "btnzvpcnr" Me.btnzvpcnr.Size = New System.Drawing.Size(32, 24) Me.btnzvpcnr.TabIndex = 20 Me.btnzvpcnr.Text = "OK" ' 'Label57 ' Me.Label57.Location = New System.Drawing.Point(16, 224) Me.Label57.Name = "Label57" Me.Label57.Size = New System.Drawing.Size(100, 23) Me.Label57.TabIndex = 19 Me.Label57.Text = "PC-Nr" ' 'txtzvpcnr ' Me.txtzvpcnr.Location = New System.Drawing.Point(120, 224) Me.txtzvpcnr.Name = "txtzvpcnr" Me.txtzvpcnr.Size = New System.Drawing.Size(192, 20) Me.txtzvpcnr.TabIndex = 18 ' 'btnzvbeguenstiger ' Me.btnzvbeguenstiger.Location = New System.Drawing.Point(320, 192) Me.btnzvbeguenstiger.Name = "btnzvbeguenstiger" Me.btnzvbeguenstiger.Size = New System.Drawing.Size(32, 24) Me.btnzvbeguenstiger.TabIndex = 17 Me.btnzvbeguenstiger.Text = "OK" ' 'Label56 ' Me.Label56.Location = New System.Drawing.Point(16, 192) Me.Label56.Name = "Label56" Me.Label56.Size = New System.Drawing.Size(100, 23) Me.Label56.TabIndex = 16 Me.Label56.Text = "Kto. Begünstiger" ' 'txtzvbeguenstigter ' Me.txtzvbeguenstigter.Location = New System.Drawing.Point(120, 192) Me.txtzvbeguenstigter.Name = "txtzvbeguenstigter" Me.txtzvbeguenstigter.Size = New System.Drawing.Size(192, 20) Me.txtzvbeguenstigter.TabIndex = 15 ' 'btnzviso ' Me.btnzviso.Location = New System.Drawing.Point(320, 160) Me.btnzviso.Name = "btnzviso" Me.btnzviso.Size = New System.Drawing.Size(32, 24) Me.btnzviso.TabIndex = 14 Me.btnzviso.Text = "OK" ' 'Label55 ' Me.Label55.Location = New System.Drawing.Point(16, 160) Me.Label55.Name = "Label55" Me.Label55.Size = New System.Drawing.Size(100, 23) Me.Label55.TabIndex = 13 Me.Label55.Text = "ISO-Währung" ' 'txtzviso ' Me.txtzviso.Location = New System.Drawing.Point(120, 160) Me.txtzviso.Name = "txtzviso" Me.txtzviso.Size = New System.Drawing.Size(192, 20) Me.txtzviso.TabIndex = 12 ' 'btnzvclearing ' Me.btnzvclearing.Location = New System.Drawing.Point(320, 128) Me.btnzvclearing.Name = "btnzvclearing" Me.btnzvclearing.Size = New System.Drawing.Size(32, 24) Me.btnzvclearing.TabIndex = 11 Me.btnzvclearing.Text = "OK" ' 'Label48 ' Me.Label48.Location = New System.Drawing.Point(16, 128) Me.Label48.Name = "Label48" Me.Label48.Size = New System.Drawing.Size(100, 23) Me.Label48.TabIndex = 10 Me.Label48.Text = "Clearingnr" ' 'txtzvclearingnr ' Me.txtzvclearingnr.Location = New System.Drawing.Point(120, 128) Me.txtzvclearingnr.Name = "txtzvclearingnr" Me.txtzvclearingnr.Size = New System.Drawing.Size(192, 20) Me.txtzvclearingnr.TabIndex = 9 ' 'btnzvbetrag ' Me.btnzvbetrag.Location = New System.Drawing.Point(320, 96) Me.btnzvbetrag.Name = "btnzvbetrag" Me.btnzvbetrag.Size = New System.Drawing.Size(32, 24) Me.btnzvbetrag.TabIndex = 8 Me.btnzvbetrag.Text = "OK" ' 'Label47 ' Me.Label47.Location = New System.Drawing.Point(16, 96) Me.Label47.Name = "Label47" Me.Label47.Size = New System.Drawing.Size(100, 23) Me.Label47.TabIndex = 7 Me.Label47.Text = "Betrag" ' 'txtzvbetrag ' Me.txtzvbetrag.Location = New System.Drawing.Point(120, 96) Me.txtzvbetrag.Name = "txtzvbetrag" Me.txtzvbetrag.Size = New System.Drawing.Size(192, 20) Me.txtzvbetrag.TabIndex = 6 ' 'btnzvauftraggeber ' Me.btnzvauftraggeber.Location = New System.Drawing.Point(320, 64) Me.btnzvauftraggeber.Name = "btnzvauftraggeber" Me.btnzvauftraggeber.Size = New System.Drawing.Size(32, 24) Me.btnzvauftraggeber.TabIndex = 5 Me.btnzvauftraggeber.Text = "OK" ' 'Label46 ' Me.Label46.Location = New System.Drawing.Point(16, 64) Me.Label46.Name = "Label46" Me.Label46.Size = New System.Drawing.Size(100, 23) Me.Label46.TabIndex = 4 Me.Label46.Text = "Auftraggeber" ' 'txtzvauftraggeber ' Me.txtzvauftraggeber.Location = New System.Drawing.Point(120, 64) Me.txtzvauftraggeber.Name = "txtzvauftraggeber" Me.txtzvauftraggeber.Size = New System.Drawing.Size(192, 20) Me.txtzvauftraggeber.TabIndex = 3 ' 'btnzvauftragsnr ' Me.btnzvauftragsnr.Location = New System.Drawing.Point(320, 32) Me.btnzvauftragsnr.Name = "btnzvauftragsnr" Me.btnzvauftragsnr.Size = New System.Drawing.Size(32, 24) Me.btnzvauftragsnr.TabIndex = 2 Me.btnzvauftragsnr.Text = "OK" ' 'Label63 ' Me.Label63.Location = New System.Drawing.Point(16, 32) Me.Label63.Name = "Label63" Me.Label63.Size = New System.Drawing.Size(100, 23) Me.Label63.TabIndex = 1 Me.Label63.Text = "Auftragsnummer" ' 'txtzvauftragsnr ' Me.txtzvauftragsnr.Location = New System.Drawing.Point(120, 32) Me.txtzvauftragsnr.Name = "txtzvauftragsnr" Me.txtzvauftragsnr.Size = New System.Drawing.Size(192, 20) Me.txtzvauftragsnr.TabIndex = 0 ' 'GroupBox13 ' Me.GroupBox13.Location = New System.Drawing.Point(8, 8) Me.GroupBox13.Name = "GroupBox13" Me.GroupBox13.Size = New System.Drawing.Size(360, 408) Me.GroupBox13.TabIndex = 36 Me.GroupBox13.TabStop = False Me.GroupBox13.Text = "Diverse Selektionskriterien" ' 'pnlhostdiv ' Me.pnlhostdiv.Controls.Add(Me.GroupBox4) Me.pnlhostdiv.Controls.Add(Me.Label20) Me.pnlhostdiv.Controls.Add(Me.hostinklmavip) Me.pnlhostdiv.Controls.Add(Me.Label29) Me.pnlhostdiv.Controls.Add(Me.DateTimePicker7) Me.pnlhostdiv.Controls.Add(Me.GroupBox6) Me.pnlhostdiv.Controls.Add(Me.Label32) Me.pnlhostdiv.Controls.Add(Me.Label33) Me.pnlhostdiv.Controls.Add(Me.Label34) Me.pnlhostdiv.Controls.Add(Me.Label35) Me.pnlhostdiv.Controls.Add(Me.CheckBox3) Me.pnlhostdiv.Controls.Add(Me.CheckBox4) Me.pnlhostdiv.Controls.Add(Me.CheckBox5) Me.pnlhostdiv.Controls.Add(Me.TextBox7) Me.pnlhostdiv.Controls.Add(Me.TextBox8) Me.pnlhostdiv.Controls.Add(Me.TextBox9) Me.pnlhostdiv.Controls.Add(Me.Label36) Me.pnlhostdiv.Controls.Add(Me.Label37) Me.pnlhostdiv.Controls.Add(Me.Label38) Me.pnlhostdiv.Controls.Add(Me.DateTimePicker10) Me.pnlhostdiv.Controls.Add(Me.DateTimePicker11) Me.pnlhostdiv.Controls.Add(Me.DateTimePicker12) Me.pnlhostdiv.Controls.Add(Me.Button8) Me.pnlhostdiv.Controls.Add(Me.Button7) Me.pnlhostdiv.Controls.Add(Me.Button6) Me.pnlhostdiv.Location = New System.Drawing.Point(224, 8) Me.pnlhostdiv.Name = "pnlhostdiv" Me.pnlhostdiv.Size = New System.Drawing.Size(376, 496) Me.pnlhostdiv.TabIndex = 7 Me.pnlhostdiv.Visible = False ' 'GroupBox4 ' Me.GroupBox4.Controls.Add(Me.Label66) Me.GroupBox4.Controls.Add(Me.Label65) Me.GroupBox4.Controls.Add(Me.Label64) Me.GroupBox4.Controls.Add(Me.Button20) Me.GroupBox4.Controls.Add(Me.TextBox6) Me.GroupBox4.Controls.Add(Me.Button9) Me.GroupBox4.Controls.Add(Me.TextBox4) Me.GroupBox4.Controls.Add(Me.Button10) Me.GroupBox4.Controls.Add(Me.TextBox5) Me.GroupBox4.Location = New System.Drawing.Point(8, 104) Me.GroupBox4.Name = "GroupBox4" Me.GroupBox4.Size = New System.Drawing.Size(360, 128) Me.GroupBox4.TabIndex = 91 Me.GroupBox4.TabStop = False Me.GroupBox4.Text = "Diverse Selektionskriterien" ' 'Label66 ' Me.Label66.Location = New System.Drawing.Point(16, 88) Me.Label66.Name = "Label66" Me.Label66.Size = New System.Drawing.Size(104, 23) Me.Label66.TabIndex = 91 Me.Label66.Text = "ISIN-Nummer" ' 'Label65 ' Me.Label65.Location = New System.Drawing.Point(16, 56) Me.Label65.Name = "Label65" Me.Label65.Size = New System.Drawing.Size(104, 23) Me.Label65.TabIndex = 90 Me.Label65.Text = "Valoren-Nummer" ' 'Label64 ' Me.Label64.Location = New System.Drawing.Point(16, 24) Me.Label64.Name = "Label64" Me.Label64.Size = New System.Drawing.Size(104, 23) Me.Label64.TabIndex = 89 Me.Label64.Text = "VV-Nummer extern" ' 'Button20 ' Me.Button20.Location = New System.Drawing.Point(248, 24) Me.Button20.Name = "Button20" Me.Button20.Size = New System.Drawing.Size(40, 23) Me.Button20.TabIndex = 88 Me.Button20.Text = "&OK" ' 'TextBox6 ' Me.TextBox6.Location = New System.Drawing.Point(128, 24) Me.TextBox6.Name = "TextBox6" Me.TextBox6.Size = New System.Drawing.Size(112, 20) Me.TextBox6.TabIndex = 87 ' 'Button9 ' Me.Button9.Location = New System.Drawing.Point(248, 56) Me.Button9.Name = "Button9" Me.Button9.Size = New System.Drawing.Size(40, 23) Me.Button9.TabIndex = 88 Me.Button9.Text = "&OK" ' 'TextBox4 ' Me.TextBox4.Location = New System.Drawing.Point(128, 56) Me.TextBox4.Name = "TextBox4" Me.TextBox4.Size = New System.Drawing.Size(112, 20) Me.TextBox4.TabIndex = 87 ' 'Button10 ' Me.Button10.Location = New System.Drawing.Point(248, 88) Me.Button10.Name = "Button10" Me.Button10.Size = New System.Drawing.Size(40, 23) Me.Button10.TabIndex = 89 Me.Button10.Text = "&OK" ' 'TextBox5 ' Me.TextBox5.Location = New System.Drawing.Point(128, 88) Me.TextBox5.Name = "TextBox5" Me.TextBox5.Size = New System.Drawing.Size(112, 20) Me.TextBox5.TabIndex = 88 ' 'Label20 ' Me.Label20.Location = New System.Drawing.Point(184, 336) Me.Label20.Name = "Label20" Me.Label20.Size = New System.Drawing.Size(80, 23) Me.Label20.TabIndex = 86 Me.Label20.Text = "ISIN-Nummer" Me.Label20.Visible = False ' 'hostinklmavip ' Me.hostinklmavip.Location = New System.Drawing.Point(16, 376) Me.hostinklmavip.Name = "hostinklmavip" Me.hostinklmavip.Size = New System.Drawing.Size(264, 24) Me.hostinklmavip.TabIndex = 82 Me.hostinklmavip.Text = "Partnerselektion inkl. Mitarbeiter- und VIP" Me.hostinklmavip.Visible = False ' 'Label29 ' Me.Label29.Location = New System.Drawing.Point(16, 32) Me.Label29.Name = "Label29" Me.Label29.Size = New System.Drawing.Size(80, 23) Me.Label29.TabIndex = 48 Me.Label29.Text = "Valuta-Datum" ' 'DateTimePicker7 ' Me.DateTimePicker7.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker7.Location = New System.Drawing.Point(264, 328) Me.DateTimePicker7.Name = "DateTimePicker7" Me.DateTimePicker7.Size = New System.Drawing.Size(96, 20) Me.DateTimePicker7.TabIndex = 46 Me.DateTimePicker7.TabStop = False Me.DateTimePicker7.Value = New Date(2004, 1, 14, 18, 49, 59, 125) Me.DateTimePicker7.Visible = False ' 'GroupBox6 ' Me.GroupBox6.BackColor = System.Drawing.Color.Transparent Me.GroupBox6.Controls.Add(Me.Button18) Me.GroupBox6.Controls.Add(Me.Button19) Me.GroupBox6.Controls.Add(Me.DatumHostText2) Me.GroupBox6.Controls.Add(Me.DatumHostText1) Me.GroupBox6.Controls.Add(Me.cbrollend9) Me.GroupBox6.Controls.Add(Me.cbrollend8) Me.GroupBox6.Controls.Add(Me.HostDatum1) Me.GroupBox6.Controls.Add(Me.Label9) Me.GroupBox6.Controls.Add(Me.Label4) Me.GroupBox6.Controls.Add(Me.lblhostdatum31) Me.GroupBox6.Controls.Add(Me.ComboBox6) Me.GroupBox6.Controls.Add(Me.Label27) Me.GroupBox6.Controls.Add(Me.lblhostdatum3) Me.GroupBox6.Controls.Add(Me.HostDatum3) Me.GroupBox6.Controls.Add(Me.HostTag3) Me.GroupBox6.Controls.Add(Me.HostDatum2) Me.GroupBox6.Controls.Add(Me.DateTimePicker8) Me.GroupBox6.Controls.Add(Me.lblhostdatum2) Me.GroupBox6.Controls.Add(Me.DateTimePicker9) Me.GroupBox6.Location = New System.Drawing.Point(8, 8) Me.GroupBox6.Name = "GroupBox6" Me.GroupBox6.Size = New System.Drawing.Size(360, 88) Me.GroupBox6.TabIndex = 83 Me.GroupBox6.TabStop = False Me.GroupBox6.Text = "Datumsselektion" ' 'Button18 ' Me.Button18.Image = CType(resources.GetObject("Button18.Image"), System.Drawing.Image) Me.Button18.Location = New System.Drawing.Point(308, 49) Me.Button18.Name = "Button18" Me.Button18.Size = New System.Drawing.Size(32, 24) Me.Button18.TabIndex = 97 ' 'Button19 ' Me.Button19.Image = CType(resources.GetObject("Button19.Image"), System.Drawing.Image) Me.Button19.Location = New System.Drawing.Point(308, 25) Me.Button19.Name = "Button19" Me.Button19.Size = New System.Drawing.Size(32, 24) Me.Button19.TabIndex = 96 ' 'DatumHostText2 ' Me.DatumHostText2.Location = New System.Drawing.Point(216, 80) Me.DatumHostText2.Name = "DatumHostText2" Me.DatumHostText2.Size = New System.Drawing.Size(100, 23) Me.DatumHostText2.TabIndex = 95 Me.DatumHostText2.Text = "Label26" Me.DatumHostText2.Visible = False ' 'DatumHostText1 ' Me.DatumHostText1.Location = New System.Drawing.Point(88, 80) Me.DatumHostText1.Name = "DatumHostText1" Me.DatumHostText1.Size = New System.Drawing.Size(100, 23) Me.DatumHostText1.TabIndex = 94 Me.DatumHostText1.Text = "Label26" Me.DatumHostText1.Visible = False ' 'cbrollend9 ' Me.cbrollend9.Location = New System.Drawing.Point(232, 48) Me.cbrollend9.Name = "cbrollend9" Me.cbrollend9.Size = New System.Drawing.Size(104, 24) Me.cbrollend9.TabIndex = 93 Me.cbrollend9.Text = "(rollend)" ' 'cbrollend8 ' Me.cbrollend8.Location = New System.Drawing.Point(232, 24) Me.cbrollend8.Name = "cbrollend8" Me.cbrollend8.Size = New System.Drawing.Size(96, 24) Me.cbrollend8.TabIndex = 92 Me.cbrollend8.Text = "(rollend)" ' 'HostDatum1 ' Me.HostDatum1.BackColor = System.Drawing.Color.White Me.HostDatum1.Enabled = False Me.HostDatum1.ForeColor = System.Drawing.Color.Black Me.HostDatum1.Location = New System.Drawing.Point(128, 24) Me.HostDatum1.Name = "HostDatum1" Me.HostDatum1.ReadOnly = True Me.HostDatum1.Size = New System.Drawing.Size(79, 20) Me.HostDatum1.TabIndex = 54 ' 'Label9 ' Me.Label9.Location = New System.Drawing.Point(88, 48) Me.Label9.Name = "Label9" Me.Label9.Size = New System.Drawing.Size(40, 23) Me.Label9.TabIndex = 91 Me.Label9.Text = "bis" ' 'Label4 ' Me.Label4.Location = New System.Drawing.Point(88, 24) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(40, 23) Me.Label4.TabIndex = 90 Me.Label4.Text = "von" ' 'lblhostdatum31 ' Me.lblhostdatum31.Location = New System.Drawing.Point(240, 152) Me.lblhostdatum31.Name = "lblhostdatum31" Me.lblhostdatum31.Size = New System.Drawing.Size(96, 16) Me.lblhostdatum31.TabIndex = 89 Me.lblhostdatum31.Text = "(19.12.2003)" Me.lblhostdatum31.TextAlign = System.Drawing.ContentAlignment.MiddleCenter Me.lblhostdatum31.Visible = False ' 'ComboBox6 ' Me.ComboBox6.ItemHeight = 13 Me.ComboBox6.Items.AddRange(New Object() {"(heute)", "(heute-1)", "(heute-2)", "(heute-3)", "(heute-4)", "(heute-5)", "(heute-6)", "(heute-7)", "(heute-8)", "(heute-9)", "(heute-10)", "(heute-11)", "(heute-12)", "(heute-13)", "(heute-14)", "(heute-15)", "(heute-16)", "(heute-17)", "(heute-18)", "(heute-19)", "(heute-20)", "(heute-21)", "(heute-22)", "(heute-23)", "(heute-24)", "(heute-25)", "(heute-26)", "(heute-27)", "(heute-28)", "(heute-29)", "(heute-30)"}) Me.ComboBox6.Location = New System.Drawing.Point(240, 128) Me.ComboBox6.Name = "ComboBox6" Me.ComboBox6.Size = New System.Drawing.Size(115, 21) Me.ComboBox6.TabIndex = 3 Me.ComboBox6.Text = "ComboBox6" Me.ComboBox6.Visible = False ' 'Label27 ' Me.Label27.Location = New System.Drawing.Point(8, 128) Me.Label27.Name = "Label27" Me.Label27.Size = New System.Drawing.Size(72, 23) Me.Label27.TabIndex = 52 Me.Label27.Text = "Archivierung" Me.Label27.Visible = False ' 'lblhostdatum3 ' Me.lblhostdatum3.Location = New System.Drawing.Point(160, 128) Me.lblhostdatum3.Name = "lblhostdatum3" Me.lblhostdatum3.Size = New System.Drawing.Size(72, 21) Me.lblhostdatum3.TabIndex = 79 Me.lblhostdatum3.Visible = False ' 'HostDatum3 ' Me.HostDatum3.BackColor = System.Drawing.Color.White Me.HostDatum3.Enabled = False Me.HostDatum3.ForeColor = System.Drawing.Color.WhiteSmoke Me.HostDatum3.Location = New System.Drawing.Point(240, 128) Me.HostDatum3.Name = "HostDatum3" Me.HostDatum3.ReadOnly = True Me.HostDatum3.Size = New System.Drawing.Size(79, 20) Me.HostDatum3.TabIndex = 58 Me.HostDatum3.Text = "TextBox4" Me.HostDatum3.Visible = False ' 'HostTag3 ' Me.HostTag3.ItemHeight = 13 Me.HostTag3.Items.AddRange(New Object() {"", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51", "52", "53", "54", "55", "56", "57", "58", "59", "60", "61", "62", "63", "64", "65", "66", "67", "68", "69", "70", "71", "72", "73", "74", "75", "76", "77", "78", "79", "80", "81", "82", "83", "84", "85", "86", "87", "88", "89", "90", "91", "92", "93", "94", "95", "96", "97", "98", "99", "100", "101", "102", "103", "104", "105", "106", "107", "108", "109", "110", "111", "112", "113", "114", "115", "116", "117", "118", "119", "120", "121", "122", "123", "124", "125", "126", "127", "128", "129", "130", "131", "132", "133", "134", "135", "136", "137", "138", "139", "140", "141", "142", "143", "144", "145", "146", "147", "148", "149", "150", "151", "152", "153", "154", "155", "156", "157", "158", "159", "160", "161", "162", "163", "164", "165", "166", "167", "168", "169", "170", "171", "172", "173", "174", "175", "176", "177", "178", "179", "180", "181", "182", "183", "184", "185", "186", "187", "188", "189", "190", "191", "192", "193", "194", "195", "196", "197", "198", "199", "200", "201", "202", "203", "204", "205", "206", "207", "208", "209", "210", "211", "212", "213", "214", "215", "216", "217", "218", "219", "220", "221", "222", "223", "224", "225", "226", "227", "228", "229", "230", "231", "232", "233", "234", "235", "236", "237", "238", "239", "240", "241", "242", "243", "244", "245", "246", "247", "248", "249", "250", "251", "252", "253", "254", "255", "256", "257", "258", "259", "260", "261", "262", "263", "264", "265", "266", "267", "268", "269", "270", "271", "272", "273", "274", "275", "276", "277", "278", "279", "280", "281", "282", "283", "284", "285", "286", "287", "288", "289", "290", "291", "292", "293", "294", "295", "296", "297", "298", "299", "300", "301", "302", "303", "304", "305", "306", "307", "308", "309", "310", "311", "312", "313", "314", "315", "316", "317", "318", "319", "320", "321", "322", "323", "324", "325", "326", "327", "328", "329", "330", "331", "332", "333", "334", "335", "336", "337", "338", "339", "340", "341", "342", "343", "344", "345", "346", "347", "348", "349", "350", "351", "352", "353", "354", "355", "356", "357", "358", "359", "360", "361", "362", "363", "364", "365"}) Me.HostTag3.Location = New System.Drawing.Point(80, 128) Me.HostTag3.Name = "HostTag3" Me.HostTag3.Size = New System.Drawing.Size(56, 21) Me.HostTag3.TabIndex = 71 Me.HostTag3.Text = "HostTag3" Me.HostTag3.Visible = False ' 'HostDatum2 ' Me.HostDatum2.BackColor = System.Drawing.Color.White Me.HostDatum2.Enabled = False Me.HostDatum2.ForeColor = System.Drawing.Color.Black Me.HostDatum2.Location = New System.Drawing.Point(128, 48) Me.HostDatum2.Name = "HostDatum2" Me.HostDatum2.ReadOnly = True Me.HostDatum2.Size = New System.Drawing.Size(79, 20) Me.HostDatum2.TabIndex = 56 ' 'DateTimePicker8 ' Me.DateTimePicker8.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker8.Location = New System.Drawing.Point(128, 48) Me.DateTimePicker8.Name = "DateTimePicker8" Me.DateTimePicker8.Size = New System.Drawing.Size(98, 20) Me.DateTimePicker8.TabIndex = 44 Me.DateTimePicker8.TabStop = False Me.DateTimePicker8.Value = New Date(2004, 1, 14, 18, 49, 59, 203) ' 'lblhostdatum2 ' Me.lblhostdatum2.Location = New System.Drawing.Point(160, 72) Me.lblhostdatum2.Name = "lblhostdatum2" Me.lblhostdatum2.Size = New System.Drawing.Size(72, 21) Me.lblhostdatum2.TabIndex = 78 Me.lblhostdatum2.Visible = False ' 'DateTimePicker9 ' Me.DateTimePicker9.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker9.Location = New System.Drawing.Point(128, 24) Me.DateTimePicker9.Name = "DateTimePicker9" Me.DateTimePicker9.Size = New System.Drawing.Size(98, 20) Me.DateTimePicker9.TabIndex = 42 Me.DateTimePicker9.TabStop = False Me.DateTimePicker9.Value = New Date(2004, 1, 14, 18, 49, 59, 125) ' 'Label32 ' Me.Label32.Location = New System.Drawing.Point(304, 456) Me.Label32.Name = "Label32" Me.Label32.Size = New System.Drawing.Size(40, 23) Me.Label32.TabIndex = 70 Me.Label32.Text = "Tagen" Me.Label32.Visible = False ' 'Label33 ' Me.Label33.Location = New System.Drawing.Point(304, 432) Me.Label33.Name = "Label33" Me.Label33.Size = New System.Drawing.Size(40, 23) Me.Label33.TabIndex = 69 Me.Label33.Text = "Tagen" Me.Label33.Visible = False ' 'Label34 ' Me.Label34.Location = New System.Drawing.Point(80, 456) Me.Label34.Name = "Label34" Me.Label34.Size = New System.Drawing.Size(160, 23) Me.Label34.TabIndex = 67 Me.Label34.Text = "Mutationsdatum in den letzen " Me.Label34.Visible = False ' 'Label35 ' Me.Label35.Location = New System.Drawing.Point(80, 432) Me.Label35.Name = "Label35" Me.Label35.Size = New System.Drawing.Size(160, 23) Me.Label35.TabIndex = 66 Me.Label35.Text = "Erstellungsdatum in den letzen" Me.Label35.Visible = False ' 'CheckBox3 ' Me.CheckBox3.Location = New System.Drawing.Point(16, 464) Me.CheckBox3.Name = "CheckBox3" Me.CheckBox3.Size = New System.Drawing.Size(16, 24) Me.CheckBox3.TabIndex = 64 Me.CheckBox3.Visible = False ' 'CheckBox4 ' Me.CheckBox4.Location = New System.Drawing.Point(16, 440) Me.CheckBox4.Name = "CheckBox4" Me.CheckBox4.Size = New System.Drawing.Size(16, 24) Me.CheckBox4.TabIndex = 62 Me.CheckBox4.Visible = False ' 'CheckBox5 ' Me.CheckBox5.Location = New System.Drawing.Point(16, 416) Me.CheckBox5.Name = "CheckBox5" Me.CheckBox5.Size = New System.Drawing.Size(16, 24) Me.CheckBox5.TabIndex = 60 Me.CheckBox5.Visible = False ' 'TextBox7 ' Me.TextBox7.BackColor = System.Drawing.Color.White Me.TextBox7.Enabled = False Me.TextBox7.ForeColor = System.Drawing.Color.WhiteSmoke Me.TextBox7.Location = New System.Drawing.Point(160, 464) Me.TextBox7.Name = "TextBox7" Me.TextBox7.ReadOnly = True Me.TextBox7.Size = New System.Drawing.Size(80, 20) Me.TextBox7.TabIndex = 59 Me.TextBox7.Text = "TextBox4" Me.TextBox7.Visible = False ' 'TextBox8 ' Me.TextBox8.BackColor = System.Drawing.Color.White Me.TextBox8.Enabled = False Me.TextBox8.ForeColor = System.Drawing.Color.WhiteSmoke Me.TextBox8.Location = New System.Drawing.Point(160, 440) Me.TextBox8.Name = "TextBox8" Me.TextBox8.ReadOnly = True Me.TextBox8.Size = New System.Drawing.Size(80, 20) Me.TextBox8.TabIndex = 57 Me.TextBox8.Text = "TextBox4" Me.TextBox8.Visible = False ' 'TextBox9 ' Me.TextBox9.BackColor = System.Drawing.Color.White Me.TextBox9.Enabled = False Me.TextBox9.ForeColor = System.Drawing.Color.WhiteSmoke Me.TextBox9.Location = New System.Drawing.Point(160, 416) Me.TextBox9.Name = "TextBox9" Me.TextBox9.ReadOnly = True Me.TextBox9.Size = New System.Drawing.Size(80, 20) Me.TextBox9.TabIndex = 55 Me.TextBox9.Text = "TextBox4" Me.TextBox9.Visible = False ' 'Label36 ' Me.Label36.Location = New System.Drawing.Point(48, 464) Me.Label36.Name = "Label36" Me.Label36.Size = New System.Drawing.Size(100, 23) Me.Label36.TabIndex = 53 Me.Label36.Text = "Archivierung bis" Me.Label36.Visible = False ' 'Label37 ' Me.Label37.Location = New System.Drawing.Point(48, 440) Me.Label37.Name = "Label37" Me.Label37.Size = New System.Drawing.Size(96, 23) Me.Label37.TabIndex = 51 Me.Label37.Text = "Mutation bis" Me.Label37.Visible = False ' 'Label38 ' Me.Label38.Location = New System.Drawing.Point(48, 416) Me.Label38.Name = "Label38" Me.Label38.Size = New System.Drawing.Size(96, 23) Me.Label38.TabIndex = 49 Me.Label38.Text = "Erstellung bis" Me.Label38.Visible = False ' 'DateTimePicker10 ' Me.DateTimePicker10.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker10.Location = New System.Drawing.Point(160, 464) Me.DateTimePicker10.Name = "DateTimePicker10" Me.DateTimePicker10.Size = New System.Drawing.Size(98, 20) Me.DateTimePicker10.TabIndex = 47 Me.DateTimePicker10.TabStop = False Me.DateTimePicker10.Value = New Date(2004, 1, 14, 18, 49, 59, 312) Me.DateTimePicker10.Visible = False ' 'DateTimePicker11 ' Me.DateTimePicker11.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker11.Location = New System.Drawing.Point(160, 440) Me.DateTimePicker11.Name = "DateTimePicker11" Me.DateTimePicker11.Size = New System.Drawing.Size(98, 20) Me.DateTimePicker11.TabIndex = 45 Me.DateTimePicker11.TabStop = False Me.DateTimePicker11.Value = New Date(2004, 1, 14, 18, 49, 59, 328) Me.DateTimePicker11.Visible = False ' 'DateTimePicker12 ' Me.DateTimePicker12.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker12.Location = New System.Drawing.Point(160, 416) Me.DateTimePicker12.Name = "DateTimePicker12" Me.DateTimePicker12.Size = New System.Drawing.Size(98, 20) Me.DateTimePicker12.TabIndex = 43 Me.DateTimePicker12.TabStop = False Me.DateTimePicker12.Value = New Date(2004, 1, 14, 18, 49, 59, 328) Me.DateTimePicker12.Visible = False ' 'Button8 ' Me.Button8.Location = New System.Drawing.Point(344, 48) Me.Button8.Name = "Button8" Me.Button8.Size = New System.Drawing.Size(16, 16) Me.Button8.TabIndex = 74 ' 'Button7 ' Me.Button7.Location = New System.Drawing.Point(344, 80) Me.Button7.Name = "Button7" Me.Button7.Size = New System.Drawing.Size(16, 16) Me.Button7.TabIndex = 75 ' 'Button6 ' Me.Button6.Location = New System.Drawing.Point(360, 336) Me.Button6.Name = "Button6" Me.Button6.Size = New System.Drawing.Size(16, 16) Me.Button6.TabIndex = 76 Me.Button6.Visible = False ' 'pnluvm ' Me.pnluvm.Controls.Add(Me.Button29) Me.pnluvm.Controls.Add(Me.txtuvmauftragnr) Me.pnluvm.Controls.Add(Me.Label45) Me.pnluvm.Controls.Add(Me.GroupBox14) Me.pnluvm.Location = New System.Drawing.Point(224, 8) Me.pnluvm.Name = "pnluvm" Me.pnluvm.Size = New System.Drawing.Size(376, 504) Me.pnluvm.TabIndex = 9 ' 'Button29 ' Me.Button29.Location = New System.Drawing.Point(256, 32) Me.Button29.Name = "Button29" Me.Button29.Size = New System.Drawing.Size(40, 24) Me.Button29.TabIndex = 2 Me.Button29.Text = "&OK" ' 'txtuvmauftragnr ' Me.txtuvmauftragnr.Location = New System.Drawing.Point(104, 32) Me.txtuvmauftragnr.Name = "txtuvmauftragnr" Me.txtuvmauftragnr.Size = New System.Drawing.Size(152, 20) Me.txtuvmauftragnr.TabIndex = 1 ' 'Label45 ' Me.Label45.Location = New System.Drawing.Point(16, 32) Me.Label45.Name = "Label45" Me.Label45.Size = New System.Drawing.Size(100, 23) Me.Label45.TabIndex = 0 Me.Label45.Text = "Auftragnummer" ' 'GroupBox14 ' Me.GroupBox14.Location = New System.Drawing.Point(8, 8) Me.GroupBox14.Name = "GroupBox14" Me.GroupBox14.Size = New System.Drawing.Size(360, 56) Me.GroupBox14.TabIndex = 3 Me.GroupBox14.TabStop = False Me.GroupBox14.Text = "Diverse Selektionskriterien" ' 'PnlDokumentart ' Me.PnlDokumentart.Controls.Add(Me.TVDokart) Me.PnlDokumentart.Location = New System.Drawing.Point(224, 8) Me.PnlDokumentart.Name = "PnlDokumentart" Me.PnlDokumentart.Size = New System.Drawing.Size(376, 504) Me.PnlDokumentart.TabIndex = 4 Me.PnlDokumentart.Visible = False ' 'TVDokart ' Me.TVDokart.ContextMenu = Me.ContextMenu1 Me.TVDokart.Dock = System.Windows.Forms.DockStyle.Fill Me.TVDokart.Location = New System.Drawing.Point(0, 0) Me.TVDokart.Name = "TVDokart" Me.TVDokart.Size = New System.Drawing.Size(376, 504) Me.TVDokart.TabIndex = 0 ' 'Panel3 ' Me.Panel3.Controls.Add(Me.C1TrueDBGrid1) Me.Panel3.Location = New System.Drawing.Point(224, 8) Me.Panel3.Name = "Panel3" Me.Panel3.Size = New System.Drawing.Size(368, 496) Me.Panel3.TabIndex = 2 Me.Panel3.Visible = False ' 'C1TrueDBGrid1 ' Me.C1TrueDBGrid1.AlternatingRows = True Me.C1TrueDBGrid1.ContextMenu = Me.CTMenuVerantwortlicher Me.C1TrueDBGrid1.Dock = System.Windows.Forms.DockStyle.Fill Me.C1TrueDBGrid1.FilterBar = True Me.C1TrueDBGrid1.GroupByCaption = "Drag a column header here to group by that column" Me.C1TrueDBGrid1.Images.Add(CType(resources.GetObject("C1TrueDBGrid1.Images"), System.Drawing.Image)) Me.C1TrueDBGrid1.Location = New System.Drawing.Point(0, 0) Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1" Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75.0R Me.C1TrueDBGrid1.PrintInfo.PageSettings = CType(resources.GetObject("C1TrueDBGrid1.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.C1TrueDBGrid1.Size = New System.Drawing.Size(368, 496) Me.C1TrueDBGrid1.TabIndex = 0 Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1" Me.C1TrueDBGrid1.PropBag = resources.GetString("C1TrueDBGrid1.PropBag") ' 'TreeView1 ' Me.TreeView1.ContextMenu = Me.ctmenu1 Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Left Me.TreeView1.FullRowSelect = True Me.TreeView1.ImageIndex = 0 Me.TreeView1.ImageList = Me.ImageList2 Me.TreeView1.Location = New System.Drawing.Point(0, 0) Me.TreeView1.Name = "TreeView1" TreeNode1.Name = "" TreeNode1.Text = "Daten" TreeNode2.Name = "" TreeNode2.Text = "Dokumentart" TreeNode3.Name = "" TreeNode3.Text = "Dokumentstatus" TreeNode4.Name = "" TreeNode4.Text = "Partner" TreeNode5.ImageIndex = 0 TreeNode5.Name = "" TreeNode5.SelectedImageIndex = 0 TreeNode5.Text = "Dokument" TreeNode6.Name = "" TreeNode6.Text = "Kostenstelle" TreeNode7.Name = "" TreeNode7.Text = "Marktbereich" TreeNode8.Name = "" TreeNode8.Text = "Mitarbeiter" TreeNode9.Name = "" TreeNode9.Text = "Niederlassung" TreeNode10.Name = "" TreeNode10.Text = "Team" TreeNode11.ImageIndex = 8 TreeNode11.Name = "" TreeNode11.SelectedImageIndex = 8 TreeNode11.Text = "Ersteller" TreeNode12.Name = "" TreeNode12.Text = "Kostenstelle" TreeNode13.Name = "" TreeNode13.Text = "Marktbereich" TreeNode14.Name = "" TreeNode14.Text = "Mitarbeiter" TreeNode15.Name = "" TreeNode15.Text = "Niederlassung" TreeNode16.Name = "" TreeNode16.Text = "Team" TreeNode17.ImageIndex = 9 TreeNode17.Name = "" TreeNode17.SelectedImageIndex = 9 TreeNode17.Text = "Mutierer" TreeNode18.Name = "" TreeNode18.Text = "Kostenstelle" TreeNode19.Name = "" TreeNode19.Text = "Marktbereich" TreeNode20.Name = "" TreeNode20.Text = "Mitarbeiter" TreeNode21.Name = "" TreeNode21.Text = "Niederlassung" TreeNode22.Name = "" TreeNode22.Text = "Team" TreeNode23.ImageIndex = 7 TreeNode23.Name = "" TreeNode23.SelectedImageIndex = 7 TreeNode23.Text = "Verantwortlich" Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode5, TreeNode11, TreeNode17, TreeNode23}) Me.TreeView1.SelectedImageIndex = 0 Me.TreeView1.Size = New System.Drawing.Size(216, 515) Me.TreeView1.TabIndex = 0 ' 'TVHostDok ' Me.TVHostDok.ContextMenu = Me.ContextMenu1 Me.TVHostDok.Location = New System.Drawing.Point(224, 8) Me.TVHostDok.Name = "TVHostDok" Me.TVHostDok.Size = New System.Drawing.Size(376, 504) Me.TVHostDok.TabIndex = 6 Me.TVHostDok.Visible = False ' 'Panel4 ' Me.Panel4.Controls.Add(Me.Label19) Me.Panel4.Controls.Add(Me.LBSelectHost) Me.Panel4.Controls.Add(Me.Button11) Me.Panel4.Controls.Add(Me.Label22) Me.Panel4.Controls.Add(Me.lbselect) Me.Panel4.Controls.Add(Me.LBSort) Me.Panel4.Controls.Add(Me.Label21) Me.Panel4.Controls.Add(Me.lbSortfields) Me.Panel4.Controls.Add(Me.GroupBox12) Me.Panel4.Location = New System.Drawing.Point(224, 8) Me.Panel4.Name = "Panel4" Me.Panel4.Size = New System.Drawing.Size(376, 504) Me.Panel4.TabIndex = 8 ' 'Label19 ' Me.Label19.Location = New System.Drawing.Point(200, 32) Me.Label19.Name = "Label19" Me.Label19.Size = New System.Drawing.Size(100, 16) Me.Label19.TabIndex = 19 Me.Label19.Text = "Sortierungsart" ' 'LBSelectHost ' Me.LBSelectHost.ContextMenu = Me.ContextMenu2 Me.LBSelectHost.Location = New System.Drawing.Point(40, 312) Me.LBSelectHost.Name = "LBSelectHost" Me.LBSelectHost.Size = New System.Drawing.Size(296, 134) Me.LBSelectHost.TabIndex = 18 ' 'Button11 ' Me.Button11.Location = New System.Drawing.Point(152, 264) Me.Button11.Name = "Button11" Me.Button11.Size = New System.Drawing.Size(80, 24) Me.Button11.TabIndex = 17 Me.Button11.Text = "Einfügen" ' 'Label22 ' Me.Label22.Location = New System.Drawing.Point(40, 296) Me.Label22.Name = "Label22" Me.Label22.Size = New System.Drawing.Size(112, 16) Me.Label22.TabIndex = 16 Me.Label22.Text = "Sortierungs-Kriterien" ' 'lbselect ' Me.lbselect.ContextMenu = Me.ContextMenu2 Me.lbselect.Location = New System.Drawing.Point(40, 312) Me.lbselect.Name = "lbselect" Me.lbselect.Size = New System.Drawing.Size(296, 134) Me.lbselect.TabIndex = 15 ' 'LBSort ' Me.LBSort.Items.AddRange(New Object() {"Absteigend", "Aufsteigend"}) Me.LBSort.Location = New System.Drawing.Point(200, 48) Me.LBSort.Name = "LBSort" Me.LBSort.Size = New System.Drawing.Size(136, 199) Me.LBSort.Sorted = True Me.LBSort.TabIndex = 14 ' 'Label21 ' Me.Label21.Location = New System.Drawing.Point(40, 32) Me.Label21.Name = "Label21" Me.Label21.Size = New System.Drawing.Size(100, 16) Me.Label21.TabIndex = 13 Me.Label21.Text = "Sortierkriterien" ' 'lbSortfields ' Me.lbSortfields.Items.AddRange(New Object() {"Bemerkung", "Bezeichnung", "Dokument-ID", "Dokumentart", "Ersteller", "Erstellungsdatum", "Mutationsdatum", "Mutierer", "Status", "Termin", "Verantwortlicher", "Zuständiger"}) Me.lbSortfields.Location = New System.Drawing.Point(40, 48) Me.lbSortfields.Name = "lbSortfields" Me.lbSortfields.Size = New System.Drawing.Size(136, 199) Me.lbSortfields.Sorted = True Me.lbSortfields.TabIndex = 12 ' 'GroupBox12 ' Me.GroupBox12.Location = New System.Drawing.Point(8, 8) Me.GroupBox12.Name = "GroupBox12" Me.GroupBox12.Size = New System.Drawing.Size(360, 448) Me.GroupBox12.TabIndex = 20 Me.GroupBox12.TabStop = False Me.GroupBox12.Text = "Sortierung" ' 'PnlPartner ' Me.PnlPartner.Controls.Add(Me.PartnerList) Me.PnlPartner.Controls.Add(Me.btnPartnersuche) Me.PnlPartner.Controls.Add(Me.Label3) Me.PnlPartner.Controls.Add(Me.TextBox3) Me.PnlPartner.Controls.Add(Me.Label2) Me.PnlPartner.Controls.Add(Me.TextBox2) Me.PnlPartner.Controls.Add(Me.Label1) Me.PnlPartner.Controls.Add(Me.TextBox1) Me.PnlPartner.Location = New System.Drawing.Point(224, 8) Me.PnlPartner.Name = "PnlPartner" Me.PnlPartner.Size = New System.Drawing.Size(376, 504) Me.PnlPartner.TabIndex = 3 Me.PnlPartner.Visible = False ' 'PartnerList ' Me.PartnerList.AllowUpdate = False Me.PartnerList.AllowUpdateOnBlur = False Me.PartnerList.AlternatingRows = True Me.PartnerList.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored Me.PartnerList.ContextMenu = Me.CTMenuErsteller Me.PartnerList.Dock = System.Windows.Forms.DockStyle.Bottom Me.PartnerList.FetchRowStyles = True Me.PartnerList.FilterBar = True Me.PartnerList.GroupByCaption = "Drag a column header here to group by that column" Me.PartnerList.Images.Add(CType(resources.GetObject("PartnerList.Images"), System.Drawing.Image)) Me.PartnerList.Location = New System.Drawing.Point(0, 104) Me.PartnerList.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None Me.PartnerList.Name = "PartnerList" Me.PartnerList.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.PartnerList.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.PartnerList.PreviewInfo.ZoomFactor = 75.0R Me.PartnerList.PrintInfo.PageSettings = CType(resources.GetObject("PartnerList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.PartnerList.Size = New System.Drawing.Size(376, 400) Me.PartnerList.TabIndex = 17 Me.PartnerList.Text = "C1TrueDBGrid1" Me.PartnerList.PropBag = resources.GetString("PartnerList.PropBag") ' 'btnPartnersuche ' Me.btnPartnersuche.Image = CType(resources.GetObject("btnPartnersuche.Image"), System.Drawing.Image) Me.btnPartnersuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnPartnersuche.Location = New System.Drawing.Point(288, 32) Me.btnPartnersuche.Name = "btnPartnersuche" Me.btnPartnersuche.Size = New System.Drawing.Size(72, 40) Me.btnPartnersuche.TabIndex = 16 Me.btnPartnersuche.Text = "&Suchen" Me.btnPartnersuche.TextAlign = System.Drawing.ContentAlignment.MiddleRight ' 'Label3 ' Me.Label3.Location = New System.Drawing.Point(8, 64) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(72, 23) Me.Label3.TabIndex = 15 Me.Label3.Text = "Freitext" ' 'TextBox3 ' Me.TextBox3.Location = New System.Drawing.Point(88, 64) Me.TextBox3.Name = "TextBox3" Me.TextBox3.Size = New System.Drawing.Size(160, 20) Me.TextBox3.TabIndex = 14 ' 'Label2 ' Me.Label2.Location = New System.Drawing.Point(8, 40) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(72, 23) Me.Label2.TabIndex = 13 Me.Label2.Text = "Kurzname" ' 'TextBox2 ' Me.TextBox2.Location = New System.Drawing.Point(88, 40) Me.TextBox2.Name = "TextBox2" Me.TextBox2.Size = New System.Drawing.Size(160, 20) Me.TextBox2.TabIndex = 12 ' 'Label1 ' Me.Label1.Location = New System.Drawing.Point(8, 16) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(72, 23) Me.Label1.TabIndex = 11 Me.Label1.Text = "Partner-Nr." ' 'TextBox1 ' Me.TextBox1.Location = New System.Drawing.Point(88, 16) Me.TextBox1.Name = "TextBox1" Me.TextBox1.Size = New System.Drawing.Size(160, 20) Me.TextBox1.TabIndex = 10 ' 'TabPage4 ' Me.TabPage4.Controls.Add(Me.GroupBox2) Me.TabPage4.Controls.Add(Me.GroupBox1) Me.TabPage4.Controls.Add(Me.GroupBox9) Me.TabPage4.Controls.Add(Me.GroupBox5) Me.TabPage4.Location = New System.Drawing.Point(4, 22) Me.TabPage4.Name = "TabPage4" Me.TabPage4.Size = New System.Drawing.Size(605, 515) Me.TabPage4.TabIndex = 3 Me.TabPage4.Text = "Unterschriften / Hinweise / Darstellung" Me.TabPage4.Visible = False ' 'GroupBox2 ' Me.GroupBox2.Controls.Add(Me.cbteam) Me.GroupBox2.Location = New System.Drawing.Point(8, 104) Me.GroupBox2.Name = "GroupBox2" Me.GroupBox2.Size = New System.Drawing.Size(360, 56) Me.GroupBox2.TabIndex = 10 Me.GroupBox2.TabStop = False Me.GroupBox2.Text = "Team" ' 'cbteam ' Me.cbteam.Location = New System.Drawing.Point(112, 21) Me.cbteam.Name = "cbteam" Me.cbteam.Size = New System.Drawing.Size(240, 21) Me.cbteam.TabIndex = 8 ' 'GroupBox1 ' Me.GroupBox1.Controls.Add(Me.Button5) Me.GroupBox1.Controls.Add(Me.colbtn6) Me.GroupBox1.Controls.Add(Me.colbtn5) Me.GroupBox1.Controls.Add(Me.colbtn4) Me.GroupBox1.Controls.Add(Me.colbtn3) Me.GroupBox1.Controls.Add(Me.colbtn2) Me.GroupBox1.Controls.Add(Me.colbtn1) Me.GroupBox1.Location = New System.Drawing.Point(8, 168) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Size = New System.Drawing.Size(360, 72) Me.GroupBox1.TabIndex = 8 Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "Farbgebung der Dokumentliste" ' 'Button5 ' Me.Button5.Location = New System.Drawing.Point(288, 19) Me.Button5.Name = "Button5" Me.Button5.Size = New System.Drawing.Size(64, 40) Me.Button5.TabIndex = 44 Me.Button5.Text = "Standard herstellen" ' 'colbtn6 ' Me.colbtn6.Location = New System.Drawing.Point(96, 40) Me.colbtn6.Name = "colbtn6" Me.colbtn6.Size = New System.Drawing.Size(88, 20) Me.colbtn6.TabIndex = 43 Me.colbtn6.Text = "Pendent" ' 'colbtn5 ' Me.colbtn5.Location = New System.Drawing.Point(184, 40) Me.colbtn5.Name = "colbtn5" Me.colbtn5.Size = New System.Drawing.Size(88, 20) Me.colbtn5.TabIndex = 42 Me.colbtn5.Text = "Überfällig" ' 'colbtn4 ' Me.colbtn4.Location = New System.Drawing.Point(184, 16) Me.colbtn4.Name = "colbtn4" Me.colbtn4.Size = New System.Drawing.Size(88, 20) Me.colbtn4.TabIndex = 41 Me.colbtn4.Text = "Terminiert" ' 'colbtn3 ' Me.colbtn3.Location = New System.Drawing.Point(8, 40) Me.colbtn3.Name = "colbtn3" Me.colbtn3.Size = New System.Drawing.Size(88, 20) Me.colbtn3.TabIndex = 40 Me.colbtn3.Text = "In Bearbeitung" ' 'colbtn2 ' Me.colbtn2.Location = New System.Drawing.Point(96, 16) Me.colbtn2.Name = "colbtn2" Me.colbtn2.Size = New System.Drawing.Size(88, 20) Me.colbtn2.TabIndex = 39 Me.colbtn2.Text = "Verantwortlich" ' 'colbtn1 ' Me.colbtn1.Location = New System.Drawing.Point(8, 16) Me.colbtn1.Name = "colbtn1" Me.colbtn1.Size = New System.Drawing.Size(88, 20) Me.colbtn1.TabIndex = 38 Me.colbtn1.Text = "Standard" ' 'GroupBox9 ' Me.GroupBox9.Controls.Add(Me.cb3_1) Me.GroupBox9.Controls.Add(Me.cb5) Me.GroupBox9.Controls.Add(Me.cb4) Me.GroupBox9.Controls.Add(Me.cb3) Me.GroupBox9.Controls.Add(Me.cb2) Me.GroupBox9.Controls.Add(Me.cb1) Me.GroupBox9.Location = New System.Drawing.Point(376, 8) Me.GroupBox9.Name = "GroupBox9" Me.GroupBox9.Size = New System.Drawing.Size(216, 232) Me.GroupBox9.TabIndex = 7 Me.GroupBox9.TabStop = False Me.GroupBox9.Text = "Hinweismeldungen" ' 'cb3_1 ' Me.cb3_1.Location = New System.Drawing.Point(8, 120) Me.cb3_1.Name = "cb3_1" Me.cb3_1.Size = New System.Drawing.Size(192, 32) Me.cb3_1.TabIndex = 10 Me.cb3_1.Text = "Bedingte Retournierung" ' 'cb5 ' Me.cb5.Location = New System.Drawing.Point(16, 176) Me.cb5.Name = "cb5" Me.cb5.Size = New System.Drawing.Size(144, 32) Me.cb5.TabIndex = 9 Me.cb5.Text = "Meldung XY5 anzeigen" Me.cb5.Visible = False ' 'cb4 ' Me.cb4.Location = New System.Drawing.Point(16, 152) Me.cb4.Name = "cb4" Me.cb4.Size = New System.Drawing.Size(144, 32) Me.cb4.TabIndex = 8 Me.cb4.Text = "Meldung XY4 anzeigen" Me.cb4.Visible = False ' 'cb3 ' Me.cb3.Location = New System.Drawing.Point(8, 88) Me.cb3.Name = "cb3" Me.cb3.Size = New System.Drawing.Size(192, 32) Me.cb3.TabIndex = 7 Me.cb3.Text = "Einzeldokument" ' 'cb2 ' Me.cb2.Location = New System.Drawing.Point(8, 56) Me.cb2.Name = "cb2" Me.cb2.Size = New System.Drawing.Size(200, 32) Me.cb2.TabIndex = 6 Me.cb2.Text = "Dokumentbearbeitung - Statuswechsel" ' 'cb1 ' Me.cb1.Location = New System.Drawing.Point(8, 24) Me.cb1.Name = "cb1" Me.cb1.Size = New System.Drawing.Size(200, 32) Me.cb1.TabIndex = 5 Me.cb1.Text = "Partnererfassung" ' 'GroupBox5 ' Me.GroupBox5.Controls.Add(Me.Label31) Me.GroupBox5.Controls.Add(Me.cbUnterschriftrechts) Me.GroupBox5.Controls.Add(Me.Label30) Me.GroupBox5.Controls.Add(Me.cbUnterschriftlinks) Me.GroupBox5.Location = New System.Drawing.Point(8, 8) Me.GroupBox5.Name = "GroupBox5" Me.GroupBox5.Size = New System.Drawing.Size(360, 88) Me.GroupBox5.TabIndex = 2 Me.GroupBox5.TabStop = False Me.GroupBox5.Text = "Unterschriften" ' 'Label31 ' Me.Label31.Location = New System.Drawing.Point(24, 56) Me.Label31.Name = "Label31" Me.Label31.Size = New System.Drawing.Size(72, 23) Me.Label31.TabIndex = 8 Me.Label31.Text = "Rechts" ' 'cbUnterschriftrechts ' Me.cbUnterschriftrechts.Location = New System.Drawing.Point(112, 56) Me.cbUnterschriftrechts.Name = "cbUnterschriftrechts" Me.cbUnterschriftrechts.Size = New System.Drawing.Size(240, 21) Me.cbUnterschriftrechts.TabIndex = 7 ' 'Label30 ' Me.Label30.Location = New System.Drawing.Point(24, 24) Me.Label30.Name = "Label30" Me.Label30.Size = New System.Drawing.Size(72, 23) Me.Label30.TabIndex = 6 Me.Label30.Text = "Links" ' 'cbUnterschriftlinks ' Me.cbUnterschriftlinks.Location = New System.Drawing.Point(112, 24) Me.cbUnterschriftlinks.Name = "cbUnterschriftlinks" Me.cbUnterschriftlinks.Size = New System.Drawing.Size(240, 21) Me.cbUnterschriftlinks.TabIndex = 5 ' 'TabControl1 ' Me.TabControl1.Controls.Add(Me.TabPage1) Me.TabControl1.Controls.Add(Me.TabPage4) Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.TabControl1.ItemSize = New System.Drawing.Size(112, 18) Me.TabControl1.Location = New System.Drawing.Point(179, 36) Me.TabControl1.Name = "TabControl1" Me.TabControl1.SelectedIndex = 0 Me.TabControl1.Size = New System.Drawing.Size(613, 541) Me.TabControl1.TabIndex = 16 ' 'BtnHelp ' Me.BtnHelp.Image = CType(resources.GetObject("BtnHelp.Image"), System.Drawing.Image) Me.BtnHelp.Location = New System.Drawing.Point(768, 2) Me.BtnHelp.Name = "BtnHelp" Me.BtnHelp.Size = New System.Drawing.Size(24, 23) Me.BtnHelp.TabIndex = 33 ' 'frmProfil ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(792, 577) Me.Controls.Add(Me.BtnHelp) Me.Controls.Add(Me.TabControl1) Me.Controls.Add(Me.Splitter1) Me.Controls.Add(Me.Button4) Me.Controls.Add(Me.Panel2) Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.ToolBar1) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Menu = Me.MainMenu1 Me.Name = "frmProfil" Me.Text = "Profile verwalten" Me.Panel2.ResumeLayout(False) CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage1.ResumeLayout(False) Me.PnlDokumentDaten.ResumeLayout(False) Me.TabControl2.ResumeLayout(False) Me.TabPage2.ResumeLayout(False) Me.TabPage2.PerformLayout() Me.TabPage3.ResumeLayout(False) Me.TabPage3.PerformLayout() Me.TabPage5.ResumeLayout(False) Me.TabPage5.PerformLayout() Me.pnlzv.ResumeLayout(False) Me.pnlzv.PerformLayout() Me.pnlhostdiv.ResumeLayout(False) Me.pnlhostdiv.PerformLayout() Me.GroupBox4.ResumeLayout(False) Me.GroupBox4.PerformLayout() Me.GroupBox6.ResumeLayout(False) Me.GroupBox6.PerformLayout() Me.pnluvm.ResumeLayout(False) Me.pnluvm.PerformLayout() Me.PnlDokumentart.ResumeLayout(False) Me.Panel3.ResumeLayout(False) CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel4.ResumeLayout(False) Me.PnlPartner.ResumeLayout(False) Me.PnlPartner.PerformLayout() CType(Me.PartnerList, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage4.ResumeLayout(False) Me.GroupBox2.ResumeLayout(False) Me.GroupBox1.ResumeLayout(False) Me.GroupBox9.ResumeLayout(False) Me.GroupBox5.ResumeLayout(False) Me.TabControl1.ResumeLayout(False) Me.ResumeLayout(False) Me.PerformLayout() End Sub #End Region #Region "Deklarationen" Dim oninit As Boolean = False Dim WithEvents Partnerdialog As New FrmPartnersuche() Dim Profil_Ungueltig As Boolean Dim savenode As TreeNode Dim lbentry(1) As Object Dim i As Integer Dim m_profilnr As Integer Dim changes As Boolean Dim expandzv As Boolean = False 'Rel 3.7 / BUD 'Dim expanduvm As Boolean = False Dim ifirst As Integer = 0 Dim m_profile_geaendert As Boolean Property Profile_Geaendert() As Boolean Get Return m_profile_geaendert End Get Set(ByVal Value As Boolean) m_profile_geaendert = Value End Set End Property Property ProfilNr() As Integer Get Return m_profilnr End Get Set(ByVal Value As Integer) m_profilnr = Value End Set End Property Dim On_Load As Boolean Dim checkchanges As Boolean Dim Profname As String Dim NodeText As String Dim colconv As New ColorConverter() Dim WithEvents mcbunterschriftlinks As New MultiComboBox() Dim WithEvents mcbunterschriftrechts As New MultiComboBox() Dim WithEvents mcbTeam As New MultiComboBox() Dim li As ListViewItem Dim ActiveList As Integer Dim first As Boolean = True Dim tmb As DataTable Dim tnl As DataTable Dim tko As DataTable Dim tte As DataTable Dim tpe As DataTable Dim tst As DataTable Dim tda As DataTable Dim tdt As DataTable Dim tdh As DataTable Dim tku As DataTable Dim tdtzv As DataTable 'Rel 3.7 / BUD 'Dim tdtuvm As DataTable Dim mypartner As New edokadb.clsMyPartner() Dim partner As DataTable Dim dokumentart As New edokadb.clsMyDokumentart() Friend selectPoint As New System.Drawing.Point() Dim FirstNodeWithData As TreeNode #End Region #Region "Formularhandling" Private Sub frmProfil_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load On_Load = True 'TabPage löschen aber nur das erste mal beim Laden des Formulars. If ifirst = 0 Then TabPagesClear() ifirst = ifirst + 1 End If Me.TreeView2.Top = Me.TreeView1.Top Me.TreeView2.Left = Me.TreeView1.Left Me.TreeView2.Width = Me.TreeView1.Width Me.TreeView2.Height = Me.TreeView1.Height Me.TreeView2.Visible = False Me.Cursor = Cursors.WaitCursor Me.SqlConnection1.ConnectionString = Globals.sConnectionString Me.SqlConnection2.ConnectionString = Globals.sConnectionString Me.Profile.BeginUpdate() checkchanges = False changes = False Me.Profile.Nodes.Clear() Me.DataSet1.Clear() 'Personendaten Dim tn, tn1 As TreeNode If first Then init_treeview1() tmb = Generic_Select(3) tnl = Generic_Select(4) tko = Generic_Select(5) tte = Generic_Select(6) tst = Generic_Select(2) tpe = Generic_Select(1) tdt = Generic_Select(7) tdh = Generic_Select(8) tku = Generic_Select(9) 'Rel 3.7 / BUD 'tdtuvm = Generic_Select(10) tdtzv = Generic_Select(11) mcbTeam = New MultiComboBox(Me.cbteam) Me.mcbTeam.DisplayColumnName = "Bezeichnung" Me.mcbTeam.ValueColumnName = "teamnr" Me.mcbTeam.Fill_Data(tte, True) Me.mcbTeam.Visible = True Me.mcbTeam.CheckNullValue = False mcbunterschriftlinks = New MultiComboBox(Me.cbUnterschriftlinks) Me.mcbunterschriftlinks.CheckNullValue = False Me.mcbunterschriftlinks.DisplayColumnName = "name" Me.mcbunterschriftlinks.ValueColumnName = "mitarbeiternr" Me.mcbunterschriftlinks.Fill_Data(tpe, True) Me.mcbunterschriftlinks.Visible = True mcbunterschriftrechts = New MultiComboBox(Me.cbUnterschriftrechts) Me.mcbunterschriftrechts.CheckNullValue = False Me.mcbunterschriftrechts.DisplayColumnName = "name" Me.mcbunterschriftrechts.ValueColumnName = "mitarbeiternr" Me.mcbunterschriftrechts.Fill_Data(tpe, True) Me.mcbunterschriftrechts.Visible = True End If Dim hdata As New edokadb.clsMyDokumentart() hdata.cpMainConnectionProvider = conn tda = hdata.SelectHierarchy_Parametrisierung_By_Root(1) hdata.Dispose() Me.SqlConnection1.ConnectionString = Globals.sConnectionString Me.SqlDataAdapter1.SelectCommand.Parameters("@mitarbeiternr").Value = Globals.MitarbeiterNr Me.SqlDataAdapter1.SelectCommand.Parameters("@mandantnr").Value = Globals.MandantNr Me.SqlDataAdapter1.Fill(Me.DataSet1) For i = 0 To Me.DataSet1.Tables(0).Rows.Count - 1 tn = Me.Profile.Nodes.Add(Me.DataSet1.Tables(0).Rows(i).Item("bezeichnung")) tn.Tag = Me.DataSet1.Tables(0).Rows(i).Item("profilnr") If Me.DataSet1.Tables(0).Rows(i).Item("standard") Then tn.BackColor = System.Drawing.Color.LightBlue If Me.ProfilNr = 0 Then Me.ProfilNr = tn.Tag Else tn.BackColor = System.Drawing.Color.White End If Next first = False Load_Profil(Me.ProfilNr) checkchanges = False tn = Me.Profile.Nodes(0) Do Until tn Is Nothing If tn.Tag = Me.ProfilNr Then Me.Profile.SelectedNode = tn tn = tn.NextNode Loop On_Load = False first = False Me.TreeView1.ExpandAll() Profil_Colors() Me.LBSort.SelectedIndex = 0 Me.lbSortfields.SelectedIndex = 0 checkchanges = True Me.Profile.EndUpdate() Profname = "" Activate_Details() Me.Cursor = Cursors.Default 'hutter 20041014 'Me.TreeView1.BeginUpdate() nodeswithdata(1) nodeswithdata(2) nodeswithdata(3) nodeswithdata(70) 'Rel 3.7 / BUD 'nodeswithdata(90) nodeswithdata(72) 'Rel 3.7 / BUD 'nodeswithdata(92) 'hutter 20041014 'Me.TreeView1.EndUpdate() set_tips() Me.showhidetv(False) End Sub Private Sub TabPagesClear() 'Rel 3.7 / BUD -- UVM TabPage löschen Dim tbp0 As New TabPage() Dim tbp1 As New TabPage() Dim tbp2 As New TabPage() tbp0 = Me.TabControl2.TabPages(0) tbp1 = Me.TabControl2.TabPages(1) tbp2 = Me.TabControl2.TabPages(2) Me.TabControl2.TabPages.Clear() Me.TabControl2.TabPages.Add(tbp0) Me.TabControl2.TabPages.Add(tbp1) End Sub Private Sub showhidetv(ByVal showit As Boolean) Me.TreeView2.Top = Me.TreeView1.Top Me.TreeView2.Left = Me.TreeView1.Left Me.TreeView2.Height = Me.TreeView1.Height Me.TreeView2.Width = Me.TreeView1.Width If showit Then Me.TreeView2.Visible = True Me.TreeView1.Visible = False Else Me.TreeView2.Visible = False Me.TreeView1.Visible = True Me.TreeView1.SelectedNode = Me.TreeView1.Nodes(0) End If End Sub Private Sub Activate_Details() Me.TreeView1.SelectedNode = Nothing If Me.FirstNodeWithData Is Nothing Then DivFnkt.Searchnode1(Me.TreeView1, 41, 99) If DivFnkt.found Then 'If colconv.ConvertToString(DivFnkt.FoundNode.ForeColor) = colconv.ConvertToString(System.Drawing.Color.Blue) Then Me.TreeView1.SelectedNode = DivFnkt.FoundNode 'Me.PnlDokumentart.Visible = True 'End If End If Else Me.TreeView1.SelectedNode = Me.FirstNodeWithData End If End Sub Private Function init_treeview1() Me.TreeView1.Nodes.Clear() Dim t0, tn, tn1 As TreeNode 'hutter 20041014 'TreeView1.BeginUpdate() Me.TreeView1.Nodes.Clear() t0 = Me.TreeView1.Nodes.Add("Partner") t0.ImageIndex = 10 t0.SelectedImageIndex = 10 t0.Tag = 999 tn1 = t0.Nodes.Add("Partner") tn1.Tag = 41 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn1 = t0.Nodes.Add("Kundenbetreuer") tn1.Tag = 51 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 t0 = Me.TreeView1.Nodes.Add("EDOKA-Dokumente") t0.ImageIndex = 6 t0.SelectedImageIndex = 6 t0.Tag = 998 tn = t0.Nodes.Add("Verantwortlich") tn.ImageIndex = 7 tn.SelectedImageIndex = 7 tn.Tag = 1 tn1 = tn.Nodes.Add("Marktbereich") tn1.Tag = 11 tn1.SelectedImageIndex = 4 tn1.ImageIndex = 4 tn1 = tn.Nodes.Add("Niederlassung") tn1.Tag = 12 tn1.SelectedImageIndex = 4 tn1.ImageIndex = 4 tn1 = tn.Nodes.Add("Kostenstelle") tn1.Tag = 13 tn1.SelectedImageIndex = 4 tn1.ImageIndex = 4 tn1 = tn.Nodes.Add("Team") tn1.Tag = 14 tn1.SelectedImageIndex = 4 tn1.ImageIndex = 4 tn1 = tn.Nodes.Add("Mitarbeiter") tn1.Tag = 15 tn1.SelectedImageIndex = 4 tn1.ImageIndex = 4 'tn = Me.TreeView1.Nodes.Add("Ersteller") tn = t0.Nodes.Add("Ersteller") tn.ImageIndex = 8 tn.SelectedImageIndex = 8 tn.Tag = 2 tn1.SelectedImageIndex = 4 tn1 = tn.Nodes.Add("Marktbereich") tn1.Tag = 21 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn1 = tn.Nodes.Add("Niederlassung") tn1.Tag = 22 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn1 = tn.Nodes.Add("Kostenstelle") tn1.Tag = 23 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn1 = tn.Nodes.Add("Team") tn1.Tag = 24 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn1 = tn.Nodes.Add("Mitarbeiter") tn1.Tag = 25 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn = t0.Nodes.Add("Mutierer") 'tn = Me.TreeView1.Nodes.Add("Mutierer") tn.ImageIndex = 9 tn.SelectedImageIndex = 9 tn.Tag = 3 tn1 = tn.Nodes.Add("Marktbereich") tn1.SelectedImageIndex = 4 tn1.Tag = 31 tn1.ImageIndex = 4 tn1 = tn.Nodes.Add("Niederlassung") tn1.SelectedImageIndex = 4 tn1.Tag = 32 tn1.ImageIndex = 4 tn1 = tn.Nodes.Add("Kostenstelle") tn1.Tag = 33 tn1.ImageIndex = 4 tn1 = tn.Nodes.Add("Team") tn1.Tag = 34 tn1.ImageIndex = 4 tn1 = tn.Nodes.Add("Mitarbeiter") tn1.Tag = 35 tn1.ImageIndex = 4 'tn = t0.Nodes.Add("Diverses") ' tn = Me.TreeView1.Nodes.Add("Diverses") 'tn.ImageIndex = 6 'tn.SelectedImageIndex = 6 'tn.Tag = 4 'tn1 = tn.Nodes.Add("Partner") 'tn1.Tag = 41 'tn1.ImageIndex = 4 'tn1.SelectedImageIndex = 4 tn1 = t0.Nodes.Add("Dokumentart") tn1.Tag = 42 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn1 = t0.Nodes.Add("Dokumenttyp") tn1.Tag = 43 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn1 = t0.Nodes.Add("Dokumentstatus") tn1.Tag = 44 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn1 = t0.Nodes.Add("Datum-Selektion") tn1.Tag = 45 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn1 = t0.Nodes.Add("inkl. gelöschte/aufgehobene") tn1.Tag = 62 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn1 = t0.Nodes.Add("Sortierung") tn1.Tag = 60 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn = t0.Nodes.Add("ZV-Belege") tn.Tag = 70 tn.ImageIndex = 12 tn.SelectedImageIndex = 12 tn1 = tn.Nodes.Add("Dokumenttyp") tn1.Tag = 71 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn1 = tn.Nodes.Add("Datum-Selektion") tn1.Tag = 72 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn1 = tn.Nodes.Add("Auftrags-Nr.") tn1.Tag = 73 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn1 = tn.Nodes.Add("Auftraggeber") tn1.Tag = 74 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn1 = tn.Nodes.Add("Betrag") tn1.Tag = 75 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn1 = tn.Nodes.Add("Clearing-Nr.") tn1.Tag = 76 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn1 = tn.Nodes.Add("ISO-Währung") tn1.Tag = 77 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn1 = tn.Nodes.Add("Konto Begünstigter") tn1.Tag = 78 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn1 = tn.Nodes.Add("PC-Nr") tn1.Tag = 79 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn1 = tn.Nodes.Add("Posten-Nr.") tn1.Tag = 80 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn1 = tn.Nodes.Add("Referenz-Nr.") tn1.Tag = 81 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn1 = tn.Nodes.Add("SWIFT-Adresse") tn1.Tag = 82 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn1 = tn.Nodes.Add("Verarbeitungsart") tn1.Tag = 83 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn1 = tn.Nodes.Add("Zahlungsart") tn1.Tag = 84 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn.Collapse() 'Rel 3.7 / BUD 'tn = t0.Nodes.Add("Basis-Verträge") 'tn.Tag = 90 'tn.ImageIndex = 13 'tn.SelectedImageIndex = 13 'tn1 = tn.Nodes.Add("Dokumenttyp") 'tn1.Tag = 91 'tn1.ImageIndex = 4 'tn1.SelectedImageIndex = 4 'tn1 = tn.Nodes.Add("Datum-Selektion") 'tn1.Tag = 92 'tn1.ImageIndex = 4 'tn1.SelectedImageIndex = 4 'tn1 = tn.Nodes.Add("Auftrags-Nr.") 'tn1.Tag = 93 'tn1.ImageIndex = 4 'tn1.SelectedImageIndex = 4 'tn = t0.Nodes.Add("HOST-Dokumente") tn = Me.TreeView1.Nodes.Add("Host-Dokumente") tn.ImageIndex = 11 tn.SelectedImageIndex = 11 tn.Tag = 5 ' tn1 = tn.Nodes.Add("Partner") ' tn1.Tag = 51 ' tn1.ImageIndex = 4 ' tn1.SelectedImageIndex = 4 tn1 = tn.Nodes.Add("Dokumentart") tn1.Tag = 52 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn1 = tn.Nodes.Add("Dokumenttyp") tn1.Tag = 53 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 'tn1 = tn.Nodes.Add("Dokumentstatus") 'tn1.Tag = 54 'tn1.ImageIndex = 4 'tn1.SelectedImageIndex = 4 tn1 = tn.Nodes.Add("VV") tn1.Tag = 54 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn1 = tn.Nodes.Add("Valorennr") tn1.Tag = 59 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn1 = tn.Nodes.Add("ISIN-Nr") tn1.Tag = 58 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn1 = tn.Nodes.Add("Datum-Selektion") tn1.Tag = 55 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn1 = tn.Nodes.Add("Sortierung") tn1.Tag = 61 tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 Me.TVDokart.Nodes.Clear() dokumentart.LoadTreeMenu(Me.TVDokart, 2) Me.TVDokart.CollapseAll() Me.TVHostDok.Nodes.Clear() dokumentart.LoadTreeMenu(Me.TVHostDok, 3) Me.TVHostDok.ExpandAll() 'hutter 20041014 'Me.TreeView1.EndUpdate() End Function Private Function Profil_Colors() Dim tn As TreeNode Me.Profile.BeginUpdate() tn = Me.Profile.Nodes(0) Do Until tn Is Nothing If colconv.ConvertToString(tn.BackColor) = colconv.ConvertToString(System.Drawing.Color.LightBlue) Then tn.BackColor = System.Drawing.Color.LightBlue Else tn.BackColor = System.Drawing.Color.White End If tn = tn.NextNode Loop Try Me.Profile.SelectedNode.BackColor = System.Drawing.Color.Silver Me.Profile.EndUpdate() Catch End Try End Function #End Region #Region "MenuHandling" Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click Try If Me.TreeView1.SelectedNode.Tag = 42 Then Me.TVDokart.BeginUpdate() Me.TVDokart.SelectedNode.ExpandAll() Me.TVDokart.EndUpdate() Else Me.TVHostDok.BeginUpdate() Me.TVHostDok.SelectedNode.ExpandAll() Me.TVHostDok.EndUpdate() End If Catch End Try End Sub Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click If Me.TreeView1.SelectedNode.Tag = 42 Then Me.TVDokart.SelectedNode.Collapse() Else Me.TVHostDok.SelectedNode.Collapse() 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 Me.MenuItem5_Click(sender, e) Case 1 Case 2 Me.showhidetv(True) Me.TreeView1.BeginUpdate() Me.Profile.BeginUpdate() Me.On_Load = True Me.oninit = True Save_Profile() Me.Profile.EndUpdate() If Me.Profil_Ungueltig = True Then MyMsg.show_standardmessage(104, MsgBoxStyle.Critical) Me.On_Load = False Me.oninit = False Me.TreeView1.EndUpdate() Me.TreeView2.Visible = False Me.showhidetv(False) Case 3 Me.TreeView1.BeginUpdate() Me.showhidetv(True) oninit = True init_profile() Me.init_datumzvuvm() oninit = False Me.TreeView1.SelectedNode = Me.TreeView1.Nodes(0) Me.TreeView1.EndUpdate() Me.showhidetv(False) Case Else End Select End Sub Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click Try Dim tn As TreeNode Dim p As New edokadb.clsProfil() p.cpMainConnectionProvider = conn Me.Profile.BeginUpdate() tn = Me.Profile.Nodes(0) Do Until tn Is Nothing If colconv.ConvertToString(tn.BackColor) = colconv.ConvertToString(System.Drawing.Color.LightBlue) Then conn.OpenConnection() p.iProfilnr = New SqlInt32(CType(tn.Tag, Int32)) p.SelectOne() p.bStandard = New SqlBoolean(CType(False, Boolean)) p.Update() conn.CloseConnection(True) End If tn.BackColor = System.Drawing.Color.White tn = tn.NextNode Loop conn.OpenConnection() p.iProfilnr = New SqlInt32(CType(Me.Profile.SelectedNode.Tag, Int32)) p.SelectOne() p.bStandard = New SqlBoolean(CType(True, Boolean)) p.Update() conn.CloseConnection(True) p.Dispose() Me.Profile.SelectedNode.BackColor = System.Drawing.Color.LightBlue Me.Profile.EndUpdate() Catch End Try End Sub Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click Try Dim a As String a = InputBox(MyTxt.gettext(501)) If a <> "" Then Me.showhidetv(True) Me.Profile_Geaendert = True Me.Profile.SelectedNode.Text = a Me.Profname = a If checkchanges Then changes = True Me.showhidetv(False) End If Catch End Try End Sub Private Sub MenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem10.Click If MyMsg.Show_MessageYesNo(16) = MsgBoxResult.Yes Then Dim p As New edokadb.clsProfil() p.cpMainConnectionProvider = conn Me.Profile_Geaendert = True conn.OpenConnection() p.iProfilnr = New SqlInt32(CType(Me.Profile.SelectedNode.Tag, Int32)) p.SelectOne() p.bAktiv = New SqlBoolean(CType(False, Boolean)) p.Update() p.Dispose() conn.CloseConnection(True) Me.ProfilNr = 0 Me.showhidetv(True) frmProfil_Load(sender, e) Me.showhidetv(False) End If End Sub Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click Me.Close() End Sub Private Sub MenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem11.Click check_changes() Dim a As String a = InputBox(MyTxt.gettext(501)) If a <> "" Then Me.Profile_Geaendert = True Dim p As New edokadb.clsProfil() Dim dbkey As New edokadb.clsMyKey_Tabelle() Dim key As Int32 dbkey.cpMainConnectionProvider = conn p.cpMainConnectionProvider = conn key = dbkey.get_dbkey("profil") conn.OpenConnection() p.iProfilnr = New SqlInt32(CType(0, Int32)) p.SelectOne() p.bAktiv = New SqlBoolean(CType(True, Boolean)) p.sBezeichnung = New SqlString(CType(a, String)) p.iMitarbeiternr = New SqlInt32(CType(Globals.MitarbeiterNr, Int32)) p.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32)) p.iProfilnr = New SqlInt32(CType(key, Int32)) p.daMutiert_am = New SqlDateTime(CType(Now, DateTime)) p.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32)) p.sVma = New SqlString(CType(Globals.MitarbeiterNr, String)) p.Insert() conn.CloseConnection(True) p.Dispose() dbkey.Dispose() Me.ProfilNr = key Me.showhidetv(True) Me.frmProfil_Load(sender, e) Me.init_datumzvuvm() Me.showhidetv(False) End If End Sub Private Sub MenuItem13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem13.Click Dim a As String a = InputBox(MyTxt.gettext(501)) If a <> "" Then Me.Profile_Geaendert = True Dim p As New edokadb.clsProfil() Dim dbkey As New edokadb.clsMyKey_Tabelle() Dim key As Int32 dbkey.cpMainConnectionProvider = conn p.cpMainConnectionProvider = conn key = dbkey.get_dbkey("profil") conn.OpenConnection() p.iProfilnr = New SqlInt32(CType(Me.ProfilNr, Int32)) p.SelectOne() p.sBezeichnung = New SqlString(CType(a, String)) p.iProfilnr = New SqlInt32(CType(key, Int32)) p.Insert() conn.CloseConnection(True) p.Dispose() dbkey.Dispose() Me.ProfilNr = key Me.showhidetv(True) Me.frmProfil_Load(sender, e) Me.showhidetv(False) End If End Sub Private Sub MnuSelectDokumentart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuSelectDokumentart.Click If Me.TreeView1.SelectedNode.Tag = 42 Then Me.TVDokart.SelectedNode.ImageIndex = 1 Me.TVDokart.SelectedNode.ForeColor = System.Drawing.Color.Red Else Me.TVHostDok.SelectedNode.ImageIndex = 1 Me.TVHostDok.SelectedNode.ForeColor = System.Drawing.Color.Red End If changes = True End Sub Private Sub MnuDeleteDokumentart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuDeleteDokumentart.Click If Me.TreeView1.SelectedNode.Tag = 42 Then Me.TVDokart.SelectedNode.ImageIndex = 2 Me.TVDokart.SelectedNode.ForeColor = System.Drawing.Color.Black Else Me.TVHostDok.SelectedNode.ImageIndex = 2 Me.TVHostDok.SelectedNode.ForeColor = System.Drawing.Color.Black End If changes = True End Sub Private Sub MnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuDel.Click Try Dim tn As TreeNode tn = TreeView1.SelectedNode tn.Remove() changes = True Catch End Try End Sub Private Sub CTmenu1_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ctmenu1.Popup Try Dim tn As TreeNode tn = Me.TreeView1.SelectedNode Try Dim I As Integer I = tn.Parent.Tag Catch Me.MnuDel.Enabled = False Me.MenuItem14.Enabled = False Exit Sub End Try Me.MnuDel.Enabled = False Me.MenuItem14.Enabled = False Select Case tn.Parent.Tag Case 11, 12, 13, 14, 15, 21, 22, 23, 24, 25, 31, 32, 33, 34, 35, 41, 42, 43, 44, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 91, 92, 93, 51, 52, 53, 54, 58, 59 Me.MnuDel.Enabled = True Case 999, 1, 2, 3, 70, 90, 5, 90, 30, 998 If tn.Tag <> 42 And tn.Tag <> 45 And tn.Tag <> 62 And tn.Tag <> 60 And tn.Tag <> 72 And tn.Tag <> 92 And tn.Tag <> 52 And tn.Tag <> 55 And tn.Tag <> 61 Then Me.MenuItem14.Enabled = True End If End Select Catch End Try End Sub #End Region #Region "Datenhandling" Private Sub mcb_Changed(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mcbunterschriftlinks.SelectedValueChanged, mcbunterschriftrechts.SelectedValueChanged, mcbTeam.SelectedValueChanged, cb5.CheckedChanged, cb4.CheckedChanged, cb2.CheckedChanged, cb1.CheckedChanged, cb3.CheckedChanged, cb3_1.CheckedChanged If checkchanges Then changes = True End If End Sub Private Function Generic_Select(ByVal typ As Integer) As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() Select Case typ Case 1 scmCmdToExecute.CommandText = "dbo.SP_Profil_Mitarbeiter" Case 2 scmCmdToExecute.CommandText = "dbo.SP_Profil_Status" Case 3 scmCmdToExecute.CommandText = "dbo.SP_Profil_Marktbereich" Case 4 scmCmdToExecute.CommandText = "dbo.SP_Profil_Niederlassung" Case 5 scmCmdToExecute.CommandText = "dbo.SP_Profil_Kostenstelle" Case 6 scmCmdToExecute.CommandText = "dbo.SP_Profil_Team" Case 7 scmCmdToExecute.CommandText = "dbo.SP_Profil_Dokumenttyp" Case 8 scmCmdToExecute.CommandText = "dbo.SP_Profil_DokumenttypHost" Case 9 scmCmdToExecute.CommandText = "dbo.SP_Profil_Mitarbeiter_kube" Case 10 scmCmdToExecute.CommandText = "dbo.SP_Profil_Dokumenttyp_uvm" Case 11 scmCmdToExecute.CommandText = "dbo.SP_Profil_Dokumenttyp_ZV" 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 "Load_Save" Private Sub Set_Values(ByVal data As String, ByVal ds As DataTable, ByVal node As Integer) If data = "" Then Exit Sub Dim splitter Dim i As Integer Dim s As String Dim tn As TreeNode Dim dv As New DataTable() Dim i1 As Integer Dim v As Double Select Case node Case 11, 21, 31 dv = Me.tmb Case 12, 22, 32 dv = Me.tnl Case 13, 23, 33 dv = Me.tko Case 14, 24, 34 dv = Me.tte Case 15, 25, 35 dv = Me.tpe Case 51 dv = Me.tku Case 43 dv = Me.tdt Case 53 dv = Me.tdh Case 44 dv = Me.tst Case 71 dv = Me.tdtzv 'Rel 3.7 / BUD 'Case 91 ' dv = Me.tdtuvm Case Else End Select s = data splitter = Microsoft.VisualBasic.Split(s, ";") i = 0 Try Do Until splitter(i) Is Nothing Select Case node Case 41 Dim p As New edokadb.clsPartner() Try DivFnkt.Searchnode1(Me.TreeView1, node, 0) If DivFnkt.found Then Me.TreeView1.SelectedNode = DivFnkt.FoundNode tn = Me.TreeView1.SelectedNode p.cpMainConnectionProvider = conn p.iNRPAR00 = New SqlInt32(CType(splitter(i), Int32)) p.SelectOne() tn = tn.Nodes.Add(splitter(i) + " - " + p.sBKPAR00.Value) tn.Tag = splitter(i) Me.FirstNodeWithData = DivFnkt.FoundNode tn.ImageIndex = 4 tn.SelectedImageIndex = 4 tn.ForeColor = System.Drawing.Color.Red End If Catch ex As Exception Finally p.Dispose() 'i = i + 1 End Try Case 42, 52 DivFnkt.Searchnode(Me.TVDokart, splitter(i), 0) If DivFnkt.found Then DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Red DivFnkt.FoundNode.ImageIndex = 1 If Not DivFnkt.FoundNode.Parent.IsExpanded Then DivFnkt.FoundNode.Parent.ExpandAll() End If Case 54, 58, 59, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 92, 93, 94 Try DivFnkt.Searchnode1(Me.TreeView1, node, 0) If DivFnkt.found And splitter(i) <> "" Then Me.TreeView1.SelectedNode = DivFnkt.FoundNode tn = Me.TreeView1.SelectedNode tn = tn.Nodes.Add(splitter(i)) tn.Tag = splitter(i) If Me.FirstNodeWithData Is Nothing Then Me.FirstNodeWithData = DivFnkt.FoundNode End If tn.ImageIndex = 4 tn.SelectedImageIndex = 4 tn.ForeColor = System.Drawing.Color.Red End If Catch End Try Case Else For i1 = 0 To dv.Rows.Count - 1 v = Val(splitter(i)) If dv.Rows(i1).Item(0) = splitter(i) Then DivFnkt.Searchnode1(Me.TreeView1, node, 99) If DivFnkt.found Then If Me.FirstNodeWithData Is Nothing Then Me.FirstNodeWithData = DivFnkt.FoundNode End If Me.TreeView1.SelectedNode = DivFnkt.FoundNode tn = Me.TreeView1.SelectedNode tn = tn.Nodes.Add(dv.Rows(i1).Item(1)) tn.Tag = dv.Rows(i1).Item(0) tn.ImageIndex = 4 tn.SelectedImageIndex = 4 If dv.Rows(i1).Item(2) = False Then tn.ForeColor = System.Drawing.Color.Gray Else tn.ForeColor = System.Drawing.Color.Red End If End If End If Next End Select i = i + 1 Loop Catch ex As Exception ' MsgBox(ex.Message) End Try End Sub Private Sub Load_Profil(ByVal profilnr As Long) Me.FirstNodeWithData = Nothing checkchanges = False 'hutter 20041014 'Me.TreeView1.BeginUpdate() Me.TVDokart.BeginUpdate() Dim p As New edokadb.clsProfil() Dim ma As New edokadb.clsMitarbeiter() Dim s As String Dim splitter Dim i As Integer p.cpMainConnectionProvider = conn conn.OpenConnection() p.iProfilnr = New SqlInt32(CType(Me.ProfilNr, Int32)) p.SelectOne() init_treeview1() 'Selektion Try Set_Values(p.sDpartner.Value, Me.tpe, 41) Set_Values(p.sHostpartner.Value, Me.tku, 51) Set_Values(p.sVmb.Value, Me.tmb, 11) Set_Values(p.sVnl.Value, Me.tnl, 12) Set_Values(p.sVkost.Value, Me.tko, 13) Set_Values(p.sVteam.Value, Me.tte, 14) Set_Values(p.sVma.Value, Me.tpe, 15) Set_Values(p.sEmb.Value, Me.tmb, 21) Set_Values(p.sEnl.Value, Me.tnl, 22) Set_Values(p.sEkost.Value, Me.tko, 23) Set_Values(p.sEteam.Value, Me.tte, 24) Set_Values(p.sEma.Value, Me.tpe, 25) Set_Values(p.sMmb.Value, Me.tmb, 31) Set_Values(p.sMnl.Value, Me.tnl, 32) Set_Values(p.sMkost.Value, Me.tko, 33) Set_Values(p.sMteam.Value, Me.tte, 34) Set_Values(p.sMma.Value, Me.tpe, 35) Set_Values(p.sDdokstatus.Value, Me.tst, 44) Set_Values(p.sDoktyp.Value, Me.tdt, 43) Set_Values(p.sDdokart.Value, Me.tst, 42) Set_Values(p.sHostdatum3.Value, Me.tpe, 58) Set_Values(p.sHosttag3.Value, Me.tpe, 59) Set_Values(p.sHosttag1.Value, Me.tpe, 54) Set_Values(p.sHostdokart.Value, Me.tpe, 52) Set_Values(p.sHostdoktyp.Value, Me.tdh, 53) 'Set_Values(p.sHostdoktyp.Value, Me.tdh, 53) Set_Values(p.sZvauftraggeber.Value, Me.tdh, 74) Set_Values(p.sZvauftragnr.Value, Me.tdh, 73) Set_Values(p.sZvbetrag.Value, Me.tdh, 75) Set_Values(p.sZvclearingnr.Value, Me.tdh, 76) Set_Values(p.sZviso.Value, Me.tdh, 77) Set_Values(p.sZvkontobeg.Value, Me.tdh, 78) Set_Values(p.sZvpcnr.Value, Me.tdh, 79) Set_Values(p.sZvposten.Value, Me.tdh, 80) Set_Values(p.sZvreferenznr.Value, Me.tdh, 81) Set_Values(p.sZvswift.Value, Me.tdh, 82) Set_Values(p.sZvverarbeitungsart.Value, Me.tdh, 83) Set_Values(p.sZvzahlungsart.Value, Me.tdh, 84) Set_Values(p.sZvdokumenttyp.Value, Me.tdtzv, 71) 'Rel 3.7 / BUD 'Set_Values(p.sUvmauftragnr.Value, Me.tdh, 93) 'Set_Values(p.sUvmdoktyp.Value, Me.tdtuvm, 91) DivFnkt.Searchnode1(Me.TreeView1, 51, 0) If DivFnkt.found Then If p.sHostpartner.Value <> "" Then ' DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue Me.FirstNodeWithData = DivFnkt.FoundNode Else DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Black End If End If DivFnkt.Searchnode1(Me.TreeView1, 42, 0) If DivFnkt.found Then If p.sDdokart.Value <> "" Then DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue If FirstNodeWithData Is Nothing Then Me.FirstNodeWithData = DivFnkt.FoundNode Else DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Black End If End If DivFnkt.Searchnode1(Me.TreeView1, 52, 0) If DivFnkt.found Then If p.sHostdokart.Value <> "" Then DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue If FirstNodeWithData Is Nothing Then Me.FirstNodeWithData = DivFnkt.FoundNode Else DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Black End If End If DivFnkt.Searchnode1(Me.TreeView1, 58, 0) If DivFnkt.found Then If p.sHosttag3.Value <> "" Then 'DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue If Me.FirstNodeWithData Is Nothing Then Me.FirstNodeWithData = DivFnkt.FoundNode Else DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Black End If End If DivFnkt.Searchnode1(Me.TreeView1, 59, 0) If DivFnkt.found Then If p.sHostdatum3.Value <> "" Then 'DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue If Me.FirstNodeWithData Is Nothing Then Me.FirstNodeWithData = DivFnkt.FoundNode Else DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Black End If End If DivFnkt.Searchnode1(Me.TreeView1, 54, 0) If DivFnkt.found Then If p.sHosttag1.Value <> "" Then 'DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue If Me.FirstNodeWithData Is Nothing Then Me.FirstNodeWithData = DivFnkt.FoundNode Else DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Black End If End If 'Unterschriften/Hinweise Me.mcbunterschriftlinks.SelectedValue = p.iUnterschriftlinks.Value Me.mcbunterschriftrechts.SelectedValue = p.iUnterschriftrechts.Value Me.mcbTeam.SelectedValue = p.iTeam.Value If p.iHw1.IsNull Then Me.cb1.Checked = False Else Me.cb1.Checked = p.iHw1.Value If p.iHw2.IsNull Then Me.cb2.Checked = False Else Me.cb2.Checked = p.iHw2.Value If p.iHw3.IsNull Then Me.cb3.Checked = False Else Me.cb3.Checked = p.iHw3.Value If p.iHw4.IsNull Then Me.cb4.Checked = False Else Me.cb4.Checked = p.iHw4.Value If p.iHw5.IsNull Then Me.cb5.Checked = False Else Me.cb5.Checked = p.iHw5.Value If p.iHw6.IsNull Then Me.cb3_1.Checked = False Else Me.cb3_1.Checked = p.iHw6.Value 'Darstellung/Sortierung Try Me.colbtn1.BackColor = colconv.ConvertFromString(p.sColor1.Value) Me.colbtn2.BackColor = colconv.ConvertFromString(p.sColor2.Value) Me.colbtn3.BackColor = colconv.ConvertFromString(p.sColor3.Value) Me.colbtn4.BackColor = colconv.ConvertFromString(p.sColor4.Value) Me.colbtn5.BackColor = colconv.ConvertFromString(p.sColor5.Value) Me.colbtn6.BackColor = colconv.ConvertFromString(p.sColor6.Value) Catch End Try Me.lbselect.Items.Clear() s = p.sSort.Value Try splitter = Microsoft.VisualBasic.Split(s, ";") i = 0 Do Until splitter(i) Is Nothing If splitter(i) <> "" Then Me.lbselect.Items.Add(splitter(i)) End If i = i + 1 Loop Catch End Try Me.LBSelectHost.Items.Clear() s = p.sHosttag2.Value Try splitter = Microsoft.VisualBasic.Split(s, ";") i = 0 Do Until splitter(i) Is Nothing If splitter(i) <> "" Then Me.LBSelectHost.Items.Add(splitter(i)) End If i = i + 1 Loop Catch End Try Me.txtdatum1.Text = Convert_Seldate_von(p.sDatum1.Value) If p.sDatum1.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sDatum1.Value, 2) = "(h" Then Me.cbrollend1.Checked = True Me.txtdatum2.Text = Convert_Seldate_bis(p.sDatum2.Value) If p.sDatum2.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sDatum2.Value, 2) = "(h" Then Me.cbrollend2.Checked = True Me.txtdatum3.Text = Convert_Seldate_von(p.sDatum3.Value) If p.sDatum3.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sDatum3.Value, 2) = "(h" Then Me.cbrollend3.Checked = True Me.txtdatum4.Text = Convert_Seldate_bis(p.sDatum4.Value) If p.sDatum4.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sDatum4.Value, 2) = "(h" Then Me.cbrollend4.Checked = True Me.txtdatum5.Text = Convert_Seldate_von(p.sDatum5.Value) If p.sDatum5.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sDatum5.Value, 2) = "(h" Then Me.cbrollend5.Checked = True Me.txtdatum6.Text = Convert_Seldate_bis(p.sDatum6.Value) If p.sDatum6.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sDatum6.Value, 2) = "(h" Then Me.cbrollend6.Checked = True Me.HostDatum1.Text = Convert_Seldate_von(p.sHostdatum1.Value) If p.sHostdatum1.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sHostdatum1.Value, 2) = "(h" Then Me.cbrollend8.Checked = True Me.HostDatum2.Text = Convert_Seldate_bis(p.sHostdatum2.Value) If p.sHostdatum2.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sHostdatum2.Value, 2) = "(h" Then Me.cbrollend9.Checked = True 'Rel 3.7 / BUD 'Me.txtdatum1uvm.Text = Convert_Seldate_von(p.sUvmdatum1.Value) 'If p.sUvmdatum1.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sUvmdatum1.Value, 2) = "(h" Then Me.cbuvmrollend1.Checked = True 'Me.txtdatum2uvm.Text = Convert_Seldate_von(p.sUvmdatum2.Value) 'If p.sUvmdatum2.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sUvmdatum2.Value, 2) = "(h" Then Me.cbuvmrollend2.Checked = True 'Me.txtdatum3uvm.Text = Convert_Seldate_von(p.sUvmdatum3.Value) 'If p.sUvmdatum3.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sUvmdatum3.Value, 2) = "(h" Then Me.cbuvmrollend3.Checked = True 'Me.txtdatum4uvm.Text = Convert_Seldate_von(p.sUvmdatum4.Value) 'If p.sUvmdatum4.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sUvmdatum4.Value, 2) = "(h" Then Me.cbuvmrollend4.Checked = True Me.txtdatum1zv.Text = Convert_Seldate_von(p.sZvdatum1.Value) If p.sZvdatum1.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sZvdatum1.Value, 2) = "(h" Then Me.cbzvrollend1.Checked = True Me.txtdatum2zv.Text = Convert_Seldate_von(p.sZvdatum2.Value) If p.sZvdatum2.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sZvdatum2.Value, 2) = "(h" Then Me.cbzvrollend2.Checked = True Me.txtdatum3zv.Text = Convert_Seldate_von(p.sZvdatum3.Value) If p.sZvdatum3.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sZvdatum3.Value, 2) = "(h" Then Me.cbzvrollend3.Checked = True Me.txtdatum4zv.Text = Convert_Seldate_von(p.sZvdatum4.Value) If p.sZvdatum4.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sZvdatum4.Value, 2) = "(h" Then Me.cbzvrollend4.Checked = True Me.hostinklmavip.Checked = p.bInklhostmavip.Value = True Dim div As Boolean = False If p.sDatum1.Value <> "(heute)-999999" Then div = True If p.sDatum2.Value <> "(heute)" And p.sDatum2.Value <> "(heute)-0" Then div = True If p.sDatum3.Value <> "(heute)-999999" Then div = True If p.sDatum4.Value <> "(heute)" And p.sDatum4.Value <> "(heute)-0" Then div = True If p.sDatum5.Value <> "(heute)-999999" Then div = True If p.sDatum6.Value <> "(heute)" And p.sDatum6.Value <> "(heute)-0" Then div = True If div Then DivFnkt.Searchnode(Me.TreeView1, 45, 0) If DivFnkt.found Then DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue DivFnkt.FoundNode.ImageIndex = 4 If Me.FirstNodeWithData Is Nothing Then Me.FirstNodeWithData = DivFnkt.FoundNode End If End If End If div = False If p.sHostdatum1.Value <> "(heute)-999999" Then div = True If p.sHostdatum2.Value <> "(heute)" And p.sHostdatum2.Value <> "(heute)-0" Then div = True If div Then DivFnkt.Searchnode(Me.TreeView1, 55, 0) If DivFnkt.found Then DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue DivFnkt.FoundNode.ImageIndex = 4 If Me.FirstNodeWithData Is Nothing Then Me.FirstNodeWithData = DivFnkt.FoundNode End If End If End If If p.sSort.Value <> "" Then DivFnkt.Searchnode(Me.TreeView1, 60, 0) If DivFnkt.found Then DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue DivFnkt.FoundNode.ImageIndex = 4 If Me.FirstNodeWithData Is Nothing Then Me.FirstNodeWithData = DivFnkt.FoundNode End If End If End If If p.sHosttag2.Value <> "" Then DivFnkt.Searchnode(Me.TreeView1, 61, 0) If DivFnkt.found Then DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue DivFnkt.FoundNode.ImageIndex = 4 If Me.FirstNodeWithData Is Nothing Then Me.FirstNodeWithData = DivFnkt.FoundNode End If End If End If Dim div1 As Boolean 'Rel 3.7 / BUD 'Me.expanduvm = False Me.expandzv = False div1 = False 'If p.sUvmdatum1.Value <> "(heute)-999999" Then div1 = True 'If p.sUvmdatum2.Value <> "(heute)" And p.sUvmdatum2.Value <> "(heute)-0" Then div1 = True 'If p.sUvmdatum3.Value <> "(heute)-999999" Then div1 = True 'If p.sUvmdatum4.Value <> "(heute)" And p.sUvmdatum4.Value <> "(heute)-0" Then div1 = True If div1 Then 'Rel 3.7 / BUD 'DivFnkt.Searchnode(Me.TreeView1, 92, 0) 'If DivFnkt.found Then ' DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue ' DivFnkt.FoundNode.ImageIndex = 4 ' DivFnkt.FoundNode.Parent.Expand() ' If Me.FirstNodeWithData Is Nothing Then ' Me.FirstNodeWithData = DivFnkt.FoundNode ' End If ' Me.expanduvm = True 'End If End If div1 = False If p.sZvdatum1.Value <> "(heute)-999999" Then div1 = True If p.sZvdatum2.Value <> "(heute)" And p.sZvdatum2.Value <> "(heute)-0" Then div1 = True If p.sZvdatum3.Value <> "(heute)-999999" Then div1 = True If p.sZvdatum4.Value <> "(heute)" And p.sZvdatum4.Value <> "(heute)-0" Then div1 = True If div1 Then DivFnkt.Searchnode(Me.TreeView1, 72, 0) If DivFnkt.found Then DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue DivFnkt.FoundNode.ImageIndex = 4 DivFnkt.FoundNode.Parent.Expand() If Me.FirstNodeWithData Is Nothing Then Me.FirstNodeWithData = DivFnkt.FoundNode End If Me.expandzv = True End If End If Me.cbmavip.Checked = p.bInklmavip.Value = True Me.cinklalt.Checked = p.bInklalt.Value = True Me.cinklaltversant.Checked = p.bInkInaktVersant.Value = True DivFnkt.Searchnode1(Me.TreeView1, 62, 99) If DivFnkt.found Then Me.TreeView1.SelectedNode = DivFnkt.FoundNode If Me.cinklalt.Checked = True Or Me.cinklaltversant.Checked = True Then Me.TreeView1.SelectedNode.ForeColor = System.Drawing.Color.Red Else Me.TreeView1.SelectedNode.ForeColor = System.Drawing.Color.Black End If End If If p.sVma.Value = "" And p.sVmb.Value = "" And p.sVnl.Value = "" And p.sVkost.Value = "" And p.sVteam.Value = "" Then Else DivFnkt.Searchnode1(Me.TreeView1, 1, 99) If DivFnkt.found Then Me.TreeView1.SelectedNode = DivFnkt.FoundNode Me.TreeView1.SelectedNode.ExpandAll() End If End If If p.sMma.Value = "" And p.sMmb.Value = "" And p.sMnl.Value = "" And p.sMkost.Value = "" And p.sMteam.Value = "" Then Else DivFnkt.Searchnode1(Me.TreeView1, 1, 99) If DivFnkt.found Then Me.TreeView1.SelectedNode = DivFnkt.FoundNode Me.TreeView1.SelectedNode.ExpandAll() End If End If If p.sEma.Value = "" And p.sEmb.Value = "" And p.sEnl.Value = "" And p.sEkost.Value = "" And p.sEteam.Value = "" Then Else DivFnkt.Searchnode1(Me.TreeView1, 1, 99) If DivFnkt.found Then Me.TreeView1.SelectedNode = DivFnkt.FoundNode Me.TreeView1.SelectedNode.ExpandAll() End If End If 'Profilunabhängige Daten ma.cpMainConnectionProvider = conn ma.iMitarbeiternr = New SqlInt32(CType(Globals.MitarbeiterNr, Int32)) ma.SelectOne() Try ' Me.FirstNodeWithData.ForeColor = System.Drawing.Color.Blue Catch End Try Catch ex As Exception 'MsgBox(ex.Message) End Try conn.CloseConnection(True) 'shieb Me.TreeView1.EndUpdate() Me.TVDokart.EndUpdate() checkchanges = True Try Catch If Me.FirstNodeWithData Is Nothing Then Me.TreeView1.SelectedNode = Me.TreeView1.Nodes(0) Else Me.TreeView1.SelectedNode = Me.FirstNodeWithData End If End Try ' Me.TreeView1.BeginUpdate() Me.TreeView1.ExpandAll() nodeswithdata(1) nodeswithdata(2) nodeswithdata(3) nodeswithdata(70) 'Rel 3.7 / BUD 'nodeswithdata(90) nodeswithdata(72) 'Rel 3.7 / BUD 'nodeswithdata(92) 'hutter 20041014 'Me.TreeView1.EndUpdate() End Sub Private Function Convert_Seldate_von(ByVal d As String) As String Dim splitter Dim da As DateTime Dim i As Integer Dim ds As String ds = d If ds = "" Or ds = "(heute)-999999" Then Return "" End If If Microsoft.VisualBasic.Left(d, 1) = "(" Then d = Mid(d, 2, Len(d) - 1) splitter = Microsoft.VisualBasic.Split(d, "-") Try i = Val(splitter(1)) da = Now da = DateAdd(DateInterval.Day, i * -1, Now) If i = 0 Then Return CutDate(Now) Else Return CutDate(da) Catch ex As Exception Return "" End Try Else Return d End If End Function Private Function Convert_Seldate_bis(ByVal d As String) As String Dim splitter Dim da As DateTime Dim i As Integer Dim ds As String ds = d If ds = "" Or ds = "(heute)-999999" Then Return "" End If If Microsoft.VisualBasic.Left(d, 1) = "(" Then d = Mid(d, 2, Len(d) - 1) splitter = Microsoft.VisualBasic.Split(d, "-") Try i = Val(splitter(1)) da = Now da = DateAdd(DateInterval.Day, i * -1, Now) If i = 0 Then Return CutDate(da) Else Return CutDate(da) Catch ex As Exception Return "" End Try Else Return d End If End Function Private Sub Save_Profile() Dim p As New edokadb.clsProfil() Dim tn As TreeNode Dim d As DataTable Dim tmptreeview As New TreeView() p.cpMainConnectionProvider = conn p.iProfilnr = New SqlInt32(CType(Me.ProfilNr, Int32)) p.SelectOne() 'Selektion Dim s As String Dim i As Integer 'hutter 20041014 'Me.TreeView1.BeginUpdate() p.daMutiert_am = New SqlDateTime(CType(Now, DateTime)) p.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32)) p.sVmb = New SqlString(CType(GetNodeDatastring(11), String)) p.sVnl = New SqlString(CType(GetNodeDatastring(12), String)) p.sVkost = New SqlString(CType(GetNodeDatastring(13), String)) p.sVteam = New SqlString(CType(GetNodeDatastring(14), String)) p.sVma = New SqlString(CType(GetNodeDatastring(15), String)) p.sEmb = New SqlString(CType(GetNodeDatastring(21), String)) p.sEnl = New SqlString(CType(GetNodeDatastring(22), String)) p.sEkost = New SqlString(CType(GetNodeDatastring(23), String)) p.sEteam = New SqlString(CType(GetNodeDatastring(24), String)) p.sEma = New SqlString(CType(GetNodeDatastring(25), String)) p.sMmb = New SqlString(CType(GetNodeDatastring(31), String)) p.sMnl = New SqlString(CType(GetNodeDatastring(32), String)) p.sMkost = New SqlString(CType(GetNodeDatastring(33), String)) p.sMteam = New SqlString(CType(GetNodeDatastring(34), String)) p.sMma = New SqlString(CType(GetNodeDatastring(35), String)) p.sDpartner = New SqlString(CType(GetNodeDatastring(41), String)) p.sDoktyp = New SqlString(CType(GetNodeDatastring(43), String)) p.sDdokstatus = New SqlString(CType(GetNodeDatastring(44), String)) p.sHostpartner = New SqlString(CType(GetNodeDatastring(51), String)) p.sHostdoktyp = New SqlString(CType(GetNodeDatastring(53), String)) p.bInklhostmavip = New SqlBoolean(CType(Me.hostinklmavip.Checked, Boolean)) p.sHosttag3 = New SqlString(CType(GetNodeDatastring(59), String)) p.sHostdatum3 = New SqlString(CType(GetNodeDatastring(58), String)) p.sHosttag1 = New SqlString(CType(GetNodeDatastring(54), String)) tmptreeview = Me.TVDokart s = "" DivFnkt.Searchnode2(tmptreeview, 0, 0) While DivFnkt.found s = s + ";" + DivFnkt.FoundNode.Tag DivFnkt.FoundNode.ImageIndex = 0 DivFnkt.Searchnode2(tmptreeview, 0, 0) End While 'tmptreeview.Dispose() p.sDdokart = New SqlString(CType(s, String)) tmptreeview = Me.TVHostDok s = "" DivFnkt.Searchnode2(tmptreeview, 0, 0) While DivFnkt.found s = s + ";" + DivFnkt.FoundNode.Tag DivFnkt.FoundNode.ImageIndex = 0 DivFnkt.Searchnode2(tmptreeview, 0, 0) End While p.sHostdokart = New SqlString(CType(s, String)) p.bInklmavip = New SqlBoolean(CType(Me.cbmavip.Checked, Boolean)) p.bInklalt = New SqlBoolean(CType(Me.cinklalt.Checked, Boolean)) p.bInkInaktVersant = New SqlBoolean(CType(Me.cinklaltversant.Checked, Boolean)) s = "" For i = 0 To Me.lbselect.Items.Count - 1 s = s + Me.lbselect.Items(i) + ";" Next p.sSort = New SqlString(CType(s, String)) s = "" For i = 0 To Me.LBSelectHost.Items.Count - 1 s = s + Me.LBSelectHost.Items(i) + ";" Next p.sHosttag2 = New SqlString(CType(s, String)) 'Unterschriften / Hinweise If Me.mcbunterschriftlinks.SelectedValue = Nothing Then p.iUnterschriftlinks = New SqlInt32(CType(0, Int32)) Else p.iUnterschriftlinks = New SqlInt32(CType(Me.mcbunterschriftlinks.SelectedValue, Int32)) End If If Me.mcbunterschriftrechts.SelectedValue = Nothing Then p.iUnterschriftrechts = New SqlInt32(CType(0, Int32)) Else p.iUnterschriftrechts = New SqlInt32(CType(Me.mcbunterschriftrechts.SelectedValue, Int32)) End If If Me.mcbTeam.SelectedText = Nothing Then p.iTeam = New SqlInt32(CType(0, Int32)) Else p.iTeam = New SqlInt32(CType(Me.mcbTeam.SelectedValue, Int32)) End If If Me.cb1.Checked = True Then p.iHw1 = New SqlInt32(CType(1, Int32)) Else p.iHw1 = New SqlInt32(CType(0, Int32)) End If If Me.cb2.Checked = True Then p.iHw2 = New SqlInt32(CType(1, Int32)) Else p.iHw2 = New SqlInt32(CType(0, Int32)) End If If Me.cb3.Checked = True Then p.iHw3 = New SqlInt32(CType(1, Int32)) Else p.iHw3 = New SqlInt32(CType(0, Int32)) End If If Me.cb3_1.Checked = True Then p.iHw6 = New SqlInt32(CType(1, Int32)) Else p.iHw6 = New SqlInt32(CType(0, Int32)) End If If Me.cb4.Checked = True Then p.iHw4 = New SqlInt32(CType(1, Int32)) Else p.iHw4 = New SqlInt32(CType(0, Int32)) End If If Me.cb5.Checked = True Then p.iHw5 = New SqlInt32(CType(1, Int32)) Else p.iHw5 = New SqlInt32(CType(0, Int32)) End If If colconv.ConvertToString(Me.Profile.SelectedNode.BackColor) = colconv.ConvertToString(System.Drawing.Color.LightBlue) Or p.bStandard.Value = True Then p.bStandard = New SqlBoolean(CType(True, Boolean)) Else p.bStandard = New SqlBoolean(CType(False, Boolean)) End If 'Colors p.sColor1 = New SqlString(CType(colconv.ConvertToString(Me.colbtn1.BackColor), String)) p.sColor2 = New SqlString(CType(colconv.ConvertToString(Me.colbtn2.BackColor), String)) p.sColor3 = New SqlString(CType(colconv.ConvertToString(Me.colbtn3.BackColor), String)) p.sColor4 = New SqlString(CType(colconv.ConvertToString(Me.colbtn4.BackColor), String)) p.sColor5 = New SqlString(CType(colconv.ConvertToString(Me.colbtn5.BackColor), String)) p.sColor6 = New SqlString(CType(colconv.ConvertToString(Me.colbtn6.BackColor), String)) 'Selektionsdaten p.sDatum1 = New SqlString(CType(Me.datumtext1.Text, String)) p.sDatum2 = New SqlString(CType(Me.datumtext2.Text, String)) p.sDatum3 = New SqlString(CType(Me.datumtext3.Text, String)) p.sDatum4 = New SqlString(CType(Me.datumtext4.Text, String)) p.sDatum5 = New SqlString(CType(Me.datumtext5.Text, String)) p.sDatum6 = New SqlString(CType(Me.datumtext6.Text, String)) p.sHostdatum1 = New SqlString(CType(Me.DatumHostText1.Text, String)) p.sHostdatum2 = New SqlString(CType(Me.DatumHostText2.Text, String)) 'Rel 3.7 / BUD 'p.sUvmdatum1 = New SqlString(CType(Me.textdatum1uvm.Text, String)) 'p.sUvmdatum2 = New SqlString(CType(Me.textdatum2uvm.Text, String)) 'p.sUvmdatum3 = New SqlString(CType(Me.textdatum3uvm.Text, String)) 'p.sUvmdatum4 = New SqlString(CType(Me.textdatum4uvm.Text, String)) p.sZvdatum1 = New SqlString(CType(Me.textdatum1zv.Text, String)) p.sZvdatum2 = New SqlString(CType(Me.textdatum2zv.Text, String)) p.sZvdatum3 = New SqlString(CType(Me.textdatum3zv.Text, String)) p.sZvdatum4 = New SqlString(CType(Me.textdatum4zv.Text, String)) 'Rel 3.7 / BUD 'p.sUvmdoktyp = New SqlString(CType(GetNodeDatastring(91), String)) 'p.sUvmauftragnr = New SqlString(CType(GetNodeDatastring(93), String)) p.sZvauftraggeber = New SqlString(CType(GetNodeDatastring(74), String)) p.sZvauftragnr = New SqlString(CType(GetNodeDatastring(73), String)) p.sZvbetrag = New SqlString(CType(GetNodeDatastring(75), String)) p.sZvclearingnr = New SqlString(CType(GetNodeDatastring(76), String)) p.sZvdokumenttyp = New SqlString(CType(GetNodeDatastring(71), String)) p.sZviso = New SqlString(CType(GetNodeDatastring(77), String)) p.sZvkontobeg = New SqlString(CType(GetNodeDatastring(78), String)) p.sZvpcnr = New SqlString(CType(GetNodeDatastring(79), String)) p.sZvposten = New SqlString(CType(GetNodeDatastring(80), String)) p.sZvreferenznr = New SqlString(CType(GetNodeDatastring(81), String)) p.sZvswift = New SqlString(CType(GetNodeDatastring(82), String)) p.sZvverarbeitungsart = New SqlString(CType(GetNodeDatastring(83), String)) p.sZvzahlungsart = New SqlString(CType(GetNodeDatastring(84), String)) Dim s1 As String Dim s2 As String If Me.Profname <> "" Then p.sBezeichnung = New SqlString(CType(Profname, String)) conn.OpenConnection() p.Update() conn.CloseConnection(True) p.Dispose() 'Me.TreeView1.EndUpdate() changes = False Me.Load_Profil(Me.ProfilNr) 'Me.TreeView1.ExpandAll() Me.Profil_Ungueltig = False 'Me.TreeView1.BeginUpdate() 'nodeswithdata(1) 'nodeswithdata(2) 'nodeswithdata(3) 'nodeswithdata(70) 'nodeswithdata(90) 'Me.TreeView1.EndUpdate() End Sub Public Function plausi_edoka(ByVal p As edokadb.clsProfil) As Boolean Dim ma As String Dim te As String Dim mb As String Dim nl As String Dim ko As String Dim d1 As Date Dim d2 As Date Dim d3 As Date Dim t1 As Integer Dim t2 As Integer Dim t3 As Integer If p.sDpartner.Value <> "" Then Return True ma = p.sVma.Value + p.sMma.Value + p.sEma.Value te = p.sVteam.Value + p.sMteam.Value + p.sEteam.Value mb = p.sMmb.Value + p.sVmb.Value + p.sEmb.Value nl = p.sVnl.Value + p.sMnl.Value + p.sEnl.Value ko = p.sVkost.Value + p.sMkost.Value + p.sEkost.Value If p.sDatum1.Value = "(heute)" Then d1 = Now Else d1 = p.sDatum1.Value If p.sDatum3.Value = "(heute)" Then d2 = Now Else d2 = p.sDatum3.Value If p.sDatum5.Value = "(heute)" Then d3 = Now Else d3 = p.sDatum5.Value If ma <> "" And te = "" And mb = "" And nl = "" Then If t1 <= 365 And t2 <= 365 And t3 <> 365 Then Return True Else MyMsg.show_standardmessage(92, MsgBoxStyle.Critical) Return False End If End If If te <> "" Or ko <> "" Then If t1 <= 90 And t2 <= 90 And t3 <= 90 Then Return True Else MyMsg.show_standardmessage(93, MsgBoxStyle.Critical) Return False End If End If If nl <> "" Then If t1 <= 30 And t2 <= 30 And t3 <= 30 Then Return True Else MyMsg.show_standardmessage(94, MsgBoxStyle.Critical) End If End If If mb <> "" Then If t1 <= 7 And t2 <= 7 And t3 <= 7 Then Return True Else MyMsg.show_standardmessage(94, MsgBoxStyle.Critical) End If End If If p.sDdokart.Value <> "" Then If t1 <= 30 And t2 <= 30 And t3 <= 30 Then Return True Else MyMsg.show_standardmessage(96, MsgBoxStyle.Critical) End If End If End Function Public Function plausi_host(ByVal p As edokadb.clsProfil) As Boolean End Function Private Function ValueList(ByVal c As ListView) As String Dim s As String s = "" For i = 0 To c.Items.Count - 1 s = s + c.Items(i).Text + ";" If UCase(c.Name) = "SELPARTNER" Then li = c.Items(i) s = s + li.SubItems(1).Text + ";" End If Next Return s End Function Private Function GetNodeData(ByVal tnParent As TreeNode, ByRef iParent As Integer) As String Dim tn As TreeNode If tnParent.GetNodeCount(True) > 0 Then tn = tnParent.Nodes(0) Else tn = Nothing End If Do Until tn Is Nothing Try If tn.Parent.Tag = iParent Then Me.NodeText = Me.NodeText & ";" & tn.Tag End If Catch ex As Exception End Try If tn.GetNodeCount(True) > 0 Then Call GetNodeData(tn, iParent) End If tn = tn.NextNode Loop End Function Private Function GetNodeDatastring(ByVal iparent As Integer) As String Me.NodeText = "" DivFnkt.Searchnode1(Me.TreeView1, iparent, 0) If DivFnkt.found Then GetNodeData(DivFnkt.FoundNode, iparent) Try Me.NodeText = Microsoft.VisualBasic.Right(Me.NodeText, Len(Me.NodeText) - 1) Catch Me.NodeText = "" End Try End If Return Me.NodeText End Function Private Sub check_changes() If On_Load Then Exit Sub If changes Then If Me.FirstNodeWithData Is Nothing Then Me.Profil_Ungueltig = True End If If MyMsg.Show_MessageYesNo(2) = MsgBoxResult.Yes Then Me.Save_Profile() End If End If End Sub #End Region #Region "Diverses" Private Sub Profile_AfterSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles Profile.AfterSelect If Not On_Load Then check_changes() If Me.Profil_Ungueltig Then Me.Profile.SelectedNode = Me.savenode MyMsg.show_standardmessage(105, MsgBoxStyle.Critical) Exit Sub End If Me.savenode = Me.Profile.SelectedNode Me.Cursor = System.Windows.Forms.Cursors.WaitCursor check_changes() Me.ProfilNr = Me.Profile.SelectedNode.Tag Me.TreeView1.BeginUpdate() Me.showhidetv(True) init_treeview1() frmProfil_Load(sender, e) Me.TreeView1.SelectedNode = Nothing Me.showhidetv(False) Me.TreeView1.EndUpdate() End If Me.Cursor = System.Windows.Forms.Cursors.Default End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles colbtn6.Click, colbtn5.Click, colbtn4.Click, colbtn3.Click, colbtn2.Click, colbtn1.Click Dim cName As String = CType(sender, System.Windows.Forms.Button).Name If Me.ColorDialog1.ShowDialog() = DialogResult.Cancel Then Exit Sub Me.ColorDialog1.AnyColor = True 'Button5_Click(sender, e) Select Case cName Case "colbtn1" Me.colbtn1.BackColor = Me.ColorDialog1.Color If checkchanges Then changes = True Case "colbtn2" Me.colbtn2.BackColor = Me.ColorDialog1.Color If checkchanges Then changes = True Case "colbtn3" Me.colbtn3.BackColor = Me.ColorDialog1.Color If checkchanges Then changes = True Case "colbtn4" Me.colbtn4.BackColor = Me.ColorDialog1.Color If checkchanges Then changes = True Case "colbtn5" Me.colbtn5.BackColor = Me.ColorDialog1.Color If checkchanges Then changes = True Case "colbtn6" Me.colbtn6.BackColor = Me.ColorDialog1.Color If checkchanges Then changes = True End Select End Sub Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect If On_Load Then Exit Sub If oninit Then Exit Sub Me.PnlDokumentDaten.Visible = False Me.Panel3.Visible = False Me.PnlPartner.Visible = False Me.PnlDokumentart.Visible = False Me.TVDokart.Visible = False Me.TVHostDok.Visible = False Me.pnlhostdiv.Visible = False Me.Panel4.Visible = False Me.pnluvm.Visible = False Me.pnlzv.Visible = False Try If Me.TreeView1.SelectedNode.ImageIndex < 6 Then Me.TreeView1.SelectedNode.ImageIndex = 4 Me.TreeView1.SelectedNode.SelectedImageIndex = 4 End If Select Case TreeView1.SelectedNode.Tag Case 11, 21, 31 Me.C1TrueDBGrid1.DataSource = tmb Me.Panel3.Visible = True Me.TreeView1.SelectedNode.SelectedImageIndex = 5 Case 12, 22, 32 Me.C1TrueDBGrid1.DataSource = tnl Me.Panel3.Visible = True Me.TreeView1.SelectedNode.SelectedImageIndex = 5 Case 13, 23, 33 Me.C1TrueDBGrid1.DataSource = tko Me.Panel3.Visible = True Me.TreeView1.SelectedNode.SelectedImageIndex = 5 Case 14, 24, 34 Me.C1TrueDBGrid1.DataSource = tte Me.Panel3.Visible = True Me.TreeView1.SelectedNode.SelectedImageIndex = 5 Case 15, 25, 35 Me.C1TrueDBGrid1.DataSource = tpe Me.Panel3.Visible = True Me.TreeView1.SelectedNode.SelectedImageIndex = 5 Case 41 Me.TreeView1.SelectedNode.SelectedImageIndex = 5 Case 42 Me.PnlDokumentart.Visible = True Me.TreeView1.SelectedNode.SelectedImageIndex = 5 Me.TVDokart.Visible = True Me.TreeView1.SelectedNode.SelectedImageIndex = 5 Case 43 Me.C1TrueDBGrid1.DataSource = tdt Me.Panel3.Visible = True Me.TreeView1.SelectedNode.SelectedImageIndex = 5 Case 44 Me.C1TrueDBGrid1.DataSource = tst Me.Panel3.Visible = True Me.TreeView1.SelectedNode.SelectedImageIndex = 5 Case 45 Me.Panel3.Visible = False Me.PnlDokumentDaten.Visible = True Me.TabControl2.SelectedIndex = 0 Me.TreeView1.SelectedNode.SelectedImageIndex = 5 Case 62 Me.Panel3.Visible = False Me.PnlDokumentDaten.Visible = True Me.TreeView1.SelectedNode.SelectedImageIndex = 5 Case 51 Me.C1TrueDBGrid1.DataSource = tku Me.Panel3.Visible = True Me.TreeView1.SelectedNode.SelectedImageIndex = 5 Case 52 Me.TVHostDok.Visible = True Me.TreeView1.SelectedNode.SelectedImageIndex = 5 Case 53 Me.C1TrueDBGrid1.DataSource = tdh Me.Panel3.Visible = True Me.TreeView1.SelectedNode.SelectedImageIndex = 5 Case 55 Me.pnlhostdiv.Visible = True Me.TreeView1.SelectedNode.SelectedImageIndex = 5 Case 58 Me.pnlhostdiv.Visible = True Me.TreeView1.SelectedNode.SelectedImageIndex = 5 Case 54 Me.pnlhostdiv.Visible = True Me.TreeView1.SelectedNode.SelectedImageIndex = 5 Case 59 Me.pnlhostdiv.Visible = True Me.TreeView1.SelectedNode.SelectedImageIndex = 5 Case 60 Me.Panel4.Visible = True Me.lbSortfields.Items.Clear() Me.lbSortfields.Items.AddRange(New Object() {"Bemerkung", "Bezeichnung", "Dokumentart", "DokumentID", "Ersteller", "Erstellungsdatum", "Mutationsdatum", "Mutierer", "Status", "Termin", "Verantwortlicher", "Zuständiger"}) Remove_Selected_Items(Me.lbselect) Me.LBSelectHost.Visible = False Me.lbselect.Visible = True Me.TreeView1.SelectedNode.SelectedImageIndex = 5 Case 61 Me.Panel4.Visible = True Me.lbSortfields.Items.Clear() Me.lbSortfields.Items.AddRange(New Object() {"DokumentID", "Dokumenttyp-Nr", "Isin-Nr", "Valutadatum", "Valorennr", "VVExtern1", "VVExtern2"}) Remove_Selected_Items(Me.LBSelectHost) Me.LBSelectHost.Visible = True Me.lbselect.Visible = False Me.TreeView1.SelectedNode.SelectedImageIndex = 5 Case 71 Me.C1TrueDBGrid1.DataSource = tdtzv Me.Panel3.Visible = True Me.TreeView1.SelectedNode.SelectedImageIndex = 5 Case 72 Me.Panel3.Visible = False Me.PnlDokumentDaten.Visible = True Me.TabControl2.SelectedIndex = 1 Me.TreeView1.SelectedNode.SelectedImageIndex = 5 'Rel 3.7 / BUD 'Case 91 ' Me.C1TrueDBGrid1.DataSource = tdtuvm ' Me.Panel3.Visible = True ' Me.TreeView1.SelectedNode.SelectedImageIndex = 5 'Case 93 ' Me.pnluvm.Visible = True ' Me.TreeView1.SelectedNode.SelectedImageIndex = 5 'Case 92 ' Me.Panel3.Visible = False ' Me.PnlDokumentDaten.Visible = True ' Me.TabControl2.SelectedIndex = 2 ' Me.TreeView1.SelectedNode.SelectedImageIndex = 5 Case 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84 Me.Panel3.Visible = False Me.pnlzv.Visible = True End Select Dim i As Integer Dim w As Integer w = Me.C1TrueDBGrid1.Columns.Count - 2 w = (Me.C1TrueDBGrid1.Width - 150) / w Me.C1TrueDBGrid1.Splits(0).DisplayColumns(1).Width = 150 Me.C1TrueDBGrid1.Splits(0).DisplayColumns(i).Visible = False For i = 3 To Me.C1TrueDBGrid1.Splits(0).DisplayColumns.Count - 1 Me.C1TrueDBGrid1.Splits(0).DisplayColumns(i).Width = w Next Try Me.C1TrueDBGrid1.Columns("Aktiv").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox Me.C1TrueDBGrid1.Columns("Aktiv").FilterText = True Me.C1TrueDBGrid1.Splits(0).DisplayColumns("Aktiv").Width = 50 Catch End Try Catch End Try 'Me.C1TrueDBGrid1.Splits(0).DisplayColumns(0).Visible = False End Sub #End Region #Region "Partnersuche" Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox3.KeyDown, TextBox2.KeyDown, TextBox1.KeyDown If e.KeyCode = Keys.Return Then btnPartnersuche_Click(sender, e) End Sub Private Sub btnPartnersuche_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPartnersuche.Click Me.PartnerList.DataSource = Nothing Me.PartnerList.DataMember = Nothing If Me.TextBox1.Text <> "" Then Try Dim d As Double d = Val(Me.TextBox1.Text) If d = 0 Then MyMsg.show_standardmessage(20, MsgBoxStyle.Critical) Me.TextBox1.Focus() Exit Sub End If partner = mypartner.search_partner(d, 50, 0) Catch MyMsg.show_standardmessage(20, MsgBoxStyle.Critical) Me.TextBox1.Focus() Exit Sub End Try Else If Me.TextBox2.Text <> "" Then partner = mypartner.search_partner(Me.TextBox2.Text, 50, 1) Else partner = mypartner.search_partner(Me.TextBox3.Text, 50, 2) End If End If If partner.Rows.Count = 0 Then MyMsg.show_standardmessage(204, MsgBoxStyle.Exclamation) Else Me.PartnerList.DataSource = partner Me.PartnerList.DataMember = "Partner" SpaltenTitel_Aktualisieren() Dim i As Long Dim ii As Long End If 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 t = partner ts.Tabelle = "Partner" For i = 0 To Me.PartnerList.Columns.Count - 1 s = Me.PartnerList.Columns(i).DataField ts.Feld = s ts.getspalte() Me.PartnerList.Columns(i).Caption = ts.spaltenname If Me.PartnerList.Columns(i).Caption = "" Then Me.PartnerList.Splits(0).DisplayColumns(i).Width = 0 Else Me.PartnerList.Splits(0).DisplayColumns(i).Width = ts.ColWith End If ' If Me.PartnerList.Columns(i).Caption = "" Then Me.PartnerList.Splits(0).DisplayColumns(i).Width = 0 If ts.locked Then Me.PartnerList.Splits(0).DisplayColumns(i).Locked = True End If If ts.AlsHacken Then Me.PartnerList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox End If 'Präsentation von aktiv If Me.PartnerList.Columns(i).DataField = "aktiv" Then Me.PartnerList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox Me.PartnerList.Columns(i).ValueItems.DefaultItem = True Me.PartnerList.Columns(i).DefaultValue = True Me.PartnerList.Columns(i).FilterText = True End If If Me.PartnerList.Columns(i).DataField = "erstellt_am" Then Me.PartnerList.Columns(i).DefaultValue = Now End If Next End Sub Private Sub PartnerList_FetchRowStyle(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles PartnerList.FetchRowStyle If Microsoft.VisualBasic.Left(Me.PartnerList.Columns(0).CellValue(e.Row), 1) = "9" Then e.CellStyle.BackColor = System.Drawing.Color.CadetBlue End If End Sub #End Region #Region "Datenselektion" Private Sub C1TrueDBGrid1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PartnerList.DoubleClick, C1TrueDBGrid1.DoubleClick Dim tn As New TreeNode() If Me.TreeView1.SelectedNode.Tag < 10 Then MsgBox("Bitte wählen Sie einen Knoten aus, der das Hinzufügen von Selektionskriterien erlaubt.") Exit Sub End If ' Änderung durch Partnerselektion If Me.TreeView1.SelectedNode.Tag = 41 Then tn = Me.TreeView1.SelectedNode tn = tn.Nodes.Add(Str(Me.PartnerList.Columns(0).Value) + " - " + Me.PartnerList.Columns(1).Value) tn.Tag = Me.PartnerList.Columns(0).Value tn.ForeColor = System.Drawing.Color.Red tn.ImageIndex = 4 tn.SelectedImageIndex = 4 Me.TreeView1.SelectedNode.ExpandAll() If checkchanges Then changes = True Exit Sub End If Try tn = Me.TreeView1.SelectedNode Dim i As Integer Dim row As Long Dim col As C1.Win.C1TrueDBGrid.C1DataColumn If Me.C1TrueDBGrid1.SelectedRows.Count > 0 Then For Each row In Me.C1TrueDBGrid1.SelectedRows tn = Me.TreeView1.SelectedNode tn = tn.Nodes.Add(Me.C1TrueDBGrid1.Columns(1).CellText(row)) If Me.C1TrueDBGrid1.Columns(2).CellValue(row) = False Then tn.ForeColor = System.Drawing.Color.Gray Else tn.ForeColor = System.Drawing.Color.Red End If tn.Tag = Me.C1TrueDBGrid1.Columns(0).CellValue(row) tn.ImageIndex = 4 tn.SelectedImageIndex = 4 Next Else tn = tn.Nodes.Add(Me.C1TrueDBGrid1.Columns(1).Value) tn.Tag = Me.C1TrueDBGrid1.Columns(0).Value If Me.C1TrueDBGrid1.Columns(2).Value = False Then tn.ForeColor = System.Drawing.Color.Gray Else tn.ForeColor = System.Drawing.Color.Red End If tn.ImageIndex = 4 tn.SelectedImageIndex = 4 End If Me.TreeView1.SelectedNode.ExpandAll() If checkchanges Then changes = True Catch End Try Exit Sub End Sub #End Region #Region "Hanlde Treeview_Mousebuttons" Private Sub TVDokart_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TVDokart.MouseDown Try Dim mouseEvents As MouseEventArgs mouseEvents = e selectPoint.Y = mouseEvents.Y selectPoint.X = mouseEvents.X Try TVDokart.SelectedNode = TVDokart.GetNodeAt(selectPoint) Catch End Try Catch End Try End Sub Private Sub Treeview1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeView1.MouseDown Try Dim mouseEvents As MouseEventArgs mouseEvents = e selectPoint.Y = mouseEvents.Y selectPoint.X = mouseEvents.X Try TreeView1.SelectedNode = TreeView1.GetNodeAt(selectPoint) Catch End Try If TreeView1.SelectedNode.Tag = 41 And e.Button = MouseButtons.Left Then Me.Partnerdialog.TopMost = True Me.Partnerdialog.Left = Me.MousePosition.X + 50 Me.Partnerdialog.Top = Me.MousePosition.Y - 20 Me.Partnerdialog.Show() Me.Partnerdialog.NoClose = True Me.TreeView1.SelectedNode.SelectedImageIndex = 5 End If Catch ex As Exception MsgBox(ex.Message) End Try 'Cursor positionieren Try Select Case Me.TreeView1.SelectedNode.Tag Case 58 Me.TextBox5.Focus() Case 54 Me.TextBox6.Focus() Case 59 Me.TextBox4.Focus() Case Else End Select Catch End Try End Sub Private Sub Treeview1_Mouseup(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeView1.MouseUp 'Cursor positionieren Try Select Case Me.TreeView1.SelectedNode.Tag Case 58 Me.TextBox5.Focus() Case 54 Me.TextBox6.Focus() Case 59 Me.TextBox4.Focus() Case 73 Me.txtzvauftragsnr.Focus() Case 74 Me.txtzvauftraggeber.Focus() Case 75 Me.txtzvbetrag.Focus() Case 76 Me.txtzvclearingnr.Focus() Case 77 Me.txtzviso.Focus() Case 78 Me.txtzvbeguenstigter.Focus() Case 79 Me.txtzvpcnr.Focus() Case 80 Me.txtzvpostennr.Focus() Case 81 Me.txtzvreferenznr.Focus() Case 82 Me.txtzvswift.Focus() Case 83 Me.txtzvverarbeitungsart.Focus() Case 84 Me.txtzvzahlungsart.Focus() 'Rel 3.7 / BUD 'Case 93 ' Me.txtuvmauftragnr.Focus() Case Else End Select Catch End Try End Sub Private Sub Profile_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Profile.MouseDown Try Dim mouseEvents As MouseEventArgs mouseEvents = e selectPoint.Y = mouseEvents.Y selectPoint.X = mouseEvents.X Try Profile.SelectedNode = Profile.GetNodeAt(selectPoint) Catch ex As Exception MsgBox(ex.Message) End Try Catch End Try End Sub #End Region #Region "Datumhandling" Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.txtdatum1.Text = "" changes = True End Sub Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.txtdatum3.Text = "" changes = True End Sub Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.txtdatum5.Text = "" changes = True End Sub Private Function CutDate(ByVal s As String) As String Dim i As Integer i = Microsoft.VisualBasic.InStr(s, " ") If i > 0 Then CutDate = Microsoft.VisualBasic.Left(s, i - 1) Else CutDate = s End Function Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged Me.txtdatum1.Text = CutDate(Me.DateTimePicker1.Value) Try Dim d As Date d = CType(Me.txtdatum1.Text, Date) Me.DateTimePicker1.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0) Catch End Try changes = True End Sub Private Sub DateTimePicker2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker2.ValueChanged Me.txtdatum2.Text = CutDate(Me.DateTimePicker2.Value) Try Dim d As Date d = CType(Me.txtdatum2.Text, Date) Me.DateTimePicker2.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0) Catch End Try changes = True End Sub Private Sub DateTimePicker3_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker3.ValueChanged Me.txtdatum3.Text = CutDate(Me.DateTimePicker3.Value) Try Dim d As Date d = CType(Me.txtdatum3.Text, Date) Me.DateTimePicker3.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0) Catch End Try changes = True End Sub Private Sub DateTimePicker4_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker4.ValueChanged Me.txtdatum4.Text = CutDate(Me.DateTimePicker4.Value) Try Dim d As Date d = CType(Me.txtdatum4.Text, Date) Me.DateTimePicker4.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0) Catch End Try changes = True End Sub Private Sub DateTimePicker5_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker5.ValueChanged Me.txtdatum5.Text = CutDate(Me.DateTimePicker5.Value) Try Dim d As Date d = CType(Me.txtdatum5.Text, Date) Me.DateTimePicker5.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0) Catch End Try changes = True End Sub Private Sub DateTimePicker6_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker6.ValueChanged Me.txtdatum6.Text = CutDate(Me.DateTimePicker6.Value) Try Dim d As Date d = CType(Me.txtdatum6.Text, Date) Me.DateTimePicker6.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0) Catch End Try changes = True End Sub Private Sub DateTimePicker9_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker9.ValueChanged Me.HostDatum1.Text = CutDate(Me.DateTimePicker9.Value) Try Dim d As Date d = CType(Me.HostDatum1.Text, Date) Me.DateTimePicker9.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0) Catch End Try changes = True End Sub Private Sub DateTimePicker8_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker8.ValueChanged Me.HostDatum2.Text = CutDate(Me.DateTimePicker8.Value) Try Dim d As Date d = CType(Me.HostDatum2.Text, Date) Me.DateTimePicker8.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0) Catch End Try changes = True End Sub Private Sub DateTimePicker13_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker13.ValueChanged Me.txtdatum3zv.Text = CutDate(Me.DateTimePicker13.Value) Try Dim d As Date d = CType(Me.txtdatum3zv.Text, Date) Me.DateTimePicker13.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0) Catch End Try changes = True End Sub Private Sub DateTimePicker14_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker14.ValueChanged Me.txtdatum1zv.Text = CutDate(Me.DateTimePicker14.Value) Try Dim d As Date d = CType(Me.txtdatum1zv.Text, Date) Me.DateTimePicker14.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0) Catch End Try changes = True End Sub Private Sub DateTimePicker15_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker15.ValueChanged Me.txtdatum2zv.Text = CutDate(Me.DateTimePicker15.Value) Try Dim d As Date d = CType(Me.txtdatum2zv.Text, Date) Me.DateTimePicker15.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0) Catch End Try changes = True End Sub Private Sub DateTimePicker16_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker16.ValueChanged Me.txtdatum4zv.Text = CutDate(Me.DateTimePicker14.Value) Try Dim d As Date d = CType(Me.txtdatum4zv.Text, Date) Me.DateTimePicker16.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0) Catch End Try changes = True End Sub Private Sub DateTimePicker18_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker18.ValueChanged Me.txtdatum1uvm.Text = CutDate(Me.DateTimePicker18.Value) Try Dim d As Date d = CType(Me.txtdatum1uvm.Text, Date) Me.DateTimePicker18.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0) Catch End Try changes = True End Sub Private Sub DateTimePicker19_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker19.ValueChanged Me.txtdatum2uvm.Text = CutDate(Me.DateTimePicker19.Value) Try Dim d As Date d = CType(Me.txtdatum2uvm.Text, Date) Me.DateTimePicker19.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0) Catch End Try changes = True End Sub Private Sub DateTimePicker17_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker17.ValueChanged Me.txtdatum3uvm.Text = CutDate(Me.DateTimePicker17.Value) Try Dim d As Date d = CType(Me.txtdatum3uvm.Text, Date) Me.DateTimePicker17.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0) Catch End Try changes = True End Sub Private Sub DateTimePicker20_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker20.ValueChanged Me.txtdatum4uvm.Text = CutDate(Me.DateTimePicker20.Value) Try Dim d As Date d = CType(Me.txtdatum4uvm.Text, Date) Me.DateTimePicker20.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0) Catch End Try changes = True End Sub Private Sub DateTimePicker7_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker7.ValueChanged Me.HostDatum3.Text = CutDate(Me.DateTimePicker7.Value) changes = True End Sub #End Region Private Sub Button15_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Try If Me.lbSortfields.SelectedItems.Count > 0 Then If Me.LBSelectHost.Visible = True Then Me.LBSelectHost.Items.Add(Me.lbSortfields.SelectedItem + " | " + Me.LBSort.SelectedItem) Me.lbSortfields.Items.RemoveAt(Me.lbSortfields.SelectedIndex) Else Me.lbselect.Items.Add(Me.lbSortfields.SelectedItem + " | " + Me.LBSort.SelectedItem) Me.lbSortfields.Items.RemoveAt(Me.lbSortfields.SelectedIndex) End If If checkchanges Then changes = True End If Catch End Try End Sub Private Sub lbsortfields_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LBSort.DoubleClick, lbSortfields.DoubleClick Button15_Click_1(sender, e) End Sub Private Sub lbselect_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LBSelectHost.DoubleClick, lbselect.DoubleClick Dim splitter Try If Me.LBSelectHost.Visible = True Then If Me.LBSelectHost.SelectedItems.Count > 0 Then splitter = Microsoft.VisualBasic.Split(Me.LBSelectHost.SelectedItem, " | ") Insertitem(Me.lbSortfields, splitter(0)) Me.LBSelectHost.Items.RemoveAt(Me.LBSelectHost.SelectedIndex) End If Else If Me.lbselect.SelectedItems.Count > 0 Then splitter = Microsoft.VisualBasic.Split(Me.lbselect.SelectedItem, " | ") Insertitem(Me.lbSortfields, splitter(0)) Me.lbselect.Items.RemoveAt(Me.lbselect.SelectedIndex) End If If checkchanges Then changes = True End If Catch End Try End Sub Private Sub Insertitem(ByVal lb As ListBox, ByVal s As String) Dim i As Integer Dim inserted As Boolean = False For i = 0 To lb.Items.Count - 1 lb.SelectedIndex = i If s > lb.SelectedItem And Not inserted Then lb.Items.Insert(i, s) inserted = True End If Next If Not inserted Then lb.Items.Insert(i, s) End Sub Private Sub frmProfil_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing check_changes() If Me.FirstNodeWithData Is Nothing Then If MyMsg.Show_MessageYesNo(104) = MsgBoxResult.No Then e.Cancel = True End If 'If Me.Profil_Ungueltig Then 'MyMsg.show_standardmessage(104, MsgBoxStyle.Critical) 'e.Cancel = True 'Else ' e.Cancel = False 'End If End Sub Private Sub MenuItem15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem15.Click Try Me.C1TrueDBGrid1_DoubleClick(sender, e) Catch End Try End Sub Private Sub MenuItem16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem16.Click Try 'ObjPerson If DivFnkt.PartnerTyp(Me.PartnerList.Columns(0).Value) = EDOKA.clsDivFnkt.ENUM_Partnertyp.EDOKA_Interessent Then 'If Me.PartnerList.Columns(0).Value > 91000000 Then Dim f As New frmInteressent() f.Partnernr = Me.PartnerList.Columns(0).Value f.Display = True f.ShowDialog() f.Dispose() Else Dim f As New frmPartnerDetails() f.Partnernr = Me.PartnerList.Columns(0).Value f.ShowDialog() f.Dispose() End If Catch Finally End Try End Sub Private Sub MenuItem20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem20.Click Try C1TrueDBGrid1_DoubleClick(sender, e) Catch End Try End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Dim colconv As New ColorConverter() Me.colbtn1.BackColor = colconv.ConvertFromString("Control") Me.colbtn2.BackColor = Me.colbtn1.BackColor Me.colbtn3.BackColor = Me.colbtn1.BackColor Me.colbtn4.BackColor = Me.colbtn1.BackColor Me.colbtn5.BackColor = Me.colbtn1.BackColor Me.colbtn6.BackColor = Me.colbtn1.BackColor End Sub Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint End Sub Private Sub MnuListe_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles MnuListe.Popup Dim i As Integer If Me.Profil_Ungueltig = True Then For i = 0 To Me.MnuListe.MenuItems.Count - 1 Me.MnuListe.MenuItems(i).Enabled = False Next Exit Sub Else For i = 0 To Me.MnuListe.MenuItems.Count - 1 Me.MnuListe.MenuItems(i).Enabled = True Next End If Try If Me.Profile.GetNodeCount(True) < 2 Then MenuItem10.Enabled = False Else MenuItem10.Enabled = True End If Catch End Try End Sub Private Sub MenuItem14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem14.Click Try Dim tn As TreeNode Dim tn1 As TreeNode tn = TreeView1.SelectedNode While tn.GetNodeCount(True) > 0 tn.Nodes(0).Remove() End While Catch End Try End Sub Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim tn As New TreeNode() tn = Me.TreeView1.SelectedNode tn = tn.Nodes.Add(Me.TextBox4.Text) tn.Tag = Me.TextBox4.Text tn.ForeColor = System.Drawing.Color.Red tn.ImageIndex = 4 tn.SelectedImageIndex = 4 Me.TreeView1.SelectedNode.ExpandAll() End Sub Private Sub Button9_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click Try Dim tn As New TreeNode() Dim tn1 As New TreeNode() DivFnkt.Searchnode1(Me.TreeView1, 59, 99) If DivFnkt.found = True Then tn = DivFnkt.FoundNode tn1 = tn.Nodes.Add(Me.TextBox4.Text) tn1.Tag = Me.TextBox4.Text tn1.ForeColor = System.Drawing.Color.Red tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn1.Parent.ExpandAll() Me.TextBox4.Text = "" Me.changes = True End If Catch End Try End Sub Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click Try Dim tn As New TreeNode() Dim tn1 As New TreeNode() DivFnkt.Searchnode1(Me.TreeView1, 58, 99) If DivFnkt.found = True Then tn = DivFnkt.FoundNode tn1 = tn.Nodes.Add(Me.TextBox5.Text) tn1.Tag = Me.TextBox5.Text tn1.ForeColor = System.Drawing.Color.Red tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn1.Parent.ExpandAll() Me.TextBox5.Text = "" Me.changes = True End If Catch End Try End Sub Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click Button15_Click_1(sender, e) End Sub Private Sub MenuItem17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem17.Click Dim i As Integer Dim s As String If Me.LBSelectHost.Visible = True Then If Me.LBSelectHost.SelectedItems.Count > 0 Then Try i = LBSelectHost.SelectedIndex s = LBSelectHost.SelectedItem If i > 0 Then LBSelectHost.Items.RemoveAt(i) LBSelectHost.Items.Insert(i - 1, s) LBSelectHost.SelectedIndex = i - 1 End If Catch End Try End If Else Try If Me.lbselect.SelectedItems.Count > 0 Then i = lbselect.SelectedIndex s = lbselect.SelectedItem If i > 0 Then lbselect.Items.RemoveAt(i) lbselect.Items.Insert(i - 1, s) lbselect.SelectedIndex = i - 1 End If End If Catch End Try End If changes = True End Sub Private Sub MenuItem18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem18.Click Dim i As Integer Dim s As String If Me.LBSelectHost.Visible = True Then Try If Me.LBSelectHost.SelectedItems.Count > 0 Then i = LBSelectHost.SelectedIndex s = LBSelectHost.SelectedItem If i < LBSelectHost.Items.Count - 1 Then LBSelectHost.Items.RemoveAt(i) LBSelectHost.Items.Insert(i + 1, s) LBSelectHost.SelectedIndex = i + 1 End If changes = True End If Catch End Try Else Try If Me.lbselect.SelectedItems.Count > 0 Then i = lbselect.SelectedIndex s = lbselect.SelectedItem If i < lbselect.Items.Count - 1 Then lbselect.Items.RemoveAt(i) lbselect.Items.Insert(i + 1, s) lbselect.SelectedIndex = i + 1 End If changes = True End If Catch End Try End If End Sub Private Sub MenuItem19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem19.Click Dim splitter Try If Me.LBSelectHost.Visible = True Then If Me.LBSelectHost.SelectedItems.Count > 0 Then splitter = Microsoft.VisualBasic.Split(Me.LBSelectHost.SelectedItem, " | ") Insertitem(Me.lbSortfields, splitter(0)) Me.LBSelectHost.Items.RemoveAt(Me.LBSelectHost.SelectedIndex) End If Else If Me.lbselect.SelectedItems.Count > 0 Then splitter = Microsoft.VisualBasic.Split(Me.lbselect.SelectedItem, " | ") Insertitem(Me.lbSortfields, splitter(0)) Me.lbselect.Items.RemoveAt(Me.lbselect.SelectedIndex) End If If checkchanges Then changes = True End If Catch End Try End Sub Private Sub MenuItem21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem21.Click Dim s, s1 As String Dim splitter If Me.LBSelectHost.Visible = True Then If Me.LBSelectHost.SelectedItems.Count > 0 Then Try s = LBSelectHost.SelectedItem splitter = Microsoft.VisualBasic.Split(s, " | ") Select Case splitter(1) Case "Absteigend" s1 = "Aufsteigend" Case "Aufsteigend" s1 = "Absteigend" Case Else s1 = "Aufsteigend" End Select s = splitter(0) + " | " + s1 i = LBSelectHost.SelectedIndex LBSelectHost.SelectedIndex = i LBSelectHost.Items.RemoveAt(i) LBSelectHost.Items.Insert(i, s) Catch End Try End If Else If Me.lbselect.SelectedItems.Count > 0 Then Try s = lbselect.SelectedItem splitter = Microsoft.VisualBasic.Split(s, " | ") Select Case splitter(1) Case "Absteigend" s1 = "Aufsteigend" Case "Aufsteigend" s1 = "Absteigend" Case Else s1 = "Aufsteigend" End Select s = splitter(0) + " | " + s1 i = lbselect.SelectedIndex lbselect.SelectedIndex = i lbselect.Items.RemoveAt(i) lbselect.Items.Insert(i, s) Catch End Try End If End If End Sub Private Sub cinklalt_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cinklalt.CheckedChanged Dim tn As New TreeNode() DivFnkt.Searchnode1(Me.TreeView1, 62, 99) If DivFnkt.found Then tn = DivFnkt.FoundNode If Me.cinklalt.Checked Then tn.Text = "inkl. gelöschte/aufgehobene" DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Red Else tn.Text = "inkl. gelöschte/aufgehobene" DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Black End If End If End Sub Private Sub cinklaltversant_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cinklaltversant.CheckedChanged Dim tn As New TreeNode() DivFnkt.Searchnode1(Me.TreeView1, 62, 99) If DivFnkt.found Then tn = DivFnkt.FoundNode If Me.cinklaltversant.Checked Then tn.Text = "inkl. gelöschte/aufgehobene" DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Red Else tn.Text = "inkl. gelöschte/aufgehobene" DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Black End If End If End Sub Private Sub ContextMenu2_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu2.Popup Dim s, s1 As String Dim i As Integer Dim splitter If Me.LBSelectHost.Visible = True Then If LBSelectHost.SelectedItems.Count < 1 Then For i = 0 To Me.ContextMenu2.MenuItems.Count - 1 Me.ContextMenu2.MenuItems(i).Enabled = False Next Else For i = 0 To Me.ContextMenu2.MenuItems.Count - 1 Me.ContextMenu2.MenuItems(i).Enabled = True Next End If Try s = LBSelectHost.SelectedItem splitter = Microsoft.VisualBasic.Split(s, " | ") Select Case splitter(1) Case "Absteigend" s1 = "Aufsteigend" Case "Aufsteigend" s1 = "Absteigend" Case Else s1 = "Aufsteigend" End Select Me.MenuItem21.Text = "Sortierungsart " + s1 Catch End Try Else If lbselect.SelectedItems.Count < 1 Then For i = 0 To Me.ContextMenu2.MenuItems.Count - 1 Me.ContextMenu2.MenuItems(i).Enabled = False Next Else For i = 0 To Me.ContextMenu2.MenuItems.Count - 1 Me.ContextMenu2.MenuItems(i).Enabled = True Next End If Try s = lbselect.SelectedItem splitter = Microsoft.VisualBasic.Split(s, " | ") Select Case splitter(1) Case "Absteigend" s1 = "Aufsteigend" Case "Aufsteigend" s1 = "Absteigend" Case Else s1 = "Aufsteigend" End Select Me.MenuItem21.Text = "Sortierungsart " + s1 Catch End Try End If End Sub Private Sub Remove_Selected_Items(ByVal lb As ListBox) Dim i As Integer Dim b As Integer Dim splitter For i = 0 To lb.Items.Count - 1 lb.SelectedIndex = i splitter = Microsoft.VisualBasic.Split(lb.SelectedItem) Try For b = 0 To Me.lbSortfields.Items.Count - 1 Me.lbSortfields.SelectedIndex = b If Me.lbSortfields.SelectedItem = splitter(0) Then Me.lbSortfields.Items.RemoveAt(b) Next Catch End Try Next End Sub Private Sub PartnerSuchResultat() Handles Partnerdialog.partner_selected Dim tn As New TreeNode() Dim tn1 As New TreeNode() If Me.TreeView1.SelectedNode.Tag = 41 Then tn = Me.TreeView1.SelectedNode tn1 = tn.Nodes.Add(Trim(Str(Me.Partnerdialog.PartnerNr)) + " - " + Me.Partnerdialog.PartnerKurzbezeichnnung) tn1.Tag = Trim(Str(Me.Partnerdialog.PartnerNr)) tn1.ForeColor = System.Drawing.Color.Red tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 Me.TreeView1.SelectedNode.ExpandAll() Me.changes = True End If End Sub Private Sub TreeView1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TreeView1.Click End Sub Private Sub txtdatum1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtdatum1.TextChanged, txtdatum2.TextChanged, _ txtdatum3.TextChanged, txtdatum4.TextChanged, txtdatum5.TextChanged, txtdatum6.TextChanged, HostDatum1.TextChanged, HostDatum2.TextChanged, _ txtdatum1uvm.TextChanged, txtdatum2uvm.TextChanged, txtdatum3uvm.TextChanged, txtdatum4uvm.TextChanged, txtdatum1zv.TextChanged, txtdatum2zv.TextChanged, txtdatum3zv.TextChanged, txtdatum4zv.TextChanged Dim tb As TextBox Dim xt As DateTime Dim i As Integer tb = sender Select Case tb.Name Case "txtdatum1" If Me.txtdatum1.Text = "" Then Me.datumtext1.Text = "(heute)-999999" Me.cbrollend1.Checked = False Me.cbrollend1.Enabled = False Else If Format(Me.DateTimePicker1.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then Me.txtdatum1.Text = CutDate(Now.ToString) End If Me.cbrollend1.Enabled = True If Me.cbrollend1.Checked Then i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum1.Text, DateTime)) If i = 0 Then Me.datumtext1.Text = "(heute)-0" Else If i < 0 Then i = i * -1 Me.datumtext1.Text = "(heute)-" + Trim(Str(i)) End If Else Me.datumtext1.Text = Me.txtdatum1.Text End If If Microsoft.VisualBasic.InStr(Me.datumtext1.Text, "heute") > 0 Then Me.cbrollend1.Checked = True End If Case "txtdatum2" If Me.txtdatum2.Text = "" Then Me.datumtext2.Text = "(heute)" Me.cbrollend2.Checked = True Me.cbrollend2.Enabled = False ' Me.txtdatum2.Text = CutDate(Now.ToString) Else If Format(Me.DateTimePicker2.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then Me.txtdatum2.Text = CutDate(Now.ToString) End If Me.cbrollend2.Enabled = True If Me.cbrollend2.Checked Then i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum2.Text, DateTime)) If i = 0 Then Me.datumtext2.Text = "(heute)-0" Else If i < 0 Then i = i * -1 Me.datumtext2.Text = "(heute)-" + Trim(Str(i)) End If Else Me.datumtext2.Text = Me.txtdatum2.Text End If If Microsoft.VisualBasic.InStr(Me.datumtext2.Text, "heute") > 0 Then Me.cbrollend2.Checked = True End If Case "txtdatum3" If Me.txtdatum3.Text = "" Then Me.datumtext3.Text = "(heute)-999999" Me.cbrollend3.Checked = False Me.cbrollend3.Enabled = False Else If Format(Me.DateTimePicker3.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then Me.txtdatum3.Text = CutDate(Now.ToString) End If Me.cbrollend3.Enabled = True If Me.cbrollend3.Checked Then i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum3.Text, DateTime)) If i = 0 Then Me.datumtext3.Text = "(heute)-0" Else If i < 0 Then i = i * -1 Me.datumtext3.Text = "(heute)-" + Trim(Str(i)) End If Else Me.datumtext3.Text = Me.txtdatum3.Text End If If Microsoft.VisualBasic.InStr(Me.datumtext3.Text, "heute") > 0 Then Me.cbrollend3.Checked = True End If Case "txtdatum4" If Me.txtdatum4.Text = "" Then Me.datumtext4.Text = "(heute)" Me.cbrollend4.Checked = True Me.cbrollend4.Enabled = False ' Me.txtdatum4.Text = CutDate(Now.ToString) Else If Format(Me.DateTimePicker4.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then Me.txtdatum4.Text = CutDate(Now.ToString) End If Me.cbrollend4.Enabled = True If Me.cbrollend4.Checked Then i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum4.Text, DateTime)) If i = 0 Then Me.datumtext4.Text = "(heute)-0" Else If i < 0 Then i = i * -1 Me.datumtext4.Text = "(heute)-" + Trim(Str(i)) End If Else Me.datumtext4.Text = Me.txtdatum4.Text End If If Microsoft.VisualBasic.InStr(Me.datumtext4.Text, "heute") > 0 Then Me.cbrollend4.Checked = True End If Case "txtdatum5" If Me.txtdatum5.Text = "" Then Me.datumtext5.Text = "(heute)-999999" Me.cbrollend5.Checked = False Me.cbrollend5.Enabled = False Else If Format(Me.DateTimePicker5.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then Me.txtdatum5.Text = CutDate(Now.ToString) End If Me.cbrollend5.Enabled = True If Me.cbrollend5.Checked Then i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum5.Text, DateTime)) If i = 0 Then Me.datumtext5.Text = "(heute)-0" Else If i < 0 Then i = i * -1 Me.datumtext5.Text = "(heute)-" + Trim(Str(i)) End If Else Me.datumtext5.Text = Me.txtdatum5.Text End If If Microsoft.VisualBasic.InStr(Me.datumtext5.Text, "heute") > 0 Then Me.cbrollend5.Checked = True End If Case "txtdatum6" If Me.txtdatum6.Text = "" Then Me.datumtext6.Text = "(heute)" Me.cbrollend6.Checked = True Me.cbrollend6.Enabled = False ' Me.txtdatum6.Text = CutDate(Now.ToString) Else If Format(Me.DateTimePicker6.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then Me.txtdatum6.Text = CutDate(Now.ToString) End If Me.cbrollend6.Enabled = True If Me.cbrollend6.Checked Then i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum6.Text, DateTime)) If i = 0 Then Me.datumtext6.Text = "(heute)-0" Else If i < 0 Then i = i * -1 Me.datumtext6.Text = "(heute)-" + Trim(Str(i)) End If Else Me.datumtext6.Text = Me.txtdatum6.Text End If If Microsoft.VisualBasic.InStr(Me.datumtext6.Text, "heute") > 0 Then Me.cbrollend6.Checked = True End If Case "HostDatum1" If Me.HostDatum1.Text = "" Then Me.DatumHostText1.Text = "(heute)-999999" Me.cbrollend8.Checked = False Me.cbrollend8.Enabled = False Else If Format(Me.DateTimePicker9.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then Me.HostDatum1.Text = CutDate(Now.ToString) End If Me.cbrollend8.Enabled = True If Me.cbrollend8.Checked Then i = DateDiff(DateInterval.Day, Now, CType(Me.HostDatum1.Text, DateTime)) If i = 0 Then Me.DatumHostText1.Text = "(heute)-0" Else If i < 0 Then i = i * -1 Me.DatumHostText1.Text = "(heute)-" + Trim(Str(i)) End If Else Me.DatumHostText1.Text = Me.HostDatum1.Text End If If Microsoft.VisualBasic.InStr(Me.DatumHostText1.Text, "heute") > 0 Then Me.cbrollend8.Checked = True End If Case "HostDatum2" If Me.HostDatum2.Text = "" Then Me.DatumHostText2.Text = "(heute)" Me.cbrollend9.Checked = True Me.cbrollend9.Enabled = False ' Me.txtdatum6.Text = CutDate(Now.ToString) Else If Format(Me.DateTimePicker8.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then Me.HostDatum2.Text = CutDate(Now.ToString) End If Me.cbrollend9.Enabled = True If Me.cbrollend9.Checked Then i = DateDiff(DateInterval.Day, Now, CType(Me.HostDatum2.Text, DateTime)) If i = 0 Then Me.DatumHostText2.Text = "(heute)-0" Else If i < 0 Then i = i * -1 Me.DatumHostText2.Text = "(heute)-" + Trim(Str(i)) End If Else Me.DatumHostText2.Text = Me.HostDatum2.Text End If If Microsoft.VisualBasic.InStr(Me.DatumHostText2.Text, "heute") > 0 Then Me.cbrollend9.Checked = True End If 'Rel 3.7 / BUD 'Case "txtdatum1uvm" ' If Me.txtdatum1uvm.Text = "" Then ' Me.textdatum1uvm.Text = "(heute)-999999" ' Me.cbuvmrollend1.Checked = False ' Me.cbuvmrollend1.Enabled = False ' Else ' If Format(Me.DateTimePicker18.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then ' Me.txtdatum1uvm.Text = CutDate(Now.ToString) ' End If ' Me.cbuvmrollend1.Enabled = True ' If Me.cbuvmrollend1.Checked Then ' i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum1uvm.Text, DateTime)) ' If i = 0 Then ' Me.textdatum1uvm.Text = "(heute)-0" ' Else ' If i < 0 Then i = i * -1 ' Me.textdatum1uvm.Text = "(heute)-" + Trim(Str(i)) ' End If ' Else ' Me.textdatum1uvm.Text = Me.txtdatum1uvm.Text ' End If ' If Microsoft.VisualBasic.InStr(Me.textdatum1uvm.Text, "heute") > 0 Then Me.cbuvmrollend1.Checked = True ' End If 'Case "txtdatum2uvm" ' If Me.txtdatum2uvm.Text = "" Then ' Me.textdatum2uvm.Text = "(heute)" ' Me.cbuvmrollend2.Checked = False ' Me.cbuvmrollend2.Enabled = False ' Else ' If Format(Me.DateTimePicker19.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then ' Me.txtdatum2uvm.Text = CutDate(Now.ToString) ' End If ' Me.cbuvmrollend2.Enabled = True ' If Me.cbuvmrollend2.Checked Then ' i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum2uvm.Text, DateTime)) ' If i = 0 Then ' Me.textdatum2uvm.Text = "(heute)-0" ' Else ' If i < 0 Then i = i * -1 ' Me.textdatum2uvm.Text = "(heute)-" + Trim(Str(i)) ' End If ' Else ' Me.textdatum2uvm.Text = Me.txtdatum2uvm.Text ' End If ' If Microsoft.VisualBasic.InStr(Me.textdatum2uvm.Text, "heute") > 0 Then Me.cbuvmrollend2.Checked = True ' End If 'Case "txtdatum3uvm" ' If Me.txtdatum3uvm.Text = "" Then ' Me.textdatum3uvm.Text = "(heute)-999999" ' Me.cbuvmrollend3.Checked = False ' Me.cbuvmrollend3.Enabled = False ' Else ' If Format(Me.DateTimePicker17.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then ' Me.txtdatum3uvm.Text = CutDate(Now.ToString) ' End If ' Me.cbuvmrollend3.Enabled = True ' If Me.cbuvmrollend3.Checked Then ' i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum3uvm.Text, DateTime)) ' If i = 0 Then ' Me.textdatum3uvm.Text = "(heute)-0" ' Else ' If i < 0 Then i = i * -1 ' Me.textdatum3uvm.Text = "(heute)-" + Trim(Str(i)) ' End If ' Else ' Me.textdatum3uvm.Text = Me.txtdatum3uvm.Text ' End If ' If Microsoft.VisualBasic.InStr(Me.textdatum3uvm.Text, "heute") > 0 Then Me.cbuvmrollend3.Checked = True ' End If 'Case "txtdatum4uvm" ' If Me.txtdatum4uvm.Text = "" Then ' Me.textdatum4uvm.Text = "(heute)" ' Me.cbuvmrollend4.Checked = False ' Me.cbuvmrollend4.Enabled = False ' Else ' If Format(Me.DateTimePicker20.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then ' Me.txtdatum4uvm.Text = CutDate(Now.ToString) ' End If ' Me.cbuvmrollend4.Enabled = True ' If Me.cbuvmrollend4.Checked Then ' i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum4uvm.Text, DateTime)) ' If i = 0 Then ' Me.textdatum4uvm.Text = "(heute)-0" ' Else ' If i < 0 Then i = i * -1 ' Me.textdatum4uvm.Text = "(heute)-" + Trim(Str(i)) ' End If ' Else ' Me.textdatum4uvm.Text = Me.txtdatum4uvm.Text ' End If ' If Microsoft.VisualBasic.InStr(Me.textdatum4uvm.Text, "heute") > 0 Then Me.cbuvmrollend4.Checked = True ' End If Case "txtdatum1zv" If Me.txtdatum1zv.Text = "" Then Me.textdatum1zv.Text = "(heute)-999999" Me.cbzvrollend1.Checked = False Me.cbzvrollend1.Enabled = False Else If Format(Me.DateTimePicker14.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then Me.txtdatum1zv.Text = CutDate(Now.ToString) End If Me.cbzvrollend1.Enabled = True If Me.cbzvrollend1.Checked Then i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum1zv.Text, DateTime)) If i = 0 Then Me.textdatum1zv.Text = "(heute)-0" Else If i < 0 Then i = i * -1 Me.textdatum1zv.Text = "(heute)-" + Trim(Str(i)) End If Else Me.textdatum1zv.Text = Me.txtdatum1zv.Text End If If Microsoft.VisualBasic.InStr(Me.textdatum1zv.Text, "heute") > 0 Then Me.cbzvrollend1.Checked = True End If Case "txtdatum2zv" If Me.txtdatum2zv.Text = "" Then Me.textdatum2zv.Text = "(heute)" Me.cbzvrollend2.Checked = False Me.cbzvrollend2.Enabled = False Else If Format(Me.DateTimePicker15.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then Me.txtdatum2zv.Text = CutDate(Now.ToString) End If Me.cbzvrollend2.Enabled = True If Me.cbzvrollend2.Checked Then i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum2zv.Text, DateTime)) If i = 0 Then Me.textdatum2zv.Text = "(heute)-0" Else If i < 0 Then i = i * -1 Me.textdatum2zv.Text = "(heute)-" + Trim(Str(i)) End If Else Me.textdatum2zv.Text = Me.txtdatum2zv.Text End If If Microsoft.VisualBasic.InStr(Me.textdatum2zv.Text, "heute") > 0 Then Me.cbzvrollend2.Checked = True End If Case "txtdatum3zv" If Me.txtdatum3zv.Text = "" Then Me.textdatum3zv.Text = "(heute)-999999" Me.cbzvrollend3.Checked = False Me.cbzvrollend3.Enabled = False Else If Format(Me.DateTimePicker13.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then Me.txtdatum3zv.Text = CutDate(Now.ToString) End If Me.cbuvmrollend3.Enabled = True If Me.cbzvrollend3.Checked Then i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum3zv.Text, DateTime)) If i = 0 Then Me.textdatum3zv.Text = "(heute)-0" Else If i < 0 Then i = i * -1 Me.textdatum3zv.Text = "(heute)-" + Trim(Str(i)) End If Else Me.textdatum3zv.Text = Me.txtdatum3zv.Text End If If Microsoft.VisualBasic.InStr(Me.textdatum3zv.Text, "heute") > 0 Then Me.cbzvrollend3.Checked = True End If Case "txtdatum4zv" If Me.txtdatum4zv.Text = "" Then Me.textdatum4zv.Text = "(heute)" Me.cbzvrollend4.Checked = False Me.cbzvrollend4.Enabled = False Else If Format(Me.DateTimePicker16.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then Me.txtdatum4zv.Text = CutDate(Now.ToString) End If Me.cbzvrollend4.Enabled = True If Me.cbzvrollend4.Checked Then i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum4zv.Text, DateTime)) If i = 0 Then Me.textdatum4zv.Text = "(heute)-0" Else If i < 0 Then i = i * -1 Me.textdatum4zv.Text = "(heute)-" + Trim(Str(i)) End If Else Me.textdatum4zv.Text = Me.txtdatum4zv.Text End If If Microsoft.VisualBasic.InStr(Me.textdatum4zv.Text, "heute") > 0 Then Me.cbzvrollend4.Checked = True End If End Select End Sub Private Sub cbrollend1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbrollend6.CheckedChanged, cbrollend5.CheckedChanged, cbrollend4.CheckedChanged, cbrollend3.CheckedChanged, cbrollend2.CheckedChanged, cbrollend1.CheckedChanged, cbrollend8.CheckedChanged, cbrollend9.CheckedChanged, cbuvmrollend1.CheckedChanged, cbuvmrollend2.CheckedChanged, cbuvmrollend3.CheckedChanged, cbuvmrollend4.CheckedChanged, cbzvrollend1.CheckedChanged, cbzvrollend2.CheckedChanged, cbzvrollend3.CheckedChanged, cbzvrollend4.CheckedChanged Dim cb As CheckBox cb = sender Select Case cb.Name Case "cbrollend1" txtdatum1_TextChanged(Me.txtdatum1, e) Case "cbrollend2" txtdatum1_TextChanged(Me.txtdatum2, e) Case "cbrollend3" txtdatum1_TextChanged(Me.txtdatum3, e) Case "cbrollend4" txtdatum1_TextChanged(Me.txtdatum4, e) Case "cbrollend5" txtdatum1_TextChanged(Me.txtdatum5, e) Case "cbrollend6" txtdatum1_TextChanged(Me.txtdatum6, e) Case "cbrollend8" txtdatum1_TextChanged(Me.HostDatum1, e) Case "cbrollend9" txtdatum1_TextChanged(Me.HostDatum2, e) 'Rel 3.7 / BUD 'Case "cbuvmrollend1" ' txtdatum1_TextChanged(Me.txtdatum1uvm, e) 'Case "cbuvmrollend2" ' txtdatum1_TextChanged(Me.txtdatum2uvm, e) 'Case "cbuvmrollend3" ' txtdatum1_TextChanged(Me.txtdatum3uvm, e) 'Case "cbuvmrollend4" ' txtdatum1_TextChanged(Me.txtdatum4uvm, e) Case "cbzvrollend1" txtdatum1_TextChanged(Me.txtdatum1zv, e) Case "cbzvrollend2" txtdatum1_TextChanged(Me.txtdatum2zv, e) Case "cbzvrollend3" txtdatum1_TextChanged(Me.txtdatum3zv, e) Case "cbzvrollend4" txtdatum1_TextChanged(Me.txtdatum4zv, e) End Select End Sub Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click Me.txtdatum2.Text = "" Me.changes = True End Sub Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click Me.txtdatum1.Text = "" Me.changes = True End Sub Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click Me.txtdatum4.Text = "" Me.changes = True End Sub Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click Me.txtdatum5.Text = "" Me.changes = True End Sub Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click Me.txtdatum6.Text = "" Me.changes = True End Sub Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click Me.txtdatum3.Text = "" Me.changes = True End Sub Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click Me.HostDatum1.Text = "" Me.changes = True End Sub Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click Me.HostDatum2.Text = "" Me.changes = True End Sub Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click Me.txtdatum1zv.Text = "" Me.changes = True End Sub Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click Me.txtdatum2zv.Text = "" Me.changes = True End Sub Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click Me.txtdatum3zv.Text = "" Me.changes = True End Sub Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click Me.txtdatum4zv.Text = "" Me.changes = True End Sub Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click Me.txtdatum1uvm.Text = "" Me.changes = True End Sub Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click Me.txtdatum2uvm.Text = "" Me.changes = True End Sub Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click Me.txtdatum3uvm.Text = "" Me.changes = True End Sub Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click Me.txtdatum4uvm.Text = "" Me.changes = True End Sub Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click Try Dim tn As New TreeNode() Dim tn1 As New TreeNode() DivFnkt.Searchnode1(Me.TreeView1, 54, 99) If DivFnkt.found = True Then tn = DivFnkt.FoundNode tn1 = tn.Nodes.Add(Me.TextBox6.Text) tn1.Tag = Me.TextBox6.Text tn1.ForeColor = System.Drawing.Color.Red tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn1.Parent.ExpandAll() Me.TextBox6.Text = "" Me.changes = True End If Catch End Try End Sub Private Sub TextBox6_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox6.KeyDown If e.KeyCode = Keys.Enter Then Me.Button20_Click(sender, e) End If End Sub Private Sub TextBox4_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox4.KeyDown If e.KeyCode = Keys.Enter Then Me.Button9_Click(sender, e) End If End Sub Private Sub TextBox5_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox5.KeyDown If e.KeyCode = Keys.Enter Then Me.Button10_Click(sender, e) End If End Sub Private Sub init_profile() Dim i As Integer For i = 11 To 15 del_entry(i) del_entry(i + 10) del_entry(i + 20) Next del_entry(41) del_entry(43) del_entry(44) del_entry(53) del_entry(54) del_entry(51) del_entry(58) del_entry(59) del_entry(71) del_entry(73) del_entry(74) del_entry(75) del_entry(76) del_entry(77) del_entry(78) del_entry(79) del_entry(80) del_entry(81) del_entry(82) del_entry(83) del_entry(84) del_entry(91) del_entry(93) del_entry(94) Me.LBSelectHost.Items.Clear() Me.lbselect.Items.Clear() Me.cinklalt.Checked = False Me.cinklaltversant.Checked = False Me.txtdatum1.Text = "" Me.cbrollend1.Checked = False Me.txtdatum2.Text = "" Me.cbrollend2.Checked = True Me.txtdatum3.Text = "" Me.cbrollend3.Checked = False Me.txtdatum4.Text = "" Me.cbrollend4.Checked = True Me.txtdatum5.Text = "" Me.cbrollend5.Checked = False Me.txtdatum6.Text = "" Me.cbrollend6.Checked = True Me.HostDatum1.Text = "" Me.cbrollend8.Checked = False Me.HostDatum2.Text = "" Me.cbrollend9.Checked = True 'Rel 3.7 / BUD 'Me.txtdatum1uvm.Text = "" 'Me.txtdatum2uvm.Text = "" 'Me.txtdatum3uvm.Text = "" 'Me.txtdatum4uvm.Text = "" 'Me.cbuvmrollend1.Checked = False 'Me.cbuvmrollend2.Checked = True 'Me.cbuvmrollend3.Checked = False 'Me.cbuvmrollend4.Checked = True Me.txtdatum1zv.Text = "" Me.txtdatum2zv.Text = "" Me.txtdatum3zv.Text = "" Me.txtdatum4zv.Text = "" Me.cbzvrollend1.Checked = False Me.cbzvrollend2.Checked = True Me.cbzvrollend3.Checked = False Me.cbzvrollend4.Checked = True Try Dim tmpdate As DateTime tmpdate = DateAdd(DateInterval.Day, -180, Now) Me.txtdatum1zv.Text = tmpdate.ToShortDateString Catch End Try reset_dokart() reset_color(60) reset_color(61) reset_color(62) reset_color(45) reset_color(55) reset_color(42) reset_color(52) Me.changes = True DivFnkt.Searchnode1(Me.TreeView1, 41, 99) If DivFnkt.found Then Me.TreeView1.SelectedNode = DivFnkt.FoundNode End If 'hutter 20041014 'Me.TreeView1.BeginUpdate() nodeswithdata(1) nodeswithdata(2) nodeswithdata(3) nodeswithdata(70) 'Rel 3.7 / BUD 'nodeswithdata(90) nodeswithdata(72) 'Rel 3.7 / BUD 'nodeswithdata(92) 'hutter 20041014 'Me.TreeView1.EndUpdate() End Sub Private Sub init_datumzvuvm() Me.txtdatum1zv.Text = Now.ToShortDateString 'Rel 3.7 / BUD 'Me.txtdatum1uvm.Text = Now.ToShortDateString 'Me.cbuvmrollend1.Checked = True Me.cbzvrollend1.Checked = True DivFnkt.Searchnode1(Me.TreeView1, 72, 99) DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue DivFnkt.FoundNode.Parent.ExpandAll() 'Rel 3.7 / BUD 'DivFnkt.Searchnode1(Me.TreeView1, 92, 99) 'DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue 'DivFnkt.FoundNode.Parent.ExpandAll() End Sub Private Sub del_entry(ByVal node As Integer) Dim tn As TreeNode DivFnkt.Searchnode1(Me.TreeView1, node, 99) If DivFnkt.found Then Me.TreeView1.SelectedNode = DivFnkt.FoundNode Try tn = Me.TreeView1.SelectedNode While tn.GetNodeCount(True) > 0 tn.Nodes(0).Remove() End While tn.ForeColor = System.Drawing.Color.Black Catch End Try End If End Sub Private Sub reset_color(ByVal node As Integer) Dim tn As TreeNode DivFnkt.Searchnode1(Me.TreeView1, node, 99) If DivFnkt.found Then Me.TreeView1.SelectedNode = DivFnkt.FoundNode Try tn = Me.TreeView1.SelectedNode tn.ForeColor = System.Drawing.Color.Black Catch End Try End If End Sub Private Sub reset_dokart() Dim tmptreeview As TreeView tmptreeview = Me.TVDokart DivFnkt.Searchnode2(tmptreeview, 0, 0) While DivFnkt.found DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Black DivFnkt.FoundNode.ImageIndex = 0 DivFnkt.Searchnode2(tmptreeview, 0, 0) End While tmptreeview = Me.TVHostDok DivFnkt.Searchnode2(tmptreeview, 0, 0) While DivFnkt.found DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Black DivFnkt.FoundNode.ImageIndex = 0 DivFnkt.Searchnode2(tmptreeview, 0, 0) End While End Sub Private Function nodeswithdata(ByVal node As Integer) As Boolean If node <> 70 And node <> 90 Then DivFnkt.Searchnode1(Me.TreeView1, node, 99) If DivFnkt.FoundNode.GetNodeCount(True) < 6 Then DivFnkt.FoundNode.Collapse() End If If node = 70 Then DivFnkt.Searchnode1(Me.TreeView1, node, 99) If DivFnkt.FoundNode.GetNodeCount(True) < 15 Then DivFnkt.FoundNode.Collapse() End If If node = 90 Then DivFnkt.Searchnode1(Me.TreeView1, node, 99) If DivFnkt.FoundNode.GetNodeCount(True) < 4 Then DivFnkt.FoundNode.Collapse() End If If node = 72 Then If expandzv Then DivFnkt.Searchnode1(Me.TreeView1, 70, 99) If DivFnkt.found = True Then DivFnkt.FoundNode.Expand() End If End If 'Rel 3.7 / BUD 'If node = 92 Then ' If expanduvm Then ' DivFnkt.Searchnode1(Me.TreeView1, 90, 99) ' If DivFnkt.found = True Then DivFnkt.FoundNode.Expand() ' End If 'End If End Function Private Sub set_tips() End Sub Private Sub DateTimePicker1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles DateTimePicker1.Enter, _ DateTimePicker2.Enter, DateTimePicker3.Enter, DateTimePicker4.Enter, DateTimePicker5.Enter, DateTimePicker6.Enter, DateTimePicker8.Enter, DateTimePicker9.Enter, DateTimePicker13.Enter, DateTimePicker14.Enter, _ DateTimePicker15.Enter, DateTimePicker16.Enter, DateTimePicker17.Enter, DateTimePicker18.Enter, DateTimePicker19.Enter, DateTimePicker20.Enter Dim dp As DateTimePicker Dim D As Date dp = sender Select Case UCase(dp.Name) Case "DATETIMEPICKER1" If Me.txtdatum1.Text <> "" Then D = CType(Me.txtdatum1.Text, Date) Me.DateTimePicker1.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0) Else Me.DateTimePicker1.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0) End If Case "DATETIMEPICKER2" If Me.txtdatum2.Text <> "" Then D = CType(Me.txtdatum2.Text, Date) Me.DateTimePicker2.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0) Else Me.DateTimePicker2.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0) End If Case "DATETIMEPICKER3" If Me.txtdatum3.Text <> "" Then D = CType(Me.txtdatum3.Text, Date) Me.DateTimePicker3.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0) Else Me.DateTimePicker3.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0) End If Case "DATETIMEPICKER4" If Me.txtdatum4.Text <> "" Then D = CType(Me.txtdatum4.Text, Date) Me.DateTimePicker4.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0) Else Me.DateTimePicker4.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0) End If Case "DATETIMEPICKER5" If Me.txtdatum5.Text <> "" Then D = CType(Me.txtdatum5.Text, Date) Me.DateTimePicker5.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0) Else Me.DateTimePicker5.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0) End If Case "DATETIMEPICKER6" If Me.txtdatum6.Text <> "" Then D = CType(Me.txtdatum6.Text, Date) Me.DateTimePicker6.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0) Else Me.DateTimePicker6.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0) End If Case "DATETIMEPICKER8" If Me.HostDatum2.Text <> "" Then D = CType(Me.HostDatum2.Text, Date) Me.DateTimePicker8.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0) Else Me.DateTimePicker8.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0) End If Case "DATETIMEPICKER9" If Me.HostDatum1.Text <> "" Then D = CType(Me.HostDatum1.Text, Date) Me.DateTimePicker9.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0) Else Me.DateTimePicker9.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0) End If Case "DATETIMEPICKER13" If Me.txtdatum3zv.Text <> "" Then D = CType(Me.txtdatum3zv.Text, Date) Me.DateTimePicker13.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0) Else Me.DateTimePicker13.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0) End If Case "DATETIMEPICKER14" If Me.txtdatum1zv.Text <> "" Then D = CType(Me.txtdatum1zv.Text, Date) Me.DateTimePicker14.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0) Else Me.DateTimePicker14.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0) End If Case "DATETIMEPICKER15" If Me.txtdatum2zv.Text <> "" Then D = CType(Me.txtdatum2zv.Text, Date) Me.DateTimePicker15.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0) Else Me.DateTimePicker15.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0) End If Case "DATETIMEPICKER16" If Me.txtdatum4zv.Text <> "" Then D = CType(Me.txtdatum4zv.Text, Date) Me.DateTimePicker16.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0) Else Me.DateTimePicker16.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0) End If Case "DATETIMEPICKER17" If Me.txtdatum3uvm.Text <> "" Then D = CType(Me.txtdatum3uvm.Text, Date) Me.DateTimePicker17.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0) Else Me.DateTimePicker17.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0) End If Case "DATETIMEPICKER18" If Me.txtdatum1uvm.Text <> "" Then D = CType(Me.txtdatum1uvm.Text, Date) Me.DateTimePicker18.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0) Else Me.DateTimePicker18.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0) End If Case "DATETIMEPICKER19" If Me.txtdatum2uvm.Text <> "" Then D = CType(Me.txtdatum2uvm.Text, Date) Me.DateTimePicker19.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0) Else Me.DateTimePicker19.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0) End If Case "DATETIMEPICKER20" If Me.txtdatum4uvm.Text <> "" Then D = CType(Me.txtdatum4uvm.Text, Date) Me.DateTimePicker20.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0) Else Me.DateTimePicker20.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0) End If Case Else End Select End Sub Private Sub TabControl2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl2.SelectedIndexChanged If On_Load = True Then Exit Sub If Me.TabControl2.SelectedIndex = 0 Then Me.GroupBox10.Visible = True Me.cinklalt.Visible = True Me.cinklaltversant.Visible = True Else Me.GroupBox10.Visible = False Me.cinklalt.Visible = False Me.cinklaltversant.Visible = False End If End Sub Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click Dim tn As New TreeNode() Dim tn1 As New TreeNode() Try DivFnkt.Searchnode1(Me.TreeView1, 93, 99) If DivFnkt.found = True Then tn = DivFnkt.FoundNode tn1 = tn.Nodes.Add(Me.txtuvmauftragnr.Text) tn1.Tag = Me.txtuvmauftragnr.Text tn1.ForeColor = System.Drawing.Color.Red tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn1.Parent.ExpandAll() Me.txtuvmauftragnr.Text = "" Me.changes = True End If Catch End Try End Sub Private Sub txtuvmauftrag_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox3.KeyDown, TextBox2.KeyDown, txtuvmauftragnr.KeyDown If e.KeyCode = Keys.Return Then Button29_Click(sender, e) End Sub Private Sub btnzvauftragsnr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnzvauftragsnr.Click, btnzvreferenz.Click, btnzvposten.Click, _ btnzvverarbeitungsart.Click, btnzvpcnr.Click, btnzvbeguenstiger.Click, btnzviso.Click, btnzvclearing.Click, btnzvzahlungsart.Click, btnzvbetrag.Click, btnzvswift.Click, _ btnzvauftraggeber.Click Dim tn As New TreeNode() Dim tn1 As New TreeNode() Dim tb As Object Dim o As TextBox Dim t As String tb = sender Dim i As Integer = 0 Select Case tb.Name Case "btnzvauftragsnr", "txtzvauftragsnr" i = 73 o = Me.txtzvauftragsnr Case "btnzvauftraggeber", "txtzvauftraggeber" i = 74 o = Me.txtzvauftraggeber Case "btnzvbetrag", "txtzvbetrag" i = 75 o = Me.txtzvbetrag Case "btnzvclearing", "txtzvclearingnr" i = 76 o = Me.txtzvclearingnr Case "btnzviso", "txtzviso" i = 77 o = Me.txtzviso Case "btnzvbeguenstiger", "txtzvbeguenstigter" i = 78 o = Me.txtzvbeguenstigter Case "btnzvpcnr", "txtzvpcnr" i = 79 o = Me.txtzvpcnr Case "btnzvposten", "txtzvpostennr" i = 80 o = Me.txtzvpostennr Case "btnzvreferenz", "txtzvrerenznr" i = 81 o = Me.txtzvreferenznr Case "btnzvswift", "txtzvswift" i = 82 o = Me.txtzvswift Case "btnzvverarbeitungsart", "txtzvverarbeitungsart" i = 83 o = Me.txtzvverarbeitungsart Case "btnzvzahlungsart", "txtzvzahlungsart" i = 84 o = Me.txtzvzahlungsart Case Else i = 0 End Select Try If i > 0 Then DivFnkt.Searchnode1(Me.TreeView1, i, 99) If DivFnkt.found = True Then tn = DivFnkt.FoundNode tn1 = tn.Nodes.Add(o.Text) tn1.Tag = o.Text tn1.ForeColor = System.Drawing.Color.Red tn1.ImageIndex = 4 tn1.SelectedImageIndex = 4 tn1.Parent.ExpandAll() o.Text = "" Me.changes = True End If End If Catch End Try End Sub Private Sub txtzvbetrag_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtzvbetrag.KeyDown If e.KeyCode = Keys.Return Then btnzvauftragsnr_Click(sender, e) End Sub Private Sub txtzvpostennr_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtzvpostennr.KeyDown If e.KeyCode = Keys.Return Then btnzvauftragsnr_Click(sender, e) End Sub Private Sub txtzvverarbeitungsart_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtzvverarbeitungsart.KeyDown If e.KeyCode = Keys.Return Then btnzvauftragsnr_Click(sender, e) End Sub Private Sub txtzvzahlungsart_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtzvzahlungsart.KeyDown If e.KeyCode = Keys.Return Then btnzvauftragsnr_Click(sender, e) End Sub Private Sub txtzvswift_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtzvswift.KeyDown If e.KeyCode = Keys.Return Then btnzvauftragsnr_Click(sender, e) End Sub Private Sub txtzvbeguenstigter_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtzvbeguenstigter.KeyDown If e.KeyCode = Keys.Return Then btnzvauftragsnr_Click(sender, e) End Sub Private Sub txtzvreferenznr_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtzvreferenznr.KeyDown If e.KeyCode = Keys.Return Then btnzvauftragsnr_Click(sender, e) End Sub Private Sub txtzviso_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtzviso.KeyDown If e.KeyCode = Keys.Return Then btnzvauftragsnr_Click(sender, e) End Sub Private Sub txtzvclearingnr_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtzvclearingnr.KeyDown If e.KeyCode = Keys.Return Then btnzvauftragsnr_Click(sender, e) End Sub Private Sub txtzvauftragsnr_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtzvauftragsnr.KeyDown If e.KeyCode = Keys.Return Then btnzvauftragsnr_Click(sender, e) End Sub Private Sub txtzvpcnr_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtzvpcnr.KeyDown If e.KeyCode = Keys.Return Then btnzvauftragsnr_Click(sender, e) End Sub Private Sub txtzvauftraggeber_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtzvauftraggeber.KeyDown If e.KeyCode = Keys.Return Then btnzvauftragsnr_Click(sender, e) End Sub Private Sub BtnHelp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHelp.Click Globals.HTMLHelp.ShowHelpToc("profilverwaltung") End Sub Private Sub frmProfil_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize Me.BtnHelp.Left = Me.ToolBar1.Width - Me.BtnHelp.Width End Sub End Class