Update 6.12.23

master
Stefan Hutter 2 years ago
parent bedd741642
commit f2cb99bb17

Binary file not shown.

Binary file not shown.

@ -24,6 +24,8 @@ Partial Class Benhandungdetail
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Benhandungdetail))
Me.GrpPatient = New System.Windows.Forms.GroupBox()
Me.cbansprechperson = New DPM2016.MyCombobox()
Me.lblAnsprechen = New System.Windows.Forms.Label()
Me.txtProjekt = New System.Windows.Forms.TextBox()
Me.lblProjekt = New System.Windows.Forms.Label()
Me.cbboxNRESTyp = New DPM2016.MyCombobox()
@ -184,6 +186,8 @@ Partial Class Benhandungdetail
'
'GrpPatient
'
Me.GrpPatient.Controls.Add(Me.cbansprechperson)
Me.GrpPatient.Controls.Add(Me.lblAnsprechen)
Me.GrpPatient.Controls.Add(Me.txtProjekt)
Me.GrpPatient.Controls.Add(Me.lblProjekt)
Me.GrpPatient.Controls.Add(Me.cbboxNRESTyp)
@ -192,11 +196,34 @@ Partial Class Benhandungdetail
Me.GrpPatient.Controls.Add(Me.Label7)
Me.GrpPatient.Location = New System.Drawing.Point(3, 31)
Me.GrpPatient.Name = "GrpPatient"
Me.GrpPatient.Size = New System.Drawing.Size(300, 84)
Me.GrpPatient.Size = New System.Drawing.Size(300, 87)
Me.GrpPatient.TabIndex = 9
Me.GrpPatient.TabStop = False
Me.GrpPatient.Text = "Patient / Behandler"
'
'cbansprechperson
'
Me.cbansprechperson.Dataselection = Nothing
Me.cbansprechperson.Displaymember = Nothing
Me.cbansprechperson.Location = New System.Drawing.Point(93, 100)
Me.cbansprechperson.Name = "cbansprechperson"
Me.cbansprechperson.Size = New System.Drawing.Size(192, 21)
Me.cbansprechperson.TabIndex = 24
Me.cbansprechperson.Table = Nothing
Me.cbansprechperson.TableAlias = ""
Me.cbansprechperson.Valuemember = Nothing
Me.cbansprechperson.Visible = False
'
'lblAnsprechen
'
Me.lblAnsprechen.AutoSize = True
Me.lblAnsprechen.Location = New System.Drawing.Point(6, 101)
Me.lblAnsprechen.Name = "lblAnsprechen"
Me.lblAnsprechen.Size = New System.Drawing.Size(84, 13)
Me.lblAnsprechen.TabIndex = 25
Me.lblAnsprechen.Text = "Ansprechperson"
Me.lblAnsprechen.Visible = False
'
'txtProjekt
'
Me.txtProjekt.Location = New System.Drawing.Point(72, 24)
@ -272,7 +299,7 @@ Partial Class Benhandungdetail
Me.grpZusammenfassugn.Controls.Add(Me.lblBehandlungstotal)
Me.grpZusammenfassugn.Controls.Add(Me.txtcKVTotal)
Me.grpZusammenfassugn.Controls.Add(Me.Label2)
Me.grpZusammenfassugn.Location = New System.Drawing.Point(0, 364)
Me.grpZusammenfassugn.Location = New System.Drawing.Point(0, 371)
Me.grpZusammenfassugn.Name = "grpZusammenfassugn"
Me.grpZusammenfassugn.Size = New System.Drawing.Size(306, 141)
Me.grpZusammenfassugn.TabIndex = 11
@ -803,7 +830,7 @@ Partial Class Benhandungdetail
Me.GrpRaten.Controls.Add(Me.Label3)
Me.GrpRaten.Controls.Add(Me.lblZuschlagRaten)
Me.GrpRaten.Controls.Add(Me.lblAnzahlRaten)
Me.GrpRaten.Location = New System.Drawing.Point(3, 282)
Me.GrpRaten.Location = New System.Drawing.Point(3, 289)
Me.GrpRaten.Name = "GrpRaten"
Me.GrpRaten.Size = New System.Drawing.Size(303, 76)
Me.GrpRaten.TabIndex = 12
@ -905,7 +932,7 @@ Partial Class Benhandungdetail
Me.grpBehandlungsdaten.Controls.Add(Me.lblRGStellung)
Me.grpBehandlungsdaten.Controls.Add(Me.Label15)
Me.grpBehandlungsdaten.Controls.Add(Me.lblBegin)
Me.grpBehandlungsdaten.Location = New System.Drawing.Point(3, 124)
Me.grpBehandlungsdaten.Location = New System.Drawing.Point(3, 131)
Me.grpBehandlungsdaten.Name = "grpBehandlungsdaten"
Me.grpBehandlungsdaten.Size = New System.Drawing.Size(303, 151)
Me.grpBehandlungsdaten.TabIndex = 10
@ -1962,4 +1989,6 @@ Partial Class Benhandungdetail
Friend WithEvents cbboxNrVerguetungsart As MyCombobox
Friend WithEvents lblmwstsatz As Label
Friend WithEvents cbboxmwstsatz As MyCombobox
Friend WithEvents cbansprechperson As MyCombobox
Friend WithEvents lblAnsprechen As Label
End Class

@ -202,9 +202,6 @@
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>143, 17</value>
</metadata>
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>143, 17</value>
</metadata>
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAgAAAAIACAYAAAD0eNT6AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
@ -435,7 +432,7 @@
AHQrG9+C7Bp/GACiFJkBoHxLL3XR+gEAAOiGAaCOU2QzvUzd4ZTyLT3UResDAACgW9n45mTX+MMAEKVI
DQCbu6uLxg8DAAAA6IMBoI5TaDeNoO5wSvnmruqi9QQAANCtbHwu2TX+MABEKTIDwMnNXdhP+7sDAADo
tnx8Dtk1/jAARClum2k4dYdTTm7urC5at7j3w95u7MyOLuzMdgAAqCtfftiM7Bp/462G74usaY1i2TRn
04Zjx3a6RFRrfERmACjf1JH9tK9LXDq2oj1bMymXzR2VQf5uAAAAerisys/uPGWb+r/fLLYbu4qajd0U
04Zjx3a6RFRrfERmACjf1JH9tK9LXDq2oj1bMymXzR2VQf5uAAAAetitys/uPGWb+r/fLLYbu4qajd0U
2U3D/H+JQMo3dVDLtHNcObG+A1vybhb5+wAAAERLYZ6ptMSlZIq6jb1IDQAb26mlyj8FiA8HFrVm011m
8ncBAACItqn29PJiu3GQqNzYSpFNyaduNKV8Y1u1WPmnALHvwGJtXzIBAAAQVda0H4scylWidmMnbrvi
Im8woXxjG7Vc+acAsa18g/rOPx/v/AEAIEZYla+n2pU0Ub2xEbkBoDU7v69tzFs6Dsf8AQAgtrjtpk9E
@ -467,7 +464,7 @@
1TU1WNN+nGxt+UtRtbGZeBwANk7VvgFw79LryUUEAACQcXKv1AbA1aJmYzdFNtMz9I2vKVYGgC/eNZK3
j/LNtnvIhQQAAJBxaNUtZM+QbKb3Rc3GbqQGgOWxMQDMGK7tDAD+ZQ1nD/FLAAMAAOizdc7VZNdQ3Hbl
cVGzsZuiPNNfqBtP+ToGBoDTG7RvAFz8fntyEQEAAGStmNiN7BqK26H0EjUbu3HbTU9TN54SCwPAoYXa
NwCuK+xDLiIAAICseW+0JLvGn8uq/DzZ2vgyUbOxm3gbALYUat8AuHvREHXRHgIAANDl9P4HWbHTTHZN
NwCuK+xDLiIAAICseW+0JLvGn92q/DzZ2vgyUbOxm3gbALYUat8AuHvREHXRHgIAANDl9P4HWbHTTHZN
TaatomJjO4V5pqfoX6CmWBgAvvxA+wbA45vuIBcSAABAxpF1t5I9Q7Ipn4qKje1IDQBldT8AzB6pbQPg
9PwMduYgvwTw7wAAAHTZMW8g2TUU/iV7omJjO+qNfdL/xgdS1wPAuc3aNwAuHNuGXEQAAABZq6f0ILuG
UmhTBoiKje2oNzZuBoAjX6SRt4uyekpPchEBAABkLRzbmuwayjRn04aiYmM7bpvyBPULUOp6ANhWrP0M
@ -484,7 +481,7 @@
mvbjZGvLX4pajZ/E+gCwcYr2DYD7lg5SF+1uAAAAXU7tltgAaDeuFpUaX1Fv/O9r/jK0uhgAvnhH+wbA
77beQi4kAACAjMMrh5I9QzO9Jyo1vqLeeO0DwBe1PwDMGKZtAJgxIpNcRAAAAFnbZl9Bdg3JpvxZVGp8
xW1THiZ/IUJtDwCnN2jfALjk/bbqot0FAACg24pPO5NdQymwKT1FpcZXZAaAI7U8ABxamEbeDsq6wh7k
IgIAAMia90Zzsmv8uazKz5OtjS8TlRpfKbSbH6J+KUptDwBbCrVvANyzaIC6aHcCAADocmbf7azYaSa7
IgIAAMia90Zzsmv82a3Kz5OtjS8TlRpfKbSbH6J+KUptDwBbCrVvANyzaIC6aHcCAADocmbf7azYaSa7
xl9BnnGLqNP4C794AfVLUWp7APhynJG8HZSvN91ALiQAAICMo2uvJXsmgP+KOo2/SA0AS2p3AJg1UtsG
wOn5Fnb2AL2QAAAAMnbM6092TQDPiTqNv7jtpgeJX4hUmwPA2c3aNwAuHNtKXbQ7AAAAdFv9WReyayiF
NmWAqNP4i8wA8FUtDgB82KBuA2XNlK7kIgIAAMha+HZLsmso05xNG4o6jb+4baYHqF+KUpsDwLZi7ZcA
@ -501,7 +498,7 @@
smtqavzDZGvLX4oKje/E0gCwcYr2DYD7l/YnFxEAAEDG6d3aNwAW5BlXifqM/7gdptupX5IS7QHgi3e0
bwA8sW2IunA3AgAA6HJ4pdQGwPdEfcZ/ZAaAgwuiNwBc2J3KSodpGwBmjMgkFxEAAEDWtlk9ya6hGR8T
9Rn/cduV2+hfsqZoDgCn1mvfAPjFuFbkIgIAAMha+Wl7smtITnMPUZ/xn1gZAA4uTCP/Tsr6ws7s+wM3
AAAA6DZvTA7ZNf5cVuXnWSNSfy3qM/5TnKfcSv2ilGgOAFsKtG8A3LuoL7mIAAAAMs7uvY4VO8xk1/gr
AAAA6DZvTA7ZNf7sVuXnWSNSfy3qM/5TnKfcSv2ilGgOAFsKtG8A3LuoL7mIAAAAMs7uvY4VO8xk1/gr
yDNuEdWZGImVAeDLcUby76R8s3GQunDXAwAA6HJ0zQCyZyhum2mCqM7EiPpL3eL/SwZyYH70BoBZL2vb
ADg938LO7acXEgAAQMbOz3uRXUOyKc+K6kyMuPPMN5O/KCFaA8DZTdo3AC56pwW5iAAAALJWT+5Adg3J
oVwlqjMxEgsDwFdLtG8AXDOlo7po1wEAAOi28O3mZNdQZlqNBlGdiZFiu/km6helRGsA2FasfQPgrnm9
@ -601,7 +598,7 @@
MhsATY+IGkPCjZ4BYOWHGAAAACAClpnYqgnaNwAWvWTsImoMCTf8KkrknavBtmlZrHxFcwAAAF1Or8lh
816nu6YGq3Kef4+NqDEk3OgZAL5eex37+fgTAAAAulw48qhnYznVNf4K85QNosIQvaHuYC2+33cvuZAA
AAAyTu24h+wZSqHd+LGoL0RvqDs4lJkjzOqiPVZjEQEAAGQdLruW7BqK2256WtQXojfUHRxK2UetyEUE
AACQtaWkD9k1JIexn6gvRG9cVuVn8k4OYsesXuQiAgAAyFo6ri3ZNZTJ+ZkNRH0hehPOAHB05RByEQEA
AACQtaWkD9k1JIexn6gvRG/sVuVn8k4OYsesXuQiAgAAyFo6ri3ZNZTJ+ZkNRH0hehPOAHB05RByEQEA
AGRcOPo4m+7KILvGX6Gt6S5RXUgkot6pF/zv5FDO7L6LXEgAAAAZp3ffT/YMxW03fiaqC4lE+DmV1B0d
yHSXwn4+9idyIQEAAGQcXXkD2TUUt830T1FdSCRSZDWdpO7oQJa+n0suIgAAgKzts/qRXUMzXyOqC4lE
Cu2mtfQdTdtS0o1cRAAAAFnLx7cnu4bidmSkiupCIpFCm/IGdUcHsmZyB3bwi0EAAAC6lQ7PJLumBmva
@ -613,8 +610,8 @@
giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAI
giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAI
giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAI
giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAxnaSk/wdKel0Z
lqGCUQAAAABJRU5ErkJggg==
giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAxnaSk/wefl10B
h339owAAAABJRU5ErkJggg==
</value>
</data>
<data name="ToolStripDropDownButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

@ -19,6 +19,7 @@
Get_Stammdaten()
Globals.OnLoad = True
OnGetData = True
Get_Data()
OnGetData = False
Globals.OnLoad = False
@ -47,6 +48,12 @@
GrpPatient.Text = "Verantwortung / Rechnungsart"
GrpPatient.Height = GrpPatient.Height + 30
Me.cbansprechperson.Visible = True
Me.lblAnsprechen.Visible = True
Me.grpZusammenfassugn.Top = grpZusammenfassugn.Top + 20
Me.GrpRaten.Top = GrpRaten.Top + 20
Me.grpBehandlungsdaten.Top = Me.grpBehandlungsdaten.Top + 20
@ -368,6 +375,22 @@
End Try
End If
chk_dateien()
If r("nransprechpartner") > 0 Then
Dim pap As New clsDB
pap.Get_Tabledata("AP", "", "Select name from privat_ansprechpartner where id=" + r("nransprechpartner").ToString)
Dim i As Integer = 0
Dim x As Integer
Dim result As String
For Each itm As Object In cbansprechperson.Items
result = itm.ToString()
If result = pap.dsDaten.Tables(0).Rows(0).Item(0) Then
Me.cbansprechperson.SelectedText = pap.dsDaten.Tables(0).Rows(0).Item(0)
End If
Next
End If
AddChanges(Me)
Me.HasChanges = False
End Sub
@ -565,9 +588,16 @@
r("mutierer") = Globals.ActUser
r("total") = Me.txtcTotal.Text
If Me.cbansprechperson.Text <> "" Then
Dim ap As New clsDB
ap.Get_Tabledata("Ansprechpartner", "", "select id from privat_ansprechpartner where name='" + Me.cbansprechperson.Text + "' and nrprivat=" + Me.Patientnr.ToString)
r("nransprechpartner") = ap.dsDaten.Tables(0).Rows(0).Item(0).ToString
End If
db.Update_Data()
Me.HasChanges = False
End Sub
@ -706,6 +736,20 @@
dbx.Dispose()
Try
Me.cbansprechperson.Items.Clear()
Me.cbansprechperson.Items.Add("")
Dim ap As New clsDB
ap.Get_Tabledata("Ansprechpartner", "", "Select id,Name from privat_ansprechpartner where aktiv=1 and nrprivat=" + Me.Patientnr.ToString + " order by name")
Dim i As Integer = 0
Me.cbansprechperson.SelectedIndex = i
For Each r1 As DataRow In ap.dsDaten.Tables(0).Rows
Me.cbansprechperson.Items.Add(r1("Name"))
Next
ap.Dispose()
Catch ex As Exception
End Try
End Sub
@ -1092,6 +1136,7 @@
End Sub
Private Sub cbboxNrAnsatz_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles cbboxNrAnsatz.SelectedIndexChanged
If Me.OnLoad Then Exit Sub
If Me.Behandlungsstatus <> 1 And Me.Behandlungsstatus <> 4 Then Exit Sub
Me.Save_Data()
db.Recalc_Leistungen(Me.Behandlungsnr, Me.mtxtTaxpunktwert.Text)

@ -86,11 +86,11 @@ Partial Class LeistungDruck
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.C1Produktzusatz = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ToolStrip4 = New System.Windows.Forms.ToolStrip()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
CType(Me.diwert, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DIMenge, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dtdatum, System.ComponentModel.ISupportInitialize).BeginInit()
@ -415,7 +415,6 @@ Partial Class LeistungDruck
'
Me.lbtarif1.BackgroundStyle.Class = "ListBoxAdv"
Me.lbtarif1.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.lbtarif1.CheckStateMember = Nothing
Me.lbtarif1.ContainerControlProcessDialogKey = True
Me.lbtarif1.ContextMenuStrip = Me.ContextMenuStrip1
Me.lbtarif1.DragDropSupport = True
@ -559,7 +558,6 @@ Partial Class LeistungDruck
'
Me.lbPakete.BackgroundStyle.Class = "ListBoxAdv"
Me.lbPakete.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.lbPakete.CheckStateMember = Nothing
Me.lbPakete.ContainerControlProcessDialogKey = True
Me.lbPakete.Dock = System.Windows.Forms.DockStyle.Fill
Me.lbPakete.DragDropSupport = True
@ -735,7 +733,7 @@ Partial Class LeistungDruck
'
Me.GroupBox1.Controls.Add(Me.C1Produkte)
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Left
Me.GroupBox1.Location = New System.Drawing.Point(35, 16)
Me.GroupBox1.Location = New System.Drawing.Point(27, 16)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(498, 152)
Me.GroupBox1.TabIndex = 0
@ -766,7 +764,7 @@ Partial Class LeistungDruck
Me.ToolStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripButton3, Me.ToolStripButton4, Me.ToolStripButton5})
Me.ToolStrip3.Location = New System.Drawing.Point(3, 16)
Me.ToolStrip3.Name = "ToolStrip3"
Me.ToolStrip3.Size = New System.Drawing.Size(32, 152)
Me.ToolStrip3.Size = New System.Drawing.Size(24, 152)
Me.ToolStrip3.TabIndex = 5
Me.ToolStrip3.Text = "ToolStrip3"
'
@ -776,7 +774,7 @@ Partial Class LeistungDruck
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(29, 20)
Me.ToolStripButton1.Size = New System.Drawing.Size(21, 20)
Me.ToolStripButton1.Text = "Neues Produkt"
'
'ToolStripButton3
@ -785,7 +783,7 @@ Partial Class LeistungDruck
Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image)
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton3.Name = "ToolStripButton3"
Me.ToolStripButton3.Size = New System.Drawing.Size(29, 20)
Me.ToolStripButton3.Size = New System.Drawing.Size(21, 20)
Me.ToolStripButton3.Text = "Speichern"
'
'ToolStripButton4
@ -794,9 +792,18 @@ Partial Class LeistungDruck
Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image)
Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton4.Name = "ToolStripButton4"
Me.ToolStripButton4.Size = New System.Drawing.Size(29, 20)
Me.ToolStripButton4.Size = New System.Drawing.Size(21, 20)
Me.ToolStripButton4.Text = "Löschen"
'
'ToolStripButton5
'
Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton5.Image = CType(resources.GetObject("ToolStripButton5.Image"), System.Drawing.Image)
Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton5.Name = "ToolStripButton5"
Me.ToolStripButton5.Size = New System.Drawing.Size(21, 20)
Me.ToolStripButton5.Text = "Kopieren"
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.C1Produktzusatz)
@ -845,15 +852,6 @@ Partial Class LeistungDruck
Me.ToolStripButton2.Size = New System.Drawing.Size(21, 20)
Me.ToolStripButton2.Text = "Speichern"
'
'ToolStripButton5
'
Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton5.Image = CType(resources.GetObject("ToolStripButton5.Image"), System.Drawing.Image)
Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton5.Name = "ToolStripButton5"
Me.ToolStripButton5.Size = New System.Drawing.Size(29, 20)
Me.ToolStripButton5.Text = "Kopieren"
'
'LeistungDruck
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

@ -158,11 +158,8 @@
</value>
</data>
<data name="C1Leistungen.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 1140, 104&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 1140, 104&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Style4{}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style1{}Caption{AlignHorz:Center;}Style6{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 1140, 104&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 1140, 104&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>983, 17</value>
</metadata>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>826, 17</value>
</metadata>
@ -202,26 +199,65 @@
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1411, 17</value>
</metadata>
<data name="C1Produkte.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="C1Produkte.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="C1Produkte.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Style4{}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style1{}Caption{AlignHorz:Center;}Style6{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 490, 131&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 490, 131&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="ToolStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1518, 17</value>
</metadata>
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAMMSURBVEhLnVXNS1RRFH8VtKhoUf9ECLWRyXnvDmmQMtp7
T7GmItq0apNQQURtpi8IglwargohSReziJhm3rvz0apdH2D0YZpR1qIPnCQtUW/nd99743t6HUeP/Bi5
99zfue+c3z1HU1laaJuP5uK7zJy+x+LsrOUaAzaPP7O5Pk6/Y/J/Wut0jZ5OJ763jXxTw6kt/vEaJrRN
5qPGbTZPNNh51tfOjR82Z6IWOrKxactld7uKTY2t+X3bfSaFEXmXG9ttOvpput17FdmqyLLFds4mTc7O
JLP7d/qMIfPJifhi0jUWlCR1wOTGlFVgl1Ol5h0+s2dIC25ei7yTJ8TxUqs4UW5T7lfhxn5ZBaMnNdyw
VZKjoMi5xfV3ygMEkJ96elgMfOgXD8fviWOlQ0q/ACaPf+0o6IYMALWgoCrHAN2FFnH1xQUBq8xNid7X
15V+AZI5NkPpHkyN0FdAimup5UixRdx8eUkG+D1XEX1vbiv9wsBXWMUE06BzlUMYGwlAqFiOcUPzHlF0
EznvLjRLYgDFvfXqigwwTQH6396p7gHwXc5hZtmc7eiO5r3QKDkKmqac49YAyIc+3pcBZub/iOznTHUP
SD8/L06Wk5EAHuJjFADPf2kRt4Va1mMImpkYDBEHaPqEL6DesrQInUOKUAvyDSAtIIEt0t/s/Gx1D/j5
97twJh+HiAN4ASIpAqBzSBHFBJBzpAUG8vK3fHUP6B25Jr88wvOELZJURzV0xciGAigkcg3DjUGq8gsj
ydk/WWS0XJVDGBsJQPBkin6OlqtwqGLdAai7Iv92Xj+gYVign3uLCmcCdA4potAoKHKu8gtgZWOzpM4h
2YswiTAs0M9VzgGg88zEA6mWFQUNQXZkl43aOeOgDADDJMKwQD9XHaoXVNgFO8e+WA4751MvGSYRhgX6
uerwWpA3J3LTMdI+5UrDJMKwQCeULVdBtAJUO5lzSovy5ssNkwjDAv0cgYikIhtXmJQekdQ57Um1UEEj
Oa/HMCzQz6FlPBivpYCMQC8Ua3IPUlzVNO0/43uuD4YnYP8AAAAASUVORK5CYII=
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAMOSURBVEhLnVXNS1RRFH8VtKhoUf9ECLXIzHnvSho0g9p7
b8SaimjTqk1CBRG1mb4gCHJpuCqEJF3MohGZee+O2qpdH2D0YZpR1qIPnCQt0bmd333vje85Vx098mPk
3nN/575zfvccTWVpoW0+novtMnP6Houz85Zr9Ng89szm+gT9jsv/aS3pGh1JJ7Y3Qb6p/tQW//gqJrRN
5pPabTZvqLHzrKuFGz9szsRqaB2om7Fcdr9tqL42nt+33WdSGJG3uXW7TUc/S7d7ryJbEVlWauFsyuTs
XPPgwZ0+Y8h8ciK+HHeNRSVJFTC5MW0V2NXUcOMOn9kzpAU3X408yRvEyeG4ODWSUO6X4R74ZRWMjlR/
zVZJjoIi5xbX3ykPEEB+5ulR0fOhWzyeeCBODB9R+gUweexra0E3ZACoBQVVOQZoLzSJ6y8uCVhxflp0
vr6p9AuQyLFZSndvapS+AlJcSy3HhprE7ZdXZIDf80XR9eau0i8MfIU11MA06FzlEMZGAhCKlmPc0rxH
FN1EztsLjZIYQHHvvLomA8xQgO6398p7AHyXc5hZNm87uqN5LzRKjoKmKee4NQDyvo8PZYDZhT9i8HOm
vAekn18Up0eaIwE8xMYpAJ7/0iJuC7WsxxA0M9kbIg5Q/wlfQL1laRE6hxShFuQbQFpAAivR39zCXHkP
+Pn3u3CmBkLEAbwAkRQB0DmkiGICyDnSAgP5yLd8eQ/oHL0hvzzCM8BKJNUxDV0xsqEAColcw3BjkKr8
wohz9k8WGS1X5RDGRgIQPJmin6PlKhzKWHcA6q7Iv53XD2kYFujn3qLCmQCdQ4ooNAqKnKv8AljZ/XOk
zj7ZizCJMCzQz1XOAaDzzOQjqZaKgoYgO7LLxuyccVgGgGESYVign6sOVQsq7KKdY18sh13wqZcMkwjD
Av1cdXgtyJsTuekYaZ+y0jCJMCzQCWXLVRBVgGonc05pUd58uWESYVignyMQkRRl4wqT0iOSOqc9qRYq
aCTn1RiGBfo5tIwH47UUkBHohWJN7kGKK5qm/QcPjq3M/qGargAAAABJRU5ErkJggg==
</value>
</data>
<data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@ -315,51 +351,6 @@
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="ToolStrip4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1625, 17</value>
</metadata>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1411, 17</value>
</metadata>
<data name="C1Produkte.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="C1Produkte.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="C1Produkte.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Style4{}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style1{}Caption{AlignHorz:Center;}Style6{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 490, 131&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 490, 131&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
<data name="C1Produktzusatz.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
@ -397,7 +388,7 @@
</value>
</data>
<data name="C1Produktzusatz.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 381, 130&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 381, 130&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Style4{}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style1{}Caption{AlignHorz:Center;}Style6{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 381, 130&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 381, 130&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="ToolStrip4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1625, 17</value>

@ -804,6 +804,12 @@
</Compile>
<Compile Include="Klassen\MySecurity.vb" />
<Compile Include="Mobile\Models\Patient.vb" />
<Compile Include="Patient\frmPrivatAnsprechpartner.Designer.vb">
<DependentUpon>frmPrivatAnsprechpartner.vb</DependentUpon>
</Compile>
<Compile Include="Patient\frmPrivatAnsprechpartner.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Patient\Patient.Designer.vb">
<DependentUpon>Patient.vb</DependentUpon>
</Compile>
@ -1139,6 +1145,9 @@
<EmbeddedResource Include="KG\Krankengeschichte.resx">
<DependentUpon>Krankengeschichte.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Patient\frmPrivatAnsprechpartner.resx">
<DependentUpon>frmPrivatAnsprechpartner.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Patient\Patient.resx">
<DependentUpon>Patient.vb</DependentUpon>
</EmbeddedResource>

@ -1,316 +1,377 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmProgrammeinstellungen
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmProgrammeinstellungen))
Me.Properties = New PropertyGridEx.PropertyGridEx()
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.Tarif = New System.Windows.Forms.TabPage()
Me.ClsStammdaten_flat1 = New DPM2016.clsStammdaten_flat()
Me.Konto = New System.Windows.Forms.TabPage()
Me.ClsStammdaten_flat3 = New DPM2016.clsStammdaten_flat()
Me.MailTexte = New System.Windows.Forms.TabPage()
Me.ClsStammdaten_flat2 = New DPM2016.clsStammdaten_flat()
Me.AllgEinstellungen = New System.Windows.Forms.TabPage()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.Properties_DMS = New PropertyGridEx.PropertyGridEx()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.TabControl1.SuspendLayout()
Me.Tarif.SuspendLayout()
Me.Konto.SuspendLayout()
Me.MailTexte.SuspendLayout()
Me.AllgEinstellungen.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
Me.SuspendLayout()
'
'Properties
'
Me.Properties.CategoryForeColor = System.Drawing.SystemColors.InactiveCaptionText
Me.Properties.CommandsVisibleIfAvailable = False
'
'
'
Me.Properties.DocCommentDescription.AccessibleName = ""
Me.Properties.DocCommentDescription.AutoEllipsis = True
Me.Properties.DocCommentDescription.BackColor = System.Drawing.Color.Transparent
Me.Properties.DocCommentDescription.Cursor = System.Windows.Forms.Cursors.Default
Me.Properties.DocCommentDescription.ForeColor = System.Drawing.Color.WhiteSmoke
Me.Properties.DocCommentDescription.Location = New System.Drawing.Point(3, 18)
Me.Properties.DocCommentDescription.Name = ""
Me.Properties.DocCommentDescription.Size = New System.Drawing.Size(892, 37)
Me.Properties.DocCommentDescription.TabIndex = 1
Me.Properties.DocCommentImage = CType(resources.GetObject("Properties.DocCommentImage"), System.Drawing.Image)
'
'
'
Me.Properties.DocCommentTitle.AutoSize = True
Me.Properties.DocCommentTitle.BackColor = System.Drawing.Color.Transparent
Me.Properties.DocCommentTitle.Cursor = System.Windows.Forms.Cursors.Default
Me.Properties.DocCommentTitle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
Me.Properties.DocCommentTitle.ForeColor = System.Drawing.Color.WhiteSmoke
Me.Properties.DocCommentTitle.Location = New System.Drawing.Point(3, 3)
Me.Properties.DocCommentTitle.Name = ""
Me.Properties.DocCommentTitle.Size = New System.Drawing.Size(110, 13)
Me.Properties.DocCommentTitle.TabIndex = 0
Me.Properties.DocCommentTitle.Text = "DocComment Title"
Me.Properties.DocCommentTitle.UseMnemonic = False
Me.Properties.Dock = System.Windows.Forms.DockStyle.Fill
Me.Properties.Location = New System.Drawing.Point(3, 3)
Me.Properties.Name = "Properties"
Me.Properties.PropertySort = System.Windows.Forms.PropertySort.Categorized
Me.Properties.SelectedObject = Me.Properties.Item
Me.Properties.Size = New System.Drawing.Size(898, 584)
Me.Properties.TabIndex = 5
'
'
'
Me.Properties.ToolStrip.AccessibleName = "ToolBar"
Me.Properties.ToolStrip.AccessibleRole = System.Windows.Forms.AccessibleRole.ToolBar
Me.Properties.ToolStrip.AllowMerge = False
Me.Properties.ToolStrip.AutoSize = False
Me.Properties.ToolStrip.CanOverflow = False
Me.Properties.ToolStrip.Dock = System.Windows.Forms.DockStyle.None
Me.Properties.ToolStrip.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.Properties.ToolStrip.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.HorizontalStackWithOverflow
Me.Properties.ToolStrip.Location = New System.Drawing.Point(0, 1)
Me.Properties.ToolStrip.Name = ""
Me.Properties.ToolStrip.Padding = New System.Windows.Forms.Padding(2, 0, 1, 0)
Me.Properties.ToolStrip.Size = New System.Drawing.Size(898, 25)
Me.Properties.ToolStrip.TabIndex = 1
Me.Properties.ToolStrip.TabStop = True
Me.Properties.ToolStrip.Text = "PropertyGridToolBar"
'
'TabControl1
'
Me.TabControl1.Controls.Add(Me.Tarif)
Me.TabControl1.Controls.Add(Me.Konto)
Me.TabControl1.Controls.Add(Me.MailTexte)
Me.TabControl1.Controls.Add(Me.AllgEinstellungen)
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TabControl1.Location = New System.Drawing.Point(0, 25)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(912, 591)
Me.TabControl1.TabIndex = 6
'
'Tarif
'
Me.Tarif.Controls.Add(Me.ClsStammdaten_flat1)
Me.Tarif.Location = New System.Drawing.Point(4, 22)
Me.Tarif.Name = "Tarif"
Me.Tarif.Padding = New System.Windows.Forms.Padding(3)
Me.Tarif.Size = New System.Drawing.Size(904, 565)
Me.Tarif.TabIndex = 1
Me.Tarif.Text = "Tarif"
Me.Tarif.UseVisualStyleBackColor = True
'
'ClsStammdaten_flat1
'
Me.ClsStammdaten_flat1.Connectionstring = "data source=shu00;initial catalog=shub_padm;persist secu" &
"rity info=false;workstation id=;packet size=4096;user id=sa;password=*shu29"
Me.ClsStammdaten_flat1.Dock = System.Windows.Forms.DockStyle.Fill
Me.ClsStammdaten_flat1.Location = New System.Drawing.Point(3, 3)
Me.ClsStammdaten_flat1.Name = "ClsStammdaten_flat1"
Me.ClsStammdaten_flat1.Size = New System.Drawing.Size(898, 559)
Me.ClsStammdaten_flat1.TabIndex = 0
Me.ClsStammdaten_flat1.Tablename = Nothing
'
'Konto
'
Me.Konto.Controls.Add(Me.ClsStammdaten_flat3)
Me.Konto.Location = New System.Drawing.Point(4, 22)
Me.Konto.Name = "Konto"
Me.Konto.Size = New System.Drawing.Size(904, 590)
Me.Konto.TabIndex = 4
Me.Konto.Text = "Konto"
Me.Konto.UseVisualStyleBackColor = True
'
'ClsStammdaten_flat3
'
Me.ClsStammdaten_flat3.Connectionstring = "data source=shu00;initial catalog=shub_padm;persist secu" &
"rity info=false;workstation id=;packet size=4096;user id=sa;password=*shu29"
Me.ClsStammdaten_flat3.Dock = System.Windows.Forms.DockStyle.Fill
Me.ClsStammdaten_flat3.Location = New System.Drawing.Point(0, 0)
Me.ClsStammdaten_flat3.Name = "ClsStammdaten_flat3"
Me.ClsStammdaten_flat3.Size = New System.Drawing.Size(904, 590)
Me.ClsStammdaten_flat3.TabIndex = 1
Me.ClsStammdaten_flat3.Tablename = Nothing
'
'MailTexte
'
Me.MailTexte.Controls.Add(Me.ClsStammdaten_flat2)
Me.MailTexte.Location = New System.Drawing.Point(4, 22)
Me.MailTexte.Name = "MailTexte"
Me.MailTexte.Size = New System.Drawing.Size(904, 590)
Me.MailTexte.TabIndex = 2
Me.MailTexte.Text = "Mailtexte"
Me.MailTexte.UseVisualStyleBackColor = True
'
'ClsStammdaten_flat2
'
Me.ClsStammdaten_flat2.Connectionstring = "data source=shu00;initial catalog=shub_padm;persist secu" &
"rity info=false;workstation id=;packet size=4096;user id=sa;password=*shu29"
Me.ClsStammdaten_flat2.Dock = System.Windows.Forms.DockStyle.Fill
Me.ClsStammdaten_flat2.Location = New System.Drawing.Point(0, 0)
Me.ClsStammdaten_flat2.Name = "ClsStammdaten_flat2"
Me.ClsStammdaten_flat2.Size = New System.Drawing.Size(904, 590)
Me.ClsStammdaten_flat2.TabIndex = 0
Me.ClsStammdaten_flat2.Tablename = Nothing
'
'AllgEinstellungen
'
Me.AllgEinstellungen.Controls.Add(Me.Properties)
Me.AllgEinstellungen.Location = New System.Drawing.Point(4, 22)
Me.AllgEinstellungen.Name = "AllgEinstellungen"
Me.AllgEinstellungen.Padding = New System.Windows.Forms.Padding(3)
Me.AllgEinstellungen.Size = New System.Drawing.Size(904, 590)
Me.AllgEinstellungen.TabIndex = 0
Me.AllgEinstellungen.Text = "Allg. Programm-Einstallungen"
Me.AllgEinstellungen.UseVisualStyleBackColor = True
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.Properties_DMS)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Size = New System.Drawing.Size(904, 590)
Me.TabPage1.TabIndex = 3
Me.TabPage1.Text = "DMS-Einstellungen"
Me.TabPage1.UseVisualStyleBackColor = True
'
'Properties_DMS
'
Me.Properties_DMS.CategoryForeColor = System.Drawing.SystemColors.InactiveCaptionText
Me.Properties_DMS.CommandsVisibleIfAvailable = False
'
'
'
Me.Properties_DMS.DocCommentDescription.AccessibleName = ""
Me.Properties_DMS.DocCommentDescription.AutoEllipsis = True
Me.Properties_DMS.DocCommentDescription.BackColor = System.Drawing.Color.Transparent
Me.Properties_DMS.DocCommentDescription.Cursor = System.Windows.Forms.Cursors.Default
Me.Properties_DMS.DocCommentDescription.ForeColor = System.Drawing.Color.WhiteSmoke
Me.Properties_DMS.DocCommentDescription.Location = New System.Drawing.Point(3, 18)
Me.Properties_DMS.DocCommentDescription.Name = ""
Me.Properties_DMS.DocCommentDescription.Size = New System.Drawing.Size(898, 37)
Me.Properties_DMS.DocCommentDescription.TabIndex = 1
Me.Properties_DMS.DocCommentImage = CType(resources.GetObject("Properties_DMS.DocCommentImage"), System.Drawing.Image)
'
'
'
Me.Properties_DMS.DocCommentTitle.AutoSize = True
Me.Properties_DMS.DocCommentTitle.BackColor = System.Drawing.Color.Transparent
Me.Properties_DMS.DocCommentTitle.Cursor = System.Windows.Forms.Cursors.Default
Me.Properties_DMS.DocCommentTitle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
Me.Properties_DMS.DocCommentTitle.ForeColor = System.Drawing.Color.WhiteSmoke
Me.Properties_DMS.DocCommentTitle.Location = New System.Drawing.Point(3, 3)
Me.Properties_DMS.DocCommentTitle.Name = ""
Me.Properties_DMS.DocCommentTitle.Size = New System.Drawing.Size(110, 13)
Me.Properties_DMS.DocCommentTitle.TabIndex = 0
Me.Properties_DMS.DocCommentTitle.Text = "DocComment Title"
Me.Properties_DMS.DocCommentTitle.UseMnemonic = False
Me.Properties_DMS.Dock = System.Windows.Forms.DockStyle.Fill
Me.Properties_DMS.Location = New System.Drawing.Point(0, 0)
Me.Properties_DMS.Name = "Properties_DMS"
Me.Properties_DMS.PropertySort = System.Windows.Forms.PropertySort.Categorized
Me.Properties_DMS.SelectedObject = Me.Properties_DMS.Item
Me.Properties_DMS.Size = New System.Drawing.Size(904, 590)
Me.Properties_DMS.TabIndex = 6
'
'
'
Me.Properties_DMS.ToolStrip.AccessibleName = "ToolBar"
Me.Properties_DMS.ToolStrip.AccessibleRole = System.Windows.Forms.AccessibleRole.ToolBar
Me.Properties_DMS.ToolStrip.AllowMerge = False
Me.Properties_DMS.ToolStrip.AutoSize = False
Me.Properties_DMS.ToolStrip.CanOverflow = False
Me.Properties_DMS.ToolStrip.Dock = System.Windows.Forms.DockStyle.None
Me.Properties_DMS.ToolStrip.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.Properties_DMS.ToolStrip.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.HorizontalStackWithOverflow
Me.Properties_DMS.ToolStrip.Location = New System.Drawing.Point(0, 1)
Me.Properties_DMS.ToolStrip.Name = ""
Me.Properties_DMS.ToolStrip.Padding = New System.Windows.Forms.Padding(2, 0, 1, 0)
Me.Properties_DMS.ToolStrip.Size = New System.Drawing.Size(904, 25)
Me.Properties_DMS.ToolStrip.TabIndex = 1
Me.Properties_DMS.ToolStrip.TabStop = True
Me.Properties_DMS.ToolStrip.Text = "PropertyGridToolBar"
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(912, 25)
Me.ToolStrip1.TabIndex = 7
Me.ToolStrip1.Text = "ToolStrip1"
'
'ToolStripButton1
'
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(65, 22)
Me.ToolStripButton1.Text = "Schliessen"
'
'frmProgrammeinstellungen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(912, 616)
Me.Controls.Add(Me.TabControl1)
Me.Controls.Add(Me.ToolStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmProgrammeinstellungen"
Me.Text = "Programmeinstellungen / Stammdaten"
Me.TabControl1.ResumeLayout(False)
Me.Tarif.ResumeLayout(False)
Me.Konto.ResumeLayout(False)
Me.MailTexte.ResumeLayout(False)
Me.AllgEinstellungen.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Properties As PropertyGridEx.PropertyGridEx
Friend WithEvents TabControl1 As TabControl
Friend WithEvents AllgEinstellungen As TabPage
Friend WithEvents Tarif As TabPage
Friend WithEvents ClsStammdaten_flat1 As clsStammdaten_flat
Friend WithEvents MailTexte As TabPage
Friend WithEvents ClsStammdaten_flat2 As clsStammdaten_flat
Friend WithEvents TabPage1 As TabPage
Friend WithEvents Properties_DMS As PropertyGridEx.PropertyGridEx
Friend WithEvents Konto As TabPage
Friend WithEvents ClsStammdaten_flat3 As clsStammdaten_flat
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents ToolStripButton1 As ToolStripButton
End Class
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmProgrammeinstellungen
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmProgrammeinstellungen))
Me.Properties = New PropertyGridEx.PropertyGridEx()
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.Tarif = New System.Windows.Forms.TabPage()
Me.ClsStammdaten_flat1 = New DPM2016.clsStammdaten_flat()
Me.Konto = New System.Windows.Forms.TabPage()
Me.ClsStammdaten_flat3 = New DPM2016.clsStammdaten_flat()
Me.MailTexte = New System.Windows.Forms.TabPage()
Me.ClsStammdaten_flat2 = New DPM2016.clsStammdaten_flat()
Me.AllgEinstellungen = New System.Windows.Forms.TabPage()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.Properties_DMS = New PropertyGridEx.PropertyGridEx()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ProduktZusatz = New System.Windows.Forms.TabPage()
Me.ProduktZusaatzDetails = New System.Windows.Forms.TabPage()
Me.ClsStammdaten_flat4 = New DPM2016.clsStammdaten_flat()
Me.ClsStammdaten_flat5 = New DPM2016.clsStammdaten_flat()
Me.TabControl1.SuspendLayout()
Me.Tarif.SuspendLayout()
Me.Konto.SuspendLayout()
Me.MailTexte.SuspendLayout()
Me.AllgEinstellungen.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
Me.ProduktZusatz.SuspendLayout()
Me.ProduktZusaatzDetails.SuspendLayout()
Me.SuspendLayout()
'
'Properties
'
Me.Properties.CategoryForeColor = System.Drawing.SystemColors.InactiveCaptionText
Me.Properties.CommandsVisibleIfAvailable = False
'
'
'
Me.Properties.DocCommentDescription.AccessibleName = ""
Me.Properties.DocCommentDescription.AutoEllipsis = True
Me.Properties.DocCommentDescription.BackColor = System.Drawing.Color.Transparent
Me.Properties.DocCommentDescription.Cursor = System.Windows.Forms.Cursors.Default
Me.Properties.DocCommentDescription.ForeColor = System.Drawing.Color.WhiteSmoke
Me.Properties.DocCommentDescription.Location = New System.Drawing.Point(3, 18)
Me.Properties.DocCommentDescription.Name = ""
Me.Properties.DocCommentDescription.Size = New System.Drawing.Size(892, 37)
Me.Properties.DocCommentDescription.TabIndex = 1
Me.Properties.DocCommentImage = CType(resources.GetObject("Properties.DocCommentImage"), System.Drawing.Image)
'
'
'
Me.Properties.DocCommentTitle.AutoSize = True
Me.Properties.DocCommentTitle.BackColor = System.Drawing.Color.Transparent
Me.Properties.DocCommentTitle.Cursor = System.Windows.Forms.Cursors.Default
Me.Properties.DocCommentTitle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
Me.Properties.DocCommentTitle.ForeColor = System.Drawing.Color.WhiteSmoke
Me.Properties.DocCommentTitle.Location = New System.Drawing.Point(3, 3)
Me.Properties.DocCommentTitle.Name = ""
Me.Properties.DocCommentTitle.Size = New System.Drawing.Size(110, 13)
Me.Properties.DocCommentTitle.TabIndex = 0
Me.Properties.DocCommentTitle.Text = "DocComment Title"
Me.Properties.DocCommentTitle.UseMnemonic = False
Me.Properties.Dock = System.Windows.Forms.DockStyle.Fill
Me.Properties.Location = New System.Drawing.Point(3, 3)
Me.Properties.Name = "Properties"
Me.Properties.PropertySort = System.Windows.Forms.PropertySort.Categorized
Me.Properties.SelectedObject = Me.Properties.Item
Me.Properties.Size = New System.Drawing.Size(1166, 559)
Me.Properties.TabIndex = 5
'
'
'
Me.Properties.ToolStrip.AccessibleName = "ToolBar"
Me.Properties.ToolStrip.AccessibleRole = System.Windows.Forms.AccessibleRole.ToolBar
Me.Properties.ToolStrip.AllowMerge = False
Me.Properties.ToolStrip.AutoSize = False
Me.Properties.ToolStrip.CanOverflow = False
Me.Properties.ToolStrip.Dock = System.Windows.Forms.DockStyle.None
Me.Properties.ToolStrip.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.Properties.ToolStrip.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.HorizontalStackWithOverflow
Me.Properties.ToolStrip.Location = New System.Drawing.Point(0, 1)
Me.Properties.ToolStrip.Name = ""
Me.Properties.ToolStrip.Padding = New System.Windows.Forms.Padding(2, 0, 1, 0)
Me.Properties.ToolStrip.Size = New System.Drawing.Size(898, 25)
Me.Properties.ToolStrip.TabIndex = 1
Me.Properties.ToolStrip.TabStop = True
Me.Properties.ToolStrip.Text = "PropertyGridToolBar"
'
'TabControl1
'
Me.TabControl1.Controls.Add(Me.Tarif)
Me.TabControl1.Controls.Add(Me.ProduktZusatz)
Me.TabControl1.Controls.Add(Me.ProduktZusaatzDetails)
Me.TabControl1.Controls.Add(Me.Konto)
Me.TabControl1.Controls.Add(Me.MailTexte)
Me.TabControl1.Controls.Add(Me.AllgEinstellungen)
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TabControl1.Location = New System.Drawing.Point(0, 25)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(1180, 591)
Me.TabControl1.TabIndex = 6
'
'Tarif
'
Me.Tarif.Controls.Add(Me.ClsStammdaten_flat1)
Me.Tarif.Location = New System.Drawing.Point(4, 22)
Me.Tarif.Name = "Tarif"
Me.Tarif.Padding = New System.Windows.Forms.Padding(3)
Me.Tarif.Size = New System.Drawing.Size(1172, 565)
Me.Tarif.TabIndex = 1
Me.Tarif.Text = "Tarif"
Me.Tarif.UseVisualStyleBackColor = True
'
'ClsStammdaten_flat1
'
Me.ClsStammdaten_flat1.Connectionstring = "data source=shu00;initial catalog=shub_padm;persist security info=false;workstati" &
"on id=;packet size=4096;user id=sa;password=*shu29"
Me.ClsStammdaten_flat1.Dock = System.Windows.Forms.DockStyle.Fill
Me.ClsStammdaten_flat1.Location = New System.Drawing.Point(3, 3)
Me.ClsStammdaten_flat1.Name = "ClsStammdaten_flat1"
Me.ClsStammdaten_flat1.Size = New System.Drawing.Size(1166, 559)
Me.ClsStammdaten_flat1.SQL = ""
Me.ClsStammdaten_flat1.TabIndex = 0
Me.ClsStammdaten_flat1.Tablename = Nothing
'
'Konto
'
Me.Konto.Controls.Add(Me.ClsStammdaten_flat3)
Me.Konto.Location = New System.Drawing.Point(4, 22)
Me.Konto.Name = "Konto"
Me.Konto.Size = New System.Drawing.Size(1172, 565)
Me.Konto.TabIndex = 4
Me.Konto.Text = "Konto"
Me.Konto.UseVisualStyleBackColor = True
'
'ClsStammdaten_flat3
'
Me.ClsStammdaten_flat3.Connectionstring = "data source=shu00;initial catalog=shub_padm;persist security info=false;workstati" &
"on id=;packet size=4096;user id=sa;password=*shu29"
Me.ClsStammdaten_flat3.Dock = System.Windows.Forms.DockStyle.Fill
Me.ClsStammdaten_flat3.Location = New System.Drawing.Point(0, 0)
Me.ClsStammdaten_flat3.Name = "ClsStammdaten_flat3"
Me.ClsStammdaten_flat3.Size = New System.Drawing.Size(1172, 565)
Me.ClsStammdaten_flat3.SQL = ""
Me.ClsStammdaten_flat3.TabIndex = 1
Me.ClsStammdaten_flat3.Tablename = Nothing
'
'MailTexte
'
Me.MailTexte.Controls.Add(Me.ClsStammdaten_flat2)
Me.MailTexte.Location = New System.Drawing.Point(4, 22)
Me.MailTexte.Name = "MailTexte"
Me.MailTexte.Size = New System.Drawing.Size(1172, 565)
Me.MailTexte.TabIndex = 2
Me.MailTexte.Text = "Mailtexte"
Me.MailTexte.UseVisualStyleBackColor = True
'
'ClsStammdaten_flat2
'
Me.ClsStammdaten_flat2.Connectionstring = "data source=shu00;initial catalog=shub_padm;persist security info=false;workstati" &
"on id=;packet size=4096;user id=sa;password=*shu29"
Me.ClsStammdaten_flat2.Dock = System.Windows.Forms.DockStyle.Fill
Me.ClsStammdaten_flat2.Location = New System.Drawing.Point(0, 0)
Me.ClsStammdaten_flat2.Name = "ClsStammdaten_flat2"
Me.ClsStammdaten_flat2.Size = New System.Drawing.Size(1172, 565)
Me.ClsStammdaten_flat2.SQL = ""
Me.ClsStammdaten_flat2.TabIndex = 0
Me.ClsStammdaten_flat2.Tablename = Nothing
'
'AllgEinstellungen
'
Me.AllgEinstellungen.Controls.Add(Me.Properties)
Me.AllgEinstellungen.Location = New System.Drawing.Point(4, 22)
Me.AllgEinstellungen.Name = "AllgEinstellungen"
Me.AllgEinstellungen.Padding = New System.Windows.Forms.Padding(3)
Me.AllgEinstellungen.Size = New System.Drawing.Size(1172, 565)
Me.AllgEinstellungen.TabIndex = 0
Me.AllgEinstellungen.Text = "Allg. Programm-Einstallungen"
Me.AllgEinstellungen.UseVisualStyleBackColor = True
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.Properties_DMS)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Size = New System.Drawing.Size(1172, 565)
Me.TabPage1.TabIndex = 3
Me.TabPage1.Text = "DMS-Einstellungen"
Me.TabPage1.UseVisualStyleBackColor = True
'
'Properties_DMS
'
Me.Properties_DMS.CategoryForeColor = System.Drawing.SystemColors.InactiveCaptionText
Me.Properties_DMS.CommandsVisibleIfAvailable = False
'
'
'
Me.Properties_DMS.DocCommentDescription.AccessibleName = ""
Me.Properties_DMS.DocCommentDescription.AutoEllipsis = True
Me.Properties_DMS.DocCommentDescription.BackColor = System.Drawing.Color.Transparent
Me.Properties_DMS.DocCommentDescription.Cursor = System.Windows.Forms.Cursors.Default
Me.Properties_DMS.DocCommentDescription.ForeColor = System.Drawing.Color.WhiteSmoke
Me.Properties_DMS.DocCommentDescription.Location = New System.Drawing.Point(3, 18)
Me.Properties_DMS.DocCommentDescription.Name = ""
Me.Properties_DMS.DocCommentDescription.Size = New System.Drawing.Size(898, 37)
Me.Properties_DMS.DocCommentDescription.TabIndex = 1
Me.Properties_DMS.DocCommentImage = CType(resources.GetObject("Properties_DMS.DocCommentImage"), System.Drawing.Image)
'
'
'
Me.Properties_DMS.DocCommentTitle.AutoSize = True
Me.Properties_DMS.DocCommentTitle.BackColor = System.Drawing.Color.Transparent
Me.Properties_DMS.DocCommentTitle.Cursor = System.Windows.Forms.Cursors.Default
Me.Properties_DMS.DocCommentTitle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
Me.Properties_DMS.DocCommentTitle.ForeColor = System.Drawing.Color.WhiteSmoke
Me.Properties_DMS.DocCommentTitle.Location = New System.Drawing.Point(3, 3)
Me.Properties_DMS.DocCommentTitle.Name = ""
Me.Properties_DMS.DocCommentTitle.Size = New System.Drawing.Size(110, 13)
Me.Properties_DMS.DocCommentTitle.TabIndex = 0
Me.Properties_DMS.DocCommentTitle.Text = "DocComment Title"
Me.Properties_DMS.DocCommentTitle.UseMnemonic = False
Me.Properties_DMS.Dock = System.Windows.Forms.DockStyle.Fill
Me.Properties_DMS.Location = New System.Drawing.Point(0, 0)
Me.Properties_DMS.Name = "Properties_DMS"
Me.Properties_DMS.PropertySort = System.Windows.Forms.PropertySort.Categorized
Me.Properties_DMS.SelectedObject = Me.Properties_DMS.Item
Me.Properties_DMS.Size = New System.Drawing.Size(1172, 565)
Me.Properties_DMS.TabIndex = 6
'
'
'
Me.Properties_DMS.ToolStrip.AccessibleName = "ToolBar"
Me.Properties_DMS.ToolStrip.AccessibleRole = System.Windows.Forms.AccessibleRole.ToolBar
Me.Properties_DMS.ToolStrip.AllowMerge = False
Me.Properties_DMS.ToolStrip.AutoSize = False
Me.Properties_DMS.ToolStrip.CanOverflow = False
Me.Properties_DMS.ToolStrip.Dock = System.Windows.Forms.DockStyle.None
Me.Properties_DMS.ToolStrip.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.Properties_DMS.ToolStrip.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.HorizontalStackWithOverflow
Me.Properties_DMS.ToolStrip.Location = New System.Drawing.Point(0, 1)
Me.Properties_DMS.ToolStrip.Name = ""
Me.Properties_DMS.ToolStrip.Padding = New System.Windows.Forms.Padding(2, 0, 1, 0)
Me.Properties_DMS.ToolStrip.Size = New System.Drawing.Size(904, 25)
Me.Properties_DMS.ToolStrip.TabIndex = 1
Me.Properties_DMS.ToolStrip.TabStop = True
Me.Properties_DMS.ToolStrip.Text = "PropertyGridToolBar"
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(1180, 25)
Me.ToolStrip1.TabIndex = 7
Me.ToolStrip1.Text = "ToolStrip1"
'
'ToolStripButton1
'
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(65, 22)
Me.ToolStripButton1.Text = "Schliessen"
'
'ProduktZusatz
'
Me.ProduktZusatz.Controls.Add(Me.ClsStammdaten_flat4)
Me.ProduktZusatz.Location = New System.Drawing.Point(4, 22)
Me.ProduktZusatz.Name = "ProduktZusatz"
Me.ProduktZusatz.Size = New System.Drawing.Size(1172, 565)
Me.ProduktZusatz.TabIndex = 5
Me.ProduktZusatz.Text = "Produkt Zusatz"
Me.ProduktZusatz.UseVisualStyleBackColor = True
'
'ProduktZusaatzDetails
'
Me.ProduktZusaatzDetails.Controls.Add(Me.ClsStammdaten_flat5)
Me.ProduktZusaatzDetails.Location = New System.Drawing.Point(4, 22)
Me.ProduktZusaatzDetails.Name = "ProduktZusaatzDetails"
Me.ProduktZusaatzDetails.Size = New System.Drawing.Size(1172, 565)
Me.ProduktZusaatzDetails.TabIndex = 6
Me.ProduktZusaatzDetails.Text = "Produkt Zusatz Details"
Me.ProduktZusaatzDetails.UseVisualStyleBackColor = True
'
'ClsStammdaten_flat4
'
Me.ClsStammdaten_flat4.Connectionstring = "data source=shu00;initial catalog=shub_padm;persist security info=false;workstati" &
"on id=;packet size=4096;user id=sa;password=*shu29"
Me.ClsStammdaten_flat4.Dock = System.Windows.Forms.DockStyle.Fill
Me.ClsStammdaten_flat4.Location = New System.Drawing.Point(0, 0)
Me.ClsStammdaten_flat4.Name = "ClsStammdaten_flat4"
Me.ClsStammdaten_flat4.Size = New System.Drawing.Size(1172, 565)
Me.ClsStammdaten_flat4.SQL = ""
Me.ClsStammdaten_flat4.TabIndex = 1
Me.ClsStammdaten_flat4.Tablename = Nothing
'
'ClsStammdaten_flat5
'
Me.ClsStammdaten_flat5.Connectionstring = "data source=shu00;initial catalog=shub_padm;persist security info=false;workstati" &
"on id=;packet size=4096;user id=sa;password=*shu29"
Me.ClsStammdaten_flat5.Dock = System.Windows.Forms.DockStyle.Fill
Me.ClsStammdaten_flat5.Location = New System.Drawing.Point(0, 0)
Me.ClsStammdaten_flat5.Name = "ClsStammdaten_flat5"
Me.ClsStammdaten_flat5.Size = New System.Drawing.Size(1172, 565)
Me.ClsStammdaten_flat5.SQL = ""
Me.ClsStammdaten_flat5.TabIndex = 1
Me.ClsStammdaten_flat5.Tablename = Nothing
'
'frmProgrammeinstellungen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1180, 616)
Me.Controls.Add(Me.TabControl1)
Me.Controls.Add(Me.ToolStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmProgrammeinstellungen"
Me.Text = "Programmeinstellungen / Stammdaten"
Me.TabControl1.ResumeLayout(False)
Me.Tarif.ResumeLayout(False)
Me.Konto.ResumeLayout(False)
Me.MailTexte.ResumeLayout(False)
Me.AllgEinstellungen.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.ProduktZusatz.ResumeLayout(False)
Me.ProduktZusaatzDetails.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Properties As PropertyGridEx.PropertyGridEx
Friend WithEvents TabControl1 As TabControl
Friend WithEvents AllgEinstellungen As TabPage
Friend WithEvents Tarif As TabPage
Friend WithEvents ClsStammdaten_flat1 As clsStammdaten_flat
Friend WithEvents MailTexte As TabPage
Friend WithEvents ClsStammdaten_flat2 As clsStammdaten_flat
Friend WithEvents TabPage1 As TabPage
Friend WithEvents Properties_DMS As PropertyGridEx.PropertyGridEx
Friend WithEvents Konto As TabPage
Friend WithEvents ClsStammdaten_flat3 As clsStammdaten_flat
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents ToolStripButton1 As ToolStripButton
Friend WithEvents ProduktZusatz As TabPage
Friend WithEvents ProduktZusaatzDetails As TabPage
Friend WithEvents ClsStammdaten_flat4 As clsStammdaten_flat
Friend WithEvents ClsStammdaten_flat5 As clsStammdaten_flat
End Class

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

@ -1,492 +1,506 @@
Imports C1.Win.C1TrueDBGrid
Public Class clsStammdaten_flat
Dim m_connectionstring As String
Property Connectionstring As String
Get
Return m_connectionstring
End Get
Set(value As String)
m_connectionstring = value
End Set
End Property
Dim m_tablename As String
Property Tablename As String
Get
Return m_tablename
End Get
Set(value As String)
m_tablename = value
Try
'get_data()
Catch
End Try
End Set
End Property
Dim m_SQL As String = ""
Property SQL As String
Get
Return m_SQL
End Get
Set(value As String)
m_SQL = value
End Set
End Property
Dim db As clsDB
Dim c1d As New C1.Win.C1TrueDBGrid.C1TrueDBGrid
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.Connectionstring = My.Settings.ConnectionString
Me.c1d = Me.c1daten
If My.Settings.SoftwareType = "PADM" Then
Me.NeuerTarifeintragErstellenToolStripMenuItem.Text = "Neuer Artikel"
Me.TarifBearbeitenToolStripMenuItem.Text = "Artikel bearbeiten"
End If
End Sub
Public Sub get_data()
Try
Try
db = Nothing
Catch ex As Exception
End Try
db = New clsDB
Me.c1daten.DataSource = Nothing
Me.c1daten.DataMember = Nothing
Me.c1daten.DataSource = Nothing
Me.c1daten.DataMember = Nothing
Me.c1daten.Splits(0).DisplayColumns.Clear()
db.dsDaten.Tables.Clear()
If Me.SQL <> "" Then
db.Get_Tabledata(Me.Tablename, "", Me.SQL, "", False)
Else
db.Get_Tabledata(Me.Tablename)
End If
Me.c1daten.DataSource = db.dsDaten
Me.c1daten.DataMember = Tablename
Dim spalten As New Tabellenspalte
spalten.Spaltentitel_aktualisieren(Me.c1daten, Me.Tablename, db.dsDaten.Tables(0))
Me.c1d.ContextMenuStrip = Nothing
Me.c1d.AllowAddNew = True
Me.tsnewdentotar.Visible = False
Select Case Tablename
Case "Auswertung"
Dim printer As New clsPrinter
printer.Get_Printers()
Me.C1TrueDBDropdown1.DataSource = printer.Printers
Me.C1TrueDBDropdown1.DataMember = printer.Printers.Columns(0).ColumnName
Me.C1TrueDBDropdown1.ValueMember = printer.Printers.Columns(0).ColumnName
Me.C1TrueDBDropdown1.DisplayMember = printer.Printers.Columns(0).ColumnName
Me.c1daten.Columns("Drucker").DropDown = Me.C1TrueDBDropdown1
Case "User"
Me.c1d.ContextMenuStrip = Me.ContextMenuStrip1
Case "Tarif"
Me.c1d.ContextMenuStrip = Me.ctxMenuTarif
Me.c1d.AllowAddNew = False
Case "Dentotar"
Me.c1d.ContextMenuStrip = Me.ctxmenuDentotar
Me.c1d.AllowAddNew = False
Me.tsnewdentotar.Visible = True
Case "MailTexte"
Me.c1d.ContextMenuStrip = Me.ctxMenuMailtext
Case "Reporting"
Me.c1d.ContextMenuStrip = Me.ctxmenureporting
Me.AllowDrop = True
Me.c1daten.AllowDrop = True
End Select
Catch ex As Exception
End Try
End Sub
Public Sub Check_Changes()
Try
Dim ds As New DataSet
ds = c1daten.DataSource
Dim xdata As DataTable = ds.Tables(0).GetChanges
If xdata.Rows.Count > 0 Then
If MsgBox("Daten wurden geändert. Speichern?", vbYesNo + vbQuestion) = vbYes Then
db.Update_Data()
End If
End If
Catch
End Try
End Sub
Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click
Check_Changes()
If Tablename = "Spalten" Then Globals.Spaltendaten.Rows.Clear()
Me.c1daten.DataSource = Nothing
'db.Update_Data()
End Sub
Private Sub clsStammdaten_flat_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles ToolStripButton6.Click
db.Update_Data()
If Tablename = "Spalten" Then Globals.Spaltendaten.Rows.Clear()
Try
IntTables.Inttables.Tables.Remove(Tablename)
Catch ex As Exception
End Try
Try
IntTables.Inttables.Tables.Remove(Tablename)
Catch ex As Exception
End Try
'MsgBox("Daten wurden gespeichert")
End Sub
Private Sub c1daten_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles c1daten.RowColChange
Try
If Tablename = "Auswertung" Then
Me.C1TrueDBDropdown2.DataSource = Nothing
Dim printer As New clsPrinter
printer.Get_Papersources(Me.c1daten.Columns("Drucker").Value.ToString)
Me.C1TrueDBDropdown2.DataSource = printer.Papersources
Me.C1TrueDBDropdown2.DataMember = printer.Papersources.Columns(0).ColumnName
Me.C1TrueDBDropdown2.ValueMember = printer.Papersources.Columns(0).ColumnName
Me.C1TrueDBDropdown2.DisplayMember = printer.Papersources.Columns(1).ColumnName
Me.c1daten.Columns("Papierschacht").DropDown = Me.C1TrueDBDropdown2
End If
Catch
End Try
End Sub
Private Sub NeuerBenutzerEröffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuerBenutzerEröffnenToolStripMenuItem.Click
Dim f As New frmLogin(True)
f.ShowDialog()
get_data()
End Sub
Private Sub ToolStripButton7_Click(sender As Object, e As EventArgs) Handles ToolStripButton7.Click
End Sub
Private Sub c1daten_AfterInsert(sender As Object, e As EventArgs) Handles c1daten.AfterInsert
Try
'Me.c1daten.Columns("erstellt_am").Value = Now
'Me.c1daten.Columns("mutiert_am").Value = Now
'Me.c1daten.Columns("mutierer").Value = Globals.ActUser
'Me.c1daten.Columns("aktiv").Value = True
'Me.c1daten.Columns("Mandant").Value = Globals.Mandant
Catch ex As Exception
End Try
End Sub
Private Sub c1daten_DoubleClick(sender As Object, e As EventArgs) Handles c1daten.DoubleClick
Select Case Tablename
Case "Dentotar"
Try
Dim f As New frmDentotarDetails
f.Update_Data(Me.c1daten.Columns("LeistungNrNeu").Value)
f.TextBox2.Text = Me.c1daten.Columns("LeistungD").Value.ToString
f.TextBox3.Text = Me.c1daten.Columns("Interpretationd").Value.ToString
f.TextBox4.Text = Me.c1daten.Columns("Abrechnungseinheit").Value.ToString
f.TextBox5.Text = Me.c1daten.Columns("Taxpunkte_UV_MV_IV").Value.ToString
f.TextBox6.Text = Me.c1daten.Columns("PP_MIN").Value.ToString
f.TextBox7.Text = Me.c1daten.Columns("PP_Privat").Value.ToString
f.TextBox8.Text = Me.c1daten.Columns("PP_Max").Value.ToString
f.TextBox9.Text = Me.c1daten.Columns("BetragInCHF").Value.ToString
f.ShowDialog()
Me.c1daten.Columns("LeistungNrNeu").Value = f.TextBox1.Text
f.Update_Data(Me.c1daten.Columns("LeistungNrNeu").Value)
Me.c1daten.Columns("LeistungD").Value = f.TextBox2.Text
Me.c1daten.Columns("Interpretationd").Value = f.TextBox3.Text
Me.c1daten.Columns("Abrechnungseinheit").Value = f.TextBox4.Text
Me.c1daten.Columns("Taxpunkte_UV_MV_IV").Value = f.TextBox5.Text
Me.c1daten.Columns("PP_MIN").Value = f.TextBox6.Text
Me.c1daten.Columns("PP_Privat").Value = f.TextBox7.Text
Me.c1daten.Columns("PP_Max").Value = f.TextBox8.Text
Me.c1daten.Columns("BetragInCHF").Value = f.TextBox9.Text
' Me.c1daten.Columns("LeistungD").Value = f.TextBox1.Text
Catch ex As Exception
MsgBox("Ein Fehler bei der Bearbeitung über den Dialog ist aufgetreten: " + ex.Message + vbCrLf + "Bitte Daten direkt in der Tabelle ändern.", vbExclamation)
End Try
Case "Tarif"
If My.Settings.SoftwareType = "PADM" Then
Dim f1 As New TarifDetail_PADM
f1.txtnrtarif.Text = Me.c1daten.Columns("nrtarif").Value
f1.cbboxTarifgruppe.SelectedValue = Me.c1daten.Columns("Nrtarifgruppe").Value
f1.txtNummer.Text = Me.c1daten.Columns("sso_nummer").Value
f1.txtBezd.Text = Me.c1daten.Columns("bezd").Value
'f1.txtBezF.Text = Me.c1daten.Columns("bezf").Value
f1.Handle_RTF(1, Me.c1daten.Columns("bezf").Value)
f1.txtBezi.Text = Me.c1daten.Columns("bezi").Value
f1.txtprivat.Text = Me.c1daten.Columns("privattarif").Value
f1.txtsuva.Text = Me.c1daten.Columns("suvatarif").Value
f1.txtmin.Text = Me.c1daten.Columns("minimaltarif").Value
f1.txtmax.Text = Me.c1daten.Columns("maximaltarif").Value
If Me.c1daten.Columns("MitLabor").Value = 1 Then f1.cbboxmitlabor.Checked = True Else f1.cbboxmitlabor.Checked = False
f1.txtfrankenwert.Text = Me.c1daten.Columns("Frankenbetrag").Value
f1.ShowDialog()
If f1.DialogResult = DialogResult.OK Then
Me.c1daten.Columns("nrtarif").Value = f1.txtnrtarif.Text
Me.c1daten.Columns("Nrtarifgruppe").Value = f1.cbboxTarifgruppe.SelectedValue
Me.c1daten.Columns("sso_nummer").Value = f1.txtNummer.Text
Me.c1daten.Columns("bezd").Value = f1.txtBezd.Text
Me.c1daten.Columns("bezf").Value = f1.Handle_RTF(2, "")
'Me.c1daten.Columns("bezf").Value = f1.txtBezf.Text
Me.c1daten.Columns("bezi").Value = f1.txtBezi.Text
Me.c1daten.Columns("privattarif").Value = f1.txtprivat.Text
Me.c1daten.Columns("suvatarif").Value = f1.txtsuva.Text
Me.c1daten.Columns("minimaltarif").Value = f1.txtmin.Text
Me.c1daten.Columns("maximaltarif").Value = f1.txtmax.Text
If f1.cbboxmitlabor.Checked Then
Me.c1daten.Columns("MitLabor").Value = 1
Else
Me.c1daten.Columns("MitLabor").Value = 0
End If
Me.c1daten.Columns("Frankenbetrag").Value = f1.txtfrankenwert.Text
Me.c1daten.Bookmark = Me.c1daten.Bookmark - 1
ToolStripButton6_Click(sender, e)
Me.c1daten.Bookmark = Me.c1daten.Bookmark + 1
End If
Exit Sub
End If
Dim f As New frmTarifDetail
f.txtnrtarif.Text = Me.c1daten.Columns("nrtarif").Value
f.cbboxTarifgruppe.SelectedValue = Me.c1daten.Columns("Nrtarifgruppe").Value
f.txtNummer.Text = Me.c1daten.Columns("sso_nummer").Value
f.txtBezd.Text = Me.c1daten.Columns("bezd").Value
f.txtBezf.Text = Me.c1daten.Columns("bezf").Value
f.txtBezi.Text = Me.c1daten.Columns("bezi").Value
f.txtprivat.Text = Me.c1daten.Columns("privattarif").Value
f.txtsuva.Text = Me.c1daten.Columns("suvatarif").Value
f.txtmin.Text = Me.c1daten.Columns("minimaltarif").Value
f.txtmax.Text = Me.c1daten.Columns("maximaltarif").Value
If Me.c1daten.Columns("MitLabor").Value = 1 Then f.cbboxmitlabor.Checked = True Else f.cbboxmitlabor.Checked = False
f.txtfrankenwert.Text = Me.c1daten.Columns("Frankenbetrag").Value
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
Me.c1daten.Columns("nrtarif").Value = f.txtnrtarif.Text
Me.c1daten.Columns("Nrtarifgruppe").Value = f.cbboxTarifgruppe.SelectedValue
Me.c1daten.Columns("sso_nummer").Value = f.txtNummer.Text
Me.c1daten.Columns("bezd").Value = f.txtBezd.Text
Me.c1daten.Columns("bezf").Value = f.txtBezf.Text
Me.c1daten.Columns("bezi").Value = f.txtBezi.Text
Me.c1daten.Columns("privattarif").Value = f.txtprivat.Text
Me.c1daten.Columns("suvatarif").Value = f.txtsuva.Text
Me.c1daten.Columns("minimaltarif").Value = f.txtmin.Text
Me.c1daten.Columns("maximaltarif").Value = f.txtmax.Text
If f.cbboxmitlabor.Checked Then
Me.c1daten.Columns("MitLabor").Value = 1
Else
Me.c1daten.Columns("MitLabor").Value = 0
End If
Me.c1daten.Columns("Frankenbetrag").Value = f.txtfrankenwert.Text
End If
End Select
End Sub
Private Sub ContextMenuStrip1_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
End Sub
Private Sub TarifBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TarifBearbeitenToolStripMenuItem.Click
c1daten_DoubleClick(sender, e)
End Sub
Private Sub NeuerTarifeintragErstellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuerTarifeintragErstellenToolStripMenuItem.Click
If My.Settings.SoftwareType = "PADM" Then
Dim f1 As New TarifDetail_PADM
Dim newkey1 As Integer = f1.New_Tarif
f1.Dispose()
get_data()
Dim d1 As DataSet = c1daten.DataSource
Dim i1 As Integer = 0
For Each r As DataRow In d1.Tables(0).Rows
i1 = i1 + 1
If newkey1 = r.Item(0) Then
c1daten.Bookmark = i1
End If
Next
c1daten_DoubleClick(sender, e)
Exit Sub
End If
Dim f As New frmTarifDetail
Dim newkey As Integer = f.New_Tarif
f.Dispose()
get_data()
Dim d As DataSet = c1daten.DataSource
Dim i As Integer = 0
For Each r As DataRow In d.Tables(0).Rows
i = i + 1
If newkey = r.Item(0) Then
c1daten.Bookmark = i
End If
Next
c1daten_DoubleClick(sender, e)
End Sub
Private Sub PasswortÄndernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PasswortÄndernToolStripMenuItem.Click
Dim f As New frmLogin
f.txtUserName.Text = Me.c1daten.Columns("User").Value
f.txtPassword.Text = Me.c1daten.Columns("Passwort").Value
f.Label2.Text = "Neues Passwort"
f.btnLogin.Text = "Speichern"
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
Me.c1d.Columns("Passwort").Value = Crypto.EncryptText(f.txtPassword.Text, "DPM2018")
End If
End Sub
Private Sub TarifBearbeitenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles TarifBearbeitenToolStripMenuItem1.Click
c1daten_DoubleClick(sender, e)
End Sub
Private Sub tsnewdentotar_Click(sender As Object, e As EventArgs) Handles tsnewdentotar.Click
Dim f As New frmDentotarDetail
f.pk = -1
f.TextBox1.Text = "4.xxxx"
f.TextBox2.Text = ""
f.TextBox3.Text = ""
f.TextBox4.Text = ""
f.TextBox5.Text = "CHF"
f.TextBox6.Text = "0.00"
f.TextBox7.Text = "0.00"
f.TextBox8.Text = "0.00"
f.TextBox9.Text = "0.00"
f.TextBox10.Text = "0.00"
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
Dim sql As String
db.Get_Tabledata("Dentotarx", "", "Select * from dentotar where pk=-100", "", False)
Dim r As DataRow = db.dsDaten.Tables(0).NewRow
r.Item(0) = ""
r.Item(1) = 3
r.Item(2) = ""
r.Item(3) = f.TextBox1.Text
r.Item(4) = f.TextBox2.Text
r.Item(5) = f.TextBox4.Text
r.Item(6) = f.TextBox4.Text
r.Item(7) = ""
r.Item(8) = ""
r.Item(9) = ""
r.Item(10) = f.TextBox5.Text
r.Item(11) = f.TextBox6.Text
r.Item(12) = f.TextBox7.Text
r.Item(13) = f.TextBox8.Text
r.Item(14) = f.TextBox9.Text
r.Item(15) = f.TextBox10.Text
db.dsDaten.Tables(0).Rows.Add(r)
'db.dsDaten.Tables(0).AcceptChanges()
db.Update_Data()
get_data()
Dim i As Integer
For i = 0 To Me.c1daten.Splits(0).Rows.Count - 1
Try
If Me.c1daten.Columns("leistungnrneu").CellValue(i) = f.TextBox1.Text Then
Me.c1daten.Bookmark = i
Exit For
End If
Catch
End Try
Next
End If
End Sub
Private Sub c1daten_MouseDown(sender As Object, e As MouseEventArgs) Handles c1daten.MouseDown
c1daten.Bookmark = c1daten.RowContaining(e.Y)
End Sub
Private Sub MailTexteBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MailTexteBearbeitenToolStripMenuItem.Click
Dim f As New frmMailtexte
f.txtBetreff.Text = Me.c1daten.Columns("Betreff").Value
f.txtinhalt.Text = Me.c1daten.Columns("Inhalt").Value
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
Me.c1daten.Columns("Inhalt").Value = f.txtinhalt.Text
Me.c1daten.Columns("Betreff").Value = f.txtBetreff.Text
End If
End Sub
Private Sub SQLBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SQLBearbeitenToolStripMenuItem.Click
Dim f As New frmTexteditor
f.TextBox1.Text = Me.c1daten.Columns("sql").Value
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
Me.c1daten.Columns("SQL").Value = f.TextBox1.Text
End If
End Sub
Private Sub ReportBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ReportBearbeitenToolStripMenuItem.Click
Dim f As New frmTexteditor
f.TextBox1.Text = Me.c1daten.Columns("reportfile").Value
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
Me.c1daten.Columns("reportfile").Value = f.TextBox1.Text
End If
End Sub
Private Sub c1daten_DragDrop(sender As Object, e As DragEventArgs) Handles c1daten.DragDrop
Dim files() As String = e.Data.GetData(DataFormats.FileDrop)
For Each path In files
Dim tb As New TextBox
tb.Text = System.IO.File.ReadAllText(path)
If UCase(System.IO.Path.GetExtension(path)) = ".SQL" Then
Me.c1daten.Columns("SQL").Value = tb.Text
Else
Me.c1daten.Columns("reportfile").Value = tb.Text
End If
tb.Text = ""
tb.Dispose()
Next
End Sub
Private Sub c1daten_DragEnter(sender As Object, e As DragEventArgs) Handles c1daten.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.Copy
End If
End Sub
End Class
Imports C1.Win.C1TrueDBGrid
Public Class clsStammdaten_flat
Dim m_connectionstring As String
Property Connectionstring As String
Get
Return m_connectionstring
End Get
Set(value As String)
m_connectionstring = value
End Set
End Property
Dim m_tablename As String
Property Tablename As String
Get
Return m_tablename
End Get
Set(value As String)
m_tablename = value
Try
'get_data()
Catch
End Try
End Set
End Property
Dim m_SQL As String = ""
Property SQL As String
Get
Return m_SQL
End Get
Set(value As String)
m_SQL = value
End Set
End Property
Dim m_allowaddnew As Boolean = True
Property AllowAddNew As Boolean
Get
Return m_allowaddnew
End Get
Set(value As Boolean)
m_allowaddnew = value
End Set
End Property
Dim db As clsDB
Dim c1d As New C1.Win.C1TrueDBGrid.C1TrueDBGrid
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.Connectionstring = My.Settings.ConnectionString
Me.c1d = Me.c1daten
If My.Settings.SoftwareType = "PADM" Then
Me.NeuerTarifeintragErstellenToolStripMenuItem.Text = "Neuer Artikel"
Me.TarifBearbeitenToolStripMenuItem.Text = "Artikel bearbeiten"
End If
End Sub
Public Sub get_data()
Try
Try
db = Nothing
Catch ex As Exception
End Try
db = New clsDB
Me.c1daten.DataSource = Nothing
Me.c1daten.DataMember = Nothing
Me.c1daten.DataSource = Nothing
Me.c1daten.DataMember = Nothing
Me.c1daten.Splits(0).DisplayColumns.Clear()
db.dsDaten.Tables.Clear()
If Me.SQL <> "" Then
db.Get_Tabledata(Me.Tablename, "", Me.SQL, "", False)
Else
db.Get_Tabledata(Me.Tablename)
End If
Me.c1daten.DataSource = db.dsDaten
Me.c1daten.DataMember = Tablename
Dim spalten As New Tabellenspalte
spalten.Spaltentitel_aktualisieren(Me.c1daten, Me.Tablename, db.dsDaten.Tables(0))
Me.c1d.ContextMenuStrip = Nothing
Me.c1d.AllowAddNew = True
Me.tsnewdentotar.Visible = False
Select Case Tablename
Case "Auswertung"
Dim printer As New clsPrinter
printer.Get_Printers()
Me.C1TrueDBDropdown1.DataSource = printer.Printers
Me.C1TrueDBDropdown1.DataMember = printer.Printers.Columns(0).ColumnName
Me.C1TrueDBDropdown1.ValueMember = printer.Printers.Columns(0).ColumnName
Me.C1TrueDBDropdown1.DisplayMember = printer.Printers.Columns(0).ColumnName
Me.c1daten.Columns("Drucker").DropDown = Me.C1TrueDBDropdown1
Case "User"
Me.c1d.ContextMenuStrip = Me.ContextMenuStrip1
Case "Tarif"
Me.c1d.ContextMenuStrip = Me.ctxMenuTarif
Me.c1d.AllowAddNew = False
Case "Dentotar"
Me.c1d.ContextMenuStrip = Me.ctxmenuDentotar
Me.c1d.AllowAddNew = False
Me.tsnewdentotar.Visible = True
Case "MailTexte"
Me.c1d.ContextMenuStrip = Me.ctxMenuMailtext
Case "Reporting"
Me.c1d.ContextMenuStrip = Me.ctxmenureporting
Me.AllowDrop = True
Me.c1daten.AllowDrop = True
End Select
If Me.AllowAddNew = False Then
Me.c1daten.AllowAddNew = False
Me.c1daten.AllowUpdate = False
End If
Catch ex As Exception
End Try
End Sub
Public Sub Check_Changes()
Try
Dim ds As New DataSet
ds = c1daten.DataSource
Dim xdata As DataTable = ds.Tables(0).GetChanges
If xdata.Rows.Count > 0 Then
If MsgBox("Daten wurden geändert. Speichern?", vbYesNo + vbQuestion) = vbYes Then
db.Update_Data()
End If
End If
Catch
End Try
End Sub
Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click
Check_Changes()
If Tablename = "Spalten" Then Globals.Spaltendaten.Rows.Clear()
Me.c1daten.DataSource = Nothing
'db.Update_Data()
End Sub
Private Sub clsStammdaten_flat_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles ToolStripButton6.Click
db.Update_Data()
If Tablename = "Spalten" Then Globals.Spaltendaten.Rows.Clear()
Try
IntTables.Inttables.Tables.Remove(Tablename)
Catch ex As Exception
End Try
Try
IntTables.Inttables.Tables.Remove(Tablename)
Catch ex As Exception
End Try
'MsgBox("Daten wurden gespeichert")
End Sub
Private Sub c1daten_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles c1daten.RowColChange
Try
If Tablename = "Auswertung" Then
Me.C1TrueDBDropdown2.DataSource = Nothing
Dim printer As New clsPrinter
printer.Get_Papersources(Me.c1daten.Columns("Drucker").Value.ToString)
Me.C1TrueDBDropdown2.DataSource = printer.Papersources
Me.C1TrueDBDropdown2.DataMember = printer.Papersources.Columns(0).ColumnName
Me.C1TrueDBDropdown2.ValueMember = printer.Papersources.Columns(0).ColumnName
Me.C1TrueDBDropdown2.DisplayMember = printer.Papersources.Columns(1).ColumnName
Me.c1daten.Columns("Papierschacht").DropDown = Me.C1TrueDBDropdown2
End If
Catch
End Try
End Sub
Private Sub NeuerBenutzerEröffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuerBenutzerEröffnenToolStripMenuItem.Click
Dim f As New frmLogin(True)
f.ShowDialog()
get_data()
End Sub
Private Sub ToolStripButton7_Click(sender As Object, e As EventArgs) Handles ToolStripButton7.Click
End Sub
Private Sub c1daten_AfterInsert(sender As Object, e As EventArgs) Handles c1daten.AfterInsert
Try
'Me.c1daten.Columns("erstellt_am").Value = Now
'Me.c1daten.Columns("mutiert_am").Value = Now
'Me.c1daten.Columns("mutierer").Value = Globals.ActUser
'Me.c1daten.Columns("aktiv").Value = True
'Me.c1daten.Columns("Mandant").Value = Globals.Mandant
Catch ex As Exception
End Try
End Sub
Private Sub c1daten_DoubleClick(sender As Object, e As EventArgs) Handles c1daten.DoubleClick
Select Case Tablename
Case "Dentotar"
Try
Dim f As New frmDentotarDetails
f.Update_Data(Me.c1daten.Columns("LeistungNrNeu").Value)
f.TextBox2.Text = Me.c1daten.Columns("LeistungD").Value.ToString
f.TextBox3.Text = Me.c1daten.Columns("Interpretationd").Value.ToString
f.TextBox4.Text = Me.c1daten.Columns("Abrechnungseinheit").Value.ToString
f.TextBox5.Text = Me.c1daten.Columns("Taxpunkte_UV_MV_IV").Value.ToString
f.TextBox6.Text = Me.c1daten.Columns("PP_MIN").Value.ToString
f.TextBox7.Text = Me.c1daten.Columns("PP_Privat").Value.ToString
f.TextBox8.Text = Me.c1daten.Columns("PP_Max").Value.ToString
f.TextBox9.Text = Me.c1daten.Columns("BetragInCHF").Value.ToString
f.ShowDialog()
Me.c1daten.Columns("LeistungNrNeu").Value = f.TextBox1.Text
f.Update_Data(Me.c1daten.Columns("LeistungNrNeu").Value)
Me.c1daten.Columns("LeistungD").Value = f.TextBox2.Text
Me.c1daten.Columns("Interpretationd").Value = f.TextBox3.Text
Me.c1daten.Columns("Abrechnungseinheit").Value = f.TextBox4.Text
Me.c1daten.Columns("Taxpunkte_UV_MV_IV").Value = f.TextBox5.Text
Me.c1daten.Columns("PP_MIN").Value = f.TextBox6.Text
Me.c1daten.Columns("PP_Privat").Value = f.TextBox7.Text
Me.c1daten.Columns("PP_Max").Value = f.TextBox8.Text
Me.c1daten.Columns("BetragInCHF").Value = f.TextBox9.Text
' Me.c1daten.Columns("LeistungD").Value = f.TextBox1.Text
Catch ex As Exception
MsgBox("Ein Fehler bei der Bearbeitung über den Dialog ist aufgetreten: " + ex.Message + vbCrLf + "Bitte Daten direkt in der Tabelle ändern.", vbExclamation)
End Try
Case "Tarif"
If My.Settings.SoftwareType = "PADM" Then
Dim f1 As New TarifDetail_PADM
f1.txtnrtarif.Text = Me.c1daten.Columns("nrtarif").Value
f1.cbboxTarifgruppe.SelectedValue = Me.c1daten.Columns("Nrtarifgruppe").Value
f1.txtNummer.Text = Me.c1daten.Columns("sso_nummer").Value
f1.txtBezd.Text = Me.c1daten.Columns("bezd").Value
'f1.txtBezF.Text = Me.c1daten.Columns("bezf").Value
f1.Handle_RTF(1, Me.c1daten.Columns("bezf").Value)
f1.txtBezi.Text = Me.c1daten.Columns("bezi").Value
f1.txtprivat.Text = Me.c1daten.Columns("privattarif").Value
f1.txtsuva.Text = Me.c1daten.Columns("suvatarif").Value
f1.txtmin.Text = Me.c1daten.Columns("minimaltarif").Value
f1.txtmax.Text = Me.c1daten.Columns("maximaltarif").Value
If Me.c1daten.Columns("MitLabor").Value = 1 Then f1.cbboxmitlabor.Checked = True Else f1.cbboxmitlabor.Checked = False
f1.txtfrankenwert.Text = Me.c1daten.Columns("Frankenbetrag").Value
f1.ShowDialog()
If f1.DialogResult = DialogResult.OK Then
Me.c1daten.Columns("nrtarif").Value = f1.txtnrtarif.Text
Me.c1daten.Columns("Nrtarifgruppe").Value = f1.cbboxTarifgruppe.SelectedValue
Me.c1daten.Columns("sso_nummer").Value = f1.txtNummer.Text
Me.c1daten.Columns("bezd").Value = f1.txtBezd.Text
Me.c1daten.Columns("bezf").Value = f1.Handle_RTF(2, "")
'Me.c1daten.Columns("bezf").Value = f1.txtBezf.Text
Me.c1daten.Columns("bezi").Value = f1.txtBezi.Text
Me.c1daten.Columns("privattarif").Value = f1.txtprivat.Text
Me.c1daten.Columns("suvatarif").Value = f1.txtsuva.Text
Me.c1daten.Columns("minimaltarif").Value = f1.txtmin.Text
Me.c1daten.Columns("maximaltarif").Value = f1.txtmax.Text
If f1.cbboxmitlabor.Checked Then
Me.c1daten.Columns("MitLabor").Value = 1
Else
Me.c1daten.Columns("MitLabor").Value = 0
End If
Me.c1daten.Columns("Frankenbetrag").Value = f1.txtfrankenwert.Text
Me.c1daten.Bookmark = Me.c1daten.Bookmark - 1
ToolStripButton6_Click(sender, e)
Me.c1daten.Bookmark = Me.c1daten.Bookmark + 1
End If
Exit Sub
End If
Dim f As New frmTarifDetail
f.txtnrtarif.Text = Me.c1daten.Columns("nrtarif").Value
f.cbboxTarifgruppe.SelectedValue = Me.c1daten.Columns("Nrtarifgruppe").Value
f.txtNummer.Text = Me.c1daten.Columns("sso_nummer").Value
f.txtBezd.Text = Me.c1daten.Columns("bezd").Value
f.txtBezf.Text = Me.c1daten.Columns("bezf").Value
f.txtBezi.Text = Me.c1daten.Columns("bezi").Value
f.txtprivat.Text = Me.c1daten.Columns("privattarif").Value
f.txtsuva.Text = Me.c1daten.Columns("suvatarif").Value
f.txtmin.Text = Me.c1daten.Columns("minimaltarif").Value
f.txtmax.Text = Me.c1daten.Columns("maximaltarif").Value
If Me.c1daten.Columns("MitLabor").Value = 1 Then f.cbboxmitlabor.Checked = True Else f.cbboxmitlabor.Checked = False
f.txtfrankenwert.Text = Me.c1daten.Columns("Frankenbetrag").Value
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
Me.c1daten.Columns("nrtarif").Value = f.txtnrtarif.Text
Me.c1daten.Columns("Nrtarifgruppe").Value = f.cbboxTarifgruppe.SelectedValue
Me.c1daten.Columns("sso_nummer").Value = f.txtNummer.Text
Me.c1daten.Columns("bezd").Value = f.txtBezd.Text
Me.c1daten.Columns("bezf").Value = f.txtBezf.Text
Me.c1daten.Columns("bezi").Value = f.txtBezi.Text
Me.c1daten.Columns("privattarif").Value = f.txtprivat.Text
Me.c1daten.Columns("suvatarif").Value = f.txtsuva.Text
Me.c1daten.Columns("minimaltarif").Value = f.txtmin.Text
Me.c1daten.Columns("maximaltarif").Value = f.txtmax.Text
If f.cbboxmitlabor.Checked Then
Me.c1daten.Columns("MitLabor").Value = 1
Else
Me.c1daten.Columns("MitLabor").Value = 0
End If
Me.c1daten.Columns("Frankenbetrag").Value = f.txtfrankenwert.Text
End If
End Select
End Sub
Private Sub ContextMenuStrip1_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
End Sub
Private Sub TarifBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TarifBearbeitenToolStripMenuItem.Click
c1daten_DoubleClick(sender, e)
End Sub
Private Sub NeuerTarifeintragErstellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuerTarifeintragErstellenToolStripMenuItem.Click
If My.Settings.SoftwareType = "PADM" Then
Dim f1 As New TarifDetail_PADM
Dim newkey1 As Integer = f1.New_Tarif
f1.Dispose()
get_data()
Dim d1 As DataSet = c1daten.DataSource
Dim i1 As Integer = 0
For Each r As DataRow In d1.Tables(0).Rows
i1 = i1 + 1
If newkey1 = r.Item(0) Then
c1daten.Bookmark = i1
End If
Next
c1daten_DoubleClick(sender, e)
Exit Sub
End If
Dim f As New frmTarifDetail
Dim newkey As Integer = f.New_Tarif
f.Dispose()
get_data()
Dim d As DataSet = c1daten.DataSource
Dim i As Integer = 0
For Each r As DataRow In d.Tables(0).Rows
i = i + 1
If newkey = r.Item(0) Then
c1daten.Bookmark = i
End If
Next
c1daten_DoubleClick(sender, e)
End Sub
Private Sub PasswortÄndernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PasswortÄndernToolStripMenuItem.Click
Dim f As New frmLogin
f.txtUserName.Text = Me.c1daten.Columns("User").Value
f.txtPassword.Text = Me.c1daten.Columns("Passwort").Value
f.Label2.Text = "Neues Passwort"
f.btnLogin.Text = "Speichern"
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
Me.c1d.Columns("Passwort").Value = Crypto.EncryptText(f.txtPassword.Text, "DPM2018")
End If
End Sub
Private Sub TarifBearbeitenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles TarifBearbeitenToolStripMenuItem1.Click
c1daten_DoubleClick(sender, e)
End Sub
Private Sub tsnewdentotar_Click(sender As Object, e As EventArgs) Handles tsnewdentotar.Click
Dim f As New frmDentotarDetail
f.pk = -1
f.TextBox1.Text = "4.xxxx"
f.TextBox2.Text = ""
f.TextBox3.Text = ""
f.TextBox4.Text = ""
f.TextBox5.Text = "CHF"
f.TextBox6.Text = "0.00"
f.TextBox7.Text = "0.00"
f.TextBox8.Text = "0.00"
f.TextBox9.Text = "0.00"
f.TextBox10.Text = "0.00"
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
Dim sql As String
db.Get_Tabledata("Dentotarx", "", "Select * from dentotar where pk=-100", "", False)
Dim r As DataRow = db.dsDaten.Tables(0).NewRow
r.Item(0) = ""
r.Item(1) = 3
r.Item(2) = ""
r.Item(3) = f.TextBox1.Text
r.Item(4) = f.TextBox2.Text
r.Item(5) = f.TextBox4.Text
r.Item(6) = f.TextBox4.Text
r.Item(7) = ""
r.Item(8) = ""
r.Item(9) = ""
r.Item(10) = f.TextBox5.Text
r.Item(11) = f.TextBox6.Text
r.Item(12) = f.TextBox7.Text
r.Item(13) = f.TextBox8.Text
r.Item(14) = f.TextBox9.Text
r.Item(15) = f.TextBox10.Text
db.dsDaten.Tables(0).Rows.Add(r)
'db.dsDaten.Tables(0).AcceptChanges()
db.Update_Data()
get_data()
Dim i As Integer
For i = 0 To Me.c1daten.Splits(0).Rows.Count - 1
Try
If Me.c1daten.Columns("leistungnrneu").CellValue(i) = f.TextBox1.Text Then
Me.c1daten.Bookmark = i
Exit For
End If
Catch
End Try
Next
End If
End Sub
Private Sub c1daten_MouseDown(sender As Object, e As MouseEventArgs) Handles c1daten.MouseDown
c1daten.Bookmark = c1daten.RowContaining(e.Y)
End Sub
Private Sub MailTexteBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MailTexteBearbeitenToolStripMenuItem.Click
Dim f As New frmMailtexte
f.txtBetreff.Text = Me.c1daten.Columns("Betreff").Value
f.txtinhalt.Text = Me.c1daten.Columns("Inhalt").Value
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
Me.c1daten.Columns("Inhalt").Value = f.txtinhalt.Text
Me.c1daten.Columns("Betreff").Value = f.txtBetreff.Text
End If
End Sub
Private Sub SQLBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SQLBearbeitenToolStripMenuItem.Click
Dim f As New frmTexteditor
f.TextBox1.Text = Me.c1daten.Columns("sql").Value
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
Me.c1daten.Columns("SQL").Value = f.TextBox1.Text
End If
End Sub
Private Sub ReportBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ReportBearbeitenToolStripMenuItem.Click
Dim f As New frmTexteditor
f.TextBox1.Text = Me.c1daten.Columns("reportfile").Value
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
Me.c1daten.Columns("reportfile").Value = f.TextBox1.Text
End If
End Sub
Private Sub c1daten_DragDrop(sender As Object, e As DragEventArgs) Handles c1daten.DragDrop
Dim files() As String = e.Data.GetData(DataFormats.FileDrop)
For Each path In files
Dim tb As New TextBox
tb.Text = System.IO.File.ReadAllText(path)
If UCase(System.IO.Path.GetExtension(path)) = ".SQL" Then
Me.c1daten.Columns("SQL").Value = tb.Text
Else
Me.c1daten.Columns("reportfile").Value = tb.Text
End If
tb.Text = ""
tb.Dispose()
Next
End Sub
Private Sub c1daten_DragEnter(sender As Object, e As DragEventArgs) Handles c1daten.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.Copy
End If
End Sub
End Class

@ -15,7 +15,7 @@ Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.5.0.0"), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.10.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
@ -166,7 +166,7 @@ Namespace My
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("DPM")> _
Global.System.Configuration.DefaultSettingValueAttribute("PADM")> _
Public Property SoftwareType() As String
Get
Return CType(Me("SoftwareType"),String)

@ -30,7 +30,7 @@
<Value Profile="(Default)">http://192.168.111.67</Value>
</Setting>
<Setting Name="SoftwareType" Type="System.String" Scope="User">
<Value Profile="(Default)">DPM</Value>
<Value Profile="(Default)">PADM</Value>
</Setting>
</Settings>
</SettingsFile>

@ -46,12 +46,12 @@ Partial Class Patient
Me.btnVTX = New System.Windows.Forms.Button()
Me.PatientDetails1 = New DPM2016.PatientDetails()
Me.Stammdaten = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Behandlung1 = New DPM2016.Behandlung()
Me.Behandlungen = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel8 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.PatientDetailsFirma1 = New DPM2016.PatientDetailsFirma()
Me.Stammdaten_Firma = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Behandlung1 = New DPM2016.Behandlung()
Me.Behandlungen = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel5 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Finanzen1 = New DPM2016.Finanzen()
Me.Finanzen = New DevComponents.DotNetBar.SuperTabItem()
@ -75,8 +75,8 @@ Partial Class Patient
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuperTabControl1.SuspendLayout()
Me.SuperTabControlPanel1.SuspendLayout()
Me.SuperTabControlPanel3.SuspendLayout()
Me.SuperTabControlPanel8.SuspendLayout()
Me.SuperTabControlPanel3.SuspendLayout()
Me.SuperTabControlPanel5.SuspendLayout()
Me.SuperTabControlPanel4.SuspendLayout()
Me.SuperTabControlPanel7.SuspendLayout()
@ -237,6 +237,7 @@ Partial Class Patient
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(24, 24)
Me.ToolStripButton1.Text = "ToolStripButton1"
Me.ToolStripButton1.Visible = False
'
'SuperTabControl1
'
@ -254,8 +255,8 @@ Partial Class Patient
Me.SuperTabControl1.ControlBox.Name = ""
Me.SuperTabControl1.ControlBox.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.SuperTabControl1.ControlBox.MenuBox, Me.SuperTabControl1.ControlBox.CloseBox})
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel1)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel8)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel5)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel4)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel7)
@ -312,35 +313,6 @@ Partial Class Patient
Me.Stammdaten.Name = "Stammdaten"
Me.Stammdaten.Text = "Stammdaten"
'
'SuperTabControlPanel3
'
Me.SuperTabControlPanel3.Controls.Add(Me.Behandlung1)
Me.SuperTabControlPanel3.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel3.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel3.Name = "SuperTabControlPanel3"
Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1278, 610)
Me.SuperTabControlPanel3.TabIndex = 0
Me.SuperTabControlPanel3.TabItem = Me.Behandlungen
'
'Behandlung1
'
Me.Behandlung1.Auftragsmanagement = False
Me.Behandlung1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Behandlung1.HasChanges = False
Me.Behandlung1.Location = New System.Drawing.Point(0, 0)
Me.Behandlung1.Margin = New System.Windows.Forms.Padding(4)
Me.Behandlung1.Name = "Behandlung1"
Me.Behandlung1.PatientNr = 0
Me.Behandlung1.Size = New System.Drawing.Size(1278, 610)
Me.Behandlung1.TabIndex = 0
'
'Behandlungen
'
Me.Behandlungen.AttachedControl = Me.SuperTabControlPanel3
Me.Behandlungen.GlobalItem = False
Me.Behandlungen.Name = "Behandlungen"
Me.Behandlungen.Text = "Behandlungen"
'
'SuperTabControlPanel8
'
Me.SuperTabControlPanel8.Controls.Add(Me.PatientDetailsFirma1)
@ -371,6 +343,35 @@ Partial Class Patient
Me.Stammdaten_Firma.Name = "Stammdaten_Firma"
Me.Stammdaten_Firma.Text = "Stammdaten"
'
'SuperTabControlPanel3
'
Me.SuperTabControlPanel3.Controls.Add(Me.Behandlung1)
Me.SuperTabControlPanel3.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel3.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel3.Name = "SuperTabControlPanel3"
Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1278, 610)
Me.SuperTabControlPanel3.TabIndex = 0
Me.SuperTabControlPanel3.TabItem = Me.Behandlungen
'
'Behandlung1
'
Me.Behandlung1.Auftragsmanagement = False
Me.Behandlung1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Behandlung1.HasChanges = False
Me.Behandlung1.Location = New System.Drawing.Point(0, 0)
Me.Behandlung1.Margin = New System.Windows.Forms.Padding(4)
Me.Behandlung1.Name = "Behandlung1"
Me.Behandlung1.PatientNr = 0
Me.Behandlung1.Size = New System.Drawing.Size(1278, 610)
Me.Behandlung1.TabIndex = 0
'
'Behandlungen
'
Me.Behandlungen.AttachedControl = Me.SuperTabControlPanel3
Me.Behandlungen.GlobalItem = False
Me.Behandlungen.Name = "Behandlungen"
Me.Behandlungen.Text = "Behandlungen"
'
'SuperTabControlPanel5
'
Me.SuperTabControlPanel5.Controls.Add(Me.Finanzen1)
@ -562,8 +563,8 @@ Partial Class Patient
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SuperTabControl1.ResumeLayout(False)
Me.SuperTabControlPanel1.ResumeLayout(False)
Me.SuperTabControlPanel3.ResumeLayout(False)
Me.SuperTabControlPanel8.ResumeLayout(False)
Me.SuperTabControlPanel3.ResumeLayout(False)
Me.SuperTabControlPanel5.ResumeLayout(False)
Me.SuperTabControlPanel4.ResumeLayout(False)
Me.SuperTabControlPanel7.ResumeLayout(False)

@ -422,4 +422,7 @@
End Sub
Private Sub ToolStripButton1_Click_1(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
End Sub
End Class

File diff suppressed because it is too large Load Diff

@ -1,120 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

@ -24,6 +24,10 @@ Public Class PatientDetails
Catch ex As Exception
log.Writelog("Partnerdetails: Property PatientNr: " + ex.Message, clsLog.Logtype.ApplError)
End Try
If Globals.DruckBranche Or Globals.Applicationtype = ApplicationTypes.Auftragsadministration Then
Me.Label13.Visible = False
Me.chklbAdresstyp.Visible = False
End If
Me.ResumeLayout()
End Set
End Property

@ -0,0 +1,354 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmPrivatAnsprechpartner
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.txtMutierer = New System.Windows.Forms.TextBox()
Me.txtMutiert_am = New System.Windows.Forms.TextBox()
Me.txtErstellt_am = New System.Windows.Forms.TextBox()
Me.Label18 = New System.Windows.Forms.Label()
Me.Label17 = New System.Windows.Forms.Label()
Me.Label16 = New System.Windows.Forms.Label()
Me.txtBemerkung = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtadresse1 = New System.Windows.Forms.TextBox()
Me.lblCO = New System.Windows.Forms.Label()
Me.txtadresse2 = New System.Windows.Forms.TextBox()
Me.lblStrasse = New System.Windows.Forms.Label()
Me.txtPLZ = New System.Windows.Forms.TextBox()
Me.lblPLZOrt = New System.Windows.Forms.Label()
Me.txtOrt = New System.Windows.Forms.TextBox()
Me.txttelp = New System.Windows.Forms.TextBox()
Me.lblTelefon = New System.Windows.Forms.Label()
Me.lblemail = New System.Windows.Forms.Label()
Me.txtE_Mail = New System.Windows.Forms.TextBox()
Me.txtName = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.txtadresse3 = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtstrasse = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.SuspendLayout()
'
'txtMutierer
'
Me.txtMutierer.Location = New System.Drawing.Point(91, 406)
Me.txtMutierer.Name = "txtMutierer"
Me.txtMutierer.ReadOnly = True
Me.txtMutierer.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.txtMutierer.Size = New System.Drawing.Size(135, 20)
Me.txtMutierer.TabIndex = 295
'
'txtMutiert_am
'
Me.txtMutiert_am.Location = New System.Drawing.Point(91, 382)
Me.txtMutiert_am.Name = "txtMutiert_am"
Me.txtMutiert_am.ReadOnly = True
Me.txtMutiert_am.Size = New System.Drawing.Size(135, 20)
Me.txtMutiert_am.TabIndex = 294
'
'txtErstellt_am
'
Me.txtErstellt_am.Location = New System.Drawing.Point(91, 360)
Me.txtErstellt_am.Name = "txtErstellt_am"
Me.txtErstellt_am.ReadOnly = True
Me.txtErstellt_am.Size = New System.Drawing.Size(135, 20)
Me.txtErstellt_am.TabIndex = 293
'
'Label18
'
Me.Label18.AutoSize = True
Me.Label18.BackColor = System.Drawing.Color.Transparent
Me.Label18.Location = New System.Drawing.Point(21, 406)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(45, 13)
Me.Label18.TabIndex = 292
Me.Label18.Text = "Mutierer"
'
'Label17
'
Me.Label17.AutoSize = True
Me.Label17.BackColor = System.Drawing.Color.Transparent
Me.Label17.Location = New System.Drawing.Point(21, 384)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(56, 13)
Me.Label17.TabIndex = 291
Me.Label17.Text = "Mutiert am"
'
'Label16
'
Me.Label16.AutoSize = True
Me.Label16.BackColor = System.Drawing.Color.Transparent
Me.Label16.Location = New System.Drawing.Point(22, 363)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(55, 13)
Me.Label16.TabIndex = 290
Me.Label16.Text = "Erstellt am"
'
'txtBemerkung
'
Me.txtBemerkung.Location = New System.Drawing.Point(91, 288)
Me.txtBemerkung.Multiline = True
Me.txtBemerkung.Name = "txtBemerkung"
Me.txtBemerkung.Size = New System.Drawing.Size(326, 66)
Me.txtBemerkung.TabIndex = 9
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.BackColor = System.Drawing.Color.Transparent
Me.Label2.Location = New System.Drawing.Point(20, 291)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(61, 13)
Me.Label2.TabIndex = 289
Me.Label2.Text = "Bemerkung"
'
'txtadresse1
'
Me.txtadresse1.Location = New System.Drawing.Point(91, 84)
Me.txtadresse1.Name = "txtadresse1"
Me.txtadresse1.Size = New System.Drawing.Size(228, 20)
Me.txtadresse1.TabIndex = 1
'
'lblCO
'
Me.lblCO.AutoSize = True
Me.lblCO.BackColor = System.Drawing.Color.Transparent
Me.lblCO.Location = New System.Drawing.Point(20, 87)
Me.lblCO.Name = "lblCO"
Me.lblCO.Size = New System.Drawing.Size(54, 13)
Me.lblCO.TabIndex = 284
Me.lblCO.Text = "Adresse 1"
'
'txtadresse2
'
Me.txtadresse2.Location = New System.Drawing.Point(91, 108)
Me.txtadresse2.Name = "txtadresse2"
Me.txtadresse2.Size = New System.Drawing.Size(228, 20)
Me.txtadresse2.TabIndex = 2
'
'lblStrasse
'
Me.lblStrasse.AutoSize = True
Me.lblStrasse.BackColor = System.Drawing.Color.Transparent
Me.lblStrasse.Location = New System.Drawing.Point(20, 115)
Me.lblStrasse.Name = "lblStrasse"
Me.lblStrasse.Size = New System.Drawing.Size(54, 13)
Me.lblStrasse.TabIndex = 285
Me.lblStrasse.Text = "Adresse 2"
'
'txtPLZ
'
Me.txtPLZ.Location = New System.Drawing.Point(91, 189)
Me.txtPLZ.Name = "txtPLZ"
Me.txtPLZ.Size = New System.Drawing.Size(48, 20)
Me.txtPLZ.TabIndex = 5
'
'lblPLZOrt
'
Me.lblPLZOrt.AutoSize = True
Me.lblPLZOrt.BackColor = System.Drawing.Color.Transparent
Me.lblPLZOrt.Location = New System.Drawing.Point(20, 193)
Me.lblPLZOrt.Name = "lblPLZOrt"
Me.lblPLZOrt.Size = New System.Drawing.Size(46, 13)
Me.lblPLZOrt.TabIndex = 286
Me.lblPLZOrt.Text = "PLZ/Ort"
'
'txtOrt
'
Me.txtOrt.Location = New System.Drawing.Point(145, 189)
Me.txtOrt.Name = "txtOrt"
Me.txtOrt.Size = New System.Drawing.Size(174, 20)
Me.txtOrt.TabIndex = 6
'
'txttelp
'
Me.txttelp.Location = New System.Drawing.Point(91, 223)
Me.txttelp.Name = "txttelp"
Me.txttelp.Size = New System.Drawing.Size(228, 20)
Me.txttelp.TabIndex = 7
'
'lblTelefon
'
Me.lblTelefon.AutoSize = True
Me.lblTelefon.BackColor = System.Drawing.Color.Transparent
Me.lblTelefon.Location = New System.Drawing.Point(20, 226)
Me.lblTelefon.Name = "lblTelefon"
Me.lblTelefon.Size = New System.Drawing.Size(43, 13)
Me.lblTelefon.TabIndex = 287
Me.lblTelefon.Text = "Telefon"
'
'lblemail
'
Me.lblemail.AutoSize = True
Me.lblemail.BackColor = System.Drawing.Color.Transparent
Me.lblemail.Location = New System.Drawing.Point(20, 255)
Me.lblemail.Name = "lblemail"
Me.lblemail.Size = New System.Drawing.Size(36, 13)
Me.lblemail.TabIndex = 288
Me.lblemail.Text = "E-Mail"
'
'txtE_Mail
'
Me.txtE_Mail.Location = New System.Drawing.Point(91, 252)
Me.txtE_Mail.Name = "txtE_Mail"
Me.txtE_Mail.Size = New System.Drawing.Size(228, 20)
Me.txtE_Mail.TabIndex = 8
'
'txtName
'
Me.txtName.Location = New System.Drawing.Point(91, 33)
Me.txtName.Name = "txtName"
Me.txtName.Size = New System.Drawing.Size(228, 20)
Me.txtName.TabIndex = 0
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.BackColor = System.Drawing.Color.Transparent
Me.Label1.Location = New System.Drawing.Point(20, 36)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(35, 13)
Me.Label1.TabIndex = 297
Me.Label1.Text = "Name"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(25, 449)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 10
Me.Button1.Text = "Speichern"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(355, 449)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 11
Me.Button2.Text = "Abbruch"
Me.Button2.UseVisualStyleBackColor = True
'
'txtadresse3
'
Me.txtadresse3.Location = New System.Drawing.Point(91, 137)
Me.txtadresse3.Name = "txtadresse3"
Me.txtadresse3.Size = New System.Drawing.Size(228, 20)
Me.txtadresse3.TabIndex = 3
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.BackColor = System.Drawing.Color.Transparent
Me.Label3.Location = New System.Drawing.Point(20, 141)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(54, 13)
Me.Label3.TabIndex = 302
Me.Label3.Text = "Adresse 3"
'
'txtstrasse
'
Me.txtstrasse.Location = New System.Drawing.Point(91, 163)
Me.txtstrasse.Name = "txtstrasse"
Me.txtstrasse.Size = New System.Drawing.Size(228, 20)
Me.txtstrasse.TabIndex = 4
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.BackColor = System.Drawing.Color.Transparent
Me.Label4.Location = New System.Drawing.Point(20, 167)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(67, 13)
Me.Label4.TabIndex = 304
Me.Label4.Text = "Strasse / Nr."
'
'frmPrivatAnsprechpartner
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(442, 494)
Me.Controls.Add(Me.txtstrasse)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.txtadresse3)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.txtName)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txtMutierer)
Me.Controls.Add(Me.txtMutiert_am)
Me.Controls.Add(Me.txtErstellt_am)
Me.Controls.Add(Me.Label18)
Me.Controls.Add(Me.Label17)
Me.Controls.Add(Me.Label16)
Me.Controls.Add(Me.txtBemerkung)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.txtadresse1)
Me.Controls.Add(Me.lblCO)
Me.Controls.Add(Me.txtadresse2)
Me.Controls.Add(Me.lblStrasse)
Me.Controls.Add(Me.txtPLZ)
Me.Controls.Add(Me.lblPLZOrt)
Me.Controls.Add(Me.txtOrt)
Me.Controls.Add(Me.txttelp)
Me.Controls.Add(Me.lblTelefon)
Me.Controls.Add(Me.lblemail)
Me.Controls.Add(Me.txtE_Mail)
Me.Name = "frmPrivatAnsprechpartner"
Me.Text = "Ansprechpartner-Adressen"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents txtMutierer As TextBox
Friend WithEvents txtMutiert_am As TextBox
Friend WithEvents txtErstellt_am As TextBox
Friend WithEvents Label18 As Label
Friend WithEvents Label17 As Label
Friend WithEvents Label16 As Label
Friend WithEvents txtBemerkung As TextBox
Friend WithEvents Label2 As Label
Friend WithEvents txtadresse1 As TextBox
Friend WithEvents lblCO As Label
Friend WithEvents txtadresse2 As TextBox
Friend WithEvents lblStrasse As Label
Friend WithEvents txtPLZ As TextBox
Friend WithEvents lblPLZOrt As Label
Friend WithEvents txtOrt As TextBox
Friend WithEvents txttelp As TextBox
Friend WithEvents lblTelefon As Label
Friend WithEvents lblemail As Label
Friend WithEvents txtE_Mail As TextBox
Friend WithEvents txtName As TextBox
Friend WithEvents Label1 As Label
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
Friend WithEvents txtadresse3 As TextBox
Friend WithEvents Label3 As Label
Friend WithEvents txtstrasse As TextBox
Friend WithEvents Label4 As Label
End Class

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

@ -0,0 +1,105 @@
Public Class frmPrivatAnsprechpartner
Dim db As New clsDB
Dim m_nrprivat As Integer
Property nrprivat As Integer
Get
Return m_nrprivat
End Get
Set(value As Integer)
m_nrprivat = value
End Set
End Property
Dim m_id As Integer
Property id As Integer
Get
Return m_id
End Get
Set(value As Integer)
m_id = value
End Set
End Property
Dim m_isnew As Boolean
Property is_new As Boolean
Get
Return m_isnew
End Get
Set(value As Boolean)
m_isnew = value
End Set
End Property
Private Sub frmPrivatAnsprechpartner_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If id > 0 Then
db.Get_Tabledata("Ansprechpartner", "", "Select * from privat_ansprechpartner where id=" + Me.id.ToString)
Fill_Form()
End If
If is_new Then
db.Get_Tabledata("Ansprechpartner", "", "Select top 1 * from privat_ansprechpartner order by id desc")
Dim idnew As Integer
If db.dsDaten.Tables(0).Rows.Count = 0 Then idnew = 1 Else idnew = db.dsDaten.Tables(0).Rows(0).Item(0) + 1
Me.id = idnew
db.Exec_SQL("Insert Privat_Ansprechpartner (id,nrprivat, erstellt_am, mutiert_am, mutierer,aktiv) values(" + idnew.ToString + "," + Me.nrprivat.ToString + ",'" + Now.ToString + "','" + Now.ToString + "'," + Globals.ActUser.ToString + ",1)")
db.Get_Tabledata("Ansprechpartner", "", "Select * from privat_ansprechpartner where id=" + Me.id.ToString)
Me.txtName.Text = ""
Me.txtadresse1.Text = ""
Me.txtadresse2.Text = ""
Me.txtPLZ.Text = ""
Me.txtOrt.Text = ""
Me.txttelp.Text = ""
Me.txtE_Mail.Text = ""
Me.txtBemerkung.Text = ""
Me.txtErstellt_am.Text = Now.ToString
Me.txtMutiert_am.Text = Now.ToString
Me.txtMutierer.Text = Globals.ActUser
Me.id = idnew
update_data()
End If
End Sub
Private Sub Fill_Form()
Me.txtName.Text = db.dsDaten.Tables(0).Rows(0).Item("Name")
Me.txtadresse1.Text = db.dsDaten.Tables(0).Rows(0).Item("Adresse1")
Me.txtadresse2.Text = db.dsDaten.Tables(0).Rows(0).Item("adresse2")
Me.txtadresse3.Text = db.dsDaten.Tables(0).Rows(0).Item("adresse3")
Me.txtstrasse.Text = db.dsDaten.Tables(0).Rows(0).Item("strasse")
Me.txtPLZ.Text = db.dsDaten.Tables(0).Rows(0).Item("plz")
Me.txtOrt.Text = db.dsDaten.Tables(0).Rows(0).Item("ort")
Me.txttelp.Text = db.dsDaten.Tables(0).Rows(0).Item("telefon")
Me.txtE_Mail.Text = db.dsDaten.Tables(0).Rows(0).Item("email")
Me.txtBemerkung.Text = db.dsDaten.Tables(0).Rows(0).Item("bemerkung")
Me.txtErstellt_am.Text = db.dsDaten.Tables(0).Rows(0).Item("erstellt_am").ToString
Me.txtMutiert_am.Text = db.dsDaten.Tables(0).Rows(0).Item("mutiert_am").ToString
Me.txtMutierer.Text = db.dsDaten.Tables(0).Rows(0).Item("mutierer").ToString
End Sub
Sub update_data()
db.dsDaten.Tables(0).Rows(0).Item("Name") = Me.txtName.Text
db.dsDaten.Tables(0).Rows(0).Item("Adresse1") = Me.txtadresse1.Text
db.dsDaten.Tables(0).Rows(0).Item("adresse2") = Me.txtadresse2.Text
db.dsDaten.Tables(0).Rows(0).Item("adresse3") = Me.txtadresse3.Text
db.dsDaten.Tables(0).Rows(0).Item("strasse") = Me.txtstrasse.Text
db.dsDaten.Tables(0).Rows(0).Item("plz") = Me.txtPLZ.Text
db.dsDaten.Tables(0).Rows(0).Item("ort") = Me.txtOrt.Text
db.dsDaten.Tables(0).Rows(0).Item("telefon") = Me.txttelp.Text
db.dsDaten.Tables(0).Rows(0).Item("email") = Me.txtE_Mail.Text
db.dsDaten.Tables(0).Rows(0).Item("bemerkung") = Me.txtBemerkung.Text
db.dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.ActUser
db.dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
db.Update_Data()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
update_data()
Me.DialogResult = DialogResult.OK
Me.Close()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.DialogResult = DialogResult.Cancel
Me.Close()
End Sub
End Class

@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class PatientDetailsFirma
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
@ -20,8 +20,9 @@ Partial Class PatientDetailsFirma
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.chkMail_Kommunikation = New System.Windows.Forms.CheckBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.txtZSR = New System.Windows.Forms.TextBox()
@ -86,6 +87,9 @@ Partial Class PatientDetailsFirma
Me.lblTitel = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.NeuerAnsprechpartnerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ClsStammdaten_flat1 = New DPM2016.clsStammdaten_flat()
Me.cbboxNRArbeitgeber = New DPM2016.MyCombobox()
Me.cbboxGeschlecht = New DPM2016.MyCombobox()
@ -93,6 +97,7 @@ Partial Class PatientDetailsFirma
Me.cbboxStatus = New DPM2016.MyCombobox()
Me.cbboxNRTitel = New DPM2016.MyCombobox()
Me.cbboxNrAnrede = New DPM2016.MyCombobox()
Me.ContextMenuStrip1.SuspendLayout()
Me.SuspendLayout()
'
'chkMail_Kommunikation
@ -696,7 +701,6 @@ Partial Class PatientDetailsFirma
Me.Label5.Size = New System.Drawing.Size(55, 13)
Me.Label5.TabIndex = 282
Me.Label5.Text = "Ansprech-"
Me.Label5.Visible = False
'
'Label6
'
@ -707,19 +711,37 @@ Partial Class PatientDetailsFirma
Me.Label6.Size = New System.Drawing.Size(41, 13)
Me.Label6.TabIndex = 283
Me.Label6.Text = "Partner"
Me.Label6.Visible = False
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeuerAnsprechpartnerToolStripMenuItem, Me.BearbeitenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(198, 48)
'
'NeuerAnsprechpartnerToolStripMenuItem
'
Me.NeuerAnsprechpartnerToolStripMenuItem.Name = "NeuerAnsprechpartnerToolStripMenuItem"
Me.NeuerAnsprechpartnerToolStripMenuItem.Size = New System.Drawing.Size(197, 22)
Me.NeuerAnsprechpartnerToolStripMenuItem.Text = "Neuer Ansprechpartner"
'
'BearbeitenToolStripMenuItem
'
Me.BearbeitenToolStripMenuItem.Name = "BearbeitenToolStripMenuItem"
Me.BearbeitenToolStripMenuItem.Size = New System.Drawing.Size(197, 22)
Me.BearbeitenToolStripMenuItem.Text = "Bearbeiten"
'
'ClsStammdaten_flat1
'
Me.ClsStammdaten_flat1.AllowAddNew = True
Me.ClsStammdaten_flat1.Connectionstring = "data source=shu00;initial catalog=SHUB_PADM;persist security info=false;workstati" &
"on id=;packet size=4096;user id=sa;password=*shu29"
Me.ClsStammdaten_flat1.ContextMenuStrip = Me.ContextMenuStrip1
Me.ClsStammdaten_flat1.Location = New System.Drawing.Point(79, 336)
Me.ClsStammdaten_flat1.Name = "ClsStammdaten_flat1"
Me.ClsStammdaten_flat1.Size = New System.Drawing.Size(634, 119)
Me.ClsStammdaten_flat1.Size = New System.Drawing.Size(634, 178)
Me.ClsStammdaten_flat1.SQL = ""
Me.ClsStammdaten_flat1.TabIndex = 281
Me.ClsStammdaten_flat1.Tablename = Nothing
Me.ClsStammdaten_flat1.Visible = False
'
'cbboxNRArbeitgeber
'
@ -876,9 +898,10 @@ Partial Class PatientDetailsFirma
Me.Controls.Add(Me.lblNr)
Me.Controls.Add(Me.lblAnrede)
Me.Controls.Add(Me.lblTitel)
Me.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2)
Me.Margin = New System.Windows.Forms.Padding(2)
Me.Name = "PatientDetailsFirma"
Me.Size = New System.Drawing.Size(729, 477)
Me.Size = New System.Drawing.Size(729, 535)
Me.ContextMenuStrip1.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
@ -955,4 +978,7 @@ Partial Class PatientDetailsFirma
Friend WithEvents ClsStammdaten_flat1 As clsStammdaten_flat
Friend WithEvents Label5 As Label
Friend WithEvents Label6 As Label
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents NeuerAnsprechpartnerToolStripMenuItem As ToolStripMenuItem
Friend WithEvents BearbeitenToolStripMenuItem As ToolStripMenuItem
End Class

@ -117,4 +117,7 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

@ -23,6 +23,8 @@ Public Class PatientDetailsFirma
Catch ex As Exception
log.Writelog("Partnerdetails: Property PatientNr: " + ex.Message, clsLog.Logtype.ApplError)
End Try
Me.Label13.Visible = False
Me.chklbAdresstyp.Visible = False
Me.ResumeLayout()
End Set
End Property
@ -383,6 +385,10 @@ Public Class PatientDetailsFirma
End If
Next
Me.ClsStammdaten_flat1.SQL = "Select * from privat_ansprechpartner where nrprivat=" + Me.PatientNr.ToString
Me.ClsStammdaten_flat1.AllowAddNew = False
Me.ClsStammdaten_flat1.Tablename = "Privat_Ansprechpartner"
Me.ClsStammdaten_flat1.get_data()
Catch ex As Exception
log.Writelog("Privatdetails: Get_Data: " + ctlname + " / " + colname + " " + ex.Message, clsLog.Logtype.ApplError)
End Try
@ -565,4 +571,26 @@ Public Class PatientDetailsFirma
Private Sub txtName_TextChanged(sender As Object, e As EventArgs) Handles txtName.TextChanged
End Sub
Private Sub ClsStammdaten_flat1_Load(sender As Object, e As EventArgs) Handles ClsStammdaten_flat1.Load
End Sub
Private Sub NeuerAnsprechpartnerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuerAnsprechpartnerToolStripMenuItem.Click
Dim f As New frmPrivatAnsprechpartner
f.is_new = True
f.id = 0
f.nrprivat = txtnrprivat.Text
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then Me.ClsStammdaten_flat1.get_data()
End Sub
Private Sub BearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BearbeitenToolStripMenuItem.Click
Dim f As New frmPrivatAnsprechpartner
f.is_new = False
f.id = Me.ClsStammdaten_flat1.c1daten.Columns(0).Value
f.nrprivat = txtnrprivat.Text
f.ShowDialog()
End Sub
End Class

@ -1,45 +1,45 @@
Imports System.Threading
Module Program
Public splashForm As SplashForm = Nothing
Public Sub Main()
Application.EnableVisualStyles()
Application.SetCompatibleTextRenderingDefault(False)
Dim mainForm As Form = New frmMain
AddHandler mainForm.Load, AddressOf mainForm_Load
Dim splashThread As New Thread(New ThreadStart(Sub()
splashForm = New SplashForm()
Application.Run(splashForm)
End Sub))
splashThread.SetApartmentState(ApartmentState.STA)
'splashThread.Start()
Application.Run(mainForm)
mainForm.BringToFront()
End Sub
Private Sub mainForm_Load(sender As Object, e As EventArgs)
If splashForm Is Nothing Then
Return
End If
Try
splashForm.Invoke(Sub() splashForm.Close())
Catch
End Try
splashForm.Dispose()
splashForm = Nothing
End Sub
End Module
Imports System.Threading
Module Program
Public splashForm As SplashForm = Nothing
Public Sub Main()
Application.EnableVisualStyles()
Application.SetCompatibleTextRenderingDefault(False)
Dim mainForm As Form = New frmMain
AddHandler mainForm.Load, AddressOf mainForm_Load
Dim splashThread As New Thread(New ThreadStart(Sub()
splashForm = New SplashForm()
Application.Run(splashForm)
End Sub))
splashThread.SetApartmentState(ApartmentState.STA)
splashThread.Start()
Application.Run(mainForm)
mainForm.BringToFront()
End Sub
Private Sub mainForm_Load(sender As Object, e As EventArgs)
If splashForm Is Nothing Then
Return
End If
Try
splashForm.Invoke(Sub() splashForm.Close())
Catch
End Try
splashForm.Dispose()
splashForm = Nothing
End Sub
End Module

@ -1,300 +1,304 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmStammdaten
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim TreeNode1 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Konto")
Dim TreeNode2 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Finanzen", New System.Windows.Forms.TreeNode() {TreeNode1})
Dim TreeNode3 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Anreden")
Dim TreeNode4 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Titel")
Dim TreeNode5 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Orte")
Dim TreeNode6 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Status")
Dim TreeNode7 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Patienten", New System.Windows.Forms.TreeNode() {TreeNode3, TreeNode4, TreeNode5, TreeNode6})
Dim TreeNode8 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Tarif")
Dim TreeNode9 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Tarife")
Dim TreeNode10 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("TarifGruppe")
Dim TreeNode11 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Taxpunkte")
Dim TreeNode12 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Tarifpakete")
Dim TreeNode13 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Paketpositionen")
Dim TreeNode14 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Dentotar")
Dim TreeNode15 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Dentotar_Parameter")
Dim TreeNode16 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Zahntechnik (223)")
Dim TreeNode17 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Tarif", New System.Windows.Forms.TreeNode() {TreeNode8, TreeNode9, TreeNode10, TreeNode11, TreeNode12, TreeNode13, TreeNode14, TreeNode15, TreeNode16})
Dim TreeNode18 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Ansatz")
Dim TreeNode19 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Abrechnungstyp")
Dim TreeNode20 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Formulartyp / Einzahlungsschein")
Dim TreeNode21 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Rechnungstyp")
Dim TreeNode22 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Standards")
Dim TreeNode23 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Rechnungstexte")
Dim TreeNode24 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Abrechnung", New System.Windows.Forms.TreeNode() {TreeNode18, TreeNode19, TreeNode20, TreeNode21, TreeNode22, TreeNode23})
Dim TreeNode25 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Behandlungsart")
Dim TreeNode26 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Gesetz")
Dim TreeNode27 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Diverse Stammdaten", New System.Windows.Forms.TreeNode() {TreeNode25, TreeNode26})
Dim TreeNode28 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Auswertung")
Dim TreeNode29 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Reporting")
Dim TreeNode30 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Auswertung_Statistiken", New System.Windows.Forms.TreeNode() {TreeNode28, TreeNode29})
Dim TreeNode31 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Einstellungen")
Dim TreeNode32 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Struktur")
Dim TreeNode33 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("DokumentManagement", New System.Windows.Forms.TreeNode() {TreeNode31, TreeNode32})
Dim TreeNode34 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Spalten")
Dim TreeNode35 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Options")
Dim TreeNode36 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("User")
Dim TreeNode37 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Absender")
Dim TreeNode38 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Konto-Angaben")
Dim TreeNode39 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("MailTexte")
Dim TreeNode40 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("MailTexte_Replacer")
Dim TreeNode41 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Diverse", New System.Windows.Forms.TreeNode() {TreeNode34, TreeNode35, TreeNode36, TreeNode37, TreeNode38, TreeNode39, TreeNode40})
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStammdaten))
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.SchliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DentotarImportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TreeView1 = New System.Windows.Forms.TreeView()
Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ClsStammdaten_Bez1 = New DPM2016.clsStammdaten_Bez()
Me.ClsStammdaten_flat1 = New DPM2016.clsStammdaten_flat()
Me.MenuStrip1.SuspendLayout()
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'MenuStrip1
'
Me.MenuStrip1.AllowMerge = False
Me.MenuStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SchliessenToolStripMenuItem, Me.DentotarImportToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Padding = New System.Windows.Forms.Padding(5, 2, 0, 2)
Me.MenuStrip1.Size = New System.Drawing.Size(1276, 28)
Me.MenuStrip1.TabIndex = 0
Me.MenuStrip1.Text = "MenuStrip1"
'
'SchliessenToolStripMenuItem
'
Me.SchliessenToolStripMenuItem.Name = "SchliessenToolStripMenuItem"
Me.SchliessenToolStripMenuItem.Size = New System.Drawing.Size(90, 24)
Me.SchliessenToolStripMenuItem.Text = "&Schliessen"
'
'DentotarImportToolStripMenuItem
'
Me.DentotarImportToolStripMenuItem.Name = "DentotarImportToolStripMenuItem"
Me.DentotarImportToolStripMenuItem.Size = New System.Drawing.Size(133, 24)
Me.DentotarImportToolStripMenuItem.Text = "Dentotar-Import"
'
'TreeView1
'
Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Left
Me.TreeView1.Location = New System.Drawing.Point(0, 28)
Me.TreeView1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.TreeView1.Name = "TreeView1"
TreeNode1.Name = "Konto"
TreeNode1.Text = "Konto"
TreeNode2.Name = "Knoten0"
TreeNode2.Text = "Finanzen"
TreeNode3.Name = "Anrede"
TreeNode3.Text = "Anreden"
TreeNode4.Name = "Titel"
TreeNode4.Text = "Titel"
TreeNode5.Name = "Orte"
TreeNode5.Tag = "Demo"
TreeNode5.Text = "Orte"
TreeNode6.Name = "Status"
TreeNode6.Text = "Status"
TreeNode7.Name = "Knoten7"
TreeNode7.Text = "Patienten"
TreeNode8.Name = "Tarif"
TreeNode8.Tag = "Demo"
TreeNode8.Text = "Tarif"
TreeNode9.Name = "Tarife"
TreeNode9.Text = "Tarife"
TreeNode10.Name = "tarifgrp"
TreeNode10.Text = "TarifGruppe"
TreeNode11.Name = "Taxpunkt"
TreeNode11.Text = "Taxpunkte"
TreeNode12.Name = "Tarpaket"
TreeNode12.Text = "Tarifpakete"
TreeNode13.Name = "Paketpositionen"
TreeNode13.Tag = "nrpaket;paketbezeichnung;nrtarif;sso_nummer;TarPaket;Tarif;Paketpos"
TreeNode13.Text = "Paketpositionen"
TreeNode14.Name = "Dentotar"
TreeNode14.Tag = "Demo"
TreeNode14.Text = "Dentotar"
TreeNode15.Name = "Dentotar_Parameter"
TreeNode15.Tag = "Demo"
TreeNode15.Text = "Dentotar_Parameter"
TreeNode16.Name = "Dentotar_223"
TreeNode16.Text = "Zahntechnik (223)"
TreeNode17.Name = "Knoten8"
TreeNode17.Text = "Tarif"
TreeNode18.Name = "Ansatz"
TreeNode18.Tag = "Demo"
TreeNode18.Text = "Ansatz"
TreeNode19.Name = "Abrtyp"
TreeNode19.Text = "Abrechnungstyp"
TreeNode20.Name = "ESTyp"
TreeNode20.Text = "Formulartyp / Einzahlungsschein"
TreeNode21.Name = "RGTyp"
TreeNode21.Text = "Rechnungstyp"
TreeNode22.Name = "Standards"
TreeNode22.Text = "Standards"
TreeNode23.Name = "Rechtext"
TreeNode23.Text = "Rechnungstexte"
TreeNode24.Name = "Knoten14"
TreeNode24.Text = "Abrechnung"
TreeNode25.Name = "Behandlungsart"
TreeNode25.Text = "Behandlungsart"
TreeNode26.Name = "Gesetz"
TreeNode26.Tag = "Demo"
TreeNode26.Text = "Gesetz"
TreeNode27.Name = "Diverse Stammdaten"
TreeNode27.Text = "Diverse Stammdaten"
TreeNode28.Name = "Auswertung"
TreeNode28.Text = "Auswertung"
TreeNode29.Name = "Reporting"
TreeNode29.Text = "Reporting"
TreeNode30.Name = "Auswertung_Statistiken"
TreeNode30.Text = "Auswertung_Statistiken"
TreeNode31.Name = "dms_settings"
TreeNode31.Tag = "DMS"
TreeNode31.Text = "Einstellungen"
TreeNode32.Name = "DMS_Struktur"
TreeNode32.Tag = "DMS"
TreeNode32.Text = "Struktur"
TreeNode33.Name = "DokumentManagement"
TreeNode33.Tag = "DMS"
TreeNode33.Text = "DokumentManagement"
TreeNode34.Name = "Spalten"
TreeNode34.Text = "Spalten"
TreeNode35.Name = "Options"
TreeNode35.Text = "Options"
TreeNode36.Name = "User"
TreeNode36.Text = "User"
TreeNode37.Name = "Absender"
TreeNode37.Text = "Absender"
TreeNode38.Name = "vdkonti"
TreeNode38.Text = "Konto-Angaben"
TreeNode39.Name = "MailTexte"
TreeNode39.Text = "MailTexte"
TreeNode40.Name = "MailTexte_Replacer"
TreeNode40.Text = "MailTexte_Replacer"
TreeNode41.Name = "Diverse"
TreeNode41.Text = "Diverse"
Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode2, TreeNode7, TreeNode17, TreeNode24, TreeNode27, TreeNode30, TreeNode33, TreeNode41})
Me.TreeView1.Size = New System.Drawing.Size(271, 525)
Me.TreeView1.TabIndex = 1
'
'C1TrueDBGrid1
'
Me.C1TrueDBGrid1.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1TrueDBGrid1.GroupByCaption = "Drag a column header here to group by that column"
Me.C1TrueDBGrid1.Images.Add(CType(resources.GetObject("C1TrueDBGrid1.Images"), System.Drawing.Image))
Me.C1TrueDBGrid1.Location = New System.Drawing.Point(271, 28)
Me.C1TrueDBGrid1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1"
Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75.0R
Me.C1TrueDBGrid1.PrintInfo.PageSettings = CType(resources.GetObject("C1TrueDBGrid1.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1TrueDBGrid1.Size = New System.Drawing.Size(1005, 525)
Me.C1TrueDBGrid1.TabIndex = 2
Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1"
Me.C1TrueDBGrid1.PropBag = resources.GetString("C1TrueDBGrid1.PropBag")
'
'OpenFileDialog1
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
Me.OpenFileDialog1.Filter = "Excel-Dateien|*.xlsx|Alle Dateien|*.*"
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
'
'ContextMenuStrip2
'
Me.ContextMenuStrip2.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
'
'ClsStammdaten_Bez1
'
Me.ClsStammdaten_Bez1.Connectionstring = Nothing
Me.ClsStammdaten_Bez1.KeyField_left = Nothing
Me.ClsStammdaten_Bez1.KeyField_right = Nothing
Me.ClsStammdaten_Bez1.Keyfieldbez_left = Nothing
Me.ClsStammdaten_Bez1.Keyfieldbez_right = Nothing
Me.ClsStammdaten_Bez1.Location = New System.Drawing.Point(767, 362)
Me.ClsStammdaten_Bez1.Margin = New System.Windows.Forms.Padding(5, 5, 5, 5)
Me.ClsStammdaten_Bez1.Name = "ClsStammdaten_Bez1"
Me.ClsStammdaten_Bez1.Size = New System.Drawing.Size(579, 209)
Me.ClsStammdaten_Bez1.TabIndex = 4
Me.ClsStammdaten_Bez1.Tablename_bottom = Nothing
Me.ClsStammdaten_Bez1.Tablename_left = Nothing
Me.ClsStammdaten_Bez1.Tablename_right = Nothing
'
'ClsStammdaten_flat1
'
Me.ClsStammdaten_flat1.Connectionstring = Nothing
Me.ClsStammdaten_flat1.Location = New System.Drawing.Point(309, 69)
Me.ClsStammdaten_flat1.Margin = New System.Windows.Forms.Padding(5, 5, 5, 5)
Me.ClsStammdaten_flat1.Name = "ClsStammdaten_flat1"
Me.ClsStammdaten_flat1.Size = New System.Drawing.Size(744, 286)
Me.ClsStammdaten_flat1.TabIndex = 3
Me.ClsStammdaten_flat1.Tablename = Nothing
'
'frmStammdaten
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1276, 553)
Me.Controls.Add(Me.ClsStammdaten_Bez1)
Me.Controls.Add(Me.ClsStammdaten_flat1)
Me.Controls.Add(Me.C1TrueDBGrid1)
Me.Controls.Add(Me.TreeView1)
Me.Controls.Add(Me.MenuStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MainMenuStrip = Me.MenuStrip1
Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.Name = "frmStammdaten"
Me.Text = "frmStammdaten"
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
Friend WithEvents SchliessenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents TreeView1 As System.Windows.Forms.TreeView
Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents ClsStammdaten_flat1 As DPM2016.clsStammdaten_flat
Friend WithEvents ClsStammdaten_Bez1 As DPM2016.clsStammdaten_Bez
Friend WithEvents DentotarImportToolStripMenuItem As ToolStripMenuItem
Friend WithEvents OpenFileDialog1 As OpenFileDialog
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents ContextMenuStrip2 As ContextMenuStrip
End Class
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmStammdaten
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim TreeNode1 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Konto")
Dim TreeNode2 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Finanzen", New System.Windows.Forms.TreeNode() {TreeNode1})
Dim TreeNode3 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Anreden")
Dim TreeNode4 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Titel")
Dim TreeNode5 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Orte")
Dim TreeNode6 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Status")
Dim TreeNode7 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Patienten", New System.Windows.Forms.TreeNode() {TreeNode3, TreeNode4, TreeNode5, TreeNode6})
Dim TreeNode8 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Tarif")
Dim TreeNode9 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Tarife")
Dim TreeNode10 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("TarifGruppe")
Dim TreeNode11 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Taxpunkte")
Dim TreeNode12 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Tarifpakete")
Dim TreeNode13 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Paketpositionen")
Dim TreeNode14 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Dentotar")
Dim TreeNode15 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Dentotar_Parameter")
Dim TreeNode16 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Zahntechnik (223)")
Dim TreeNode17 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Produkt Zusatz")
Dim TreeNode18 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Produkt Zusatz Details")
Dim TreeNode19 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Tarif", New System.Windows.Forms.TreeNode() {TreeNode8, TreeNode9, TreeNode10, TreeNode11, TreeNode12, TreeNode13, TreeNode14, TreeNode15, TreeNode16, TreeNode17, TreeNode18})
Dim TreeNode20 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Ansatz")
Dim TreeNode21 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Abrechnungstyp")
Dim TreeNode22 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Formulartyp / Einzahlungsschein")
Dim TreeNode23 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Rechnungstyp")
Dim TreeNode24 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Standards")
Dim TreeNode25 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Rechnungstexte")
Dim TreeNode26 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Abrechnung", New System.Windows.Forms.TreeNode() {TreeNode20, TreeNode21, TreeNode22, TreeNode23, TreeNode24, TreeNode25})
Dim TreeNode27 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Behandlungsart")
Dim TreeNode28 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Gesetz")
Dim TreeNode29 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Diverse Stammdaten", New System.Windows.Forms.TreeNode() {TreeNode27, TreeNode28})
Dim TreeNode30 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Auswertung")
Dim TreeNode31 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Reporting")
Dim TreeNode32 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Auswertung_Statistiken", New System.Windows.Forms.TreeNode() {TreeNode30, TreeNode31})
Dim TreeNode33 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Einstellungen")
Dim TreeNode34 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Struktur")
Dim TreeNode35 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("DokumentManagement", New System.Windows.Forms.TreeNode() {TreeNode33, TreeNode34})
Dim TreeNode36 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Spalten")
Dim TreeNode37 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Options")
Dim TreeNode38 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("User")
Dim TreeNode39 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Absender")
Dim TreeNode40 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Konto-Angaben")
Dim TreeNode41 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("MailTexte")
Dim TreeNode42 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("MailTexte_Replacer")
Dim TreeNode43 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Diverse", New System.Windows.Forms.TreeNode() {TreeNode36, TreeNode37, TreeNode38, TreeNode39, TreeNode40, TreeNode41, TreeNode42})
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStammdaten))
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.SchliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DentotarImportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TreeView1 = New System.Windows.Forms.TreeView()
Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ClsStammdaten_Bez1 = New DPM2016.clsStammdaten_Bez()
Me.ClsStammdaten_flat1 = New DPM2016.clsStammdaten_flat()
Me.MenuStrip1.SuspendLayout()
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'MenuStrip1
'
Me.MenuStrip1.AllowMerge = False
Me.MenuStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SchliessenToolStripMenuItem, Me.DentotarImportToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Padding = New System.Windows.Forms.Padding(4, 2, 0, 2)
Me.MenuStrip1.Size = New System.Drawing.Size(1200, 24)
Me.MenuStrip1.TabIndex = 0
Me.MenuStrip1.Text = "MenuStrip1"
'
'SchliessenToolStripMenuItem
'
Me.SchliessenToolStripMenuItem.Name = "SchliessenToolStripMenuItem"
Me.SchliessenToolStripMenuItem.Size = New System.Drawing.Size(73, 20)
Me.SchliessenToolStripMenuItem.Text = "&Schliessen"
'
'DentotarImportToolStripMenuItem
'
Me.DentotarImportToolStripMenuItem.Name = "DentotarImportToolStripMenuItem"
Me.DentotarImportToolStripMenuItem.Size = New System.Drawing.Size(106, 20)
Me.DentotarImportToolStripMenuItem.Text = "Dentotar-Import"
'
'TreeView1
'
Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Left
Me.TreeView1.Location = New System.Drawing.Point(0, 24)
Me.TreeView1.Name = "TreeView1"
TreeNode1.Name = "Konto"
TreeNode1.Text = "Konto"
TreeNode2.Name = "Knoten0"
TreeNode2.Text = "Finanzen"
TreeNode3.Name = "Anrede"
TreeNode3.Text = "Anreden"
TreeNode4.Name = "Titel"
TreeNode4.Text = "Titel"
TreeNode5.Name = "Orte"
TreeNode5.Tag = "Demo"
TreeNode5.Text = "Orte"
TreeNode6.Name = "Status"
TreeNode6.Text = "Status"
TreeNode7.Name = "Knoten7"
TreeNode7.Text = "Patienten"
TreeNode8.Name = "Tarif"
TreeNode8.Tag = "Demo"
TreeNode8.Text = "Tarif"
TreeNode9.Name = "Tarife"
TreeNode9.Text = "Tarife"
TreeNode10.Name = "tarifgrp"
TreeNode10.Text = "TarifGruppe"
TreeNode11.Name = "Taxpunkt"
TreeNode11.Text = "Taxpunkte"
TreeNode12.Name = "Tarpaket"
TreeNode12.Text = "Tarifpakete"
TreeNode13.Name = "Paketpositionen"
TreeNode13.Tag = "nrpaket;paketbezeichnung;nrtarif;sso_nummer;TarPaket;Tarif;Paketpos"
TreeNode13.Text = "Paketpositionen"
TreeNode14.Name = "Dentotar"
TreeNode14.Tag = "Demo"
TreeNode14.Text = "Dentotar"
TreeNode15.Name = "Dentotar_Parameter"
TreeNode15.Tag = "Demo"
TreeNode15.Text = "Dentotar_Parameter"
TreeNode16.Name = "Dentotar_223"
TreeNode16.Text = "Zahntechnik (223)"
TreeNode17.Name = "ProduktZusatz"
TreeNode17.Text = "Produkt Zusatz"
TreeNode18.Name = "ProduktZusatzDetail"
TreeNode18.Text = "Produkt Zusatz Details"
TreeNode19.Name = "Knoten8"
TreeNode19.Text = "Tarif"
TreeNode20.Name = "Ansatz"
TreeNode20.Tag = "Demo"
TreeNode20.Text = "Ansatz"
TreeNode21.Name = "Abrtyp"
TreeNode21.Text = "Abrechnungstyp"
TreeNode22.Name = "ESTyp"
TreeNode22.Text = "Formulartyp / Einzahlungsschein"
TreeNode23.Name = "RGTyp"
TreeNode23.Text = "Rechnungstyp"
TreeNode24.Name = "Standards"
TreeNode24.Text = "Standards"
TreeNode25.Name = "Rechtext"
TreeNode25.Text = "Rechnungstexte"
TreeNode26.Name = "Knoten14"
TreeNode26.Text = "Abrechnung"
TreeNode27.Name = "Behandlungsart"
TreeNode27.Text = "Behandlungsart"
TreeNode28.Name = "Gesetz"
TreeNode28.Tag = "Demo"
TreeNode28.Text = "Gesetz"
TreeNode29.Name = "Diverse Stammdaten"
TreeNode29.Text = "Diverse Stammdaten"
TreeNode30.Name = "Auswertung"
TreeNode30.Text = "Auswertung"
TreeNode31.Name = "Reporting"
TreeNode31.Text = "Reporting"
TreeNode32.Name = "Auswertung_Statistiken"
TreeNode32.Text = "Auswertung_Statistiken"
TreeNode33.Name = "dms_settings"
TreeNode33.Tag = "DMS"
TreeNode33.Text = "Einstellungen"
TreeNode34.Name = "DMS_Struktur"
TreeNode34.Tag = "DMS"
TreeNode34.Text = "Struktur"
TreeNode35.Name = "DokumentManagement"
TreeNode35.Tag = "DMS"
TreeNode35.Text = "DokumentManagement"
TreeNode36.Name = "Spalten"
TreeNode36.Text = "Spalten"
TreeNode37.Name = "Options"
TreeNode37.Text = "Options"
TreeNode38.Name = "User"
TreeNode38.Text = "User"
TreeNode39.Name = "Absender"
TreeNode39.Text = "Absender"
TreeNode40.Name = "vdkonti"
TreeNode40.Text = "Konto-Angaben"
TreeNode41.Name = "MailTexte"
TreeNode41.Text = "MailTexte"
TreeNode42.Name = "MailTexte_Replacer"
TreeNode42.Text = "MailTexte_Replacer"
TreeNode43.Name = "Diverse"
TreeNode43.Text = "Diverse"
Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode2, TreeNode7, TreeNode19, TreeNode26, TreeNode29, TreeNode32, TreeNode35, TreeNode43})
Me.TreeView1.Size = New System.Drawing.Size(204, 425)
Me.TreeView1.TabIndex = 1
'
'C1TrueDBGrid1
'
Me.C1TrueDBGrid1.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1TrueDBGrid1.GroupByCaption = "Drag a column header here to group by that column"
Me.C1TrueDBGrid1.Images.Add(CType(resources.GetObject("C1TrueDBGrid1.Images"), System.Drawing.Image))
Me.C1TrueDBGrid1.Location = New System.Drawing.Point(204, 24)
Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1"
Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75.0R
Me.C1TrueDBGrid1.PrintInfo.PageSettings = CType(resources.GetObject("C1TrueDBGrid1.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1TrueDBGrid1.Size = New System.Drawing.Size(996, 425)
Me.C1TrueDBGrid1.TabIndex = 2
Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1"
Me.C1TrueDBGrid1.PropBag = resources.GetString("C1TrueDBGrid1.PropBag")
'
'OpenFileDialog1
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
Me.OpenFileDialog1.Filter = "Excel-Dateien|*.xlsx|Alle Dateien|*.*"
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
'
'ContextMenuStrip2
'
Me.ContextMenuStrip2.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
'
'ClsStammdaten_Bez1
'
Me.ClsStammdaten_Bez1.Connectionstring = Nothing
Me.ClsStammdaten_Bez1.KeyField_left = Nothing
Me.ClsStammdaten_Bez1.KeyField_right = Nothing
Me.ClsStammdaten_Bez1.Keyfieldbez_left = Nothing
Me.ClsStammdaten_Bez1.Keyfieldbez_right = Nothing
Me.ClsStammdaten_Bez1.Location = New System.Drawing.Point(575, 294)
Me.ClsStammdaten_Bez1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.ClsStammdaten_Bez1.Name = "ClsStammdaten_Bez1"
Me.ClsStammdaten_Bez1.Size = New System.Drawing.Size(434, 170)
Me.ClsStammdaten_Bez1.TabIndex = 4
Me.ClsStammdaten_Bez1.Tablename_bottom = Nothing
Me.ClsStammdaten_Bez1.Tablename_left = Nothing
Me.ClsStammdaten_Bez1.Tablename_right = Nothing
'
'ClsStammdaten_flat1
'
Me.ClsStammdaten_flat1.Connectionstring = Nothing
Me.ClsStammdaten_flat1.Location = New System.Drawing.Point(232, 56)
Me.ClsStammdaten_flat1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.ClsStammdaten_flat1.Name = "ClsStammdaten_flat1"
Me.ClsStammdaten_flat1.Size = New System.Drawing.Size(558, 232)
Me.ClsStammdaten_flat1.SQL = ""
Me.ClsStammdaten_flat1.TabIndex = 3
Me.ClsStammdaten_flat1.Tablename = Nothing
'
'frmStammdaten
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1200, 449)
Me.Controls.Add(Me.ClsStammdaten_Bez1)
Me.Controls.Add(Me.ClsStammdaten_flat1)
Me.Controls.Add(Me.C1TrueDBGrid1)
Me.Controls.Add(Me.TreeView1)
Me.Controls.Add(Me.MenuStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MainMenuStrip = Me.MenuStrip1
Me.Name = "frmStammdaten"
Me.Text = "frmStammdaten"
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
Friend WithEvents SchliessenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents TreeView1 As System.Windows.Forms.TreeView
Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents ClsStammdaten_flat1 As DPM2016.clsStammdaten_flat
Friend WithEvents ClsStammdaten_Bez1 As DPM2016.clsStammdaten_Bez
Friend WithEvents DentotarImportToolStripMenuItem As ToolStripMenuItem
Friend WithEvents OpenFileDialog1 As OpenFileDialog
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents ContextMenuStrip2 As ContextMenuStrip
End Class

File diff suppressed because it is too large Load Diff

@ -1,254 +1,273 @@
Imports System.ComponentModel
Imports FlexCel.Core
Imports FlexCel.XlsAdapter
Public Class frmStammdaten
Dim db As New clsDB
Dim spalten As New Tabellenspalte
Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchliessenToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub TreeView1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterSelect
Refresh_Details()
End Sub
Sub Refresh_Details()
Try
Select Case UCase(TreeView1.SelectedNode.Tag)
Case "DEMO"
If Globals.License.DemoMode = True Then
Me.ClsStammdaten_Bez1.Visible = False
Me.ClsStammdaten_flat1.Visible = False
MsgBox("Diese Funktion ist im DEMO-Modus nicht verfügbar.")
Exit Sub
End If
Case "DMS"
If Globals.License.DMS = False Then
MsgBox("Für diese Funktion haben Sie keine entsprechende Lizenz.")
Me.ClsStammdaten_Bez1.Visible = False
Me.ClsStammdaten_flat1.Visible = False
'MsgBox("Diese Funktion ist im DEMO-Modus nicht verfügbar.")
Exit Sub
End If
Case "DENTOTAR"
End Select
Me.ClsStammdaten_Bez1.Visible = True
Me.ClsStammdaten_flat1.Visible = True
Dim t As String = Me.TreeView1.SelectedNode.Tag
t = UCase(t)
If t <> "" And t <> "DEMO" And t <> "DMS" Then
Dim splitter()
splitter = Me.TreeView1.SelectedNode.Tag.ToString.Split(";")
If splitter.Length > 1 Then
Dim i As Integer = 0
For Each s As String In splitter
i = i + 1
If i = 1 Then ClsStammdaten_Bez1.KeyField_left = s
If i = 2 Then ClsStammdaten_Bez1.Keyfieldbez_left = s
If i = 3 Then ClsStammdaten_Bez1.KeyField_right = s
If i = 4 Then ClsStammdaten_Bez1.Keyfieldbez_right = s
If i = 5 Then ClsStammdaten_Bez1.Tablename_left = s
If i = 6 Then ClsStammdaten_Bez1.Tablename_right = s
If i = 7 Then ClsStammdaten_Bez1.Tablename_bottom = s
Try
Catch ex As Exception
End Try
Next
End If
Me.ClsStammdaten_flat1.Visible = False
Me.ClsStammdaten_Bez1.Visible = True
Me.ClsStammdaten_Bez1.Dock = DockStyle.Fill
Me.ClsStammdaten_Bez1.Width = Me.ClsStammdaten_Bez1.Width + 1
Exit Sub
End If
Me.ClsStammdaten_flat1.Check_Changes()
Me.ClsStammdaten_Bez1.Visible = False
Me.ClsStammdaten_flat1.Visible = True
Me.ClsStammdaten_flat1.Dock = DockStyle.Fill
If Me.TreeView1.SelectedNode.Nodes.Count = 0 Then Me.ClsStammdaten_flat1.Visible = True Else Me.ClsStammdaten_flat1.Visible = False
Me.ClsStammdaten_flat1.Tablename = Me.TreeView1.SelectedNode.Name
'If Globals.License.DemoMode Then
' If Me.TreeView1.SelectedNode.Tag = "Demo" Then
' MsgBox("Im Demo-Modus steht diese Funktion nicht zur Verfügung.")
' Exit Sub
' End If
'End If
Me.ClsStammdaten_flat1.get_data()
Try
Catch
End Try
Catch
End Try
End Sub
Private Sub frmStammdaten_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.TreeView1.ExpandAll()
Me.TreeView1.SelectedNode = Me.TreeView1.Nodes(0)
If My.Settings.SoftwareType = "PADM" Then
Me.DentotarImportToolStripMenuItem.Visible = False
For Each n As TreeNode In TreeView1.Nodes
For Each nn As TreeNode In n.Nodes
Try
Select Case nn.Text
Case "Tarif"
nn.Text = "Artikel"
Case "Tarife"
nn.Text = "Artikel-Kategorien"
Case "TarifGruppe"
nn.Text = "Artikel-Gruppen"
Case "Tarifpakete"
nn.Text = "Artikel-Pakete"
End Select
Catch
End Try
Next
If n.Text = "Tarif" Then n.Text = "Artikel"
If n.Text = "Patienten" Then n.Text = "Allgemein"
Next
For i As Integer = 1 To 10
Try
For Each n As TreeNode In TreeView1.Nodes
For Each nn As TreeNode In n.Nodes
If nn.Text = "Dentotar" Then
nn.Remove()
End If
If nn.Text = "Dentotar_Parameter" Then
nn.Remove()
End If
If nn.Text = "Taxpunkte" Then
nn.Remove()
End If
If nn.Text = "Zahntechnik (223)" Then
nn.Remove()
End If
If nn.Text = "Behandlungsart" Then
nn.Remove()
End If
If nn.Text = "Gesetz" Then
nn.Remove()
End If
Next
Next
Catch
End Try
Next i
End If
End Sub
Private Sub DentotarImportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DentotarImportToolStripMenuItem.Click
If MsgBox("Sind Sie sicher, dass Dentotaf neu importier werden soll?", vbYesNo + vbQuestion) = vbYes Then
If OpenFileDialog1.ShowDialog = DialogResult.OK Then
import_dentotar(OpenFileDialog1.FileName)
End If
End If
End Sub
Private Sub import_dentotar(ByVal Filename As String)
Try
Dim xls As New XlsFile(Filename)
Dim f As New frmprogress(1, xls.RowCount, "Dentotar einlesen")
f.Show()
Dim db As New clsDB
db.Get_Tabledata_for_Update("Dentotar", False, False)
db.daten.WriteXml(Globals.ActUser)
Dim dt As New DataTable
Dim dt_Original As New DataTable
dt = db.daten.Tables(0).Copy
dt_Original = db.daten.Tables(0).Copy
db.Exec_Prod("sp_update_dentotar")
dt.Rows.Clear()
dt.AcceptChanges()
Dim colindex1 As Integer
xls.ActiveSheet = 1
Dim i As Integer = 0
For row As Integer = 2 To xls.RowCount
Dim dr As DataRow = dt.NewRow
i = row
Application.DoEvents()
f.ProgressBar1.Value = row
For colIndex As Integer = 1 To 18
Try
dr.Item(colIndex - 1) = xls.GetCellValue(row, colIndex)
Catch
dr.Item(colIndex - 1) = System.DBNull.Value
End Try
Next
dt.Rows.Add(dr)
Next
f.Init_Progressbar(1, i, "Privat-Punkte nachführen")
For Each r As DataRow In dt.Rows
f.ProgressBar1.Value = f.ProgressBar1.Value + 1
Application.DoEvents()
If Not IsDBNull(r.Item("Leistungnrneu")) Then
Dim dv As New DataView(dt_Original, "leistungnrneu='" + r.Item("Leistungnrneu") + "'", "", DataViewRowState.CurrentRows)
Dim drv As DataRowView = dv.Item(0)
r.Item("PP_Privat") = drv.Item("PP_Privat")
End If
'For Each rr As DataRow In dt_Original.Rows
' Try
' If r.Item("LeistungNrneu") = rr.Item("Leistungnrneu") Then
' Try
' r.Item("PP_Privat") = rr.Item("PP_Privat")
' Catch
' End Try
' Exit For
' End If
' Catch
' End Try
'Next
Next
f.Close()
db.daten.Tables.Clear()
db.daten.Tables.Add(dt.Copy)
db.Update_Tabeldata()
Try
IntTables.Inttables.Tables.Remove("Dentotar")
Catch
End Try
MsgBox("Update Dentotar ist abgeschossen.", vbInformation)
Catch ex As Exception
MsgBox("Update Dentotar: Fehler: " + ex.Message)
End Try
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs)
Me.Close()
End Sub
Private Sub TreeView1_Click(sender As Object, e As EventArgs) Handles TreeView1.Click
'Refresh_Details()
End Sub
Private Sub ClsStammdaten_flat1_Load(sender As Object, e As EventArgs) Handles ClsStammdaten_flat1.Load
End Sub
Private Sub frmStammdaten_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
IntTables.Inttables.Tables.Clear()
End Sub
Imports System.ComponentModel
Imports FlexCel.XlsAdapter
Public Class frmStammdaten
Dim db As New clsDB
Dim spalten As New Tabellenspalte
Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchliessenToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub TreeView1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterSelect
Refresh_Details()
End Sub
Sub Refresh_Details()
Try
Select Case UCase(TreeView1.SelectedNode.Tag)
Case "DEMO"
If Globals.License.DemoMode = True Then
Me.ClsStammdaten_Bez1.Visible = False
Me.ClsStammdaten_flat1.Visible = False
MsgBox("Diese Funktion ist im DEMO-Modus nicht verfügbar.")
Exit Sub
End If
Case "DMS"
If Globals.License.DMS = False Then
MsgBox("Für diese Funktion haben Sie keine entsprechende Lizenz.")
Me.ClsStammdaten_Bez1.Visible = False
Me.ClsStammdaten_flat1.Visible = False
'MsgBox("Diese Funktion ist im DEMO-Modus nicht verfügbar.")
Exit Sub
End If
Case "DENTOTAR"
End Select
Me.ClsStammdaten_Bez1.Visible = True
Me.ClsStammdaten_flat1.Visible = True
Dim t As String = Me.TreeView1.SelectedNode.Tag
t = UCase(t)
If t <> "" And t <> "DEMO" And t <> "DMS" Then
Dim splitter()
splitter = Me.TreeView1.SelectedNode.Tag.ToString.Split(";")
If splitter.Length > 1 Then
Dim i As Integer = 0
For Each s As String In splitter
i = i + 1
If i = 1 Then ClsStammdaten_Bez1.KeyField_left = s
If i = 2 Then ClsStammdaten_Bez1.Keyfieldbez_left = s
If i = 3 Then ClsStammdaten_Bez1.KeyField_right = s
If i = 4 Then ClsStammdaten_Bez1.Keyfieldbez_right = s
If i = 5 Then ClsStammdaten_Bez1.Tablename_left = s
If i = 6 Then ClsStammdaten_Bez1.Tablename_right = s
If i = 7 Then ClsStammdaten_Bez1.Tablename_bottom = s
Try
Catch ex As Exception
End Try
Next
End If
Me.ClsStammdaten_flat1.Visible = False
Me.ClsStammdaten_Bez1.Visible = True
Me.ClsStammdaten_Bez1.Dock = DockStyle.Fill
Me.ClsStammdaten_Bez1.Width = Me.ClsStammdaten_Bez1.Width + 1
Exit Sub
End If
Me.ClsStammdaten_flat1.Check_Changes()
Me.ClsStammdaten_Bez1.Visible = False
Me.ClsStammdaten_flat1.Visible = True
Me.ClsStammdaten_flat1.Dock = DockStyle.Fill
If Me.TreeView1.SelectedNode.Nodes.Count = 0 Then Me.ClsStammdaten_flat1.Visible = True Else Me.ClsStammdaten_flat1.Visible = False
Me.ClsStammdaten_flat1.Tablename = Me.TreeView1.SelectedNode.Name
'If Globals.License.DemoMode Then
' If Me.TreeView1.SelectedNode.Tag = "Demo" Then
' MsgBox("Im Demo-Modus steht diese Funktion nicht zur Verfügung.")
' Exit Sub
' End If
'End If
Me.ClsStammdaten_flat1.get_data()
Try
Catch
End Try
Catch
End Try
End Sub
Private Sub frmStammdaten_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.TreeView1.ExpandAll()
Me.TreeView1.SelectedNode = Me.TreeView1.Nodes(0)
If My.Settings.SoftwareType = "PADM" Or Globals.DruckBranche = True Then
Me.DentotarImportToolStripMenuItem.Visible = False
For Each n As TreeNode In TreeView1.Nodes
For Each nn As TreeNode In n.Nodes
Try
Select Case nn.Text
Case "Tarif"
nn.Text = "Artikel"
Case "Tarife"
nn.Text = "Artikel-Kategorien"
Case "TarifGruppe"
nn.Text = "Artikel-Gruppen"
Case "Tarifpakete"
nn.Text = "Artikel-Pakete"
Case "Produkt Zusatz"
Case "Produkt Zusatz Details"
End Select
Catch
End Try
Next
If n.Text = "Tarif" Then n.Text = "Artikel"
If n.Text = "Patienten" Then n.Text = "Allgemein"
Next
For i As Integer = 1 To 10
Try
For Each n As TreeNode In TreeView1.Nodes
For Each nn As TreeNode In n.Nodes
If nn.Text = "Dentotar" Then
nn.Remove()
End If
If nn.Text = "Dentotar_Parameter" Then
nn.Remove()
End If
If nn.Text = "Taxpunkte" Then
nn.Remove()
End If
If nn.Text = "Zahntechnik (223)" Then
nn.Remove()
End If
If nn.Text = "Behandlungsart" Then
nn.Remove()
End If
If nn.Text = "Gesetz" Then
nn.Remove()
End If
Next
Next
Catch
End Try
Next i
Else
For i As Integer = 1 To 10
Try
For Each n As TreeNode In TreeView1.Nodes
For Each nn As TreeNode In n.Nodes
If nn.Text = "Produkt Zusatz" Then
nn.Remove()
End If
If nn.Text = "Produkt Zusatz Details" Then
nn.Remove()
End If
Next
Next
Catch
End Try
Next i
End If
End Sub
Private Sub DentotarImportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DentotarImportToolStripMenuItem.Click
If MsgBox("Sind Sie sicher, dass Dentotaf neu importier werden soll?", vbYesNo + vbQuestion) = vbYes Then
If OpenFileDialog1.ShowDialog = DialogResult.OK Then
import_dentotar(OpenFileDialog1.FileName)
End If
End If
End Sub
Private Sub import_dentotar(ByVal Filename As String)
Try
Dim xls As New XlsFile(Filename)
Dim f As New frmprogress(1, xls.RowCount, "Dentotar einlesen")
f.Show()
Dim db As New clsDB
db.Get_Tabledata_for_Update("Dentotar", False, False)
db.daten.WriteXml(Globals.ActUser)
Dim dt As New DataTable
Dim dt_Original As New DataTable
dt = db.daten.Tables(0).Copy
dt_Original = db.daten.Tables(0).Copy
db.Exec_Prod("sp_update_dentotar")
dt.Rows.Clear()
dt.AcceptChanges()
Dim colindex1 As Integer
xls.ActiveSheet = 1
Dim i As Integer = 0
For row As Integer = 2 To xls.RowCount
Dim dr As DataRow = dt.NewRow
i = row
Application.DoEvents()
f.ProgressBar1.Value = row
For colIndex As Integer = 1 To 18
Try
dr.Item(colIndex - 1) = xls.GetCellValue(row, colIndex)
Catch
dr.Item(colIndex - 1) = System.DBNull.Value
End Try
Next
dt.Rows.Add(dr)
Next
f.Init_Progressbar(1, i, "Privat-Punkte nachführen")
For Each r As DataRow In dt.Rows
f.ProgressBar1.Value = f.ProgressBar1.Value + 1
Application.DoEvents()
If Not IsDBNull(r.Item("Leistungnrneu")) Then
Dim dv As New DataView(dt_Original, "leistungnrneu='" + r.Item("Leistungnrneu") + "'", "", DataViewRowState.CurrentRows)
Dim drv As DataRowView = dv.Item(0)
r.Item("PP_Privat") = drv.Item("PP_Privat")
End If
'For Each rr As DataRow In dt_Original.Rows
' Try
' If r.Item("LeistungNrneu") = rr.Item("Leistungnrneu") Then
' Try
' r.Item("PP_Privat") = rr.Item("PP_Privat")
' Catch
' End Try
' Exit For
' End If
' Catch
' End Try
'Next
Next
f.Close()
db.daten.Tables.Clear()
db.daten.Tables.Add(dt.Copy)
db.Update_Tabeldata()
Try
IntTables.Inttables.Tables.Remove("Dentotar")
Catch
End Try
MsgBox("Update Dentotar ist abgeschossen.", vbInformation)
Catch ex As Exception
MsgBox("Update Dentotar: Fehler: " + ex.Message)
End Try
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs)
Me.Close()
End Sub
Private Sub TreeView1_Click(sender As Object, e As EventArgs) Handles TreeView1.Click
'Refresh_Details()
End Sub
Private Sub ClsStammdaten_flat1_Load(sender As Object, e As EventArgs) Handles ClsStammdaten_flat1.Load
End Sub
Private Sub frmStammdaten_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
IntTables.Inttables.Tables.Clear()
End Sub
End Class

@ -10,7 +10,7 @@ Module Globals
Public Productname As String = "Dental Practice Manager"
Public Lizenzgeber As String = "Stefan Hutter Unternehmensberatung, 8808 Pfäffikon"
Public Version As String = "1.4.0.2215"
Public Versionastaum As String = "20.06.2022"
Public Versionastaum As String = "15.12.2023"
Public RGCollection As New Collection
Public Spaltendaten As New DataTable

@ -1,163 +1,163 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class SplashForm
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(SplashForm))
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.C1PictureBox1 = New C1.Win.C1Input.C1PictureBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.C1PictureBox2 = New C1.Win.C1Input.C1PictureBox()
CType(Me.C1PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.C1PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 188)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(39, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Label1"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(12, 210)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(39, 13)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Label2"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(78, 210)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(39, 13)
Me.Label3.TabIndex = 3
Me.Label3.Text = "Label3"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(78, 188)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(39, 13)
Me.Label4.TabIndex = 2
Me.Label4.Text = "Label4"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(12, 283)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(39, 13)
Me.Label5.TabIndex = 5
Me.Label5.Text = "Label5"
'
'C1PictureBox1
'
Me.C1PictureBox1.Image = CType(resources.GetObject("C1PictureBox1.Image"), System.Drawing.Image)
Me.C1PictureBox1.InitialImage = CType(resources.GetObject("C1PictureBox1.InitialImage"), System.Drawing.Image)
Me.C1PictureBox1.Location = New System.Drawing.Point(12, 12)
Me.C1PictureBox1.Name = "C1PictureBox1"
Me.C1PictureBox1.Size = New System.Drawing.Size(343, 158)
Me.C1PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.C1PictureBox1.TabIndex = 6
Me.C1PictureBox1.TabStop = False
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(12, 296)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(39, 13)
Me.Label6.TabIndex = 7
Me.Label6.Text = "Label6"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(12, 309)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(39, 13)
Me.Label7.TabIndex = 8
Me.Label7.Text = "Label7"
'
'C1PictureBox2
'
Me.C1PictureBox2.Image = CType(resources.GetObject("C1PictureBox2.Image"), System.Drawing.Image)
Me.C1PictureBox2.InitialImage = CType(resources.GetObject("C1PictureBox2.InitialImage"), System.Drawing.Image)
Me.C1PictureBox2.Location = New System.Drawing.Point(12, 12)
Me.C1PictureBox2.Name = "C1PictureBox2"
Me.C1PictureBox2.Size = New System.Drawing.Size(343, 158)
Me.C1PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.C1PictureBox2.TabIndex = 9
Me.C1PictureBox2.TabStop = False
'
'SplashForm
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(368, 339)
Me.Controls.Add(Me.C1PictureBox2)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.C1PictureBox1)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "SplashForm"
Me.ShowIcon = False
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "SplashForm"
CType(Me.C1PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.C1PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
Friend WithEvents Label4 As Label
Friend WithEvents Label5 As Label
Friend WithEvents C1PictureBox1 As C1.Win.C1Input.C1PictureBox
Friend WithEvents Label6 As Label
Friend WithEvents Label7 As Label
Friend WithEvents C1PictureBox2 As C1.Win.C1Input.C1PictureBox
End Class
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class SplashForm
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(SplashForm))
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.C1PictureBox1 = New C1.Win.C1Input.C1PictureBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.C1PictureBox2 = New C1.Win.C1Input.C1PictureBox()
CType(Me.C1PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.C1PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 188)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(39, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Label1"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(12, 210)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(39, 13)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Label2"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(78, 210)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(39, 13)
Me.Label3.TabIndex = 3
Me.Label3.Text = "Label3"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(78, 188)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(39, 13)
Me.Label4.TabIndex = 2
Me.Label4.Text = "Label4"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(12, 283)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(39, 13)
Me.Label5.TabIndex = 5
Me.Label5.Text = "Label5"
'
'C1PictureBox1
'
Me.C1PictureBox1.Image = CType(resources.GetObject("C1PictureBox1.Image"), System.Drawing.Image)
Me.C1PictureBox1.InitialImage = CType(resources.GetObject("C1PictureBox1.InitialImage"), System.Drawing.Image)
Me.C1PictureBox1.Location = New System.Drawing.Point(12, 12)
Me.C1PictureBox1.Name = "C1PictureBox1"
Me.C1PictureBox1.Size = New System.Drawing.Size(343, 158)
Me.C1PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.C1PictureBox1.TabIndex = 6
Me.C1PictureBox1.TabStop = False
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(12, 296)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(39, 13)
Me.Label6.TabIndex = 7
Me.Label6.Text = "Label6"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(12, 309)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(39, 13)
Me.Label7.TabIndex = 8
Me.Label7.Text = "Label7"
'
'C1PictureBox2
'
Me.C1PictureBox2.Image = CType(resources.GetObject("C1PictureBox2.Image"), System.Drawing.Image)
Me.C1PictureBox2.InitialImage = CType(resources.GetObject("C1PictureBox2.InitialImage"), System.Drawing.Image)
Me.C1PictureBox2.Location = New System.Drawing.Point(12, 12)
Me.C1PictureBox2.Name = "C1PictureBox2"
Me.C1PictureBox2.Size = New System.Drawing.Size(274, 158)
Me.C1PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.C1PictureBox2.TabIndex = 9
Me.C1PictureBox2.TabStop = False
'
'SplashForm
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(368, 339)
Me.Controls.Add(Me.C1PictureBox2)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.C1PictureBox1)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "SplashForm"
Me.ShowIcon = False
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "SplashForm"
CType(Me.C1PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.C1PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
Friend WithEvents Label4 As Label
Friend WithEvents Label5 As Label
Friend WithEvents C1PictureBox1 As C1.Win.C1Input.C1PictureBox
Friend WithEvents Label6 As Label
Friend WithEvents Label7 As Label
Friend WithEvents C1PictureBox2 As C1.Win.C1Input.C1PictureBox
End Class

File diff suppressed because it is too large Load Diff

@ -1,18 +1,18 @@
Public Class SplashForm
Private Sub SplashForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If My.Settings.SoftwareType = "PADM" Then
Me.C1PictureBox1.Visible = False
Me.C1PictureBox2.Visible = True
Else
Me.C1PictureBox1.Visible = True
Me.C1PictureBox2.Visible = False
End If
Me.Label1.Text = "Version: "
Label4.Text = Globals.Version
Me.Label2.Text = "Datum:"
Label3.Text = Globals.Versionastaum
Label5.Text = "Stefan Hutter Unternehmensberatung"
Label6.Text = "Staldenbachstrasse 13"
Label7.Text = "8808 Pfäffikon SZ"
End Sub
Public Class SplashForm
Private Sub SplashForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If My.Settings.SoftwareType = "PADM" Then
Me.C1PictureBox1.Visible = False
Me.C1PictureBox2.Visible = True
Else
Me.C1PictureBox1.Visible = True
Me.C1PictureBox2.Visible = False
End If
Me.Label1.Text = "Version: "
Label4.Text = Globals.Version
Me.Label2.Text = "Datum:"
Label3.Text = Globals.Versionastaum
Label5.Text = "Stefan Hutter Unternehmensberatung"
Label6.Text = "Staldenbachstrasse 13"
Label7.Text = "8808 Pfäffikon SZ"
End Sub
End Class

@ -58,7 +58,7 @@
<value>http://192.168.111.67</value>
</setting>
<setting name="SoftwareType" serializeAs="String">
<value>DPM</value>
<value>PADM</value>
</setting>
</DPM2016.My.MySettings>
</userSettings>

Binary file not shown.

After

Width:  |  Height:  |  Size: 67 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 67 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 70 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 69 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 69 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 68 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 69 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 69 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 69 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 69 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 69 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 69 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 69 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 69 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 69 KiB

@ -14,7 +14,7 @@
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>JlgtP6mQAK0P7LHketwjYJOoiMV/bDmCbeUOo603a3E=</dsig:DigestValue>
<dsig:DigestValue>dj+yWlykiBNw2KLjnKoOrZi/3OtC6mKwbKpubyoP2HI=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>

Binary file not shown.

@ -58,7 +58,7 @@
<value>http://192.168.111.67</value>
</setting>
<setting name="SoftwareType" serializeAs="String">
<value>DPM</value>
<value>PADM</value>
</setting>
</DPM2016.My.MySettings>
</userSettings>

@ -451,14 +451,14 @@
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PADM.exe" size="7470080">
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PADM.exe" size="7488000">
<assemblyIdentity name="PADM" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>1AbkfoRrGX8+CGFOn2Jd6Y65KlNysG5zAjlxz2QW3Ss=</dsig:DigestValue>
<dsig:DigestValue>2nTFOKOc+AY4ZMetArMXgLjSnqhML745qUWWL6YTEK4=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
@ -1509,13 +1509,13 @@
<dsig:DigestValue>NLnqVMsy3w9jN63XtqsXl3zuDEd+8S6tWSYv9gZKS4Q=</dsig:DigestValue>
</hash>
</file>
<file name="PADM.exe.config" size="4181">
<file name="PADM.exe.config" size="4182">
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>0prST3unFNQNU2HVldsrddDuCgCJokfAhMVNgXbX/v4=</dsig:DigestValue>
<dsig:DigestValue>STmpXFGnPRHc8/WWOyL6WhkVtZX2oFmfXuChzNeCQs4=</dsig:DigestValue>
</hash>
</file>
<file name="PADM.ico" size="96694">

Binary file not shown.

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 77 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 77 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 77 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 77 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

@ -14,7 +14,7 @@
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>lVD2J8hHF6AQyj5WC1t60M4jQ+ENORpJQ/uNzTQ74HM=</dsig:DigestValue>
<dsig:DigestValue>dbZSv0iNqkYwG8cdQOHNSKAbRZrARNU+85AkiGksRW0=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>

Binary file not shown.

@ -307,14 +307,14 @@
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Microsoft.mshtml.dll" size="8027528">
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Microsoft.mshtml.dll" size="8027720">
<assemblyIdentity name="Microsoft.mshtml" version="7.0.3300.0" publicKeyToken="B03F5F7F11D50A3A" language="neutral" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>iImaEsY4Ajoi2RrsoJYZA8vV2qeezV/nnmEYjymY4C4=</dsig:DigestValue>
<dsig:DigestValue>3HNTFd4pFJcavyse0nYGUjKtZ3dln6OJVA1LUa8WgeY=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
@ -458,7 +458,7 @@
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>4x0BYHqOwZNPC5IiyUUIcPd8CzM82d8zW6OQEUog9ag=</dsig:DigestValue>
<dsig:DigestValue>HJ91RS9OKmsHCoWO8mzNUXlUIlRhLyjIF9lvMQ9zjB4=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>

Binary file not shown.

@ -1 +1 @@
c883852ff6ea95fb8e472eae15f5aafa740b6047
7160819cd71b6200ce0e841b0906409d41ff7976

@ -1,4 +1,3 @@
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.vbproj.AssemblyReference.cache
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmAuswertung.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmreport.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.FrmSearchDialog.resources
@ -278,3 +277,4 @@ E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.vbproj.CopyComplete
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\PADM.exe
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\PADM.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\PADM.pdb
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmPrivatAnsprechpartner.resources

@ -14,7 +14,7 @@
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>JlgtP6mQAK0P7LHketwjYJOoiMV/bDmCbeUOo603a3E=</dsig:DigestValue>
<dsig:DigestValue>dj+yWlykiBNw2KLjnKoOrZi/3OtC6mKwbKpubyoP2HI=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>

Binary file not shown.

@ -451,14 +451,14 @@
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PADM.exe" size="7470080">
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PADM.exe" size="7488000">
<assemblyIdentity name="PADM" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>1AbkfoRrGX8+CGFOn2Jd6Y65KlNysG5zAjlxz2QW3Ss=</dsig:DigestValue>
<dsig:DigestValue>2nTFOKOc+AY4ZMetArMXgLjSnqhML745qUWWL6YTEK4=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
@ -1509,13 +1509,13 @@
<dsig:DigestValue>NLnqVMsy3w9jN63XtqsXl3zuDEd+8S6tWSYv9gZKS4Q=</dsig:DigestValue>
</hash>
</file>
<file name="PADM.exe.config" size="4181">
<file name="PADM.exe.config" size="4182">
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>0prST3unFNQNU2HVldsrddDuCgCJokfAhMVNgXbX/v4=</dsig:DigestValue>
<dsig:DigestValue>STmpXFGnPRHc8/WWOyL6WhkVtZX2oFmfXuChzNeCQs4=</dsig:DigestValue>
</hash>
</file>
<file name="PADM.ico" size="96694">

Some files were not shown because too many files have changed in this diff Show More

Loading…
Cancel
Save