You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1950 lines
101 KiB
1950 lines
101 KiB
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
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Me.components = New System.ComponentModel.Container()
|
|
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmPartnerzusammenlegung))
|
|
Dim GridLines1 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
|
Dim GridLines2 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
|
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.AddRange(New System.Windows.Forms.Control() {Me.Label20, Me.TextBox19, Me.Label18, Me.Detaillist, Me.TextBox17, Me.Label16, Me.Button7, Me.GroupBox3, Me.btnDossierHaupt, Me.Label15, Me.TextBox15, Me.Label13, Me.TextBox7, Me.Label6, Me.TextBox6, Me.TextBox5, Me.TextBox4, Me.TextBox3, Me.Textbox2, Me.TextBox1, Me.Label5, Me.Label4, Me.Label3, Me.Label2, 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.AllowFilter = True
|
|
Me.Detaillist.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.Detaillist.AllowSort = True
|
|
Me.Detaillist.AllowUpdateOnBlur = False
|
|
Me.Detaillist.AlternatingRows = True
|
|
Me.Detaillist.CaptionHeight = 17
|
|
Me.Detaillist.CollapseColor = System.Drawing.Color.Black
|
|
Me.Detaillist.Cursor = System.Windows.Forms.Cursors.Default
|
|
Me.Detaillist.DataChanged = False
|
|
Me.Detaillist.DeadAreaBackColor = System.Drawing.Color.Empty
|
|
Me.Detaillist.ExpandColor = System.Drawing.Color.Black
|
|
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("resource.Images"), System.Drawing.Bitmap))
|
|
Me.Detaillist.Location = New System.Drawing.Point(288, 368)
|
|
Me.Detaillist.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
|
|
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
|
|
Me.Detaillist.PrintInfo.ShowOptionsDialog = False
|
|
Me.Detaillist.RecordSelectors = False
|
|
Me.Detaillist.RecordSelectorWidth = 16
|
|
GridLines1.Color = System.Drawing.Color.DarkGray
|
|
GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
|
Me.Detaillist.RowDivider = GridLines1
|
|
Me.Detaillist.RowHeight = 15
|
|
Me.Detaillist.RowSubDividerColor = System.Drawing.Color.DarkGray
|
|
Me.Detaillist.ScrollTips = True
|
|
Me.Detaillist.Size = New System.Drawing.Size(272, 100)
|
|
Me.Detaillist.TabIndex = 10
|
|
Me.Detaillist.Text = "C1TrueDBGrid1"
|
|
Me.Detaillist.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
|
"r""><Data>Style11{}Style12{}Style13{}Style5{}Style4{}Style7{}Style6{}EvenRow{Back" & _
|
|
"Color:White;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Heading{Wrap:" & _
|
|
"True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert" & _
|
|
":Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Filte" & _
|
|
"rBar{BackColor:255, 255, 192;}Footer{}Caption{AlignHorz:Center;}Editor{}Normal{B" & _
|
|
"ackColor:Control;}Style27{}Style26{}HighlightRow{ForeColor:HighlightText;BackCol" & _
|
|
"or:Highlight;}Style1{}OddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage:" & _
|
|
"Center;}Style9{}Style8{}Style3{}Style2{}Group{AlignVert:Center;Border:None,,0, 0" & _
|
|
", 0, 0;BackColor:ControlDark;}Style10{AlignHorz:Near;}</Data></Styles><Splits><C" & _
|
|
"1.Win.C1TrueDBGrid.MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""1" & _
|
|
"7"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FetchRowStyles=""True"" Filter" & _
|
|
"Bar=""True"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecSelWid" & _
|
|
"th=""16"" RecordSelectors=""False"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1" & _
|
|
"""><ClientRect>0, 0, 268, 96</ClientRect><BorderSide>0</BorderSide><CaptionStyle " & _
|
|
"parent=""Heading"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style2"" /><Even" & _
|
|
"RowStyle parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""S" & _
|
|
"tyle27"" /><FooterStyle parent=""Footer"" me=""Style4"" /><GroupStyle parent=""Group"" " & _
|
|
"me=""Style12"" /><HeadingStyle parent=""Heading"" me=""Style3"" /><HighLightRowStyle p" & _
|
|
"arent=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style6"" " & _
|
|
"/><OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""Record" & _
|
|
"Selector"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style5"" /><Style p" & _
|
|
"arent=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyl" & _
|
|
"es><Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style p" & _
|
|
"arent=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style pare" & _
|
|
"nt=""Heading"" me=""Inactive"" /><Style parent=""Normal"" me=""Selected"" /><Style paren" & _
|
|
"t=""Normal"" me=""Editor"" /><Style parent=""Normal"" me=""HighlightRow"" /><Style paren" & _
|
|
"t=""Normal"" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""He" & _
|
|
"ading"" me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style pare" & _
|
|
"nt=""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1<" & _
|
|
"/horzSplits><Layout>Modified</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth>" & _
|
|
"<ClientArea>0, 0, 268, 96</ClientArea></Blob>"
|
|
'
|
|
'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.AddRange(New System.Windows.Forms.Control() {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, 433)
|
|
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
|
|
Me.TextBox7.Text = ""
|
|
'
|
|
'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.Bitmap)
|
|
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.AddRange(New System.Windows.Forms.Control() {Me.Label21, Me.TextBox20, Me.Label19, Me.TextBox18, Me.Label17, Me.Button8, Me.Button5, Me.Button4, Me.TextBox16, Me.Label14, Me.TextBox8, Me.Label7, Me.TextBox9, Me.TextBox10, Me.TextBox11, Me.TextBox12, Me.TextBox13, Me.TextBox14, Me.Label8, Me.Label9, Me.Label10, Me.Label11, 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.Bitmap)
|
|
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.Bitmap)
|
|
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
|
|
Me.TextBox8.Text = ""
|
|
'
|
|
'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.Bitmap)
|
|
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.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.Name = "ToolBar1"
|
|
Me.ToolBar1.ShowToolTips = True
|
|
Me.ToolBar1.Size = New System.Drawing.Size(888, 25)
|
|
Me.ToolBar1.TabIndex = 0
|
|
'
|
|
'ToolBarButton1
|
|
'
|
|
Me.ToolBarButton1.ImageIndex = 0
|
|
'
|
|
'ToolBarButton2
|
|
'
|
|
Me.ToolBarButton2.ImageIndex = 1
|
|
Me.ToolBarButton2.ToolTipText = "Pendente Zusammenlegungen"
|
|
'
|
|
'ToolBarButton3
|
|
'
|
|
Me.ToolBarButton3.ImageIndex = 2
|
|
Me.ToolBarButton3.ToolTipText = "Zusammengelegte Partner"
|
|
'
|
|
'ToolBarButton4
|
|
'
|
|
Me.ToolBarButton4.ImageIndex = 3
|
|
Me.ToolBarButton4.ToolTipText = "Ansicht schliessen"
|
|
'
|
|
'ImageList1
|
|
'
|
|
Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
|
|
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
|
|
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
|
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
|
'
|
|
'Panel1
|
|
'
|
|
Me.Panel1.ContextMenu = Me.ContextMenu1
|
|
Me.Panel1.Controls.AddRange(New System.Windows.Forms.Control() {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.AllowFilter = True
|
|
Me.C1TrueDBGrid1.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.C1TrueDBGrid1.AllowSort = True
|
|
Me.C1TrueDBGrid1.AllowUpdate = False
|
|
Me.C1TrueDBGrid1.AllowUpdateOnBlur = False
|
|
Me.C1TrueDBGrid1.AlternatingRows = True
|
|
Me.C1TrueDBGrid1.CaptionHeight = 17
|
|
Me.C1TrueDBGrid1.CollapseColor = System.Drawing.Color.Black
|
|
Me.C1TrueDBGrid1.Cursor = System.Windows.Forms.Cursors.Default
|
|
Me.C1TrueDBGrid1.DataChanged = False
|
|
Me.C1TrueDBGrid1.DeadAreaBackColor = System.Drawing.Color.Empty
|
|
Me.C1TrueDBGrid1.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.C1TrueDBGrid1.ExpandColor = System.Drawing.Color.Black
|
|
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("resource.Images1"), System.Drawing.Bitmap))
|
|
Me.C1TrueDBGrid1.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
|
|
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
|
|
Me.C1TrueDBGrid1.PrintInfo.ShowOptionsDialog = False
|
|
Me.C1TrueDBGrid1.RecordSelectorWidth = 16
|
|
GridLines2.Color = System.Drawing.Color.DarkGray
|
|
GridLines2.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
|
Me.C1TrueDBGrid1.RowDivider = GridLines2
|
|
Me.C1TrueDBGrid1.RowHeight = 15
|
|
Me.C1TrueDBGrid1.RowSubDividerColor = System.Drawing.Color.DarkGray
|
|
Me.C1TrueDBGrid1.ScrollTips = True
|
|
Me.C1TrueDBGrid1.Size = New System.Drawing.Size(112, 32)
|
|
Me.C1TrueDBGrid1.TabIndex = 27
|
|
Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1"
|
|
Me.C1TrueDBGrid1.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
|
"r""><Data>Style11{}Style12{}Style13{}Style5{}Style4{}Style7{}Style6{}EvenRow{Back" & _
|
|
"Color:White;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Heading{Wrap:" & _
|
|
"True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:" & _
|
|
"Control;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Filte" & _
|
|
"rBar{BackColor:255, 255, 192;}OddRow{BackColor:224, 224, 224;}Footer{}Caption{Al" & _
|
|
"ignHorz:Center;}Style27{}Normal{BackColor:Control;}Style26{}HighlightRow{ForeCol" & _
|
|
"or:HighlightText;BackColor:Highlight;}Style10{AlignHorz:Near;}Editor{}RecordSele" & _
|
|
"ctor{AlignImage:Center;}Style9{}Style8{}Style3{}Style2{}Group{BackColor:ControlD" & _
|
|
"ark;Border:None,,0, 0, 0, 0;AlignVert:Center;}Style1{}</Data></Styles><Splits><C" & _
|
|
"1.Win.C1TrueDBGrid.MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""1" & _
|
|
"7"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FetchRowStyles=""True"" Filter" & _
|
|
"Bar=""True"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecSelWid" & _
|
|
"th=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 108," & _
|
|
" 28</ClientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Heading"" me=""Sty" & _
|
|
"le10"" /><EditorStyle parent=""Editor"" me=""Style2"" /><EvenRowStyle parent=""EvenRow" & _
|
|
""" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style27"" /><FooterStyle p" & _
|
|
"arent=""Footer"" me=""Style4"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingS" & _
|
|
"tyle parent=""Heading"" me=""Style3"" /><HighLightRowStyle parent=""HighlightRow"" me=" & _
|
|
"""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style6"" /><OddRowStyle parent=""O" & _
|
|
"ddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /" & _
|
|
"><SelectedStyle parent=""Selected"" me=""Style5"" /><Style parent=""Normal"" me=""Style" & _
|
|
"1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=""" & _
|
|
"Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Foot" & _
|
|
"er"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactiv" & _
|
|
"e"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /" & _
|
|
"><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" " & _
|
|
"/><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelecto" & _
|
|
"r"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" " & _
|
|
"/></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Modi" & _
|
|
"fied</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 108, 2" & _
|
|
"8</ClientArea></Blob>"
|
|
'
|
|
'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.Bitmap)
|
|
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.AddRange(New System.Windows.Forms.Control() {Me.BtnHelp, Me.btninaktivieren, Me.Panel1, Me.btnpartnerauswahl2, Me.btnPartnerauswahl1, Me.ToolBar1, Me.CheckBox1, Me.Button3, Me.Button2, Me.Abbruch, Me.GroupBox2, Me.GroupBox1})
|
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
|
Me.Name = "frmPartnerzusammenlegung"
|
|
Me.Text = "Partnerdossier-Zusammenlegung"
|
|
Me.GroupBox1.ResumeLayout(False)
|
|
CType(Me.Detaillist, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.GroupBox3.ResumeLayout(False)
|
|
Me.GroupBox2.ResumeLayout(False)
|
|
Me.Panel1.ResumeLayout(False)
|
|
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.ResumeLayout(False)
|
|
|
|
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 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)
|
|
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 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 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 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 frmPartnerzusammenlegung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
|
|
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
|