Imports System.Data Imports System.Data.SqlTypes Imports System.Data.SqlClient Imports System.ComponentModel Imports UtilityLibrary.Win32 Public Class frmPartnerzusammenlegung 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 GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents TextBox3 As System.Windows.Forms.TextBox Friend WithEvents TextBox4 As System.Windows.Forms.TextBox Friend WithEvents TextBox5 As System.Windows.Forms.TextBox Friend WithEvents TextBox6 As System.Windows.Forms.TextBox Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents TextBox7 As System.Windows.Forms.TextBox Friend WithEvents TextBox8 As System.Windows.Forms.TextBox Friend WithEvents Label7 As System.Windows.Forms.Label Friend WithEvents TextBox9 As System.Windows.Forms.TextBox Friend WithEvents TextBox10 As System.Windows.Forms.TextBox Friend WithEvents TextBox11 As System.Windows.Forms.TextBox Friend WithEvents TextBox12 As System.Windows.Forms.TextBox Friend WithEvents TextBox13 As System.Windows.Forms.TextBox Friend WithEvents TextBox14 As System.Windows.Forms.TextBox Friend WithEvents Label8 As System.Windows.Forms.Label Friend WithEvents Label9 As System.Windows.Forms.Label Friend WithEvents Label10 As System.Windows.Forms.Label Friend WithEvents Label11 As System.Windows.Forms.Label Friend WithEvents Label12 As System.Windows.Forms.Label Friend WithEvents Label13 As System.Windows.Forms.Label Friend WithEvents TextBox15 As System.Windows.Forms.TextBox Friend WithEvents TextBox16 As System.Windows.Forms.TextBox Friend WithEvents Label14 As System.Windows.Forms.Label Friend WithEvents Abbruch As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Button3 As System.Windows.Forms.Button Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox Friend WithEvents Button4 As System.Windows.Forms.Button Friend WithEvents Button5 As System.Windows.Forms.Button Friend WithEvents Label15 As System.Windows.Forms.Label Friend WithEvents btnDossierHaupt As System.Windows.Forms.Button Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox Friend WithEvents ListBox1 As System.Windows.Forms.ListBox Friend WithEvents Button7 As System.Windows.Forms.Button Friend WithEvents Button8 As System.Windows.Forms.Button Friend WithEvents Textbox2 As System.Windows.Forms.TextBox Friend WithEvents TextBox17 As System.Windows.Forms.TextBox Friend WithEvents Label16 As System.Windows.Forms.Label Friend WithEvents TextBox18 As System.Windows.Forms.TextBox Friend WithEvents Label17 As System.Windows.Forms.Label Friend WithEvents Detaillist As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents btnPartnerauswahl1 As System.Windows.Forms.Button Friend WithEvents btnpartnerauswahl2 As System.Windows.Forms.Button Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar Friend WithEvents ImageList1 As System.Windows.Forms.ImageList Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton Friend WithEvents ToolBarButton2 As System.Windows.Forms.ToolBarButton Friend WithEvents ToolBarButton3 As System.Windows.Forms.ToolBarButton Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem Friend WithEvents ContextMenu2 As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem Friend WithEvents TextBox19 As System.Windows.Forms.TextBox Friend WithEvents Label18 As System.Windows.Forms.Label Friend WithEvents TextBox20 As System.Windows.Forms.TextBox Friend WithEvents Label19 As System.Windows.Forms.Label Friend WithEvents Label20 As System.Windows.Forms.Label Friend WithEvents Label21 As System.Windows.Forms.Label Friend WithEvents btninaktivieren As System.Windows.Forms.Button Friend WithEvents ToolBarButton4 As System.Windows.Forms.ToolBarButton Friend WithEvents BtnHelp As System.Windows.Forms.Button Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmPartnerzusammenlegung)) Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.Label20 = New System.Windows.Forms.Label() Me.TextBox19 = New System.Windows.Forms.TextBox() Me.Label18 = New System.Windows.Forms.Label() Me.Detaillist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.TextBox17 = New System.Windows.Forms.TextBox() Me.Label16 = New System.Windows.Forms.Label() Me.Button7 = New System.Windows.Forms.Button() Me.GroupBox3 = New System.Windows.Forms.GroupBox() Me.ListBox1 = New System.Windows.Forms.ListBox() Me.btnDossierHaupt = New System.Windows.Forms.Button() Me.Label15 = New System.Windows.Forms.Label() Me.TextBox15 = New System.Windows.Forms.TextBox() Me.Label13 = New System.Windows.Forms.Label() Me.TextBox7 = New System.Windows.Forms.TextBox() Me.Label6 = New System.Windows.Forms.Label() Me.TextBox6 = New System.Windows.Forms.TextBox() Me.TextBox5 = New System.Windows.Forms.TextBox() Me.TextBox4 = New System.Windows.Forms.TextBox() Me.TextBox3 = New System.Windows.Forms.TextBox() Me.Textbox2 = New System.Windows.Forms.TextBox() Me.TextBox1 = New System.Windows.Forms.TextBox() Me.Label5 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() Me.btnPartnerauswahl1 = New System.Windows.Forms.Button() Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.Label21 = New System.Windows.Forms.Label() Me.TextBox20 = New System.Windows.Forms.TextBox() Me.Label19 = New System.Windows.Forms.Label() Me.TextBox18 = New System.Windows.Forms.TextBox() Me.Label17 = New System.Windows.Forms.Label() Me.Button8 = New System.Windows.Forms.Button() Me.Button5 = New System.Windows.Forms.Button() Me.Button4 = New System.Windows.Forms.Button() Me.TextBox16 = New System.Windows.Forms.TextBox() Me.Label14 = New System.Windows.Forms.Label() Me.TextBox8 = New System.Windows.Forms.TextBox() Me.Label7 = New System.Windows.Forms.Label() Me.TextBox9 = New System.Windows.Forms.TextBox() Me.TextBox10 = New System.Windows.Forms.TextBox() Me.TextBox11 = New System.Windows.Forms.TextBox() Me.TextBox12 = New System.Windows.Forms.TextBox() Me.TextBox13 = New System.Windows.Forms.TextBox() Me.TextBox14 = New System.Windows.Forms.TextBox() Me.Label8 = New System.Windows.Forms.Label() Me.Label9 = New System.Windows.Forms.Label() Me.Label10 = New System.Windows.Forms.Label() Me.Label11 = New System.Windows.Forms.Label() Me.Label12 = New System.Windows.Forms.Label() Me.btnpartnerauswahl2 = New System.Windows.Forms.Button() Me.Abbruch = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button() Me.CheckBox1 = New System.Windows.Forms.CheckBox() Me.ToolBar1 = New System.Windows.Forms.ToolBar() Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton() Me.ToolBarButton2 = New System.Windows.Forms.ToolBarButton() Me.ToolBarButton3 = New System.Windows.Forms.ToolBarButton() Me.ToolBarButton4 = New System.Windows.Forms.ToolBarButton() Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) Me.Panel1 = New System.Windows.Forms.Panel() Me.ContextMenu1 = New System.Windows.Forms.ContextMenu() Me.MenuItem7 = New System.Windows.Forms.MenuItem() Me.MenuItem3 = New System.Windows.Forms.MenuItem() Me.MenuItem2 = New System.Windows.Forms.MenuItem() Me.MenuItem1 = New System.Windows.Forms.MenuItem() Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.ContextMenu2 = New System.Windows.Forms.ContextMenu() Me.MenuItem4 = New System.Windows.Forms.MenuItem() Me.MenuItem5 = New System.Windows.Forms.MenuItem() Me.MenuItem6 = New System.Windows.Forms.MenuItem() Me.btninaktivieren = New System.Windows.Forms.Button() Me.BtnHelp = New System.Windows.Forms.Button() Me.GroupBox1.SuspendLayout() CType(Me.Detaillist, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox3.SuspendLayout() Me.GroupBox2.SuspendLayout() Me.Panel1.SuspendLayout() CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'GroupBox1 ' Me.GroupBox1.Controls.Add(Me.Label20) Me.GroupBox1.Controls.Add(Me.TextBox19) Me.GroupBox1.Controls.Add(Me.Label18) Me.GroupBox1.Controls.Add(Me.Detaillist) Me.GroupBox1.Controls.Add(Me.TextBox17) Me.GroupBox1.Controls.Add(Me.Label16) Me.GroupBox1.Controls.Add(Me.Button7) Me.GroupBox1.Controls.Add(Me.GroupBox3) Me.GroupBox1.Controls.Add(Me.btnDossierHaupt) Me.GroupBox1.Controls.Add(Me.Label15) Me.GroupBox1.Controls.Add(Me.TextBox15) Me.GroupBox1.Controls.Add(Me.Label13) Me.GroupBox1.Controls.Add(Me.TextBox7) Me.GroupBox1.Controls.Add(Me.Label6) Me.GroupBox1.Controls.Add(Me.TextBox6) Me.GroupBox1.Controls.Add(Me.TextBox5) Me.GroupBox1.Controls.Add(Me.TextBox4) Me.GroupBox1.Controls.Add(Me.TextBox3) Me.GroupBox1.Controls.Add(Me.Textbox2) Me.GroupBox1.Controls.Add(Me.TextBox1) Me.GroupBox1.Controls.Add(Me.Label5) Me.GroupBox1.Controls.Add(Me.Label4) Me.GroupBox1.Controls.Add(Me.Label3) Me.GroupBox1.Controls.Add(Me.Label2) Me.GroupBox1.Controls.Add(Me.Label1) Me.GroupBox1.Location = New System.Drawing.Point(8, 32) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Size = New System.Drawing.Size(568, 512) Me.GroupBox1.TabIndex = 3 Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "Hauptpartner" ' 'Label20 ' Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label20.ForeColor = System.Drawing.Color.Red Me.Label20.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Label20.Location = New System.Drawing.Point(288, 448) Me.Label20.Name = "Label20" Me.Label20.Size = New System.Drawing.Size(272, 23) Me.Label20.TabIndex = 29 Me.Label20.Text = "Partner hat keine Dokumente" Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'TextBox19 ' Me.TextBox19.BackColor = System.Drawing.Color.White Me.TextBox19.Location = New System.Drawing.Point(360, 320) Me.TextBox19.Name = "TextBox19" Me.TextBox19.ReadOnly = True Me.TextBox19.Size = New System.Drawing.Size(200, 20) Me.TextBox19.TabIndex = 9 Me.TextBox19.Text = "Meier Fredy, TG1234" ' 'Label18 ' Me.Label18.Location = New System.Drawing.Point(288, 320) Me.Label18.Name = "Label18" Me.Label18.Size = New System.Drawing.Size(72, 24) Me.Label18.TabIndex = 27 Me.Label18.Text = "Mutations-Datum" ' 'Detaillist ' Me.Detaillist.AllowUpdateOnBlur = False Me.Detaillist.AlternatingRows = True Me.Detaillist.Cursor = System.Windows.Forms.Cursors.Default Me.Detaillist.FetchRowStyles = True Me.Detaillist.FilterBar = True Me.Detaillist.GroupByCaption = "Drag a column header here to group by that column" Me.Detaillist.Images.Add(CType(resources.GetObject("Detaillist.Images"), System.Drawing.Image)) Me.Detaillist.Location = New System.Drawing.Point(288, 368) Me.Detaillist.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None Me.Detaillist.Name = "Detaillist" Me.Detaillist.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.Detaillist.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.Detaillist.PreviewInfo.ZoomFactor = 75.0R Me.Detaillist.PrintInfo.PageSettings = CType(resources.GetObject("Detaillist.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.Detaillist.RecordSelectors = False Me.Detaillist.ScrollTips = True Me.Detaillist.Size = New System.Drawing.Size(272, 100) Me.Detaillist.TabIndex = 10 Me.Detaillist.Text = "C1TrueDBGrid1" Me.Detaillist.PropBag = resources.GetString("Detaillist.PropBag") ' 'TextBox17 ' Me.TextBox17.BackColor = System.Drawing.Color.White Me.TextBox17.Location = New System.Drawing.Point(360, 288) Me.TextBox17.Name = "TextBox17" Me.TextBox17.ReadOnly = True Me.TextBox17.Size = New System.Drawing.Size(200, 20) Me.TextBox17.TabIndex = 8 Me.TextBox17.Text = "Meier Fredy, TG1234" ' 'Label16 ' Me.Label16.Location = New System.Drawing.Point(288, 288) Me.Label16.Name = "Label16" Me.Label16.Size = New System.Drawing.Size(72, 24) Me.Label16.TabIndex = 22 Me.Label16.Text = "Kunden-berater" ' 'Button7 ' Me.Button7.Location = New System.Drawing.Point(288, 480) Me.Button7.Name = "Button7" Me.Button7.Size = New System.Drawing.Size(128, 23) Me.Button7.TabIndex = 11 Me.Button7.Text = "Partnerinformationen" ' 'GroupBox3 ' Me.GroupBox3.Controls.Add(Me.ListBox1) Me.GroupBox3.Location = New System.Drawing.Point(8, 24) Me.GroupBox3.Name = "GroupBox3" Me.GroupBox3.Size = New System.Drawing.Size(256, 456) Me.GroupBox3.TabIndex = 0 Me.GroupBox3.TabStop = False Me.GroupBox3.Text = "Zur Verfügung stehende Hauptpartner" ' 'ListBox1 ' Me.ListBox1.Dock = System.Windows.Forms.DockStyle.Fill Me.ListBox1.Location = New System.Drawing.Point(3, 16) Me.ListBox1.Name = "ListBox1" Me.ListBox1.Size = New System.Drawing.Size(250, 437) Me.ListBox1.TabIndex = 0 ' 'btnDossierHaupt ' Me.btnDossierHaupt.Location = New System.Drawing.Point(432, 480) Me.btnDossierHaupt.Name = "btnDossierHaupt" Me.btnDossierHaupt.Size = New System.Drawing.Size(128, 23) Me.btnDossierHaupt.TabIndex = 12 Me.btnDossierHaupt.Text = "Partnerdossier" ' 'Label15 ' Me.Label15.Location = New System.Drawing.Point(288, 352) Me.Label15.Name = "Label15" Me.Label15.Size = New System.Drawing.Size(112, 16) Me.Label15.TabIndex = 17 Me.Label15.Text = "Partnerdetails" ' 'TextBox15 ' Me.TextBox15.BackColor = System.Drawing.Color.White Me.TextBox15.Location = New System.Drawing.Point(360, 256) Me.TextBox15.Name = "TextBox15" Me.TextBox15.ReadOnly = True Me.TextBox15.Size = New System.Drawing.Size(200, 20) Me.TextBox15.TabIndex = 7 Me.TextBox15.Text = "Meier Fredy, TG1234" ' 'Label13 ' Me.Label13.Location = New System.Drawing.Point(288, 256) Me.Label13.Name = "Label13" Me.Label13.Size = New System.Drawing.Size(72, 24) Me.Label13.TabIndex = 13 Me.Label13.Text = "Kurzbez." ' 'TextBox7 ' Me.TextBox7.BackColor = System.Drawing.Color.White Me.TextBox7.Location = New System.Drawing.Point(360, 160) Me.TextBox7.Multiline = True Me.TextBox7.Name = "TextBox7" Me.TextBox7.ReadOnly = True Me.TextBox7.Size = New System.Drawing.Size(200, 80) Me.TextBox7.TabIndex = 6 ' 'Label6 ' Me.Label6.Location = New System.Drawing.Point(288, 160) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(72, 32) Me.Label6.TabIndex = 11 Me.Label6.Text = "Inhaber-adresse" ' 'TextBox6 ' Me.TextBox6.BackColor = System.Drawing.Color.White Me.TextBox6.Location = New System.Drawing.Point(416, 128) Me.TextBox6.Name = "TextBox6" Me.TextBox6.ReadOnly = True Me.TextBox6.Size = New System.Drawing.Size(144, 20) Me.TextBox6.TabIndex = 5 Me.TextBox6.Text = "Frauenfeld" ' 'TextBox5 ' Me.TextBox5.BackColor = System.Drawing.Color.White Me.TextBox5.Location = New System.Drawing.Point(360, 128) Me.TextBox5.Name = "TextBox5" Me.TextBox5.ReadOnly = True Me.TextBox5.Size = New System.Drawing.Size(48, 20) Me.TextBox5.TabIndex = 4 Me.TextBox5.Text = "8500" ' 'TextBox4 ' Me.TextBox4.BackColor = System.Drawing.Color.White Me.TextBox4.Location = New System.Drawing.Point(360, 104) Me.TextBox4.Name = "TextBox4" Me.TextBox4.ReadOnly = True Me.TextBox4.Size = New System.Drawing.Size(200, 20) Me.TextBox4.TabIndex = 3 Me.TextBox4.Text = "Winzerweg 12" ' 'TextBox3 ' Me.TextBox3.BackColor = System.Drawing.Color.White Me.TextBox3.Location = New System.Drawing.Point(360, 80) Me.TextBox3.Name = "TextBox3" Me.TextBox3.ReadOnly = True Me.TextBox3.Size = New System.Drawing.Size(200, 20) Me.TextBox3.TabIndex = 2 Me.TextBox3.Text = "Hans" ' 'Textbox2 ' Me.Textbox2.BackColor = System.Drawing.Color.White Me.Textbox2.Location = New System.Drawing.Point(360, 56) Me.Textbox2.Name = "Textbox2" Me.Textbox2.ReadOnly = True Me.Textbox2.Size = New System.Drawing.Size(200, 20) Me.Textbox2.TabIndex = 1 Me.Textbox2.Text = "Muster" ' 'TextBox1 ' Me.TextBox1.BackColor = System.Drawing.Color.White Me.TextBox1.Location = New System.Drawing.Point(360, 24) Me.TextBox1.Name = "TextBox1" Me.TextBox1.ReadOnly = True Me.TextBox1.Size = New System.Drawing.Size(200, 20) Me.TextBox1.TabIndex = 0 Me.TextBox1.Text = "1065467" ' 'Label5 ' Me.Label5.Location = New System.Drawing.Point(288, 24) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(72, 23) Me.Label5.TabIndex = 4 Me.Label5.Text = "Partnernr" ' 'Label4 ' Me.Label4.Location = New System.Drawing.Point(288, 128) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(72, 23) Me.Label4.TabIndex = 3 Me.Label4.Text = "PLZ/Ort" ' 'Label3 ' Me.Label3.Location = New System.Drawing.Point(288, 104) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(72, 23) Me.Label3.TabIndex = 2 Me.Label3.Text = "Strasse" ' 'Label2 ' Me.Label2.Location = New System.Drawing.Point(288, 80) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(72, 23) Me.Label2.TabIndex = 1 Me.Label2.Text = "Vorname" ' 'Label1 ' Me.Label1.Location = New System.Drawing.Point(288, 56) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(72, 23) Me.Label1.TabIndex = 0 Me.Label1.Text = "Name/Firma" ' 'btnPartnerauswahl1 ' Me.btnPartnerauswahl1.Image = CType(resources.GetObject("btnPartnerauswahl1.Image"), System.Drawing.Image) Me.btnPartnerauswahl1.Location = New System.Drawing.Point(552, 8) Me.btnPartnerauswahl1.Name = "btnPartnerauswahl1" Me.btnPartnerauswahl1.Size = New System.Drawing.Size(24, 24) Me.btnPartnerauswahl1.TabIndex = 1 ' 'GroupBox2 ' Me.GroupBox2.Controls.Add(Me.Label21) Me.GroupBox2.Controls.Add(Me.TextBox20) Me.GroupBox2.Controls.Add(Me.Label19) Me.GroupBox2.Controls.Add(Me.TextBox18) Me.GroupBox2.Controls.Add(Me.Label17) Me.GroupBox2.Controls.Add(Me.Button8) Me.GroupBox2.Controls.Add(Me.Button5) Me.GroupBox2.Controls.Add(Me.Button4) Me.GroupBox2.Controls.Add(Me.TextBox16) Me.GroupBox2.Controls.Add(Me.Label14) Me.GroupBox2.Controls.Add(Me.TextBox8) Me.GroupBox2.Controls.Add(Me.Label7) Me.GroupBox2.Controls.Add(Me.TextBox9) Me.GroupBox2.Controls.Add(Me.TextBox10) Me.GroupBox2.Controls.Add(Me.TextBox11) Me.GroupBox2.Controls.Add(Me.TextBox12) Me.GroupBox2.Controls.Add(Me.TextBox13) Me.GroupBox2.Controls.Add(Me.TextBox14) Me.GroupBox2.Controls.Add(Me.Label8) Me.GroupBox2.Controls.Add(Me.Label9) Me.GroupBox2.Controls.Add(Me.Label10) Me.GroupBox2.Controls.Add(Me.Label11) Me.GroupBox2.Controls.Add(Me.Label12) Me.GroupBox2.Location = New System.Drawing.Point(584, 32) Me.GroupBox2.Name = "GroupBox2" Me.GroupBox2.Size = New System.Drawing.Size(296, 512) Me.GroupBox2.TabIndex = 4 Me.GroupBox2.TabStop = False Me.GroupBox2.Text = "<< Partner für Zusammenlegung" ' 'Label21 ' Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label21.ForeColor = System.Drawing.Color.Red Me.Label21.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Label21.Location = New System.Drawing.Point(8, 448) Me.Label21.Name = "Label21" Me.Label21.Size = New System.Drawing.Size(272, 23) Me.Label21.TabIndex = 35 Me.Label21.Text = "Partner hat keine Dokumente" Me.Label21.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'TextBox20 ' Me.TextBox20.BackColor = System.Drawing.Color.White Me.TextBox20.Location = New System.Drawing.Point(80, 320) Me.TextBox20.Name = "TextBox20" Me.TextBox20.ReadOnly = True Me.TextBox20.Size = New System.Drawing.Size(200, 20) Me.TextBox20.TabIndex = 9 Me.TextBox20.Text = "Meier Fredy, TG1234" ' 'Label19 ' Me.Label19.Location = New System.Drawing.Point(8, 320) Me.Label19.Name = "Label19" Me.Label19.Size = New System.Drawing.Size(72, 24) Me.Label19.TabIndex = 33 Me.Label19.Text = "Mutations-Datum" ' 'TextBox18 ' Me.TextBox18.BackColor = System.Drawing.Color.White Me.TextBox18.Location = New System.Drawing.Point(80, 256) Me.TextBox18.Name = "TextBox18" Me.TextBox18.ReadOnly = True Me.TextBox18.Size = New System.Drawing.Size(200, 20) Me.TextBox18.TabIndex = 7 Me.TextBox18.Text = "Müller Hugo, TG6789" ' 'Label17 ' Me.Label17.Location = New System.Drawing.Point(8, 256) Me.Label17.Name = "Label17" Me.Label17.Size = New System.Drawing.Size(72, 24) Me.Label17.TabIndex = 31 Me.Label17.Text = "Kurzbez." ' 'Button8 ' Me.Button8.Location = New System.Drawing.Point(8, 480) Me.Button8.Name = "Button8" Me.Button8.Size = New System.Drawing.Size(128, 23) Me.Button8.TabIndex = 10 Me.Button8.Text = "Partnerdossier" ' 'Button5 ' Me.Button5.Image = CType(resources.GetObject("Button5.Image"), System.Drawing.Image) Me.Button5.Location = New System.Drawing.Point(232, 480) Me.Button5.Name = "Button5" Me.Button5.Size = New System.Drawing.Size(56, 23) Me.Button5.TabIndex = 12 ' 'Button4 ' Me.Button4.Image = CType(resources.GetObject("Button4.Image"), System.Drawing.Image) Me.Button4.Location = New System.Drawing.Point(176, 480) Me.Button4.Name = "Button4" Me.Button4.Size = New System.Drawing.Size(56, 23) Me.Button4.TabIndex = 11 ' 'TextBox16 ' Me.TextBox16.BackColor = System.Drawing.Color.White Me.TextBox16.Location = New System.Drawing.Point(80, 288) Me.TextBox16.Name = "TextBox16" Me.TextBox16.ReadOnly = True Me.TextBox16.Size = New System.Drawing.Size(200, 20) Me.TextBox16.TabIndex = 8 Me.TextBox16.Text = "Müller Hugo, TG6789" ' 'Label14 ' Me.Label14.Location = New System.Drawing.Point(8, 288) Me.Label14.Name = "Label14" Me.Label14.Size = New System.Drawing.Size(72, 24) Me.Label14.TabIndex = 26 Me.Label14.Text = "Erfasser" ' 'TextBox8 ' Me.TextBox8.BackColor = System.Drawing.Color.White Me.TextBox8.Location = New System.Drawing.Point(80, 160) Me.TextBox8.Multiline = True Me.TextBox8.Name = "TextBox8" Me.TextBox8.ReadOnly = True Me.TextBox8.Size = New System.Drawing.Size(200, 80) Me.TextBox8.TabIndex = 6 ' 'Label7 ' Me.Label7.Location = New System.Drawing.Point(8, 160) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(72, 23) Me.Label7.TabIndex = 24 Me.Label7.Text = "Adresse" ' 'TextBox9 ' Me.TextBox9.BackColor = System.Drawing.Color.White Me.TextBox9.Location = New System.Drawing.Point(136, 128) Me.TextBox9.Name = "TextBox9" Me.TextBox9.ReadOnly = True Me.TextBox9.Size = New System.Drawing.Size(144, 20) Me.TextBox9.TabIndex = 5 Me.TextBox9.Text = "Frauenfeld" ' 'TextBox10 ' Me.TextBox10.Location = New System.Drawing.Point(80, 128) Me.TextBox10.Name = "TextBox10" Me.TextBox10.Size = New System.Drawing.Size(48, 20) Me.TextBox10.TabIndex = 4 Me.TextBox10.Text = "8500" ' 'TextBox11 ' Me.TextBox11.BackColor = System.Drawing.Color.White Me.TextBox11.Location = New System.Drawing.Point(80, 104) Me.TextBox11.Name = "TextBox11" Me.TextBox11.ReadOnly = True Me.TextBox11.Size = New System.Drawing.Size(200, 20) Me.TextBox11.TabIndex = 3 Me.TextBox11.Text = "Winzerweg 12" ' 'TextBox12 ' Me.TextBox12.BackColor = System.Drawing.Color.White Me.TextBox12.Location = New System.Drawing.Point(80, 80) Me.TextBox12.Name = "TextBox12" Me.TextBox12.ReadOnly = True Me.TextBox12.Size = New System.Drawing.Size(200, 20) Me.TextBox12.TabIndex = 2 Me.TextBox12.Text = "Hans" ' 'TextBox13 ' Me.TextBox13.BackColor = System.Drawing.Color.White Me.TextBox13.Location = New System.Drawing.Point(80, 56) Me.TextBox13.Name = "TextBox13" Me.TextBox13.ReadOnly = True Me.TextBox13.Size = New System.Drawing.Size(200, 20) Me.TextBox13.TabIndex = 1 Me.TextBox13.Text = "Muster" ' 'TextBox14 ' Me.TextBox14.BackColor = System.Drawing.Color.White Me.TextBox14.Location = New System.Drawing.Point(80, 24) Me.TextBox14.Name = "TextBox14" Me.TextBox14.ReadOnly = True Me.TextBox14.Size = New System.Drawing.Size(200, 20) Me.TextBox14.TabIndex = 0 Me.TextBox14.Text = "91004587" ' 'Label8 ' Me.Label8.Location = New System.Drawing.Point(8, 24) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(72, 23) Me.Label8.TabIndex = 17 Me.Label8.Text = "Partnernr" ' 'Label9 ' Me.Label9.Location = New System.Drawing.Point(8, 128) Me.Label9.Name = "Label9" Me.Label9.Size = New System.Drawing.Size(72, 23) Me.Label9.TabIndex = 16 Me.Label9.Text = "PLZ/Ort" ' 'Label10 ' Me.Label10.Location = New System.Drawing.Point(8, 104) Me.Label10.Name = "Label10" Me.Label10.Size = New System.Drawing.Size(72, 23) Me.Label10.TabIndex = 15 Me.Label10.Text = "Strasse" ' 'Label11 ' Me.Label11.Location = New System.Drawing.Point(8, 80) Me.Label11.Name = "Label11" Me.Label11.Size = New System.Drawing.Size(72, 23) Me.Label11.TabIndex = 14 Me.Label11.Text = "Vorname" ' 'Label12 ' Me.Label12.Location = New System.Drawing.Point(8, 56) Me.Label12.Name = "Label12" Me.Label12.Size = New System.Drawing.Size(72, 23) Me.Label12.TabIndex = 13 Me.Label12.Text = "Name" ' 'btnpartnerauswahl2 ' Me.btnpartnerauswahl2.Image = CType(resources.GetObject("btnpartnerauswahl2.Image"), System.Drawing.Image) Me.btnpartnerauswahl2.Location = New System.Drawing.Point(824, 8) Me.btnpartnerauswahl2.Name = "btnpartnerauswahl2" Me.btnpartnerauswahl2.Size = New System.Drawing.Size(24, 24) Me.btnpartnerauswahl2.TabIndex = 2 ' 'Abbruch ' Me.Abbruch.Location = New System.Drawing.Point(440, 552) Me.Abbruch.Name = "Abbruch" Me.Abbruch.Size = New System.Drawing.Size(128, 24) Me.Abbruch.TabIndex = 8 Me.Abbruch.Text = "Abbruch" ' 'Button2 ' Me.Button2.Location = New System.Drawing.Point(592, 552) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(128, 24) Me.Button2.TabIndex = 7 Me.Button2.Text = "Nicht zusammenlegen" ' 'Button3 ' Me.Button3.Location = New System.Drawing.Point(736, 552) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(136, 24) Me.Button3.TabIndex = 5 Me.Button3.Text = "Zusammenlegen" ' 'CheckBox1 ' Me.CheckBox1.Location = New System.Drawing.Point(312, 560) Me.CheckBox1.Name = "CheckBox1" Me.CheckBox1.Size = New System.Drawing.Size(104, 24) Me.CheckBox1.TabIndex = 5 Me.CheckBox1.Text = "Mail an KuBe" Me.CheckBox1.Visible = False ' 'ToolBar1 ' Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1, Me.ToolBarButton2, Me.ToolBarButton3, Me.ToolBarButton4}) 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(888, 28) Me.ToolBar1.TabIndex = 0 ' 'ToolBarButton1 ' Me.ToolBarButton1.ImageIndex = 0 Me.ToolBarButton1.Name = "ToolBarButton1" ' 'ToolBarButton2 ' Me.ToolBarButton2.ImageIndex = 1 Me.ToolBarButton2.Name = "ToolBarButton2" Me.ToolBarButton2.ToolTipText = "Pendente Zusammenlegungen" ' 'ToolBarButton3 ' Me.ToolBarButton3.ImageIndex = 2 Me.ToolBarButton3.Name = "ToolBarButton3" Me.ToolBarButton3.ToolTipText = "Zusammengelegte Partner" ' 'ToolBarButton4 ' Me.ToolBarButton4.ImageIndex = 3 Me.ToolBarButton4.Name = "ToolBarButton4" Me.ToolBarButton4.ToolTipText = "Ansicht schliessen" ' '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, "") ' 'Panel1 ' Me.Panel1.ContextMenu = Me.ContextMenu1 Me.Panel1.Controls.Add(Me.C1TrueDBGrid1) Me.Panel1.Location = New System.Drawing.Point(176, 552) Me.Panel1.Name = "Panel1" Me.Panel1.Size = New System.Drawing.Size(112, 32) Me.Panel1.TabIndex = 34 Me.Panel1.Visible = False ' 'ContextMenu1 ' Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem7, Me.MenuItem3, Me.MenuItem2, Me.MenuItem1}) ' 'MenuItem7 ' Me.MenuItem7.Index = 0 Me.MenuItem7.Text = "'Nicht zusammenlegen' setzen" ' 'MenuItem3 ' Me.MenuItem3.Index = 1 Me.MenuItem3.Text = "'Nicht zusammenlegen' zurücksetzen" ' 'MenuItem2 ' Me.MenuItem2.Index = 2 Me.MenuItem2.Text = "-" ' 'MenuItem1 ' Me.MenuItem1.Index = 3 Me.MenuItem1.Text = "&Ansicht schliessen" ' 'C1TrueDBGrid1 ' Me.C1TrueDBGrid1.AllowUpdate = False Me.C1TrueDBGrid1.AllowUpdateOnBlur = False Me.C1TrueDBGrid1.AlternatingRows = True Me.C1TrueDBGrid1.Cursor = System.Windows.Forms.Cursors.Default Me.C1TrueDBGrid1.Dock = System.Windows.Forms.DockStyle.Fill Me.C1TrueDBGrid1.FetchRowStyles = True 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.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None 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.ScrollTips = True Me.C1TrueDBGrid1.Size = New System.Drawing.Size(112, 32) Me.C1TrueDBGrid1.TabIndex = 27 Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1" Me.C1TrueDBGrid1.PropBag = resources.GetString("C1TrueDBGrid1.PropBag") ' 'ContextMenu2 ' Me.ContextMenu2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem4, Me.MenuItem5, Me.MenuItem6}) ' 'MenuItem4 ' Me.MenuItem4.Index = 0 Me.MenuItem4.Text = "Zusammenlegung rückgängig" ' 'MenuItem5 ' Me.MenuItem5.Index = 1 Me.MenuItem5.Text = "-" ' 'MenuItem6 ' Me.MenuItem6.Index = 2 Me.MenuItem6.Text = "&Ansicht schliessen" ' 'btninaktivieren ' Me.btninaktivieren.Location = New System.Drawing.Point(736, 552) Me.btninaktivieren.Name = "btninaktivieren" Me.btninaktivieren.Size = New System.Drawing.Size(136, 32) Me.btninaktivieren.TabIndex = 6 Me.btninaktivieren.Text = "Partner ohne Dokumente löschen" ' 'BtnHelp ' Me.BtnHelp.Image = CType(resources.GetObject("BtnHelp.Image"), System.Drawing.Image) Me.BtnHelp.Location = New System.Drawing.Point(856, 8) Me.BtnHelp.Name = "BtnHelp" Me.BtnHelp.Size = New System.Drawing.Size(24, 23) Me.BtnHelp.TabIndex = 35 ' 'frmPartnerzusammenlegung ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(888, 589) Me.Controls.Add(Me.BtnHelp) Me.Controls.Add(Me.btninaktivieren) Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.btnpartnerauswahl2) Me.Controls.Add(Me.btnPartnerauswahl1) Me.Controls.Add(Me.ToolBar1) Me.Controls.Add(Me.CheckBox1) Me.Controls.Add(Me.Button3) Me.Controls.Add(Me.Button2) Me.Controls.Add(Me.Abbruch) Me.Controls.Add(Me.GroupBox2) Me.Controls.Add(Me.GroupBox1) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Name = "frmPartnerzusammenlegung" Me.Text = "Partnerdossier-Zusammenlegung" Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.PerformLayout() CType(Me.Detaillist, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox3.ResumeLayout(False) Me.GroupBox2.ResumeLayout(False) Me.GroupBox2.PerformLayout() Me.Panel1.ResumeLayout(False) CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub #End Region #Region "Deklarationen" Dim Hostpartnernr As Integer Dim EdokaPartnernr As Integer Dim EDOKApartner As DataTable Dim Currentrow As Integer Dim dokumentid As String Dim dokumente As New DataTable() Dim kurzname As String Dim ort As String Dim eintragnr As Integer Dim tsm As String Dim DoAbend As Boolean = False #End Region #Region "Steuerung" Private Sub frmPartnerzusammenlegung_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing e.Cancel = True Me.Hide() End Sub Private Sub Abbruch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Abbruch.Click Me.Hide() End Sub Public Sub Refresh_All() If DivFnkt.MA_Is_Sysadmin(Globals.MitarbeiterNr) Then Me.btnPartnerauswahl1.Visible = True Me.btnpartnerauswahl2.Visible = True Me.ToolBarButton2.Visible = True Me.ToolBarButton3.Visible = True Me.ToolBarButton4.Visible = True Else Me.btnPartnerauswahl1.Visible = False Me.btnpartnerauswahl2.Visible = False Me.ToolBarButton2.Visible = False Me.ToolBarButton3.Visible = False Me.ToolBarButton4.Visible = False End If Me.TextBox1.Text = "" Me.Textbox2.Text = "" Me.TextBox3.Text = "" Me.TextBox4.Text = "" Me.TextBox5.Text = "" Me.TextBox6.Text = "" Me.TextBox15.Text = "" Me.TextBox17.Text = "" Me.TextBox7.Text = "" Me.TextBox19.Text = "" Dim d As DataTable Dim i As Integer Dim s As String Me.ListBox1.Items.Clear() Me.DoAbend = False d = Generic_Select(0) If DoAbend Then Me.Hide() Exit Sub End If For i = 0 To d.Rows.Count - 1 Me.ListBox1.Items.Add(Trim(Str(d.Rows(i).Item(0))) + " " + d.Rows(i).Item(1)) Next If i > 0 Then Me.ListBox1.SelectedIndex = 0 End If Me.Cursor = Cursors.Default Me.Refresh() End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Currentrow = Currentrow + 1 Update_EDOKA_Partner(Currentrow) End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Currentrow = Currentrow - 1 Update_EDOKA_Partner(Currentrow) End Sub Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click Me.Cursor = System.Windows.Forms.Cursors.WaitCursor Dim f As New frmTrefferliste() f.MdiParent = Me.MdiParent f.Show() f.txtnrpar00.Text = Me.TextBox14.Text f.Partnernr = Me.TextBox14.Text f.Partner_Eingegeben = True f.refresh_list() f.Refresh_All(True) Me.Cursor = System.Windows.Forms.Cursors.Default End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim i As Integer Me.Hostpartnernr = Val(Me.TextBox1.Text) Me.EdokaPartnernr = Val(Me.TextBox14.Text) Generic_Select(4) i = Me.ListBox1.SelectedIndex Me.Refresh_All() Try Me.ListBox1.SelectedIndex = i Catch End Try End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim doks As DataTable Dim i As Integer Dim i1 As Integer Me.EdokaPartnernr = Val(Me.TextBox14.Text) Me.Hostpartnernr = Val(Me.TextBox1.Text) kurzname = Me.TextBox15.Text() ort = Me.TextBox6.Text doks = Generic_Select(5) If doks.Rows.Count = 0 Then Generic_Select(6) MyMsg.show_standardmessage(251, MsgBoxStyle.Information) i = Me.ListBox1.SelectedIndex Me.Refresh_All() Try Me.ListBox1.SelectedIndex = i Catch End Try Me.ListBox1.Focus() Exit Sub End If For i = 0 To doks.Rows.Count - 1 dokumentid = doks.Rows(i).Item("dokumentid") dokumente = get_dokumente() For i1 = 0 To dokumente.Rows.Count - 1 Update_Partnernr(dokumentid, Me.Hostpartnernr) Update_vvnr(dokumentid, "") Next Generic_Select(7) 'Partner umhängen Try Dim d As New edokadb.clsDokument() Dim kurzname As String Dim ort As String d.cpMainConnectionProvider = Globals.conn d.sDokumentid = New SqlString(CType(dokumentid, String)) d.SelectOne() d.iNrpar00 = New SqlInt32(CType(Me.Hostpartnernr, Int32)) conn.OpenConnection() d.Update() conn.CloseConnection(True) d.Dispose() Catch End Try Next Generic_Select(6) MyMsg.show_standardmessage_ReplaceText(254, MsgBoxStyle.Information, Trim(Str(doks.Rows.Count)), "") i = Me.ListBox1.SelectedIndex Me.Refresh_All() Try Me.ListBox1.SelectedIndex = i Catch End Try Me.ListBox1.Focus() End Sub #End Region #Region "Datenzugriffe" Private Function Generic_Select(ByVal typ As Integer) As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.SP_Partnerzusammenlegung" 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 0 scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@edokapartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "")) scmCmdToExecute.Parameters.Add(New SqlParameter("@eintragnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ohnepartnerabgleich", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1)) scmCmdToExecute.Parameters.Add(New SqlParameter("@returncode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) Case 1 scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr)) Case 2 scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 2)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr)) Case 3 scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 3)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr)) Case 4 scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 4)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@edokapartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.EdokaPartnernr)) Case 5 scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 5)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@edokapartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.EdokaPartnernr)) Case 6 scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 6)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@edokapartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.EdokaPartnernr)) Case 7 scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 7)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@edokapartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.EdokaPartnernr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.dokumentid)) Case 10 scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 10)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) Case 11 scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 11)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) Case 12 scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 12)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@edokapartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.EdokaPartnernr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.dokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@eintragnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.eintragnr)) Case 13 scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 13)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@edokapartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.EdokaPartnernr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.dokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@eintragnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.eintragnr)) Case 14 scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 14)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@edokapartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.EdokaPartnernr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.dokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@eintragnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.eintragnr)) Case 15 scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 15)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@edokapartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.EdokaPartnernr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.dokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@eintragnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.eintragnr)) Case 16 scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 16)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@edokapartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.EdokaPartnernr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.dokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@eintragnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.eintragnr)) Case 17 scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 17)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@edokapartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.EdokaPartnernr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.dokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@eintragnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.eintragnr)) Case 18 scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 18)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@edokapartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "")) Case 19 scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 19)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.Parameters.Add(New SqlParameter("@edokapartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.EdokaPartnernr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "")) Case 20 scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 20)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@edokapartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "")) Case 21 scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 21)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.Parameters.Add(New SqlParameter("@edokapartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.EdokaPartnernr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "")) Case 22 scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@edokapartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "")) scmCmdToExecute.Parameters.Add(New SqlParameter("@eintragnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ohnepartnerabgleich", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1)) Case Else End Select sdaAdapter.Fill(dtToReturn) Select Case typ Case 0 Dim i As Integer i = scmCmdToExecute.Parameters("@returncode").Value If i <> 0 Then If i = 1 Then MyMsg.show_standardmessage(255, MsgBoxStyle.Information) End If If i = 2 Then MyMsg.show_standardmessage(257, MsgBoxStyle.Information) End If Me.DoAbend = True End If Case Else End Select Return dtToReturn Catch ex As Exception 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 "Listbox" Private Sub ListBox1_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedValueChanged Dim s As String Dim i As Integer Dim d As DataTable i = Microsoft.VisualBasic.InStr(Me.ListBox1.SelectedItem, " ") s = Trim(Microsoft.VisualBasic.Left(Me.ListBox1.SelectedItem, i - 1)) Me.Hostpartnernr = Val(s) d = Generic_Select(1) Me.Label20.Visible = False Me.Label21.Visible = False If d.Rows.Count > 0 Then If DivFnkt.PartnerTyp(Me.Hostpartnernr) <> EDOKA.clsDivFnkt.ENUM_Partnertyp.EDOKA_Interessent Then 'If Me.Hostpartnernr < 91000000 Then Me.TextBox1.Text = d.Rows(0).Item("nrpar00") Me.Textbox2.Text = d.Rows(0).Item("namefirma") Me.TextBox3.Text = d.Rows(0).Item("vorname") Me.TextBox4.Text = d.Rows(0).Item("strasse") Me.TextBox5.Text = d.Rows(0).Item("plz") Me.TextBox6.Text = d.Rows(0).Item("ort") Me.TextBox15.Text = d.Rows(0).Item("bkpar00") Me.TextBox17.Text = d.Rows(0).Item("kube") Me.TextBox19.Text = FormatTimeStamp(d.Rows(0).Item("tsmut00")) If d.Rows(0).Item("txadz012") <> "" Then s = d.Rows(0).Item("txadz012") + vbCrLf + d.Rows(0).Item("txadz022") + vbCrLf + d.Rows(0).Item("txadz032") + vbCrLf + d.Rows(0).Item("txadz042") + vbCrLf + d.Rows(0).Item("txadz052") + vbCrLf + d.Rows(0).Item("txadz062") + vbCrLf + d.Rows(0).Item("txadz072") + vbCrLf Else s = d.Rows(0).Item("txadz011") + vbCrLf + d.Rows(0).Item("txadz021") + vbCrLf + d.Rows(0).Item("txadz031") + vbCrLf + d.Rows(0).Item("txadz041") + vbCrLf + d.Rows(0).Item("txadz051") + vbCrLf + d.Rows(0).Item("txadz061") + vbCrLf + d.Rows(0).Item("txadz071") + vbCrLf End If Me.TextBox7.Text = s Me.Label15.Visible = True Me.Detaillist.Visible = True Me.Label16.Text = "Kunden-berater" Me.Label6.Text = "Inhaber-adresse" Else Me.TextBox1.Text = "" Me.Textbox2.Text = "" Me.TextBox3.Text = "" Me.TextBox4.Text = "" Me.TextBox5.Text = "" Me.TextBox6.Text = "" Me.TextBox15.Text = "" Me.TextBox17.Text = "" Me.TextBox19.Text = "" Me.TextBox1.Text = d.Rows(0).Item("nrpar00") Me.TextBox15.Text = d.Rows(0).Item("bkpar00") Me.Textbox2.Text = d.Rows(0).Item("txadz032") Me.TextBox3.Text = d.Rows(0).Item("txadz022") Me.TextBox5.Text = d.Rows(0).Item("TXADZ072") Me.TextBox6.Text = d.Rows(0).Item("beban012") If Len(d.Rows(0).Item("txadz062")) > 0 Then Me.TextBox4.Text = d.Rows(0).Item("txadz052") + "/" + d.Rows(0).Item("txadz062") Else Me.TextBox4.Text = d.Rows(0).Item("txadz052") End If s = d.Rows(0).Item("txadz011") + vbCrLf + d.Rows(0).Item("txadz021") + vbCrLf + d.Rows(0).Item("txadz031") + vbCrLf + d.Rows(0).Item("txadz041") + vbCrLf + d.Rows(0).Item("txadz051") + vbCrLf + d.Rows(0).Item("txadz061") + vbCrLf + d.Rows(0).Item("txadz071") + vbCrLf Me.TextBox7.Text = s Me.TextBox17.Text = d.Rows(0).Item("erfasser") Me.TextBox19.Text = FormatTimeStamp(d.Rows(0).Item("tsmut00")) Me.Label15.Visible = False Me.Detaillist.Visible = False Me.Label16.Text = "Erfasser" Me.Label6.Text = "Adresse" Me.Hostpartnernr = Val(Me.TextBox1.Text) d = Generic_Select(18) If d.Rows(0).Item(0) > 0 Then Me.Label20.Visible = False Else Me.Label20.Visible = True End If d = Generic_Select(2) If Me.Detaillist.Visible Then Me.Detaillist.DataSource = d Me.Detaillist.DataMember = d.TableName Me.Detaillist.Splits(0).DisplayColumns(0).Width = ((Me.Detaillist.Width / 3) * 1) - 4 Me.Detaillist.Splits(0).DisplayColumns(1).Width = ((Me.Detaillist.Width / 3) * 2) - 4 End If EDOKApartner = Generic_Select(3) Update_EDOKA_Partner(0) End If End Sub #End Region #Region "EDOKA_Partner" Private Function Update_EDOKA_Partner(ByVal rowid As Integer) Dim s As String Dim d As DataTable Me.TextBox14.Text = "" Me.TextBox13.Text = "" Me.TextBox12.Text = "" Me.TextBox11.Text = "" Me.TextBox10.Text = "" Me.TextBox9.Text = "" Me.TextBox8.Text = "" Me.TextBox18.Text = "" Me.TextBox16.Text = "" Me.TextBox20.Text = "" If EDOKApartner.Rows.Count - 1 >= rowid Then Me.TextBox14.Text = EDOKApartner.Rows(rowid).Item("nrpar00") Me.TextBox18.Text = EDOKApartner.Rows(rowid).Item("bkpar00") Me.TextBox13.Text = EDOKApartner.Rows(rowid).Item("txadz032") Me.TextBox12.Text = EDOKApartner.Rows(rowid).Item("txadz022") Me.TextBox10.Text = EDOKApartner.Rows(rowid).Item("TXADZ072") Me.TextBox9.Text = EDOKApartner.Rows(rowid).Item("beban012") Try If Len(EDOKApartner.Rows(rowid).Item("txadz062")) > 0 Then Me.TextBox11.Text = EDOKApartner.Rows(rowid).Item("txadz052") + "/" + EDOKApartner.Rows(rowid).Item("txadz062") Else Me.TextBox11.Text = EDOKApartner.Rows(rowid).Item("txadz052") End If Catch ex As Exception Me.TextBox11.Text = EDOKApartner.Rows(rowid).Item("txadz052") End Try Me.TextBox16.Text = EDOKApartner.Rows(rowid).Item("erfasser") Me.TextBox20.Text = FormatTimeStamp(EDOKApartner.Rows(rowid).Item("tsmut00")) s = EDOKApartner.Rows(rowid).Item("txadz011") + vbCrLf + EDOKApartner.Rows(rowid).Item("txadz021") + vbCrLf + EDOKApartner.Rows(rowid).Item("txadz031") + vbCrLf + EDOKApartner.Rows(rowid).Item("txadz041") + vbCrLf + EDOKApartner.Rows(rowid).Item("txadz051") + vbCrLf + EDOKApartner.Rows(rowid).Item("txadz061") + vbCrLf + EDOKApartner.Rows(rowid).Item("txadz071") + vbCrLf Me.TextBox8.Text = s Me.EdokaPartnernr = Val(Me.TextBox14.Text) d = Generic_Select(19) If d.Rows(0).Item(0) > 0 Then Me.Label21.Visible = False Else Me.Label21.Visible = True End If Currentrow = rowid Me.Button5.Enabled = False Me.Button4.Enabled = False If EDOKApartner.Rows.Count - 1 > rowid Then Me.Button5.Enabled = True End If If rowid > 0 Then Me.Button4.Enabled = True If Me.Label20.Visible Or Me.Label21.Visible Then Me.btninaktivieren.visible = True Else Me.btninaktivieren.visible = False End Function #End Region #Region "Hostpartnerinformationen anzeigen" Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click Dim d As Integer d = Val(Me.TextBox1.Text) 'ObjPerson If DivFnkt.PartnerTyp(d) = EDOKA.clsDivFnkt.ENUM_Partnertyp.EDOKA_Interessent Then 'If d > 91000000 Then Dim f As New frmInteressent() f.Partnernr = d f.Display = True f.ShowDialog() f.Dispose() Else Dim f As New frmPartnerDetails() f.Partnernr = d f.ShowDialog() f.Dispose() End If End Sub Private Sub btnDossierHaupt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDossierHaupt.Click Me.Cursor = System.Windows.Forms.Cursors.WaitCursor Dim f As New frmTrefferliste() f.MdiParent = Me.MdiParent f.Show() f.txtnrpar00.Text = Me.TextBox1.Text f.Partnernr = Me.TextBox1.Text f.Partner_Eingegeben = True f.refresh_list() f.Refresh_All(True) Me.Cursor = System.Windows.Forms.Cursors.Default End Sub #End Region #Region "Updates" Public Sub Update_Partnernr(ByVal dokumentid As String, ByVal partnernr As String) 'ort = get_data("&PartnerInhaberOrt&") Dim i As Integer Dim s As String s = Trim(partnernr) While Len(s) < 9 s = "0" + s End While For i = 0 To Me.dokumente.Rows.Count - 1 Insert_ColdUpdate(dokumentid, RTrim(dokumente.Rows(i).Item("wert")), dokumente.Rows(i).Item("indextyp"), 1, s) Update_DokumentColdIndexwert(dokumentid, dokumente.Rows(i).Item("indextyp"), 1, s) Insert_ColdUpdate(dokumentid, RTrim(dokumente.Rows(i).Item("wert")), dokumente.Rows(i).Item("indextyp"), 2, kurzname) Update_DokumentColdIndexwert(dokumentid, dokumente.Rows(i).Item("indextyp"), 2, kurzname) Insert_ColdUpdate(dokumentid, RTrim(dokumente.Rows(i).Item("wert")), dokumente.Rows(i).Item("indextyp"), 8, ort) Update_DokumentColdIndexwert(dokumentid, dokumente.Rows(i).Item("indextyp"), 8, ort) Next End Sub Public Sub Update_vvnr(ByVal dokumentid As String, ByVal vvnr As String) Dim i As Integer For i = 0 To Me.dokumente.Rows.Count - 1 Insert_ColdUpdate(dokumentid, RTrim(dokumente.Rows(i).Item("wert")), dokumente.Rows(i).Item("indextyp"), 3, "") Update_DokumentColdIndexwert(dokumentid, dokumente.Rows(i).Item("indextyp"), 3, "") Next End Sub Private Function get_data(ByVal datenherkunft As String) As String Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim i As Integer Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.sp_dokumentwerte_select" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@datenherkunft", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, datenherkunft)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.dokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@value", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, "")) sdaAdapter.Fill(dtToReturn) Return scmCmdToExecute.Parameters("@value").Value Catch ex As Exception MsgBox(ex.Message) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function Public Function Insert_ColdUpdate(ByVal dokumentid As String, ByVal colddokumentid As String, ByVal indextyp As Integer, ByVal feldnr As Integer, ByVal wert As String) Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.SP_Archiv_insert_coldupdate" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable() conn.OpenConnection() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@colddokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, colddokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@indextyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, indextyp)) scmCmdToExecute.Parameters.Add(New SqlParameter("@feldnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, feldnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@neuerwert", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, wert)) scmCmdToExecute.Connection = conn.scoDBConnection Try sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception MsgBox(ex.Message) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() conn.CloseConnection(True) End Try End Function Public Function Update_DokumentColdIndexwert(ByVal dokumentid As String, ByVal Indextyp As Integer, ByVal indexfeld As Integer, ByVal wert As String) Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.SP_Archiv_Update_DokumentColdIndexwert" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable() conn.OpenConnection() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@indextyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Indextyp)) scmCmdToExecute.Parameters.Add(New SqlParameter("@indexfeld", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, indexfeld)) scmCmdToExecute.Parameters.Add(New SqlParameter("@wert", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, wert)) scmCmdToExecute.Connection = conn.scoDBConnection Try sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() conn.CloseConnection(True) End Try End Function Private Function get_dokumente() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim i As Integer Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.sp_indexmutation_getdokumente" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.dokumentid)) sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception MsgBox(ex.Message) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function #End Region Private Sub btnPartnerauswahl1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPartnerauswahl1.Click Dim f As New FrmPartnersuche() f.ShowDialog() If f.PartnerNr <> 0 Then Me.TextBox1.Text = f.PartnerNr Else f.Dispose() Exit Sub End If f.Dispose() Dim s As String Dim i As Integer Dim d As DataTable Me.Hostpartnernr = Val(Me.TextBox1.Text) d = Generic_Select(22) If d.Rows.Count > 0 Then If DivFnkt.PartnerTyp(Val(Me.Hostpartnernr)) <> EDOKA.clsDivFnkt.ENUM_Partnertyp.EDOKA_Interessent Then 'If Me.Hostpartnernr < 91000000 Then Me.TextBox1.Text = d.Rows(0).Item("nrpar00") Me.Textbox2.Text = d.Rows(0).Item("namefirma") Me.TextBox3.Text = d.Rows(0).Item("vorname") Me.TextBox4.Text = d.Rows(0).Item("strasse") Me.TextBox5.Text = d.Rows(0).Item("plz") Me.TextBox6.Text = d.Rows(0).Item("ort") Me.TextBox15.Text = d.Rows(0).Item("bkpar00") Me.TextBox17.Text = d.Rows(0).Item("kube") Me.TextBox19.Text = "" If d.Rows(0).Item("txadz012") <> "" Then s = d.Rows(0).Item("txadz012") + vbCrLf + d.Rows(0).Item("txadz022") + vbCrLf + d.Rows(0).Item("txadz032") + vbCrLf + d.Rows(0).Item("txadz042") + vbCrLf + d.Rows(0).Item("txadz052") + vbCrLf + d.Rows(0).Item("txadz062") + vbCrLf + d.Rows(0).Item("txadz072") + vbCrLf Else s = d.Rows(0).Item("txadz011") + vbCrLf + d.Rows(0).Item("txadz021") + vbCrLf + d.Rows(0).Item("txadz031") + vbCrLf + d.Rows(0).Item("txadz041") + vbCrLf + d.Rows(0).Item("txadz051") + vbCrLf + d.Rows(0).Item("txadz061") + vbCrLf + d.Rows(0).Item("txadz071") + vbCrLf End If Me.TextBox19.Text = FormatTimeStamp(d.Rows(0).Item("tsmut00")) Me.TextBox7.Text = s Me.Label15.Visible = True Me.Detaillist.Visible = True Me.Label16.Text = "Kunden-berater" Me.Label6.Text = "Inhaber-adresse" Else Me.TextBox1.Text = "" Me.Textbox2.Text = "" Me.TextBox3.Text = "" Me.TextBox4.Text = "" Me.TextBox5.Text = "" Me.TextBox6.Text = "" Me.TextBox15.Text = "" Me.TextBox17.Text = "" Me.TextBox19.Text = "" Me.TextBox1.Text = d.Rows(0).Item("nrpar00") Me.TextBox15.Text = d.Rows(0).Item("bkpar00") Me.Textbox2.Text = d.Rows(0).Item("txadz032") Me.TextBox3.Text = d.Rows(0).Item("txadz022") Me.TextBox5.Text = d.Rows(0).Item("TXADZ072") Me.TextBox6.Text = d.Rows(0).Item("beban012") If Len(d.Rows(0).Item("txadz062")) > 0 Then Me.TextBox4.Text = d.Rows(0).Item("txadz052") + "/" + d.Rows(0).Item("txadz062") Else Me.TextBox4.Text = d.Rows(0).Item("txadz052") End If s = d.Rows(0).Item("txadz011") + vbCrLf + d.Rows(0).Item("txadz021") + vbCrLf + d.Rows(0).Item("txadz031") + vbCrLf + d.Rows(0).Item("txadz041") + vbCrLf + d.Rows(0).Item("txadz051") + vbCrLf + d.Rows(0).Item("txadz061") + vbCrLf + d.Rows(0).Item("txadz071") + vbCrLf Me.TextBox7.Text = s Me.TextBox17.Text = d.Rows(0).Item("erfasser") Me.TextBox19.Text = FormatTimeStamp(d.Rows(0).Item("tsmut00")) Me.Label15.Visible = False Me.Detaillist.Visible = False Me.Label16.Text = "Erfasser" Me.Label6.Text = "Adresse" Me.Hostpartnernr = Val(Me.TextBox1.Text) d = Generic_Select(18) If d.Rows(0).Item(0) > 0 Then Me.Label20.Visible = False Else Me.Label20.Visible = True End If d = Generic_Select(2) If Me.Detaillist.Visible Then Me.Detaillist.DataSource = d Me.Detaillist.DataMember = d.TableName Me.Detaillist.Splits(0).DisplayColumns(0).Width = ((Me.Detaillist.Width / 3) * 1) - 4 Me.Detaillist.Splits(0).DisplayColumns(0).Width = ((Me.Detaillist.Width / 3) * 2) - 4 End If End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpartnerauswahl2.Click Dim f As New FrmPartnersuche() f.ShowDialog() If f.PartnerNr <> 0 Then If DivFnkt.PartnerTyp(f.PartnerNr) <> EDOKA.clsDivFnkt.ENUM_Partnertyp.EDOKA_Interessent Then 'If f.PartnerNr < 91000000 Then MyMsg.show_standardmessage(256, MsgBoxStyle.Information) Exit Sub End If Me.TextBox14.Text = f.PartnerNr Me.Button5.Enabled = False Me.Button4.Enabled = False Else f.Dispose() Exit Sub End If f.Dispose() Dim d As DataTable Dim s As String Me.Hostpartnernr = Val(Me.TextBox14.Text) d = Generic_Select(22) Me.TextBox14.Text = "" Me.TextBox13.Text = "" Me.TextBox12.Text = "" Me.TextBox11.Text = "" Me.TextBox10.Text = "" Me.TextBox9.Text = "" Me.TextBox8.Text = "" Me.TextBox18.Text = "" Me.TextBox16.Text = "" Me.TextBox20.Text = "" If d.Rows.Count > 0 Then If DivFnkt.PartnerTyp(Me.Hostpartnernr) <> EDOKA.clsDivFnkt.ENUM_Partnertyp.EDOKA_Interessent Then 'If Me.Hostpartnernr < 91000000 Then Me.TextBox14.Text = d.Rows(0).Item("nrpar00") Me.TextBox13.Text = d.Rows(0).Item("namefirma") Me.TextBox12.Text = d.Rows(0).Item("vorname") Me.TextBox11.Text = d.Rows(0).Item("strasse") Me.TextBox10.Text = d.Rows(0).Item("plz") Me.TextBox9.Text = d.Rows(0).Item("ort") Me.TextBox18.Text = d.Rows(0).Item("bkpar00") Me.TextBox16.Text = d.Rows(0).Item("kube") Me.TextBox20.Text = FormatTimeStamp(d.Rows(0).Item("tsmut00")) If d.Rows(0).Item("txadz012") <> "" Then s = d.Rows(0).Item("txadz012") + vbCrLf + d.Rows(0).Item("txadz022") + vbCrLf + d.Rows(0).Item("txadz032") + vbCrLf + d.Rows(0).Item("txadz042") + vbCrLf + d.Rows(0).Item("txadz052") + vbCrLf + d.Rows(0).Item("txadz062") + vbCrLf + d.Rows(0).Item("txadz072") + vbCrLf Else s = d.Rows(0).Item("txadz011") + vbCrLf + d.Rows(0).Item("txadz021") + vbCrLf + d.Rows(0).Item("txadz031") + vbCrLf + d.Rows(0).Item("txadz041") + vbCrLf + d.Rows(0).Item("txadz051") + vbCrLf + d.Rows(0).Item("txadz061") + vbCrLf + d.Rows(0).Item("txadz071") + vbCrLf End If Me.TextBox8.Text = s Me.Label14.Text = "Kunden-berater" Else Me.TextBox14.Text = d.Rows(0).Item("nrpar00") Me.TextBox15.Text = d.Rows(0).Item("bkpar00") Me.TextBox13.Text = d.Rows(0).Item("txadz032") Me.TextBox12.Text = d.Rows(0).Item("txadz022") Me.TextBox10.Text = d.Rows(0).Item("TXADZ072") Me.TextBox9.Text = d.Rows(0).Item("beban012") If Len(d.Rows(0).Item("txadz062")) > 0 Then Me.TextBox11.Text = d.Rows(0).Item("txadz052") + "/" + d.Rows(0).Item("txadz062") Else Me.TextBox11.Text = d.Rows(0).Item("txadz052") End If s = d.Rows(0).Item("txadz011") + vbCrLf + d.Rows(0).Item("txadz021") + vbCrLf + d.Rows(0).Item("txadz031") + vbCrLf + d.Rows(0).Item("txadz041") + vbCrLf + d.Rows(0).Item("txadz051") + vbCrLf + d.Rows(0).Item("txadz061") + vbCrLf + d.Rows(0).Item("txadz071") + vbCrLf Me.TextBox8.Text = s Me.TextBox16.Text = d.Rows(0).Item("erfasser") Me.TextBox20.Text = FormatTimeStamp(d.Rows(0).Item("tsmut00")) Me.Label14.Text = "Erfasser" Me.EdokaPartnernr = Val(Me.TextBox14.Text) d = Generic_Select(19) If d.Rows(0).Item(0) > 0 Then Me.Label21.Visible = False Else Me.Label21.Visible = True End If End If End Sub Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick Dim i As Integer Select Case ToolBar1.Buttons.IndexOf(e.Button) Case 0 'close button Me.Hide() Case 1 Refresh_daten_1() Me.C1TrueDBGrid1.ContextMenu = Me.ContextMenu1 Case 2 refresh_daten_2() Me.C1TrueDBGrid1.ContextMenu = Me.ContextMenu2 Case 3 Me.Panel1.Dock = DockStyle.None Me.Panel1.Visible = False Me.Refresh_All() Case Else End Select End Sub Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click Me.Panel1.Dock = DockStyle.None Me.Panel1.Visible = False Me.Refresh_All() End Sub Private Sub Refresh_daten_1() Dim i As Integer Me.C1TrueDBGrid1.BeginInit() Me.Panel1.Visible = True Me.Panel1.Dock = DockStyle.Fill Me.btnPartnerauswahl1.Visible = False Me.btnpartnerauswahl2.Visible = False Dim d As DataTable d = Generic_Select(10) Me.C1TrueDBGrid1.DataSource = d Me.C1TrueDBGrid1.DataMember = d.TableName For i = 0 To Me.C1TrueDBGrid1.Splits(0).DisplayColumns.Count - 1 Me.C1TrueDBGrid1.Splits(0).DisplayColumns(i).AutoSize() Next Me.C1TrueDBGrid1.Columns(5).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox Me.C1TrueDBGrid1.Columns(9).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox Me.C1TrueDBGrid1.EndInit() End Sub Private Sub Refresh_Daten_2() Dim i As Integer Me.C1TrueDBGrid1.BeginInit() Me.Panel1.Visible = True Me.Panel1.Dock = DockStyle.Fill Me.btnPartnerauswahl1.Visible = False Me.btnpartnerauswahl2.Visible = False '20080414 RGL Bug, Button wird nicht ausgebelendet mit anderen Objekten Me.btninaktivieren.Visible = False Dim d As DataTable d = Generic_Select(11) Me.C1TrueDBGrid1.DataSource = d Me.C1TrueDBGrid1.DataMember = d.TableName For i = 0 To Me.C1TrueDBGrid1.Splits(0).DisplayColumns.Count - 1 Me.C1TrueDBGrid1.Splits(0).DisplayColumns(i).AutoSize() Next Me.C1TrueDBGrid1.Columns(9).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox Me.C1TrueDBGrid1.EndInit() End Sub Private Sub ContextMenu1_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu1.Popup Try If Me.C1TrueDBGrid1.Columns(5).Value = True Then Me.MenuItem3.Enabled = True Me.MenuItem7.Enabled = False Else Me.MenuItem7.Enabled = True Me.MenuItem3.Enabled = False End If Catch Me.MenuItem7.Enabled = True Me.MenuItem3.Enabled = False End Try End Sub Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click Dim i As Integer i = Me.C1TrueDBGrid1.Bookmark Me.eintragnr = Me.C1TrueDBGrid1.Columns("nr").Value Generic_Select(12) Refresh_daten_1() Me.C1TrueDBGrid1.Bookmark = i End Sub Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click Dim i As Integer i = Me.C1TrueDBGrid1.Bookmark Me.eintragnr = Me.C1TrueDBGrid1.Columns("nr").Value Generic_Select(13) Refresh_daten_1() Me.C1TrueDBGrid1.Bookmark = i End Sub Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click Me.Panel1.Dock = DockStyle.None Me.Panel1.Visible = False Me.Refresh_All() End Sub Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click Dim doks As DataTable Dim dat As DataTable Dim i As Integer Dim i1 As Integer If MyMsg.Show_MessageYesNo(252) = MsgBoxResult.No Then Exit Sub Me.Hostpartnernr = Me.C1TrueDBGrid1.Columns(1).Value Me.EdokaPartnernr = Me.C1TrueDBGrid1.Columns(3).Value doks = Generic_Select(14) dat = Generic_Select(15) Me.kurzname = dat.Rows(0).Item("bkpar00") Me.ort = dat.Rows(0).Item("beortpt") For i = 0 To doks.Rows.Count - 1 dokumentid = doks.Rows(i).Item("dokumentid") dokumente = get_dokumente() For i1 = 0 To dokumente.Rows.Count - 1 Update_Partnernr(dokumentid, Me.EdokaPartnernr) Update_vvnr(dokumentid, "") Next Generic_Select(16) 'Partner umhängen Try Dim d As New edokadb.clsDokument() d.cpMainConnectionProvider = Globals.conn d.sDokumentid = New SqlString(CType(dokumentid, String)) d.SelectOne() d.iNrpar00 = New SqlInt32(CType(Me.EdokaPartnernr, Int32)) conn.OpenConnection() d.Update() conn.CloseConnection(True) d.Dispose() Catch End Try Next Generic_Select(17) MyMsg.show_standardmessage_ReplaceText(253, MsgBoxStyle.Information, Trim(Str(doks.Rows.Count)), "") Me.Refresh_Daten_2() End Sub Private Sub btninaktivieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btninaktivieren.Click Dim i As Integer If Me.Label20.Visible Then Me.Hostpartnernr = Val(Me.TextBox1.Text) Generic_Select(20) End If If Me.Label21.Visible Then Me.EdokaPartnernr = Val(Me.TextBox14.Text) Generic_Select(21) End If i = Me.ListBox1.SelectedIndex Me.Refresh_All() Try Me.ListBox1.SelectedIndex = i Catch End Try End Sub Private Function FormatTimeStamp(ByVal s As String) As String If Mid(s, 5, 1) = "-" Or Mid(s, 5, 1) = "." Then Return Mid(s, 9, 2) + "." + Mid(s, 6, 2) + "." + Microsoft.VisualBasic.Left(s, 4) Else If Mid(s, 9, 1) <> " " Then Return Microsoft.VisualBasic.Left(s, 2) + "." + Mid(s, 4, 2) + "." + Mid(s, 7, 4) Else Return Microsoft.VisualBasic.Left(s, 2) + "." + Mid(s, 4, 2) + ".20" + Mid(s, 7, 2) End If End If End Function Private Sub frmPartnerzusammenlegung_VisibleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.VisibleChanged If Me.Label20.Visible Or Me.Label21.Visible Then Me.btninaktivieren.Visible = True Else Me.btninaktivieren.Visible = False End Sub Private Sub ContextMenu2_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu2.Popup Try If Me.C1TrueDBGrid1.Columns(9).Value = True Then Me.MenuItem4.Enabled = False Else Me.MenuItem4.Enabled = True End If Catch Me.MenuItem4.Enabled = True End Try End Sub Private Sub BtnHelp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHelp.Click Globals.HTMLHelp.ShowHelpToc("partnerdossierszusammenlegen1") End Sub Private Sub frmPartnerzusammenlegung_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