shu/DPM2016
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

update 20200123

Browse Source
This commit is contained in:
Stefan Hutter
2020-01-23 23:18:17 +01:00
parent 1d61c1103a
commit 195d4d6ec7
398 changed files with 32032 additions and 34622 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
.vs/DPM2016/v14/.suo
View File

Binary file not shown.

BIN
.vs/DPM2016/v15/.suo
View File

Binary file not shown.

BIN
.vs/DPM2016/v15/Server/sqlite3/storage.ide
View File

Binary file not shown.

BIN
.vs/DPM2016/v16/.suo Normal file
View File

Binary file not shown.

BIN
CryptoEditor/obj/Debug/CryptoEditor.vbprojAssemblyReference.cache Normal file
View File

Binary file not shown.

BIN
CryptoEditor/obj/Release/CryptoEditor.vbprojAssemblyReference.cache Normal file
View File

Binary file not shown.

221
DPM2016/Auswertungen/FrmSearchDialog.Designer.vb generated Normal file
View File

@@ -0,0 +1,221 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FrmSearchDialog
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(FrmSearchDialog))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.tsbtnquit = New System.Windows.Forms.ToolStripButton()
Me.tsbtnSave = New System.Windows.Forms.ToolStripButton()
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SchliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.c1daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.AuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStrip1.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.GroupBox1.SuspendLayout()
CType(Me.c1daten, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox2.SuspendLayout()
Me.ContextMenuStrip1.SuspendLayout()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.AllowDrop = True
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnquit, Me.tsbtnSave})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(664, 25)
Me.ToolStrip1.TabIndex = 19
Me.ToolStrip1.Text = "ToolStrip1"
'
'tsbtnquit
'
Me.tsbtnquit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnquit.Image = CType(resources.GetObject("tsbtnquit.Image"), System.Drawing.Image)
Me.tsbtnquit.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnquit.Name = "tsbtnquit"
Me.tsbtnquit.Size = New System.Drawing.Size(23, 22)
Me.tsbtnquit.Text = "Schliessen"
'
'tsbtnSave
'
Me.tsbtnSave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnSave.Image = CType(resources.GetObject("tsbtnSave.Image"), System.Drawing.Image)
Me.tsbtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnSave.Name = "tsbtnSave"
Me.tsbtnSave.Size = New System.Drawing.Size(23, 22)
Me.tsbtnSave.Text = "Zahlungsdatei öffnen und verarbeiten"
Me.tsbtnSave.Visible = False
'
'MenuStrip1
'
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(664, 24)
Me.MenuStrip1.TabIndex = 18
Me.MenuStrip1.Text = "MenuStrip1"
'
'DateiToolStripMenuItem
'
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SchliessenToolStripMenuItem})
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
Me.DateiToolStripMenuItem.Text = "&Datei"
'
'SchliessenToolStripMenuItem
'
Me.SchliessenToolStripMenuItem.Name = "SchliessenToolStripMenuItem"
Me.SchliessenToolStripMenuItem.Size = New System.Drawing.Size(128, 22)
Me.SchliessenToolStripMenuItem.Text = "Schliessen"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(577, 336)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 20
Me.Button1.Text = "OK"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(12, 336)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 21
Me.Button2.Text = "Abbruch"
Me.Button2.UseVisualStyleBackColor = True
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.c1daten)
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top
Me.GroupBox1.Location = New System.Drawing.Point(0, 49)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(664, 212)
Me.GroupBox1.TabIndex = 22
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Daten"
'
'c1daten
'
Me.c1daten.AllowDrop = True
Me.c1daten.AllowUpdate = False
Me.c1daten.AlternatingRows = True
Me.c1daten.ContextMenuStrip = Me.ContextMenuStrip1
Me.c1daten.Dock = System.Windows.Forms.DockStyle.Fill
Me.c1daten.FilterBar = True
Me.c1daten.GroupByCaption = "Drag a column header here to group by that column"
Me.c1daten.Images.Add(CType(resources.GetObject("c1daten.Images"), System.Drawing.Image))
Me.c1daten.Location = New System.Drawing.Point(3, 16)
Me.c1daten.Name = "c1daten"
Me.c1daten.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.c1daten.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.c1daten.PreviewInfo.ZoomFactor = 75.0R
Me.c1daten.PrintInfo.PageSettings = CType(resources.GetObject("c1daten.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.c1daten.Size = New System.Drawing.Size(658, 193)
Me.c1daten.TabIndex = 6
Me.c1daten.Text = "C1TrueDBGrid1"
Me.c1daten.PropBag = resources.GetString("c1daten.PropBag")
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.TextBox1)
Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Top
Me.GroupBox2.Location = New System.Drawing.Point(0, 261)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(664, 69)
Me.GroupBox2.TabIndex = 23
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Ausgewählte Daten"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(7, 20)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(651, 20)
Me.TextBox1.TabIndex = 0
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AuswählenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(133, 26)
'
'AuswählenToolStripMenuItem
'
Me.AuswählenToolStripMenuItem.Name = "AuswählenToolStripMenuItem"
Me.AuswählenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.AuswählenToolStripMenuItem.Text = "Auswählen"
'
'FrmSearchDialog
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(664, 371)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.MenuStrip1)
Me.Name = "FrmSearchDialog"
Me.Text = "Suche"
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.GroupBox1.ResumeLayout(False)
CType(Me.c1daten, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents tsbtnquit As ToolStripButton
Friend WithEvents tsbtnSave As ToolStripButton
Friend WithEvents MenuStrip1 As MenuStrip
Friend WithEvents DateiToolStripMenuItem As ToolStripMenuItem
Friend WithEvents SchliessenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents c1daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents GroupBox2 As GroupBox
Friend WithEvents TextBox1 As TextBox
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents AuswählenToolStripMenuItem As ToolStripMenuItem
End Class

210
DPM2016/Auswertungen/FrmSearchDialog.resx Normal file
View File

@@ -0,0 +1,210 @@
<?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>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>231, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="tsbtnquit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK2SURBVDhPnZLdS1NhHMcfCPoDuummi+gyunJg0QviNrd5
PDtzc7Z5ztl20pUzo6I3yFIrS9N8K7Qih6lUFJVaGWXZi6KRoZSFmCuyi+iiiCKILgo+HTUWu7QffOD5
PfB8eL6/5xH/U1+mh4IzM+O/Ovdm8Hdrvi5X5PR2H86ht2oWKUnPEYkr5XYexXfyebKfTxO3+P5mkIv7
ramCngqZtDV2Vq+zsWbDP9LXWVllWc+PRD+J3krGWv18TTzm8kFHqqC7TCbD6sRml7A7XEmsWU7S19t4
3Rlh7JzO6Okgn1/d5dqh7FSBo1kg1Swi2+5DcilI2W4kScblktlglZjsMBg9G+JJS5CPYz1zUf8eFcJ2
XJD42IXTlORkaridARTJjyJ7kd0eMh1uXsbDjLTqDDYXMDN8idvVyrzAViOYeN9Gx6Ago1pgbxA4Twnk
sqV4lSCeXD9ZOT7Gz2kMntT5cWc5UwPt3K31Ilx1gqfvqomPCNqGzfXbIp69i/D8Q3hOku8Jk5cXRPIE
eHZa5WGTxs/+Fby63cpAg39e8CCxh/i4ID4maH8p6JgUvPgWwXFSEMwrYmMghDtPY6QlwEBjkLY9Tp73
HOdxc2AugsVuRuib2kxXQpA5G+GEwNEkyC1fhq5GUXUDX9BgqNnPvfp8rh9WeHqpguEWNTlES1atoPet
D2ejwAjswtBKMcLFGEaUiFFIIBTlYYOXO3U++mq8DJ3fzeiZUMozWpzmlZW6xUSN7USLSiiKFs9RaKJt
inG/zkNfdS43jnrob40x3hZJEYjO0rVsKSmlJLaDkq3bksRMCou3c69W5uYxhe4qNzfrQ0y0FyJ0XUfX
QmhaGFWdxVyrmtmrSVSz31igsy8W4EKFYv5AmatHcpns2jw/xIVSpqfvrzyw8vf0hVhqhAXUEpM0IYTl
DzXbwlLPDlfpAAAAAElFTkSuQmCC
</value>
</data>
<data name="tsbtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAP4SURBVEhLnZVtbFN1FMaZGkWFMMMnY4LGT6jBGBN1Wepu
23Vx4kyUOF2c0ZCYIB/2xaAmRh2RIRCp8hIE18UI3QtJY93mMpwiGAGBUpu2rpNo1rTdZINtrLWsr/fe
x3Nu779c7oCR/ZMnZ2vufX7nOef2dok4AwMDD2ez2cuk2Uwmk4xE4/KWc1OQBv9UpKERRRoMKWvdQXXt
4Dia3H41NjaWisfjp3t6eh6SJOkOFtlUlNyuc9xu96OgMzU1pRYVFZ+ciGPVfj9W7DqL5SSuq93n0dx5
Eh3dHjWdTmN6ehrDw8Oy0+mUHA7HitbW1tt0u/nH5XI9LgCX5opo7o3h/t1hVO4MovLzACqdIdg9CXy2
5wBmZmZQLBY1JZNJhEIhpaOj4wOCrKIkS8luXpKK9vb2JxjAJ5mVsemXJNa4LuKRryex+sAEHvvmMt70
xOHctRuKomhiACdJpVIIBoMKebzHkIaGhnvMaTSAqqqlG2UV7QEZ9k4ZloNFPHuoCOthYKN3jAB7y92z
aF8aQEBaWlpetdvtD9TX199lhJQBsiyD63d/qXjJA1jdQG0n4GBA7wVs/3KfZlwoFJBIJBCJRBAIBBAO
h7W/fT7feE1NzVO1tbUrGxsbb9f9rwKEfhpV8UYvIB0CJQFs3cD6vlls3+PSmhDiHfCyeS/RaBR+v1+m
BBtsNtuDBLhT9782AY/Jf0HBxkFKoAOsXUCTN40d+91a9yyRhGs+n9dgDCHzTZRiTVVV1d26fwkglseK
plR8/BuNh4xtnIDqa30qnK6e8vyNElAeG41nM6V4sq6u7l7dvwS4kpNxJZNFNpfDyPgstp7K43maPe+B
IU1HgH3fejQj7piNuYr/c3SfDmjjPcwDpLIKfIkMnEP/YOfP43j/aB4v06IlHbCuD/jKewKZbA5zWTIs
0FOUKwHY3Ayg78Qy3f/qiApFGb5JFdvOAu8eBV7/XgeQHJ0q3v4hh21nFOwNqOiPpDE5mymPh3VTAC+Y
Y3P9418Zn54E3vmx9JgyhEf1AiXacBz4yBPE+fhFretbTsDGfLGo4YkC2mgP67xAzUHgOdrHW0PAF97T
mLg0XTYW86cX5cIAkULoVOhvfHjsP7xC34n1/Rn0+hLlrtnYrFtKIJ4OoV/PjWDrGRW/R9PlrkXn3LWo
CyYQxmbA3FxpkeYnRhiLuiiAGIfZ1GjMn/NLj7UggM2uJwE0SkCNuilAGHE13sSfmbs2di7qggmMHQuY
WUawUQJ6Q0BXV9eLRtMbmYhqljEB/artoJfd09XV1ct1/yUV9B5vjsVi2gWL1ejoqCYy32K1Wp+5BmCx
WO6jSBZSG+kwXdC/SHXT/ZtLI5KW/Q9WITc4r+w9eQAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>338, 17</value>
</metadata>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>453, 17</value>
</metadata>
<data name="c1daten.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="c1daten.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="c1daten.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{}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;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}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, 656, 191&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, 656, 191&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
</root>

43
DPM2016/Auswertungen/FrmSearchDialog.vb Normal file
View File

@@ -0,0 +1,43 @@
Public Class FrmSearchDialog
Private Sub FrmSearchDialog_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim db As New clsDB
db.Get_Tabledata("Patienten", "", "select NrPrivat as Nr, Name, Vorname, Strasse, PLZ, Ort from privat order by Name, Vorname, plz")
Me.c1daten.DataSource = db.dsDaten.Tables(0)
Me.c1daten.DataMember = db.dsDaten.Tables(0).TableName
For i = 0 To Me.c1daten.Splits(0).DisplayColumns.Count - 1
Me.c1daten.Splits(0).DisplayColumns(i).AutoSize()
Next
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.DialogResult = DialogResult.OK
Me.Close()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub c1daten_DoubleClick(sender As Object, e As EventArgs) Handles c1daten.DoubleClick
If Me.TextBox1.Text <> "" Then
Me.TextBox1.Text = Me.TextBox1.Text + ","
End If
Me.TextBox1.Text = Me.TextBox1.Text + c1daten.Columns(0).Value.ToString
End Sub
Private Sub c1daten_Click(sender As Object, e As EventArgs) Handles c1daten.Click
End Sub
Private Sub AuswählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AuswählenToolStripMenuItem.Click
c1daten_DoubleClick(sender, e)
End Sub
Private Sub c1daten_MouseDown(sender As Object, e As MouseEventArgs) Handles c1daten.MouseDown
Try
c1daten.Bookmark = c1daten.RowContaining(e.Y)
Catch
End Try
End Sub
End Class

159
DPM2016/Behandlung/Behandlung.Designer.vb generated
View File

@@ -34,6 +34,8 @@ Partial Class Behandlung
Me.NeueBehandlungToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.NeueBehandlungToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator()
Me.BehandlungabschliessenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.BehandlungabschliessenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.AbschlussMitRecallAnzeigeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AbshlussOhneRecallAnzeigeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BehandlungZurücksetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.BehandlungZurücksetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BehandlungKopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.BehandlungKopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripSeparator()
@@ -74,8 +76,8 @@ Partial Class Behandlung
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.tsbtnbehandlungdelete = New System.Windows.Forms.ToolStrip() Me.tsbtnbehandlungdelete = New System.Windows.Forms.ToolStrip()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.Behandungdetail1 = New DPM2016.Benhandungdetail()
Me.Leistungen1 = New DPM2016.Leistungen() Me.Leistungen1 = New DPM2016.Leistungen()
Me.Behandungdetail1 = New DPM2016.Benhandungdetail()
Me.tsbtndelete.SuspendLayout() Me.tsbtndelete.SuspendLayout()
Me.GroupBox1.SuspendLayout() Me.GroupBox1.SuspendLayout()
CType(Me.treebehandlungen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.treebehandlungen, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -92,10 +94,11 @@ Partial Class Behandlung
' '
'tsbtndelete 'tsbtndelete
' '
Me.tsbtndelete.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.tsbtndelete.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnnewbehandlung, Me.tsbtndeletebehandlung, Me.ToolStripButton2}) Me.tsbtndelete.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnnewbehandlung, Me.tsbtndeletebehandlung, Me.ToolStripButton2})
Me.tsbtndelete.Location = New System.Drawing.Point(0, 0) Me.tsbtndelete.Location = New System.Drawing.Point(0, 0)
Me.tsbtndelete.Name = "tsbtndelete" Me.tsbtndelete.Name = "tsbtndelete"
Me.tsbtndelete.Size = New System.Drawing.Size(1285, 25) Me.tsbtndelete.Size = New System.Drawing.Size(1713, 31)
Me.tsbtndelete.TabIndex = 1 Me.tsbtndelete.TabIndex = 1
Me.tsbtndelete.Text = "ToolStrip1" Me.tsbtndelete.Text = "ToolStrip1"
' '
@@ -105,7 +108,7 @@ Partial Class Behandlung
Me.tsbtnnewbehandlung.Image = CType(resources.GetObject("tsbtnnewbehandlung.Image"), System.Drawing.Image) Me.tsbtnnewbehandlung.Image = CType(resources.GetObject("tsbtnnewbehandlung.Image"), System.Drawing.Image)
Me.tsbtnnewbehandlung.ImageTransparentColor = System.Drawing.Color.Magenta Me.tsbtnnewbehandlung.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnnewbehandlung.Name = "tsbtnnewbehandlung" Me.tsbtnnewbehandlung.Name = "tsbtnnewbehandlung"
Me.tsbtnnewbehandlung.Size = New System.Drawing.Size(23, 22) Me.tsbtnnewbehandlung.Size = New System.Drawing.Size(29, 28)
Me.tsbtnnewbehandlung.Text = "Neue Behandlung" Me.tsbtnnewbehandlung.Text = "Neue Behandlung"
' '
'tsbtndeletebehandlung 'tsbtndeletebehandlung
@@ -114,7 +117,7 @@ Partial Class Behandlung
Me.tsbtndeletebehandlung.Image = CType(resources.GetObject("tsbtndeletebehandlung.Image"), System.Drawing.Image) Me.tsbtndeletebehandlung.Image = CType(resources.GetObject("tsbtndeletebehandlung.Image"), System.Drawing.Image)
Me.tsbtndeletebehandlung.ImageTransparentColor = System.Drawing.Color.Magenta Me.tsbtndeletebehandlung.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtndeletebehandlung.Name = "tsbtndeletebehandlung" Me.tsbtndeletebehandlung.Name = "tsbtndeletebehandlung"
Me.tsbtndeletebehandlung.Size = New System.Drawing.Size(23, 22) Me.tsbtndeletebehandlung.Size = New System.Drawing.Size(29, 28)
Me.tsbtndeletebehandlung.Text = "Behandlung löschen" Me.tsbtndeletebehandlung.Text = "Behandlung löschen"
' '
'ToolStripButton2 'ToolStripButton2
@@ -123,16 +126,18 @@ Partial Class Behandlung
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image) Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2" Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22) Me.ToolStripButton2.Size = New System.Drawing.Size(29, 28)
Me.ToolStripButton2.Text = "Aktualisieren" Me.ToolStripButton2.Text = "Aktualisieren"
' '
'GroupBox1 'GroupBox1
' '
Me.GroupBox1.Controls.Add(Me.treebehandlungen) Me.GroupBox1.Controls.Add(Me.treebehandlungen)
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Left Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Left
Me.GroupBox1.Location = New System.Drawing.Point(0, 25) Me.GroupBox1.Location = New System.Drawing.Point(0, 31)
Me.GroupBox1.Margin = New System.Windows.Forms.Padding(4)
Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(220, 813) Me.GroupBox1.Padding = New System.Windows.Forms.Padding(4)
Me.GroupBox1.Size = New System.Drawing.Size(293, 1000)
Me.GroupBox1.TabIndex = 2 Me.GroupBox1.TabIndex = 2
Me.GroupBox1.TabStop = False Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Behandlungen" Me.GroupBox1.Text = "Behandlungen"
@@ -155,138 +160,153 @@ Partial Class Behandlung
Me.treebehandlungen.DragDropNodeCopyEnabled = False Me.treebehandlungen.DragDropNodeCopyEnabled = False
Me.treebehandlungen.ImageList = Me.ImageList1 Me.treebehandlungen.ImageList = Me.ImageList1
Me.treebehandlungen.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F" Me.treebehandlungen.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
Me.treebehandlungen.Location = New System.Drawing.Point(3, 16) Me.treebehandlungen.Location = New System.Drawing.Point(4, 19)
Me.treebehandlungen.Margin = New System.Windows.Forms.Padding(4)
Me.treebehandlungen.Name = "treebehandlungen" Me.treebehandlungen.Name = "treebehandlungen"
Me.treebehandlungen.Nodes.AddRange(New DevComponents.AdvTree.Node() {Me.Node2}) Me.treebehandlungen.Nodes.AddRange(New DevComponents.AdvTree.Node() {Me.Node2})
Me.treebehandlungen.NodesConnector = Me.NodeConnector1 Me.treebehandlungen.NodesConnector = Me.NodeConnector1
Me.treebehandlungen.NodeStyle = Me.ElementStyle1 Me.treebehandlungen.NodeStyle = Me.ElementStyle1
Me.treebehandlungen.PathSeparator = ";" Me.treebehandlungen.PathSeparator = ";"
Me.treebehandlungen.Size = New System.Drawing.Size(214, 794) Me.treebehandlungen.Size = New System.Drawing.Size(285, 977)
Me.treebehandlungen.Styles.Add(Me.ElementStyle1) Me.treebehandlungen.Styles.Add(Me.ElementStyle1)
Me.treebehandlungen.TabIndex = 0 Me.treebehandlungen.TabIndex = 0
Me.treebehandlungen.Text = "AdvTree1" Me.treebehandlungen.Text = "AdvTree1"
' '
'ctxmenubehandlung 'ctxmenubehandlung
' '
Me.ctxmenubehandlung.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ctxmenubehandlung.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueBehandlungToolStripMenuItem1, Me.ToolStripMenuItem2, Me.BehandlungabschliessenToolStripMenuItem1, Me.BehandlungZurücksetzenToolStripMenuItem, Me.BehandlungKopierenToolStripMenuItem, Me.ToolStripMenuItem4, Me.SofortRechnungDruckenToolStripMenuItem, Me.KopieErstellenToolStripMenuItem, Me.ToolStripMenuItem3, Me.BehandlungLöschenToolStripMenuItem1, Me.ToolStripMenuItem5, Me.RechungKVVorschauToolStripMenuItem, Me.RechnungKVEntwurfToolStripMenuItem}) Me.ctxmenubehandlung.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueBehandlungToolStripMenuItem1, Me.ToolStripMenuItem2, Me.BehandlungabschliessenToolStripMenuItem1, Me.BehandlungZurücksetzenToolStripMenuItem, Me.BehandlungKopierenToolStripMenuItem, Me.ToolStripMenuItem4, Me.SofortRechnungDruckenToolStripMenuItem, Me.KopieErstellenToolStripMenuItem, Me.ToolStripMenuItem3, Me.BehandlungLöschenToolStripMenuItem1, Me.ToolStripMenuItem5, Me.RechungKVVorschauToolStripMenuItem, Me.RechnungKVEntwurfToolStripMenuItem})
Me.ctxmenubehandlung.Name = "ContextMenuStrip1" Me.ctxmenubehandlung.Name = "ContextMenuStrip1"
Me.ctxmenubehandlung.Size = New System.Drawing.Size(212, 226) Me.ctxmenubehandlung.Size = New System.Drawing.Size(247, 244)
' '
'NeueBehandlungToolStripMenuItem1 'NeueBehandlungToolStripMenuItem1
' '
Me.NeueBehandlungToolStripMenuItem1.Name = "NeueBehandlungToolStripMenuItem1" Me.NeueBehandlungToolStripMenuItem1.Name = "NeueBehandlungToolStripMenuItem1"
Me.NeueBehandlungToolStripMenuItem1.Size = New System.Drawing.Size(211, 22) Me.NeueBehandlungToolStripMenuItem1.Size = New System.Drawing.Size(246, 24)
Me.NeueBehandlungToolStripMenuItem1.Text = "&Neue Behandlung" Me.NeueBehandlungToolStripMenuItem1.Text = "&Neue Behandlung"
' '
'ToolStripMenuItem2 'ToolStripMenuItem2
' '
Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(208, 6) Me.ToolStripMenuItem2.Size = New System.Drawing.Size(243, 6)
' '
'BehandlungabschliessenToolStripMenuItem1 'BehandlungabschliessenToolStripMenuItem1
' '
Me.BehandlungabschliessenToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AbschlussMitRecallAnzeigeToolStripMenuItem, Me.AbshlussOhneRecallAnzeigeToolStripMenuItem})
Me.BehandlungabschliessenToolStripMenuItem1.Name = "BehandlungabschliessenToolStripMenuItem1" Me.BehandlungabschliessenToolStripMenuItem1.Name = "BehandlungabschliessenToolStripMenuItem1"
Me.BehandlungabschliessenToolStripMenuItem1.Size = New System.Drawing.Size(211, 22) Me.BehandlungabschliessenToolStripMenuItem1.Size = New System.Drawing.Size(246, 24)
Me.BehandlungabschliessenToolStripMenuItem1.Text = "Behandlung &abschliessen" Me.BehandlungabschliessenToolStripMenuItem1.Text = "Behandlung &abschliessen"
' '
'AbschlussMitRecallAnzeigeToolStripMenuItem
'
Me.AbschlussMitRecallAnzeigeToolStripMenuItem.Name = "AbschlussMitRecallAnzeigeToolStripMenuItem"
Me.AbschlussMitRecallAnzeigeToolStripMenuItem.Size = New System.Drawing.Size(290, 26)
Me.AbschlussMitRecallAnzeigeToolStripMenuItem.Text = "Abschluss mit Recall-Anzeige"
'
'AbshlussOhneRecallAnzeigeToolStripMenuItem
'
Me.AbshlussOhneRecallAnzeigeToolStripMenuItem.Name = "AbshlussOhneRecallAnzeigeToolStripMenuItem"
Me.AbshlussOhneRecallAnzeigeToolStripMenuItem.Size = New System.Drawing.Size(290, 26)
Me.AbshlussOhneRecallAnzeigeToolStripMenuItem.Text = "Abshluss ohne Recall-Anzeige"
'
'BehandlungZurücksetzenToolStripMenuItem 'BehandlungZurücksetzenToolStripMenuItem
' '
Me.BehandlungZurücksetzenToolStripMenuItem.Name = "BehandlungZurücksetzenToolStripMenuItem" Me.BehandlungZurücksetzenToolStripMenuItem.Name = "BehandlungZurücksetzenToolStripMenuItem"
Me.BehandlungZurücksetzenToolStripMenuItem.Size = New System.Drawing.Size(211, 22) Me.BehandlungZurücksetzenToolStripMenuItem.Size = New System.Drawing.Size(246, 24)
Me.BehandlungZurücksetzenToolStripMenuItem.Text = "Behandlung zurücksetzen" Me.BehandlungZurücksetzenToolStripMenuItem.Text = "Behandlung zurücksetzen"
' '
'BehandlungKopierenToolStripMenuItem 'BehandlungKopierenToolStripMenuItem
' '
Me.BehandlungKopierenToolStripMenuItem.Name = "BehandlungKopierenToolStripMenuItem" Me.BehandlungKopierenToolStripMenuItem.Name = "BehandlungKopierenToolStripMenuItem"
Me.BehandlungKopierenToolStripMenuItem.Size = New System.Drawing.Size(211, 22) Me.BehandlungKopierenToolStripMenuItem.Size = New System.Drawing.Size(246, 24)
Me.BehandlungKopierenToolStripMenuItem.Text = "Behandlung kopieren" Me.BehandlungKopierenToolStripMenuItem.Text = "Behandlung kopieren"
' '
'ToolStripMenuItem4 'ToolStripMenuItem4
' '
Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
Me.ToolStripMenuItem4.Size = New System.Drawing.Size(208, 6) Me.ToolStripMenuItem4.Size = New System.Drawing.Size(243, 6)
' '
'SofortRechnungDruckenToolStripMenuItem 'SofortRechnungDruckenToolStripMenuItem
' '
Me.SofortRechnungDruckenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VorschauToolStripMenuItem, Me.EntwurfToolStripMenuItem, Me.ToolStripMenuItem6, Me.AlsPdfToolStripMenuItem1, Me.AlsMailToolStripMenuItem}) Me.SofortRechnungDruckenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VorschauToolStripMenuItem, Me.EntwurfToolStripMenuItem, Me.ToolStripMenuItem6, Me.AlsPdfToolStripMenuItem1, Me.AlsMailToolStripMenuItem})
Me.SofortRechnungDruckenToolStripMenuItem.Name = "SofortRechnungDruckenToolStripMenuItem" Me.SofortRechnungDruckenToolStripMenuItem.Name = "SofortRechnungDruckenToolStripMenuItem"
Me.SofortRechnungDruckenToolStripMenuItem.Size = New System.Drawing.Size(211, 22) Me.SofortRechnungDruckenToolStripMenuItem.Size = New System.Drawing.Size(246, 24)
Me.SofortRechnungDruckenToolStripMenuItem.Text = "Sofort-Rechnung drucken" Me.SofortRechnungDruckenToolStripMenuItem.Text = "Sofort-Rechnung drucken"
' '
'VorschauToolStripMenuItem 'VorschauToolStripMenuItem
' '
Me.VorschauToolStripMenuItem.Name = "VorschauToolStripMenuItem" Me.VorschauToolStripMenuItem.Name = "VorschauToolStripMenuItem"
Me.VorschauToolStripMenuItem.Size = New System.Drawing.Size(202, 22) Me.VorschauToolStripMenuItem.Size = New System.Drawing.Size(252, 26)
Me.VorschauToolStripMenuItem.Text = "Vorschau" Me.VorschauToolStripMenuItem.Text = "Vorschau"
' '
'EntwurfToolStripMenuItem 'EntwurfToolStripMenuItem
' '
Me.EntwurfToolStripMenuItem.Name = "EntwurfToolStripMenuItem" Me.EntwurfToolStripMenuItem.Name = "EntwurfToolStripMenuItem"
Me.EntwurfToolStripMenuItem.Size = New System.Drawing.Size(202, 22) Me.EntwurfToolStripMenuItem.Size = New System.Drawing.Size(252, 26)
Me.EntwurfToolStripMenuItem.Text = "Entwurf" Me.EntwurfToolStripMenuItem.Text = "Entwurf"
' '
'ToolStripMenuItem6 'ToolStripMenuItem6
' '
Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6" Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6"
Me.ToolStripMenuItem6.Size = New System.Drawing.Size(199, 6) Me.ToolStripMenuItem6.Size = New System.Drawing.Size(249, 6)
' '
'AlsPdfToolStripMenuItem1 'AlsPdfToolStripMenuItem1
' '
Me.AlsPdfToolStripMenuItem1.Name = "AlsPdfToolStripMenuItem1" Me.AlsPdfToolStripMenuItem1.Name = "AlsPdfToolStripMenuItem1"
Me.AlsPdfToolStripMenuItem1.Size = New System.Drawing.Size(202, 22) Me.AlsPdfToolStripMenuItem1.Size = New System.Drawing.Size(252, 26)
Me.AlsPdfToolStripMenuItem1.Text = "als PDF" Me.AlsPdfToolStripMenuItem1.Text = "als PDF"
' '
'AlsMailToolStripMenuItem 'AlsMailToolStripMenuItem
' '
Me.AlsMailToolStripMenuItem.Name = "AlsMailToolStripMenuItem" Me.AlsMailToolStripMenuItem.Name = "AlsMailToolStripMenuItem"
Me.AlsMailToolStripMenuItem.Size = New System.Drawing.Size(202, 22) Me.AlsMailToolStripMenuItem.Size = New System.Drawing.Size(252, 26)
Me.AlsMailToolStripMenuItem.Text = "als PDF an Outlook-Mail" Me.AlsMailToolStripMenuItem.Text = "als PDF an Outlook-Mail"
' '
'KopieErstellenToolStripMenuItem 'KopieErstellenToolStripMenuItem
' '
Me.KopieErstellenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AlsPDFToolStripMenuItem, Me.ÜberDruckerToolStripMenuItem}) Me.KopieErstellenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AlsPDFToolStripMenuItem, Me.ÜberDruckerToolStripMenuItem})
Me.KopieErstellenToolStripMenuItem.Name = "KopieErstellenToolStripMenuItem" Me.KopieErstellenToolStripMenuItem.Name = "KopieErstellenToolStripMenuItem"
Me.KopieErstellenToolStripMenuItem.Size = New System.Drawing.Size(211, 22) Me.KopieErstellenToolStripMenuItem.Size = New System.Drawing.Size(246, 24)
Me.KopieErstellenToolStripMenuItem.Text = "Rechnungskopie erstellen" Me.KopieErstellenToolStripMenuItem.Text = "Rechnungskopie erstellen"
' '
'AlsPDFToolStripMenuItem 'AlsPDFToolStripMenuItem
' '
Me.AlsPDFToolStripMenuItem.Name = "AlsPDFToolStripMenuItem" Me.AlsPDFToolStripMenuItem.Name = "AlsPDFToolStripMenuItem"
Me.AlsPDFToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.AlsPDFToolStripMenuItem.Size = New System.Drawing.Size(177, 26)
Me.AlsPDFToolStripMenuItem.Text = "als PDF" Me.AlsPDFToolStripMenuItem.Text = "als PDF"
' '
'ÜberDruckerToolStripMenuItem 'ÜberDruckerToolStripMenuItem
' '
Me.ÜberDruckerToolStripMenuItem.Name = "ÜberDruckerToolStripMenuItem" Me.ÜberDruckerToolStripMenuItem.Name = "ÜberDruckerToolStripMenuItem"
Me.ÜberDruckerToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.ÜberDruckerToolStripMenuItem.Size = New System.Drawing.Size(177, 26)
Me.ÜberDruckerToolStripMenuItem.Text = "über Drucker" Me.ÜberDruckerToolStripMenuItem.Text = "über Drucker"
' '
'ToolStripMenuItem3 'ToolStripMenuItem3
' '
Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3" Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
Me.ToolStripMenuItem3.Size = New System.Drawing.Size(208, 6) Me.ToolStripMenuItem3.Size = New System.Drawing.Size(243, 6)
' '
'BehandlungLöschenToolStripMenuItem1 'BehandlungLöschenToolStripMenuItem1
' '
Me.BehandlungLöschenToolStripMenuItem1.Name = "BehandlungLöschenToolStripMenuItem1" Me.BehandlungLöschenToolStripMenuItem1.Name = "BehandlungLöschenToolStripMenuItem1"
Me.BehandlungLöschenToolStripMenuItem1.Size = New System.Drawing.Size(211, 22) Me.BehandlungLöschenToolStripMenuItem1.Size = New System.Drawing.Size(246, 24)
Me.BehandlungLöschenToolStripMenuItem1.Text = "&Behandlung löschen" Me.BehandlungLöschenToolStripMenuItem1.Text = "&Behandlung löschen"
' '
'ToolStripMenuItem5 'ToolStripMenuItem5
' '
Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5" Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5"
Me.ToolStripMenuItem5.Size = New System.Drawing.Size(208, 6) Me.ToolStripMenuItem5.Size = New System.Drawing.Size(243, 6)
' '
'RechungKVVorschauToolStripMenuItem 'RechungKVVorschauToolStripMenuItem
' '
Me.RechungKVVorschauToolStripMenuItem.Name = "RechungKVVorschauToolStripMenuItem" Me.RechungKVVorschauToolStripMenuItem.Name = "RechungKVVorschauToolStripMenuItem"
Me.RechungKVVorschauToolStripMenuItem.Size = New System.Drawing.Size(211, 22) Me.RechungKVVorschauToolStripMenuItem.Size = New System.Drawing.Size(246, 24)
Me.RechungKVVorschauToolStripMenuItem.Text = "Rechung/KV Vorschau" Me.RechungKVVorschauToolStripMenuItem.Text = "Rechung/KV Vorschau"
' '
'RechnungKVEntwurfToolStripMenuItem 'RechnungKVEntwurfToolStripMenuItem
' '
Me.RechnungKVEntwurfToolStripMenuItem.Name = "RechnungKVEntwurfToolStripMenuItem" Me.RechnungKVEntwurfToolStripMenuItem.Name = "RechnungKVEntwurfToolStripMenuItem"
Me.RechnungKVEntwurfToolStripMenuItem.Size = New System.Drawing.Size(211, 22) Me.RechnungKVEntwurfToolStripMenuItem.Size = New System.Drawing.Size(246, 24)
Me.RechnungKVEntwurfToolStripMenuItem.Text = "Rechnung/KV Entwurf" Me.RechnungKVEntwurfToolStripMenuItem.Text = "Rechnung/KV Entwurf"
' '
'ImageList1 'ImageList1
@@ -316,42 +336,42 @@ Partial Class Behandlung
'NeueBehandlungToolStripMenuItem 'NeueBehandlungToolStripMenuItem
' '
Me.NeueBehandlungToolStripMenuItem.Name = "NeueBehandlungToolStripMenuItem" Me.NeueBehandlungToolStripMenuItem.Name = "NeueBehandlungToolStripMenuItem"
Me.NeueBehandlungToolStripMenuItem.Size = New System.Drawing.Size(243, 22) Me.NeueBehandlungToolStripMenuItem.Size = New System.Drawing.Size(288, 24)
Me.NeueBehandlungToolStripMenuItem.Text = "&Neue Behandlung" Me.NeueBehandlungToolStripMenuItem.Text = "&Neue Behandlung"
' '
'BehandlungAbschliessenToolStripMenuItem 'BehandlungAbschliessenToolStripMenuItem
' '
Me.BehandlungAbschliessenToolStripMenuItem.Name = "BehandlungAbschliessenToolStripMenuItem" Me.BehandlungAbschliessenToolStripMenuItem.Name = "BehandlungAbschliessenToolStripMenuItem"
Me.BehandlungAbschliessenToolStripMenuItem.Size = New System.Drawing.Size(243, 22) Me.BehandlungAbschliessenToolStripMenuItem.Size = New System.Drawing.Size(288, 24)
Me.BehandlungAbschliessenToolStripMenuItem.Text = "&Behandlung abschliessen" Me.BehandlungAbschliessenToolStripMenuItem.Text = "&Behandlung abschliessen"
' '
'BehandlungLöschenToolStripMenuItem 'BehandlungLöschenToolStripMenuItem
' '
Me.BehandlungLöschenToolStripMenuItem.Name = "BehandlungLöschenToolStripMenuItem" Me.BehandlungLöschenToolStripMenuItem.Name = "BehandlungLöschenToolStripMenuItem"
Me.BehandlungLöschenToolStripMenuItem.Size = New System.Drawing.Size(243, 22) Me.BehandlungLöschenToolStripMenuItem.Size = New System.Drawing.Size(288, 24)
Me.BehandlungLöschenToolStripMenuItem.Text = "Behandlung &löschen" Me.BehandlungLöschenToolStripMenuItem.Text = "Behandlung &löschen"
' '
'ToolStripMenuItem1 'ToolStripMenuItem1
' '
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(240, 6) Me.ToolStripMenuItem1.Size = New System.Drawing.Size(285, 6)
' '
'NeuerKostenvoranschlagToolStripMenuItem 'NeuerKostenvoranschlagToolStripMenuItem
' '
Me.NeuerKostenvoranschlagToolStripMenuItem.Name = "NeuerKostenvoranschlagToolStripMenuItem" Me.NeuerKostenvoranschlagToolStripMenuItem.Name = "NeuerKostenvoranschlagToolStripMenuItem"
Me.NeuerKostenvoranschlagToolStripMenuItem.Size = New System.Drawing.Size(243, 22) Me.NeuerKostenvoranschlagToolStripMenuItem.Size = New System.Drawing.Size(288, 24)
Me.NeuerKostenvoranschlagToolStripMenuItem.Text = "Neuer &Kostenvoranschlag" Me.NeuerKostenvoranschlagToolStripMenuItem.Text = "Neuer &Kostenvoranschlag"
' '
'KostenvoranschlagAbschliessenToolStripMenuItem 'KostenvoranschlagAbschliessenToolStripMenuItem
' '
Me.KostenvoranschlagAbschliessenToolStripMenuItem.Name = "KostenvoranschlagAbschliessenToolStripMenuItem" Me.KostenvoranschlagAbschliessenToolStripMenuItem.Name = "KostenvoranschlagAbschliessenToolStripMenuItem"
Me.KostenvoranschlagAbschliessenToolStripMenuItem.Size = New System.Drawing.Size(243, 22) Me.KostenvoranschlagAbschliessenToolStripMenuItem.Size = New System.Drawing.Size(288, 24)
Me.KostenvoranschlagAbschliessenToolStripMenuItem.Text = "Kostenvoranschlag abschliessen" Me.KostenvoranschlagAbschliessenToolStripMenuItem.Text = "Kostenvoranschlag abschliessen"
' '
'KostenvoranschlagLöschenToolStripMenuItem 'KostenvoranschlagLöschenToolStripMenuItem
' '
Me.KostenvoranschlagLöschenToolStripMenuItem.Name = "KostenvoranschlagLöschenToolStripMenuItem" Me.KostenvoranschlagLöschenToolStripMenuItem.Name = "KostenvoranschlagLöschenToolStripMenuItem"
Me.KostenvoranschlagLöschenToolStripMenuItem.Size = New System.Drawing.Size(243, 22) Me.KostenvoranschlagLöschenToolStripMenuItem.Size = New System.Drawing.Size(288, 24)
Me.KostenvoranschlagLöschenToolStripMenuItem.Text = "Kostenvoranschlag löschen" Me.KostenvoranschlagLöschenToolStripMenuItem.Text = "Kostenvoranschlag löschen"
' '
'SuperTabControl1 'SuperTabControl1
@@ -373,12 +393,13 @@ Partial Class Behandlung
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2) Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3) Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
Me.SuperTabControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.SuperTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControl1.Location = New System.Drawing.Point(220, 25) Me.SuperTabControl1.Location = New System.Drawing.Point(293, 31)
Me.SuperTabControl1.Margin = New System.Windows.Forms.Padding(4)
Me.SuperTabControl1.Name = "SuperTabControl1" Me.SuperTabControl1.Name = "SuperTabControl1"
Me.SuperTabControl1.ReorderTabsEnabled = True Me.SuperTabControl1.ReorderTabsEnabled = True
Me.SuperTabControl1.SelectedTabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold) Me.SuperTabControl1.SelectedTabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
Me.SuperTabControl1.SelectedTabIndex = 0 Me.SuperTabControl1.SelectedTabIndex = 0
Me.SuperTabControl1.Size = New System.Drawing.Size(1065, 813) Me.SuperTabControl1.Size = New System.Drawing.Size(1420, 1000)
Me.SuperTabControl1.TabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.SuperTabControl1.TabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SuperTabControl1.TabIndex = 9 Me.SuperTabControl1.TabIndex = 9
Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.STBehandlung, Me.STLeistung}) Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.STBehandlung, Me.STLeistung})
@@ -388,9 +409,10 @@ Partial Class Behandlung
' '
Me.SuperTabControlPanel1.Controls.Add(Me.Panel2) Me.SuperTabControlPanel1.Controls.Add(Me.Panel2)
Me.SuperTabControlPanel1.Dock = System.Windows.Forms.DockStyle.Fill Me.SuperTabControlPanel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel1.Location = New System.Drawing.Point(0, 25) Me.SuperTabControlPanel1.Location = New System.Drawing.Point(0, 28)
Me.SuperTabControlPanel1.Margin = New System.Windows.Forms.Padding(4)
Me.SuperTabControlPanel1.Name = "SuperTabControlPanel1" Me.SuperTabControlPanel1.Name = "SuperTabControlPanel1"
Me.SuperTabControlPanel1.Size = New System.Drawing.Size(1065, 788) Me.SuperTabControlPanel1.Size = New System.Drawing.Size(1420, 972)
Me.SuperTabControlPanel1.TabIndex = 1 Me.SuperTabControlPanel1.TabIndex = 1
Me.SuperTabControlPanel1.TabItem = Me.STBehandlung Me.SuperTabControlPanel1.TabItem = Me.STBehandlung
' '
@@ -398,8 +420,9 @@ Partial Class Behandlung
' '
Me.Panel2.Controls.Add(Me.Behandungdetail1) Me.Panel2.Controls.Add(Me.Behandungdetail1)
Me.Panel2.Location = New System.Drawing.Point(0, 0) Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Margin = New System.Windows.Forms.Padding(4)
Me.Panel2.Name = "Panel2" Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(1062, 788) Me.Panel2.Size = New System.Drawing.Size(1416, 970)
Me.Panel2.TabIndex = 9 Me.Panel2.TabIndex = 9
' '
'STBehandlung 'STBehandlung
@@ -413,9 +436,10 @@ Partial Class Behandlung
' '
Me.SuperTabControlPanel2.Controls.Add(Me.Panel1) Me.SuperTabControlPanel2.Controls.Add(Me.Panel1)
Me.SuperTabControlPanel2.Dock = System.Windows.Forms.DockStyle.Fill Me.SuperTabControlPanel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel2.Location = New System.Drawing.Point(0, 25) Me.SuperTabControlPanel2.Location = New System.Drawing.Point(0, 28)
Me.SuperTabControlPanel2.Margin = New System.Windows.Forms.Padding(4)
Me.SuperTabControlPanel2.Name = "SuperTabControlPanel2" Me.SuperTabControlPanel2.Name = "SuperTabControlPanel2"
Me.SuperTabControlPanel2.Size = New System.Drawing.Size(1065, 788) Me.SuperTabControlPanel2.Size = New System.Drawing.Size(1420, 972)
Me.SuperTabControlPanel2.TabIndex = 0 Me.SuperTabControlPanel2.TabIndex = 0
Me.SuperTabControlPanel2.TabItem = Me.STLeistung Me.SuperTabControlPanel2.TabItem = Me.STLeistung
' '
@@ -424,8 +448,9 @@ Partial Class Behandlung
Me.Panel1.Controls.Add(Me.Leistungen1) Me.Panel1.Controls.Add(Me.Leistungen1)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 0) Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Margin = New System.Windows.Forms.Padding(4)
Me.Panel1.Name = "Panel1" Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1065, 788) Me.Panel1.Size = New System.Drawing.Size(1420, 972)
Me.Panel1.TabIndex = 1 Me.Panel1.TabIndex = 1
' '
'STLeistung 'STLeistung
@@ -439,8 +464,9 @@ Partial Class Behandlung
' '
Me.SuperTabControlPanel3.Dock = System.Windows.Forms.DockStyle.Fill Me.SuperTabControlPanel3.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel3.Location = New System.Drawing.Point(0, 0) Me.SuperTabControlPanel3.Location = New System.Drawing.Point(0, 0)
Me.SuperTabControlPanel3.Margin = New System.Windows.Forms.Padding(4)
Me.SuperTabControlPanel3.Name = "SuperTabControlPanel3" Me.SuperTabControlPanel3.Name = "SuperTabControlPanel3"
Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1065, 813) Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1420, 1000)
Me.SuperTabControlPanel3.TabIndex = 0 Me.SuperTabControlPanel3.TabIndex = 0
' '
'tsbtnnew 'tsbtnnew
@@ -449,7 +475,7 @@ Partial Class Behandlung
Me.tsbtnnew.Image = CType(resources.GetObject("tsbtnnew.Image"), System.Drawing.Image) Me.tsbtnnew.Image = CType(resources.GetObject("tsbtnnew.Image"), System.Drawing.Image)
Me.tsbtnnew.ImageTransparentColor = System.Drawing.Color.Magenta Me.tsbtnnew.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnnew.Name = "tsbtnnew" Me.tsbtnnew.Name = "tsbtnnew"
Me.tsbtnnew.Size = New System.Drawing.Size(23, 22) Me.tsbtnnew.Size = New System.Drawing.Size(29, 22)
Me.tsbtnnew.Text = "Neue Behandlung" Me.tsbtnnew.Text = "Neue Behandlung"
' '
'ToolStripButton1 'ToolStripButton1
@@ -458,11 +484,12 @@ Partial Class Behandlung
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image) Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1" Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22) Me.ToolStripButton1.Size = New System.Drawing.Size(29, 22)
Me.ToolStripButton1.Text = "ToolStripButton1" Me.ToolStripButton1.Text = "ToolStripButton1"
' '
'tsbtnbehandlungdelete 'tsbtnbehandlungdelete
' '
Me.tsbtnbehandlungdelete.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.tsbtnbehandlungdelete.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnnew, Me.ToolStripButton1}) Me.tsbtnbehandlungdelete.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnnew, Me.ToolStripButton1})
Me.tsbtnbehandlungdelete.Location = New System.Drawing.Point(0, 0) Me.tsbtnbehandlungdelete.Location = New System.Drawing.Point(0, 0)
Me.tsbtnbehandlungdelete.Name = "tsbtnbehandlungdelete" Me.tsbtnbehandlungdelete.Name = "tsbtnbehandlungdelete"
@@ -472,20 +499,10 @@ Partial Class Behandlung
' '
'ContextMenuStrip1 'ContextMenuStrip1
' '
Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueBehandlungToolStripMenuItem, Me.BehandlungAbschliessenToolStripMenuItem, Me.BehandlungLöschenToolStripMenuItem, Me.ToolStripMenuItem1, Me.NeuerKostenvoranschlagToolStripMenuItem, Me.KostenvoranschlagAbschliessenToolStripMenuItem, Me.KostenvoranschlagLöschenToolStripMenuItem}) Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueBehandlungToolStripMenuItem, Me.BehandlungAbschliessenToolStripMenuItem, Me.BehandlungLöschenToolStripMenuItem, Me.ToolStripMenuItem1, Me.NeuerKostenvoranschlagToolStripMenuItem, Me.KostenvoranschlagAbschliessenToolStripMenuItem, Me.KostenvoranschlagLöschenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(244, 142) Me.ContextMenuStrip1.Size = New System.Drawing.Size(289, 154)
'
'Behandungdetail1
'
Me.Behandungdetail1.Behandlungsnr = 0
Me.Behandungdetail1.Behandlungsstatus = 0
Me.Behandungdetail1.HasChanges = False
Me.Behandungdetail1.Location = New System.Drawing.Point(3, 6)
Me.Behandungdetail1.Name = "Behandungdetail1"
Me.Behandungdetail1.Patientnr = 0
Me.Behandungdetail1.Size = New System.Drawing.Size(1059, 779)
Me.Behandungdetail1.TabIndex = 0
' '
'Leistungen1 'Leistungen1
' '
@@ -496,19 +513,33 @@ Partial Class Behandlung
Me.Leistungen1.Dock = System.Windows.Forms.DockStyle.Fill Me.Leistungen1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Leistungen1.Frankenwert = 0R Me.Leistungen1.Frankenwert = 0R
Me.Leistungen1.Location = New System.Drawing.Point(0, 0) Me.Leistungen1.Location = New System.Drawing.Point(0, 0)
Me.Leistungen1.Margin = New System.Windows.Forms.Padding(5)
Me.Leistungen1.Name = "Leistungen1" Me.Leistungen1.Name = "Leistungen1"
Me.Leistungen1.Size = New System.Drawing.Size(1065, 788) Me.Leistungen1.Size = New System.Drawing.Size(1420, 972)
Me.Leistungen1.TabIndex = 0 Me.Leistungen1.TabIndex = 0
' '
'Behandungdetail1
'
Me.Behandungdetail1.Behandlungsnr = 0
Me.Behandungdetail1.Behandlungsstatus = 0
Me.Behandungdetail1.HasChanges = False
Me.Behandungdetail1.Location = New System.Drawing.Point(4, 7)
Me.Behandungdetail1.Margin = New System.Windows.Forms.Padding(5)
Me.Behandungdetail1.Name = "Behandungdetail1"
Me.Behandungdetail1.Patientnr = 0
Me.Behandungdetail1.Size = New System.Drawing.Size(1412, 959)
Me.Behandungdetail1.TabIndex = 0
'
'Behandlung 'Behandlung
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.SuperTabControl1) Me.Controls.Add(Me.SuperTabControl1)
Me.Controls.Add(Me.GroupBox1) Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.tsbtndelete) Me.Controls.Add(Me.tsbtndelete)
Me.Margin = New System.Windows.Forms.Padding(4)
Me.Name = "Behandlung" Me.Name = "Behandlung"
Me.Size = New System.Drawing.Size(1285, 838) Me.Size = New System.Drawing.Size(1713, 1031)
Me.tsbtndelete.ResumeLayout(False) Me.tsbtndelete.ResumeLayout(False)
Me.tsbtndelete.PerformLayout() Me.tsbtndelete.PerformLayout()
Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.ResumeLayout(False)
@@ -579,4 +610,6 @@ Partial Class Behandlung
Friend WithEvents ToolStripMenuItem6 As ToolStripSeparator Friend WithEvents ToolStripMenuItem6 As ToolStripSeparator
Friend WithEvents AlsPdfToolStripMenuItem1 As ToolStripMenuItem Friend WithEvents AlsPdfToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents AlsMailToolStripMenuItem As ToolStripMenuItem Friend WithEvents AlsMailToolStripMenuItem As ToolStripMenuItem
Friend WithEvents AbschlussMitRecallAnzeigeToolStripMenuItem As ToolStripMenuItem
Friend WithEvents AbshlussOhneRecallAnzeigeToolStripMenuItem As ToolStripMenuItem
End Class End Class

12
DPM2016/Behandlung/Behandlung.resx
View File

@@ -124,7 +124,7 @@
<data name="tsbtnnewbehandlung.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tsbtnnewbehandlung.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6 Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
@@ -139,7 +139,7 @@
<data name="tsbtndeletebehandlung.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tsbtndeletebehandlung.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
gouAEPULuMlSxe+Rrbt8hKEWGfJobNq5k0ZaJ7Vgq90ILW5auiiFLv8955oJiU37hwPDPfd3/ufMvVex gouAEPULuMlSxe+Rrbt8hKEWGfJobNq5k0ZaJ7Vgq90ILW5auiiFLv8955oJiU37hwPDPfd3/ufMvVex
VTk4SF0mEprmcrmrS39JCwbdpZ0dzdjeTlWXHvUhmUw/nJ7i7e4uspGIxRurqZqqsPXp5ATG4iJyo6Np VTk4SF0mEprmcrmrS39JCwbdpZ0dzdjeTlWXHvUhmUw/nJ7i7e4uspGIxRurqZqqsPXp5ATG4iJyo6Np
mWBnCScSMNfXIVZXoatqQ5EafHwMMTcHY2ZGRkZVUwq3zc42LJaXYSwtQQ+HZZEafHQEEYtBTE3VQh8a mWBnCScSMNfXIVZXoatqQ5EafHwMMTcHY2ZGRkZVUwq3zc42LJaXYSwtQQ+HZZEafHQEEYtBTE3VQh8a
@@ -155,7 +155,7 @@
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAAMgAAADICAYAAACtWK6eAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAAMgAAADICAYAAACtWK6eAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAA+oSURBVHhe7Z0J8H5THcYp2cJky5IpCqP8LSnrVBSViBiy YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAA+oSURBVHhe7Z0J8H5THcYp2cJky5IpCqP8LSnrVBSViBiy
VfaQrMkSypYskbQRZQuhKSRbY6eikq1sWcJEEWXLlup5+P/G6/W87+++7znn3nvOfT4zn2nS796cc+/7 VfaQrMkSypYskbQRZQuhKSRbY6eikq1sWcJEEWXLlup5+P/G6/W87+++7znn3nvOfT4zn2nS796cc+/7
vvee812mMcYYY4wxxhhjjDHGGGOMMcYYY4wxxhhjjDHGGGOMMcYYY4wxxhhjjDHGGGOMKZN54FJwVbgR vvee812mMcYYY4wxxhhjjDHGGGOMMcYYY4wxxhhjjDHGGGOMMcYYY4wxxhhjjDHGGGOMKZN54FJwVbgR
3BHuAw+Ah8Aj4Dfh4VP/2V5wZ7gZXB3yWJ7jddCYLJkWLgY/DQ+FP4U3wafg/yL5PLwdngsPg1vC98A3 3BHuAw+Ah8Aj4Dfh4VP/2V5wZ7gZXB3yWJ7jddCYLJkWLgY/DQ+FP4U3wafg/yL5PLwdngsPg1vC98A3
@@ -236,7 +236,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABO ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABO
DQAAAk1TRnQBSQFMAgEBBQEAASABAwEgAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo DQAAAk1TRnQBSQFMAgEBBQEAAWABAwFgAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -298,7 +298,7 @@
<data name="tsbtnnew.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tsbtnnew.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6 Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
@@ -313,7 +313,7 @@
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
gouAEPULuMlSxe+Rrbt8hKEWGfJobNq5k0ZaJ7Vgq90ILW5auiiFLv8955oJiU37hwPDPfd3/ufMvVex gouAEPULuMlSxe+Rrbt8hKEWGfJobNq5k0ZaJ7Vgq90ILW5auiiFLv8955oJiU37hwPDPfd3/ufMvVex
VTk4SF0mEprmcrmrS39JCwbdpZ0dzdjeTlWXHvUhmUw/nJ7i7e4uspGIxRurqZqqsPXp5ATG4iJyo6Np VTk4SF0mEprmcrmrS39JCwbdpZ0dzdjeTlWXHvUhmUw/nJ7i7e4uspGIxRurqZqqsPXp5ATG4iJyo6Np
mWBnCScSMNfXIVZXoatqQ5EafHwMMTcHY2ZGRkZVUwq3zc42LJaXYSwtQQ+HZZEafHQEEYtBTE3VQh8a mWBnCScSMNfXIVZXoatqQ5EafHwMMTcHY2ZGRkZVUwq3zc42LJaXYSwtQQ+HZZEafHQEEYtBTE3VQh8a

34
DPM2016/Behandlung/Behandlung.vb
View File

@@ -565,9 +565,15 @@ Public Class Behandlung
End Sub End Sub
Private Sub BehandlungabschliessenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles BehandlungabschliessenToolStripMenuItem1.Click Private Sub BehandlungabschliessenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles BehandlungabschliessenToolStripMenuItem1.Click
Application.DoEvents()
Me.ctxmenubehandlung.Close()
' If MsgBox("Behandlung/KV abschliessen?", vbYesNo + vbQuestion) = vbYes Then ' If MsgBox("Behandlung/KV abschliessen?", vbYesNo + vbQuestion) = vbYes Then
Try
If DB.Get_Option(10001) = True Then Globals.Recall_Bei_Abschluss = True Else Globals.Recall_Bei_Abschluss = False
Catch
End Try
Behandlung_Abschliessen(Me.treebehandlungen.SelectedNode.Tag.ToString) Behandlung_Abschliessen(Me.treebehandlungen.SelectedNode.Tag.ToString, Globals.Recall_Bei_Abschluss)
'End If 'End If
End Sub End Sub
@@ -760,7 +766,7 @@ Public Class Behandlung
End Sub End Sub
Sub Behandlung_Abschliessen(ByVal nrbehandlung) Sub Behandlung_Abschliessen(ByVal nrbehandlung As Integer, Optional show_recall As Boolean = True)
Globals.InAbschluss = 0 Globals.InAbschluss = 0
Dim istKV As Boolean = False Dim istKV As Boolean = False
Dim db As New clsDB Dim db As New clsDB
@@ -775,7 +781,22 @@ Public Class Behandlung
istKV = True istKV = True
Messagetext = "Kostenvoranschlag" Messagetext = "Kostenvoranschlag"
End If End If
If db.dsDaten.Tables(0).Rows(0).Item("rgdatum").ToString < Now.ToString And db.dsDaten.Tables(0).Rows(0).Item("rgdatum").ToString <> "" Then
Dim d As New frmMsgbox
d.set_text("Das Rechnungsdatum liegt in der Vergangenheit.", "Löschen und weiter", "weiter", "Abbruch")
Dim res As DialogResult
res = d.ShowDialog
Select Case res
Case DialogResult.Yes
db.dsDaten.Tables(0).Rows(0).Item("rgdatum") = System.DBNull.Value
db.Update_Data()
Case DialogResult.No
Case DialogResult.Abort, DialogResult.Cancel
Exit Sub
End Select
End If
If MsgBox(Messagetext + " abschliessen?", vbYesNo + vbQuestion) = vbYes Then If MsgBox(Messagetext + " abschliessen?", vbYesNo + vbQuestion) = vbYes Then
Me.Behandungdetail1.Save_Data() Me.Behandungdetail1.Save_Data()
@@ -800,6 +821,7 @@ Public Class Behandlung
Me.nodeselected() Me.nodeselected()
If istKV Then Exit Sub If istKV Then Exit Sub
If show_recall = False Then Exit Sub
Dim pat As New clsDB Dim pat As New clsDB
pat.Get_Tabledata("Privat", "where nrprivat=" + Me.PatientNr.ToString) pat.Get_Tabledata("Privat", "where nrprivat=" + Me.PatientNr.ToString)
Try Try
@@ -1017,6 +1039,14 @@ Public Class Behandlung
Behandungdetail1.Sofortrechnung_als_pdf(True) Behandungdetail1.Sofortrechnung_als_pdf(True)
End Sub End Sub
Private Sub AbschlussMitRecallAnzeigeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AbschlussMitRecallAnzeigeToolStripMenuItem.Click
Behandlung_Abschliessen(Me.treebehandlungen.SelectedNode.Tag.ToString, True)
End Sub
Private Sub AbshlussOhneRecallAnzeigeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AbshlussOhneRecallAnzeigeToolStripMenuItem.Click
Behandlung_Abschliessen(Me.treebehandlungen.SelectedNode.Tag.ToString, False)
End Sub

8
DPM2016/Behandlung/Benhandungdetail.Designer.vb generated
View File

@@ -742,7 +742,7 @@ Partial Class Benhandungdetail
'txtAnzahlraten 'txtAnzahlraten
' '
Me.txtAnzahlraten.BackGroundColor = System.Drawing.SystemColors.Window Me.txtAnzahlraten.BackGroundColor = System.Drawing.SystemColors.Window
Me.txtAnzahlraten.BeforeTouchSize = New System.Drawing.Size(61, 20) Me.txtAnzahlraten.BeforeTouchSize = New System.Drawing.Size(100, 20)
Me.txtAnzahlraten.Cursor = System.Windows.Forms.Cursors.IBeam Me.txtAnzahlraten.Cursor = System.Windows.Forms.Cursors.IBeam
Me.txtAnzahlraten.DoubleValue = 0R Me.txtAnzahlraten.DoubleValue = 0R
Me.txtAnzahlraten.Location = New System.Drawing.Point(93, 19) Me.txtAnzahlraten.Location = New System.Drawing.Point(93, 19)
@@ -759,7 +759,7 @@ Partial Class Benhandungdetail
'mtxtRatenzuschlag 'mtxtRatenzuschlag
' '
Me.mtxtRatenzuschlag.BackGroundColor = System.Drawing.SystemColors.Window Me.mtxtRatenzuschlag.BackGroundColor = System.Drawing.SystemColors.Window
Me.mtxtRatenzuschlag.BeforeTouchSize = New System.Drawing.Size(61, 20) Me.mtxtRatenzuschlag.BeforeTouchSize = New System.Drawing.Size(100, 20)
Me.mtxtRatenzuschlag.Cursor = System.Windows.Forms.Cursors.IBeam Me.mtxtRatenzuschlag.Cursor = System.Windows.Forms.Cursors.IBeam
Me.mtxtRatenzuschlag.DoubleValue = 1.0R Me.mtxtRatenzuschlag.DoubleValue = 1.0R
Me.mtxtRatenzuschlag.Location = New System.Drawing.Point(93, 51) Me.mtxtRatenzuschlag.Location = New System.Drawing.Point(93, 51)
@@ -1113,7 +1113,7 @@ Partial Class Benhandungdetail
'mtxtRabatt 'mtxtRabatt
' '
Me.mtxtRabatt.BackGroundColor = System.Drawing.SystemColors.Window Me.mtxtRabatt.BackGroundColor = System.Drawing.SystemColors.Window
Me.mtxtRabatt.BeforeTouchSize = New System.Drawing.Size(61, 20) Me.mtxtRabatt.BeforeTouchSize = New System.Drawing.Size(100, 20)
Me.mtxtRabatt.Cursor = System.Windows.Forms.Cursors.IBeam Me.mtxtRabatt.Cursor = System.Windows.Forms.Cursors.IBeam
Me.mtxtRabatt.DoubleValue = 1.0R Me.mtxtRabatt.DoubleValue = 1.0R
Me.mtxtRabatt.Location = New System.Drawing.Point(190, 163) Me.mtxtRabatt.Location = New System.Drawing.Point(190, 163)
@@ -1129,7 +1129,7 @@ Partial Class Benhandungdetail
'mtxtTaxpunktwert 'mtxtTaxpunktwert
' '
Me.mtxtTaxpunktwert.BackGroundColor = System.Drawing.SystemColors.Window Me.mtxtTaxpunktwert.BackGroundColor = System.Drawing.SystemColors.Window
Me.mtxtTaxpunktwert.BeforeTouchSize = New System.Drawing.Size(61, 20) Me.mtxtTaxpunktwert.BeforeTouchSize = New System.Drawing.Size(100, 20)
Me.mtxtTaxpunktwert.Cursor = System.Windows.Forms.Cursors.IBeam Me.mtxtTaxpunktwert.Cursor = System.Windows.Forms.Cursors.IBeam
Me.mtxtTaxpunktwert.DoubleValue = 1.0R Me.mtxtTaxpunktwert.DoubleValue = 1.0R
Me.mtxtTaxpunktwert.Location = New System.Drawing.Point(190, 109) Me.mtxtTaxpunktwert.Location = New System.Drawing.Point(190, 109)

216
DPM2016/Behandlung/Leistungen.Designer.vb generated
View File

@@ -105,14 +105,14 @@ Partial Class Leistungen
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslabelbhtotal}) Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslabelbhtotal})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1" Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(1079, 25) Me.ToolStrip1.Size = New System.Drawing.Size(1439, 25)
Me.ToolStrip1.TabIndex = 0 Me.ToolStrip1.TabIndex = 0
Me.ToolStrip1.Text = "ToolStrip1" Me.ToolStrip1.Text = "ToolStrip1"
' '
'tslabelbhtotal 'tslabelbhtotal
' '
Me.tslabelbhtotal.Name = "tslabelbhtotal" Me.tslabelbhtotal.Name = "tslabelbhtotal"
Me.tslabelbhtotal.Size = New System.Drawing.Size(87, 22) Me.tslabelbhtotal.Size = New System.Drawing.Size(113, 22)
Me.tslabelbhtotal.Text = "ToolStripLabel1" Me.tslabelbhtotal.Text = "ToolStripLabel1"
' '
'GrpTarif 'GrpTarif
@@ -120,8 +120,10 @@ Partial Class Leistungen
Me.GrpTarif.Controls.Add(Me.TabTarife) Me.GrpTarif.Controls.Add(Me.TabTarife)
Me.GrpTarif.Dock = System.Windows.Forms.DockStyle.Left Me.GrpTarif.Dock = System.Windows.Forms.DockStyle.Left
Me.GrpTarif.Location = New System.Drawing.Point(0, 0) Me.GrpTarif.Location = New System.Drawing.Point(0, 0)
Me.GrpTarif.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.GrpTarif.Name = "GrpTarif" Me.GrpTarif.Name = "GrpTarif"
Me.GrpTarif.Size = New System.Drawing.Size(729, 284) Me.GrpTarif.Padding = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.GrpTarif.Size = New System.Drawing.Size(972, 350)
Me.GrpTarif.TabIndex = 1 Me.GrpTarif.TabIndex = 1
Me.GrpTarif.TabStop = False Me.GrpTarif.TabStop = False
Me.GrpTarif.Text = "Tarife" Me.GrpTarif.Text = "Tarife"
@@ -131,10 +133,11 @@ Partial Class Leistungen
Me.TabTarife.Controls.Add(Me.TabPage1) Me.TabTarife.Controls.Add(Me.TabPage1)
Me.TabTarife.Controls.Add(Me.TabPage2) Me.TabTarife.Controls.Add(Me.TabPage2)
Me.TabTarife.Dock = System.Windows.Forms.DockStyle.Left Me.TabTarife.Dock = System.Windows.Forms.DockStyle.Left
Me.TabTarife.Location = New System.Drawing.Point(3, 16) Me.TabTarife.Location = New System.Drawing.Point(4, 19)
Me.TabTarife.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.TabTarife.Name = "TabTarife" Me.TabTarife.Name = "TabTarife"
Me.TabTarife.SelectedIndex = 0 Me.TabTarife.SelectedIndex = 0
Me.TabTarife.Size = New System.Drawing.Size(720, 265) Me.TabTarife.Size = New System.Drawing.Size(960, 327)
Me.TabTarife.TabIndex = 0 Me.TabTarife.TabIndex = 0
' '
'TabPage1 'TabPage1
@@ -143,10 +146,11 @@ Partial Class Leistungen
Me.TabPage1.Controls.Add(Me.ToolStrip2) Me.TabPage1.Controls.Add(Me.ToolStrip2)
Me.TabPage1.Controls.Add(Me.Panel4) Me.TabPage1.Controls.Add(Me.Panel4)
Me.TabPage1.Controls.Add(Me.TreeTarifGruppen) Me.TabPage1.Controls.Add(Me.TreeTarifGruppen)
Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Location = New System.Drawing.Point(4, 25)
Me.TabPage1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.TabPage1.Name = "TabPage1" Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) Me.TabPage1.Padding = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.TabPage1.Size = New System.Drawing.Size(712, 239) Me.TabPage1.Size = New System.Drawing.Size(952, 298)
Me.TabPage1.TabIndex = 0 Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Tarif" Me.TabPage1.Text = "Tarif"
Me.TabPage1.UseVisualStyleBackColor = True Me.TabPage1.UseVisualStyleBackColor = True
@@ -165,9 +169,10 @@ Partial Class Leistungen
Me.lbtarif1.Dock = System.Windows.Forms.DockStyle.Fill Me.lbtarif1.Dock = System.Windows.Forms.DockStyle.Fill
Me.lbtarif1.DragDropSupport = True Me.lbtarif1.DragDropSupport = True
Me.lbtarif1.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F" Me.lbtarif1.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
Me.lbtarif1.Location = New System.Drawing.Point(196, 28) Me.lbtarif1.Location = New System.Drawing.Point(261, 31)
Me.lbtarif1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.lbtarif1.Name = "lbtarif1" Me.lbtarif1.Name = "lbtarif1"
Me.lbtarif1.Size = New System.Drawing.Size(513, 208) Me.lbtarif1.Size = New System.Drawing.Size(687, 263)
Me.lbtarif1.TabIndex = 5 Me.lbtarif1.TabIndex = 5
Me.lbtarif1.Text = "ListBoxAdv1" Me.lbtarif1.Text = "ListBoxAdv1"
' '
@@ -176,21 +181,21 @@ Partial Class Leistungen
Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(20, 20) Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TarifdetailsToolStripMenuItem}) Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TarifdetailsToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(131, 26) Me.ContextMenuStrip1.Size = New System.Drawing.Size(151, 28)
' '
'TarifdetailsToolStripMenuItem 'TarifdetailsToolStripMenuItem
' '
Me.TarifdetailsToolStripMenuItem.Name = "TarifdetailsToolStripMenuItem" Me.TarifdetailsToolStripMenuItem.Name = "TarifdetailsToolStripMenuItem"
Me.TarifdetailsToolStripMenuItem.Size = New System.Drawing.Size(130, 22) Me.TarifdetailsToolStripMenuItem.Size = New System.Drawing.Size(150, 24)
Me.TarifdetailsToolStripMenuItem.Text = "Tarifdetails" Me.TarifdetailsToolStripMenuItem.Text = "Tarifdetails"
' '
'ToolStrip2 'ToolStrip2
' '
Me.ToolStrip2.ImageScalingSize = New System.Drawing.Size(20, 20) Me.ToolStrip2.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsDown, Me.tsUp, Me.ToolStripLabel1, Me.txtfilter}) Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsDown, Me.tsUp, Me.ToolStripLabel1, Me.txtfilter})
Me.ToolStrip2.Location = New System.Drawing.Point(196, 3) Me.ToolStrip2.Location = New System.Drawing.Point(261, 4)
Me.ToolStrip2.Name = "ToolStrip2" Me.ToolStrip2.Name = "ToolStrip2"
Me.ToolStrip2.Size = New System.Drawing.Size(513, 25) Me.ToolStrip2.Size = New System.Drawing.Size(687, 27)
Me.ToolStrip2.TabIndex = 6 Me.ToolStrip2.TabIndex = 6
Me.ToolStrip2.Text = "ToolStrip2" Me.ToolStrip2.Text = "ToolStrip2"
' '
@@ -200,7 +205,7 @@ Partial Class Leistungen
Me.tsDown.Image = CType(resources.GetObject("tsDown.Image"), System.Drawing.Image) Me.tsDown.Image = CType(resources.GetObject("tsDown.Image"), System.Drawing.Image)
Me.tsDown.ImageTransparentColor = System.Drawing.Color.Magenta Me.tsDown.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsDown.Name = "tsDown" Me.tsDown.Name = "tsDown"
Me.tsDown.Size = New System.Drawing.Size(24, 24) Me.tsDown.Size = New System.Drawing.Size(29, 24)
Me.tsDown.Text = "ToolStripButton2" Me.tsDown.Text = "ToolStripButton2"
Me.tsDown.Visible = False Me.tsDown.Visible = False
' '
@@ -210,28 +215,29 @@ Partial Class Leistungen
Me.tsUp.Image = CType(resources.GetObject("tsUp.Image"), System.Drawing.Image) Me.tsUp.Image = CType(resources.GetObject("tsUp.Image"), System.Drawing.Image)
Me.tsUp.ImageTransparentColor = System.Drawing.Color.Magenta Me.tsUp.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsUp.Name = "tsUp" Me.tsUp.Name = "tsUp"
Me.tsUp.Size = New System.Drawing.Size(24, 24) Me.tsUp.Size = New System.Drawing.Size(29, 24)
Me.tsUp.Text = "ToolStripButton1" Me.tsUp.Text = "ToolStripButton1"
Me.tsUp.Visible = False Me.tsUp.Visible = False
' '
'ToolStripLabel1 'ToolStripLabel1
' '
Me.ToolStripLabel1.Name = "ToolStripLabel1" Me.ToolStripLabel1.Name = "ToolStripLabel1"
Me.ToolStripLabel1.Size = New System.Drawing.Size(46, 22) Me.ToolStripLabel1.Size = New System.Drawing.Size(56, 24)
Me.ToolStripLabel1.Text = "Suchen" Me.ToolStripLabel1.Text = "Suchen"
' '
'txtfilter 'txtfilter
' '
Me.txtfilter.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.txtfilter.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.txtfilter.Name = "txtfilter" Me.txtfilter.Name = "txtfilter"
Me.txtfilter.Size = New System.Drawing.Size(100, 25) Me.txtfilter.Size = New System.Drawing.Size(132, 27)
' '
'Panel4 'Panel4
' '
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Left Me.Panel4.Dock = System.Windows.Forms.DockStyle.Left
Me.Panel4.Location = New System.Drawing.Point(181, 3) Me.Panel4.Location = New System.Drawing.Point(241, 4)
Me.Panel4.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.Panel4.Name = "Panel4" Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(15, 233) Me.Panel4.Size = New System.Drawing.Size(20, 290)
Me.Panel4.TabIndex = 5 Me.Panel4.TabIndex = 5
' '
'TreeTarifGruppen 'TreeTarifGruppen
@@ -246,13 +252,14 @@ Partial Class Leistungen
Me.TreeTarifGruppen.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square Me.TreeTarifGruppen.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.TreeTarifGruppen.Dock = System.Windows.Forms.DockStyle.Left Me.TreeTarifGruppen.Dock = System.Windows.Forms.DockStyle.Left
Me.TreeTarifGruppen.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F" Me.TreeTarifGruppen.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
Me.TreeTarifGruppen.Location = New System.Drawing.Point(3, 3) Me.TreeTarifGruppen.Location = New System.Drawing.Point(4, 4)
Me.TreeTarifGruppen.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.TreeTarifGruppen.Name = "TreeTarifGruppen" Me.TreeTarifGruppen.Name = "TreeTarifGruppen"
Me.TreeTarifGruppen.Nodes.AddRange(New DevComponents.AdvTree.Node() {Me.Node1}) Me.TreeTarifGruppen.Nodes.AddRange(New DevComponents.AdvTree.Node() {Me.Node1})
Me.TreeTarifGruppen.NodesConnector = Me.NodeConnector1 Me.TreeTarifGruppen.NodesConnector = Me.NodeConnector1
Me.TreeTarifGruppen.NodeStyle = Me.ElementStyle1 Me.TreeTarifGruppen.NodeStyle = Me.ElementStyle1
Me.TreeTarifGruppen.PathSeparator = ";" Me.TreeTarifGruppen.PathSeparator = ";"
Me.TreeTarifGruppen.Size = New System.Drawing.Size(178, 233) Me.TreeTarifGruppen.Size = New System.Drawing.Size(237, 290)
Me.TreeTarifGruppen.Styles.Add(Me.ElementStyle1) Me.TreeTarifGruppen.Styles.Add(Me.ElementStyle1)
Me.TreeTarifGruppen.TabIndex = 7 Me.TreeTarifGruppen.TabIndex = 7
Me.TreeTarifGruppen.Text = "AdvTree1" Me.TreeTarifGruppen.Text = "AdvTree1"
@@ -277,10 +284,11 @@ Partial Class Leistungen
' '
Me.TabPage2.Controls.Add(Me.lbPakete) Me.TabPage2.Controls.Add(Me.lbPakete)
Me.TabPage2.Controls.Add(Me.Panel1) Me.TabPage2.Controls.Add(Me.Panel1)
Me.TabPage2.Location = New System.Drawing.Point(4, 22) Me.TabPage2.Location = New System.Drawing.Point(4, 25)
Me.TabPage2.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.TabPage2.Name = "TabPage2" Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) Me.TabPage2.Padding = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.TabPage2.Size = New System.Drawing.Size(712, 239) Me.TabPage2.Size = New System.Drawing.Size(952, 295)
Me.TabPage2.TabIndex = 1 Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Leistungspaket" Me.TabPage2.Text = "Leistungspaket"
Me.TabPage2.UseVisualStyleBackColor = True Me.TabPage2.UseVisualStyleBackColor = True
@@ -298,9 +306,10 @@ Partial Class Leistungen
Me.lbPakete.Dock = System.Windows.Forms.DockStyle.Fill Me.lbPakete.Dock = System.Windows.Forms.DockStyle.Fill
Me.lbPakete.DragDropSupport = True Me.lbPakete.DragDropSupport = True
Me.lbPakete.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F" Me.lbPakete.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
Me.lbPakete.Location = New System.Drawing.Point(3, 33) Me.lbPakete.Location = New System.Drawing.Point(4, 41)
Me.lbPakete.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.lbPakete.Name = "lbPakete" Me.lbPakete.Name = "lbPakete"
Me.lbPakete.Size = New System.Drawing.Size(706, 203) Me.lbPakete.Size = New System.Drawing.Size(944, 250)
Me.lbPakete.TabIndex = 2 Me.lbPakete.TabIndex = 2
Me.lbPakete.Text = "ListBoxAdv1" Me.lbPakete.Text = "ListBoxAdv1"
' '
@@ -310,16 +319,18 @@ Partial Class Leistungen
Me.Panel1.Controls.Add(Me.intAnzahl) Me.Panel1.Controls.Add(Me.intAnzahl)
Me.Panel1.Controls.Add(Me.lblAnzahl) Me.Panel1.Controls.Add(Me.lblAnzahl)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(3, 3) Me.Panel1.Location = New System.Drawing.Point(4, 4)
Me.Panel1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.Panel1.Name = "Panel1" Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(706, 30) Me.Panel1.Size = New System.Drawing.Size(944, 37)
Me.Panel1.TabIndex = 1 Me.Panel1.TabIndex = 1
' '
'btnPaketeinfuegen 'btnPaketeinfuegen
' '
Me.btnPaketeinfuegen.Location = New System.Drawing.Point(197, 3) Me.btnPaketeinfuegen.Location = New System.Drawing.Point(263, 4)
Me.btnPaketeinfuegen.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.btnPaketeinfuegen.Name = "btnPaketeinfuegen" Me.btnPaketeinfuegen.Name = "btnPaketeinfuegen"
Me.btnPaketeinfuegen.Size = New System.Drawing.Size(75, 23) Me.btnPaketeinfuegen.Size = New System.Drawing.Size(100, 28)
Me.btnPaketeinfuegen.TabIndex = 1 Me.btnPaketeinfuegen.TabIndex = 1
Me.btnPaketeinfuegen.Text = "Einfügen" Me.btnPaketeinfuegen.Text = "Einfügen"
Me.btnPaketeinfuegen.UseVisualStyleBackColor = True Me.btnPaketeinfuegen.UseVisualStyleBackColor = True
@@ -332,19 +343,21 @@ Partial Class Leistungen
Me.intAnzahl.BackgroundStyle.Class = "DateTimeInputBackground" Me.intAnzahl.BackgroundStyle.Class = "DateTimeInputBackground"
Me.intAnzahl.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square Me.intAnzahl.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.intAnzahl.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2 Me.intAnzahl.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2
Me.intAnzahl.Location = New System.Drawing.Point(49, 5) Me.intAnzahl.Location = New System.Drawing.Point(65, 6)
Me.intAnzahl.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.intAnzahl.Name = "intAnzahl" Me.intAnzahl.Name = "intAnzahl"
Me.intAnzahl.ShowUpDown = True Me.intAnzahl.ShowUpDown = True
Me.intAnzahl.Size = New System.Drawing.Size(142, 20) Me.intAnzahl.Size = New System.Drawing.Size(189, 22)
Me.intAnzahl.TabIndex = 0 Me.intAnzahl.TabIndex = 0
Me.intAnzahl.Value = 1 Me.intAnzahl.Value = 1
' '
'lblAnzahl 'lblAnzahl
' '
Me.lblAnzahl.AutoSize = True Me.lblAnzahl.AutoSize = True
Me.lblAnzahl.Location = New System.Drawing.Point(4, 8) Me.lblAnzahl.Location = New System.Drawing.Point(5, 10)
Me.lblAnzahl.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblAnzahl.Name = "lblAnzahl" Me.lblAnzahl.Name = "lblAnzahl"
Me.lblAnzahl.Size = New System.Drawing.Size(39, 13) Me.lblAnzahl.Size = New System.Drawing.Size(51, 17)
Me.lblAnzahl.TabIndex = 0 Me.lblAnzahl.TabIndex = 0
Me.lblAnzahl.Text = "Anzahl" Me.lblAnzahl.Text = "Anzahl"
' '
@@ -369,44 +382,50 @@ Partial Class Leistungen
Me.grpLeistungsdetails.Controls.Add(Me.lblPosition) Me.grpLeistungsdetails.Controls.Add(Me.lblPosition)
Me.grpLeistungsdetails.Controls.Add(Me.lbldatum) Me.grpLeistungsdetails.Controls.Add(Me.lbldatum)
Me.grpLeistungsdetails.Controls.Add(Me.dtdatum) Me.grpLeistungsdetails.Controls.Add(Me.dtdatum)
Me.grpLeistungsdetails.Location = New System.Drawing.Point(735, 3) Me.grpLeistungsdetails.Location = New System.Drawing.Point(980, 4)
Me.grpLeistungsdetails.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.grpLeistungsdetails.Name = "grpLeistungsdetails" Me.grpLeistungsdetails.Name = "grpLeistungsdetails"
Me.grpLeistungsdetails.Size = New System.Drawing.Size(341, 275) Me.grpLeistungsdetails.Padding = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.grpLeistungsdetails.Size = New System.Drawing.Size(455, 338)
Me.grpLeistungsdetails.TabIndex = 2 Me.grpLeistungsdetails.TabIndex = 2
Me.grpLeistungsdetails.TabStop = False Me.grpLeistungsdetails.TabStop = False
Me.grpLeistungsdetails.Text = "Leistungsdetails" Me.grpLeistungsdetails.Text = "Leistungsdetails"
' '
'txtErgänzung 'txtErgänzung
' '
Me.txtErgänzung.Location = New System.Drawing.Point(85, 166) Me.txtErgänzung.Location = New System.Drawing.Point(113, 204)
Me.txtErgänzung.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.txtErgänzung.Multiline = True Me.txtErgänzung.Multiline = True
Me.txtErgänzung.Name = "txtErgänzung" Me.txtErgänzung.Name = "txtErgänzung"
Me.txtErgänzung.Size = New System.Drawing.Size(177, 18) Me.txtErgänzung.Size = New System.Drawing.Size(235, 21)
Me.txtErgänzung.TabIndex = 4 Me.txtErgänzung.TabIndex = 4
' '
'Label2 'Label2
' '
Me.Label2.AutoSize = True Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(11, 169) Me.Label2.Location = New System.Drawing.Point(15, 208)
Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label2.Name = "Label2" Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(58, 13) Me.Label2.Size = New System.Drawing.Size(77, 17)
Me.Label2.TabIndex = 24 Me.Label2.TabIndex = 24
Me.Label2.Text = "Ergänzung" Me.Label2.Text = "Ergänzung"
' '
'txtBezD 'txtBezD
' '
Me.txtBezD.Location = New System.Drawing.Point(85, 115) Me.txtBezD.Location = New System.Drawing.Point(113, 142)
Me.txtBezD.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.txtBezD.Multiline = True Me.txtBezD.Multiline = True
Me.txtBezD.Name = "txtBezD" Me.txtBezD.Name = "txtBezD"
Me.txtBezD.Size = New System.Drawing.Size(177, 45) Me.txtBezD.Size = New System.Drawing.Size(235, 54)
Me.txtBezD.TabIndex = 3 Me.txtBezD.TabIndex = 3
' '
'lblBeschreibung 'lblBeschreibung
' '
Me.lblBeschreibung.AutoSize = True Me.lblBeschreibung.AutoSize = True
Me.lblBeschreibung.Location = New System.Drawing.Point(11, 118) Me.lblBeschreibung.Location = New System.Drawing.Point(15, 145)
Me.lblBeschreibung.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblBeschreibung.Name = "lblBeschreibung" Me.lblBeschreibung.Name = "lblBeschreibung"
Me.lblBeschreibung.Size = New System.Drawing.Size(72, 13) Me.lblBeschreibung.Size = New System.Drawing.Size(95, 17)
Me.lblBeschreibung.TabIndex = 22 Me.lblBeschreibung.TabIndex = 22
Me.lblBeschreibung.Text = "Beschreibung" Me.lblBeschreibung.Text = "Beschreibung"
' '
@@ -414,9 +433,10 @@ Partial Class Leistungen
' '
Me.cbboxnrbehandler.Dataselection = Nothing Me.cbboxnrbehandler.Dataselection = Nothing
Me.cbboxnrbehandler.Displaymember = Nothing Me.cbboxnrbehandler.Displaymember = Nothing
Me.cbboxnrbehandler.Location = New System.Drawing.Point(85, 61) Me.cbboxnrbehandler.Location = New System.Drawing.Point(113, 75)
Me.cbboxnrbehandler.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.cbboxnrbehandler.Name = "cbboxnrbehandler" Me.cbboxnrbehandler.Name = "cbboxnrbehandler"
Me.cbboxnrbehandler.Size = New System.Drawing.Size(177, 21) Me.cbboxnrbehandler.Size = New System.Drawing.Size(235, 24)
Me.cbboxnrbehandler.TabIndex = 1 Me.cbboxnrbehandler.TabIndex = 1
Me.cbboxnrbehandler.Table = Nothing Me.cbboxnrbehandler.Table = Nothing
Me.cbboxnrbehandler.TableAlias = "" Me.cbboxnrbehandler.TableAlias = ""
@@ -425,17 +445,19 @@ Partial Class Leistungen
'lblbehandler 'lblbehandler
' '
Me.lblbehandler.AutoSize = True Me.lblbehandler.AutoSize = True
Me.lblbehandler.Location = New System.Drawing.Point(11, 63) Me.lblbehandler.Location = New System.Drawing.Point(15, 78)
Me.lblbehandler.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblbehandler.Name = "lblbehandler" Me.lblbehandler.Name = "lblbehandler"
Me.lblbehandler.Size = New System.Drawing.Size(55, 13) Me.lblbehandler.Size = New System.Drawing.Size(73, 17)
Me.lblbehandler.TabIndex = 14 Me.lblbehandler.TabIndex = 14
Me.lblbehandler.Text = "Behandler" Me.lblbehandler.Text = "Behandler"
' '
'BtnInsertLeistung 'BtnInsertLeistung
' '
Me.BtnInsertLeistung.Location = New System.Drawing.Point(194, 246) Me.BtnInsertLeistung.Location = New System.Drawing.Point(259, 303)
Me.BtnInsertLeistung.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.BtnInsertLeistung.Name = "BtnInsertLeistung" Me.BtnInsertLeistung.Name = "BtnInsertLeistung"
Me.BtnInsertLeistung.Size = New System.Drawing.Size(120, 23) Me.BtnInsertLeistung.Size = New System.Drawing.Size(160, 28)
Me.BtnInsertLeistung.TabIndex = 8 Me.BtnInsertLeistung.TabIndex = 8
Me.BtnInsertLeistung.Text = "Leistung einfügen" Me.BtnInsertLeistung.Text = "Leistung einfügen"
Me.BtnInsertLeistung.UseVisualStyleBackColor = True Me.BtnInsertLeistung.UseVisualStyleBackColor = True
@@ -443,10 +465,11 @@ Partial Class Leistungen
'txtTotal 'txtTotal
' '
Me.txtTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtTotal.Location = New System.Drawing.Point(49, 246) Me.txtTotal.Location = New System.Drawing.Point(65, 303)
Me.txtTotal.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.txtTotal.Name = "txtTotal" Me.txtTotal.Name = "txtTotal"
Me.txtTotal.RightToLeft = System.Windows.Forms.RightToLeft.No Me.txtTotal.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.txtTotal.Size = New System.Drawing.Size(92, 13) Me.txtTotal.Size = New System.Drawing.Size(123, 16)
Me.txtTotal.TabIndex = 12 Me.txtTotal.TabIndex = 12
Me.txtTotal.Text = "0.00www" Me.txtTotal.Text = "0.00www"
Me.txtTotal.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.txtTotal.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -455,18 +478,20 @@ Partial Class Leistungen
' '
Me.Label1.AutoSize = True Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(11, 246) Me.Label1.Location = New System.Drawing.Point(15, 303)
Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(36, 13) Me.Label1.Size = New System.Drawing.Size(45, 17)
Me.Label1.TabIndex = 10 Me.Label1.TabIndex = 10
Me.Label1.Text = "Total" Me.Label1.Text = "Total"
' '
'lblWert 'lblWert
' '
Me.lblWert.AutoSize = True Me.lblWert.AutoSize = True
Me.lblWert.Location = New System.Drawing.Point(11, 220) Me.lblWert.Location = New System.Drawing.Point(15, 271)
Me.lblWert.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblWert.Name = "lblWert" Me.lblWert.Name = "lblWert"
Me.lblWert.Size = New System.Drawing.Size(30, 13) Me.lblWert.Size = New System.Drawing.Size(38, 17)
Me.lblWert.TabIndex = 9 Me.lblWert.TabIndex = 9
Me.lblWert.Text = "Wert" Me.lblWert.Text = "Wert"
' '
@@ -479,18 +504,20 @@ Partial Class Leistungen
Me.diwert.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square Me.diwert.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.diwert.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2 Me.diwert.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2
Me.diwert.Increment = 1.0R Me.diwert.Increment = 1.0R
Me.diwert.Location = New System.Drawing.Point(85, 216) Me.diwert.Location = New System.Drawing.Point(113, 266)
Me.diwert.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.diwert.Name = "diwert" Me.diwert.Name = "diwert"
Me.diwert.ShowUpDown = True Me.diwert.ShowUpDown = True
Me.diwert.Size = New System.Drawing.Size(68, 20) Me.diwert.Size = New System.Drawing.Size(91, 22)
Me.diwert.TabIndex = 7 Me.diwert.TabIndex = 7
' '
'lblMenge 'lblMenge
' '
Me.lblMenge.AutoSize = True Me.lblMenge.AutoSize = True
Me.lblMenge.Location = New System.Drawing.Point(11, 193) Me.lblMenge.Location = New System.Drawing.Point(15, 238)
Me.lblMenge.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblMenge.Name = "lblMenge" Me.lblMenge.Name = "lblMenge"
Me.lblMenge.Size = New System.Drawing.Size(40, 13) Me.lblMenge.Size = New System.Drawing.Size(51, 17)
Me.lblMenge.TabIndex = 7 Me.lblMenge.TabIndex = 7
Me.lblMenge.Text = "Menge" Me.lblMenge.Text = "Menge"
' '
@@ -503,18 +530,20 @@ Partial Class Leistungen
Me.DIMenge.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square Me.DIMenge.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.DIMenge.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2 Me.DIMenge.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2
Me.DIMenge.Increment = 1.0R Me.DIMenge.Increment = 1.0R
Me.DIMenge.Location = New System.Drawing.Point(85, 190) Me.DIMenge.Location = New System.Drawing.Point(113, 234)
Me.DIMenge.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.DIMenge.Name = "DIMenge" Me.DIMenge.Name = "DIMenge"
Me.DIMenge.ShowUpDown = True Me.DIMenge.ShowUpDown = True
Me.DIMenge.Size = New System.Drawing.Size(68, 20) Me.DIMenge.Size = New System.Drawing.Size(91, 22)
Me.DIMenge.TabIndex = 5 Me.DIMenge.TabIndex = 5
' '
'lblTaxpunkte 'lblTaxpunkte
' '
Me.lblTaxpunkte.AutoSize = True Me.lblTaxpunkte.AutoSize = True
Me.lblTaxpunkte.Location = New System.Drawing.Point(159, 193) Me.lblTaxpunkte.Location = New System.Drawing.Point(212, 238)
Me.lblTaxpunkte.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblTaxpunkte.Name = "lblTaxpunkte" Me.lblTaxpunkte.Name = "lblTaxpunkte"
Me.lblTaxpunkte.Size = New System.Drawing.Size(41, 13) Me.lblTaxpunkte.Size = New System.Drawing.Size(52, 17)
Me.lblTaxpunkte.TabIndex = 5 Me.lblTaxpunkte.TabIndex = 5
Me.lblTaxpunkte.Text = "Punkte" Me.lblTaxpunkte.Text = "Punkte"
' '
@@ -526,34 +555,38 @@ Partial Class Leistungen
Me.DIPunkte.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square Me.DIPunkte.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.DIPunkte.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2 Me.DIPunkte.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2
Me.DIPunkte.Increment = 1.0R Me.DIPunkte.Increment = 1.0R
Me.DIPunkte.Location = New System.Drawing.Point(206, 190) Me.DIPunkte.Location = New System.Drawing.Point(275, 234)
Me.DIPunkte.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.DIPunkte.Name = "DIPunkte" Me.DIPunkte.Name = "DIPunkte"
Me.DIPunkte.ShowUpDown = True Me.DIPunkte.ShowUpDown = True
Me.DIPunkte.Size = New System.Drawing.Size(56, 20) Me.DIPunkte.Size = New System.Drawing.Size(75, 22)
Me.DIPunkte.TabIndex = 6 Me.DIPunkte.TabIndex = 6
' '
'txtPosition 'txtPosition
' '
Me.txtPosition.Location = New System.Drawing.Point(85, 89) Me.txtPosition.Location = New System.Drawing.Point(113, 110)
Me.txtPosition.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.txtPosition.Name = "txtPosition" Me.txtPosition.Name = "txtPosition"
Me.txtPosition.Size = New System.Drawing.Size(56, 20) Me.txtPosition.Size = New System.Drawing.Size(73, 22)
Me.txtPosition.TabIndex = 2 Me.txtPosition.TabIndex = 2
' '
'lblPosition 'lblPosition
' '
Me.lblPosition.AutoSize = True Me.lblPosition.AutoSize = True
Me.lblPosition.Location = New System.Drawing.Point(11, 92) Me.lblPosition.Location = New System.Drawing.Point(15, 113)
Me.lblPosition.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblPosition.Name = "lblPosition" Me.lblPosition.Name = "lblPosition"
Me.lblPosition.Size = New System.Drawing.Size(44, 13) Me.lblPosition.Size = New System.Drawing.Size(58, 17)
Me.lblPosition.TabIndex = 2 Me.lblPosition.TabIndex = 2
Me.lblPosition.Text = "Position" Me.lblPosition.Text = "Position"
' '
'lbldatum 'lbldatum
' '
Me.lbldatum.AutoSize = True Me.lbldatum.AutoSize = True
Me.lbldatum.Location = New System.Drawing.Point(11, 38) Me.lbldatum.Location = New System.Drawing.Point(15, 47)
Me.lbldatum.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lbldatum.Name = "lbldatum" Me.lbldatum.Name = "lbldatum"
Me.lbldatum.Size = New System.Drawing.Size(38, 13) Me.lbldatum.Size = New System.Drawing.Size(49, 17)
Me.lbldatum.TabIndex = 1 Me.lbldatum.TabIndex = 1
Me.lbldatum.Text = "Datum" Me.lbldatum.Text = "Datum"
' '
@@ -567,7 +600,8 @@ Partial Class Leistungen
Me.dtdatum.ButtonDropDown.Shortcut = DevComponents.DotNetBar.eShortcut.AltDown Me.dtdatum.ButtonDropDown.Shortcut = DevComponents.DotNetBar.eShortcut.AltDown
Me.dtdatum.ButtonDropDown.Visible = True Me.dtdatum.ButtonDropDown.Visible = True
Me.dtdatum.IsPopupCalendarOpen = False Me.dtdatum.IsPopupCalendarOpen = False
Me.dtdatum.Location = New System.Drawing.Point(85, 35) Me.dtdatum.Location = New System.Drawing.Point(113, 43)
Me.dtdatum.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
' '
' '
' '
@@ -598,7 +632,7 @@ Partial Class Leistungen
Me.dtdatum.MonthCalendar.NavigationBackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square Me.dtdatum.MonthCalendar.NavigationBackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.dtdatum.MonthCalendar.TodayButtonVisible = True Me.dtdatum.MonthCalendar.TodayButtonVisible = True
Me.dtdatum.Name = "dtdatum" Me.dtdatum.Name = "dtdatum"
Me.dtdatum.Size = New System.Drawing.Size(177, 20) Me.dtdatum.Size = New System.Drawing.Size(236, 22)
Me.dtdatum.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled Me.dtdatum.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
Me.dtdatum.TabIndex = 0 Me.dtdatum.TabIndex = 0
' '
@@ -607,8 +641,10 @@ Partial Class Leistungen
Me.GrpLeistungen.Controls.Add(Me.C1Leistungen) Me.GrpLeistungen.Controls.Add(Me.C1Leistungen)
Me.GrpLeistungen.Dock = System.Windows.Forms.DockStyle.Fill Me.GrpLeistungen.Dock = System.Windows.Forms.DockStyle.Fill
Me.GrpLeistungen.Location = New System.Drawing.Point(0, 0) Me.GrpLeistungen.Location = New System.Drawing.Point(0, 0)
Me.GrpLeistungen.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.GrpLeistungen.Name = "GrpLeistungen" Me.GrpLeistungen.Name = "GrpLeistungen"
Me.GrpLeistungen.Size = New System.Drawing.Size(1079, 158) Me.GrpLeistungen.Padding = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.GrpLeistungen.Size = New System.Drawing.Size(1439, 200)
Me.GrpLeistungen.TabIndex = 3 Me.GrpLeistungen.TabIndex = 3
Me.GrpLeistungen.TabStop = False Me.GrpLeistungen.TabStop = False
Me.GrpLeistungen.Text = "Leistungen" Me.GrpLeistungen.Text = "Leistungen"
@@ -621,13 +657,14 @@ Partial Class Leistungen
Me.C1Leistungen.FilterBar = True Me.C1Leistungen.FilterBar = True
Me.C1Leistungen.GroupByCaption = "Drag a column header here to group by that column" Me.C1Leistungen.GroupByCaption = "Drag a column header here to group by that column"
Me.C1Leistungen.Images.Add(CType(resources.GetObject("C1Leistungen.Images"), System.Drawing.Image)) Me.C1Leistungen.Images.Add(CType(resources.GetObject("C1Leistungen.Images"), System.Drawing.Image))
Me.C1Leistungen.Location = New System.Drawing.Point(3, 16) Me.C1Leistungen.Location = New System.Drawing.Point(4, 19)
Me.C1Leistungen.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.C1Leistungen.Name = "C1Leistungen" Me.C1Leistungen.Name = "C1Leistungen"
Me.C1Leistungen.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.C1Leistungen.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1Leistungen.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.C1Leistungen.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1Leistungen.PreviewInfo.ZoomFactor = 75.0R Me.C1Leistungen.PreviewInfo.ZoomFactor = 75.0R
Me.C1Leistungen.PrintInfo.PageSettings = CType(resources.GetObject("C1Leistungen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.C1Leistungen.PrintInfo.PageSettings = CType(resources.GetObject("C1Leistungen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1Leistungen.Size = New System.Drawing.Size(1073, 139) Me.C1Leistungen.Size = New System.Drawing.Size(1431, 177)
Me.C1Leistungen.TabIndex = 2 Me.C1Leistungen.TabIndex = 2
Me.C1Leistungen.Text = "C1TrueDBGrid1" Me.C1Leistungen.Text = "C1TrueDBGrid1"
Me.C1Leistungen.PropBag = resources.GetString("C1Leistungen.PropBag") Me.C1Leistungen.PropBag = resources.GetString("C1Leistungen.PropBag")
@@ -637,30 +674,30 @@ Partial Class Leistungen
Me.ctxMenuLeistung.ImageScalingSize = New System.Drawing.Size(20, 20) Me.ctxMenuLeistung.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ctxMenuLeistung.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BearbeitenToolStripMenuItem, Me.LöschenToolStripMenuItem, Me.AnzeigenToolStripMenuItem, Me.LeistungsdatumÄndernToolStripMenuItem}) Me.ctxMenuLeistung.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BearbeitenToolStripMenuItem, Me.LöschenToolStripMenuItem, Me.AnzeigenToolStripMenuItem, Me.LeistungsdatumÄndernToolStripMenuItem})
Me.ctxMenuLeistung.Name = "ctxMenuLeistung" Me.ctxMenuLeistung.Name = "ctxMenuLeistung"
Me.ctxMenuLeistung.Size = New System.Drawing.Size(200, 92) Me.ctxMenuLeistung.Size = New System.Drawing.Size(233, 100)
' '
'BearbeitenToolStripMenuItem 'BearbeitenToolStripMenuItem
' '
Me.BearbeitenToolStripMenuItem.Name = "BearbeitenToolStripMenuItem" Me.BearbeitenToolStripMenuItem.Name = "BearbeitenToolStripMenuItem"
Me.BearbeitenToolStripMenuItem.Size = New System.Drawing.Size(199, 22) Me.BearbeitenToolStripMenuItem.Size = New System.Drawing.Size(232, 24)
Me.BearbeitenToolStripMenuItem.Text = "&Bearbeiten" Me.BearbeitenToolStripMenuItem.Text = "&Bearbeiten"
' '
'LöschenToolStripMenuItem 'LöschenToolStripMenuItem
' '
Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem" Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem"
Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(199, 22) Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(232, 24)
Me.LöschenToolStripMenuItem.Text = "&Löschen" Me.LöschenToolStripMenuItem.Text = "&Löschen"
' '
'AnzeigenToolStripMenuItem 'AnzeigenToolStripMenuItem
' '
Me.AnzeigenToolStripMenuItem.Name = "AnzeigenToolStripMenuItem" Me.AnzeigenToolStripMenuItem.Name = "AnzeigenToolStripMenuItem"
Me.AnzeigenToolStripMenuItem.Size = New System.Drawing.Size(199, 22) Me.AnzeigenToolStripMenuItem.Size = New System.Drawing.Size(232, 24)
Me.AnzeigenToolStripMenuItem.Text = "Anzeigen" Me.AnzeigenToolStripMenuItem.Text = "Anzeigen"
' '
'LeistungsdatumÄndernToolStripMenuItem 'LeistungsdatumÄndernToolStripMenuItem
' '
Me.LeistungsdatumÄndernToolStripMenuItem.Name = "LeistungsdatumÄndernToolStripMenuItem" Me.LeistungsdatumÄndernToolStripMenuItem.Name = "LeistungsdatumÄndernToolStripMenuItem"
Me.LeistungsdatumÄndernToolStripMenuItem.Size = New System.Drawing.Size(199, 22) Me.LeistungsdatumÄndernToolStripMenuItem.Size = New System.Drawing.Size(232, 24)
Me.LeistungsdatumÄndernToolStripMenuItem.Text = "Leistungsdatum ändern" Me.LeistungsdatumÄndernToolStripMenuItem.Text = "Leistungsdatum ändern"
' '
'Panel2 'Panel2
@@ -669,28 +706,31 @@ Partial Class Leistungen
Me.Panel2.Controls.Add(Me.grpLeistungsdetails) Me.Panel2.Controls.Add(Me.grpLeistungsdetails)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 25) Me.Panel2.Location = New System.Drawing.Point(0, 25)
Me.Panel2.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.Panel2.Name = "Panel2" Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(1079, 284) Me.Panel2.Size = New System.Drawing.Size(1439, 350)
Me.Panel2.TabIndex = 4 Me.Panel2.TabIndex = 4
' '
'Panel3 'Panel3
' '
Me.Panel3.Controls.Add(Me.GrpLeistungen) Me.Panel3.Controls.Add(Me.GrpLeistungen)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel3.Location = New System.Drawing.Point(0, 309) Me.Panel3.Location = New System.Drawing.Point(0, 375)
Me.Panel3.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.Panel3.Name = "Panel3" Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(1079, 158) Me.Panel3.Size = New System.Drawing.Size(1439, 200)
Me.Panel3.TabIndex = 5 Me.Panel3.TabIndex = 5
' '
'Leistungen 'Leistungen
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.Panel3) Me.Controls.Add(Me.Panel3)
Me.Controls.Add(Me.Panel2) Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.ToolStrip1) Me.Controls.Add(Me.ToolStrip1)
Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.Name = "Leistungen" Me.Name = "Leistungen"
Me.Size = New System.Drawing.Size(1079, 467) Me.Size = New System.Drawing.Size(1439, 575)
Me.ToolStrip1.ResumeLayout(False) Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout() Me.ToolStrip1.PerformLayout()
Me.GrpTarif.ResumeLayout(False) Me.GrpTarif.ResumeLayout(False)

8
DPM2016/Behandlung/Leistungen.resx
View File

@@ -130,7 +130,7 @@
<data name="tsDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tsDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
@@ -145,7 +145,7 @@
<data name="tsUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tsUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
@@ -163,7 +163,7 @@
<data name="C1Leistungen.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="C1Leistungen.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88 YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value> </value>
</data> </data>
@@ -197,6 +197,6 @@
</value> </value>
</data> </data>
<data name="C1Leistungen.PropBag" xml:space="preserve"> <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;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;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{}FilterBar{BackColor:Info;}&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, 1071, 137&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, 1071, 137&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;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;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{}FilterBar{BackColor:Info;}&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="21" DefRecSelWidth="21" 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, 1429, 175&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;21&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 1429, 175&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data> </data>
</root> </root>

15
DPM2016/Behandlung/Leistungen.vb
View File

@@ -88,6 +88,8 @@ Public Class Leistungen
End Get End Get
Set(value As Integer) Set(value As Integer)
m_behandler = value m_behandler = value
End Set End Set
End Property End Property
@@ -204,6 +206,11 @@ Public Class Leistungen
Me.cbboxnrbehandler.Displaymember = "Name" Me.cbboxnrbehandler.Displaymember = "Name"
Me.cbboxnrbehandler.Valuemember = "nrprivat" Me.cbboxnrbehandler.Valuemember = "nrprivat"
Load_Tarif() Load_Tarif()
Try
Me.cbboxnrbehandler.SelectedValue = Me.behandler
Catch ex As Exception
End Try
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message) MsgBox(ex.Message)
End Try End Try
@@ -1282,4 +1289,12 @@ Public Class Leistungen
End Try End Try
End Sub End Sub
Private Sub C1Leistungen_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Leistungen.MouseDown
Try
Me.C1Leistungen.Bookmark = Me.C1Leistungen.RowContaining(e.Y)
Catch ex As Exception
End Try
End Sub
End Class End Class

130
DPM2016/Behandlung/frmPosition.Designer.vb generated Normal file
View File

@@ -0,0 +1,130 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmPosition
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.TextBox1 = New System.Windows.Forms.TextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.TextBox3 = New System.Windows.Forms.TextBox()
Me.SuspendLayout()
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(104, 32)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(100, 20)
Me.TextBox1.TabIndex = 0
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(23, 185)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 1
Me.Button1.Text = "OK"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(318, 181)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 2
Me.Button2.Text = "Abbruch"
Me.Button2.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(27, 35)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(71, 13)
Me.Label1.TabIndex = 3
Me.Label1.Text = "SSO-Nummer"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(27, 64)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(69, 13)
Me.Label2.TabIndex = 4
Me.Label2.Text = "Bezeichnung"
'
'TextBox2
'
Me.TextBox2.Location = New System.Drawing.Point(104, 64)
Me.TextBox2.Multiline = True
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(289, 61)
Me.TextBox2.TabIndex = 5
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(29, 135)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(58, 13)
Me.Label3.TabIndex = 6
Me.Label3.Text = "Ergänzung"
'
'TextBox3
'
Me.TextBox3.Location = New System.Drawing.Point(104, 135)
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New System.Drawing.Size(289, 20)
Me.TextBox3.TabIndex = 7
'
'frmPosition
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(416, 220)
Me.Controls.Add(Me.TextBox3)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox1)
Me.Name = "frmPosition"
Me.Text = "Position überschreiben"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents TextBox1 As TextBox
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents TextBox2 As TextBox
Friend WithEvents Label3 As Label
Friend WithEvents TextBox3 As TextBox
End Class

120
DPM2016/Behandlung/frmPosition.resx Normal file
View File

@@ -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>

6
DPM2016/Behandlung/frmPosition.vb Normal file
View File

@@ -0,0 +1,6 @@
Public Class frmPosition
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.DialogResult = DialogResult.OK
Me.Close()
End Sub
End Class

42
DPM2016/DPM2016.vbproj
View File

@@ -91,6 +91,7 @@
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>bin\Debug\C1.Data.2.dll</HintPath> <HintPath>bin\Debug\C1.Data.2.dll</HintPath>
</Reference> </Reference>
<Reference Include="C1.Win.C1Command.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=e808566f358766d8" />
<Reference Include="C1.Win.C1Command.4, Version=4.0.20153.110, Culture=neutral, PublicKeyToken=e808566f358766d8, processorArchitecture=MSIL"> <Reference Include="C1.Win.C1Command.4, Version=4.0.20153.110, Culture=neutral, PublicKeyToken=e808566f358766d8, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>bin\Debug\C1.Win.C1Command.4.dll</HintPath> <HintPath>bin\Debug\C1.Win.C1Command.4.dll</HintPath>
@@ -177,17 +178,33 @@
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>..\DPMLizenzmanagement\SHUKeyGen\bin\Debug\SHUKeyGen.dll</HintPath> <HintPath>..\DPMLizenzmanagement\SHUKeyGen\bin\Debug\SHUKeyGen.dll</HintPath>
</Reference> </Reference>
<Reference Include="Syncfusion.Compression.Base, Version=16.2350.0.41, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" /> <Reference Include="Syncfusion.Compression.Base, Version=16.2350.0.41, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL">
<Reference Include="Syncfusion.Core.WinForms, Version=16.3460.0.21, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89" /> <Private>True</Private>
<Reference Include="Syncfusion.DataSource.WinForms, Version=16.3460.0.21, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89" /> </Reference>
<Reference Include="Syncfusion.GridCommon.WinForms, Version=16.3460.0.21, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89" /> <Reference Include="Syncfusion.Core.WinForms, Version=16.3460.0.21, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89">
<Reference Include="Syncfusion.Pdf.Base, Version=16.2350.0.41, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89" /> <Private>True</Private>
</Reference>
<Reference Include="Syncfusion.DataSource.WinForms, Version=16.3460.0.21, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89">
<Private>True</Private>
</Reference>
<Reference Include="Syncfusion.GridCommon.WinForms, Version=16.3460.0.21, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89">
<Private>True</Private>
</Reference>
<Reference Include="Syncfusion.Pdf.Base, Version=16.2350.0.41, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89">
<Private>True</Private>
</Reference>
<Reference Include="Syncfusion.PdfViewer.Windows, Version=16.2350.0.41, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL"> <Reference Include="Syncfusion.PdfViewer.Windows, Version=16.2350.0.41, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL">
<Private>True</Private> <Private>True</Private>
</Reference> </Reference>
<Reference Include="Syncfusion.SfListView.WinForms, Version=16.3460.0.21, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" /> <Reference Include="Syncfusion.SfListView.WinForms, Version=16.3460.0.21, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL">
<Reference Include="Syncfusion.Shared.Base, Version=16.2350.0.41, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" /> <Private>True</Private>
<Reference Include="Syncfusion.Shared.Windows, Version=16.2350.0.41, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" /> </Reference>
<Reference Include="Syncfusion.Shared.Base, Version=16.2350.0.41, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL">
<Private>True</Private>
</Reference>
<Reference Include="Syncfusion.Shared.Windows, Version=16.2350.0.41, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL">
<Private>True</Private>
</Reference>
<Reference Include="System" /> <Reference Include="System" />
<Reference Include="System.Data" /> <Reference Include="System.Data" />
<Reference Include="System.Deployment" /> <Reference Include="System.Deployment" />
@@ -297,6 +314,12 @@
<Compile Include="Diverses\frmDemoMode.vb"> <Compile Include="Diverses\frmDemoMode.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="Diverses\frmMsgbox.Designer.vb">
<DependentUpon>frmMsgbox.vb</DependentUpon>
</Compile>
<Compile Include="Diverses\frmMsgbox.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Diverses\frmprogress.Designer.vb"> <Compile Include="Diverses\frmprogress.Designer.vb">
<DependentUpon>frmprogress.vb</DependentUpon> <DependentUpon>frmprogress.vb</DependentUpon>
</Compile> </Compile>
@@ -626,6 +649,9 @@
<EmbeddedResource Include="Diverses\frmDemoMode.resx"> <EmbeddedResource Include="Diverses\frmDemoMode.resx">
<DependentUpon>frmDemoMode.vb</DependentUpon> <DependentUpon>frmDemoMode.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="Diverses\frmMsgbox.resx">
<DependentUpon>frmMsgbox.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Diverses\frmprogress.resx"> <EmbeddedResource Include="Diverses\frmprogress.resx">
<DependentUpon>frmprogress.vb</DependentUpon> <DependentUpon>frmprogress.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>

89
DPM2016/Diverses/frmMsgbox.Designer.vb generated Normal file
View File

@@ -0,0 +1,89 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmMsgbox
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(frmMsgbox))
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.SuspendLayout()
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(25, 176)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(182, 23)
Me.Button1.TabIndex = 0
Me.Button1.Text = "Button1"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(25, 205)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(182, 23)
Me.Button2.TabIndex = 1
Me.Button2.Text = "Button2"
Me.Button2.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(25, 234)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(182, 23)
Me.Button3.TabIndex = 2
Me.Button3.Text = "Button3"
Me.Button3.UseVisualStyleBackColor = True
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(25, 12)
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.ReadOnly = True
Me.TextBox1.Size = New System.Drawing.Size(182, 146)
Me.TextBox1.TabIndex = 3
'
'frmMsgbox
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(234, 275)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmMsgbox"
Me.Text = "Hinweis"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
Friend WithEvents Button3 As Button
Friend WithEvents TextBox1 As TextBox
End Class

5077
DPM2016/Diverses/frmMsgbox.resx Normal file
View File

File diff suppressed because it is too large Load Diff

24
DPM2016/Diverses/frmMsgbox.vb Normal file
View File

@@ -0,0 +1,24 @@
Public Class frmMsgbox
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.DialogResult = DialogResult.Yes
Me.Close()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.DialogResult = DialogResult.No
Me.Close()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Me.DialogResult = DialogResult.Cancel
End Sub
Public Sub set_text(msg As String, button1 As String, button2 As String, button3 As String)
Me.TextBox1.Text = msg
Me.Button1.Text = button1
Me.Button2.Text = button2
Me.Button3.Text = button3
End Sub
End Class

6
DPM2016/Dokumente/DokumentDetail.Designer.vb generated
View File

@@ -153,11 +153,11 @@ Partial Class DokumentDetail
' '
'btnAbbruch 'btnAbbruch
' '
Me.btnAbbruch.Location = New System.Drawing.Point(724, 284) Me.btnAbbruch.Location = New System.Drawing.Point(680, 284)
Me.btnAbbruch.Name = "btnAbbruch" Me.btnAbbruch.Name = "btnAbbruch"
Me.btnAbbruch.Size = New System.Drawing.Size(75, 23) Me.btnAbbruch.Size = New System.Drawing.Size(119, 23)
Me.btnAbbruch.TabIndex = 12 Me.btnAbbruch.TabIndex = 12
Me.btnAbbruch.Text = "Abbruch" Me.btnAbbruch.Text = "Abbruch / Schliessen"
Me.btnAbbruch.UseVisualStyleBackColor = True Me.btnAbbruch.UseVisualStyleBackColor = True
' '
'CheckBox1 'CheckBox1

637
DPM2016/Dokumente/Thumbviewer/ThumbViewer.designer.vb generated Normal file
View File

@@ -0,0 +1,637 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class ThumbViewer
Inherits System.Windows.Forms.UserControl
'UserControl ü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(ThumbViewer))
Dim FormatterSettings2 As Gnostice.Documents.FormatterSettings = New Gnostice.Documents.FormatterSettings()
Dim SpreadSheetFormatterSettings2 As Gnostice.Documents.Spreadsheet.SpreadSheetFormatterSettings = New Gnostice.Documents.Spreadsheet.SpreadSheetFormatterSettings()
Dim PageSettings3 As Gnostice.Documents.PageSettings = New Gnostice.Documents.PageSettings()
Dim Margins3 As Gnostice.Documents.Margins = New Gnostice.Documents.Margins()
Dim SheetOptions3 As Gnostice.Documents.Spreadsheet.SheetOptions = New Gnostice.Documents.Spreadsheet.SheetOptions()
Dim SheetOptions4 As Gnostice.Documents.Spreadsheet.SheetOptions = New Gnostice.Documents.Spreadsheet.SheetOptions()
Dim TxtFormatterSettings2 As Gnostice.Documents.TXTFormatterSettings = New Gnostice.Documents.TXTFormatterSettings()
Dim PageSettings4 As Gnostice.Documents.PageSettings = New Gnostice.Documents.PageSettings()
Dim Margins4 As Gnostice.Documents.Margins = New Gnostice.Documents.Margins()
Dim RenderingSettings2 As Gnostice.Graphics.RenderingSettings = New Gnostice.Graphics.RenderingSettings()
Dim ImageRenderingSettings2 As Gnostice.Graphics.ImageRenderingSettings = New Gnostice.Graphics.ImageRenderingSettings()
Dim LineArtRenderingSettings2 As Gnostice.Graphics.LineArtRenderingSettings = New Gnostice.Graphics.LineArtRenderingSettings()
Dim ResolutionSettings2 As Gnostice.Graphics.ResolutionSettings = New Gnostice.Graphics.ResolutionSettings()
Dim TextRenderingSettings2 As Gnostice.Graphics.TextRenderingSettings = New Gnostice.Graphics.TextRenderingSettings()
Dim PdfViewerPrinterSettings6 As Syncfusion.Windows.PdfViewer.PdfViewerPrinterSettings = New Syncfusion.Windows.PdfViewer.PdfViewerPrinterSettings()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ListView1 = New System.Windows.Forms.ListView()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.TrackBar1 = New System.Windows.Forms.TrackBar()
Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
Me.GrpDokumentvorschauMail = New System.Windows.Forms.GroupBox()
Me.webBrowser1 = New System.Windows.Forms.WebBrowser()
Me.ToolStrip4 = New System.Windows.Forms.ToolStrip()
Me.PrintButton = New System.Windows.Forms.ToolStripButton()
Me.ForwardButton = New System.Windows.Forms.ToolStripButton()
Me.BackButton = New System.Windows.Forms.ToolStripButton()
Me.SaveAsTextButton = New System.Windows.Forms.ToolStripButton()
Me.grpdokumentvorschau = New System.Windows.Forms.GroupBox()
Me.DocumentViewer1 = New Gnostice.Documents.Controls.WinForms.DocumentViewer()
Me.ToolStrip3 = New System.Windows.Forms.ToolStrip()
Me.btnFirstPage = New System.Windows.Forms.ToolStripButton()
Me.btnPrvPage = New System.Windows.Forms.ToolStripButton()
Me.txtGoToPage = New System.Windows.Forms.ToolStripTextBox()
Me.btnNxtPage = New System.Windows.Forms.ToolStripButton()
Me.btnLastPage = New System.Windows.Forms.ToolStripButton()
Me.toolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
Me.tsActSize = New System.Windows.Forms.ToolStripButton()
Me.tsFitPage = New System.Windows.Forms.ToolStripButton()
Me.tsFitWidth = New System.Windows.Forms.ToolStripButton()
Me.tsZoomOut = New System.Windows.Forms.ToolStripButton()
Me.toolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator()
Me.txtZoom = New System.Windows.Forms.ToolStripTextBox()
Me.toolStripPercentlabel = New System.Windows.Forms.ToolStripLabel()
Me.tsZoomIn = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton()
Me.grpdokumentvorschaupdf = New System.Windows.Forms.GroupBox()
Me.pdfViewerControl1 = New Syncfusion.Windows.Forms.PdfViewer.PdfViewerControl()
Me.KpImageViewer1 = New KaiwaProjects.KpImageViewer()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout()
Me.SplitContainer1.SuspendLayout()
CType(Me.TrackBar1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStrip2.SuspendLayout()
Me.GrpDokumentvorschauMail.SuspendLayout()
Me.ToolStrip4.SuspendLayout()
Me.grpdokumentvorschau.SuspendLayout()
Me.ToolStrip3.SuspendLayout()
Me.grpdokumentvorschaupdf.SuspendLayout()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(971, 25)
Me.ToolStrip1.TabIndex = 0
Me.ToolStrip1.Text = "ToolStrip1"
'
'ListView1
'
Me.ListView1.Dock = System.Windows.Forms.DockStyle.Fill
Me.ListView1.Location = New System.Drawing.Point(0, 25)
Me.ListView1.Name = "ListView1"
Me.ListView1.Size = New System.Drawing.Size(323, 546)
Me.ListView1.TabIndex = 1
Me.ListView1.UseCompatibleStateImageBehavior = False
'
'SplitContainer1
'
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainer1.Location = New System.Drawing.Point(0, 25)
Me.SplitContainer1.Name = "SplitContainer1"
'
'SplitContainer1.Panel1
'
Me.SplitContainer1.Panel1.Controls.Add(Me.ListView1)
Me.SplitContainer1.Panel1.Controls.Add(Me.TrackBar1)
Me.SplitContainer1.Panel1.Controls.Add(Me.ToolStrip2)
'
'SplitContainer1.Panel2
'
Me.SplitContainer1.Panel2.Controls.Add(Me.GrpDokumentvorschauMail)
Me.SplitContainer1.Panel2.Controls.Add(Me.grpdokumentvorschau)
Me.SplitContainer1.Panel2.Controls.Add(Me.grpdokumentvorschaupdf)
Me.SplitContainer1.Panel2.Controls.Add(Me.KpImageViewer1)
Me.SplitContainer1.Size = New System.Drawing.Size(971, 571)
Me.SplitContainer1.SplitterDistance = 323
Me.SplitContainer1.TabIndex = 3
'
'TrackBar1
'
Me.TrackBar1.Location = New System.Drawing.Point(122, 3)
Me.TrackBar1.Name = "TrackBar1"
Me.TrackBar1.Size = New System.Drawing.Size(104, 45)
Me.TrackBar1.TabIndex = 3
'
'ToolStrip2
'
Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripSeparator1, Me.ToolStripButton4})
Me.ToolStrip2.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip2.Name = "ToolStrip2"
Me.ToolStrip2.Size = New System.Drawing.Size(323, 25)
Me.ToolStrip2.TabIndex = 2
Me.ToolStrip2.Text = "ToolStrip2"
'
'ToolStripButton1
'
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
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(23, 22)
Me.ToolStripButton1.Text = "Grosse Symbole"
'
'ToolStripButton2
'
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton2.Text = "Kleine Symbole"
'
'ToolStripButton3
'
Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
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(23, 22)
Me.ToolStripButton3.Text = "Liste"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
'
'ToolStripButton4
'
Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
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(23, 22)
Me.ToolStripButton4.Text = "Grossansicht anzeigen / Ausblenden"
'
'GrpDokumentvorschauMail
'
Me.GrpDokumentvorschauMail.Controls.Add(Me.webBrowser1)
Me.GrpDokumentvorschauMail.Controls.Add(Me.ToolStrip4)
Me.GrpDokumentvorschauMail.Location = New System.Drawing.Point(56, 364)
Me.GrpDokumentvorschauMail.Name = "GrpDokumentvorschauMail"
Me.GrpDokumentvorschauMail.Size = New System.Drawing.Size(519, 242)
Me.GrpDokumentvorschauMail.TabIndex = 13
Me.GrpDokumentvorschauMail.TabStop = False
Me.GrpDokumentvorschauMail.Text = "Dokumentvorschau E-Mail"
'
'webBrowser1
'
Me.webBrowser1.Dock = System.Windows.Forms.DockStyle.Fill
Me.webBrowser1.Location = New System.Drawing.Point(3, 41)
Me.webBrowser1.Margin = New System.Windows.Forms.Padding(2)
Me.webBrowser1.MinimumSize = New System.Drawing.Size(10, 10)
Me.webBrowser1.Name = "webBrowser1"
Me.webBrowser1.Size = New System.Drawing.Size(513, 198)
Me.webBrowser1.TabIndex = 13
'
'ToolStrip4
'
Me.ToolStrip4.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PrintButton, Me.ForwardButton, Me.BackButton, Me.SaveAsTextButton})
Me.ToolStrip4.Location = New System.Drawing.Point(3, 16)
Me.ToolStrip4.Name = "ToolStrip4"
Me.ToolStrip4.Padding = New System.Windows.Forms.Padding(0)
Me.ToolStrip4.Size = New System.Drawing.Size(513, 25)
Me.ToolStrip4.TabIndex = 1
Me.ToolStrip4.Text = "ToolStrip4"
'
'PrintButton
'
Me.PrintButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.PrintButton.Image = CType(resources.GetObject("PrintButton.Image"), System.Drawing.Image)
Me.PrintButton.ImageTransparentColor = System.Drawing.Color.Magenta
Me.PrintButton.Name = "PrintButton"
Me.PrintButton.Size = New System.Drawing.Size(23, 22)
Me.PrintButton.Text = "&Print"
'
'ForwardButton
'
Me.ForwardButton.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ForwardButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ForwardButton.Enabled = False
Me.ForwardButton.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ForwardButton.Name = "ForwardButton"
Me.ForwardButton.Size = New System.Drawing.Size(23, 22)
Me.ForwardButton.Text = "Go &forward"
'
'BackButton
'
Me.BackButton.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.BackButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.BackButton.Enabled = False
Me.BackButton.ImageTransparentColor = System.Drawing.Color.Magenta
Me.BackButton.Name = "BackButton"
Me.BackButton.Size = New System.Drawing.Size(23, 22)
Me.BackButton.Text = "Go &back"
'
'SaveAsTextButton
'
Me.SaveAsTextButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.SaveAsTextButton.Image = CType(resources.GetObject("SaveAsTextButton.Image"), System.Drawing.Image)
Me.SaveAsTextButton.ImageTransparentColor = System.Drawing.Color.Magenta
Me.SaveAsTextButton.Name = "SaveAsTextButton"
Me.SaveAsTextButton.Size = New System.Drawing.Size(23, 22)
Me.SaveAsTextButton.Text = "Save as text"
Me.SaveAsTextButton.Visible = False
'
'grpdokumentvorschau
'
Me.grpdokumentvorschau.Controls.Add(Me.DocumentViewer1)
Me.grpdokumentvorschau.Controls.Add(Me.ToolStrip3)
Me.grpdokumentvorschau.Location = New System.Drawing.Point(219, 175)
Me.grpdokumentvorschau.Name = "grpdokumentvorschau"
Me.grpdokumentvorschau.Size = New System.Drawing.Size(371, 272)
Me.grpdokumentvorschau.TabIndex = 12
Me.grpdokumentvorschau.TabStop = False
Me.grpdokumentvorschau.Text = "Dokumentvorschau"
'
'DocumentViewer1
'
Me.DocumentViewer1.BackColor = System.Drawing.SystemColors.ControlDark
Me.DocumentViewer1.BorderWidth = 10
Me.DocumentViewer1.CurrentPage = 0
Me.DocumentViewer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.DocumentViewer1.HScrollBar.LargeChange = 40
Me.DocumentViewer1.HScrollBar.SmallChange = 20
Me.DocumentViewer1.HScrollBar.Value = 0
Me.DocumentViewer1.HScrollBar.Visibility = Gnostice.Documents.Controls.WinForms.ScrollBarVisibility.Always
Me.DocumentViewer1.Location = New System.Drawing.Point(3, 41)
Me.DocumentViewer1.MouseMode = Gnostice.DOM.CursorPreferences.AreaSelection
Me.DocumentViewer1.Name = "DocumentViewer1"
'
'
'
Me.DocumentViewer1.NavigationPane.ActivePage = Nothing
Me.DocumentViewer1.NavigationPane.Location = New System.Drawing.Point(0, 0)
Me.DocumentViewer1.NavigationPane.Name = ""
Me.DocumentViewer1.NavigationPane.TabIndex = 0
Me.DocumentViewer1.NavigationPane.Visibility = Gnostice.Documents.Controls.WinForms.Visibility.[Auto]
Me.DocumentViewer1.NavigationPane.WidthPercentage = 20
Me.DocumentViewer1.PageLayout = Nothing
Me.DocumentViewer1.PageRotation = Gnostice.Documents.Controls.WinForms.RotationAngle.Zero
Me.DocumentViewer1.Preferences.Cursor = Gnostice.DOM.CursorPreferences.Pan
SpreadSheetFormatterSettings2.FormattingMode = Gnostice.DOM.FormattingMode.PreferDocumentSettings
SpreadSheetFormatterSettings2.PageOrder = Gnostice.Documents.Spreadsheet.LayoutDirection.BackwardN
PageSettings3.Height = 11.6929!
Margins3.Bottom = 1.0!
Margins3.Footer = 0!
Margins3.Header = 0!
Margins3.Left = 1.0!
Margins3.Right = 1.0!
Margins3.Top = 1.0!
PageSettings3.Margin = Margins3
PageSettings3.Orientation = Gnostice.Graphics.Orientation.Portrait
PageSettings3.PageSize = Gnostice.Documents.PageSize.A4
PageSettings3.Width = 8.2677!
SpreadSheetFormatterSettings2.PageSettings = PageSettings3
SheetOptions3.Print = False
SheetOptions3.View = False
SpreadSheetFormatterSettings2.ShowGridlines = SheetOptions3
SheetOptions4.Print = False
SheetOptions4.View = False
SpreadSheetFormatterSettings2.ShowHeadings = SheetOptions4
FormatterSettings2.SpreadSheet = SpreadSheetFormatterSettings2
TxtFormatterSettings2.Font = New System.Drawing.Font("Calibri", 12.0!)
PageSettings4.Height = 11.6929!
Margins4.Bottom = 1.0!
Margins4.Footer = 0!
Margins4.Header = 0!
Margins4.Left = 1.0!
Margins4.Right = 1.0!
Margins4.Top = 1.0!
PageSettings4.Margin = Margins4
PageSettings4.Orientation = Gnostice.Graphics.Orientation.Portrait
PageSettings4.PageSize = Gnostice.Documents.PageSize.A4
PageSettings4.Width = 8.2677!
TxtFormatterSettings2.PageSettings = PageSettings4
FormatterSettings2.TXT = TxtFormatterSettings2
Me.DocumentViewer1.Preferences.FormatterSettings = FormatterSettings2
Me.DocumentViewer1.Preferences.KeyNavigation = True
ImageRenderingSettings2.CompositingMode = Gnostice.Graphics.CompositingMode.SourceOver
ImageRenderingSettings2.CompositingQuality = Gnostice.Graphics.CompositingQuality.[Default]
ImageRenderingSettings2.InterpolationMode = Gnostice.Graphics.InterpolationMode.Bilinear
ImageRenderingSettings2.PixelOffsetMode = Gnostice.Graphics.PixelOffsetMode.[Default]
RenderingSettings2.Image = ImageRenderingSettings2
LineArtRenderingSettings2.SmoothingMode = Gnostice.Graphics.SmoothingMode.AntiAlias
RenderingSettings2.LineArt = LineArtRenderingSettings2
ResolutionSettings2.DpiX = 96.0!
ResolutionSettings2.DpiY = 96.0!
ResolutionSettings2.ResolutionMode = Gnostice.Graphics.ResolutionMode.UseSource
RenderingSettings2.Resolution = ResolutionSettings2
TextRenderingSettings2.TextContrast = 3
TextRenderingSettings2.TextRenderingHint = Gnostice.Graphics.TextRenderingHint.AntiAlias
RenderingSettings2.Text = TextRenderingSettings2
Me.DocumentViewer1.Preferences.RenderingSettings = RenderingSettings2
Me.DocumentViewer1.Preferences.Units = Gnostice.Graphics.MeasurementUnit.Inches
Me.DocumentViewer1.Size = New System.Drawing.Size(365, 228)
Me.DocumentViewer1.TabIndex = 7
Me.DocumentViewer1.VScrollBar.LargeChange = 40
Me.DocumentViewer1.VScrollBar.SmallChange = 20
Me.DocumentViewer1.VScrollBar.Value = 0
Me.DocumentViewer1.VScrollBar.Visibility = Gnostice.Documents.Controls.WinForms.ScrollBarVisibility.Always
Me.DocumentViewer1.Zoom.ZoomMode = Gnostice.Documents.Controls.WinForms.ZoomMode.ActualSize
Me.DocumentViewer1.Zoom.ZoomPercent = 100.0R
'
'ToolStrip3
'
Me.ToolStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btnFirstPage, Me.btnPrvPage, Me.txtGoToPage, Me.btnNxtPage, Me.btnLastPage, Me.toolStripSeparator4, Me.tsActSize, Me.tsFitPage, Me.tsFitWidth, Me.tsZoomOut, Me.toolStripSeparator7, Me.txtZoom, Me.toolStripPercentlabel, Me.tsZoomIn, Me.ToolStripButton5, Me.ToolStripButton6})
Me.ToolStrip3.Location = New System.Drawing.Point(3, 16)
Me.ToolStrip3.Name = "ToolStrip3"
Me.ToolStrip3.Size = New System.Drawing.Size(365, 25)
Me.ToolStrip3.TabIndex = 8
Me.ToolStrip3.Text = "ToolStrip3"
'
'btnFirstPage
'
Me.btnFirstPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnFirstPage.Image = CType(resources.GetObject("btnFirstPage.Image"), System.Drawing.Image)
Me.btnFirstPage.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnFirstPage.Name = "btnFirstPage"
Me.btnFirstPage.Size = New System.Drawing.Size(23, 22)
Me.btnFirstPage.Text = "toolStripButton1"
Me.btnFirstPage.ToolTipText = "Erste Seite"
'
'btnPrvPage
'
Me.btnPrvPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnPrvPage.Image = CType(resources.GetObject("btnPrvPage.Image"), System.Drawing.Image)
Me.btnPrvPage.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnPrvPage.Name = "btnPrvPage"
Me.btnPrvPage.Size = New System.Drawing.Size(23, 22)
Me.btnPrvPage.ToolTipText = "Vorherige Seite"
'
'txtGoToPage
'
Me.txtGoToPage.Name = "txtGoToPage"
Me.txtGoToPage.Size = New System.Drawing.Size(40, 25)
'
'btnNxtPage
'
Me.btnNxtPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnNxtPage.Image = CType(resources.GetObject("btnNxtPage.Image"), System.Drawing.Image)
Me.btnNxtPage.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnNxtPage.Name = "btnNxtPage"
Me.btnNxtPage.Size = New System.Drawing.Size(23, 22)
Me.btnNxtPage.Text = "toolStripButton1"
Me.btnNxtPage.ToolTipText = "Nächste Seite"
'
'btnLastPage
'
Me.btnLastPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnLastPage.Image = CType(resources.GetObject("btnLastPage.Image"), System.Drawing.Image)
Me.btnLastPage.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnLastPage.Name = "btnLastPage"
Me.btnLastPage.Size = New System.Drawing.Size(23, 22)
Me.btnLastPage.ToolTipText = "Letzte Seite"
'
'toolStripSeparator4
'
Me.toolStripSeparator4.Name = "toolStripSeparator4"
Me.toolStripSeparator4.Size = New System.Drawing.Size(6, 25)
'
'tsActSize
'
Me.tsActSize.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.tsActSize.Image = CType(resources.GetObject("tsActSize.Image"), System.Drawing.Image)
Me.tsActSize.ImageTransparentColor = System.Drawing.Color.White
Me.tsActSize.Name = "tsActSize"
Me.tsActSize.Size = New System.Drawing.Size(108, 22)
Me.tsActSize.Text = "Aktuelle Grüsse"
'
'tsFitPage
'
Me.tsFitPage.Image = CType(resources.GetObject("tsFitPage.Image"), System.Drawing.Image)
Me.tsFitPage.ImageTransparentColor = System.Drawing.Color.White
Me.tsFitPage.Name = "tsFitPage"
Me.tsFitPage.Size = New System.Drawing.Size(86, 22)
Me.tsFitPage.Text = "ganze Seite"
'
'tsFitWidth
'
Me.tsFitWidth.Image = CType(resources.GetObject("tsFitWidth.Image"), System.Drawing.Image)
Me.tsFitWidth.ImageTransparentColor = System.Drawing.Color.Transparent
Me.tsFitWidth.Name = "tsFitWidth"
Me.tsFitWidth.Size = New System.Drawing.Size(57, 20)
Me.tsFitWidth.Text = "Breite"
'
'tsZoomOut
'
Me.tsZoomOut.Image = CType(resources.GetObject("tsZoomOut.Image"), System.Drawing.Image)
Me.tsZoomOut.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsZoomOut.Name = "tsZoomOut"
Me.tsZoomOut.Size = New System.Drawing.Size(85, 20)
Me.tsZoomOut.Text = "verkleinern"
'
'toolStripSeparator7
'
Me.toolStripSeparator7.Name = "toolStripSeparator7"
Me.toolStripSeparator7.Size = New System.Drawing.Size(6, 25)
'
'txtZoom
'
Me.txtZoom.MaxLength = 4
Me.txtZoom.Name = "txtZoom"
Me.txtZoom.Size = New System.Drawing.Size(35, 23)
Me.txtZoom.Text = "100"
Me.txtZoom.ToolTipText = "Key in the zoom value and press enter"
'
'toolStripPercentlabel
'
Me.toolStripPercentlabel.Name = "toolStripPercentlabel"
Me.toolStripPercentlabel.Size = New System.Drawing.Size(17, 15)
Me.toolStripPercentlabel.Text = "%"
'
'tsZoomIn
'
Me.tsZoomIn.Image = CType(resources.GetObject("tsZoomIn.Image"), System.Drawing.Image)
Me.tsZoomIn.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsZoomIn.Name = "tsZoomIn"
Me.tsZoomIn.Size = New System.Drawing.Size(88, 20)
Me.tsZoomIn.Text = "vergrössern"
'
'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(23, 20)
Me.ToolStripButton5.Text = "ToolStripButton1"
Me.ToolStripButton5.ToolTipText = "90 Grad gegen Urzeigersinn"
'
'ToolStripButton6
'
Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton6.Image = CType(resources.GetObject("ToolStripButton6.Image"), System.Drawing.Image)
Me.ToolStripButton6.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton6.Name = "ToolStripButton6"
Me.ToolStripButton6.Size = New System.Drawing.Size(23, 20)
Me.ToolStripButton6.Text = "ToolStripButton2"
Me.ToolStripButton6.ToolTipText = "90 Grad im Uhrzeigersinn"
'
'grpdokumentvorschaupdf
'
Me.grpdokumentvorschaupdf.Controls.Add(Me.pdfViewerControl1)
Me.grpdokumentvorschaupdf.Location = New System.Drawing.Point(381, 77)
Me.grpdokumentvorschaupdf.Name = "grpdokumentvorschaupdf"
Me.grpdokumentvorschaupdf.Size = New System.Drawing.Size(319, 242)
Me.grpdokumentvorschaupdf.TabIndex = 11
Me.grpdokumentvorschaupdf.TabStop = False
Me.grpdokumentvorschaupdf.Text = "Dokumentvorschau"
'
'pdfViewerControl1
'
Me.pdfViewerControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.pdfViewerControl1.EnableContextMenu = True
Me.pdfViewerControl1.EnableNotificationBar = True
Me.pdfViewerControl1.IsBookmarkEnabled = True
Me.pdfViewerControl1.Location = New System.Drawing.Point(3, 16)
Me.pdfViewerControl1.Name = "pdfViewerControl1"
Me.pdfViewerControl1.PageBorderThickness = 1
PdfViewerPrinterSettings6.PrintLocation = CType(resources.GetObject("PdfViewerPrinterSettings6.PrintLocation"), System.Drawing.PointF)
Me.pdfViewerControl1.PrinterSettings = PdfViewerPrinterSettings6
Me.pdfViewerControl1.ReferencePath = Nothing
Me.pdfViewerControl1.RenderingEngine = Syncfusion.Windows.Forms.PdfViewer.PdfRenderingEngine.SfPdf
Me.pdfViewerControl1.ScrollDisplacementValue = 0
Me.pdfViewerControl1.ShowHorizontalScrollBar = True
Me.pdfViewerControl1.ShowToolBar = True
Me.pdfViewerControl1.ShowVerticalScrollBar = True
Me.pdfViewerControl1.Size = New System.Drawing.Size(313, 223)
Me.pdfViewerControl1.SpaceBetweenPages = 8
Me.pdfViewerControl1.TabIndex = 4
Me.pdfViewerControl1.Text = "pdfViewerControl1"
Me.pdfViewerControl1.VisualStyle = Syncfusion.Windows.Forms.PdfViewer.VisualStyle.[Default]
Me.pdfViewerControl1.ZoomMode = Syncfusion.Windows.Forms.PdfViewer.ZoomMode.[Default]
'
'KpImageViewer1
'
Me.KpImageViewer1.BackgroundColor = System.Drawing.SystemColors.ControlLight
Me.KpImageViewer1.ForeColor = System.Drawing.SystemColors.ControlText
Me.KpImageViewer1.GifAnimation = False
Me.KpImageViewer1.GifFPS = 15.0R
Me.KpImageViewer1.Image = Nothing
Me.KpImageViewer1.Location = New System.Drawing.Point(0, 0)
Me.KpImageViewer1.MenuColor = System.Drawing.SystemColors.Control
Me.KpImageViewer1.MenuPanelColor = System.Drawing.SystemColors.Control
Me.KpImageViewer1.MinimumSize = New System.Drawing.Size(454, 157)
Me.KpImageViewer1.Name = "KpImageViewer1"
Me.KpImageViewer1.NavigationPanelColor = System.Drawing.SystemColors.Control
Me.KpImageViewer1.NavigationTextColor = System.Drawing.SystemColors.ControlText
Me.KpImageViewer1.OpenButton = False
Me.KpImageViewer1.PreviewButton = False
Me.KpImageViewer1.PreviewPanelColor = System.Drawing.SystemColors.Control
Me.KpImageViewer1.PreviewText = "label1"
Me.KpImageViewer1.PreviewTextColor = System.Drawing.SystemColors.ControlText
Me.KpImageViewer1.Rotation = 0
Me.KpImageViewer1.Scrollbars = False
Me.KpImageViewer1.ShowPreview = True
Me.KpImageViewer1.Size = New System.Drawing.Size(455, 358)
Me.KpImageViewer1.TabIndex = 0
Me.KpImageViewer1.TextColor = System.Drawing.SystemColors.ControlText
Me.KpImageViewer1.Zoom = 100.0R
'
'ImageList1
'
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
Me.ImageList1.Images.SetKeyName(0, "PDF.PNG")
Me.ImageList1.Images.SetKeyName(1, "Word.PNG")
Me.ImageList1.Images.SetKeyName(2, "Excel.PNG")
Me.ImageList1.Images.SetKeyName(3, "Mail.PNG")
Me.ImageList1.Images.SetKeyName(4, "Document_search_256.png")
'
'ThumbViewer
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.SplitContainer1)
Me.Controls.Add(Me.ToolStrip1)
Me.Name = "ThumbViewer"
Me.Size = New System.Drawing.Size(971, 596)
Me.SplitContainer1.Panel1.ResumeLayout(False)
Me.SplitContainer1.Panel1.PerformLayout()
Me.SplitContainer1.Panel2.ResumeLayout(False)
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer1.ResumeLayout(False)
CType(Me.TrackBar1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStrip2.ResumeLayout(False)
Me.ToolStrip2.PerformLayout()
Me.GrpDokumentvorschauMail.ResumeLayout(False)
Me.GrpDokumentvorschauMail.PerformLayout()
Me.ToolStrip4.ResumeLayout(False)
Me.ToolStrip4.PerformLayout()
Me.grpdokumentvorschau.ResumeLayout(False)
Me.grpdokumentvorschau.PerformLayout()
Me.ToolStrip3.ResumeLayout(False)
Me.ToolStrip3.PerformLayout()
Me.grpdokumentvorschaupdf.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents ListView1 As System.Windows.Forms.ListView
Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
Friend WithEvents ToolStrip2 As System.Windows.Forms.ToolStrip
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton
Friend WithEvents TrackBar1 As System.Windows.Forms.TrackBar
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripButton
Friend WithEvents KpImageViewer1 As KaiwaProjects.KpImageViewer
Friend WithEvents GrpDokumentvorschauMail As Windows.Forms.GroupBox
Private WithEvents webBrowser1 As Windows.Forms.WebBrowser
Private WithEvents ToolStrip4 As Windows.Forms.ToolStrip
Private WithEvents PrintButton As Windows.Forms.ToolStripButton
Private WithEvents ForwardButton As Windows.Forms.ToolStripButton
Private WithEvents BackButton As Windows.Forms.ToolStripButton
Private WithEvents SaveAsTextButton As Windows.Forms.ToolStripButton
Friend WithEvents grpdokumentvorschau As Windows.Forms.GroupBox
Friend WithEvents DocumentViewer1 As Gnostice.Documents.Controls.WinForms.DocumentViewer
Private WithEvents ToolStrip3 As Windows.Forms.ToolStrip
Private WithEvents btnFirstPage As Windows.Forms.ToolStripButton
Private WithEvents btnPrvPage As Windows.Forms.ToolStripButton
Private WithEvents txtGoToPage As Windows.Forms.ToolStripTextBox
Private WithEvents btnNxtPage As Windows.Forms.ToolStripButton
Private WithEvents btnLastPage As Windows.Forms.ToolStripButton
Private WithEvents toolStripSeparator4 As Windows.Forms.ToolStripSeparator
Private WithEvents tsActSize As Windows.Forms.ToolStripButton
Private WithEvents tsFitPage As Windows.Forms.ToolStripButton
Private WithEvents tsFitWidth As Windows.Forms.ToolStripButton
Private WithEvents tsZoomOut As Windows.Forms.ToolStripButton
Private WithEvents toolStripSeparator7 As Windows.Forms.ToolStripSeparator
Private WithEvents txtZoom As Windows.Forms.ToolStripTextBox
Private WithEvents toolStripPercentlabel As Windows.Forms.ToolStripLabel
Private WithEvents tsZoomIn As Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton5 As Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton6 As Windows.Forms.ToolStripButton
Friend WithEvents grpdokumentvorschaupdf As Windows.Forms.GroupBox
Private WithEvents pdfViewerControl1 As Syncfusion.Windows.Forms.PdfViewer.PdfViewerControl
Friend WithEvents ImageList1 As ImageList
End Class

632
DPM2016/Dokumente/Thumbviewer/ThumbViewer.resx Normal file
View File

@@ -0,0 +1,632 @@
<?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>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>124, 17</value>
</metadata>
<metadata name="ToolStrip4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>742, 17</value>
</metadata>
<metadata name="ToolStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>498, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABcAAAATCAYAAAB7u5a2AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAG6SURBVDhP1ZNbK0RRGIbXX/MTREhyiHAhg4maIZGcUmKS
cSZEg5FxSIgmLhwzmSinXCs3as7Hz36/WstsS4rmxldP7823n9699toikUiQEIKQ2eYfy+PxOMuRYMt7
Tw7PC7UuP5N9yWDxkWzz99Qyd0fNM7dknfZT04SPGsavyTJ6SXUj59QxecrPSYdEk/e4veTYe/01OcNe
kxhocjT+C9UD38hjsRjLkcC++ER/mcreQ+WQaHLbwgMvd558grF4qhWYMd8nmPLufZMY6HLj42EgnfWb
5eO+Ic50Os1St9FDyks7d01iIKLRKMuRALcC81PzVCqlNS9p31EOiSbHdfs6aCqBOJNkMsk7xW2bJjHQ
5NapG17ObAopOfMVkL7f1SgwRfYNkxiISCTCciSwOK94GdJZv1MdA4tXrJxoy9K3SSXPb15TDokIh8Ms
R4L6kQtezmzOr57RHL/21+Z51hXlkGjyOscZL/92cptcJjEQoVCI5UjQP3NMtYMn/MdV9R1RRfcBlXXt
Gbdhmz9aUauHCm3rVNDiNo5i1WjsotxGFz8nHRJNnk1EMBhkOTLbiEAgwHJkdgnQB/rv9Lv2b3V7AAAA
AElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABMAAAATCAYAAAByUDbMAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHiSURBVDhPzZJbS1RRFMfn+/QNevMjSKESkYURPkiWg8KM
IkrYJIHQ4BTTZSZSipm08cqgMjbog2lRFAV2wadAUcs6t33O2aP/9lq4z4ROgjIP/eH3sPZi/di3kJQS
1eI/lvm+D2KyuIr4+Bo6n31D9Kli+AsiT1bR8fgT2lMfEX70AW333+Fa8i1a775Gy+Ayeh4s8Zx2BLKb
o0XEZzaOTc2d4mEZ7egkXLn9l8zzPBDR4a+oFBo4Kk2xAs8TgSwy9JmbzS+BQqGAfD7PtZb9MAU2dxys
b9n4vmlibd3g9Yt9sxVk6rIrRct+OxI/LRdbhpL+EtjYdnj9Qm++LHNdFwS9GoV2lsvlkM1mudYyy5Uw
hYRhS+yYPrYNl9fPd0/zPBHI6PkrRcuEJ2ErSGrsSynnuiYOy8IP33PzdApIp9NIJpNca5m7uwtPfUzh
SzgKklIaomNlmRACROu9N9w8GC3zlUwjSiU4Skw52z7C80TIcRwQVwdXuHlqAEgkEojFYlxrWWlvj/H3
8ZSQciac5XkikLXEX3HzYLTsX6lty5Rltm2D6E8toHlgkX/05VvzuNQ3h8YbM+q1pviSGzrHUR95gbqO
UXW052pHGdRez/CcdgSyahCyLAvVImSaJqqDiT+JsiApUK7YBgAAAABJRU5ErkJggg==
</value>
</data>
<data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABcAAAASCAYAAACw50UTAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIUSURBVDhPtZNra9NwFMbz1fwIQ9EhotOp+GI4XdmgnQxF
5gVBaFm1Wg1SV9vYpU3a1d6oFH3hFUVRmBd8PbxtmmuTrM9yDgrJ4psNe+DHn8KTX845+VdwXRfDYrhy
x3EQpNZbQUr9gtnCZyTu+Sx+RDy3gpk77zEtvkPs9ltM3XyNUzdeYfLaC0wsPMPZ7BN+bqsrIr8g95Bq
rW6bXcleyENE5NTxTjh+5R/yfr+PIInFT9hJjV/shjxERB6/+4HDx1omn91uF51OB41GA5YzQL1exw/N
g6qqUBQFsixzbmy+HfIQUbn/8ahsX0Qyk7A38Nvy+Pe66WHN8PBdc/H1l4PVdYfzB881Qh5CsG0bQehW
UI0/0Phst9toNpuoVqssr1Qq/AJJklAoFJDP5zl3YK4e8hAROV03KscboO8OeAKCJiC57k9AU/yd4Kfu
cX7/mWrIQ0TksVtvOHxkeY1P2nGtVkOpVGJ5sViE4a8pl8tBFEVks1nOjSaUkIcQLMtCkMnrLznsbgzg
/umeIHEQ3X+B5ndPUO2ZXgp5CME0TQQ5ufCcw2PKNz5p1+VymXdLUuqYzkwmg3Q6jWQyybndsfshDxGR
T6Secni7NTIlhTyEYBgGglwWH+HE1cf8jzt66SEOz3dw6HzLvw3L/NFGZ1Xsi5exd0b2V1HyO5Ywclri
57a6IvL/iaDrOoaFoGkahoOGTRL65La920HBAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAARCAYAAADdRIy+AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHgSURBVDhPrZJRSxRRFMf3+/QNevMjiGESYYURPkiWi8Ku
EYbYKoHQ4iprtRslxa7aphmLyeqiD5WKUSSYhU+CopY1OzN3Zu7q33sO3oFdxqDYP/wezuWcH2fm3pCU
ErWk9kLP80C8KW4gPrWF7pc/EH2hGNtE5NkGup6uozP1FeEnX9Ax+gm3kmtoH15B29BH9Dx6z3PaQfjC
+5NFxGd3/5m6h8VgIW32P9x4UCV0XRdEdOw7gkJDf0tLrMDzGl8Yef6NG1oXgEKhgHw+z7UW/iwJ7B3a
2Nm3sL1XwtaOwedX+96dIVQXEBQt/GNL/DId7BtK/Ftg98Dm8+Z7+Uqh4zgg6DYptGEul0M2m+VaC01H
oiQkDEvisOThwHD4/PLdtzyv8YX0NIKihcKVsBQkNk7FlEt3poOF4cefueF8Ckin00gmk1xroXN0BFc9
XOFJ2AoSU5qiryuFQggQ7SOr3FAdLfSUUCPKZdhKTrnQOcHzmpBt2yBuDi1zw7lBIJFIIBaLca2F5eNj
xjvFVVJKQzjL8xpf2Bb/wA3V0cKzUt+RqRRalgViILWI1sElfvnX++dxrW8OV3pn1S3O8I9v6p7Cxcgr
NHZNqs8cV5tlUH87w3PaQfjCWhEyTRO1w8QJvKLOmShBwNkAAAAASUVORK5CYII=
</value>
</data>
<metadata name="ToolStrip4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>742, 17</value>
</metadata>
<data name="PrintButton.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIpSURBVDhPtZL/T1JRGMb5p1itrVZbbRpqZbawnBENV1I0
jGlByTSyJTXJwq2oKZQb1KAv6JCYWSxvBrkkZUq4CeQEiRABFeLL072Xa0zRra31bO8v57zP5znnPYf1
X+TxhWF6O7VtGYcnwbSWijKPOLzYrPSvLPwLS3huGUMlT7o9wGD9grVUBj+icdid03S9tDmgNxNwTgVQ
J+rA8XNtWwM+uuZATMwxmQVRycuJFNyzIRitDlScugKzjSgFRGJJaIwEsrk8AsHIhnSL/Ssck37UNipQ
I5DjtuYV7uksRYhr2kebhx2eP6nrycFIEh5fBA/1Nvru8q5+PDaOovK0rABwfwugWzcErfkzHhjsePL6
E7q1VrTdNUDcrgGvSYlDZHN5XTNOnL8BVe8AJAoNDtZfLgDu9L1BPJmikzcrk81hlRwodZJwdBXziwnI
OrVoaOkiT8C8hKLHBPO7CbywOaE1jeC+bhAd6meQdvZC1KoG/5IS3MZ2HObLUHZSggvkWq3wOvbWiAqA
VpWeyStVfCUNf3AZ4zNhfHCFMEDMgye+hYr6FrDLzxQAUuVTpr0ocn74mchg5vsKRt1RcHp2Qv9+kZ78
UcE17KkWFgHNN/uQzgBkGKLJPBZiecyGchjzrmFwPIF++xJUbDbUQzEacIArLpopSRSP4CUN1Obf1Abz
uqob5KjiXwWH/GVl5HPt5zZh37GL2H1EiF1VZ7GDI6CNW5r/TSzWbwHYL0mKJ5czAAAAAElFTkSuQmCC
</value>
</data>
<data name="SaveAsTextButton.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAPVSURBVFhHzZbfS5NhFMe9jYq6MaKroPt+XEXRH9BlUkEE
UVCB0E0UdBVlhGARFJVoZmr4e6am5tTlmNZ0zmzpnLrJnLpMl1l40f2p79POw9mz9323oIsOfDjvxrt9
v9/znsdZkKsa/cVU7z+tqBk6RZX9RYq6vluUvuXf1ebmT2LiyQiVvtpPT7vO0YWn2+nMg610onQLFd3d
RuWNt2gt9V3fy6x/28y6Tn39oa7RmbRcdvGHIf5k4CBVuE+SL1JOJa1H6PyjHcpEleu2+hJTSHbGShzG
03LZxeIV3kP0wnecvNP36aarkPAYiit3anEWk/B73HEfdym+urphb4CTu0YvUl3gKM2sdJJ76oYyYSaX
YrJLpDiAuK2BcHyUyjoPqAULzteRK3iW+sPXqay3kOq7SxzFzWtTGLC4rYF7rsNU7b5CLYFihT/6mB56
9tLzzssUSfRR9PNbiq0MZnQws+xRTC0MZDA+169BuJwGSjp20dWafdQRKKGHfccIrxt67ij3+aRmnJKD
xaU1ewPYchy5a3W76VnbVZ1cwollcvRP8QGFTA4+RN3qfWkiLZlZEMUZx3HDwi2vLtDKelSTTM1lgIW1
IrYU1kQXwxSOTVI0lsg9ATZQ2fxn21MbSxkGpAkIWZmAKPdIPKLE0fGaxe0nULNH/YWDOJ5tYm1Cj5w7
jxudR44R86jBu6luzVCoRzE27dcGbCfwqPmSEuflslo6E76frxkeN8PJHQ3AMQuDWHI8Izkjk1ulZji9
L/SGxmbd2kQ88cXaAApJciWXSSUy8VIypbvEcQIocwIyMZBHyyo90oKBYJemP9BF70M+ZQDp854AjqG5
5QBbzcfLisloiD7OfMxgYvr36UiLOxpgcXRpgM81xCX5iP+VATkBPAIeOZYIYMzoPGoGY+Zxdw13qPfQ
GW/Qq8Vj80lnA07IRbNDLp1MLUnLZZcUwy8YJzaXjHGPvM5KK2n3vlJ4Rge1eGQ2kZ8BecT4Pxkr+HzL
c26CsaNDHD0tl11SPBQdsUwNkFxiJjbp83uUCRCOzDsb4NSxxZjedmw3wDabmx6YHNedGR4fVfA1OotP
hGbsDbA4wE+oPF4sDBOmARM2gB8hBMBn8HgCwUl7cRSL45njw/zXDGPmLkcOOofaM8bd6mlTVLVW6x3A
fuQUR7E4L5hELpvTwjG+oYAaOe7LSxyVSxxfbF5LUbntMIDHmLc4SooyUpBfS1ETPmqD3hHyDY/lL46S
whJpwgrznGP0b3q9fyeO6u7uoba2dkVzSys1NbVQQ2OTI7W1L7Ou0dNf+b9XQcEvSVdalbWccXkAAAAA
SUVORK5CYII=
</value>
</data>
<data name="btnFirstPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHGSURBVDhPYxhcoGH1q/8gXLfyxf/SpU/3Q4XhILj3ZntA
/c0vUC4maFj94v+Wc5/+Lzr47n/BgocoBnh3Xm/3qp/5z7Xlxn+oECYoX/bs/4bTH/7P3ffmf+pMhAGe
LVf7Mufe/z9hy/P/ltWXcBtQsODR/9Un3v+ftvPV/5iJd8EGuLdcm5c26/7//q3P//duevZfp+Q8bgNS
Zz/8v/TI2//9W178D+y8ud+x/vKSlOl3/0/Y+gwYLo/+t6598l8u+yxuA2Im3f8/78Dr/zN2v/xvVn/i
R/Gih//7Nj/7X7n84f/sOXf/1614+F8q6QRuA4K6b4I1gzRZVl94kzvv3v+2dU/+Fy68/z9p+u3/ZYvv
/5eIPIbbAFAIT9z24n/5kof/tYrPH5DNPL3GpfHy/6rlD/4nT7/1v2D+vf/iQQdwGwAK4a6NT//nzr33
XzbzLDgQJaOOrLQtv/A/b/7d/1mz7/wX89qL2wBQCDevefw/FehcycQT8GgU89i9yCL7FNgVIo67cRsA
CuFqYEDFTbwB9OtRlIQkYrd1gXHKsf/CNttxGwAKYcmYY/8lQo/8Fw08gGIACAgZbpwtZLkNtwEDABgY
AOJ2DIFMpaCHAAAAAElFTkSuQmCC
</value>
</data>
<data name="btnPrvPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAA0AAAASCAYAAACAa1QyAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFVSURBVDhPnc9LSwJRGMbx8xm6ENE3aBctoiBoV7RsFwRC
drGMQCGMMCiiC0ThZrpoYZIEISGUkBJCQUgSUUEF5VgjMqVRq3FmvCyeHGHEacZgWvzgwPP+F4cUCgXo
9b8on89Dr6qR/+obEzsJzU0z8kW+YNxg0O+IqzYJyeVyqLR/kcbMAQtn+BO9y8+KTaaINoMfmPImsX2W
BhVKocP+oDiWlaP1AAvLHlMKlvws1o7f0Wy9VQUSks1mYaRiMO8yoIIpzPuSsHresHCURNNwFNL+Wyma
9jIwUDRWT1jYiu9RJ138VwKNA5HqES+IMLti6Fl8gv0wgZGtGCyeVzT0nWtHoihCNuR4RKftDpPuOMZc
NOq7w+WtEhEEAZVMK/doM0cxSL2griuk2GSqSGKau0GL4RK17aeqTUJ4noeW8dlr1LQGNLeq0V9IJpOB
XoTjOOjD4QeGDVYMZCqaCAAAAABJRU5ErkJggg==
</value>
</data>
<data name="btnNxtPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAA8AAAARCAYAAAACCvahAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFSSURBVDhPnc2/SwJhHMfx56+IaO0/CJoqGhyDlqagRaeC
ECpFjH4YFHcVRLRIW3ZSloRJRERLRlCRcZbkEuKPk/xBGXF3nj+GTzoI+jzPEDe8luf7ed+RRqMBs0i9
XodZ3HgjVMS1/Mu807ixJ1jCciCPi2iZuXUitVoNNPfxJ84efyCcFyBFisy9jRvbD7IIPJQh3X3D6Vew
Hc4xmxZubPNm4It8Ye+qgP2bIqzeJJyHSWZHqtUqaBM7H82oBM+pgrWggq3mn8fEBAYWnrt23NiynsDu
ZR4OKQ2XP938QBaW1TimxPeuHTcedL1BCOUw70th6SSD0cUYrJtxaLrRtSOGYYDWb3/BSiAD91EaI64Y
bEKM2bSQSqUCWp/tCU4phWGHjGnxlbm3cePeyXsMzUUxI8jMrRPRdR20nvFbzIoy807jxv9FNE2DWURV
VZij4g8vAaumPuiPLAAAAABJRU5ErkJggg==
</value>
</data>
<data name="btnLastPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHHSURBVDhPzZBRL1thGMfPZ6CsXPgAiy/QRSSEJbZYgsjS
EBFFwpKFTUjXRBVdVUNoDNUoKWvKQbBEg9l7kiG9kW1I04qq9rR1dMPNLnbl77zLiUTkveafvBfPP3l/
z5Mf97hi5KW/nV7Jooy3aXBESe2nCLRDYZTbQlDq++niJRiM3utWd+wOpHo4TGxfzjDxNYXi3iAb0OFJ
YtF/hb5lCXWjJ4NKzZVZQ6R3KY4RnwSNYZ8NaJmOgZcBnu+X+OBJoNQadNFe3koMXhEDq0nktv1gAxqc
UXzevsDYRgqubyk0TUag0f+c1eh/kffuU5gX48h5s8cGVNsjcAm/YVlOwrqShF0++a0MefrO/8/Ex9Dp
jSK7zs8GUMPjm+cwzovo5kXYVhNodISRU7/3p20mgnb5qbW7bAA1PLwmwTgnyhfE8dISQLbOvyBvFWrs
IbRMneBJucAGUMP9Kwl8lI0/NweQVbszR3u1doe8tgXQ7DxG5ostNoAa7lkQUWQ6QFbVrlupuYwygVSY
D6EbO4KqYJMNoIYL6Wft9rRS/U9GyRZ51bWPmpEg0vN8bAA1rK4UnMp4G1XBOlHlryP9mQ9pmjU24AHC
cTe9YwvnHM3wAwAAAABJRU5ErkJggg==
</value>
</data>
<data name="tsActSize.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABEAAAASCAYAAAC9+TVUAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAI1SURBVDhPzZPZU1JhGIfPX5aBoomGgMi+QywlKktD1OTY
WDgJmJmFTQ5maW4tII1JZGSazDTZctN/IC1q08QOF7/O+WiYCO+46eL5Lt7fmWfe77zvR5XLZTQK5Upa
wODcMcPxxgT71qkjP2QwrSlhfKqAflUG7RMp1I/EpE4kvveXMP7BSwSHmQP0vTKgVCrVwAgO0vswrirg
idvhjvVDuSwiGcV0MLo7hIXPIfjfDcP52orel/o6iTEqhz4iw7n4ACaTAZx/7oR8UViROLZNcGybMfJ2
EFO7Y5j5FMSZF9o6iY4W3Ej6cSVxEZ6YA7IFISTz/Ipk4M8VbAkDEdz9OAVrTINisViD5rEEEzt+BLZG
oF6WYP/Xd/Tc45GMYg5bQo/eDR1Ox7WwxNQwP1PVSVQrPVAsdVc6mONXBQxE0ihUoVBAo/xHknw+DwO9
A8wImQmoHtI/kF4ipv43glAH+NNc8G6fQGewDdybnGpGMYJvP7/CGFZidPMyfJteMoFcLldD1x0uBtc8
8ERdRJA6TKHtejPJKF1YSjpwr9txYd0F78YQGeG/kpN0B+6oE5YlA9SzcrRPtIBzjVWRaOhHxAiuJobR
F7FUdyCbzdbQcasVvCAX+jkNzobtUIQkaAkcJxmlXBGhP2qFLWKGdF6ALz9SEM501knaJznYO9hD6zgb
2lkl5NNisP1NFYl8sRvSBwKI73dBNMsjgkwmcySMgDPGQjPdAdvXBNboMVKn0uk0GiON33xM8BfRNAZ2
AAAAAElFTkSuQmCC
</value>
</data>
<data name="tsFitPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAATCAYAAACQjC21AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIgSURBVDhP1ZPdT5JRAMbfvywDM28cFaHyFYQQtHxh4gtt
lDIVJ4NARW2tsUpLPrJhLV7RrRk0JNK5Ndfm+guwLa0LPuTj4olzNhqn4R03Xfx2tud59ts5F4drNBro
JlToyN+lCJ8tGM+ZYc/e6TgmmFNamEQNRt6rcPutErrEENNz9Xqdyl5/X0Ps+DmVkewiTos/YRH1WPkS
xOP9eWg3FExPheRmkeNnCB8twXvgxtOjZWbUgshGRQPcu/cxl3FjMeeHOi5nNlQ4vmeGMzeKwKEH69/C
mM0/xJOvIWZIsG6bMLnrxHI+ACFlhSomx3DkOrPharUaxprPPCudwpHl4dufwsyeC6EDP0jXTjA7B+eO
DcIWj8AnL80GX8qYDRW2oNI0j6XDADNqx5ue/ivrBCPsBly1WkU3+Q+E5+fnaGch54M3M8Nk7UzvuKFa
HcSP3ycde65SqcCYVIOcRCakeNjFe/B+9NCsnQnRBVNMD0t8BIqwDIWzAvpDvcyGCg3vlNBvDlOZPzML
x5YNxg0NMyR4Um4YIrfgSjphXNdjYKUffQsSZsOVy2Xomx/cn/HgwbYAQeShi6tw8qsA0v3LVHICulU1
TFEdxhI8rgQvMz0Vat8o4Et74PkwCU1UcaGsxdVFKewJK4RNG6SBHqbjSqVS84PfhDJ6A0OvrkGxJoP8
xQBI3gki65uXoLd5M+mjHkj8l5ieKxaL6CZdFhbxB3vJNtE1aIzMAAAAAElFTkSuQmCC
</value>
</data>
<data name="tsFitWidth.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAARCAYAAADdRIy+AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAG6SURBVDhPvZK5SyNRHMdfoSI27j9gZalipSxaiIWghQu7
gmzARmy3WMTCQhEVvDplYVEbtfCKx6obDxwP4pFEd4URdTQecYlXks2FycwkKb7OGxiZx1gOFh94/D4/
Po83DEmlUjAT84PJZBJm8j7BPWEU/ojHMNd4CJ7D5Z5805FEIgE95147vi/kgr9bZ+Z6HB4rmm2FuLzf
NzgmGHn2o2kiB2U7BDv/bZBkiVmmiLKIFd84yrcJWmfzEX0OMJ4JtlsLUG5Pw9dDgj7+Gy6Vp+k95TTA
o5tvQO0BQcV2Bnp/lTKeyLIMyo+VT6jk0lGkLNb9Ieg4qseYMIS5qwkIgRMc+47U86gwiLa/FliUnWIX
QTWXhWHOojYor8F5VwtqfmeqS1pw4doKu3cDt+EbXIfc6plGteBHB4Fl+QOWDjuNQQq9id74RYn+FFrx
L+x5dRpXwQsMnDXis5OghsvGyFYD44kkSdDTM1+ifhuHf42Z6+GeplG1mYl+W6XBEVEUoScUeULLTB54
zyoz1+N0T6FrsQShqM/gDEHKhXcXweijYa4RCHuVf9D5piPxeBxmYn4wFovBPGJ4AZn40zTeQGXrAAAA
AElFTkSuQmCC
</value>
</data>
<data name="tsZoomOut.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABMAAAARCAYAAAA/mJfHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAI9SURBVDhPrc9NSJNxAMfxp4snKyioTkaHDKI6RkKHugXd
wovQ0Q5dus1huHwhMB2piUN7MSt1NhFTUpOYuikzmrFNRKdO08oaaq7yeeYzn718e/ZUg6VuBj3wuTz/
3/Pl/wjhcJjduqE3U1ozQFnF4LbngqIopNPZO8bQ1BIvPis0Lyi0zIdoHg9gfjWVtEsb093uJqBEiT91
TpHrrSvc7F3D5JboXo1QUNqR2KaMWe2ztC8Esa+EsUwGKR/+jskl8dKvMLQewaHEGFgV6epxanthc3OT
nVQ+eEvXN9D3BjC8DtDik3FGwKPe0v3bhKrcNKTtU8ZqWj0890PjtRI8RzKZOZDB3B4B38EMfFmZTNUZ
mVRjVWa7tk8ZMz5y0qbGHuor8Zw9zGz2Xi32/ngmH3MOMd9qYlqNVdTbtL0QCoXYiXXYh2VR5t47icEf
Ee234jdZU4VUsmpclOnuG9P2KWOjb7zcqrbS8SWCTfwVi/OqPqhiqsrqnsR+25gyP0zEXY9/wsrdqiYM
tZ30f/qKKxrVYq5oDMeySP/oHJZ2R+I7QZZl/ha7fwYsF1gqOkbu5fPauyu5d9CXdVDd5KCidoTCwr4t
3wkbGxv8EZq1EWs4BU/PIZZkYc4/QZGuLnGeTlIs1nAa2i+yXpxFY95+DPqGpHE6QjAYJC5qOgnPcgiW
HqUtPxuDrpbpmWXtbLcSsceFl5DUX2vK24ehwLRluBuCJEnEjYyM8sRwlWKdEa/Xr737V4IoivwfIj8B
DBSBX45AyqIAAAAASUVORK5CYII=
</value>
</data>
<data name="tsZoomIn.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAVCAYAAABG1c6oAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJVSURBVDhPxZFbSJNhGMe/oosgaF0VRBZ1UXS8LhCqu6C7
8Ebo0ou66W4Oy2VKYB5yOhybUU0zpxMxBWcS88wWaWgibh4aM7RMrUX7Nje/HX59G/TBUqfFoBd+PPA8
z//H+/IKkUiETPJ/hXc0Foqreykp69t0nkCQJIntaLeN0u9a5NVniUavxEtPmMYJH5bXrg272wrVDzvx
STESp3ZE5HbTCndt3zGMB+hcjZJf3Jayn1ZoH5yl1RtkcCWCdSpIS1EFc/t24TTW0O+P4pDi9K6KdHSN
KBlhfX2drSh/8o6OH6Cx+dC+8WErrcS7R8DdqGdcvnGCSZlSQ7+SSSusbvpAyxLU3yphKkuF5+DepNB7
SK4nVMwYK5mShVWWQSWTVljxdIRmWWi+V4UrOwvv2QNJ4cJpFV8vH2G+xcS0LCwzDigZIRwOsxX2oTms
8yFq3gfo+xnF1VCdFK7W6wjLopDMhBiis3tUyaQVOt+6ua+z0/YlyoAoC611eA/vxiPXT7IsLlOu60rJ
bCqUPENEx40sTdp5XGVGq2+nZ+EbY7FY8iPGYnEcyyI9zo9YWx0pWSEUCvEn8boLYL3CYuFxcq5nJ3s3
ch6hKWlDZ3ZQph+moKB7Qy6BsLa2xm/CswPETeeg4SLig6NY8k5RqK5V5jshRRg3nYfWq/iLjvIsV4VW
Y0pZ3glCMBgkQcxwBl5cIlh8jOa8k2jVeqZnlpOzv0ERPi+4RkB+pjl3P9p8w4bFnSIEAgESDA87qdfe
pEhdgdu9lOz9C4IoimSSzAv9fj+Zw88v9Dvul8vs9JEAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAVCAYAAABPPm7SAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHgSURBVDhPpY7dS1NxGIDPXxKVZdmHiYiEdNN/EHQlJYmh
fbEmm1PX5tH50dSkEGthpaa0ky2DkJUtcaU15ooQzdSoi6CibrrY19nXxdMmOPohcQbn4rl4ed734ZUy
mQx6kNLpNFskU0l837z5uRCEgLIxhjMkCwta5ANTX9z0vZNxLto5/6KG+menMM400L/QhXftKb/Dv7Yd
55BSqRTTX6fozR571sd5vDHO5PoYyqcRRpdvcT3YQ/PMZa76HHz8vkxu/182A08+K/QEbZuHD9dGca/e
Y2J1mPsrt3F9GODu0hBtLy04pm38/PNjeyDHg5UR2uct2P0majwnqVZOYPZeZDDUl43c4Ob7Ac5N1vJo
UREDyWSSLYZDQ7Q+b8zPd966qJ2opj/QhTPQTkvWmdyGvM8hBNSEimdJERZc/kHOuk9zLdhNb6CTKrlC
8ELgfxx3VmU/6KD7jUyltUxwUiKRQItjjko6F+x0zF+hvOmw4CRVVdHiqL0c+bWVtlfNlBpLBFdQoKLl
CDa/BeucmQOXigUnxeNxtCgzHaR1zoRltpF9DUWCKyhwyLCfplkjZp+BPXU7BSfFYjG0KLmwl+L63RRl
j3ed2SE4KRqNogf9gUgkgh6kcDiMHnR+EOEviLWq1b39p/gAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABMAAAAUCAYAAABvVQZ0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHcSURBVDhPrdHLSxtRFAbw+Z+6kFa0qKioKFZUhC7EFxg0
RcWKIgg+Yow1MYnRZIxJmigKvkoRgyQLFz7is/Ftu6lbRVd5TCbJ4nPuhQzGyWICs/gt5txzv7mcwyST
SShF2bBEIgE5tv5ugo/zGc9SZIcN+LrBHs1kPEuRhD1HnuB/8MJ8MokenwrNvxvQuF6Hfl8X+rxqLASs
af1vMfF4HCn/Xu5hPZ+G5nAQs+dT+HllxdKNHZ5rFs7LOcwHzfj2qw2uA7t45y0x7Cn8KARMw3Q6gZU7
p3DZAs8NSwMdFxbYgzP0R6q1Jth2ZyVBhBjm/+/F2P4Alm8dWBRew/4x4fuOGvXuStQslKNzsxXtq00w
+/WSkBSG53kQhmOtMCcd7Bdm+oKOjRY4AjZ6RqgWm6HbHhO/MxHDWoRBu69tdDa93o60IMK97wQX49Jq
74lhZGNkNmTIta4KSaMcTCwWA/F15QvYoBFzZwZUs6W0li2G4zgQ9Z5KWE71wjYnUWEporVsiWFkY0Zh
AfqjcZQaPksa5WCi0SiIKmsJfgQ00B2OoFCXS2vZEsPKTIXQHgxDszeE/NEcSaMcTCQSAVE8lY8C7Sfk
jeTg49AHWssWEw6HoRRlw0KhEJQRwiu1nmGGw8uMdQAAAABJRU5ErkJggg==
</value>
</data>
<data name="PdfViewerPrinterSettings6.PrintLocation" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAABVTeXN0ZW0uRHJh
d2luZy5Qb2ludEYCAAAAAXgBeQAACwsCAAAAAAAAAAAAAAAL
</value>
</data>
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>959, 17</value>
</metadata>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAD+
NAAAAk1TRnQBSQFMAgEBBQEAAQgBAAEIAQABUAEAAVABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAEBAgABoAMAAQEBAAEIBgAByBgAAYACAAGAAwACgAEAAYADAAGAAQABgAEAAoACAAPAAQABwAHc
AcABAAHwAcoBpgEAATMFAAEzAQABMwEAATMBAAIzAgADFgEAAxwBAAMiAQADKQEAA1UBAANNAQADQgEA
AzkBAAGAAXwB/wEAAlAB/wEAAZMBAAHWAQAB/wHsAcwBAAHGAdYB7wEAAdYC5wEAAZABqQGtAgAB/wEz
AwABZgMAAZkDAAHMAgABMwMAAjMCAAEzAWYCAAEzAZkCAAEzAcwCAAEzAf8CAAFmAwABZgEzAgACZgIA
AWYBmQIAAWYBzAIAAWYB/wIAAZkDAAGZATMCAAGZAWYCAAKZAgABmQHMAgABmQH/AgABzAMAAcwBMwIA
AcwBZgIAAcwBmQIAAswCAAHMAf8CAAH/AWYCAAH/AZkCAAH/AcwBAAEzAf8CAAH/AQABMwEAATMBAAFm
AQABMwEAAZkBAAEzAQABzAEAATMBAAH/AQAB/wEzAgADMwEAAjMBZgEAAjMBmQEAAjMBzAEAAjMB/wEA
ATMBZgIAATMBZgEzAQABMwJmAQABMwFmAZkBAAEzAWYBzAEAATMBZgH/AQABMwGZAgABMwGZATMBAAEz
AZkBZgEAATMCmQEAATMBmQHMAQABMwGZAf8BAAEzAcwCAAEzAcwBMwEAATMBzAFmAQABMwHMAZkBAAEz
AswBAAEzAcwB/wEAATMB/wEzAQABMwH/AWYBAAEzAf8BmQEAATMB/wHMAQABMwL/AQABZgMAAWYBAAEz
AQABZgEAAWYBAAFmAQABmQEAAWYBAAHMAQABZgEAAf8BAAFmATMCAAFmAjMBAAFmATMBZgEAAWYBMwGZ
AQABZgEzAcwBAAFmATMB/wEAAmYCAAJmATMBAANmAQACZgGZAQACZgHMAQABZgGZAgABZgGZATMBAAFm
AZkBZgEAAWYCmQEAAWYBmQHMAQABZgGZAf8BAAFmAcwCAAFmAcwBMwEAAWYBzAGZAQABZgLMAQABZgHM
Af8BAAFmAf8CAAFmAf8BMwEAAWYB/wGZAQABZgH/AcwBAAHMAQAB/wEAAf8BAAHMAQACmQIAAZkBMwGZ
AQABmQEAAZkBAAGZAQABzAEAAZkDAAGZAjMBAAGZAQABZgEAAZkBMwHMAQABmQEAAf8BAAGZAWYCAAGZ
AWYBMwEAAZkBMwFmAQABmQFmAZkBAAGZAWYBzAEAAZkBMwH/AQACmQEzAQACmQFmAQADmQEAApkBzAEA
ApkB/wEAAZkBzAIAAZkBzAEzAQABZgHMAWYBAAGZAcwBmQEAAZkCzAEAAZkBzAH/AQABmQH/AgABmQH/
ATMBAAGZAcwBZgEAAZkB/wGZAQABmQH/AcwBAAGZAv8BAAHMAwABmQEAATMBAAHMAQABZgEAAcwBAAGZ
AQABzAEAAcwBAAGZATMCAAHMAjMBAAHMATMBZgEAAcwBMwGZAQABzAEzAcwBAAHMATMB/wEAAcwBZgIA
AcwBZgEzAQABmQJmAQABzAFmAZkBAAHMAWYBzAEAAZkBZgH/AQABzAGZAgABzAGZATMBAAHMAZkBZgEA
AcwCmQEAAcwBmQHMAQABzAGZAf8BAALMAgACzAEzAQACzAFmAQACzAGZAQADzAEAAswB/wEAAcwB/wIA
AcwB/wEzAQABmQH/AWYBAAHMAf8BmQEAAcwB/wHMAQABzAL/AQABzAEAATMBAAH/AQABZgEAAf8BAAGZ
AQABzAEzAgAB/wIzAQAB/wEzAWYBAAH/ATMBmQEAAf8BMwHMAQAB/wEzAf8BAAH/AWYCAAH/AWYBMwEA
AcwCZgEAAf8BZgGZAQAB/wFmAcwBAAHMAWYB/wEAAf8BmQIAAf8BmQEzAQAB/wGZAWYBAAH/ApkBAAH/
AZkBzAEAAf8BmQH/AQAB/wHMAgAB/wHMATMBAAH/AcwBZgEAAf8BzAGZAQAB/wLMAQAB/wHMAf8BAAL/
ATMBAAHMAf8BZgEAAv8BmQEAAv8BzAEAAmYB/wEAAWYB/wFmAQABZgL/AQAB/wJmAQAB/wFmAf8BAAL/
AWYBAAEhAQABpQEAA18BAAN3AQADhgEAA5YBAAPLAQADsgEAA9cBAAPdAQAD4wEAA+oBAAPxAQAD+AEA
AfAB+wH/AQABpAKgAQADgAMAAf8CAAH/AwAC/wEAAf8DAAH/AQAB/wEAAv8CAAP/BwAE/z30BP/7AAL/
JvQC8wHyAfEB8AHxAvIB8xL0Av/7AAH/A/Qk8wHyAfEBvAEHAe8BBwG8AfAB8hHzAvQC//oAAf8C9CXz
AfEBBwHvAZIB7AGSAe8BBwHxD/MB8gLzAfQC//oAA/QB8yT0AfAB7wHsAW0BEwFtAewB7wHwC/QD8wPy
AfMC9AH/+gAD9AHzH/QB8wHyAvEB8AEHAe8B7QH4AW0B7AGSAQcB8Av0A/MD8gHzAvQB//oAA/QB8x/0
AfIB8QG8AQcC7wH3AZIC7AGSAe8BBwHxC/QD8wPyAfMC9AH/+gAD9AHzH/QB8gG8AQcB7wWSAfcB7wEH
AfAB8gv0A/MD8gHzAvQB//oAA/QB8x/0AfEBBwHvAe0B+AHsAe0B9wHvAgcB8AHxAfIL9APzA/IB8wL0
Af/6AAP0AfMf9AHwAe8BkgH4AW0B6wHsAfcBBwHwAfEC8gHzC/QD8wPyAfMC9AH/+gAD9AHzGvQB8wHy
AfEB8AG8AQcB7wGSAewB+AHsAfcB7wG8AfEC8gLzC/QD8wPyAfMC9AH/+gAD9AHzGvQB8gHwAQcB7wL3
ApIC7QH3Ae8BBwHwA/IC8wv0A/MD8gHzAvQB//oAA/QB8xr0AfEBBwHvAe0B+AHsAe0BkgH3Au8BBwG8
AfEB8gTzC/QD8wPyAfMC9AH/+gAD9AHzGvQB8AHvAe0B+AHqAW0B7AGSAe8BBwG8AfAB8QHyBPMM9APz
A/IB8wL0Af/6AAP0AfMa9AG8AfcB+AHqAUMBEgHrAZIBBwHxAvIC8xD0A/MD8gHzAvQB//oAA/QB8xr0
AfAB7wHsAW0BEwFtAewB9wEHA/IC8xD0A/MD8gHzAvQB//oAA/QB8xr0AfABBwGSAewBbQHsAZIB7wG8
AvID8xD0A/MD8gHzAvQB//oAA/QB8xr0AfEBBwHvAe0B7AHtAe8BBwHwBfMQ9APzA/IB8wL0Af/6AAP0
AfMa9AHxAbwBBwHvAZIB7wEHAbwB8QTzEfQD8wPyAfMC9AH/+gAD9AHzGvQB8gHwAbwBBwHvAQcBvAHx
AfIV9APzA/IB8wL0Af/6AAP0AfMG9ALzAvIG8QPyAvMC8gHxAfABvAIHAu8B9wHvAQcB8AHyFfQD8wPy
AfMC9AH/+gAD9AHzBvQB8wHyAfEB8Aa8AvAB8QLyAfEBvAEHAu8C9wGSAu0B9wHvAbwB8RX0A/MD8gHz
AvQB//oAA/QB8wb0AfIB8QHwCAcBvAHwAfEB8gG8AQcB7wGSBuwB7QHvAQcB8RX0A/MD8gHzAvQB//oA
A/QB8wb0AfIB8AIHB+8CBwHwAfEBBwHvAe0B+AVtAesB7AH3AQcB8BX0A/MD8gHzAvQB//oAA/QC8wX0
AfEBvAEHAe8DkgPtAfcB7wEHAbwB8AEHAZIB+AFtARQCEwESAeoBbQH4AZIB7wHwFfQD8wPyAfMC9AH/
+gAB9AHzAfIB8QHwAfEC8gHzAfQB8gHwAgcF7wH3Ae8CBwHwAfEBBwH3AewBbQETARIB6gFtAesB+AHt
Ae8BBwHxFfQD8wPyAfMC9AH/+gAB9AHzAfEBvAIHAbwB8QHyAfQB8gHxAfAIBwG8AfAB8QHyAQcB7wHs
AW0BEgHqAW0B+AHsAZIB7wEHAbwB8RX0A/MD8gHzAvQB//oAAfQB8gHwAQcBkgHvAQcBvAHyAfQB8wHy
AfEB8Ae8AfAB8QLyAbwB7wHtAesB6gFtAfgB7QH3Ae8BBwG8AfEB8hX0A/MD8gHzAvQB//oAAfQB8gG8
Ae8B7AGSAe8BBwHxAfQC8wHyCPEC8gLzAbwB7wGSAfgBbQHrAewB9wEHAfAC8QHyAfMV9APzA/IB8wL0
Af/3AAP/AfQB8QEHAe0BbQHsAZIBBwHwAvQM8wL0AfABBwGSAewBbQHsAZIBBwHwAfMZ9APzA/IB8wL0
Af/1AAP/AvQB8gHwAQcBkgHsAe0B7wEHAfED9ArzA/QB8QEHAe8B7QHsAe0B9wHvAQcB8AHxAvIB8xX0
A/MD8gHzAvQB//UAAf8B9AHzAfIB8QHwAQcC7wGSAe8BBwG8AfIQ9AHxAbwBBwHvApIB9wLvAgcBvAHx
AfIV9APzA/IB8wL0Af/1AAH/AfMB8gHwAgcE7wEHAbwB8QHyEPQB8gHwAbwBBwPvAvcBkgHvAQcBvAHy
FfQD8wPyAfMC9AH/9QAB9AHyAfAB7wKSAu8BBwG8AfAB8QHyAfME9Aj2BPQB8wHyAfEB8AG8AQcB7wGS
Ae0B7AGSAe8BBwHxFfQD8wPyAfMC9AH/9QAB9AHxAQcB7QFtAewBkgHvAbwE8wT0AfUI9gH1A/QD8wLy
AbwB7wGSAfgBbQHsAZIBBwHwFfQD8wPyAfMC9AH/9QAB9AHyAbwB7wHsAZIB7wEHAfAE8wT0AfUJ9gH1
A/QD8wHyAfABBwHvAe0B7AGSAe8BBwHxAfMU9APzA/IB8wL0Af/1AAH0AfIB8AEHAfcB7wEHAfAB8QTz
BPQB9Qn2AvUD9APzAfEBvAEHAe8BkgHvAQcBvAHxA/MS9APzA/IB8wL0Af/1AAH0AfMB8QHwAQcBvAHw
AfEB8gPzBfQB9Qv2AfUD9ALzAfIB8QG8AwcBvAHxAfIE8xH0A/MD8gHzAvQB//UAAvQB8wTyA/MH9AH1
DPYB9QP0AvMB8gLxAfAC8QLyBPMR9APzA/IB8wL0Af/1AAH/A/QD/wr0AfUN9gH1CfQH8xH0A/MD8gHz
AvQB//UAAf8D9AL/CvQB9Q72AfUF9AXzBPID8xD0A/MD8gHzAvQB//UAAf8D9AL/CfQB9Q/2AfUE9AXz
AvID8QLyAfMQ9APzA/IB8wL0Af/1AAH/DPQD/w/2AfUD9AXzAfIC8QPwAfEB8gHzEPQD8wPyAfMC9AH/
9QAB/wz0A/8P9gH1A/QE8wLyAfEB8AK8AfAB8QHyAfMQ9APzA/IB8wL0Af/1AAP0AfMI9AX/DvYB9QP0
A/MC8gHxAfABvAIHAbwB8AHxAfIQ9APzA/IB8wL0Af/1AAH/CvQG/w32AfUE9APzAvIC8QHwAbwBBwG8
AfAB8QHzEPQD8wPyAfMC9AH/9QAB/wn0B/8M9gL1BPQE8wLyAfEB8AK8AfAB8QHyAfMQ9APzA/IB8wL0
Af/1AAH/A/QN/wr2AvUG9ATzAvIC8QHwAbwB8AHxAfIB8xD0A/MD8gHzAvQB//UAAf8D9A3/CvYB9Qj0
BPMB8gLxAvAC8QHyAfMQ9APzA/IB8wL0Af/1AAH/A/QN/wn2AfUJ9ATzAvIC8QHwAfEC8gHzEPQD8wPy
AfMC9AH/9QAB/wP0Dv8I9gH1CPQG8wLyAvEC8gLzEPQD8wPyAfMC9AH/9QAB/wT0Dv8I9gX0CvMF8gLz
EPQD8wPyAfMC9AH/9QAB/wb0Ev8C9gT0DfMB8gTzEPQD8wPyAfMC9AH/9QAC9APzAvQT/wH2BPQI8wH0
CPMR9APzA/IB8wL0Af/1AAL0BPMC9BP/BPQH8xv0A/MD8gHzAvQB//UAAvQD8wL0FP8E9AjzAfIE8xX0
B/MC9AH/9QAB/wb0FP8E9AXzA/IB8QLyAvMX9AXzAvQB//UAAf8E9Bb/BfQE8wHyAvEB8AHxAvIB8x70
Af/1AAH/A/QX/wj0AfMB8gHxAfABvAHwAfEB8gHzGPQC/wP0Av/1AAH/A/QX/wj0AfIB8QHwAbwBBwG8
AfAB8QHyF/QD/wP0Av/1AAH/BPQI/wP0Cv8D9AXzAfQB8wHyAfEB8AG8AfAB8QHyAfMd9AL/9QAB/wb0
BP8C9APzAvQI/wL0CPMB8gLxAfAB8QLyAfMI9AXzBfQE8wf0Av/1AAL/BvQD/wH0AfMD8gHzAfQI/wL0
AfMC8gXzA/IB8QLyAvMH9AfzA/QG8wX0Av/2AAX/A/QC/wH0AfMB8gHxAfAB8QHyAfMB9Af/AfQB8wXy
BvMB8gTzB/QH8wP0BvMC9AX/+wAB/wP0Af8B9AHzAfIB8AG8AfAB8gHzAfQH/wH0AfMB8gHxBPIE8w30
B/MD9AbzAvQB//8AAf8D9AH/AfQB8wHyAfEB8AHxAfIB8wH0Bv8C9AHzBfIF8w30CPMB9AfzAfQC//8A
Af8D9AL/AfQB8wPyAfMB9Af/AvQC8wLyB/MN9A/zAvQC//8AAf8D9AL/AvQD8wL0Bv8D9ArzDvQN8wP0
Av//AAEAAf8D9AT/A/QH/wX0BvMR9AzzAvQE//8AAQAB/wP0Df8d9AvzAvQB//8ABQAB/wP0Dv8c9Avz
AfQC//8ABQAB/wP0D/8b9ArzAvQC//8ABQAB/wP0Ef8Z9AjzA/QC//8ABgAB/wP0Ef8Z9AfzAvQE//8A
BgAB/wP0Ev8X9AfzAvQB//8ACgAB/wP0Ef8U9AHzAfQJ8wH0Av//AAoAAf8D9BH/E/QL8wL0Av//AAoA
Af8o9ALzCfQC//8ACwAB/yf0AvMI9AT//wALAAP0AfMk9ALzAvQB//8ADgD//5r/AfNB8gHzXP8C9FP/
Ab0BRzImARcB9Bb/AbwB7z8HAe8BBwz/AfQB8ELxAfAB8gj/AZ0ETgEIUP8BRzYmAeMV/wG8AfA//wHx
AQcM/wHyAe8BvEDwAbwCBwf/AZ0GTgEITv8BRwMmAUcB4y4WAeMBRwMmARcU/wG8AfA//wHxAQcM/wHy
Ae9C/wHxAQcH/wJOAfEB/wROTf8B4wImAUcz9AG9AyYBmhP/AbwB8D//AfEBBwz/AfIB70L/AfEBBwb/
AQgBTgEIAfMBCAH1A04B9Uv/AfUCJgFHNvQCJgFHE/8BvAHwP/8B8QEHDP8B8gHvQv8B8QEHBv8BuwRO
AQgB8wJOAfVL/wGUAiYBGjb0ARYCJgG9Ev8BvAHwP/8B8QEHDP8B8gHvQv8B8QEHBv8B9QVOAQgBlwFO
TP8BRwImN/QB8wImAZQS/wG8AfA//wHxAQcM/wHyAe9C/wHxAQcH/wFxBk4BmEz/AyY49AImAZQS/wG8
AfAG/wHyMe0B8Qb/AfEBBwz/AfIB7wb/AfQBBw2SAe8B8QL/AfMOmAEIAfUB/wH0AQgOmAH1Bv8B8QEH
CP8BcQROAZdN/wMmOPQCJgGUEv8BvAHwBv8B8gftAewDrgaLIO0B8Qb/AfEBBwz/AfIB7wb/AfQBBwaS
Be0C7AHtAe8BCAEHAfIOmAEIAfUB/wH0AQgOmAH1Bv8B8QEHCf8B8QGYAbsB9E7/AyY49AImAZQS/wLu
AvMB8gHxAfABCQG1Aq4PiyD3AfEG/wHxAQcM/wHyAe8F/wH1AfMB7wPsBPgB6wFyAXEDbARJAfEOmAEI
AfUB/wH0AQgOmAH1Bv8B8QEHW/8DJjj0AiYBlAn/AfUB8wHyAvEB8AIJAbsBtAGRAbQBrhWLAa4g8gH0
Bv8B8QEHCv8B9QH0AfAB9wHwAQgBBwLvAZgBkQFyBGwNSQHxDpgBCAH1Af8B9AEIDpgB9Qb/AfEBBwb/
ARoBHApuAW0mSgdEAxQHRAMUAewN/wMmEPQCEQf0BBEB6wT0Ae8BEQEHE/QCJgGUCf8BtQK0Aa4eiwG0
J/8B8QEHBP8B8AEIAQcBuwKYApEBcgRxAWwVSQHxDpgBCAH1Af8B9AEIDpgB9Qb/AfEBBwb/ARoBHApu
AW0mSgdEAxQHRAMUAewN/wMmEPQCEQf0AREB6gHtARMBEQFDA/QB7wERAQcT9AImAZQJ/yKLAbQn/wHx
AQcE/wNxAWwfSQHyAQgNuwHxAv8B9QHwDbsBCAf/AfEBBwb/ARoBHBtZEFMZUgEUAewN/wMmEPQCEQf0
AREB7AL0Ae0BEQHqAvQB7wERAQcT9AImAZQJ/yKLAbQn/wHxAQcE/yNJAfQB9Q30BP8B9Q70B/8B8QEH
Bv8BGgEcApocehdZCVMGUgEUAewN/wMmEPQCEQf0AREB7AP0AUMBEQL0Ae8BEQEHE/QCJgGUCf8iiwGu
IO8B8gb/AfEBBwT/I0kB9Cj/AfEBBwb/ARoBHALDC5ohehFZA1MCUgEUAewN/wMmEPQEEQFDAQcD9AER
AewD9AESAREC9AHvAREBBxP0AiYBlAn/I4sg7QHxBv8B8QEHBP8jSQH0KP8B8QEHBv8BGgEcAsMBoAua
IXoRWQJTAlIBFAHsDf8DJhD0AhEB8gH3AhEB8QL0AREB7AP0AewBEQL0Ae8FERD0AiYBlAn/I4sg7QHx
Bv8B8QEHBP8jSQHxDpgBCAH1Af8B9AEIDpgB9Qb/AfEBBwb/ARoBHALDAqALmiF6EVkBUwJSARQB7A3/
AyYQ9AIRAvQB8AERAesC9AERAewD9AHsAREC9AHvAREBBxP0AiYBlAn/IosBkSDyAfQG/wHxAQcE/yNJ
AfEOmAEIAfUB/wH0AQgOmAH1Bv8B8QEHBv8BGgEcAsMDoAqaInoRWQJSARQB7A3/AyYQ9AIRA/QCEQL0
AREB7AP0ARMBEQL0Ae8BEQEHE/QCJgGUCf8iiwG0J/8B8QEHBP8jSQHxDpgBCAH1Af8B9AEIDpgB9Qb/
AfEBBwb/ARoBHALDBKAKmiJ6EFkCUgEUAewN/wMmEPQCEQL0AfMBEQESAvQBEQHsA/QCEQL0Ae8BEQEH
E/QCJgGUCf8iiwG0J/8B8QEHBP8jSQHxDpgBCAH1Af8B9AEIDpgB9Qb/AfEBBwb/ARoBHALDBaAKmiJ6
D1kBUgFLARQB7A3/AyYQ9AIRAfQB8gETAREB7wL0AREB7AH0AfABQwERAe8C9AHvAREB7wPyAfMP9AIm
AZQJ/yKLAbQn/wHxAQcE/yNJAfEOmAEIAfUB/wH0AQgOmAH1Bv8B8QEHBv8BGgEcAXkBwwagCpoieg5Z
AksBFAHsDf8DJhD0BREB6gP0BREB7AP0Ae8FEQH3D/QCJgGUCf8iiwGuILwB8wb/AfEBBwT/I0kB8gG7
DZgB8AH1Af8B9AEIDpgB9Qb/AfEBBwb/ARoBHAFSAXkHoAuaIXoMWQNLARQB7A3/AyYQ9AGSAu0B9wHy
BPQD7QHvBfQB8AXtAfIP9AImAZQJ/wuLAbQCtQG0BIsBtAK7AbUMiyDtAfEG/wHxAQcE/xNJAWwDcQxJ
D/QB9QP/AfUO9Af/AfEBBwb/ARoBHAJSAXkHoAuaIXoKWQFMAksBUgEUAewN/wMmOPQCJgGUCf8KiwGu
Ae4C/wHwBIsB8gL/AfMMiyDtAfEG/wHxAQcE/wpJAXEB8wL0AZEBbAJJAXIBCAH0AfMBBwxJAfQo/wHx
AQcG/wEaARwBmgJSAXoHoAuaIXoIWQFSAksCUgEUAewN/wMmOPQCJgGUCf8KiwG0AfEC/wHyAbQDiwT/
Aa4KiwGuIPAB9Ab/AfEBBwT/CkkBbAHvAv8B8AFyAkkBmAL/AfMBcQxJAfQo/wHxAQcG/wEaARwBGgGa
AlIBegegC5ohegZZAVIBSwFMAVkCUgEUAewN/wMmOPQCJgGUCf8KiwG1AfUC/wH0AbsCiwG0BP8BtQqL
AbQn/wHxAQcE/wtJAXEB8wL/AZEBbAFyAbwB/wH0Ae8NSQHyAbsNmAHwAfUB/wH0AbwOmAH1Bv8B8QEH
Bv8BGgEcARoBwwF6AlIBegegCpoiegRZAVIBSwFMAnoCUgEUAewN/wMmOPQCJgGUCf8KiwG7Av8B9QH/
AbwCiwG7Av8B9QH/AQkKiwG0J/8B8QEHBP8MSQHtAfQB/wEIAXIBmAH0Af8BvAFxDUkB8Q6YAQgB9QH/
AfQBCA6YAfUG/wHxAQcG/wEaARwBGgHDAXoBeQJSAZoHoAqaInoCWQFSAksDegJSARQB7A3/AyY49AIm
AZQJ/wqLAQkB/wHyAbwB/wHxAosB8QH/AfMB8AH/AfIKiwG0J/8B8QEHBP8MSQFsAbwB9QH0AQgB8AH/
AfMBmA5JAfEOmAEIAfUB/wH0AQgOmAH1Bv8B8QEHBv8BGgEcARoBwwJ6AXkCUgGaB6AKmiJ6AVICTAR6
AlIBFAHsDf8DJjj0AiYBlAn/CYsBtAHwAf8BCQG1Af8B8wG0AYsB9AH/AQkBuwL1Ac8JiwGuIPAB8wb/
AfEBBwT/DUkBkQHyAf8B9QH/AfUBCAFxDkkB8Q6YAQgB9QH/AfQBCA6YAfUG/wHxAQcG/wEaARwBGgHD
A3oBeQJSAZoHoAqaIHoBUgJMBXoCUgEUAewN/wMmDfQBGwG9ARso9AImAZQJ/wmLAbQB8wH/AbsBtAHz
AfQBtQG0Av8BtQG0AfUB/wG0Cosg7QHxBv8B8QEHBP8NSQFsAQcB9AL/AfEBkQ9JAfEOmAEIAfUB/wH0
AQgOmAH1Bv8B8QEHBv8BGgEcARoBwwR6AXkCUgigCpoeegNSBnoCUgEUAewN/wMmDPQDFwImJ/QCJgGU
Cf8JiwG1AfUB9AG1Aa4BvAH1AbwBtQH/AfUBrgGLAfQB/wG7Cosg7QHxBv8B8QEHBP8OSQEHAfQC/wHx
AZEPSQHxDpgBCAH1Af8B9AEIDpgB9Qb/AfEBBwb/ARoBHAEaAcMFmgFYAlIIoAqaBnoBUhV6AVgCUgd6
AlIBFAHsDf8DJgz0ARcC9AEaAiYBvSX0AiYBlAn/CYsBCQH/AfIBtAGLAbUB/wHzAbwB/wH0AosB8wH/
AfAJiwGuIAcB8wb/AfEBBwT/DUkBcQHxA/8B9AHvD0kP9AH1A/8B9Q70B/8B8QEHBv8BGgEcARoBwwaa
AVgCUgigCpoEegF5AlITegFYAlIIegJSARQB7A3/AyYM9AFHA/QB8wImARok9AImAZQJ/wiLAa4BvAH/
AfABtAGLAbQC/wH0Af8B8AKLAbwB/wH0Ac8IiwG0J/8B8QEHBP8NSQEHAfQB/wHxAfIB/wHxAZEOSQH0
KP8B8QEHBv8BGgEcAsMHmgFYAlIIoAqaAnoBeQRSEXoBWAJSCXoCUgEUAewN/wMmDPQBvQEXA/QBGgIm
JPQCJgGUCf8IiwG0AfIB/wEJAosBtAH0A/8BuwKLAbsB9QH/AbQIiwG0J/8B8QEHBP8MSQFxAfMB/wH0
AZEBmAL1AQgBbA1JAfQo/wHxAQcG/wEaARwCwwiaAVgCUgigCpoBeQJSAZoBegJSEHoCUgp6AlIBFAHs
Df8DJg30Ab0BRwP0AeMBJgFHI/QCJgGUCf8IiwG1AfQB/wG7AosBrgHwAv8B9QG0AosBtAH0Af8BuwiL
AbQn/wHxAQcE/wxJAQcB9QH/AQcBcQFyAQgB/wHzAZENSQHyAQgNuwHxAv8B9QHwDrsH/wHxAQcG/wEa
ARwCwwmaA1IIoAiaAXkCUgPDAZkCUg56AlILegJSARQB7A3/AyYP9AFHAZQC9AImARYi9AImAZQJ/wiL
AbsB/wH1AbUDiwG7Av8B9AGuAosBtAHzAf8BCQGuB4sBriDwAfMG/wHxAQcE/wtJAXIB9AH/AfUBkQJs
AZgB9QH/AfEBcQxJAfEOmAEIAfUB/wH0AQgOmAH1Bv8B8QEHBv8BGgEcAsMKmgFYAVIBWAigBpoBegJS
BcMBeQJSDHoCUgx6AlIBFAHsDf8DJhD0Ab0BRwG9ARsCJiL0AiYBlAn/CIsBtQEJAbsBtAOLAbQC8AHu
BIsBuwEJAbsJiyCSAfEG/wHxAQcE/wpJAWwB7wLyAQgBcQJJAXIBCAHzAfEBkQxJAfEOmAEIAfUB/wH0
AQgOmAH1Bv8B8QEHBv8BGgEcAsMLmgFYAVIBWAegBZoBegJSB8MBdAJSCnoCUg16AlIBFAHsDf8DJhL0
Ab0BJgFHASYBRw/0Ab0BFwImAZQN9AImAZQJ/yOLIO0B8Qb/AfEBBwT/C0kBcgKRAXEBbAJJAWwBcgKR
AXIMSQHxDpgBCAH1Af8B9AEIDpgB9Qb/AfEBBwb/ARoBmQLDDJoBWAFSAVgIoAKaAXoBdAFSCcMBdAJS
CHoCUg56AVMBUgEUAewN/wMmFfQCJgG9C/QB8wFHAeMD9AFHASYB4wz0AiYBlAn/I4sg9wHxBv8B8QEH
BP8jSQHxDpgBCAH1Af8B9AEIDpgB9Qb/AfEBBwb/ARoBmQLDDZoBWAFSAXkIoAGaAnQLwwJSAXQGegJS
D3oBUwFSARQB7A3/AyYV9AEWAiYCRwG9B/QBRwEWBfQBvQImDPQCJgGUCf8iiwG0J/8B8QEHBP8jSQHx
DpgBCAH1Af8B9AEIDpgB9Qb/AfEBBwb/ARoBmQLDDpoBWAFSAXkGoAGaAnQNwwJSAXQEegJSAVgPegFT
AVIBFAHsDf8DJhb0AiYBGgH0Ab0BFwFHAeMBvQHzAfQBRwf0ARYBJgEWDPQCJgGUCf8iiwG0J/8B8QEH
BP8jSQ/0AfUD/wH1DvQH/wHxAQcG/wEaAZkCww6gAZoCWAF6BKABmgJ0D8MCUgF5AnoCUgFYEHoBUwFS
ARQB7A3/AyYW9AHjAiYF9AG9AeMBRwEmARcBFgOUARYCRwG9DfQCJgGUCf8iiwG0J/8B8QEHBP8jSQH0
KP8B8QEHBv8BGgGZAsMPoAGaAlgBegKgAZoCdAEaEMMCUgF5AlIBWBF6AVMBUgEUAewN/wMmF/QCJgEb
BfQBRxj0AiYBlAn/IosBriDxAfQG/wHxAQcE/yNJAfQo/wHxAQcG/wEaAZkCwxCgAZoCWAF6AaACdAEa
EsMDUgFYEnoBUwFSARQB7A3/AyYX9AFHASYBRwT0AUcZ9AImAZQJ/yOLIPcB8Qb/AfEBBwT/I0kB8g4I
AfEC/wH1AfEOCAf/AfEBBwb/ARoBmQLDEaABmgJYAnQBGhPDAZoCUhN6AVMBUgEUAewN/wMmGPQCJgP0
AUca9AImAZQJ/yOLIO0B8Qb/AfEBBwT/I0kB8Q6YAQgB9QH/AfQBCA6YAfUG/wHxAQcG/wEaAZkCwxKg
AZoCdAEaFcMBmgJSEnoBUwFSARQB7A3/AyYY9AFHASYB4wH0ApQa9AImAZQJ/yOLIPcB8Qb/AfEBBwT/
I0kB8Q6YAQgB9QH/AfQBCA6YAfUG/wHxAQcG/wEaAZkCwxKgAnQBmhfDAXkCUhF6AVMBUgEUAewN/wMm
GPQBlAEmAUcB9AFHG/QCJgGUCf8iiwG0IPQH/wHxAQcE/yNJAfEOmAEIAfUB/wH0AQgOmAH1Bv8B8QEH
Bv8BGgGZAsMRoAJ0AZoZwwF0AlIQegFTAVIBFAHsDf8DJhn0AiYBRxz0AiYBlAn/Ac8hiwG0J/8B8QEH
BP8BbCJJAfEOmAEIAfUB/wH0AQgOmAH1Bv8B8QEHBv8BGgGZAsMQoAJ0AZkbwwJSAUsPegFTAVIBFAHs
Df8DJhn0AUcBJgHjHPQCJgGUDP8B9AHxAe4BuwG1AbQZiwG0J/8B8QEHBP8B8AEIAQcCmAGRAXIBcQFs
GkkB8Q6YAQgB9QH/AfQBCA6YAfUG/wHxAQcG/wEaAZkCww+gAXkBdAGZHcMBUgFLAVIOegFTAVIBFAHs
Df8DJhn0ARoBJgFHHPQCJgGUEv8BvAHuAfQB8wHwAQkBuwG1AbQQiwG0IPMH/wHxAQcH/wH1A/QB8wG8
AfcB8AEIAQcCmAGRAnERSQH0DvMB9AP/AfQO8wf/AfEBBwb/ARoBmQLDDqABeQF0AXkfwwFSAUsBUg16
AVMBUgEUAewN/wMmGfQBvQImHPQCJgGUEv8BvAHwBv8B8wL3Au0B7AGRA64HiwGuIO8B8Qb/AfEBBwz/
AfIB7wf/AfUB9AHyAfABCAHvAfcBkQFyAXEBbAdJAfQo/wHxAQcG/wEaAZkCww2gAnkBmSHDAksBUgx6
AVMBUgEUAewN/wMmGfQCRwEmAZQb9AImAZQS/wG8AfAG/wHyDO0D7AGuAZEg7QHxBv8B8QEHDP8B8gHv
Ev8B9AHxAQgB7wGYAZEBcgH1KP8B8QEHBv8BGgGZAsMMoAJ5AZkjwwJLAVILegFTAVIBFAHsDf8DJhn0
ARcBlAEmARcb9AImAZQS/wG8AfAG/wHzMe8B8Qb/AfEBBwz/AfIB7wf/AfENBwG8AfMC/wH0DggB8gL/
AfUB8g4IB/8B8QEHBv8BGgGZAsMLoAJ5AZkkwwGgAksBeQp6AVMBUgEUAewN/wMmGPQBlAH0AfMCJhv0
AiYBlBL/AbwB8Af/MfIB9Ab/AfEBBwz/AfIB7wb/AfQBBw2SAe8B8gL/AfMOmAEIAfUB/wH0AQgOmAH1
Bv8B8QEHBv8BGgGZAsMKoAN5JsMBmgJLAXkJegFZAVIBFAHsDf8DJhj0AUcC9AImG/QCJgGUEv8BvAHw
P/8B8QEHDP8B8gHvBv8B9AEHDZIB7wHyAv8B8w6YAQgB9QH/AfQBCA6YAfUG/wHxAQcG/wEaAZkCwwmg
A3kowwGZAksJegFZAVIBFAHsDf8DJhj0AUcC9AFHASYb9AImAZQS/wG8AfA//wHxAQcM/wHyAe8G/wH0
AQcNkgHvAfIC/wHzDpgBCAH1Af8B9AEIDpgB9Qb/AfEBBwb/ARoBmQLDCKABegJ5AfYpwwF5AksIegFZ
AVMBFAHsDf8DJhj0ASYC9AHjASYb9AImAZQS/wG8AfA//wHxAQcM/wHyAe8G/wH0AQcNkgHvAfIC/wHz
DpgBCAH1Af8B9AEIDpgB9Qb/AfEBBwb/ARoBmQLDB6ABegJ5AvYqwwF0AksHegFZAVMBFAHsDf8DJhj0
ASYC9AGUASYb9AImAZQS/wG8AfAG/wHzJPcBkgHsC/gBkgfvAQcM/wHyAe8G/wH0AQcNkgHvAfIC/wHz
DpgBCAH1Af8B9AEIAZgBkQtyAZEHBwHvAQcG/wEaAZkCwwagAZoCeQP2K8MBUgJLBnoBWQFTARQB7A3/
AyYY9AEmAvQBFgEmG/QCJgGUEv8BvAHwBv8B8iXtAewB9wrxAfIF8wHwAQcB8Az/AfIB7wf/AfMN8QHy
AfQC/wH1AfIN8QH0A/8B9AHwAe8B9wu8AfEF8gG8Ae8BvAb/ARoBmQLDBaABmgJ5BPYswwNLBXoCWQEU
AewN/wMmGPQBRwL0AUcBFhr0AZQCJgG9Ev8BvAHwBv8B8iT3AZIB7AHvD/8B8gHuAfEN/wHyAe8t/wH0
AfABBxD/AfIBBwHwB/8BGgGZAsMEoAGaAnkF9izDAaADSwR6AlkBFAHsDf8DJhn0AUcBJgHjG/QCJgFH
E/8BvAHwBv8B9CTxAbwB7wHuDf8B9AHxAbwB8Q7/AfIB7y3/AfQBvAEHD/8B8QEHAfEI/wEaAZkCwwOg
AZoCeQb2LMMCoAJLAVIDegJZARQB7A3/AyY29AMmAZQT/wG8AfAr/wH0AbwB8Az/AfQB8AG8AfIP/wHy
Ae8H/wHyDbwB8AH0Av8B9AHwDbwB8gP/AfIBBwLvDf8B9AHwAbwB8gn/ARoBmQLDAqABmgJ5B/YswwOg
AksBdAJ6AlkBFAHsDf8DJjX0AUcCJgFHFP8BvAHwK/8B9AG8AfAL/wHzAfABvAHzEP8B8gHvBv8B9AEH
DZIB7wHyAv8B8gH3DZIBvAH0Af8B9AEHAe0B7AH3DP8B9AK8AfMK/wEaAZkCwwKgAnkI9izDBKACSwF5
AXoCWQEUAewN/wMmNPQBRwImAUcV/wG8AfAr/wH0AbwB8Ar/AfMBvAHwAfMR/wHyAe8G/wH0AQcNkgHv
AfIC/wHyAfcNkgG8AfQB/wH0AQcB7QHsAfcL/wHzAbwB8AH0C/8BGwGZAsMBoAJ5CfYswwSgAZoCSwGZ
AlkBFAHsDf8DJjP0AUcCJgFHFv8BvAHwBv8B8yXvAZIBBwn/AfIBvAHxAfQS/wHyAe8G/wH0AQcNkgHv
AfIC/wHyAfcNkgG8AfQB/wH0AQcB7QHsAfcK/wHyAQcB8QH0DP8BGwGZAsMCeQr2LMMFoAF5AksBUgFZ
ARQB7A3/AyYy9AFHAiYBRxf/AbwB8Ab/AfIl7QHsAe8I/wHxAQcB8RT/AfIB7wb/AfQBBw2SAe8B8gL/
AfIB9w2SAbwB9AH/AfQBBwHtAewB9wj/AfQB8QEHAfIO/wEbAZkBwwF6AXkL9izDBqABeQJLAVIBFAHs
Df8DJjH0AUcCJgFHGP8BvAHwBv8B8iXtAewB7wf/AfABBwHyFf8B8gHvBv8B9AEHDZIB7wHyAv8B8gH3
DZIBvAH0Af8B9AEHAe0B7AH3B/8B9AG8AQcB8w//ARsBmQJ6AcML9izDB6ABUgFLASoBFAHsDf8DJjD0
AyYBRxn/AbwB8Ab/AfQk8QG8Ae8BBwb/AfABBwHzFv8B8gHvB/8B8g3wAfEB9AL/AfQO8AHzA/8B8gG8
Au8G/wHzArwB9BD/ARsBmQF6AcMM9izDCKABUgEqARQB7A3/AyYv9AMmAUca/wG8AfAr/wH0AbwB8AX/
AbwBBwH0F/8B8gHvLf8B9AHwAe4F/wHyAQcBvBL/ARsBmQHDDfYswwmgAUsBFAHsDf8BRwImLvQDJgFH
G/8BvAHwK/8B9AG8AfAD/wH0ArwB9Bj/AfIB7y3/AfQB8AHuBP8B8QEHAfET/wEbIZklHAGZDf8BlAIm
Ab0s9AMmAUcc/wG8AfAr/wH0AbwB8AL/AfMBBwG8Gv8B8gHvLf8B9AHwAe4C/wH0AfABvAHyFP8BGyKZ
JBwBmQ3/AfUDJiv0AUcCJgFHHf8BvAHwK/8B9AG8AfAB/wHyAQcB8Bv/AfIB7y3/AfQB8AHuAf8B8wK8
AfNr/wHjAiYBRyj0Ab0BRwImARce/wG8AfAr/wH0ArwB8QEHAfEc/wHyAe8t/wH0AfABBwHyAbwB8AH0
bf8BRwMmAUcl4wFHAyYBFx//AbwBByvyAfEBBwHvAQcB8h3/AfIB7y7yAQcB7wEHAfEB9G//ARcrJgHj
IP8B8QEHLLwBBwG8AfMe/wHzAQcuvAIHAfJy/wHzAUcnJgFHAfQi/y/0IP8x9P/////o/wFCAU0BPgcA
AT4DAAEoAwABQAEBAgABoAMAAQEBAAEBBgABGRYAA/8BAAH8CAABHx4AAfwIAAEfHgAB/AgAAQ8eAAH8
CAABDx4AAfwIAAEPHgAB/AgAAQ8eAAH8CAABDx4AAfwIAAEPHgAB/AgAAQ8eAAH8CAABDx4AAfwIAAEP
HgAB/AgAAQ8eAAH8CAABDx4AAfwIAAEPHgAB/AgAAQ8eAAH8CAABDx4AAfwIAAEPHgAB/AgAAQ8eAAH8
CAABDx4AAfwIAAEPHgAB/AgAAQ8eAAH8CAABDx4AAfwIAAEPHgAB/AgAAQ8eAAH8CAABDx4AAfwIAAEP
HgAB/AgAAQ8eAAH8CAABDx4AAfwIAAEPHgAB4AgAAQ8eAAGACAABDx4AAYAIAAEPHgABgAgAAQ8eAAGA
CAABDx4AAYAIAAEPHgABgAgAAQ8eAAGACAABDx4AAYAIAAEPHgABgAgAAQ8eAAGACAABDx4AAYAIAAEP
HgABgAgAAQ8eAAGACAABDx4AAYAIAAEPHgABgAgAAQ8eAAGACAABDx4AAYAIAAEPHgABgAgAAQ8eAAGA
CAABDx4AAYAIAAEPHgABgAgAAQ8eAAGACAABDx4AAYAIAAEPHgABgAgAAQ8eAAGACAABDx4AAYAIAAEP
HgABgAgAAQ8eAAGACAABDx4AAYAIAAEPHgABgAgAAQ8eAAGACAABDx4AAYAIAAEPHgABgAgAAR8eAAGA
CAABHx4AAfwHAAEBAf8eAAH8BwABAQH/HgAB/AcAAQEB/x4AAfwHAAEDAf8eAAH8BwABAwH/HgAB/AcA
AT8B/x4AAfwHAAE/Af8eAAH8BwABPwH/HgAB/AcAAX8B/x4AAfwHAAF/Af8eAAH8BgABBwL/HgAB/AYA
AQcC/x4AAfwGAAEHAv8eAAH8BgABDwL/HgAB/AYAAQ8C/x4AAfwFAAEfA///AP8A/wD/AP8A/wD/AP8A
/wD/AP8A/wCqAAs=
</value>
</data>
</root>

382
DPM2016/Dokumente/Thumbviewer/ThumbViewer.vb Normal file
View File

@@ -0,0 +1,382 @@
Imports System.Windows.Forms
Imports System.Drawing
Class ThumbViewer
Private myImageList As System.Windows.Forms.ImageList = New ImageList()
Private myImageListSmall As System.Windows.Forms.ImageList = New ImageList()
Private myImageListLarge As System.Windows.Forms.ImageList = New ImageList()
Private count As Integer = 0
Private DefaultSplitsize As Integer
Dim m_data As DataTable
Dim d As New clsDok
Property Data As DataTable
Get
Return m_data
End Get
Set(value As DataTable)
m_data = value
Try
AddImages()
large_images()
Catch
End Try
End Set
End Property
Dim m_previewfilename As String
Property PreviewFilename As String
Get
Return m_previewfilename
End Get
Set(value As String)
m_previewfilename = value
End Set
End Property
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
myImageList.ImageSize = New Size(50, 50)
myImageListSmall.ImageSize = New Size(32, 32)
myImageListLarge.ImageSize = New Size(80, 80)
Me.TrackBar1.Minimum = 20
Me.TrackBar1.Maximum = 256
Me.TrackBar1.Value = 80
Me.DefaultSplitsize = Me.SplitContainer1.SplitterDistance
End Sub
Public Function AddImage(ByVal imagefile As Object, ByVal name As String, ByVal key As Integer)
Dim img As System.Drawing.Image
img = GetImagefromDB(imagefile)
myImageList.Images.Add(img)
myImageListSmall.Images.Add(img)
myImageListLarge.Images.Add(img)
ListView1.LargeImageList = myImageListLarge
Dim lvitem As New ListViewItem
lvitem.ImageIndex = count
lvitem.Text = name
lvitem.Tag = key
ListView1.Items.Add(lvitem)
count += 1
End Function
Public Function AddImages()
Me.ListView1.Items.Clear()
For Each r As DataRow In Me.Data.Rows
Try
Dim ext As String
ext = UCase(System.IO.Path.GetExtension(r("pfad")))
Dim img As System.Drawing.Image
Select Case ext
Case ".PDF"
img = Me.ImageList1.Images(0)
Case ".MSG"
img = Me.ImageList1.Images(3)
Case ".DOCX", ".DOCM", ".DOC", ".DOC"
img = Me.ImageList1.Images(1)
Case ".XLSX", "XLSM", ".XLS", "XLM"
img = Me.ImageList1.Images(2)
Case ".TIF", ".TIFF", ".JPG", ".PNG", ".BMP"
img = GetImagefromDB(r.Item("dokumentfile"))
Case Else
img = Me.ImageList1.Images(5)
End Select
myImageList.Images.Add(img)
myImageListSmall.Images.Add(img)
myImageListLarge.Images.Add(img)
ListView1.LargeImageList = myImageListLarge
Dim lvitem As New ListViewItem
lvitem.ImageIndex = count
lvitem.Text = r.Item("bezeichnung")
lvitem.Tag = r.Item(0)
lvitem.ToolTipText = ext
ListView1.Items.Add(lvitem)
count += 1
Catch
End Try
Next
End Function
Public Function GetImagefromDB(ByVal imgfield As Object) As Image
Dim IMGC As New ImageConverter
Dim IMGPIC As Image = CType(IMGC.ConvertFrom(imgfield), Image)
Return IMGPIC
End Function
Dim InitLIst As Boolean = False
Public Function SearchItem(ByVal Key As Integer)
Dim i As Integer = 0
InitLIst = True
For Each item As ListViewItem In Me.ListView1.Items
item.Focused = False
item.Selected = False
Next
InitLIst = False
For Each item As ListViewItem In Me.ListView1.Items
item.Focused = False
item.Selected = False
If item.Tag = Key Then
item.Focused = True
item.Selected = True
'Me.ListView1.Items(i).Focused = True
'Me.ListView1.Items(i).Selected = True
End If
i = i + 1
Next
End Function
Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged
If InitLIst Then Exit Sub
Dim key As Integer
key = ListView1.FocusedItem.Tag
Dim previewfilename As String = ""
If Globals.PreViewDir = "" Then
Dim db As New clsDB
db.Get_Tabledata("dms", "", "Select * from dms_Settings where nreintrag=6")
Globals.PreViewDir = db.dsDaten.Tables(0).Rows(0).Item(2)
If Not System.IO.Directory.Exists(Globals.PreViewDir) Then
System.IO.Directory.CreateDirectory(Globals.PreViewDir)
End If
End If
Dim txt As String
txt = ListView1.FocusedItem.ToolTipText
Select Case txt
Case ".PDF"
previewfilename = d.Get_Dokument(key, Globals.PreViewDir, True, True)
Me.KpImageViewer1.Visible = False
Me.grpdokumentvorschau.Visible = False
Me.grpdokumentvorschaupdf.Visible = True
Me.GrpDokumentvorschauMail.Visible = False
Me.grpdokumentvorschaupdf.Dock = DockStyle.Fill
Me.pdfViewerControl1.RenderingEngine = Syncfusion.Windows.Forms.PdfViewer.PdfRenderingEngine.Pdfium
Me.pdfViewerControl1.ReferencePath = Application.StartupPath + ""
Me.pdfViewerControl1.Load(previewfilename)
Case ".MSG"
Me.KpImageViewer1.Visible = False
Me.grpdokumentvorschaupdf.Visible = False
Me.grpdokumentvorschau.Visible = False
Me.GrpDokumentvorschauMail.Visible = True
Me.GrpDokumentvorschauMail.Dock = DockStyle.Fill
previewfilename = d.Get_Dokument(key, Globals.PreViewDir, True, True)
Dim msgreader As New MsgReader.Reader
Dim files = msgreader.ExtractToFolder(previewfilename, Globals.PreViewDir)
Dim err = msgreader.GetErrorMessage
webBrowser1.Navigate(files(0))
Case ".TIF", ".TIFF", ".JPG", ".PNG", ".BMP"
Me.KpImageViewer1.Visible = True
Me.grpdokumentvorschaupdf.Visible = False
Me.grpdokumentvorschau.Visible = False
Me.GrpDokumentvorschauMail.Visible = False
Me.KpImageViewer1.Dock = DockStyle.Fill
Me.KpImageViewer1.DoResize()
For Each r As DataRow In Data.Rows
If r.Item(0) = key Then
Me.KpImageViewer1.Image = GetImagefromDB(r.Item("dokumentfile"))
End If
Next
Case Else
previewfilename = d.Get_Dokument(key, Globals.PreViewDir, True, True)
Me.KpImageViewer1.Visible = False
Me.grpdokumentvorschaupdf.Visible = False
Me.grpdokumentvorschau.Visible = True
Me.GrpDokumentvorschauMail.Visible = False
Me.grpdokumentvorschau.Dock = DockStyle.Fill
Try
'Threading.Thread.CurrentThread.Sleep(1000)
Try
DocumentViewer1.CloseDocument()
Catch
End Try
Try
Me.DocumentViewer1.LoadDocument(previewfilename)
Catch
End Try
Catch es As Gnostice.Core.XDocException
End Try
End Select
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
large_images()
Me.TrackBar1.Visible = True
End Sub
Public Sub large_images()
Dim imglst As New ImageList
imglst.ImageSize = New Size(Me.TrackBar1.Value, Me.TrackBar1.Value)
imglst.Images.Clear()
For n As Int32 = 0 To myImageListLarge.Images.Count - 1
imglst.Images.Add(myImageListLarge.Images(n))
Next
ListView1.LargeImageList = imglst
ListView1.View = View.LargeIcon
End Sub
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
ListView1.SmallImageList = myImageListSmall
ListView1.View = View.SmallIcon
End Sub
Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
ListView1.View = View.List
End Sub
Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
large_images()
End Sub
Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click
If Me.SplitContainer1.Panel2.Visible Then
Me.SplitContainer1.Panel2.Visible = False
Me.DefaultSplitsize = Me.SplitContainer1.Panel1.Width
Me.SplitContainer1.SplitterDistance = Me.SplitContainer1.Width
Else
Me.SplitContainer1.Panel2.Visible = True
Me.SplitContainer1.SplitterDistance = DefaultSplitsize
End If
End Sub
Private Sub KpImageViewer1_Load(sender As Object, e As EventArgs)
End Sub
#Region "Gnostic"
Private Sub tsActSize_Click(sender As Object, e As EventArgs) Handles tsActSize.Click
If DocumentViewer1.IsDocumentLoaded Then
DocumentViewer1.Zoom.ZoomMode = Gnostice.Documents.Controls.WinForms.ZoomMode.ActualSize
End If
End Sub
Private Sub tsFitPage_Click(sender As Object, e As EventArgs) Handles tsFitPage.Click
If DocumentViewer1.IsDocumentLoaded Then
DocumentViewer1.Zoom.ZoomMode = Gnostice.Documents.Controls.WinForms.ZoomMode.FitPage
End If
End Sub
Private Sub tsFitWidth_Click(sender As Object, e As EventArgs) Handles tsFitWidth.Click
If DocumentViewer1.IsDocumentLoaded Then
DocumentViewer1.Zoom.ZoomMode = Gnostice.Documents.Controls.WinForms.ZoomMode.FitWidth
End If
End Sub
Private Sub tsZoomOut_Click(sender As Object, e As EventArgs) Handles tsZoomOut.Click
If DocumentViewer1.IsDocumentLoaded Then
DocumentViewer1.ZoomOut()
End If
End Sub
Private Sub tsZoomIn_Click(sender As Object, e As EventArgs) Handles tsZoomIn.Click
If DocumentViewer1.IsDocumentLoaded Then
DocumentViewer1.ZoomIn()
End If
End Sub
Private Sub btnFirstPage_Click(sender As Object, e As EventArgs) Handles btnFirstPage.Click
If DocumentViewer1.IsDocumentLoaded Then
DocumentViewer1.FirstPage()
End If
End Sub
Private Sub btnPrvPage_Click(sender As Object, e As EventArgs) Handles btnPrvPage.Click
If DocumentViewer1.IsDocumentLoaded Then
DocumentViewer1.PreviousPage()
End If
End Sub
Private Sub btnNxtPage_Click(sender As Object, e As EventArgs) Handles btnNxtPage.Click
If DocumentViewer1.IsDocumentLoaded Then
DocumentViewer1.NextPage()
End If
End Sub
Private Sub btnLastPage_Click(sender As Object, e As EventArgs) Handles btnLastPage.Click
If DocumentViewer1.IsDocumentLoaded Then
DocumentViewer1.LastPage()
End If
End Sub
Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click
DocumentViewer1.RotatePagesAntiClockwise90()
End Sub
Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles ToolStripButton6.Click
DocumentViewer1.RotatePagesClockwise90()
End Sub
Private Sub txtGoToPage_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles txtGoToPage.KeyDown
Select Case e.KeyCode
Case Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5,
Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.Delete, Keys.[End],
Keys.Home, Keys.Down, Keys.Up, Keys.Left, Keys.Right, Keys.Back
e.SuppressKeyPress = False
Exit Select
Case Keys.D0, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5,
Keys.D6, Keys.D7, Keys.D8, Keys.D9
If e.Shift Then
e.SuppressKeyPress = True
Else
e.SuppressKeyPress = False
End If
Exit Select
Case Keys.Enter
e.SuppressKeyPress = False
If txtGoToPage.Text.Trim() <> "" Then
DocumentViewer1.GoToPage(Convert.ToInt32(txtGoToPage.Text))
End If
Exit Select
Case Else
e.SuppressKeyPress = True
Exit Select
End Select
End Sub
Private Sub txtZoom_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles txtZoom.KeyDown
Select Case e.KeyCode
Case Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5,
Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.Delete, Keys.[End],
Keys.Home, Keys.Down, Keys.Up, Keys.Left, Keys.Right, Keys.Back
e.SuppressKeyPress = False
Exit Select
Case Keys.D0, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5,
Keys.D6, Keys.D7, Keys.D8, Keys.D9
If e.Shift Then
e.SuppressKeyPress = True
Else
e.SuppressKeyPress = False
End If
Exit Select
Case Keys.Enter
e.SuppressKeyPress = False
DocumentViewer1.Zoom.ZoomPercent = Double.Parse(txtZoom.Text)
Exit Select
Case Else
e.SuppressKeyPress = True
Exit Select
End Select
End Sub
#End Region
End Class

24
DPM2016/Dokumente/clsDokumente.Designer.vb generated
View File

@@ -52,7 +52,6 @@ Partial Class clsDokumente
Me.ElementStyle1 = New DevComponents.DotNetBar.ElementStyle() Me.ElementStyle1 = New DevComponents.DotNetBar.ElementStyle()
Me.ElementStyle2 = New DevComponents.DotNetBar.ElementStyle() Me.ElementStyle2 = New DevComponents.DotNetBar.ElementStyle()
Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.ThumbViewer1 = New DPM2016.ThumbViewer()
Me.GrpDokumentvorschauMail = New System.Windows.Forms.GroupBox() Me.GrpDokumentvorschauMail = New System.Windows.Forms.GroupBox()
Me.webBrowser1 = New System.Windows.Forms.WebBrowser() Me.webBrowser1 = New System.Windows.Forms.WebBrowser()
Me.ToolStrip3 = New System.Windows.Forms.ToolStrip() Me.ToolStrip3 = New System.Windows.Forms.ToolStrip()
@@ -95,6 +94,7 @@ Partial Class clsDokumente
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator()
Me.NeuesDokumentAusVorlageErstellenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.NeuesDokumentAusVorlageErstellenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog() Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
Me.ThumbViewer1 = New DPM2016.ThumbViewer()
Me.ToolStrip1.SuspendLayout() Me.ToolStrip1.SuspendLayout()
Me.GroupBox1.SuspendLayout() Me.GroupBox1.SuspendLayout()
CType(Me.treestruktur, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.treestruktur, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -263,16 +263,6 @@ Partial Class clsDokumente
Me.GroupBox2.TabStop = False Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Dokumente" Me.GroupBox2.Text = "Dokumente"
' '
'ThumbViewer1
'
Me.ThumbViewer1.Data = Nothing
Me.ThumbViewer1.Location = New System.Drawing.Point(9, 468)
Me.ThumbViewer1.Name = "ThumbViewer1"
Me.ThumbViewer1.PreviewFilename = Nothing
Me.ThumbViewer1.Size = New System.Drawing.Size(971, 596)
Me.ThumbViewer1.TabIndex = 12
Me.ThumbViewer1.Visible = False
'
'GrpDokumentvorschauMail 'GrpDokumentvorschauMail
' '
Me.GrpDokumentvorschauMail.Controls.Add(Me.webBrowser1) Me.GrpDokumentvorschauMail.Controls.Add(Me.webBrowser1)
@@ -505,6 +495,7 @@ Partial Class clsDokumente
' '
'txtGoToPage 'txtGoToPage
' '
Me.txtGoToPage.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.txtGoToPage.Name = "txtGoToPage" Me.txtGoToPage.Name = "txtGoToPage"
Me.txtGoToPage.Size = New System.Drawing.Size(40, 25) Me.txtGoToPage.Size = New System.Drawing.Size(40, 25)
' '
@@ -572,6 +563,7 @@ Partial Class clsDokumente
' '
'txtZoom 'txtZoom
' '
Me.txtZoom.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.txtZoom.MaxLength = 4 Me.txtZoom.MaxLength = 4
Me.txtZoom.Name = "txtZoom" Me.txtZoom.Name = "txtZoom"
Me.txtZoom.Size = New System.Drawing.Size(35, 23) Me.txtZoom.Size = New System.Drawing.Size(35, 23)
@@ -704,6 +696,16 @@ Partial Class clsDokumente
Me.NeuesDokumentAusVorlageErstellenToolStripMenuItem.Size = New System.Drawing.Size(306, 22) Me.NeuesDokumentAusVorlageErstellenToolStripMenuItem.Size = New System.Drawing.Size(306, 22)
Me.NeuesDokumentAusVorlageErstellenToolStripMenuItem.Text = "Neues Dokument aus Vorlage erstellen" Me.NeuesDokumentAusVorlageErstellenToolStripMenuItem.Text = "Neues Dokument aus Vorlage erstellen"
' '
'ThumbViewer1
'
Me.ThumbViewer1.Data = Nothing
Me.ThumbViewer1.Location = New System.Drawing.Point(9, 468)
Me.ThumbViewer1.Name = "ThumbViewer1"
Me.ThumbViewer1.PreviewFilename = Nothing
Me.ThumbViewer1.Size = New System.Drawing.Size(971, 596)
Me.ThumbViewer1.TabIndex = 12
Me.ThumbViewer1.Visible = False
'
'clsDokumente 'clsDokumente
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

24
DPM2016/Dokumente/clsDokumente.resx
View File

@@ -198,7 +198,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAACU ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAACU
CgAAAk1TRnQBSQFMAgEBAwEAAdgBAAHYAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo CgAAAk1TRnQBSQFMAgEBAwEAAfgBAAH4AQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -301,14 +301,14 @@
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHGSURBVDhPYxhcoGH1q/8gXLfyxf/SpU/3Q4XhILj3ZntA YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHGSURBVDhPYxhcoGH1q/8gXLfyxf/SpU/3Q4XhILj3ZntA
/c0vUC4maFj94v+Wc5/+Lzr47n/BgocoBnh3Xm/3qp/5z7Xlxn+oECYoX/bs/4bTH/7P3ffmf+pMhAGe /c0vUC4maFj94v+Wc5/+Lzr47n/BgocoBnh3Xm/3qp/6z7Xlxn+oECYoX/bs/4bTH/7P3ffmf+pMhAGe
LVf7Mufe/z9hy/P/ltWXcBtQsODR/9Un3v+ftvPV/5iJd8EGuLdcm5c26/7//q3P//duevZfp+Q8bgNS LVf7Mufe/z9hy/P/ltWXcBtQsODR/9Un3v+ftvPV/5iJd8EGuLdcm5c26/7//q3P//duevZfp+Q8bgNS
Zz/8v/TI2//9W178D+y8ud+x/vKSlOl3/0/Y+gwYLo/+t6598l8u+yxuA2Im3f8/78Dr/zN2v/xvVn/i Zz/8v/TI2//9W178D+y8ud+x/vKSlOl3/0/Y+gwYLo/+t6598l8u+yxuA2Im3f8/78Dr/zN2v/xvVn/i
R/Gih//7Nj/7X7n84f/sOXf/1614+F8q6QRuA4K6b4I1gzRZVl94kzvv3v+2dU/+Fy68/z9p+u3/ZYvv R/Gih//7Nj/7X7n84f/sOXf/1614+F8q6QRuA4K6b4I1gzRZVl94kzvv3v+2dU/+Fy68/z9p+u3/ZYvv
/5eIPIbbAFAIT9z24n/5kof/tYrPH5DNPL3GpfHy/6rlD/4nT7/1v2D+vf/iQQdwGwAK4a6NT//nzr33 /5eIPIbbAFAIT9z24n/5kof/tYrPH5DNPL3GpfHy/6rlD/4nT7/1v2D+vf/iQQdwGwAK4a6NT//nzr33
XzbzLDgQJaOOrLQtv/A/b/7d/1mz7/wX89qL2wBQCDevefw/FehcycQT8GgU89i9yCL7FNgVIo67cRsA XzbzLDgQJaOOrLQtv/A/b/7d/1mz7/wX89qL2wBQCDevefw/FehcycQT8GgU89i9yCL7FNgVIo67cRsA
CuFqYEDFTbwB9OtRlIQkYrd1gXHKsf/CNttxGwAKYcmYY/8lQo/8Fw08gGIACAgZbpwtZLkNtwEDABgY CuFqYEDFTbwB9OtRlIQkYrd1gXHKsf/CNttxGwAKYcmYY/8lQo/8Fw08gGIACAgZbpwtZLkNtwEDABgY
AOJ2DIFMpaCHAAAAAElFTkSuQmCC ANX+DH3oaov/AAAAAElFTkSuQmCC
</value> </value>
</data> </data>
<data name="btnPrvPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnPrvPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -338,15 +338,15 @@
<data name="btnLastPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnLastPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHHSURBVDhPzZBRL1thGMfPZ6CsXPgAiy/QRSSEJbZYgsjS YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHJSURBVDhPzZDfS1phGMfP37BsWRf9AbF/wBiDogYVBTVi
EBFFwpKFTUjXRBVdVUNoDNUoKWvKQbBEg9l7kiG9kW1I04qq9rR1dMPNLnbl77zLiUTkveafvBfPP3l/ SBFRa1DBaC2KEtJW5kwaJTYryYWVWKeGNUj6+R5YhTeyakM0MqdH7eTWuumiq76ddxyEMd7r9YX34vnC
z5Mf97hi5KW/nV7Jooy3aXBESe2nCLRDYZTbQlDq++niJRiM3utWd+wOpHo4TGxfzjDxNYXi3iAb0OFJ +3kePtz9ip6Xrvs9kkkZM2mZipHGiSi0YxHUWMJQ6n9j4CXo9PO3r13xvyD14xFi+XyO6e00SodCbECP
YtF/hb5lCXWjJ4NKzZVZQ6R3KY4RnwSNYZ8NaJmOgZcBnu+X+OBJoNQadNFe3koMXhEDq0nktv1gAxqc O4UV/xXeeSU0fTh7r9RctTlMhj4lYPNJ0OiO2YCO2Th4GeD+8ht97iQqzSEn7eWtROcRMbqWwqOur2xA
UXzevsDYRgqubyk0TUag0f+c1eh/kffuU5gX48h5s8cGVNsjcAm/YVlOwrqShF0++a0MefrO/8/Ex9Dp iyOGhb1L2DfTcO6m0ToThab3cF7Te0TeuH7AuJJAfnuADai3RuEUfsLkTcG8moJVPvmVDCno9N8M8HH0
jSK7zs8GUMPjm+cwzovo5kXYVhNodISRU7/3p20mgnb5qbW7bAA1PLwmwTgnyhfE8dISQLbOvyBvFWrs e2LIa/KzAdTw5NYF9Esi3vIiLGtJvJyKIP9F4FfXXBTd8lNrD9gAanh8XYJ+UZQvSKDCFERes39Z3io0
IbRMneBJucAGUMP9Kwl8lI0/NweQVbszR3u1doe8tgXQ7DxG5ostNoAa7lkQUWQ6QFbVrlupuYwygVSY WMPo+HiGnBqBDaCGR1aTGJaNPzUGkdu4v0h7tXafPLcE0eY4xcPyHTaAGh5cFlEy8A25dQcupeayqwXy
D6EbO4KqYJMNoIYL6Wft9rRS/U9GyRZ51bWPmpEg0vN8bAA1rK4UnMp4G1XBOlHlryP9mQ9pmjU24AHC zPgdzfYTqIq22ABquJh+1u7NKtWfZJftkCrDMRpsIWQ99rEB1LC6VnAoYyaqog2ierKBrEIfHmjW2YD/
cTe9YwvnHM3wAwAAAABJRU5ErkJggg== EI67A7B7C+MKaEv0AAAAAElFTkSuQmCC
</value> </value>
</data> </data>
<data name="tsActSize.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tsActSize.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

8
DPM2016/Dokumente/clsDokumente.vb
View File

@@ -180,7 +180,7 @@ Public Class clsDokumente
End Sub End Sub
Private Sub Form1_DragDrop(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles Me.DragDrop Private Sub Form1_DragDrop(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles Me.DragDrop, C1Dokumente.DragDrop
Dim files() As String = e.Data.GetData(DataFormats.FileDrop) Dim files() As String = e.Data.GetData(DataFormats.FileDrop)
For Each path In files For Each path In files
Dim f As New DokumentDetail(Me.Patientnr, Me.treestruktur.SelectedNode.Tag) Dim f As New DokumentDetail(Me.Patientnr, Me.treestruktur.SelectedNode.Tag)
@@ -191,7 +191,7 @@ Public Class clsDokumente
Next Next
End Sub End Sub
Private Sub Form1_DragEnter(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter Private Sub Form1_DragEnter(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter, C1Dokumente.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.Copy e.Effect = DragDropEffects.Copy
End If End If
@@ -690,6 +690,10 @@ Public Class clsDokumente
Private Sub PrintButton_Click(sender As Object, e As EventArgs) Handles PrintButton.Click Private Sub PrintButton_Click(sender As Object, e As EventArgs) Handles PrintButton.Click
Me.webBrowser1.ShowPrintDialog() Me.webBrowser1.ShowPrintDialog()
End Sub End Sub
Private Sub C1Dokumente_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Dokumente.MouseDown
Me.C1Dokumente.Bookmark = Me.C1Dokumente.RowContaining(e.Y)
End Sub
End Class End Class
Public Class DocumentNotLoadedException Public Class DocumentNotLoadedException

144
DPM2016/Fakturierung/frmFakturierung.Designer.vb generated
View File

@@ -36,16 +36,11 @@ Partial Class frmFakturierung
Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
Me.tstxtsuche = New System.Windows.Forms.ToolStripTextBox()
Me.tsbtnfirst = New System.Windows.Forms.ToolStripButton()
Me.tsbtprev = New System.Windows.Forms.ToolStripButton()
Me.tsbtnnext = New System.Windows.Forms.ToolStripButton()
Me.tsbtnlast = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.lblTotal = New System.Windows.Forms.ToolStripLabel() Me.lblTotal = New System.Windows.Forms.ToolStripLabel()
Me.lblbetrag = New System.Windows.Forms.ToolStripLabel() Me.lblbetrag = New System.Windows.Forms.ToolStripLabel()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.grpOffeneRechnungen = New System.Windows.Forms.GroupBox() Me.grpOffeneRechnungen = New System.Windows.Forms.GroupBox()
Me.C1Abgeschlossen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.C1Abgeschlossen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -56,6 +51,8 @@ Partial Class frmFakturierung
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.toolstripmenuAusschlussaufheben = New System.Windows.Forms.ToolStripMenuItem() Me.toolstripmenuAusschlussaufheben = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolstripAusschlussVorschau = New System.Windows.Forms.ToolStripMenuItem() Me.ToolstripAusschlussVorschau = New System.Windows.Forms.ToolStripMenuItem()
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
Me.Label1 = New System.Windows.Forms.Label()
Me.MenuStrip1.SuspendLayout() Me.MenuStrip1.SuspendLayout()
Me.ToolStrip1.SuspendLayout() Me.ToolStrip1.SuspendLayout()
Me.grpOffeneRechnungen.SuspendLayout() Me.grpOffeneRechnungen.SuspendLayout()
@@ -69,10 +66,11 @@ Partial Class frmFakturierung
'MenuStrip1 'MenuStrip1
' '
Me.MenuStrip1.AllowMerge = False Me.MenuStrip1.AllowMerge = False
Me.MenuStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem}) Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0) Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1" Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(773, 24) Me.MenuStrip1.Size = New System.Drawing.Size(871, 24)
Me.MenuStrip1.TabIndex = 20 Me.MenuStrip1.TabIndex = 20
Me.MenuStrip1.Text = "MenuStrip1" Me.MenuStrip1.Text = "MenuStrip1"
' '
@@ -92,10 +90,11 @@ Partial Class frmFakturierung
'ToolStrip1 'ToolStrip1
' '
Me.ToolStrip1.AllowDrop = True Me.ToolStrip1.AllowDrop = True
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnquit, Me.tsbtnSave, Me.ToolStripButton5, Me.ToolStripButton6, Me.tsbtnnew, Me.ToolStripButton4, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripLabel1, Me.tstxtsuche, Me.tsbtnfirst, Me.tsbtprev, Me.tsbtnnext, Me.tsbtnlast, Me.ToolStripButton1, Me.ToolStripSeparator1, Me.lblTotal, Me.lblbetrag}) Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnquit, Me.tsbtnSave, Me.ToolStripButton5, Me.ToolStripButton6, Me.tsbtnnew, Me.ToolStripButton4, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripButton1, Me.ToolStripSeparator1, Me.lblTotal, Me.lblbetrag, Me.ToolStripSeparator2})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24) Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1" Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(773, 25) Me.ToolStrip1.Size = New System.Drawing.Size(871, 27)
Me.ToolStrip1.TabIndex = 21 Me.ToolStrip1.TabIndex = 21
Me.ToolStrip1.Text = "ToolStrip1" Me.ToolStrip1.Text = "ToolStrip1"
' '
@@ -105,7 +104,7 @@ Partial Class frmFakturierung
Me.tsbtnquit.Image = CType(resources.GetObject("tsbtnquit.Image"), System.Drawing.Image) Me.tsbtnquit.Image = CType(resources.GetObject("tsbtnquit.Image"), System.Drawing.Image)
Me.tsbtnquit.ImageTransparentColor = System.Drawing.Color.Magenta Me.tsbtnquit.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnquit.Name = "tsbtnquit" Me.tsbtnquit.Name = "tsbtnquit"
Me.tsbtnquit.Size = New System.Drawing.Size(23, 22) Me.tsbtnquit.Size = New System.Drawing.Size(24, 24)
Me.tsbtnquit.Text = "Schliessen" Me.tsbtnquit.Text = "Schliessen"
' '
'tsbtnSave 'tsbtnSave
@@ -114,7 +113,7 @@ Partial Class frmFakturierung
Me.tsbtnSave.Image = CType(resources.GetObject("tsbtnSave.Image"), System.Drawing.Image) Me.tsbtnSave.Image = CType(resources.GetObject("tsbtnSave.Image"), System.Drawing.Image)
Me.tsbtnSave.ImageTransparentColor = System.Drawing.Color.Magenta Me.tsbtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnSave.Name = "tsbtnSave" Me.tsbtnSave.Name = "tsbtnSave"
Me.tsbtnSave.Size = New System.Drawing.Size(23, 22) Me.tsbtnSave.Size = New System.Drawing.Size(24, 24)
Me.tsbtnSave.Text = "Speichern" Me.tsbtnSave.Text = "Speichern"
Me.tsbtnSave.Visible = False Me.tsbtnSave.Visible = False
' '
@@ -124,7 +123,7 @@ Partial Class frmFakturierung
Me.ToolStripButton5.Image = CType(resources.GetObject("ToolStripButton5.Image"), System.Drawing.Image) Me.ToolStripButton5.Image = CType(resources.GetObject("ToolStripButton5.Image"), System.Drawing.Image)
Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton5.Name = "ToolStripButton5" Me.ToolStripButton5.Name = "ToolStripButton5"
Me.ToolStripButton5.Size = New System.Drawing.Size(134, 22) Me.ToolStripButton5.Size = New System.Drawing.Size(134, 24)
Me.ToolStripButton5.Text = "Fakturierung ausführen" Me.ToolStripButton5.Text = "Fakturierung ausführen"
' '
'ToolStripButton6 'ToolStripButton6
@@ -132,7 +131,7 @@ Partial Class frmFakturierung
Me.ToolStripButton6.Image = CType(resources.GetObject("ToolStripButton6.Image"), System.Drawing.Image) Me.ToolStripButton6.Image = CType(resources.GetObject("ToolStripButton6.Image"), System.Drawing.Image)
Me.ToolStripButton6.ImageTransparentColor = System.Drawing.Color.Magenta Me.ToolStripButton6.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton6.Name = "ToolStripButton6" Me.ToolStripButton6.Name = "ToolStripButton6"
Me.ToolStripButton6.Size = New System.Drawing.Size(68, 22) Me.ToolStripButton6.Size = New System.Drawing.Size(72, 24)
Me.ToolStripButton6.Text = "Drucker" Me.ToolStripButton6.Text = "Drucker"
' '
'tsbtnnew 'tsbtnnew
@@ -141,7 +140,7 @@ Partial Class frmFakturierung
Me.tsbtnnew.Image = CType(resources.GetObject("tsbtnnew.Image"), System.Drawing.Image) Me.tsbtnnew.Image = CType(resources.GetObject("tsbtnnew.Image"), System.Drawing.Image)
Me.tsbtnnew.ImageTransparentColor = System.Drawing.Color.Magenta Me.tsbtnnew.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnnew.Name = "tsbtnnew" Me.tsbtnnew.Name = "tsbtnnew"
Me.tsbtnnew.Size = New System.Drawing.Size(23, 22) Me.tsbtnnew.Size = New System.Drawing.Size(24, 24)
Me.tsbtnnew.Text = "Neuer Datensatz" Me.tsbtnnew.Text = "Neuer Datensatz"
Me.tsbtnnew.Visible = False Me.tsbtnnew.Visible = False
' '
@@ -151,7 +150,7 @@ Partial Class frmFakturierung
Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image) Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image)
Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton4.Name = "ToolStripButton4" Me.ToolStripButton4.Name = "ToolStripButton4"
Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22) Me.ToolStripButton4.Size = New System.Drawing.Size(24, 24)
Me.ToolStripButton4.Text = "Dokumentinformationen bearbeiten" Me.ToolStripButton4.Text = "Dokumentinformationen bearbeiten"
Me.ToolStripButton4.Visible = False Me.ToolStripButton4.Visible = False
' '
@@ -161,7 +160,7 @@ Partial Class frmFakturierung
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image) Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2" Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22) Me.ToolStripButton2.Size = New System.Drawing.Size(24, 24)
Me.ToolStripButton2.Text = "Dokument löschen" Me.ToolStripButton2.Text = "Dokument löschen"
Me.ToolStripButton2.Visible = False Me.ToolStripButton2.Visible = False
' '
@@ -171,97 +170,49 @@ Partial Class frmFakturierung
Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image) Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image)
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton3.Name = "ToolStripButton3" Me.ToolStripButton3.Name = "ToolStripButton3"
Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22) Me.ToolStripButton3.Size = New System.Drawing.Size(24, 24)
Me.ToolStripButton3.Text = "Dokument anzeigen" Me.ToolStripButton3.Text = "Dokument anzeigen"
Me.ToolStripButton3.Visible = False Me.ToolStripButton3.Visible = False
' '
'ToolStripLabel1
'
Me.ToolStripLabel1.Name = "ToolStripLabel1"
Me.ToolStripLabel1.Size = New System.Drawing.Size(39, 22)
Me.ToolStripLabel1.Text = "Suche"
Me.ToolStripLabel1.Visible = False
'
'tstxtsuche
'
Me.tstxtsuche.Name = "tstxtsuche"
Me.tstxtsuche.Size = New System.Drawing.Size(100, 25)
Me.tstxtsuche.Visible = False
'
'tsbtnfirst
'
Me.tsbtnfirst.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnfirst.Image = CType(resources.GetObject("tsbtnfirst.Image"), System.Drawing.Image)
Me.tsbtnfirst.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnfirst.Name = "tsbtnfirst"
Me.tsbtnfirst.Size = New System.Drawing.Size(23, 22)
Me.tsbtnfirst.Text = "Erster Datensatz"
Me.tsbtnfirst.Visible = False
'
'tsbtprev
'
Me.tsbtprev.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtprev.Image = CType(resources.GetObject("tsbtprev.Image"), System.Drawing.Image)
Me.tsbtprev.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtprev.Name = "tsbtprev"
Me.tsbtprev.Size = New System.Drawing.Size(23, 22)
Me.tsbtprev.Text = "Vorheriger Datensatz"
Me.tsbtprev.Visible = False
'
'tsbtnnext
'
Me.tsbtnnext.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnnext.Image = CType(resources.GetObject("tsbtnnext.Image"), System.Drawing.Image)
Me.tsbtnnext.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnnext.Name = "tsbtnnext"
Me.tsbtnnext.Size = New System.Drawing.Size(23, 22)
Me.tsbtnnext.Text = "nächster Datensatz"
Me.tsbtnnext.Visible = False
'
'tsbtnlast
'
Me.tsbtnlast.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnlast.Image = CType(resources.GetObject("tsbtnlast.Image"), System.Drawing.Image)
Me.tsbtnlast.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnlast.Name = "tsbtnlast"
Me.tsbtnlast.Size = New System.Drawing.Size(23, 22)
Me.tsbtnlast.Text = "Letzter Datensatz"
Me.tsbtnlast.Visible = False
'
'ToolStripButton1 'ToolStripButton1
' '
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1" Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22) Me.ToolStripButton1.Size = New System.Drawing.Size(23, 24)
Me.ToolStripButton1.Text = "ToolStripButton1" Me.ToolStripButton1.Text = "ToolStripButton1"
' '
'ToolStripSeparator1 'ToolStripSeparator1
' '
Me.ToolStripSeparator1.Name = "ToolStripSeparator1" Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25) Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 27)
' '
'lblTotal 'lblTotal
' '
Me.lblTotal.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold) Me.lblTotal.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold)
Me.lblTotal.Name = "lblTotal" Me.lblTotal.Name = "lblTotal"
Me.lblTotal.Size = New System.Drawing.Size(37, 22) Me.lblTotal.Size = New System.Drawing.Size(37, 24)
Me.lblTotal.Text = "Total:" Me.lblTotal.Text = "Total:"
' '
'lblbetrag 'lblbetrag
' '
Me.lblbetrag.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold) Me.lblbetrag.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold)
Me.lblbetrag.Name = "lblbetrag" Me.lblbetrag.Name = "lblbetrag"
Me.lblbetrag.Size = New System.Drawing.Size(93, 22) Me.lblbetrag.Size = New System.Drawing.Size(93, 24)
Me.lblbetrag.Text = "ToolStripLabel2" Me.lblbetrag.Text = "ToolStripLabel2"
' '
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 27)
'
'grpOffeneRechnungen 'grpOffeneRechnungen
' '
Me.grpOffeneRechnungen.Controls.Add(Me.C1Abgeschlossen) Me.grpOffeneRechnungen.Controls.Add(Me.C1Abgeschlossen)
Me.grpOffeneRechnungen.Dock = System.Windows.Forms.DockStyle.Top Me.grpOffeneRechnungen.Dock = System.Windows.Forms.DockStyle.Top
Me.grpOffeneRechnungen.Location = New System.Drawing.Point(0, 49) Me.grpOffeneRechnungen.Location = New System.Drawing.Point(0, 51)
Me.grpOffeneRechnungen.Name = "grpOffeneRechnungen" Me.grpOffeneRechnungen.Name = "grpOffeneRechnungen"
Me.grpOffeneRechnungen.Size = New System.Drawing.Size(773, 161) Me.grpOffeneRechnungen.Size = New System.Drawing.Size(871, 161)
Me.grpOffeneRechnungen.TabIndex = 22 Me.grpOffeneRechnungen.TabIndex = 22
Me.grpOffeneRechnungen.TabStop = False Me.grpOffeneRechnungen.TabStop = False
Me.grpOffeneRechnungen.Text = "Abgeschlossene Behandlungen" Me.grpOffeneRechnungen.Text = "Abgeschlossene Behandlungen"
@@ -280,13 +231,14 @@ Partial Class frmFakturierung
Me.C1Abgeschlossen.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.C1Abgeschlossen.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1Abgeschlossen.PreviewInfo.ZoomFactor = 75.0R Me.C1Abgeschlossen.PreviewInfo.ZoomFactor = 75.0R
Me.C1Abgeschlossen.PrintInfo.PageSettings = CType(resources.GetObject("C1Abgeschlossen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.C1Abgeschlossen.PrintInfo.PageSettings = CType(resources.GetObject("C1Abgeschlossen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1Abgeschlossen.Size = New System.Drawing.Size(767, 142) Me.C1Abgeschlossen.Size = New System.Drawing.Size(865, 142)
Me.C1Abgeschlossen.TabIndex = 3 Me.C1Abgeschlossen.TabIndex = 3
Me.C1Abgeschlossen.Text = "C1TrueDBGrid1" Me.C1Abgeschlossen.Text = "C1TrueDBGrid1"
Me.C1Abgeschlossen.PropBag = resources.GetString("C1Abgeschlossen.PropBag") Me.C1Abgeschlossen.PropBag = resources.GetString("C1Abgeschlossen.PropBag")
' '
'ContextMenuStrip2 'ContextMenuStrip2
' '
Me.ContextMenuStrip2.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuAusschliessen, Me.ToolStripAbschlussVorschau}) Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuAusschliessen, Me.ToolStripAbschlussVorschau})
Me.ContextMenuStrip2.Name = "ContextMenuStrip2" Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
Me.ContextMenuStrip2.Size = New System.Drawing.Size(148, 48) Me.ContextMenuStrip2.Size = New System.Drawing.Size(148, 48)
@@ -307,9 +259,9 @@ Partial Class frmFakturierung
' '
Me.GrpAusgeschlosseneRechnungen.Controls.Add(Me.C1Ausgeschlossen) Me.GrpAusgeschlosseneRechnungen.Controls.Add(Me.C1Ausgeschlossen)
Me.GrpAusgeschlosseneRechnungen.Dock = System.Windows.Forms.DockStyle.Top Me.GrpAusgeschlosseneRechnungen.Dock = System.Windows.Forms.DockStyle.Top
Me.GrpAusgeschlosseneRechnungen.Location = New System.Drawing.Point(0, 210) Me.GrpAusgeschlosseneRechnungen.Location = New System.Drawing.Point(0, 212)
Me.GrpAusgeschlosseneRechnungen.Name = "GrpAusgeschlosseneRechnungen" Me.GrpAusgeschlosseneRechnungen.Name = "GrpAusgeschlosseneRechnungen"
Me.GrpAusgeschlosseneRechnungen.Size = New System.Drawing.Size(773, 161) Me.GrpAusgeschlosseneRechnungen.Size = New System.Drawing.Size(871, 161)
Me.GrpAusgeschlosseneRechnungen.TabIndex = 23 Me.GrpAusgeschlosseneRechnungen.TabIndex = 23
Me.GrpAusgeschlosseneRechnungen.TabStop = False Me.GrpAusgeschlosseneRechnungen.TabStop = False
Me.GrpAusgeschlosseneRechnungen.Text = "Ausgeschlossen" Me.GrpAusgeschlosseneRechnungen.Text = "Ausgeschlossen"
@@ -328,13 +280,14 @@ Partial Class frmFakturierung
Me.C1Ausgeschlossen.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.C1Ausgeschlossen.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1Ausgeschlossen.PreviewInfo.ZoomFactor = 75.0R Me.C1Ausgeschlossen.PreviewInfo.ZoomFactor = 75.0R
Me.C1Ausgeschlossen.PrintInfo.PageSettings = CType(resources.GetObject("C1Ausgeschlossen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.C1Ausgeschlossen.PrintInfo.PageSettings = CType(resources.GetObject("C1Ausgeschlossen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1Ausgeschlossen.Size = New System.Drawing.Size(767, 142) Me.C1Ausgeschlossen.Size = New System.Drawing.Size(865, 142)
Me.C1Ausgeschlossen.TabIndex = 3 Me.C1Ausgeschlossen.TabIndex = 3
Me.C1Ausgeschlossen.Text = "C1TrueDBGrid1" Me.C1Ausgeschlossen.Text = "C1TrueDBGrid1"
Me.C1Ausgeschlossen.PropBag = resources.GetString("C1Ausgeschlossen.PropBag") Me.C1Ausgeschlossen.PropBag = resources.GetString("C1Ausgeschlossen.PropBag")
' '
'ContextMenuStrip1 'ContextMenuStrip1
' '
Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolstripmenuAusschlussaufheben, Me.ToolstripAusschlussVorschau}) Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolstripmenuAusschlussaufheben, Me.ToolstripAusschlussVorschau})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(186, 48) Me.ContextMenuStrip1.Size = New System.Drawing.Size(186, 48)
@@ -351,11 +304,31 @@ Partial Class frmFakturierung
Me.ToolstripAusschlussVorschau.Size = New System.Drawing.Size(185, 22) Me.ToolstripAusschlussVorschau.Size = New System.Drawing.Size(185, 22)
Me.ToolstripAusschlussVorschau.Text = "Vorschau" Me.ToolstripAusschlussVorschau.Text = "Vorschau"
' '
'DateTimePicker1
'
Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.DateTimePicker1.Location = New System.Drawing.Point(754, 24)
Me.DateTimePicker1.Name = "DateTimePicker1"
Me.DateTimePicker1.Size = New System.Drawing.Size(109, 20)
Me.DateTimePicker1.TabIndex = 24
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(679, 27)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(69, 13)
Me.Label1.TabIndex = 25
Me.Label1.Text = "RG-Datum:"
'
'frmFakturierung 'frmFakturierung
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(773, 363) Me.ClientSize = New System.Drawing.Size(871, 363)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.DateTimePicker1)
Me.Controls.Add(Me.GrpAusgeschlosseneRechnungen) Me.Controls.Add(Me.GrpAusgeschlosseneRechnungen)
Me.Controls.Add(Me.grpOffeneRechnungen) Me.Controls.Add(Me.grpOffeneRechnungen)
Me.Controls.Add(Me.ToolStrip1) Me.Controls.Add(Me.ToolStrip1)
@@ -388,12 +361,6 @@ Partial Class frmFakturierung
Friend WithEvents ToolStripButton4 As ToolStripButton Friend WithEvents ToolStripButton4 As ToolStripButton
Friend WithEvents ToolStripButton2 As ToolStripButton Friend WithEvents ToolStripButton2 As ToolStripButton
Friend WithEvents ToolStripButton3 As ToolStripButton Friend WithEvents ToolStripButton3 As ToolStripButton
Friend WithEvents ToolStripLabel1 As ToolStripLabel
Friend WithEvents tstxtsuche As ToolStripTextBox
Friend WithEvents tsbtnfirst As ToolStripButton
Friend WithEvents tsbtprev As ToolStripButton
Friend WithEvents tsbtnnext As ToolStripButton
Friend WithEvents tsbtnlast As ToolStripButton
Friend WithEvents grpOffeneRechnungen As GroupBox Friend WithEvents grpOffeneRechnungen As GroupBox
Friend WithEvents GrpAusgeschlosseneRechnungen As GroupBox Friend WithEvents GrpAusgeschlosseneRechnungen As GroupBox
Friend WithEvents C1Abgeschlossen As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents C1Abgeschlossen As C1.Win.C1TrueDBGrid.C1TrueDBGrid
@@ -410,4 +377,7 @@ Partial Class frmFakturierung
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
Friend WithEvents lblTotal As ToolStripLabel Friend WithEvents lblTotal As ToolStripLabel
Friend WithEvents lblbetrag As ToolStripLabel Friend WithEvents lblbetrag As ToolStripLabel
Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
Friend WithEvents DateTimePicker1 As DateTimePicker
Friend WithEvents Label1 As Label
End Class End Class

131
DPM2016/Fakturierung/frmFakturierung.resx
View File

@@ -268,133 +268,6 @@
wJoACUUiMjHalXRcPsqEWL7fcMfjSR5gxpzZAtc7N97anSgWi1fEuERy5+69S+73H/me4aHeYiLCv6Cb wJoACUUiMjHalXRcPsqEWL7fcMfjSR5gxpzZAtc7N97anSgWi1fEuERy5+69S+73H/me4aHeYiLCv6Cb
MWDevIil18vI5vOjYryr+w+lt7X6Z9sGw2xxmGdN88VPPn/tpeUVfL7PNf4Gp8To/ysQCBzhOO5yuVw+ MWDevIil18vI5vOjYryr+w+lt7X6Z9sGw2xxmGdN88VPPn/tpeUVfL7PNf4Gp8To/ysQCBzhOO5yuVw+
1l2RSH4BvQRqc//87N0AAAAASUVORK5CYII= 1l2RSH4BvQRqc//87N0AAAAASUVORK5CYII=
</value>
</data>
<data name="tsbtnfirst.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAb0SURBVFhH7ZZ5UJNnHsftzh6ddXd2XbfiScIhuNTR7bpd
ioqplktBlHIjKoIHlTOQEO5gICRAIAeHBAiQEJAz3ISWpWkpp3Jf4irbbbvq2N0d9x+3O63td5+8xsxg
mFbtrH/1O/OZ58n7zLzv53l+v/edrPkhLyoc+UfmvWN/82gbvP5Lw6UXF9sgdTgjrvPB3PI/EVf4wRKX
y/2RYelRUir+SmMrbujsmR1fboro+DJAOKGLr1igGZafO3Y+Db+x8VNr3Nmd6J3/HDP3vsAbYTWw9axY
eQqsigXd4Mxt1HeP4UrXGHSTf0eSYl5nWH6uWAfWMmwCVZ9yykegW76PPy//m3Aftr6lpgK001VfyZS9
kFZ1UlQ166C/Zlh+pjAYuh9vD1Dx7MKbHir6ltA5dwcds7fRTjaoH228i4hAzkoBu9Ae5JZqjMjr3oXN
iUYYlp86tv5V9O0B1UMns3rRMHwT9SO3jFwxjNbHxVj/pMCO023IlDUYKVJ2wzpA/UwCNv5qf1v/2vsZ
1cNQ6RZR9f4CYRHVBP34eG7lKTIV0O82RaQ2UlDRDivfqqcS2BWsWrvdX6VwYXK/kWquoqRrApe7p1Cq
nYZcT+/MI7QzKCOjpbvQVEC/Wxa/CuxsJYWwpAUWXvLvFLAOUL5mFVC9FCbshrh5CAXNw5BoxiBtuwZZ
+zgKOyZQ1DlpRP/b4nAW1u9lrxSw8qlEXFY1WAIiQsgu0YDuWfgtAnjJJqCa+fqJmv+yi7XIVPaBX6OD
sG4AuQ1DEDWNIr/5KsSaaxC3jhMmHqEZB8310ioCb8sRL6gFO6eeQlDaAfpR8aoClsGqDda+lT1usXVI
KGxFUkknUsu04Fb2gafUga8egODKMBEZQ17TNYiax4nMBBn1jMPcOc1UwPJ4IVi5TUgQtVAIy7Ww8Mgz
EbDyq3TdHlh21y9RhQhyUtF5DYiTaJBQ3IlkeS/SFf24pPwQWephInEVOY3jyG2aRF7zFIV+bv5W8ioC
ngXgFLQjUdKFJGk3+GXvweJItlHAzrfxp9beZaI9DPnXARw5TqXIEcqtxAV+LSKJOFPSTiS0SC7rR3rl
AHg1I+DXjUPYMImcpmny4Bkj5oc4qwh45CBRpkWC9F1E5nThSFQV6G48o4Dl8ct9jqFF8I6VwDtGAh+m
DEGJcoSkK3GeX4/IvFYwpT1IuNyPFMVHyFCNIatuAoL6aSIwS3Y/Z4R2iEUEQlcKWBzhw4vTCJ+kNgqv
hEbQXdOMAhaesmr7YDHePHkJrmez4fGOCN7MYgQmKhCSUYsLghZEFXQjvrgfSeVD4CqvIbN2CoKGWeQ2
L0DUskiRr1kE7WCcqQDdLQPBPC1OZ/VRnOD1gO6ctKIHaIezw60YvAebHS6AzojAH7zScCg0H17MCpxM
q0c4Obn4Ih1SFSPIrCF1b5yDpHWJvH43cblnmXwbCGSkH4xZRcAlBedEH+CieJBCP6c5sU2akOaU+rtt
LqlTO9yTYe3Mxk7PDNgH5ePguTJ4MOvgl9qJEH4f3ikYRFzJOJIr53BJfQP8+lvIblgGv/EWzBmRWG/7
hADNmYPo4lGw5JMUUUWjpFliTQT0sXaL+tmmA6yCVxmMr/8UmAMHUhqn8Ap4shoRyO1GmPB9RElHkFA+
jYyaJQibPoa44zYkHXeQ3/EZEbhoKrDtrTiwK6bArblOwSqfwrY3I1cVeJxNDhGuFk4xdxnnC+ESUYXj
7CYEZWhxNleH6MIxJCpmwav7C0Stn6Gk9x8ofe9fkGrvwvxAOBHwfELgYDSSVfMQNn9MkaScx1ZG+LcK
6GPmEL5hg31Y1xshOfBO0RCBHpzNIQKyUSRWzIBXewN5mk9R2HMPxdrPIe65g20HzpkKbCHHklp3HZLO
OxSptdexxfHsdwo8ziuvBUfauIT9x5fXhlBSggjJMFXKNOUiVf/clk8oEUHbJ9jqGGYqsJlYpdQtUbXS
k0IENu0PeWoBfdbt8ttp9nrwrAtbgXDpIGKKxqg+SKteQIZ6iWrG9Iab2EzuayKwcf8ZcNQLVMPo4ZBy
mO07+UwC+tBop19e9+rbsp1+Kd+EFg1QvRBfOoGEsmlwiAyL3HfjvlOmAltpwV9Fq2aQrlqkiCLz39K8
nusvmT6/3uHpvu6PfveO8ltwsXAUkeSt0HOxbBxme4OxxnbvSoFjZ5IHA6XtiK2ZR6x6Hu6ZNbC09/nQ
sPxcWbvzqNkvbN20u8mX85RsAKGCfpyRDeEVhwBTASY33/pYSMLgFrvAhxvt7B7a7vcd2OUYbGFY/j55
aa2lU+yvdh/7woVHvhOKMdIDQaYl+H/n5/R9u1+mOc4zOBLYB8Y92LPn/E8MSy8u+oc6xwgP72WJf2+4
9ENI1qz5H5t6trPpJ4eoAAAAAElFTkSuQmCC
</value>
</data>
<data name="tsbtprev.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAATuSURBVFhH7ZVrTFNXAMfNMrclRp0vwAeyDQukkSxOEUFd
dRCQKI/J++F4KagoIFZABG8FKgVaKNDCqEBpeZZHEdCWTR4O5VVKizAJm+A2cZpNk73MPixu/x2uNS77
JlI++Ut+ueeeJj2/3nt676LXGBNK3mfSofneUavVLjZMLRw2wVWhB1NUv4/ffYyEoq96DdPGZ1Nw1TIr
/+pa14RWtOsfQv/gCbaFyWH42LiQxXdY+cmmT5f0oWf6F3Td/ZX2PU+xkQMo6g1GYFWK/QHFX5KOCVwZ
f4i2sQe07UQL9wLjBTB8KtczAuTdARw16vvuoH5w+oUDU1AMTmHjfoFxAqyCZJ6bD0kfpVb0oer6BCq7
iT3/0XBuvi97fgMsQqXvMPzlYqdY6h+hUoOSqzp8rtKjVD2K0o5bkBBnj8/H61248xdg4yffzAiQjodx
r0LY3I/85gEIW4ZQeHkYRa1aiNpGIGrXvbBNh3VOF+YnwMq/8hgz/NKfbJEamfJOXKzuAa+uFzmKPvAb
B5HXrEG+cpgEaYkjtPlKLdbuTX21ABsv2apN/pUtLrE1SCy6jLMl7Ui7pAanohMZsh5wq3tJSD8JGUJu
4zD4TVoImkcgaBqhx2as5LkHWPpL99j4SWd8k+SI4dUgjt+A0wUtSBJfwTnJF6AqupAu6wW3ph9ZdRpk
N2hJhA65TXraHDI23c1++QAWi3pzk7ckk3mIehqQJEHoOQkiOVIc5dbgZG4jTglbkShWk4guUNJepFcN
gFurBU+hI4uOEm8ZHIXprlMvH2DpVXJtV4QI3vEFRCF8E4oQnCxBOCVDNLceJ/gtSChUIamkC6nlN8CR
a5BZO4IsxSiyG8eQ0zROm0s03Rn78gEWnsJrO0Pz4RSWAbcoHtyPC+CTIEbQ2QqEc2oRnaVEbJ4KbHE3
Usr6QMmGkVmjJ1dgdvHb4DdP0AqUEzBzjJnbLbBw42V8wKSertsRBYZTHLb7cuByRAgfdgXCOA2I4auQ
WHwd56WDZA/oyab7GoWtkxBfuUOeC9PPVE/DzOHY3DehuWvabnPXcz9YuyXD0pkNWw8O7IME+CRKggOn
6uCX2o4wbieO5d1EQrEWKRXj4FRPgls/9cyGKZiRH2D4urlhwYp7dwOLrbA9yIFdAA8OIUI4Hy2HJ7sB
gZQKkbxunCwcRNKlUXCqJsFr/A55rfeR3/YjBG0zMLOPfLWA55g6xIRb7GP/sTdaDJfjUnidaUIweQkd
ybmOuKIhnC0fQ0btHQguz6C44xFKvnyMAvVDmNqHzU/ALKvtoxlr7SM0H0cJ4Z2iRBAJOJzTg1gSkFw2
hvTab8FvuQeR6ieI1T8jnwSYbP9s/gJotkYtXr0lJIvJTHkaSN4JEeQWnCjox5lSPc7LJ3BRMY1c5T1a
Xts9mNgFz3OAgVUf+u01cQyd8Uirw1HhTcSLNGQf3EKabAIXar6hpRqnsGZboHECZlnG9Fm5wvZgs11E
FqLE/YgjEexSHb0hZ2POVN/Gqq1+xgt4znIbz8MbHA4/8SHPhuOFAzhZQCTHmHIdVn7kbfyAWZZau1ov
Zx7Q7ogXIbzwBv33DC8ewIotXgsTQMP0fWuJpXOOOYv1t3t2O4LKhrBm66cLGGDg7Y17nJa8v/u+c7oE
tocSfzNMLyzWjh5L98VmhdjFXHQwTL3mfyxa9C8BQ0Drrw8VXgAAAABJRU5ErkJggg==
</value>
</data>
<data name="tsbtnnext.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAUdSURBVFhH7ZVpTJRXFIZJU5smRls3tFrBqiyl4q4oLgOK
CrVlU8qmIIggSxEQAQecBYZFBnSQfRmWmWEoWwHZtAOOM4DAMCMooqao1DU1rTG2tj8a27eXLzf910SB
8ZdP8iY3955z7pt7zpfP4B3/h1arndap+claKBkypFtvlyiRSj1871e4stt+s/CW+9Ltt8f6QxKM/PwH
mq4+wa7IJph6yuTLvaUz6bH+WeKUC+3jl+i89wLKO88RldcD028q7pp7SzfREP1i/HUWVHeeoeXGU0at
I09ReOEWrL6q+cvMU8o24HLfo6H6wWhvJtqHH6NO+4BRLaP7qOkbg1fiBZh4SC6Z+JQvouFTz2L706jr
H4Os685/knaNQqoeRWX3KLgVfVjhU/bL514yJ5oytSzanQzJ5dsQd9xCKZG44yajEgXRDyMovngDOeeH
sDuS+4+ZuyTX2LfsQ5o6NSzcySc9H0Z+O1XbMPLariOv9RpyW4aQ0zyIc006YkKHIKECJp5lw+YHJCto
+uT5xDYBWU2DRENUZN04CFHDVZz9XovMugFk1PYjvboXaVXdSChRwuJw8Z+mnpJgWmJyLGDFIaNOh8z6
q4zG18JaLdJrBnC6WkMu7UNKZQ8EUjX45UpwxR3glCjgHFuP5e7lDeYHK+bQUhNj/rZocpGWSMcojaxT
vxtAirwfAlkvEiXd4JWrwBErEV+kQFx+O6KzWxAlaoRfUj1WHix7uGxfsQ0t9+bM3xKJlCodkuVaRoJK
LZJkGnJxH7n4Ck6VqhFfrERcQQeicy4gUtSM6KxmHBVUYd+xXKxy4sDYgvtqqUuBgMXivk/Lvj6G1uEQ
yHVIlGnBl45rgHx6GnDK+xAv7kGCuAsxeZ0Iy2jFIV4tXCJLsclLiBWOPJjsjoXR9nAYbjyCT3ckYJlz
voKWfX0MN4cgvlSDE4W9OJ5/BRHZXQgTqcjEd8Iv+SLc2I1wPF4N+28l2BFYjK2+2djgIcRK50SY2Z+E
MSsCC6yCsMSOjaVOogkYIMlh53oQmKFCoFCFgHQl/FM74StQwJvfDveEZriQgdsbIceu4FJs98+DlVcm
VrkIYO7AJq8QAzPSAmOHtKSJtWBjAKIKBhCW1YtQ0RUEn+lGEDFzOO0SY8KL14b97CbmFfaEVsDmcAE2
eZ/BGtdkrNkvwHJ7/v3Fe/jbaLk3x3CDH2JLh8hfUIvI3AGEZ/czRoIy1PAnJg4mXYT7qRY4n6iFA2mD
bUAhtvhmYZ17Cox2nKg2ZnE/pqUmxrx1PkiovInY4muIKRokc6DDsRwNMdGDI+mX4ZusgCenlWmDQ7gU
dqFFMP4y+veFW8P9aInJMXetN/g1ozhVMYL4shuILbnGmAg/14ejmWr4pXTAk9uGfewG2IbkYPHWIM0i
qyATmj555qzxgKBxDInyH8GV3mZMxBQNIYK8wvg8+JGB9EhqgYUH95Xhep9Ug3WB02jq1DB7tRvS2h4h
teYeBFWj4EhuIY68wvg8BJM2uPBqYGQT+HD+Wi9bmjK1zFrpinTFU2Q0PGBM8GS3cVJ8HWGFGliHnMHc
1W71My32z6bhU89Hlk4QKp/h7PnHSKsdA5cYOJSvwmcOR1/OsnQJoGH6Y+YXe5Gpfs4Y4NXdhR1Hglmr
XLUzLB3NaIh+mbPaEQkdTxBC/gMmLNbf003t0w0s3D6gx/rH8kDMi10CMWaY2j2avtRmJ91+e2wITdls
H5l6wMzafwbdeoceMDD4F+v0NgfWMPF+AAAAAElFTkSuQmCC
</value>
</data>
<data name="tsbtnlast.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAcBSURBVFhH7ZZ5TJRnHsdJs9ts0ujWar0QhxtKvahrsYoO
KCCo5VBYTkUQQQFHwIEBZmQ4hmE45b6HYQ4GGUBukIKOICjHjEABcReraT02ZtM03TX7h3X3uw9v3kCb
oY01qX/1k3yTJ8/veL/z/J7J++r9zo/h8/nvHOd1WzNj2tfQW28XpwtNN29oH8P6tPJflv7yQHr77fGR
txjT/3iBFs0zOEa3wdxXoTT1l6+kw28Mt/ohI1b8N7VNdPvLDRHtL31EWvXF6lkGHV7C0K0EmqcvcP3h
91A/+A4xpcMw/6v0K3Iau+mUN4JdPasemnqKK12jqO8chfruEySIZ9R0eAnG5wUYePAtOmeeU+qafY6K
a3OwOap6aeErTySX5B069VfBCJT8UCi9hgJJByVJkxoLe3R4ic1HctEz/RRNmm8oNVL6GqqRR/BLvQYz
H9kNs5O1+nT6a2MV3I2s8quLqlD2wtxfBTq8hIFzJppGH0Fx68Gi5LfmIR+cR93QPPjSEWw5KfnnR34K
N7rktbAMbEVaYcOiiqVdMPVR6BrQd0qH7OZ9iPvnUEMk7r9HqbqP6ItZVPXOoLh9Ek7R/P9ZeMtKyDH+
iS79RRZ+LTdHsai86jaYeEl0DWw8mEJmPo2yHlrd0yjt/hKlXVMo6ZxEcccECtu0xIQWYdl9MPOVTFsG
yLbQ5T/Lwq9lp0sQK5RSEpU2w8ijQtfABnseCtomiCZpkXXrBPJb7uLyVQ1ym8aR0ziKrIY7ENUPgVet
htXpqv+Y+8rO0S2WxcSzBjGCWrAziBEiYelVGLoW6RpYz4xHTpMWuc13KS2ssxs1yFKNI7NhjDx0BMK6
YQjkg0ipVYMv7kdSdR/cOc0w9a5tsTwhXU23+gkmxypwMaMOsZlXKGWUt8Pw88u6BtbtY5MHaYi0lERk
nXFlHELlKASKO0iVDSG5dgBJYjW4lX2IL+sBu6gTMfmtCEprxrYTkscmx6vs6HaLGLsXgZ3ViLicZkqi
qh4YHc1exsDeaAjrtUhXaigJ6jRIU4yRB4+QB9/GpZpBcKvUiC/vB7v4GqLzO8Au6MBZQT2OXyjBdrck
MKz4r4w9ygVMJv8PdFs9Y9c8cPLaEJ/fiYSCLqRXfgGjw0JdA2v3sCBQapGq0CBFvqBx8tcbQ1LtCLji
YfDEtxBXeh2ROV04ldwIj+ga7PbLxhbXZJg5cbB5PwtrPz2DTQd4MHEv66Pb6hkfzUR8YQ/iCnoRmdmJ
w+clMHROXcbAZ+Hg1owhtuIOLpbdRlTRLUTmD5Abfx1B6b3wSmyF68UGOJ+X4UBoFWwDi7DLJxvb3FNh
4ZwABjMK623CYOiQCGO3/EUDRofT4cFRwTOhlZJHnAqGhy4tY4AURxYOIzRnAKHZAwjJUiM44zoCBX3w
T+mBN6+DNGrGkSglHM/VYH9wKWz8crHdQwBLl0RyCnGwICNguIjSfjwCQ+dkBKT2UH2oXqndMHRMWMbA
pyGIKR9HZMEdROTfxrm8IYQRM6dFN6hCv+RueCa2UadwKEIKu9Pl2O2fB+tj6bD2FMDUOeVrg0Mp++h2
ixg6cXEm5ybCLw9RWlgzHGKXMbArCJyaSfIW1CC6ZBysolHKSFjOIIKJiRNpvfC+1An32Ea4kDHYh1Rg
b2ABdnoLsflAbAODyX+fbvUTGI4csEpGwK64S+l88QjJj9I18OHOk+DV3QOnagpxlRPkHmhxoXiMmBjG
maybCEzvg29SFzUGF5YcDhGVYBxm/3ujLSuIbrEsBgdjEFs9Ab58jhK7agIGdpG6BtZ84o8U1TwuSWfB
lcyAUz1FmWAVjuBs7iCChP3w5XfjeGIL7MOLYWAbNqZvE2ZGl/8sBvYsJMpmIGp6RClBOoNNzLO6BlZb
+0DQ+gipyr8Tp/cpE3GVk4gip7BwH4LIhfRJ64SVD//V2r+czNDbGfpHuvQX0WeGg6ecQ37HM0q8ujno
7wvRNfDBDi+Iup8gQ/UQgvp5JMnmEE9OYeE+nCNj8EhWYbNd6ON1n/jZ0yWvxcb9Z8BV3sfl9qeUuMTA
BttTugZWbTuGrL7nyGn5hjKRrLhPPp2+RGTFGPaE52HNDq/mlVaeH9Dpr816W3K5FbMQNZIREHHIONbt
PaFr4M9b3ZCt/pZyuZDIJwZOlQ3AyOXsi1VbPULotF/NJkbADyzZFDnRe5TOk/UahofuJ9nKj48gd/A7
ykBy01dwSJJh1fZjmhVbXS3olDfCLShxyLegDVHyGUQpZnAkTQ5jG88BOrzE6h2u4PU/Qzh5D5gxmf99
z9w5S8/K6106/MZE83NN3U7FDelb+b5ab2X1ysLWa3DbvgAjOrzE1oC47x0FYqwwd3jynrHdQXr77bEr
QviZc3RGgMWe4BX01u/8xujp/R8+75YoB9R89wAAAABJRU5ErkJggg==
</value> </value>
</data> </data>
<metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -437,7 +310,7 @@
</value> </value>
</data> </data>
<data name="C1Abgeschlossen.PropBag" xml:space="preserve"> <data name="C1Abgeschlossen.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;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;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{}FilterBar{BackColor:Info;}&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, 765, 140&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, 765, 140&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{}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;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}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, 863, 140&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, 863, 140&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data> </data>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>231, 17</value> <value>231, 17</value>
@@ -479,7 +352,7 @@
</value> </value>
</data> </data>
<data name="C1Ausgeschlossen.PropBag" xml:space="preserve"> <data name="C1Ausgeschlossen.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;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;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{}FilterBar{BackColor:Info;}&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, 765, 140&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, 765, 140&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{}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;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}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, 863, 140&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, 863, 140&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data> </data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>

20
DPM2016/Fakturierung/frmFakturierung.vb
View File

@@ -19,6 +19,8 @@
spalten.Spaltentitel_aktualisieren(Me.C1Ausgeschlossen, ausgeschlossen.TableName, ausgeschlossen) spalten.Spaltentitel_aktualisieren(Me.C1Ausgeschlossen, ausgeschlossen.TableName, ausgeschlossen)
refresh_total() refresh_total()
Me.DateTimePicker1.Left = Me.Width - Me.DateTimePicker1.Width - 20
Me.Label1.Left = Me.DateTimePicker1.Left - Me.Label1.Width - 20
End Sub End Sub
@@ -79,6 +81,12 @@
Dim anzahlraten As Integer = 0 Dim anzahlraten As Integer = 0
Dim Empfaenger As String = "" Dim Empfaenger As String = ""
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + r.Item("nrbehandlung").ToString) db.Get_Tabledata("Behandlu", "where nrbehandlung=" + r.Item("nrbehandlung").ToString)
If Me.DateTimePicker1.Value.ToShortDateString <> Now.ToShortDateString Then
Dim r1 As DataRow
r1 = db.dsDaten.Tables(0).Rows(0)
r1.Item("RGdatum") = Me.DateTimePicker1.Value
db.Update_Data()
End If
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten") anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
Empfaenger = db.dsDaten.Tables(0).Rows(0).Item("Empfaenger") Empfaenger = db.dsDaten.Tables(0).Rows(0).Item("Empfaenger")
If anzahlraten = 0 Then anzahlraten = 1 If anzahlraten = 0 Then anzahlraten = 1
@@ -219,4 +227,16 @@
End Try End Try
End Sub End Sub
Private Sub ToolStripLabel1_Click(sender As Object, e As EventArgs)
End Sub
Private Sub C1Abgeschlossen_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Abgeschlossen.MouseDown
Me.C1Abgeschlossen.Bookmark = Me.C1Abgeschlossen.RowContaining(e.Y)
End Sub
Private Sub C1Ausgeschlossen_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Ausgeschlossen.MouseDown
Me.C1Ausgeschlossen.Bookmark = Me.C1Ausgeschlossen.RowContaining(e.Y)
End Sub
End Class End Class

306
DPM2016/Finanzaen/Finanzen.Designer.vb generated
View File

@@ -30,6 +30,7 @@ Partial Class Finanzen
Me.btnBuchen = New System.Windows.Forms.Button() Me.btnBuchen = New System.Windows.Forms.Button()
Me.chkVorauszahlung = New System.Windows.Forms.CheckBox() Me.chkVorauszahlung = New System.Windows.Forms.CheckBox()
Me.lblVorauszahlung = New System.Windows.Forms.Label() Me.lblVorauszahlung = New System.Windows.Forms.Label()
Me.cbboxKonto = New DPM2016.MyCombobox()
Me.lblKonto = New System.Windows.Forms.Label() Me.lblKonto = New System.Windows.Forms.Label()
Me.lblBetrag = New System.Windows.Forms.Label() Me.lblBetrag = New System.Windows.Forms.Label()
Me.diBetrag = New DevComponents.Editors.DoubleInput() Me.diBetrag = New DevComponents.Editors.DoubleInput()
@@ -48,26 +49,25 @@ Partial Class Finanzen
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ZahlungBuchenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ZahlungBuchenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.Label1 = New System.Windows.Forms.Label() Me.btnzurücksetzen3 = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label() Me.btnzurücksetzen2 = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label() Me.btnZurücksetzen1 = New System.Windows.Forms.Button()
Me.Label4 = New System.Windows.Forms.Label()
Me.Mahndatum1 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Mahnfaelligkeit1 = New System.Windows.Forms.Label()
Me.Mahngebühr1 = New System.Windows.Forms.Label()
Me.Mahngebühr2 = New System.Windows.Forms.Label()
Me.Mahnfaelligkeit2 = New System.Windows.Forms.Label()
Me.Mahndatum2 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label() Me.Label10 = New System.Windows.Forms.Label()
Me.Mahngebühr3 = New System.Windows.Forms.Label() Me.Mahngebühr3 = New System.Windows.Forms.Label()
Me.Mahnfaelligkeit3 = New System.Windows.Forms.Label() Me.Mahnfaelligkeit3 = New System.Windows.Forms.Label()
Me.Mahndatum3 = New System.Windows.Forms.Label() Me.Mahndatum3 = New System.Windows.Forms.Label()
Me.btnZurücksetzen1 = New System.Windows.Forms.Button() Me.Label9 = New System.Windows.Forms.Label()
Me.btnzurücksetzen2 = New System.Windows.Forms.Button() Me.Mahngebühr2 = New System.Windows.Forms.Label()
Me.btnzurücksetzen3 = New System.Windows.Forms.Button() Me.Mahnfaelligkeit2 = New System.Windows.Forms.Label()
Me.cbboxKonto = New DPM2016.MyCombobox() Me.Mahndatum2 = New System.Windows.Forms.Label()
Me.Mahngebühr1 = New System.Windows.Forms.Label()
Me.Mahnfaelligkeit1 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Mahndatum1 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.GrpZahlung.SuspendLayout() Me.GrpZahlung.SuspendLayout()
CType(Me.diBetrag, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.diBetrag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dtdatum, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dtdatum, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -145,6 +145,18 @@ Partial Class Finanzen
Me.lblVorauszahlung.TabIndex = 17 Me.lblVorauszahlung.TabIndex = 17
Me.lblVorauszahlung.Text = "Vorauszahlung" Me.lblVorauszahlung.Text = "Vorauszahlung"
' '
'cbboxKonto
'
Me.cbboxKonto.Dataselection = Nothing
Me.cbboxKonto.Displaymember = Nothing
Me.cbboxKonto.Location = New System.Drawing.Point(147, 109)
Me.cbboxKonto.Name = "cbboxKonto"
Me.cbboxKonto.Size = New System.Drawing.Size(177, 21)
Me.cbboxKonto.TabIndex = 15
Me.cbboxKonto.Table = Nothing
Me.cbboxKonto.TableAlias = ""
Me.cbboxKonto.Valuemember = Nothing
'
'lblKonto 'lblKonto
' '
Me.lblKonto.AutoSize = True Me.lblKonto.AutoSize = True
@@ -373,117 +385,32 @@ Partial Class Finanzen
Me.GroupBox1.TabStop = False Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Mahnungen" Me.GroupBox1.Text = "Mahnungen"
' '
'Label1 'btnzurücksetzen3
' '
Me.Label1.AutoSize = True Me.btnzurücksetzen3.Location = New System.Drawing.Point(379, 85)
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnzurücksetzen3.Name = "btnzurücksetzen3"
Me.Label1.Location = New System.Drawing.Point(77, 16) Me.btnzurücksetzen3.Size = New System.Drawing.Size(98, 23)
Me.Label1.Name = "Label1" Me.btnzurücksetzen3.TabIndex = 18
Me.Label1.Size = New System.Drawing.Size(72, 13) Me.btnzurücksetzen3.Text = "Zurücksetzen"
Me.Label1.TabIndex = 0 Me.btnzurücksetzen3.UseVisualStyleBackColor = True
Me.Label1.Text = "Mahndatum"
' '
'Label2 'btnzurücksetzen2
' '
Me.Label2.AutoSize = True Me.btnzurücksetzen2.Location = New System.Drawing.Point(379, 62)
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnzurücksetzen2.Name = "btnzurücksetzen2"
Me.Label2.Location = New System.Drawing.Point(175, 16) Me.btnzurücksetzen2.Size = New System.Drawing.Size(98, 23)
Me.Label2.Name = "Label2" Me.btnzurücksetzen2.TabIndex = 17
Me.Label2.Size = New System.Drawing.Size(86, 13) Me.btnzurücksetzen2.Text = "Zurücksetzen"
Me.Label2.TabIndex = 1 Me.btnzurücksetzen2.UseVisualStyleBackColor = True
Me.Label2.Text = "Mahnfälligkeit"
' '
'Label3 'btnZurücksetzen1
' '
Me.Label3.AutoSize = True Me.btnZurücksetzen1.Location = New System.Drawing.Point(379, 39)
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnZurücksetzen1.Name = "btnZurücksetzen1"
Me.Label3.Location = New System.Drawing.Point(292, 16) Me.btnZurücksetzen1.Size = New System.Drawing.Size(98, 23)
Me.Label3.Name = "Label3" Me.btnZurücksetzen1.TabIndex = 16
Me.Label3.Size = New System.Drawing.Size(77, 13) Me.btnZurücksetzen1.Text = "Zurücksetzen"
Me.Label3.TabIndex = 2 Me.btnZurücksetzen1.UseVisualStyleBackColor = True
Me.Label3.Text = "Mahngebühr"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(7, 16)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(37, 13)
Me.Label4.TabIndex = 3
Me.Label4.Text = "Stufe"
'
'Mahndatum1
'
Me.Mahndatum1.AutoSize = True
Me.Mahndatum1.Location = New System.Drawing.Point(77, 44)
Me.Mahndatum1.Name = "Mahndatum1"
Me.Mahndatum1.Size = New System.Drawing.Size(39, 13)
Me.Mahndatum1.TabIndex = 4
Me.Mahndatum1.Text = "Label5"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(7, 44)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(13, 13)
Me.Label6.TabIndex = 5
Me.Label6.Text = "1"
'
'Mahnfaelligkeit1
'
Me.Mahnfaelligkeit1.AutoSize = True
Me.Mahnfaelligkeit1.Location = New System.Drawing.Point(175, 44)
Me.Mahnfaelligkeit1.Name = "Mahnfaelligkeit1"
Me.Mahnfaelligkeit1.Size = New System.Drawing.Size(39, 13)
Me.Mahnfaelligkeit1.TabIndex = 6
Me.Mahnfaelligkeit1.Text = "Label7"
'
'Mahngebühr1
'
Me.Mahngebühr1.AutoSize = True
Me.Mahngebühr1.Location = New System.Drawing.Point(292, 44)
Me.Mahngebühr1.Name = "Mahngebühr1"
Me.Mahngebühr1.Size = New System.Drawing.Size(39, 13)
Me.Mahngebühr1.TabIndex = 7
Me.Mahngebühr1.Text = "Label8"
'
'Mahngebühr2
'
Me.Mahngebühr2.AutoSize = True
Me.Mahngebühr2.Location = New System.Drawing.Point(292, 67)
Me.Mahngebühr2.Name = "Mahngebühr2"
Me.Mahngebühr2.Size = New System.Drawing.Size(39, 13)
Me.Mahngebühr2.TabIndex = 10
Me.Mahngebühr2.Text = "Label8"
'
'Mahnfaelligkeit2
'
Me.Mahnfaelligkeit2.AutoSize = True
Me.Mahnfaelligkeit2.Location = New System.Drawing.Point(175, 66)
Me.Mahnfaelligkeit2.Name = "Mahnfaelligkeit2"
Me.Mahnfaelligkeit2.Size = New System.Drawing.Size(39, 13)
Me.Mahnfaelligkeit2.TabIndex = 9
Me.Mahnfaelligkeit2.Text = "Label7"
'
'Mahndatum2
'
Me.Mahndatum2.AutoSize = True
Me.Mahndatum2.Location = New System.Drawing.Point(77, 66)
Me.Mahndatum2.Name = "Mahndatum2"
Me.Mahndatum2.Size = New System.Drawing.Size(39, 13)
Me.Mahndatum2.TabIndex = 8
Me.Mahndatum2.Text = "Label5"
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(7, 67)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(13, 13)
Me.Label9.TabIndex = 11
Me.Label9.Text = "2"
' '
'Label10 'Label10
' '
@@ -521,44 +448,117 @@ Partial Class Finanzen
Me.Mahndatum3.TabIndex = 12 Me.Mahndatum3.TabIndex = 12
Me.Mahndatum3.Text = "Label5" Me.Mahndatum3.Text = "Label5"
' '
'btnZurücksetzen1 'Label9
' '
Me.btnZurücksetzen1.Location = New System.Drawing.Point(379, 39) Me.Label9.AutoSize = True
Me.btnZurücksetzen1.Name = "btnZurücksetzen1" Me.Label9.Location = New System.Drawing.Point(7, 67)
Me.btnZurücksetzen1.Size = New System.Drawing.Size(98, 23) Me.Label9.Name = "Label9"
Me.btnZurücksetzen1.TabIndex = 16 Me.Label9.Size = New System.Drawing.Size(13, 13)
Me.btnZurücksetzen1.Text = "Zurücksetzen" Me.Label9.TabIndex = 11
Me.btnZurücksetzen1.UseVisualStyleBackColor = True Me.Label9.Text = "2"
' '
'btnzurücksetzen2 'Mahngebühr2
' '
Me.btnzurücksetzen2.Location = New System.Drawing.Point(379, 62) Me.Mahngebühr2.AutoSize = True
Me.btnzurücksetzen2.Name = "btnzurücksetzen2" Me.Mahngebühr2.Location = New System.Drawing.Point(292, 67)
Me.btnzurücksetzen2.Size = New System.Drawing.Size(98, 23) Me.Mahngebühr2.Name = "Mahngebühr2"
Me.btnzurücksetzen2.TabIndex = 17 Me.Mahngebühr2.Size = New System.Drawing.Size(39, 13)
Me.btnzurücksetzen2.Text = "Zurücksetzen" Me.Mahngebühr2.TabIndex = 10
Me.btnzurücksetzen2.UseVisualStyleBackColor = True Me.Mahngebühr2.Text = "Label8"
' '
'btnzurücksetzen3 'Mahnfaelligkeit2
' '
Me.btnzurücksetzen3.Location = New System.Drawing.Point(379, 85) Me.Mahnfaelligkeit2.AutoSize = True
Me.btnzurücksetzen3.Name = "btnzurücksetzen3" Me.Mahnfaelligkeit2.Location = New System.Drawing.Point(175, 66)
Me.btnzurücksetzen3.Size = New System.Drawing.Size(98, 23) Me.Mahnfaelligkeit2.Name = "Mahnfaelligkeit2"
Me.btnzurücksetzen3.TabIndex = 18 Me.Mahnfaelligkeit2.Size = New System.Drawing.Size(39, 13)
Me.btnzurücksetzen3.Text = "Zurücksetzen" Me.Mahnfaelligkeit2.TabIndex = 9
Me.btnzurücksetzen3.UseVisualStyleBackColor = True Me.Mahnfaelligkeit2.Text = "Label7"
' '
'cbboxKonto 'Mahndatum2
' '
Me.cbboxKonto.Dataselection = Nothing Me.Mahndatum2.AutoSize = True
Me.cbboxKonto.Displaymember = Nothing Me.Mahndatum2.Location = New System.Drawing.Point(77, 66)
Me.cbboxKonto.Location = New System.Drawing.Point(147, 109) Me.Mahndatum2.Name = "Mahndatum2"
Me.cbboxKonto.Name = "cbboxKonto" Me.Mahndatum2.Size = New System.Drawing.Size(39, 13)
Me.cbboxKonto.Size = New System.Drawing.Size(177, 21) Me.Mahndatum2.TabIndex = 8
Me.cbboxKonto.TabIndex = 15 Me.Mahndatum2.Text = "Label5"
Me.cbboxKonto.Table = Nothing '
Me.cbboxKonto.TableAlias = "" 'Mahngebühr1
Me.cbboxKonto.Valuemember = Nothing '
Me.Mahngebühr1.AutoSize = True
Me.Mahngebühr1.Location = New System.Drawing.Point(292, 44)
Me.Mahngebühr1.Name = "Mahngebühr1"
Me.Mahngebühr1.Size = New System.Drawing.Size(39, 13)
Me.Mahngebühr1.TabIndex = 7
Me.Mahngebühr1.Text = "Label8"
'
'Mahnfaelligkeit1
'
Me.Mahnfaelligkeit1.AutoSize = True
Me.Mahnfaelligkeit1.Location = New System.Drawing.Point(175, 44)
Me.Mahnfaelligkeit1.Name = "Mahnfaelligkeit1"
Me.Mahnfaelligkeit1.Size = New System.Drawing.Size(39, 13)
Me.Mahnfaelligkeit1.TabIndex = 6
Me.Mahnfaelligkeit1.Text = "Label7"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(7, 44)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(13, 13)
Me.Label6.TabIndex = 5
Me.Label6.Text = "1"
'
'Mahndatum1
'
Me.Mahndatum1.AutoSize = True
Me.Mahndatum1.Location = New System.Drawing.Point(77, 44)
Me.Mahndatum1.Name = "Mahndatum1"
Me.Mahndatum1.Size = New System.Drawing.Size(39, 13)
Me.Mahndatum1.TabIndex = 4
Me.Mahndatum1.Text = "Label5"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(7, 16)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(37, 13)
Me.Label4.TabIndex = 3
Me.Label4.Text = "Stufe"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(292, 16)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(77, 13)
Me.Label3.TabIndex = 2
Me.Label3.Text = "Mahngebühr"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(175, 16)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(86, 13)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Mahnfälligkeit"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(77, 16)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(72, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Mahndatum"
' '
'Finanzen 'Finanzen
' '

4
DPM2016/Finanzaen/Finanzen.resx
View File

@@ -161,7 +161,7 @@
</value> </value>
</data> </data>
<data name="C1Zahlungen.PropBag" xml:space="preserve"> <data name="C1Zahlungen.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;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;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{}FilterBar{BackColor:Info;}&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, 637, 281&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, 637, 281&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{}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;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}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, 637, 281&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, 637, 281&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data> </data>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>124, 17</value> <value>124, 17</value>
@@ -203,6 +203,6 @@
</value> </value>
</data> </data>
<data name="C1OffeneRechnungen.PropBag" xml:space="preserve"> <data name="C1OffeneRechnungen.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{}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;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}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, 637, 118&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, 637, 118&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;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;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{}FilterBar{BackColor:Info;}&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, 637, 118&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, 637, 118&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data> </data>
</root> </root>

8
DPM2016/Finanzaen/Finanzen.vb
View File

@@ -316,4 +316,12 @@ Public Class Finanzen
Refresh_Zahlungen() Refresh_Zahlungen()
Get_Mahndaten() Get_Mahndaten()
End Sub End Sub
Private Sub C1Zahlungen_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Zahlungen.MouseDown
Me.C1Zahlungen.Bookmark = Me.C1Zahlungen.RowContaining(e.Y)
End Sub
Private Sub C1OffeneRechnungen_MouseDown(sender As Object, e As MouseEventArgs) Handles C1OffeneRechnungen.MouseDown
Me.C1OffeneRechnungen.Bookmark = Me.C1OffeneRechnungen.RowContaining(e.Y)
End Sub
End Class End Class

1
DPM2016/Finanzaen/frmMahnungen.Designer.vb generated
View File

@@ -199,6 +199,7 @@ Partial Class Mahnungen
' '
'tstxtsuche 'tstxtsuche
' '
Me.tstxtsuche.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.tstxtsuche.Name = "tstxtsuche" Me.tstxtsuche.Name = "tstxtsuche"
Me.tstxtsuche.Size = New System.Drawing.Size(100, 25) Me.tstxtsuche.Size = New System.Drawing.Size(100, 25)
Me.tstxtsuche.Visible = False Me.tstxtsuche.Visible = False

8
DPM2016/Finanzaen/frmMahnungen.resx
View File

@@ -437,7 +437,7 @@
</value> </value>
</data> </data>
<data name="C1Mahnungen2.PropBag" xml:space="preserve"> <data name="C1Mahnungen2.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;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;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{}FilterBar{BackColor:Info;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" 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, 792, 123&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, 792, 123&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{}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;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}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" FetchRowStyles="True" 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, 792, 123&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, 792, 123&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data> </data>
<metadata name="ToolStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>560, 17</value> <value>560, 17</value>
@@ -497,7 +497,7 @@
</value> </value>
</data> </data>
<data name="C1Mahnungen1.PropBag" xml:space="preserve"> <data name="C1Mahnungen1.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{}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;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}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" FetchRowStyles="True" 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, 792, 168&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, 792, 168&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;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;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{}FilterBar{BackColor:Info;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" 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, 792, 168&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, 792, 168&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data> </data>
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>453, 17</value> <value>453, 17</value>
@@ -557,7 +557,7 @@
</value> </value>
</data> </data>
<data name="C1Mahnungen3.PropBag" xml:space="preserve"> <data name="C1Mahnungen3.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{}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;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}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" FetchRowStyles="True" 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, 792, 123&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, 792, 123&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;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;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{}FilterBar{BackColor:Info;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" 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, 792, 123&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, 792, 123&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data> </data>
<metadata name="ToolStrip4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolStrip4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>667, 17</value> <value>667, 17</value>
@@ -617,7 +617,7 @@
</value> </value>
</data> </data>
<data name="C1Mahnungen4.PropBag" xml:space="preserve"> <data name="C1Mahnungen4.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;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;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{}FilterBar{BackColor:Info;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" 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, 792, 138&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, 792, 138&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{}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;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}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" FetchRowStyles="True" 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, 792, 138&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, 792, 138&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data> </data>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>108</value> <value>108</value>

15
DPM2016/Finanzaen/frmMahnungen.vb
View File

@@ -11,23 +11,32 @@ Public Class Mahnungen
End Sub End Sub
Sub refresh_data(Optional type As Integer = 0) Sub refresh_data(Optional type As Integer = 0)
Cursor = Cursors.WaitCursor Cursor = Cursors.WaitCursor
Dim dt As DateTime = Now
Dim days As Integer
Try
days = db1.Get_Option(10002)
dt = dt.AddDays(days * -1)
Catch
End Try
If type = 0 Or type = 1 Then If type = 0 Or type = 1 Then
Me.C1Mahnungen1.DataSource = Nothing Me.C1Mahnungen1.DataSource = Nothing
db1.Get_Tabledata("View_Offene_Mahnungen", " where mahndatum1 IS null and faelligam < '" + Convert_Date(Now) + "'") db1.Get_Tabledata("View_Offene_Mahnungen", " where mahndatum1 IS null and faelligam < '" + Convert_Date(dt) + "'")
Me.C1Mahnungen1.DataSource = db1.dsDaten.Tables(0) Me.C1Mahnungen1.DataSource = db1.dsDaten.Tables(0)
Me.C1Mahnungen1.DataMember = db1.dsDaten.Tables(0).TableName Me.C1Mahnungen1.DataMember = db1.dsDaten.Tables(0).TableName
End If End If
If type = 0 Or type = 2 Then If type = 0 Or type = 2 Then
Me.C1Mahnungen2.DataSource = Nothing Me.C1Mahnungen2.DataSource = Nothing
db2.Get_Tabledata("View_Offene_Mahnungen", " where mahndatum2 IS null and mahnfaelligkeit1 < '" + Convert_Date(Now) + "'") db2.Get_Tabledata("View_Offene_Mahnungen", " where mahndatum2 IS null and mahnfaelligkeit1 < '" + Convert_Date(dt) + "'")
Me.C1Mahnungen2.DataSource = db2.dsDaten.Tables(0) Me.C1Mahnungen2.DataSource = db2.dsDaten.Tables(0)
Me.C1Mahnungen2.DataMember = db2.dsDaten.Tables(0).TableName Me.C1Mahnungen2.DataMember = db2.dsDaten.Tables(0).TableName
End If End If
If type = 0 Or type = 3 Then If type = 0 Or type = 3 Then
Me.C1Mahnungen3.DataSource = Nothing Me.C1Mahnungen3.DataSource = Nothing
db3.Get_Tabledata("View_Offene_Mahnungen", " where mahndatum3 IS null and mahnfaelligkeit2 <'" + Convert_Date(Now) + "'") db3.Get_Tabledata("View_Offene_Mahnungen", " where mahndatum3 IS null and mahnfaelligkeit2 <'" + Convert_Date(dt) + "'")
Me.C1Mahnungen3.DataSource = db3.dsDaten.Tables(0) Me.C1Mahnungen3.DataSource = db3.dsDaten.Tables(0)
Me.C1Mahnungen3.DataMember = db3.dsDaten.Tables(0).TableName Me.C1Mahnungen3.DataMember = db3.dsDaten.Tables(0).TableName
End If End If

73
DPM2016/Klassen/clsSpalten.vb
View File

@@ -159,8 +159,13 @@ Public Class Tabellenspalte
Dim t As New DataTable() Dim t As New DataTable()
Dim s As String Dim s As String
anzcols = daten.Splits(0).DisplayColumns.Count anzcols = daten.Splits(0).DisplayColumns.Count
t = dt t = dt
Me.Tabelle = tablename Me.Tabelle = tablename
Dim st As New MySpaltenTitel
If st.Check_Table_Has_Spaltendata(tablename) = False Then Exit Function
For i = 0 To daten.Columns.Count - 1 For i = 0 To daten.Columns.Count - 1
s = daten.Columns(i).DataField s = daten.Columns(i).DataField
'If s = "ApplikationNr" Then 'If s = "ApplikationNr" Then
@@ -169,40 +174,41 @@ Public Class Tabellenspalte
'End If 'End If
Me.Feld = s Me.Feld = s
Me.getspalte() Me.getspalte()
If Me.spaltenname = "" Then Exit Function If Me.spaltenname <> "" Then
daten.Columns(i).Caption = Me.spaltenname daten.Columns(i).Caption = Me.spaltenname
If Me.ColWith = 0 Then If Me.ColWith = 0 Then
daten.Splits(0).DisplayColumns(i).Width = 0 daten.Splits(0).DisplayColumns(i).Width = 0
daten.Splits(0).DisplayColumns(i).Visible = False daten.Splits(0).DisplayColumns(i).Visible = False
Else Else
daten.Splits(0).DisplayColumns(i).Width = Me.ColWith daten.Splits(0).DisplayColumns(i).Width = Me.ColWith
End If End If
If Me.locked Then If Me.locked Then
daten.Splits(0).DisplayColumns(i).Locked = True daten.Splits(0).DisplayColumns(i).Locked = True
End If End If
If Me.AlsHacken Then If Me.AlsHacken Then
daten.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox daten.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
End If End If
'Präsentation von aktiv 'Präsentation von aktiv
If LCase(daten.Columns(i).DataField) = "aktiv" And Aktiv_Spalte_True_Setzen = True Then If LCase(daten.Columns(i).DataField) = "aktiv" And Aktiv_Spalte_True_Setzen = True Then
daten.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox daten.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
daten.Columns(i).ValueItems.DefaultItem = True daten.Columns(i).ValueItems.DefaultItem = True
daten.Columns(i).DefaultValue = True daten.Columns(i).DefaultValue = True
daten.Columns(i).FilterText = True daten.Columns(i).FilterText = True
End If End If
Select Case LCase(daten.Columns(i).DataField) Select Case LCase(daten.Columns(i).DataField)
Case "erstellt_am", "erstelltam" Case "erstellt_am", "erstelltam"
daten.Columns(i).DefaultValue = Now daten.Columns(i).DefaultValue = Now
End Select End Select
If daten.Columns(i).DataType.Name = "DateTime" Then If daten.Columns(i).DataType.Name = "DateTime" Then
daten.Columns(i).NumberFormat = "dd.MM.yyyy HH:mm:ss" daten.Columns(i).NumberFormat = "dd.MM.yyyy HH:mm:ss"
End If End If
If Me.Numberformat <> "" Then If Me.Numberformat <> "" Then
daten.columns(i).numberformat = Me.Numberformat daten.columns(i).numberformat = Me.Numberformat
End If
End If End If
Next Next
ColumnOrder(tablename, daten) ColumnOrder(tablename, daten)
@@ -300,7 +306,13 @@ Public Class MySpaltenTitel
spaltendata.Dispose() spaltendata.Dispose()
Me.dispose() Me.dispose()
End Sub End Sub
Public Function Check_Table_Has_Spaltendata(ByVal tab As String) As Boolean
If spaltendata.Rows.Count = 0 Then load_data()
Dim dv() As DataRow
dv = spaltendata.Select("Tabelle='" & tab + "'")
If dv.Length = 0 Then Return False Else Return True
End Function
Public Function getspalte(ByVal tabelle As String, ByVal feld As String, ByRef spaltenname As String, ByRef locked As Boolean, _ Public Function getspalte(ByVal tabelle As String, ByVal feld As String, ByRef spaltenname As String, ByRef locked As Boolean, _
ByRef colwidth As Integer, ByRef order As Integer, ByRef alshacken As Boolean, ByRef tiptext As String, ByRef numberformat As String) ByRef colwidth As Integer, ByRef order As Integer, ByRef alshacken As Boolean, ByRef tiptext As String, ByRef numberformat As String)
If spaltendata.Rows.Count = 0 Then load_data() If spaltendata.Rows.Count = 0 Then load_data()
@@ -308,7 +320,6 @@ Public Class MySpaltenTitel
Dim dv() As DataRow Dim dv() As DataRow
Dim dr As DataRow Dim dr As DataRow
dv = spaltendata.Select("Tabelle='" & tabelle & "' and tabellenspalte='" & feld & "'", "Reihenfolge, Spaltenr") dv = spaltendata.Select("Tabelle='" & tabelle & "' and tabellenspalte='" & feld & "'", "Reihenfolge, Spaltenr")
If dv.Length = 0 Then If dv.Length = 0 Then
spaltenname = "" spaltenname = ""
locked = True locked = True

86
DPM2016/Klassen/clsStammdaten_flat.Designer.vb generated
View File

@@ -24,22 +24,22 @@ Partial Class clsStammdaten_flat
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(clsStammdaten_flat)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(clsStammdaten_flat))
Dim Style17 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style1 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style18 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style2 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style19 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style3 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style20 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style4 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style21 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style5 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style22 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style6 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style23 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style7 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style24 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style8 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style25 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style9 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style26 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style10 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style27 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style11 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style28 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style12 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style29 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style13 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style30 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style14 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style31 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style15 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style32 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style16 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Me.c1daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.c1daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
@@ -49,6 +49,7 @@ Partial Class clsStammdaten_flat
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton7 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton7 = New System.Windows.Forms.ToolStripButton()
Me.tsnewdentotar = New System.Windows.Forms.ToolStripButton()
Me.C1TrueDBDropdown1 = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown() Me.C1TrueDBDropdown1 = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown()
Me.C1TrueDBDropdown2 = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown() Me.C1TrueDBDropdown2 = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -60,7 +61,6 @@ Partial Class clsStammdaten_flat
Me.ctxmenuDentotar = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ctxmenuDentotar = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.TarifBearbeitenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.TarifBearbeitenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.tsnewdentotar = New System.Windows.Forms.ToolStripButton()
CType(Me.c1daten, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.c1daten, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStrip1.SuspendLayout() Me.ToolStrip1.SuspendLayout()
CType(Me.C1TrueDBDropdown1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.C1TrueDBDropdown1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -170,31 +170,41 @@ Partial Class clsStammdaten_flat
Me.ToolStripButton7.Text = "ToolStripButton7" Me.ToolStripButton7.Text = "ToolStripButton7"
Me.ToolStripButton7.Visible = False Me.ToolStripButton7.Visible = False
' '
'tsnewdentotar
'
Me.tsnewdentotar.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsnewdentotar.Image = CType(resources.GetObject("tsnewdentotar.Image"), System.Drawing.Image)
Me.tsnewdentotar.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsnewdentotar.Name = "tsnewdentotar"
Me.tsnewdentotar.Size = New System.Drawing.Size(23, 22)
Me.tsnewdentotar.Text = "Neuer Dentotar-Eintrag"
Me.tsnewdentotar.Visible = False
'
'C1TrueDBDropdown1 'C1TrueDBDropdown1
' '
Me.C1TrueDBDropdown1.AllowColMove = True Me.C1TrueDBDropdown1.AllowColMove = True
Me.C1TrueDBDropdown1.AllowColSelect = True Me.C1TrueDBDropdown1.AllowColSelect = True
Me.C1TrueDBDropdown1.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows Me.C1TrueDBDropdown1.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
Me.C1TrueDBDropdown1.AlternatingRows = False Me.C1TrueDBDropdown1.AlternatingRows = False
Me.C1TrueDBDropdown1.CaptionStyle = Style17 Me.C1TrueDBDropdown1.CaptionStyle = Style1
Me.C1TrueDBDropdown1.ColumnCaptionHeight = 17 Me.C1TrueDBDropdown1.ColumnCaptionHeight = 17
Me.C1TrueDBDropdown1.ColumnFooterHeight = 17 Me.C1TrueDBDropdown1.ColumnFooterHeight = 17
Me.C1TrueDBDropdown1.EvenRowStyle = Style18 Me.C1TrueDBDropdown1.EvenRowStyle = Style2
Me.C1TrueDBDropdown1.FetchRowStyles = False Me.C1TrueDBDropdown1.FetchRowStyles = False
Me.C1TrueDBDropdown1.FooterStyle = Style19 Me.C1TrueDBDropdown1.FooterStyle = Style3
Me.C1TrueDBDropdown1.HeadingStyle = Style20 Me.C1TrueDBDropdown1.HeadingStyle = Style4
Me.C1TrueDBDropdown1.HighLightRowStyle = Style21 Me.C1TrueDBDropdown1.HighLightRowStyle = Style5
Me.C1TrueDBDropdown1.Images.Add(CType(resources.GetObject("C1TrueDBDropdown1.Images"), System.Drawing.Image)) Me.C1TrueDBDropdown1.Images.Add(CType(resources.GetObject("C1TrueDBDropdown1.Images"), System.Drawing.Image))
Me.C1TrueDBDropdown1.Location = New System.Drawing.Point(16, 70) Me.C1TrueDBDropdown1.Location = New System.Drawing.Point(16, 70)
Me.C1TrueDBDropdown1.Name = "C1TrueDBDropdown1" Me.C1TrueDBDropdown1.Name = "C1TrueDBDropdown1"
Me.C1TrueDBDropdown1.OddRowStyle = Style22 Me.C1TrueDBDropdown1.OddRowStyle = Style6
Me.C1TrueDBDropdown1.RecordSelectorStyle = Style23 Me.C1TrueDBDropdown1.RecordSelectorStyle = Style7
Me.C1TrueDBDropdown1.RowDivider.Color = System.Drawing.Color.DarkGray Me.C1TrueDBDropdown1.RowDivider.Color = System.Drawing.Color.DarkGray
Me.C1TrueDBDropdown1.RowDivider.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.[Single] Me.C1TrueDBDropdown1.RowDivider.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.[Single]
Me.C1TrueDBDropdown1.RowSubDividerColor = System.Drawing.Color.DarkGray Me.C1TrueDBDropdown1.RowSubDividerColor = System.Drawing.Color.DarkGray
Me.C1TrueDBDropdown1.ScrollTips = False Me.C1TrueDBDropdown1.ScrollTips = False
Me.C1TrueDBDropdown1.Size = New System.Drawing.Size(215, 150) Me.C1TrueDBDropdown1.Size = New System.Drawing.Size(215, 150)
Me.C1TrueDBDropdown1.Style = Style24 Me.C1TrueDBDropdown1.Style = Style8
Me.C1TrueDBDropdown1.TabIndex = 14 Me.C1TrueDBDropdown1.TabIndex = 14
Me.C1TrueDBDropdown1.Visible = False Me.C1TrueDBDropdown1.Visible = False
Me.C1TrueDBDropdown1.PropBag = resources.GetString("C1TrueDBDropdown1.PropBag") Me.C1TrueDBDropdown1.PropBag = resources.GetString("C1TrueDBDropdown1.PropBag")
@@ -205,25 +215,25 @@ Partial Class clsStammdaten_flat
Me.C1TrueDBDropdown2.AllowColSelect = True Me.C1TrueDBDropdown2.AllowColSelect = True
Me.C1TrueDBDropdown2.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows Me.C1TrueDBDropdown2.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
Me.C1TrueDBDropdown2.AlternatingRows = False Me.C1TrueDBDropdown2.AlternatingRows = False
Me.C1TrueDBDropdown2.CaptionStyle = Style25 Me.C1TrueDBDropdown2.CaptionStyle = Style9
Me.C1TrueDBDropdown2.ColumnCaptionHeight = 17 Me.C1TrueDBDropdown2.ColumnCaptionHeight = 17
Me.C1TrueDBDropdown2.ColumnFooterHeight = 17 Me.C1TrueDBDropdown2.ColumnFooterHeight = 17
Me.C1TrueDBDropdown2.EvenRowStyle = Style26 Me.C1TrueDBDropdown2.EvenRowStyle = Style10
Me.C1TrueDBDropdown2.FetchRowStyles = False Me.C1TrueDBDropdown2.FetchRowStyles = False
Me.C1TrueDBDropdown2.FooterStyle = Style27 Me.C1TrueDBDropdown2.FooterStyle = Style11
Me.C1TrueDBDropdown2.HeadingStyle = Style28 Me.C1TrueDBDropdown2.HeadingStyle = Style12
Me.C1TrueDBDropdown2.HighLightRowStyle = Style29 Me.C1TrueDBDropdown2.HighLightRowStyle = Style13
Me.C1TrueDBDropdown2.Images.Add(CType(resources.GetObject("C1TrueDBDropdown2.Images"), System.Drawing.Image)) Me.C1TrueDBDropdown2.Images.Add(CType(resources.GetObject("C1TrueDBDropdown2.Images"), System.Drawing.Image))
Me.C1TrueDBDropdown2.Location = New System.Drawing.Point(189, 153) Me.C1TrueDBDropdown2.Location = New System.Drawing.Point(189, 153)
Me.C1TrueDBDropdown2.Name = "C1TrueDBDropdown2" Me.C1TrueDBDropdown2.Name = "C1TrueDBDropdown2"
Me.C1TrueDBDropdown2.OddRowStyle = Style30 Me.C1TrueDBDropdown2.OddRowStyle = Style14
Me.C1TrueDBDropdown2.RecordSelectorStyle = Style31 Me.C1TrueDBDropdown2.RecordSelectorStyle = Style15
Me.C1TrueDBDropdown2.RowDivider.Color = System.Drawing.Color.DarkGray Me.C1TrueDBDropdown2.RowDivider.Color = System.Drawing.Color.DarkGray
Me.C1TrueDBDropdown2.RowDivider.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.[Single] Me.C1TrueDBDropdown2.RowDivider.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.[Single]
Me.C1TrueDBDropdown2.RowSubDividerColor = System.Drawing.Color.DarkGray Me.C1TrueDBDropdown2.RowSubDividerColor = System.Drawing.Color.DarkGray
Me.C1TrueDBDropdown2.ScrollTips = False Me.C1TrueDBDropdown2.ScrollTips = False
Me.C1TrueDBDropdown2.Size = New System.Drawing.Size(233, 150) Me.C1TrueDBDropdown2.Size = New System.Drawing.Size(233, 150)
Me.C1TrueDBDropdown2.Style = Style32 Me.C1TrueDBDropdown2.Style = Style16
Me.C1TrueDBDropdown2.TabIndex = 15 Me.C1TrueDBDropdown2.TabIndex = 15
Me.C1TrueDBDropdown2.Visible = False Me.C1TrueDBDropdown2.Visible = False
Me.C1TrueDBDropdown2.PropBag = resources.GetString("C1TrueDBDropdown2.PropBag") Me.C1TrueDBDropdown2.PropBag = resources.GetString("C1TrueDBDropdown2.PropBag")
@@ -281,16 +291,6 @@ Partial Class clsStammdaten_flat
Me.TarifBearbeitenToolStripMenuItem1.Size = New System.Drawing.Size(155, 22) Me.TarifBearbeitenToolStripMenuItem1.Size = New System.Drawing.Size(155, 22)
Me.TarifBearbeitenToolStripMenuItem1.Text = "Tarif bearbeiten" Me.TarifBearbeitenToolStripMenuItem1.Text = "Tarif bearbeiten"
' '
'tsnewdentotar
'
Me.tsnewdentotar.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsnewdentotar.Image = CType(resources.GetObject("tsnewdentotar.Image"), System.Drawing.Image)
Me.tsnewdentotar.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsnewdentotar.Name = "tsnewdentotar"
Me.tsnewdentotar.Size = New System.Drawing.Size(23, 22)
Me.tsnewdentotar.Text = "Neuer Dentotar-Eintrag"
Me.tsnewdentotar.Visible = False
'
'clsStammdaten_flat 'clsStammdaten_flat
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

422
DPM2016/Klassen/clsStammdaten_flat.resx
View File

@@ -155,7 +155,7 @@
</value> </value>
</data> </data>
<data name="c1daten.PropBag" xml:space="preserve"> <data name="c1daten.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;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;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{}FilterBar{BackColor:Info;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" 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, 756, 374&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, 756, 374&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{}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;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}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" FetchRowStyles="True" 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, 756, 374&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, 756, 374&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data> </data>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>163, 17</value> <value>163, 17</value>
@@ -163,19 +163,19 @@
<data name="ToolStripButton5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ToolStripButton5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK1SURBVDhPnZLfS1NhGMdfCPoDuummi+i6qwYWaYjb3Obx YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK1SURBVDhPnZLdS1NhHMcfCPoDuummi+i6KwcWlYjb3Obx
7MzN1eY5Z9tJZ86MirIgK/utaVoaaqHDVEyKSq2MsuyHopGhlIVUK6qLKCiiCKKLgk/HHyx2aQ984H1e 7MzN1eY5Z9tJV86Mit5AS3v3rUwtrchhKhVFpVZGWfaiaKQoZiHWiuoivCiiCKSLgk9HjcUu6wcfeH4P
eD+83+d9xf/U11cjwU/vJn937spkfmuuLlTm9vceyqX/yAxSkr7DEhf327kf386X6UE+T13nx+thzu+x PB+e7+95xP/Ul9eDwZn34z879mTyZ2uhrlTm9nQdyqXnyBxSku7DElcr7DyO7+DzVB+fJm/z/c0Al8qs
pgr6KmVWrbGzOt3GmnX/SEu3stKSwc/EIIn+A0w0+/mWeMCFfY5UQW+FTKbVic0uYXe4kliznaRl2HjZ qYLuSpm01XZWrbWxOuMv6WutrLSsYzbRR6LnAGMtfr4mnnBlvyNV0FUuk2l1YrNL2B2uJNZsJ+nrbLzq
GWGiVWe8JciX57e4fDAnVeBoEEjVi8ix+5BcClKOG0mScblk1lklpjsMxs+GeNgU5ONE32zU+aNC2I4L iDB2XmfkTJDPL+9x/WBOqsDRKJCqF5Fj9yG5FKQcN5Ik43LJZFglptoNRs6FeNocZGasez7qn6NC2GoE
Eh+7cJqS3CwNtzOAIvlRZC+y20OWw82zeJixZp3hhgLejfZwo0qZE9iqBVPv2+gYFmRWCez1AudpgVyx iZlOnKYkN0vD7QygSH4U2Yvs9pDlcPMiHma4RWegsYD3Q5e5U6UsCGzVgskPrbQPCDKrBPZ6gfOUQC5f
FK8SxJPnJzvXx2SrxnCjzs+by3kx1M6tGi/CVSt49LaK+JigbdRcvyni8dsITz6EZyXrPWHy84NIngCP ilcJ4snzk53rY/y8xkCTzuzd5Uz3t3Gv1otw1QmevasiPixoHTLXb4sYfRdh4mN4XrLeEyY/P4jkCTB6
W1TundL4NbiC5zeaGar3zwnuJsqJTwriE4L2Z4KOacHT7xEcjYJgfhEbAiHc+RpjTQGGTgZpK3fypO84 RuVRg8aPvhW8vNNCf71/QfAwsZv4uCA+Jmh7IWifEjz/FsHRJAjmF7EhEMKdrzHcHKD/ZJDW3U4mumt4
DxoCsxEsdjPCwItiuhKCrJkIJwSOU4K8/cvQ1SiqbuALGow0+Lldt54rhxQe9VQy2qQmh2jJrhH0v/Hh 0hiYj2CxmxF6pzfRmRBkzUU4LnA0CPIqlqGrUVTdwBc0GGz0c//Eem4cUnh2uZKhZjU5REt2raDnrQ/n
PCkwAjswtDKMcAmGESViFBIIRblX7+VmrY+Bai8j53YyfiaU8owWp3llpXYxUWMr0aJSiqIlsxSaaBtj SYER2ImhlWKEizGMKBGjkEAoyqN6L3frfPRWexm8sIuRs6GUZ7Q4zSsrdYuJGtuIFpVQFC2ep9BE2xjj
3Kn1MFCVx9WjHgabY0y2RVIEorNsLZtKyyiNbaN085YkMZPCkq3crpG5dkyh94iba3UhptoLEbquo2sh QZ2H3qo8bh710NcSY7w1kiIQHaVr2FxSSklsOyVbtiaJmRQWb+N+rcytYwpdR9zcOhFisq0Qoes6uhZC
NC2Mqs5grlXN7NUkqtlvKNDZHQvQXamYP1Dm0uE8pruK54a4UCr0tD1Ne9P/vOqOpUZYQC0xWSWEsPwF 08Ko6hzmWtXMXk2imv2GAp29sQAXKxXzB8pcO5zHVOemhSH+K+V6etnpfWt+vb4YS43wD7XEJE0IYfkN
X0fCgJOjtY0AAAAASUVORK5CYII= WuDCfcAVxNMAAAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -196,16 +196,16 @@
<data name="ToolStripButton4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ToolStripButton4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIWSURBVDhPlY9dSJNhFMffCylqduHIEk2pbaWwqMyLpCsL YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIWSURBVDhPlY9dSJNhFMffCylqduHIEk2pbaWwsMyLpCsL
+sAwJRlBBNLozoYSXhQFc7Su9CLoA+xi1L7brH02p1ttK1c3IWgh+bZGOM29vjO3uYs2cv+ewXPZu9kP +sAwJRlBBNLozoYSXhQFc7Su1kXQB9jFqH23WXv3bs3pVtuS1U0IakiuNcJp7W0zt7mLNnL/nsFz2bvZ
/pznOed/znkeZisEJBLX+5aW2/T6f0x1dT16wDDQ1dQgKJV+fieT1dJSZYrzT9rn4iw8d+9jlAwZE4nw D/6c5znnf855HmYr+CUS10xb2y16/T+me3sfPWAY6OvqEJBKF97JZPW0VJ3S4pOu+XgU7jv3cJ8MGReJ
sr4eMxJJJ7WU5/fsLT490YYk+xSxBQ5j+yV4WFUFt1h8h1qE2Yxp9b8C55F0NWPJxGA5cAbsCo/XqoEf 8LKxEbMSSQ+1VOb33M1UZrITyehTxJZ4jO+X4GFNDTix+Da1CLMZ0xp++c8h6WrFipnBqv80oj9SeK0a
1CJMMa49lw4rkPTIyQAplsbF4H2t+Gnbhvjsi2Zq+zesT7WdC13Pc2RzavIUEvZdWJvsIINk+BMQqahN /kYtwpTi2rOZkAJJt5wMkGJlQoyUtwPf7dsQn3vRSm3/JupVbeeD1wo82ZyeOomEYxfWprrJIBn++EUq
mM25wSDnlWNt6ix5wWGyuQ28/ySyvj1RahGmyN5UpnztWPUew3pIAY58Yf1tD6ZHDxW/2GqrqU2Ywvzj ahNmc34kwHvkWJs+Q15wmGzuRMp3Ajnvngi1CFOK3lCmvV346TmK9aACPPnC+tt+zOgOlT7Z62upTZji
BOdtRe7jDfATJ5AJX0GKbC+GD16ilvLkvz5DesGJ9Mw9ZN50k+0XUQgfH6fl8oyMXBWBcyL77RU2FkPI 4uME7+lA/sN1pCaPIxu6jDTZXgodvEgtlSl8fobMEovM7F1k3/SR7RdQDB2boOXK6HRXROBZ5L68wsZy
JYLIRTs3aLkyjY175Zd7OpD57kGeiwKFmC27/Gk3LVemoanpwo6d1dhXV+dOLX5ooOmtEYlEDqjV6mGN EPlEAPlIzwYtV6e5ea/8Un83sl/dKPARoBiz51Y/7qbl6jS1tJzfsbMW+xoauPTy+yaa3hrhcPiAWq0e
RqPVm0wKne55n9ls7nc4HEMlOZ3OfiIl0TW3293rcrlO+/1+GW1nGLvdfsRisXSTpj6DwTBgNBqHSBwm 02g0WoPZrNDrnw9aLJYhp9M5WhbLskNESqKrHMcNuFyuUz6fT0bbGcbhcLRbrdY+0jRoNBqHTSbTKIlj
UV0SPZdyg0RKvV7fa7VajzIMw/wFTEUkRqq1mZcAAAAASUVORK5CYII= JKrLoudyboRIaTAYBmw22xGGYZi/SIAkRADW4vYAAAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -243,191 +243,191 @@
<data name="ToolStripButton6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ToolStripButton6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAAIAAAACACAYAAADDPmHLAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAAIAAAACACAYAAADDPmHLAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAACsTSURBVHhe7Z0HnBRV1vZX3V19P/d79zWRJDMMGQaGzMAw YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAACsVSURBVHhe7Z0HnBRV1vZX3V15P/d791WUJJlhyDAwhAFm
zAADkkQQkZxzDkMGUcC8uqZd13XNmZwEFRFRVHZ9ASWjIklBBERQovc7z6061adu356pDriw39wff7qn GGAGGJAkoohkECRnGDKIBMWwuqZd13XNmQwiCIiIkV1fRcmoCAgCCoqgRO93nlt1qk/dvj1THXBhv7k/
u/p29Xmee26oqu7f5Jf8kl/yS37JL/klv+SX/JJf8kt+yS/5Jb/I0qlTp263tL9lb+/evX8ZNmyYGjFi /nRPd/Xt6vM899xQVd2/KSgFpaAUlIJSUApKQSkoBaWgFJSCUlAKSkGRpUuXLj1u6HTD3r59+/4ybNgw
hBo5cqQaNWqUGj16tBozZowaO3asGj9unMoZP17l5OSoCRMmqInE2DFj1aCBA9WLL7+qnn/lDfXiq3PV NWLECDVy5Eg1atQoNXr0aDVmzBg1duxYNX7cOJU7frzKzc1VEyZMUBOJsWPGqkEDB6rnXnhJPfPiq+q5
y68vUPMXLFELFi5TCxcvV4uXrlBLl61Uy5a/rZaveEe9+da7auXb76m33lmj3n73fc077671s3qtWrX6 l+arF15ZpBYuWqYWLX5NLV66Qi1dvlItf22Vem3FarVi5Rr1+htvqlWr31JvrFmvVr/5tmbNmxv8rNug
A82770k+VO+uYdap1eD9deq9tR+pNWs/DvHBJ+r9DyXr1dp16537H2Cbj+g1zmtXU12rqG685zuraX9W 1q57R/PmW5J31ZvrmffUOvD2e+qtDe+r9Rs+CPHOh+rtdyUb1Yb3Njr338E279NrnNeuo7rWUt14zzXr
raF9w/6tViveWqVZvvId2ve31bI331JLl6+kz7NCLVn6plq8ZLlatJg+56Kl9HkXq/nEvAWL1Lz5C9Xc aH/Wrqd9w/6tUyvfWKtZsWoN7ftq9drrb6jlK1bR51mpli1/XS1dtkItWUqfc8ly+rxL1UJiwaIlasHC
efPVG3PnqdffmKteeuU19fyLr6hnX3hJPfPsc6p/v346xuMpnuMorojvWIozYj2GYo64I/6jaJuRpAc0 xWr+goXq1fkL1CuvzlfPv/iyeua5F9VTzz6vnnzqaTWgf38d4/EUz3EUV8R3LMUZsR5DMUfcEf9RtM1I
GTF8uBo+fPgvo4YMOdCrR6/+rnzxlSEDh/QYTqIvXbpUPUc7No4EDcr4sePU/ffep9q2bqN27zuoPt60 0gOajBg+XA0fPvyXUUOG7O/Tq88AV774ypCBQ3oNJ9GXL1+unqYdG0eCBmX82HHqnnl3qw7t2qvd+w6q
w2Przj3E1z627IgNsx6n7j1qG7Nrb4gv9qrtHvs0O770s5P5ar/HLmb3fvWF5GtwQPOl4CvB7j0hvgZ7 Dzbt8Ni6cw/xlY8tO2LDrMepe4/axuzaG+LzvWq7xz7Nji/87GS+/NpjF7P7a/W55CuwX/OF4EvB7j0h
DfYdUBu3fqE2ELjd/+13qm2bNuru2XOscc2N6dOmqy2bt6hV76xSkyZMGurKGHsZMmjwvjvvmKm2bdum vgJ7DfbtV59s/Vx9TOD2628Oqw7t26s758y1xjUvpk+brrZs3qLWrlmrJk2YNNSVMfYyZNDgfXfcPlNt
Xn3lVTVowMComDA+R2U2yVQHj55UO/Yd8fju6M/qkMkR5qcAuNta6vnu6Cn13TE/h3847eN7cNzPkeNn 27ZNvfTiS2rQbQOjYsL4XJXVPEsdPHpC7dh3xOPw0Z/VIZMjzE8BcLe11HP46El1+Hs/3/5wysd34Jif
HH50OCo5cUYdE/wATp7VHGd+cvhRcOJncE5zEpxy+Ik5fU79THx98Ae1Bxz6gd7vZ5WVmaVGjxptjWle I8dOO/zocFRy/LT6XvADOHFGc4z5yeFHwfGfwVnNCXDS4Sfm1Fn1M/HVwR/UHnDoB3q/n1V2VrYaPWq0
TJowUY0dPUY9+eST37gyxl4GDxx0bmD/AYrp16ev6tTxVh/dunT1njdxDNCEhPEbwBTk8LHTYaIFBa8N Nab5MWnCRDV29Bj12GOPHXBljL0MHjjo7MABtymmf79bVZcbb/LRo1t373kTxwDNSRi/AUxBvv3+VJho
q8/FJrQjdh6CE1JwU3RT+HDRgwn/8+nzGgjPeAYYOcoa06A89KeHzpOElzlKxlgG9Ovvq7R2rdoqJSVF QcFrw+pzsQntiJ2P4IQU3BTdFD5c9GDC/3zqnAbCM54BRo6yxjQo9//p/nMk4SWOkjGW2/oP8FVav159
pdZIVTVTU+m2hqpUsaK67dZOvu2YnHHjHQMcO6l27j/iYRPFg4XLC9trDXxCC7GDCJ6X6FG3dovwp844 lZKSolLrpKq6qal0W0dVq1pV3XxTF992TO648Y4Bvj+hdn59xMMmigcLlx+21xr4hBZiBxE8P9Gjbu0W
SAMc0wbIjNsA991zryIJ4zeApEb1Giq9USPVNCtLNW/WTIsLU7Rr09a3HQMDNMkIN4AnhBQnEXC9LqbI 4U+edpAG+F4bICtuA9x91zxFEsZvAEmd2nVUZpMmqkV2tmrVsqUWF6bo2L6DbzsGBmjeLNwAnhBSnETA
HobQeQoODMFDogdt7Y7wp4Tw4LQwwF4Y4AQZgLpNDPBsMQ3KPXffDQPEV8xKa9Wsqfv0Nq1bq5vbtVMt 9bqYInsYQucrODAED4ketLU7wp8UwoNTwgB7YYDjZADqNjHAs8U0KHfdeScMEF8xK61Xt67u09u3a6eu
srNVvbr1VLu27XzbMZgZwADfkQF2CQNYRUkwNoElptg2wWMW3Sa8Ibrm7Hl1hoDwmu8cAyDGo0bEZ4C7 79hRtc7JUQ3TGqqOHTr6tmMwM4ABDpMBdgkDWEVJMDaBJabYNsFjFt0mvCG65sw5dZqA8JrDjgEQ41Ej
51wAA9StU4dafnN1W6fbVLdu3Uj4tqphWpo2g7ktMA3A2ARJNFpg4IprEkTsiIIHFd0mPAnOwmvO/aKF 4jPAnXPPgwHSGjSglt9K3dzlZtWjRw8SvoPKSE/XZjC3BaYBGJsgiUYLDFxxTYKIHVHwoKLbhCfBWXjN
ZxJngDnxG6B/335K0qhhIzVs6DA9x582ZSrNSceo7t27q5spA5jbgnE0FWzSOIMM8JP64sBRzS6CRdj0 2V+08EziDDA3fgMMuLW/kjTJaKKGDR2m5/jTpkylOekY1bNnT3U9ZQBzWzCOpoLNmzYjA/ykPt9/VLOL
5aELxmfR8JXD5199F4jNzG47Wyxs/VpyWHOWxAdhBqBGM3L4CGtMgzJn9uzEG6BxemPVlUb9I4YN1+LC YBE2fXHovPFpNHzp8NmXhwOxmdltZ4uFrV9JvtWcIfFBmAGo0YwcPsIa06DMnTMn8QZomtlUdadR/4hh
aR07dMjbAD+EDAC4xX2689sLxv/mxS7moI8NAdho44vIbGLIbBKIf+58yAD7EmmAWQkwAKZ9EgwC27dv w7W4cNqNnTvnb4AfQgYA3OI+2vnNeeN/82MXc9DHxwH4xMbnkdnEkNkkEP/suZAB9iXSALMTYABM+yQY
r4UfPGiQ6t2rtx4UoiswtwVYnMgg05gG4PRqFSYReOIyfpGDCs1EKziIJDrgzAPxzxMQ3uE4dVunqNvM BHbq1EkLP3jQINW3T189KERXYG4LsDjRjExjGoDTq1WYROCJy/hFDio0E63gIJLogDMPxD9HQHiHY9Rt
0I3MFtOgzL5rVuINkFK1mrqpZUvV5fYuqnvXbqozjQXq1qmrZwHmtoANcJgM8CUJz3B/ahMmXmwCRkMs naRus5luZLaYBmXOrNmJN0BKzVrqujZtVLdbuqme3XuorjQWSGuQpmcB5raADfAtGeALEp7h/tQmTLzY
YgNPcCDENkWXnP+FDEBAeOaHk4kxwKxEGKBv7z5KktYgTc/7q6dUp2xQXaVUS1EVK1RQt9/W2bcdgxUp BIyGWMQGnuBAiG2KLjn3CxmAgPDMDycSY4DZiTDArX37KUl643Q976+dUpuyQW2VUitFVa1SRd1yc1ff
dBvaAN+Q+C48aDr+05mE8mNu/BziRBihwd5JG6fO0v5aOH2WBntADv7O0YDPz2nmrMMZzXlF2mv2HT6u dgxWpNBtaAMcIPFdeNB07KfTCeXHvPg5xPEwQoO9EzZOnqH9tXDqDA32gBz8naUBn59TzBmH05pzirTX
9hNOBvhZZVC3CQPYYhqUWXfelXgDgN49e/noQ92AbTvgGCBdG+ArEp7hQGHUnEikCH6chRfGHJ1L5BRN 7Pv2mPqacDLAz6oZdZswgC2mQZl9x6zEGwD07d3HRz/qBmzbAccAmdoAX5LwDAcKo+ZEIkXw4yy8MObo
4o3agTt4M0FKlyC9a9yWzoJrlFNwP9QFOGMAGADHYGwxDcpdd955YQwQDWyA74+TAb495uELuiFOLOQm XCKnaBJv1A7cwZsJUroE6V3jtnQWXKOcgvuhLsAZA8AAOAZji2lQZt1xx/kxQDSwAb47Rgb45nsPX9AN
qA1PZOAKbBUakLCxCk53faJrwV3Rf9HPO9ubs4CEGGBmAgyA1h0PY0aNpkFiuAF8ArjYhAqCrS4NiWcj cWIhL0FteCIDV2Cr0ICEjVVwuusTXQvuiv6Lft7Z3pwFJMQAMxNgALTueBgzajQNEsMN4BPAxSZUEGx1
TGCGBI0kNDDFDiI4/dMFtxBcih6q53y4AajbxHTbFtOg4CCeK2PsxVZxNEgD7CbhGasAAptwEttrcoUE aUg8G2ECMyRoJKGBKXYQwemfLriF4FL0UD3nwg1A3Sam27aYBgUH8VwZYy+2iqNBGmA3Cc9YBRDYhJPY
zEtgRgos8cQGrpD0z4+jt7WVh0Q/T+8T4gzBK4FYDsbBoEQYYGYiDGD299GCAxrpDRuFGcAW+F8LU1iJ XpMnJGB+AjNSYIknNnCFpH9+HL2trTwk+jl6nxCnCV4JxHIwDgYlwgAzE2EAs7+PFhzQyMxoEmYAW+B/
T2TAAhL0Lwwuzt/+Fg6ces+rc0JwLbo2ZmhQyMcC2ACNqdEMGzLUGtOg3DFjxkVmgIMkvosZ+F8Ln7gM LUxhJT6RAQtI0L8wuDh/+1s4cOo9p84KwbXo2pihQSEfC2ADNKVGM2zIUGtMg3L7jBkXmAEOkvguZuB/
i6bxC+zBQgP9mBAb0AtD72MR3BRdzBBOnTmrvqaYMEcuJgP06tFTxcMo1wBHfvzJ9yE5aBcEKYwPFi8C LXziMiyaxi+wBwsN9GNCbEAvDL2PRXBTdDFDOHn6jPqKYsIcuZAM0KdXbxUPo1wDHPnxJ9+H5KCdF6Qw
jsa64L7zuCE0oIp8YltSutnCgRTcmTo6YCrJcUHjQKxggKGDh1hjGpQZ0y8GA4wYqRo1bKhdLQ1Acfz1 Pli8CDga64L7zuOG0IAq8oltSelmCwdScGfq6ICpJMcFjQOxggGGDh5ijWlQZky/EAwwYqRqkpGhXS0N
cAXlwn+HtrGL7BfaEVsK7RfbENxo4abgzjrCGXXSRXaPRyhbYnU1bgNMmx6/AXp276HiQRsgDQbwZwAO QHH89XAF5cJ/h7axi+wX2hFbCu0X2xDcaOGm4M46wml1wkV2j0coW2J1NW4DTJsevwF69+yl4kEbIB0G
Ov0LR4oUCfrPDtcbwicscMW1CWxL357QwNKy/WIHE/ykbxHqNM2Mjnqgu4QBhgwebI1pUKZPnfbvNwAO 8GcADjr9C0eKFAn6zw7XG8InLHDFtQlsS9+e0MDSsv1iBxP8hG8R6hTNjI56oLuEAYYMHmyNaVCmT532
aDQkA+Q1BpCixIJZn5/IwkpMkaMV2i927oL/+FOI4wQvkGGVFLHCUdchg+IzwLSLzgAizdkESDSeoMBL 7zcADmhkkAHyGwNIUWLBrM9PZGElpsjRCu0XO2/Bf/wpxDGCF8iwSopY4ajrkEHxGWDaBWcAkeZsAiQa
08AiLiBRw0W2C+0XWwhtEdsm+PGT4JRe9wdymfxwogwwZWr8BujRrbuKB6xn44QRfCiZ5jjoO/d9f8HZ T1DgpWlgEReQqOEi24X2iy2EtohtE/zYCXBSr/sDuUz+baIMMGVq/Abo1aOnigesZ+OEEXwomeY46Dv3
kSuHHfb62Z4be0JsE2zd852D77i/wxYfh9SW3YfUZgJTPiz8fHngiAeWzTFuGjxwkDWmQZk6ecpFZICw fXfe2ZEn3zrs9bM9L/aE2CbYuuewg++4v8MWH4fUlt2H1GYCUz4s/Hyx/4gHls0xbho8cJA1pkGZOnnK
YwFndcva9MW3amMY9qNt4dheS+zKmw1R4j+0/I3DTj+fRmLHN+pfEUBmxAD5CxKe+e6HkxePAXDINx6w BWSAsGMBZ3TL2vT5N+qTMOxH28KxvZbYlT8fR4n/0PIBh51+PorEjgPqXxFAZsQA+XMSnjn8w4kLxwA4
no0jiIfpQ335DTnchfvJWMRINH5xhcDRiMxYRA5jOzig/kmgYcAEu0h4BgZAt4lz/G0xDcrkSZMvAgMM 5BsPWM/GEcRv6UN9cYAc7sL9ZCxiJBq/uELgaERmLCKHsR3sV/8k0DBggl0kPAMDoNvEOf62mAZl8qTJ
DRlAupz7SBbAFCUawgW04QoaQVjGKqqJTdRIaLG/0WLbwLmSEHzX/u81Owk8lhgDTIrfALjoIx6wmpVW F4ABhoYMIF3OfSQLYIoSDeEC2nAFjSAsYxXVxCZqJLTYB7TYNnCuJATf9fV3mp0EHkuMASbFbwBc9BEP
v4H+UNIAPCBCH5hokFKPHM8btDwPtEQXtEobEEoL5oJT3T2OOhw8esLPkRPqW8E3R35U33wfgl8P4Rlt WM1Kb9RYfyhpAB4QoQ9MNEipR47lD1qeB1qiC1qlDQilBXPBqe4eRx0OHj3u58hx9Y3gwJEf1YHvQvDr
AGo0OLffFtOgTJ54ERgAixlsAJnmePT7q3AixLGIkHmAYSbPUMAzjzCOMJDfME7LthrGNAoZQw5KD9Fj ITyjDUCNBuf222IalMkTLwADYDGDDSDTHI9+fxWOh/g+ImQeYJjJMxTwzCOMIwzkN4zTsq2GMY1CxpCD
MED/fv2tMQ0KLhFzZYy92CqOBkxlYADT5Qg2gu7HJkxehNcTSUgTT1ggMkMkgW3ZwRTZFBpimmLbMgKE 0kP0GAwwoP8Aa0yDgkvEXBljL7aKowFTGRjAdDmCjaD7sQmTH+H1RBLSxBMWiMwQSWBbdjBFNoWGmKbY
3+6C7bQB+vazxjQoCTFA19u7qHjASLZB/foUkBM+A/gDTpiCRItZn4ZG2C5hgkoswoYgUXMTGQQQ+lsI towA4be7YDttgFv7W2MalIQYoPst3VQ8YCTbuFEjCshxnwH8ASdMQaLFrE9DI2yXMEElFmFDkKh5iQwC
baT/A+Cwg5xm4rVpDRqovn36WGMalAk5E/79BsBARhuAgiLn37ZgcyuLFltdueOKahE2TFwQqX8n/CLn CP0NhDbS/37wrYOcZuK16Y0bq1v79bPGNCgTcif8+w2AgYw2AAVFzr9tweZWFi22uvLGFdUibJi4IFL/
IrQntnPuH8MngrL42wjUow3QO14D5MRvgC6db1fxgIFM/Xr1dbCQ3njhxRb4RBMmJOMKam25kjBxmVxE TvhFzkNoT2zn3D+GTwRl8bcRqEcboG+8BsiN3wDdut6i4gEDmUYNG+lgIb3xwost8IkmTEjGFdTaciVh
BhahpdiMPgPokINcUMJ7NKBus3evXtaYBgXXZboyxl5sFUcDrh/QBqAP5UtztoBfaHwi2nCFNcSNRuT9 4jJ5iAwsQkuxGX0G0CEHuaCE92hM3WbfPn2sMQ0Krst0ZYy92CqOBlw/oA1AH8qX5mwBP9/4RLThCmuI
hsim0HzWj8fBH/TBMbmKiPeHAXr17GmNaVASYgCc7h0PGMjUr1dPBxjpjcGHRMBD2ASJBqceT0DGFS8S G43IXxsim0LzWT8eB3/QB8fkKiLeHwbo07u3NaZBSYgBcLp3PGAg06hhQx1gpDcGHxIBD2ETJBqcejwB
PlGB2ydbxQUWgT2RAwgtkcdG5HIx9gvdZs8ePa0xDQq+ocWVMfZiqzgacIFC/bowwI++NOcF2hQgHjzx GVe8SPhEBW6fbBUXWAT2RA4gtEQeG5HLxdgvdJu9e/W2xjQo+IYWV8bYi63iaMAFCo3SYIAffWnOC7Qp
TCxCmlhEldgEDiKyKTTQx0PEsjgOAMljBdoAlDV7dO9hjWlQcFGOK2PsBVf+xAMGMrh8HAbw0hxhCzKA QDx44plYhDSxiCqxCRxEZFNooI+HiGVxHACSxwq0AShr9urZyxrToOCiHFfG2Auu/IkHDGRw+TgM4KU5
EEGxvT4onqAWUcOEZdyvcQkiciShPfQlcqGFsc1fOweHAAyAbrN7t+7WmAblojAArh2sV7euTsdwNx8d whZkACGCYnt9UDxBLaKGCcu4X+MSRORIQnvoS+RCC2Obv3IODgEYAN1mzx49rTENygVhAFw72DAtTadj
swU90VhFlLiCRhKVsYkLvKObrsA2kU2hgV4ME5fK4/sSPifhmQPfH9fdZreuXa0xDQquyXBljL3YKo4G uJuPjtmCnmisIkpcQSOJytjEBd7RTVdgm8im0EAvholL5fF9CZ+R8Mz+747pbrNH9+7WmAYF12S4MsZe
nJwYMsAhD1ugfw1sQpp4whrihgkMIoishRYis9B6HYSmweZh6s/1pengoO6ytAG6XAQGwHf/xANOTMDF bBVHA05ODBngkIct0L8GNiFNPGENccMEBhFE1kILkVlovQ5C02DzMPVn+tJ0cFB3WdoA3S4AA+C7f+IB
o3C1TnMuHOD12/eH8c8A2F4HPomFbZH5WLI1bz7aus/OFod1Bjz3/4yEZzAmQbeJkbwtpkEZPWrURWYA Jybg4lG4Wqc5Fw7wxu1fh/HPANheBz6MhW2R+UCyNX/e37rPzhaH9wx47v8pCc9gTIJuEyN5W0yDMnrU
t48DuuVQC/pg897E83k4axPA+5o9Dp/lzhobm8Lhqd9nX+KKYgeMUWCA2zt3tsY0KDgl35Ux9mJ+JVy0 qAvMAG4fB3TLoRb0zua9ieezcDYkgLc1exw+zZv1NjaFw1O/T7/AFcUOGKPAALd07WqNaVBwSr4rY+zF
9OjaTX+tDFwdSnOHvLRoC/SvhU/QAKJKrAIDi8hrNn3t4z0BvjkE3yiy6ctvPXCBKLpNpHFbTIOCE3Jd /Eq4aOnVvYf+Whm4OpTmDnlp0RboXwufoAFElVgFBhaR12/6ysdbAnxzCL5RZNMX33jgAlF0m0jjtpgG
GWMvtoqjAQMZNgCnOPRz3A/agvvvwiqoxCouiCxwbqwmuEHIM5rYAGjFtpgGJTEG6NBRxUO327uourX9 BSfkujLGXmwVRwMGMmwATnHo57gftAX334VVUIlVXBBZ4LxYR3CDkGc0sQHQim0xDUpiDND5RhUPPW7p
BgC8Iii7hYRDgWWcQDvmi4TcPx+UlmWKNtkIIpymtgHssp284pyAwvXq7Vwwg6lH3aYW0hLToOCEXFfG ptLq+w0AeEVQdgsJhwLLOIF2zBcJuX8+KC3LFG3yCYhwmtrHYJft5BXnBBSuV2/nghlMQ+o2tZCWmAYF
2MutVFE8YCBThwyAfk0GbesenEQZjlwsCoKtDrne4ENMQxm5AGMj9MVPwlgu3tTNM5gDf+FUXuaRhtkg J+S6MsZebqKK4gEDmQZkAPRrMmhb9+AkynDkYlEQbHXI9QYfYhrKyAUYG6EvfhLGcvGmbp7BHPgLp/Iz
zlaCATBussUzGnA+pitj7MVWcTREMoAt2AnHEy+yiCaRRPUL64obSGB/VvBaelhWCBkAaxQwQMdbOlhj jzTMx+JsJRgA4yZbPKMB52O6MsZebBVHQyQD2IKdcDzxIotoEklUv7CuuIEE9mcFr6WHZYWQAbBGAQPc
GpSEGAA7EQ8YyNSpVVv3azIQXmBl0OOF6wyAVUwhaCRRmVxTPhACh4lMqd88/xCP8/09h47pbrND+/bW eENna0yDkhADYCfiAQOZBvXq635NBsILrAx6vHCdAbCKKQSNJCqTZ8oHQuAwkSn1m+cf4nG+v+fQ97rb
mAYF52O6MsZebBVHAwYyMACWXL3gEAiiDHYiMcUKQkjQcFF9wgKruLkLzPwL6BNGD3j8k5Db7DnoGOCW 7NypkzWmQcH5mK6MsRdbxdGAgQwMgCVXLzgEgiiDnUhMsYIQEjRcVJ+wwCpu3gIz/wL6hNH9Hv8k5DZ7
m+MzwLChQxNggPa3qHi4jQYydWrWon7tGAXrGw9bkC80PhGBENEkJGowYZnQGcF+gT3cs4HXezgLWHJ7 DjoGuOH6+AwwbOjQBBig0w0qHm6mgUyDuvWoX/uegnXAwxbk841PRCBENAmJGkxYJnRGsF9gD/ds4I0e
rFjWpUbTvl07a0yDMmzwkPgN0IEqiodbqS+qTQZAWvMCqTGD7McmisT2mnDk+7mQSBKbiCahVhtMXL/A zgKW3B4rlmnUaDp17GiNaVCGDR4SvwE6U0XxcBP1RfXJAEhrXiA1ZpD92ESR2F4Tjnw/FxJJYhPRJNRq
IZHXu6uLYauNW/f76sG1k8ia+PJNM57RgBNyXRljLx0oDcUDUlHtmjW1AT4VQtgCfSHQ4gGfgCAkokQK g4nrFzgk8kZ3dTFstXHr1756cO0ksia+fNOMZzTghFxXxthLZ0pD8YBUVL9uXW2Aj4QQtkCfD7R4wCcg
oXEFzVXYXMQFoaXifR7mErGse/e3R8kAtVS7Nm2sMQ3K0EGD4zcA+qF4gBPxDeNIa1IYHVBbwBMB6s4D CIkokUJoXEHzFDYPcUFoqXifh7lELOve/c1RMkA91bF9e2tMgzJ00OD4DYB+KB7gRHzDONKaFEYH1Bbw
v5CMX9DcRAX+4wMhcW0Chx8H2KvWbd6rPnSR742DTrXJAPipHVtMgzJk0KAEGKDdzSoe2lMaq5VaUy1e RIC688EvJOMXNC9Rgf/4QEhcm8DhxwH2qvc271Xvusj3xkGn+mQA/NSOLaZBGTJoUAIM0PF6FQ+dKI3V
sZoC7/R1EImDyIFOFFKgaLAf8IkgKuMKaxXXEJixHrsgUD/E/2TbPrVk5WrdbbZqeZM1pkHBGdmujLEX S62rlq5cR4F3+jqIxEHkQCcKKVA02A/4RBCVcYW1imsIzFiPXRCoH+J/uG2fWrZqne4227a5zhrToOCM
W8XRAANUr1ZNf/lx86bN8glAFsUKX8nbtlVra0yDMnjAwPgN0J4qihd8WzhSGo5x46rXjMaNVdPMLJXd bFfG2Iut4miAAWrXqqW//LhVi5YFBCCbYoWv5O3Qtp01pkEZfNvA+A3QiSqKF3xbOFIajnHjqtdmTZuq
rLn+3mGkOmyHbx2/rVMn53uIu3XTZ8X269tPDaQPMoQGNCOGj9A/meb8PF2O/sp6XP82dcoUNW3qVP2L FlnZKqdlK/29w0h12A7fOn5zly7O9xD36KHPiu1/a381kD7IEBrQjBg+Qv9kmvPzdLn6K+tx/dvUKVPU
WTNmzFAz77hD3Xnnnequu+5Ss2fNUnPmzNG/nnHvPfeo++69V91/333qgfvvVw8+8IB68MEHnVsCj+E5 tKlT9S9mzZgxQ828/XZ1xx13qFmzZqk5s2eruXPn6l/PmHfXXeruefPUPXffre695x513733qvvuu8+5
bINt76bX4CvXZ1E9+NbNO2fOVHdQ3TOmT6f3mqam0ntOmTxZTZw4UZ+Dj5/MGzt2rP45N1wUO5j64AH9 JfAYnsM22PZOeg2+cn021YNv3bxj5kx1O9U9Y/p0eq9paiq955TJk9XEiRP1Ofj4ybyxY8fqn3PDRbGD
B+jz+3v26KGPi+AIX6dbb9VdIwZ5rVu1Ui1btFDNSHj8RgC+VBOxwvcqmXGMFsTNlTH2ghb8a2Jzcl7Y qQ++bcBt+vz+3r166eMiOMLX5aabdNeIQV67tm1Vm9atVUsSHr8RgC/VRKzwvUpmHKMFcXNljL2gBf+a
BkC/JrZ9ygvbZ080OCXflTH2Apfmc2mCU/JdGWMvN7dpq/K5NBlA3acrY+wFvwOQz6UJrslwZYy9tKMB 2JycH7YB0K+JbZ/yw/bZEw1OyXdljL3ApQVcnOCUfFfG2Mv17TuoAi5ObqPu05Ux9oLfASjg4gTXZLgy
Wj6XJrgmw5Ux9mKrOJ9Lg369+8RvAEzR8rk0wUU5royxFyxG5HNp0qdXr/gN0IYqyufSpE/PRBjgplYq xl460gCtgIsTXJPhyhh7sVVcwMVB/7794jcApmgFXJzgohxXxtgLFiMKuDjp16dP/AZoTxUVcHHSr3ci
n0uT3j165hvg/2fwjeGujLGX1i1vUvlcmuCqLFfG2Iut4nwuDXp26x6/AVq1aKkuZvjDIuXx6NebC7dp DHBdW1XAxUnfXr0LDPD/M/jGcFfG2Eu7NtepAi5OcFWWK2PsxVZxARcHvXv0jN8AbVu3URcy/GGR8nj0
4yyLtg0dIDEPytgO7tgwX8f16XV3vfLmvCfvA6dh3j/bvl9oenTrdukYgEVEEBFQBBknNuIKl86dOqmu 682F27d3lkU7hA6QmAdlbAd3bJiv4/r0urteeXPek/eB0zDvn23fzze9evS4eAzAIiKICCiCjBMbcYVL
nW9X3bt01WkNo1sscmCtG99ChlOfhg8ZqkYOH64vhxozapS+NBpfkJAzdpyaMG68mpiTo783D9+eOWXS 1y5dVPeut6ie3brrtIbRLRY5sNaNbyHDqU/DhwxVI4cP15dDjRk1Sl8ajS9IyB07Tk0YN15NzM3V35uH
ZP1FytOmTFHTp0zVP6wwYxqYbjBNP4evXce2eA1eizpQF+pE3XgPvBfec8zIUXofRg4brr8lFd+TOGjA b8+cMmmy/iLlaVOmqOlTpuofVpgxDUw3mKafw9euY1u8Bq9FHagLdaJuvAfeC+85ZuQovQ8jhw3X35KK
AL2v2OfePXvqlonP0qVzZ9X51k76vEmYTBuKPnvb1q0TYpruXbv+52eAfCIDk7kyxl5uym6hLiTNs5rq 70kcdNttel+xz31799YtE5+lW9euqutNXfR5kzCZNhR99g7t2iXEND27d//PzwAFRAYmc2WMvVyX01qd
VrV+/Xq1a9cuPzt3qp2SHTs0OyTbt6vtJtu2qW2SrVs1W5ktWzRbDDZv3qy2uOC+5PPPP/fx2WefhbFp T1plt9CtauPGjWrXrl1+du5UOyU7dmh2SLZvV9tNtm1T2yRbt2q2Mlu2aLYYbN68WW1xwX3JZ5995uPT
0ybNxo0b1fPPP6+yMjNVlUqVNZUrVQpRMQR+h7lShYr695crlq+gypcrp8onl1PVqlTVsbHFLCi4LtOV Tz8NY9OmTZpPPvlEPfPMMyo7K0vVqFZdU71atRBVQ+B3mKtVqap/f7lq5SqqcqVKqnJyJVWrRk0dG1vM
MfbSsnm2upAgRR45ckTt3btX7d69+z+GAwcOqNWrV5P4lUjMKvq0uNSU6h41UlIcqjngR7hxGljVypW1 goLrMl0ZYy9tWuWo8wlS5JEjR9TevXvV7t27/2PYv3+/WrduHYlfjcSsoU+LS02p7VEnJcWhlgN+hBun
IcqVTdYmsMUsKOg2XRljL7aKE0WLZs31T5x/8MEH/5EgE1StXIWErq4v9MC3pWnq1PXAVcD1atfRVwLh gdWsXl0bolLFZG0CW8yCgm7TlTH2Yqs4UbRu2Ur/xPk777zzHwkyQc3qNUjo2vpCD3xbmqZBmgeuAm5Y
VHCcQFudzIDsUC45WcfIFrsgYIzhyhh7wQ5cKLKbNtPn79mC958ADADxcZEHvjAb5/mFaKh/TY3Bl0Nj v4G+EginguME2tpkBmSHSsnJOka22AUBYwxXxtgLduB8kdOipT5/zxa8/wRgAIiPizzwhdk4zy9Ehv41
m/p16+rrKJAx0CUgRrbYBeH2TrfFbwDsQKJB/8TTtjmz56iPPvpIrVu3Tn344Yc+OJDvv/++x5o1ayLy NQZfDo1tGqWl6esokDHQJSBGttgF4ZYuN8dvAOxAokH/xNO2uXPmqvfff1+999576t133/XBgXz77bc9
3nvv6Vtst3btWh9cl3zMfD8J75MNPPfxxx/r7WR9/B7Mhg0bVM3UVN3KIXhm4wzVpHFjh/QQGenpqjGZ 1q9fH5G33npL32K7DRs2+OC65GPm+0l4n2zguQ8++EBvJ+vj92A+/vhjVTc1VbdyCJ7VtJlq3rSpQ2aI
AjRs0EBnhNTqNfR4AeMAWwyDgBmGK2PsBTuQSJCaeB6NuTPO2mXBEDQEVQb7k08+8cBAke9DBBP5OhZS ZpmZqimZAmQ0bqwzQmrtOnq8gHGALYZBwAzDlTH2gh1IJEhNPI/G3Bln7bJgCBqCKoP94YcfemCgyPch
Co37bCI2C9+ycRgWkcXl/ePXy20BPy+BAdCaG1Daz2iUrk/3ZnCaPAzBaCPQNo3S0vT2tcg4VWg8YIth gol8HQsphcZ9NhGbhW/ZOAyLyOLy/vHr5baAn5fAAGjNjSntN2uSqU/3ZnCaPAzBaCPQNk3S0/X29cg4
UHBdpitj7KVZZpZKJJieyEWUu+fc7QUMIuFWCiUFiAS2NV8nwePyPfh95H0Tfs5mKvNvbM/vwfsAPv30 NWg8YIthUHBdpitj7KVlVrZKJJieyEWUO+fe6QUMIuFWCiUFiAS2NV8nwePyPfh95H0Tfs5mKvNvbM/v
08gGEOJLAyBT4FtCMRbA4NEWw6BgDcWVMfbSrEmmSiTIADABuoFWLVroc/c5YAwLh/tSPLO1swASPG5m wfsAPvroo8gGEOJLAyBT4FtCMRbA4NEWw6BgDcWVMfbSsnmWSiTIADABuoG2rVvrc/c5YAwLh/tSPLO1
A8B1MPw+8j1k/bmB9C9B/Xhv1IE6kVUwA0DGqk1ChhmABAdafBIeaANgbEDjgTQyAIwDAzS1xDAot97S swASPG5mA8B1MPw+8j1k/XmB9C9B/Xhv1IE6kVUwA0DGqk9ChhmABAdafBIeaANgbEDjgXQyAIwDA7Sw
IX4DYAcSCQYnvFABM+AiCwjASJEALtbAilruDFFDBw9WgwYOdC/C6Kl6dO9O3cvsMIOYInKXgvt4HGLi xDAoN93QOX4DYAcSCQYnvFABM+AiCwjASJEALtbAilreDFFDBw9WgwYOdC/C6K169exJ3cucMIOYInKX
FtuysLZb3o73E0Zi4d999121atUqXactA8j0j4tmvLGA7gKcDIDXpVStqre3xTEIWEl1ZYy9eK5NMBwA gvt4HGLiFtuysLZb3o73E0Zi4d988021du1aXactA8j0j4tmvLGA7gKcDIDXpdSsqbe3xTEIWEl1ZYy9
XNXDLRFI8UFDGhkjgLmhp1M0cKpVI1XVJDCXrlyxol6A4XoBGwwi2sBzclsbsj4GwrP477zzjubtt9/W eK5NMBwAXNXDLRFI8UEGjYwRwLzQ0ykaONWrk6rqEphLV69aVS/AcL2ADQYRbeA5ua0NWR8D4Vn8NWvW
JkEGwMgeAzz5ubX4rvAsfuNGjRwD0GfC62AAbGfGLii4QNSVMfYidzgRIPXjlGU+aMOtlFuXFB8geHlR aFavXq1NggyAkT0GePJza/Fd4Vn8pk2aOAagz4TXwQDYzoxdUHCBqCtj7EXucCJA6scpy3zQhlspty4p
r44zh65Zo4ZKJSA+VtawqgaBbEKa4L1s+4DHcIttUJdM8WjpEPutt95SK1asUCtXrtT3cQvwOlwZjX2E PkDw8qNhA2cOXbdOHZVKQHysrGFVDQLZhDTBe9n2AY/hFtugLpni0dIh9htvvKFWrlypVq1ape/jFuB1
uJkZFAOiCXBnA7hMDrMAgOlhI5oOwgC1atbSBoA5bHEMAsZZroyxF+nSRIDBCS9UoBvANXcIciQD6IWS uDIa+whxs5pRDIjmwJ0N4DI5zAIApodNaDoIA9SrW08bAOawxTEIGGe5MsZepEsTAQYnvFCBbgDX3CHI
vMAiCgWsBk2dsIhSrUpVvapWjQLI5jLfgx/nroCRXQKex7ZSfDaA+TdA2ocR3nzzTbV8+XL9HFI5Fn+Q kQygF0ryA4soFLA6NHXCIkqtGjX1qlotCiCby3wPfpy7AkZ2CXge20rx2QDm3wBpH0Z4/fXX1YoVK/Rz
AZD6dcp3yaB4aHTrZwM00BmNM0ATetwWxyDgwJIrY+wFO5dIkJp4lJpF/RR+4RpisCBSfIAVsiDgcmrM SOVY/EEGQOrXKd+lGcVDo1s/G6CxzmicAZrT47Y4BgEHllwZYy/YuUSC1MSj1Gzqp/AL1xCDBZHiA6yQ
nfHtWqnoBmgAhYUU2bol/J6M2cIlsl/nFM9pnls/iw6WLVumli5dql+H0TwMgJ+D94TXrd4BwrP4GABi BQGXU2PujG/XSkU3QAMoLKTI1i3h92TMFi6R/TqneE7z3PpZdPDaa6+p5cuX69dhNA8D4OfgPeF1q3eA
QYgNgMUgWwyDggzryhh7wcg0kcCZEP8mZAEaEN4xY4Yngik+wBJqXmClTS+hUqtHv4/UX7ZMkkoiIBrE 8Cw+BoBYEGIDYDHIFsOgIMO6MsZeMDJNJHAmxL8OWYAGhLfPmOGJYIoPsISaH1hp00uo1OrR7yP1V6yQ
AxAEQFQIDcEZbs1sAH4NIwVn0aXYixcv1ixZskSD+3gN9gvf+gmBtQHc1skiaQPQc44B0vSYxzMAfR48 pJIIiAbxAAQBEBVCQ3CGWzMbgF/DSMFZdCn20qVLNcuWLdPgPl6D/cK3fkJgbQC3dbJI2gD0nGOAdD3m
Z4tjENDNujLGXhqTKxOJFh9Hq9xuAAawCc/UpZadF0j/GACmUOqvWL68Fr9MqVKqdMlSntBcH2cEbvFS 8QxAnwfP2eIYBHSzroyxl6bkykSixcfRKrcbgAFswjNp1LLzA+kfA8AUSv1VK1fW4lcoV06VL1vOE5rr
fJgFIgP04dyyZeuWf+MWBpAmWLRokVq4cKEGRsGCDgRF69bTPRIcaAOQSBCYY4P+H8vBPKBFN4bXyfhF 44zALV6KD7NAZIA+nFu2bN3yb9zCANIES5YsUYsXL9bAKFjQgaBo3Xq6R4IDbQASCQJzbND/YzmYB7To
A1ZbXRljL9iBRILpCYTPbuYsV+KafikKC8VA3LxAa6lJ6R/z5sr6SFpZbQIcTJF1oX4Wnls6MoJM7bKV xvA6Gb9owGqrK2PsBTuQSDA9gfA5LZ3lSlzTL0VhoRiImx9oLXUp/WPeXF0fSauoTYCDKbIu1M/Cc0tH
swlsZmDRAZsALX/BggVq/vz5at68eXpbzEowToG4vpbvis+pH+gZD00B8d3KbAC8TsYvGnBSiStj7AU7 RpCpXbZyNoHNDCw6YBOg5S9atEgtXLhQLViwQG+LWQnGKRDX1/Jd8Tn1Az3joSkgvluZDYDXyfhFA04q
kEiwY9qhDZ3biRMmei1QtlQG4uYJBQuHWKtVruIce69YSVUoV17PBqTYnPq5T2dgADaB7NdlmufUzumd cWWMvWAHEgl2TDs0w7mdOGGi1wJlS2Ugbr5QsHCItVb1Gs6x96rVVJVKlfVsQIrNqZ/7dAYGYBPIfl2m
WzkEl6KDuXPnqjfeeEObA8bEGAWDO5/wrkjpIjZYAMIMANvDONoAZAoZv2jAINuVMfYCV15IJozP8QTC eU7tnN65lUNwKTqYP3++evXVV7U5YEyMUTC48wnvipQpYoMFIMwAsD2Mow1AppDxiwYMsl0ZYy9w5flk
rWkAtIQ8oSDjmDoMgGPsOIhSgcYByUllfWMAFphF5pYtW7RM4xAWt/hbpnYJbwMDQPTXX39d89prr+m6 wvhcTyDcmgZAS8gXCjKOqcMAOMaOgyhVaByQnFTRNwZggVlkbtmyRcs0DmFxi79lapfwNjAARH/llVc0
YExkKXxWT3SCRfJiQeKnkfgNaLyAMQ2MAwN4z1vIzmoqjv410+v/8nl0s66MsRfsWCLB/FQescJKIKZc L7/8sq4LxkSWwmf1RCdYJC8WJH46id+YxgsY08A4MID3vIWc7Bbi6F9Lvf4vn0c368oYe8GOJRLMT+UR
vEIXZgAKRF4gWDUoWFgAQkZA4DgTsOgyxUsDMJzeYQJu5VJ0eR9io5WjtXPLx98Q/tVXX1WvvPKKBtvC K6wEYsrFK3RhBqBA5AeCVYeChQUgZAQEjjMBiy5TvDQAw+kdJuBWLkWX9yE2WjlaO7d8/A3hX3rpJfXi
mDAAUrvX2kkcoIVy4+KI7yxqYXunS6vqi50JxlL6wI87q4Lg8nl0ta6MsRfsWCJBAORAZWLOBJ2muX82 iy9qsC2MCQMgtXutncQBWig3Lo74zqIWtne6tJq+2JlgLKUP/LizKggun0dX68oYe8GOJRIEQA5UJuZO
DVCzevU8QSurTnNmnH2TQlMnp/UnqbKETO+c2mVfzrecAWSaN03A6V6mfNMAL7/8snrppZfUiy++qB/H 0Gma+2fTAHVr184XtLLaNGfG2TcpNHVyWn+SqkjI9M6pXfblfMsZQKZ50wSc7mXKNw3wwgsvqOeff149
VA4DQbRsHOptWJ/EIdJAPYoJAeHxPMSvW7u2O6V1ujRbDBm0fL3s66784W/5PBqYK2PspQHtVCJBP6jX 99xz+nFM5TAQRMvGod6MRiQOkQ4aUkwICI/nIX5a/frulNbp0mwxZNDy9bKvu/KHv+XzaGCujLGXxrRT
AWjH0Rfi922R+tkEpgH4FKrcQNrHDAAtvgYFDl0A1gCSaTDIrR7iy7QvhZfis/DSCGwCKTbSPUCq51YP iQT9oF4HoB1HX4jft0XqZxOYBuBTqPICaR8zALT4OhQ4dAFYA0imwSC3eogv074UXorPwksjsAmk2Ej3
8SH8Cy+8oM8JhCGwmOMMBOvoPl73857oOEPIEd4RHyuaZAAyDHdpthgy6AL4QBKA4PJ5ZAdXxtgL71yi AKmeWz3Eh/DPPvusPicQhsBijjMQbKD7eN3Pe6LjDCFHeEd8rGiSAcgw3KXZYsigC+ADSQCCy+eRHVwZ
QP/nHf0iM+D0arkYYxoAZ9Tkibv6B9Ex8Esum6ySSpdRZUqX9gkOoWVrly3elvplS2fRccutHeKz8Gj1 Yy+8c4kC/Z939IvMgNOr5WKMaQCcUZMv7uofRMfAL7liskoqX0FVKF/eJziElq1dtnhb6pctnUXHLbd2
LPxzzz2nnn32WW0MiKgXqEhcR/AQcjUTz+s1DWr96NawolmVujFbDBmkfj2rcAeW+Fs+j4bmyhh7wZw0 iM/Co9Wz8E8//bR66qmntDEgol6gInEdwUPI1Uw8r9c0qPWjW8OKZk3qxmwxZJD69azCHVjib/k8Gpor
kbDz+e+xY8b4RukQnadqAIHIE93/V1EVkp0zasvS4A+tH3BLZ8FZaCk+t3oz3UN8W6tnZMvntP/MM89o Y+wFc9JEws7nv8eOGeMbpUN0nqoBBCJfdP9fQ1VJds6orUiDP7R+wC2dBWehpfjc6s10D/FtrZ6RLZ/T
/vGPf+jHcFIHDIq07glOn1sLDtyFLA3Ep2xRk0yNrgPjGI6TDaR/OZPA3+bzroyxl3q0Y4kEgxNeDAGc /pNPPqn5xz/+oR/DSR0wKNK6Jzh9bi04cBeyNBCfskVdMjW6DoxjOE42kP7lTAJ/m8+7MsZeGtKOJRIM
AXh5Vk7bMF2DuHmB9I/WUpGmfjAEVgLR+ksUL+ETW7ZsU2ApMlo3g1bOsOAQVorOoPU//fTT6u9//7t6 TngxBHAG4OVZOW3DdA3i5gfSP1pLVZr6wRBYCUTrL1O6jE9s2bJNgaXIaN0MWjnDgkNYKTqD1v/EE0+o
6qmn9N/olrCPWBE0Vy8hOMNT2lo1aEBLBtCfiV5riyGDcwp4wIc+H3+bz7syxl5sK2/xALdiwKIHLrSD v//97+rxxx/Xf6Nbwj5iRdBcvYTgDE9p69WhAS0ZQH8meq0thgzOKeABH/p8/G0+78oYe7GtvMUD3IoB
uMqGWzuE5+Vanp9Xp0DkRQq1/iqY+1Pr16uBFaj/pywAE7D4spVLI0B4NgIMYDOC2dJZeE75Mu1D+L/9 ix640A7iKhtu7RCel2t5fl6bApEfKdT6a2DuT61frwZWof6fsgBMwOLLVi6NAOHZCDCAzQhmS2fhOeXL
7W/qySef1H9Xpn1JqVJFp3V8/joksgRrGAzE12Maav3o0rCoZcYPcN+P1M/9fX1q8RhU4zGMr7AdtnFl tA/h//a3v6nHHntM/12d9iWlRg2d1vH5G5DIEqxhMBBfj2mo9aNLw6KWGT/AfT9SP/f3jajFY1CNxzC+
jL2YOxwv2FmkK+wopoT4dk1O/7ZVOfShHtTKTdDyQSVcVEF9P86pL1umjCpdqpQqVbKUJ77sz6XIZuuG wnbYxpUx9mLucLxgZ5GusKOYEuLbNTn921bl0Id6UCs3QcsH1XBRBfX9OKe+YoUKqny5cqpc2XKe+LI/
yHzLQHCIzSJzipetHaKz8H/961/VX/7yF/089qsadQMQ1i+2s34hp7JI/egukDHwmWAAWwzRiDCFdFK9 lyKbrRsi8y0DwSE2i8wpXrZ2iM7C//Wvf1V/+ctf9PPYr1rUDUBYv9jO+oWcyiL1o7tAxsBnggFsMUQj
m1VIcGQSdK+YYmI7ZFhXxtiL3OlEgB3EgAWDFwwEMQbgqZptjl6FglCZgohAOpR3oHTPIPVDfAz8YADu whTSSfVuViHBkUnQvWKKie2QYV0ZYy9ypxMBdhADFgxeMBDEGICnarY5eg0KQnUKIgLpUNmB0j2D1A/x
/7EcjNYO4SO1aBaYW7TZqiOJDaEhMsSWoj/xxBPq8ccf12A7rEgiO0FULTKmriQ08GYyJDpwxK+ql7S5 MfCDAbj/x3IwWjuEj9SiWWBu0WarjiQ2hIbIEFuK/uijj6pHHnlEg+2wIonsBFG1yJi6ktDAm8mQ6MAR
S7PFEKAB6e6DhObVUIDYyvuujLEX34pbAkDr1ycs6FlAI20AOVUzp2kVkpN1OkerLksCg6RSpT3KAGrp v6Ze0uYuzRZDgAakuw8SmldDAWIr77syxl58K24JAK1fn7CgZwFNtAHkVM2cplVJTtbpHK26IgkMksqV
pUqUUCWKFdPb4iggHi9VsqSvH4fwDIsOkc2WzfCAjh83xYfY4LHHHtM8+uij3u0jjzyit4Ex0ZLRNZli 96gAqKWXK1NGlSlVSm+Lo4B4vFzZsr5+HMIzLDpENls2wwM6ftwUH2KDhx9+WPPQQw95tw8++KDeBsZE
e7hjGT2eIQNgQIvXwAC2GAKkfIz05WMYByAr8N8YILoyxl4c1yYOOFOmPZzPx1M0nqbJqVoS9eMlixdX S0bXZIrt4Y5l9HiGDIABLV4DA9hiCJDyMdKXj2EcgKzAf2OA6MoYe3FcmzjgTJn2cD4fT9F4mianaknU
xYsWVcVuvFFTtEgRzY2gcGFVpFAhVbhgQVWIKE4muJG2KUSPFbjhBmvrzk10gNbOoNWbaZ7v49bMChD+ j5ctXVqVLllSlbr2Wk3JEiU014LixVWJYsVU8aJFVTGiNJngWtqmGD1W5JprrK07L9EBWjuDVm+meb6P
z3/+s3r44Yd1FsCBKWQsnJ+Akb0HCQ0guAdaPsYzbvrHmMaMnwSpXv6NrkH+jcbmyhh74XSVKHQXQM5k WzMrQPg///nP6oEHHtBZAAemkLFwfgJG9h4kNIDgHmj5GM+46R9jGjN+EqR6+Te6Bvk3GpsrY+yF01Wi
cCm1nKeb07OSNJK/sXAREriQKlSgoCpYoIAqSMIWuP4GdcP116sbrrteXX/ddeq6a6/Tt8XIKDBAETJG 0F0AOZPBpdRynm5Oz8rSSP7a4iVI4GKqWJGiqmiRIqooCVvk6mvUNVdfra4pfLW6unBhVfiqwvq2FBkF
YTIBp31kAL7lLGAO7LifhylgDjYDi8xAbJnu0eIZCP/QQw+pP/3pT9oMWJGsQAaAqMgCJr4xDsSn7gLi BihBxihOJuC0jwzAt5wFzIEd9/MwBczBZmCRGYgt0z1aPAPh77//fvWnP/1JmwErklXIABAVWcDEN8aB
o2tD9rPFkEFjwpgK99H6daMSz2N24MoYeyGXruS0lQiwo3oRiPon9FGjRozw0j0MYM7H0fLRsrXgLLYr +NRdQHx0bch+thgyaEwYU+E+Wr9uVOJ5zA5cGWMv5NJVnLYSAXZULwJR/4Q+atSIEV66hwHM+ThaPlq2
+HXXXquuu+Zade0116hr/scBrR7C4zW4hbCyr2ehZTaA2BAa4nJ6Z5DSITKne9znNA/Q2rnFQ3j99fPE FpzFdgUvfNVVqvCVV6mrrrxSXfk/Dmj1EB6vwS2ElX09Cy2zAcSG0BCX0zuDlA6ROd3jPqd5gNbOLR7C
Aw88oP/GuARrExAWAvOgVYLnGC0+jXUq0mvKUXdmi6FEGsB8Do+RhJcJoi6XVa1a9erqlaq+hX4qEaCP 66+fJ+699179N8YlWJuAsBCYB60SPMdo8WmsU5VeU4m6M1sMJdIA5nN4jCS8RBB1uaRmzZpX1K5W8w30
4lkAjDCSDCBbvrkIM3DgQEqfNCWiQFWiAFXUJ3w6J31WoECVp9aFeX85QEHTzxM4H7B/v35ea+Z0zynf U4kAfRTPAmCEkWQA2fLNRZiBAwdS+qQpEQWqGgWoqj7h0znpswoFqjK1Lsz7KwEKmn6ewPmAA/r391oz
TPHyb5nSubUzbAbcSmAKtPj7779f3YffHMBvEpAJME6BkBDVJzRDn4XBAFYOavE6WwxNMJayPQ5zpKen p3tO+WaKl3/LlM6tnWEz4FYCU6DF33PPPepu/OYAfpOATIBxCoSEqD6hGfosDAawclCL19liaIKxlO1x
/5Z0vAJaugQu/IIrkpKS/rtapUpv2+bg0YLpCvouvYRJIAPAAAAGMKdpGCDK08X4oJFcO2B4OslTSmQT mCMzM/O3pONl0NIlcOEXXJaUlPTftapVW22bg0cLpivou/QSJoEMAAMAGMCcpmGAKE8X44NGcu2A4ekk
2cezyDKVY/Rua93cqrllM0jt3MIhNpD37733XnXPPfdoYAIMUJNpUApRMZsx0TMbes6b0cDEhGOAJGsM TymRTWQfzyLLVI7Ru611c6vmls0gtXMLh9hA3p83b5666667NDABBqjJNCiFqJjNmOiZDT3nzWhgYsIx
g4KBIul3VWpq6u+gI3G5q2mggg3xArz4qquvvrpA5QoV3rX1Y9GAfgrzVhwUQRYYPnSol/IhvJyuyfm5 QJI1hkHBQJH0K5Samvo76Ehc6moaqGBDvAAvLnTFFVcUqV6lypu2fiwa0E9h3oqDIsgCw4cO9VI+hJfT
7K8xqJMLMXJQJ9M6xOe0DqF5ysbwY2jZbAJGjuZlmpd9vDQCxJbiswFKlyipZy4VsEbBIucGia+XtKn1 NTk/l/01BnVyIUYO6mRah/ic1iE0T9kYfgwtm03AyNG8TPOyj5dGgNhSfDZA+TJl9cylCtYoWOS8IPH1
Y/xgi2FQEGfS7r+J/0P8nogqE+jWT+CFVxPXXXnllUkVksqtxcpbrGDeikUMnCGDTIBft+R+H6k/FtFl kja1fowfbDEMCuJM2v038X+I3xNRZQLd+gm88Aqi8OWXX55UJanSBqy8xQrmrVjEwBkyyAT4dUvu95H6
Kzf/5rQuUzrfZ9gAtrTOtzACi49bNoRpBGkAGKJUseLUDZTSgnLrzg0YhVs/MocthkHBOgHpVpD4I/Ff YxFdtnLzb07rMqXzfYYNYEvrfAsjsPi4ZUOYRpAGgCHKlSpN3UA5LSi37ryAUbj1I3PYYhgUrBOQbkWJ
BBpz4CyAjdB/XEXARaiozG9/+9t6Zcsk/dO2KhcEDE54SRP079tXp3tu8bGIziLjFs/zY7L1Q2AeuAGI PxL/RaAxB84C2Aj9RyECLkJFFX772982rFgh6Z+2VbkgYHDCS5pgwK236nTPLT4W0Vlk3OJ5fky2fgjM
aqZ72bJxy7DAMtUDcxsgDQBK0rQU3UA5EhPi5gWMAmAALGTZYhgUrAWQZqWIAq6GVxLQNGoD/A9RhKhA AzcAUc10L1s2bhkWWKZ6YG4DpAFAWZqWohuoRGJC3PyAUQAMgIUsWwyDgrUA0qwcUcTV8HICmkZtgP8h
1L/iiis6lC1VajMOVkQLFjtwoAL9E25xLZ9teiYNYDMCm4CFRquWfTu3bpn62QgQHqKjVTMwAMNGYGFZ ShBViEaXXXZZ54rlym3GwYpowWIHDlSgf8ItruWzTc+kAWxGYBOw0GjVsm/n1i1TPxsBwkN0tGoGBmDY
cJnmZ8+erX+MSoLHTAOUKFpMdwPJmA244uYGhOfWj67DFsMgwABobKRXRaIYcS2BroCzQJ6FDYDUAQMU CCwsCy7T/Jw5c/SPUUnwmGmAMiVL6W4gGbMBV9y8gPDc+tF12GIYBBgAjY30qkqUIq4i0BVwFsi3sAGQ
JSoRjYiOl19+eU6ZoqV2Y6k2GjBl4TVsGAA/asD9vpn+zSzASAOYmYDF577dHLlzOpd9OovMArPI+NUw OmCAkkQ1oglx46WXXppboWS53ViqjQZMWXgNGwbAjxpwv2+mfzMLMNIAZiZg8blvN0funM5ln84is8As
EzyO7Ri8DpmBs4QUH5SgaWzpEiVITMwGHHHzAuInuyufthgGAWMtMsIvpFUqUZq4gfgDgS49UDeADTAG Mn41zASPYzsGr0Nm4CwhxQdlaBpbvkwZEhOzAUfc/ID4ye7Kpy2GQcBYi4zwC2mVSpQnriH+QKBLD9QN
QAZAH8IZII3oQIy97LLLnipevPgh2w5EAqNTXgkEXbt00cIBiCgF5SkZBJV9tymu2V+bItsGbVJkbr0s YAOMAZAB0IdwBkgnOhNjL7nkksdLly59yLYDkcDolFcCQfdu3bRwACJKQXlKBkFl322Ka/bXpsi2QZsU
MDBbN8NG4PswAerlumfNmuUD6xhYpo7WALz0bYthXvA0sHTp0idIpzpEMoEu/P8ScjCYa2EDoN/AC1FB mVsvCwzM1s2wEfg+TIB6ue7Zs2f7wDoGlqmjNQAvfdtimB88DSxfvvxx0qkBkUygC/+/hBwM5lnYAOg3
ElGbaEUMJR4jE7xZqmDBo7YdscHpiWnTurUOFASQgcPfDD+G3wKcOdP57T79+30zZqjp06erafwbflOm 8EJUkETUJ9oSQ4mHyQSvlyta9KhtR2xwemLat2unAwUBZODwN8OP4bcAZ850frtP/37fjBlq+vTpahr/
qMnu7/jp3/KbMEHl5OSo8ePHqzFjxujf8xs5cqSG74+gaSjA32DcuHG5gt8FRF0m/Pjo0aN9lC6JWYAj ht+UKWqy+zt++rf8JkxQubm5avz48WrMmDH69/xGjhyp4fsjaBoK8DcYN25cnuB3AVGXCT8+evRoH+XL
PgZ3QcEaALDFMDeQ9tHIcL9s2bI7SKO4DMDTQPQd6EOKE1WIxkQXYgbxHJlgedGiRQ/SKPYUTWFOFSty YhbgiI/BXVCwBgBsMcwLpH00MtyvWLHiDtIoLgPwNBB9B/qQ0kQNoinRjZhBPE0mWFGyZMmDNIo9SVOY
42kbeI66gFO1a9f2aJaZeab9zTefZZo3bXauWdOmmqZZWd5tVmbmuYyMDI/G6ema9EaNzjVq2FCTnp5+ kyWLlzhlA89RF3Cyfv36Hi2zsk53uv76M0zL7BZnW2Rna7KzsrzbrObNzzZt2tQjs0kTTZOMjLMZ6ema
PhGkNWhwrn69eh74GzRg6tfX8OMtslucbZGdfTa7WfOzmU0yiSaaJhkZZysXLXa60o1FTxenz8/xyStG zMzMc4mgcaNGZxumpXngb9CIadhQw4+3zml9pnVOzpmclq3OZDXPIpprmjdrdqb6tSVPVStx7alS9Pk5
uYE6bFQuX+HnihUq/lSpRIkfabtDSWWSNtHUHY005i4ARWYBngmgsupEU6IbMZ6YTTxIPEI8RjxOPCHA PvnFKC9Qh43qlav8XLVK1Z+qlSnzI213KKlC0iaauqORxtwFoMgswDMBVFabaEH0IMYTc4j7iAeJh4lH
38gWjxYsWPAvVatW/VtWVtZTnTt3fn7w4MGvUcuZTy114aRJkxZTK15CLXoZtejlxApq4W9Tq19FrX81 iEcF+BvZ4qGiRYv+pWbNmn/Lzs5+vGvXrs8MHjz4ZWo5C6mlLp40adJSasXLqEW/Ri16BbGSWvhqavVr
sYYywgeUvtdR6v2YWE8p/l+U6v+X2EipfhOl/s+IzcRWYht1B9vp8e002t9B2+6kv3fiPm2/A49Td7CN qfWvI9ZTRniH0vd7lHo/IDZSiv8Xpfr/JT6hVL+JUv+nxGZiK7GNuoPt9Ph2Gu3voG130t87cZ+234HH
UvdWqmsL1fs5pfaNlNo3UDfwKd3/F73fevr7I7r/IT3/Ad2uIVbT49gn7NtKykbLiaW074soi7w+dOjQ qTvYRql7K9W1her9jFL7J5TaP6Zu4CO6/y96v4309/t0/116/h26XU+so8exT9i3VZSNVhDLad+XUBZ5
V/v16/dKp06dXiJDvZCcnPz0H//4x8d/97vfIT5/JnD7KGKSC3ge25ng9ZKHiYeI+wg0SIjemWhB1CMw ZejQoS/179//xS5dujxPhno2OTn5iT/+8Y+P/O53v0N8/kzg9iHEJA/wPLYzweslDxD3E3cTaJAQvSvR
CMT4LepBIIrMAjwYLETABNWIhsRNREeiK9GT6E30IfoK8HdvGjj2KlCgQP/U1NRhrVq1Gtu/f//plKbn mmhIYBCI8VvUg0AUmQV4MFiMgAlqERnEdcSNRHeiN9GX6EfcKsDffWng2KdIkSIDUlNTh7Vt23bsgAED
kMj3UsAfoH70YeIREuox4gnq46nLf/Lv1Pf/g3iWxgPP07jgRRofvES8QoPB12igOJemjfOIhcQiGjwu plOanksiz6OA30v96APEgyTUw8Sj1MdTl//Y36nv/wfxFI0HnqFxwXM0PnieeJEGgy/TQHE+TRsXEIuJ
oVuwlAaUy+jv5XS7AtBjb0rwnPv8UqpnMd1fTI8vosHoInpsAd3Op8fm0SD0deI1ej+854s0EKXJyPN0 JTR4XEa3YDkNKF+jv1fQ7UpAj70uwXPu88upnqV0fyk9voQGo0vosUV0u5AeW0CD0FeIl+n98J7P0UCU
97lnaDBKw5enn6L9epIGmo/T57iHzIHPNJuMPbNLly6TGjZsOJLGSv2uuuqqHhQHgDj1QkxyAc8HBfWh JiPP0N2nn6TBKA1fnnic9usxGmg+Qp/jLjIHPtMcMvbMbt26TcrIyBhJY6X+hQoV6kVxAIhTH8QkD/B8
MXYi2hCZRF2iMlGSwDQQ6T+qaSAXzgJIHXAQTIBMUIIoR1QlahJwGwaImCWkG+AxmCWtcuXKTW+55Za2 UFAfGmMXoj2RRaQR1YmyBKaBSP9RTQO5cBZA6oCDYAJkgjJEJaImUZeA2zBAxCwh0wCPwSzp1atXb3HD
1Eo6UYvvSa1wIA3qBpOgQ2gAOJQCPYLEGElCjCYBxpAQ4+bOnZuzcOHCicSkRYsWTabbqUuWLJm+ePHi DTd0oFbShVp8b2qFA2lQN5gEHUIDwKEU6BEkxkgSYjQJMIaEGDd//vzcxYsXTyQmLVmyZDLdTl22bNn0
GYD+voMenzl//vw7aEYxjbbHY3cuWLBgJu7jMZfpDNU7g2Yed9DzYAaYN2/edKoDr51Br50m6p9Kf0+h pUuXzgD09+30+MyFCxfeTjOKabQ9Hrtj0aJFM3Efj7lMZ6jeGTTzuJ2eBzPAggULplMdeO0Meu00Uf9U
5ybRfezHRNp2AtUzHvuH/cQ+kxkGU2bpTtmkG/mgC2WyzoMGDWrfsmXL7KSkpPQ//OEPDSgGAHFCPBCX +nsKPTeJ7mM/JtK2E6ie8dg/7Cf2mcwwmDJLT8omPcgH3SiTdR00aFCnNm3a5CQlJWX+4Q9/aEwxAIgT
RIC6UC80gBZonNAGGkH8mBaCuGBjaQJUBDchpSAbIL3AZRggliXwxuUN8BgGImWLFStWqX79+ildu3at 4oG4JALUhXqhAbRA44Q20Ajix7QQxAUbSxOgIrgJKQXZAOkFLsMAsSKBN65sgMcwEKlYqlSpatSPpnTv
Q4OwBpQ60ykFZ1CLz6D0nEGtPpMMkUWtqimgVqahFteMzNGcAp1NrbIlideCRNCQ+PqWRMwmUZrjOYDt 3r0BDcIaU+rMpBTcjFp8M0rPzajVZ5EhsqlVtQDUyjTU4lqSOVpRoHOoVbYh8VqTCBoSX9+SiDkkSis8
SKCbGHp9S2q9LXCfDNYKkOlakHDNyYDZ9D4a3Me2gLbB9tmi7mZUbxbtRxNA2zam2UdDylwNqKuoT8LX B7AdCXQdQ69vQ623Ne6TwdoCMl1rEq4VGTCH3keD+9gW0DbYPkfU3ZLqzab9aA5o26Y0+8igzNWYuopG
vOuuu2pS95VKg8Ya9DmrpaWlVSxSpEjy73//e8QHIBa2OMUKxxcaYOEH8/7CxPVEzEvBskgTwEVIJagU JHzdWbNm1aXuK5UGjXXoc9ZKT0+vWqJEieTf//73iA9ALGxxihWOLzTAwg/m/cWJq4mYl4JlkSaAi5BK
RkBGgBnwZhhowHGRwPPXFy5c+PqUlJQbmjZtWoACVKBPnz4FBw4cWIBSpoZG8AUphepb934hhoJbGFCg UCmMgIwAM+DNMNCA4yKB568uXrz41SkpKde0aNGiCAWoSL9+/YoOHDiwCKVMDY3gi1IK1bfu/WIMBbc4
i9ggM90YD7Y6Ab+v3BfeP4b3H58FnwmfDZ+RWv8NhQoV0p/djYEZF2TUWJH1oO7riGsICI8lfEzjoRm0 oECXsEFmujYebHUCfl+5L7x/DO8/Pgs+Ez4bPiO1/muKFSumP7sbAzMuyKixIutB3YWJKwkIjyV8TOOh
i7r1mwUvRiWoDH0JXIU3QFaAIQDeNBJ6G5ox/FfdunU1PXr0uCo7O/vKYcOG+aAAX3UpYe4/PhcNAK/i GbSLuvWbBS9GJagMfQlchTdAVoAhAN40EnobmjH8V1pamqZXr16FcnJyLh82bJgPCnChiwlz//G5aABY
z4nPzJ/fjcWFAHXjfaAJGimEh04xt/xIhStjM7AhgnJFx44dr6DAXQ7ob10f/32pY34WfFZ8ZsKMAwRK iD8nPjN/fjcW5wPUjfeBJmikEB46xdzyIxWujM3AhgjKZTfeeONlFLhLAf2t6+O/L3bMz4LPis9MmHGA
FLJefj8vtoSl/OY3/w+WoIMvIOtjXAAAAABJRU5ErkJggg== QIlC1svv58WWsJTf/Ob/AUb1grMc6K9fAAAAAElFTkSuQmCC
</value> </value>
</data> </data>
<data name="ToolStripButton7.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ToolStripButton7.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -468,7 +468,7 @@
</value> </value>
</data> </data>
<data name="C1TrueDBDropdown1.PropBag" xml:space="preserve"> <data name="C1TrueDBDropdown1.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:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{}Style14{}Footer{}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" RecordSelectors="False" 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, 213, 148&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.DropdownView&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, 213, 148&lt;/ClientArea&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{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}OddRow{}Style14{}Footer{}FilterBar{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" RecordSelectors="False" 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, 213, 148&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.DropdownView&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, 213, 148&lt;/ClientArea&gt;&lt;/Blob&gt;</value>
</data> </data>
<data name="C1TrueDBDropdown2.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="C1TrueDBDropdown2.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@@ -478,7 +478,7 @@
</value> </value>
</data> </data>
<data name="C1TrueDBDropdown2.PropBag" xml:space="preserve"> <data name="C1TrueDBDropdown2.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:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{}Style14{}Footer{}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" RecordSelectors="False" 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, 231, 148&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.DropdownView&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, 231, 148&lt;/ClientArea&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{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}OddRow{}Style14{}Footer{}FilterBar{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" RecordSelectors="False" 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, 231, 148&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.DropdownView&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, 231, 148&lt;/ClientArea&gt;&lt;/Blob&gt;</value>
</data> </data>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>270, 17</value> <value>270, 17</value>

4
DPM2016/Klassen/clsStammdaten_flat.vb
View File

@@ -342,4 +342,8 @@ Public Class clsStammdaten_flat
End If End If
End Sub End Sub
Private Sub c1daten_MouseDown(sender As Object, e As MouseEventArgs) Handles c1daten.MouseDown
c1daten.Bookmark = c1daten.RowContaining(e.Y)
End Sub
End Class End Class

7
DPM2016/My Project/licenses.licx
View File

@@ -1,4 +1,5 @@
ComponentOwl.BetterThumbnailBrowser.BetterThumbnailBrowser, BetterThumbnailBrowser-net35, Version=3.15.0.0, Culture=neutral, PublicKeyToken=e6c91a3add447be2 C1.Win.C1Input.C1Button, C1.Win.C1Input.4, Version=4.0.20153.110, Culture=neutral, PublicKeyToken=7e7ff60f0c214f9a
C1.Win.C1TrueDBGrid.C1TrueDBGrid, C1.Win.C1TrueDBGrid.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da
C1.Win.C1Input.C1PictureBox, C1.Win.C1Input.4, Version=4.0.20153.110, Culture=neutral, PublicKeyToken=7e7ff60f0c214f9a
C1.Win.C1Command.C1DockingTab, C1.Win.C1Command.4, Version=4.0.20153.110, Culture=neutral, PublicKeyToken=e808566f358766d8 C1.Win.C1Command.C1DockingTab, C1.Win.C1Command.4, Version=4.0.20153.110, Culture=neutral, PublicKeyToken=e808566f358766d8
C1.Win.C1TrueDBGrid.C1TrueDBGrid, C1.Win.C1TrueDBGrid.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da
ComponentOwl.BetterThumbnailBrowser.BetterThumbnailBrowser, BetterThumbnailBrowser-net35, Version=3.15.0.0, Culture=neutral, PublicKeyToken=e6c91a3add447be2
C1.Win.C1Input.C1PictureBox, C1.Win.C1Input.4, Version=4.0.20153.110, Culture=neutral, PublicKeyToken=7e7ff60f0c214f9a

2
DPM2016/Recall/Recall.resx
View File

@@ -161,6 +161,6 @@
</value> </value>
</data> </data>
<data name="C1Recall.PropBag" xml:space="preserve"> <data name="C1Recall.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{}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;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}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, 316, 265&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, 316, 265&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;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;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{}FilterBar{BackColor:Info;}&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, 316, 265&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, 316, 265&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data> </data>
</root> </root>

4
DPM2016/Recall/Recall.vb
View File

@@ -95,4 +95,8 @@
Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
End Sub End Sub
Private Sub C1Recall_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Recall.MouseDown
Me.C1Recall.Bookmark = Me.C1Recall.RowContaining(e.Y)
End Sub
End Class End Class

299
DPM2016/Sysadmin/frmDentotarDetail.Designer.vb generated Normal file
View File

@@ -0,0 +1,299 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmDentotarDetail
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.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.TextBox3 = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.TextBox4 = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.TextBox5 = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.TextBox6 = New System.Windows.Forms.TextBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.TextBox7 = New System.Windows.Forms.TextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.TextBox8 = New System.Windows.Forms.TextBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.TextBox9 = New System.Windows.Forms.TextBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.TextBox10 = New System.Windows.Forms.TextBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(34, 21)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(58, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "LeistungNr"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(34, 48)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(58, 13)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Lesitung D"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(112, 18)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(100, 20)
Me.TextBox1.TabIndex = 3
'
'TextBox2
'
Me.TextBox2.Location = New System.Drawing.Point(112, 48)
Me.TextBox2.Multiline = True
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(348, 40)
Me.TextBox2.TabIndex = 4
'
'TextBox3
'
Me.TextBox3.Location = New System.Drawing.Point(112, 94)
Me.TextBox3.Multiline = True
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New System.Drawing.Size(348, 40)
Me.TextBox3.TabIndex = 6
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(34, 94)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(53, 13)
Me.Label3.TabIndex = 5
Me.Label3.Text = "Lesitung I"
'
'TextBox4
'
Me.TextBox4.Location = New System.Drawing.Point(112, 140)
Me.TextBox4.Multiline = True
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Size = New System.Drawing.Size(348, 40)
Me.TextBox4.TabIndex = 8
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(34, 140)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(53, 13)
Me.Label4.TabIndex = 7
Me.Label4.Text = "Lesitung f"
'
'TextBox5
'
Me.TextBox5.Location = New System.Drawing.Point(112, 186)
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Size = New System.Drawing.Size(100, 20)
Me.TextBox5.TabIndex = 10
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(34, 189)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(39, 13)
Me.Label5.TabIndex = 9
Me.Label5.Text = "Einheit"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(218, 189)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(75, 13)
Me.Label6.TabIndex = 11
Me.Label6.Text = "(TP oder CHF)"
'
'TextBox6
'
Me.TextBox6.Location = New System.Drawing.Point(112, 212)
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Size = New System.Drawing.Size(100, 20)
Me.TextBox6.TabIndex = 13
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(34, 215)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(38, 13)
Me.Label8.TabIndex = 12
Me.Label8.Text = "Betrag"
'
'TextBox7
'
Me.TextBox7.Location = New System.Drawing.Point(112, 238)
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Size = New System.Drawing.Size(100, 20)
Me.TextBox7.TabIndex = 15
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(34, 241)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(77, 13)
Me.Label7.TabIndex = 14
Me.Label7.Text = "TP UV_MV_IV"
'
'TextBox8
'
Me.TextBox8.Location = New System.Drawing.Point(112, 264)
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.Size = New System.Drawing.Size(100, 20)
Me.TextBox8.TabIndex = 17
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(34, 267)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(41, 13)
Me.Label9.TabIndex = 16
Me.Label9.Text = "PP Min"
'
'TextBox9
'
Me.TextBox9.Location = New System.Drawing.Point(112, 290)
Me.TextBox9.Name = "TextBox9"
Me.TextBox9.Size = New System.Drawing.Size(100, 20)
Me.TextBox9.TabIndex = 19
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(34, 293)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(51, 13)
Me.Label10.TabIndex = 18
Me.Label10.Text = "PP Privat"
'
'TextBox10
'
Me.TextBox10.Location = New System.Drawing.Point(112, 316)
Me.TextBox10.Name = "TextBox10"
Me.TextBox10.Size = New System.Drawing.Size(100, 20)
Me.TextBox10.TabIndex = 21
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(34, 319)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(44, 13)
Me.Label11.TabIndex = 20
Me.Label11.Text = "PP Max"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(36, 363)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 23
Me.Button1.Text = "Speichern"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(137, 363)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 24
Me.Button2.Text = "Abbruch"
Me.Button2.UseVisualStyleBackColor = True
'
'frmDentotarDetail
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(625, 416)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox10)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.TextBox9)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.TextBox8)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.TextBox7)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.TextBox6)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.TextBox5)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.TextBox4)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.TextBox3)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Name = "frmDentotarDetail"
Me.Text = "Dentotar"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents TextBox1 As TextBox
Friend WithEvents TextBox2 As TextBox
Friend WithEvents TextBox3 As TextBox
Friend WithEvents Label3 As Label
Friend WithEvents TextBox4 As TextBox
Friend WithEvents Label4 As Label
Friend WithEvents TextBox5 As TextBox
Friend WithEvents Label5 As Label
Friend WithEvents Label6 As Label
Friend WithEvents TextBox6 As TextBox
Friend WithEvents Label8 As Label
Friend WithEvents TextBox7 As TextBox
Friend WithEvents Label7 As Label
Friend WithEvents TextBox8 As TextBox
Friend WithEvents Label9 As Label
Friend WithEvents TextBox9 As TextBox
Friend WithEvents Label10 As Label
Friend WithEvents TextBox10 As TextBox
Friend WithEvents Label11 As Label
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
End Class

120
DPM2016/Sysadmin/frmDentotarDetail.resx Normal file
View File

@@ -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>

27
DPM2016/Sysadmin/frmDentotarDetail.vb Normal file
View File

@@ -0,0 +1,27 @@
Public Class frmDentotarDetail
Dim db As New clsDB
Dim m_pk As Integer
Property pk As Integer
Get
Return m_pk
End Get
Set(value As Integer)
m_pk = value
End Set
End Property
Private Sub frmDentotarDetail_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.DialogResult = DialogResult.OK
Me.Close()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.DialogResult = DialogResult.Abort
Me.Close()
End Sub
End Class

1
DPM2016/Utils/Globals.vb
View File

@@ -35,6 +35,7 @@ Module Globals
Public pdfCollection As New Collection Public pdfCollection As New Collection
Public InAbschluss As Integer = 0 Public InAbschluss As Integer = 0
Public License As New SHUKeyGen.clsKeyGen("", "", "", "", "", ":DPMKEY:", "Steafn Hutter Unternehmensberatung, 8808 Pfäffikon SZ") Public License As New SHUKeyGen.clsKeyGen("", "", "", "", "", ":DPMKEY:", "Steafn Hutter Unternehmensberatung, 8808 Pfäffikon SZ")
Public Recall_Bei_Abschluss As Boolean = True
Public Enum Taxpunkttyp Public Enum Taxpunkttyp
Privat = 1 Privat = 1

109
DPM2016/Utils/frmSQLCript.Designer.vb generated Normal file
View File

@@ -0,0 +1,109 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmSQLCript
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(frmSQLCript))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.tsbtnquit = New System.Windows.Forms.ToolStripButton()
Me.tsbtnSave = New System.Windows.Forms.ToolStripButton()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStrip1.SuspendLayout()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.AllowDrop = True
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnquit, Me.tsbtnSave, Me.ToolStripButton1})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(800, 25)
Me.ToolStrip1.TabIndex = 22
Me.ToolStrip1.Text = "ToolStrip1"
'
'tsbtnquit
'
Me.tsbtnquit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnquit.Image = CType(resources.GetObject("tsbtnquit.Image"), System.Drawing.Image)
Me.tsbtnquit.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnquit.Name = "tsbtnquit"
Me.tsbtnquit.Size = New System.Drawing.Size(23, 22)
Me.tsbtnquit.Text = "Schliessen"
'
'tsbtnSave
'
Me.tsbtnSave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnSave.Image = CType(resources.GetObject("tsbtnSave.Image"), System.Drawing.Image)
Me.tsbtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnSave.Name = "tsbtnSave"
Me.tsbtnSave.Size = New System.Drawing.Size(23, 22)
Me.tsbtnSave.Text = "Datei öffnen"
'
'OpenFileDialog1
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
Me.OpenFileDialog1.Filter = "SQL-Dateien|*.sql"
'
'TextBox1
'
Me.TextBox1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TextBox1.Location = New System.Drawing.Point(0, 25)
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(800, 425)
Me.TextBox1.TabIndex = 23
'
'ToolStripButton1
'
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
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(23, 22)
Me.ToolStripButton1.Text = "Ausführen"
'
'frmSQLCript
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(800, 450)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.ToolStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmSQLCript"
Me.Text = "SQL-Script"
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents tsbtnquit As ToolStripButton
Friend WithEvents tsbtnSave As ToolStripButton
Friend WithEvents OpenFileDialog1 As OpenFileDialog
Friend WithEvents TextBox1 As TextBox
Friend WithEvents ToolStripButton1 As ToolStripButton
End Class

5151
DPM2016/Utils/frmSQLCript.resx Normal file
View File

File diff suppressed because it is too large Load Diff

26
DPM2016/Utils/frmSQLCript.vb Normal file
View File

@@ -0,0 +1,26 @@
Imports System.IO
Public Class frmSQLCript
Private Sub tsbtnSave_Click(sender As Object, e As EventArgs) Handles tsbtnSave.Click
Dim fileno1 As Integer = 1
If OpenFileDialog1.ShowDialog = DialogResult.OK Then
If OpenFileDialog1.FileName <> "" Then
Try
TextBox1.Text = System.IO.File.ReadAllText(OpenFileDialog1.FileName)
Catch ex As Exception
' Let the user know what went wrong.
MsgBox(ex.Message)
End Try
End If
End If
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
Dim db As New clsDB
db.Exec_SQL(Me.TextBox1.Text)
End Sub
Private Sub tsbtnquit_Click(sender As Object, e As EventArgs) Handles tsbtnquit.Click
Me.Close()
End Sub
End Class

BIN
DPM2016/bin/Debug/C1.Win.C1Command.2.dll Normal file
View File

Binary file not shown.

9096
DPM2016/bin/Release/C1.Win.C1Command.4.xml → DPM2016/bin/Debug/C1.Win.C1Command.2.xml
View File

File diff suppressed because it is too large Load Diff

2
DPM2016/bin/Debug/Connectionstrings.cfg
View File

@@ -1,4 +1,4 @@
˜ª´µ¯´‡§Á®¾ºˆ¸¦Æ¯e»¼ºÀ¶§‚Å©É…~‚¡¦™¬¹§­e©§½¬»½º‘©¶®­¬ºÂȦ¾‡ÁÁ®¾³€±»¹³º´¦Æ¦¸uÁ¬›­¢¡Ä¿~˜™–’†¿³ÅÇ®¹µn»º·É·»ÉÇt®À´´…³¦ºÆ§€É°ÆÀÁ»™¬™§¾fª©ƒ¹¬²¹¸Èe¹ªÈ­’ˆ„~ˆÃǪÄn®¬Š¸¯Ž²¦Å´ËÄÀ«ub£ Åxz ˜•“{²©Éµt¸ÁÊÀ·ªÁ­½}u‰¼°®ÆªµÁnª™¬‘¤¿­~©¶³¨¯´¼Çµ±x´»±Á¹®Àɳ»·³Âª¬m¸³¶··»µÍ’¡šˆk¨µ¸´®¹ºi¾´±ÈÆ®ººn±ÃºÃ‚¸¶ºÇªÅ´º¸¸Â´¶®Á¯t¾²„s¨‘›»«µe¹¯Ã°Œ‚ƒ{¶Á­Çt½©È¯µ³Á¸¿¼·²l¸º¶†Ž
¦´«­º±ÃŽ¸¦Æ¶nÇ´ÇÀ¨­Š¸¶ÈruªÂ¾Â°™¤P›±º¢±µ­†¯¿»²Æ´«­º±Ã½³ÆºµÆ¦Æ³©hÀª±È´®Æº‘¨¡—s Â¹ª¸ºf¼°²ÃŽ¹¿a·¶»Ã‘«³ÁÁ¹€É½·³À¹¯Ç«´Àa½¹‹‚¨™“£µºa¸¯À®ˆƒ~ŒŠ€»´³ºu½¸‚Ŷ‰Ä¦ÅÁ¼·¿©‹}µ­Çs ¦´«­º±ÃŽ¸¦Æ¶nÇ´ÇÀ¨­Š¸¶ÈruªÂ¾Â°™¤P›±º¢±µ­†¯¿»²Æ´«­º±Ã½³ÆºµÆ¦Æ³©hÀª±È´®Æº‘¨¡—s Â¹ª¸ºf¼°²ÃŽ¹¿a·¶»Ã‘«³ÁÁ¹€É½·³À¹¯Ç«´Àa½¹‹‚¨™“£µºa¸¯À®ˆƒ~ŒŠ€»´³ºu½¸‚Ŷ‰Ä¦ÅÁ¼·¿©‹}µ­Çs
˜Š“ˆ¬¶ÈµeÅÄÃƨ·‹¸°Âu~Ž«³»µ½¶ºg›™¤™¼µ¨‚ª¶¶ª³³ÁȦ²sÁµ¾À¹€»Ã¹¬Ä¯¹­±eÁ¸¥ºÄªÈ΋š‹ˆysÀ«³¸¯¹½k³¶É·¯µÇh¾Âº´»¯À¸·‰¼·¿°ÁÇ£¹»°Âu·«us ™³±¦¹f¹²Å´‹‡„~||ûºÆt®¶’Áµ€Â¯¸»Ä´À·oũɇ‡ ˜Š“ˆ¬¶ÈµeÅÄÃƨ·‹¸°Âu~Ž«³»µ½¶ºg›™¤™¼µ¨‚ª¶¶ª³³ÁȦ²sÁµ¾À¹€»Ã¹¬Ä¯¹­±eÁ¸¥ºÄªÈ΋š‹ˆysÀ«³¸¯¹½k³¶É·¯µÇh¾Âº´»¯À¸·‰¼·¿°ÁÇ£¹»°Âu·«us ™³±¦¹f¹²Å´‹‡„~||ûºÆt®¶’Áµ€Â¯¸»Ä´À·oũɇ‡
˜ª´µ·»¸µ¹³uÁúıª…À­Ãƒr€»¯½É·¨¤X“™Ä§­´­ƒ­»¼€ƒ…}¥r‰±Ãȹ¬Ä¶Â¹©rÁª«Â··Ç»‚¥”¤ž‰·ª£¡Ãºa¸«©¾½¸ÂÌt®´§½…»µÀ¸·Å÷½Á¹©Á®½Áb®¶~Å¯ª£¤Xﻪƒzy„…‰ÈǪ¸a·¬’ǵ€Â¶ÁǼÁÀ©…w¸¶Èt~ ˜ª´µ·»¸µ¹³uÁúıª…À­Ãƒr€»¯½É·¨¤X“™Ä§­´­ƒ­»¼€ƒ…}¥r‰±Ãȹ¬Ä¶Â¹©rÁª«Â··Ç»‚¥”¤ž‰·ª£¡Ãºa¸«©¾½¸ÂÌt®´§½…»µÀ¸·Å÷½Á¹©Á®½Áb®¶~Å¯ª£¤Xﻪƒzy„…‰ÈǪ¸a·¬’ǵ€Â¶ÁǼÁÀ©…w¸¶Èt~

18
DPM2016/bin/Debug/DPM/PrinterConfig/Default.cfg Normal file
View File

@@ -0,0 +1,18 @@
Microsoft Print to PDF
1;Microsoft Print to PDF;;1
2;Microsoft Print to PDF;;1
3;Buelach_HPCDCFDC (HP Officejet Pro X476dw MFP);260;1
4;;;1
5;Microsoft Print to PDF;;2
6;Microsoft Print to PDF;;2
7;Microsoft Print to PDF;;1
1000;Buelach_HPCDCFDC (HP Officejet Pro X476dw MFP);259;1
Microsoft Print to PDF
1;Standard;;1
2;Microsoft Print to PDF;;1
3;Buelach_HPCDCFDC (HP Officejet Pro X476dw MFP);260;1
4;;;1
5;Microsoft Print to PDF;;2
6;Microsoft Print to PDF;;2
7;Microsoft Print to PDF;;1
1000;Buelach_HPCDCFDC (HP Officejet Pro X476dw MFP);259;1

9
DPM2016/bin/Debug/DPM/PrinterConfig/fax.cfg Normal file
View File

@@ -0,0 +1,9 @@
Microsoft Print to PDF
1;Microsoft Print to PDF;;1
2;Microsoft Print to PDF;;1
3;Fax;260;1
4;;;1
5;Microsoft Print to PDF;;2
6;Microsoft Print to PDF;;2
7;Microsoft Print to PDF;;1
1000;Buelach_HPCDCFDC (HP Officejet Pro X476dw MFP);259;1

39
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/Abgeschlossene_Behandlungen - Kopie.frx Normal file
View File

@@ -0,0 +1,39 @@
<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="CSharp" ReportInfo.Created="11/28/2015 07:43:07" ReportInfo.Modified="01/14/2018 14:02:31" ReportInfo.CreatorVersion="2017.4.1.0">
<Dictionary>
<TableDataSource Name="Daten" ReferenceName="Data.Daten" DataType="System.Int32" Enabled="true">
<Column Name="Behandlungsbeginn" DataType="System.DateTime"/>
<Column Name="Behandlungsende" DataType="System.DateTime"/>
<Column Name="Total" DataType="System.Double"/>
<Column Name="Patient" DataType="System.String"/>
<Column Name="Behandler" DataType="System.String"/>
<Column Name="Status" DataType="System.Int32"/>
<Column Name="aktiv" DataType="System.Boolean" BindableControl="CheckBox"/>
</TableDataSource>
<Parameter Name="Absender" DataType="System.String"/>
</Dictionary>
<ReportPage Name="Page1">
<ReportTitleBand Name="ReportTitle1" Width="718.2" Height="37.8">
<TextObject Name="Text1" Left="9.45" Width="255.15" Height="18.9" Text="Abgeschlossene Behandlungen" Font="Arial, 10pt, style=Bold, Underline"/>
<TextObject Name="Text12" Left="349.65" Width="349.65" Height="18.9" Text="[Absender]" HorzAlign="Right"/>
</ReportTitleBand>
<PageHeaderBand Name="PageHeader1" Top="41.84" Width="718.2" Height="28.35">
<TextObject Name="Text3" Left="9.45" Width="94.5" Height="18.9" Text="Beh-Beginn" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text5" Left="122.85" Width="94.5" Height="18.9" Text="Patient" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text7" Left="415.8" Width="122.85" Height="18.9" Text="Behandler" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text9" Left="604.8" Width="94.5" Height="18.9" Text="Total" HorzAlign="Right" Font="Arial, 10pt, style=Bold"/>
<LineObject Name="Line1" Left="9.45" Top="18.9" Width="689.85"/>
</PageHeaderBand>
<DataBand Name="Data1" Top="74.23" Width="718.2" Height="18.9" DataSource="Daten">
<TextObject Name="Text2" Left="9.45" Width="94.5" Height="18.9" Text="[Daten.Behandlungsbeginn]" Format="Date" Format.Format="d"/>
<TextObject Name="Text4" Left="122.85" Width="283.5" Height="18.9" Text="[Daten.Patient]"/>
<TextObject Name="Text6" Left="415.8" Width="189" Height="18.9" Text="[Daten.Behandler]"/>
<TextObject Name="Text8" Left="604.8" Width="94.5" Height="18.9" Text="[Daten.Total]" Format="Number" Format.UseLocale="true" HorzAlign="Right" WordWrap="false" Trimming="EllipsisCharacter"/>
</DataBand>
<PageFooterBand Name="PageFooter1" Top="97.17" Width="718.2" Height="37.8">
<TextObject Name="Text10" Left="9.45" Top="9.45" Width="170.1" Height="18.9" Text="[Date]"/>
<LineObject Name="Line2" Left="9.45" Width="689.85"/>
<TextObject Name="Text11" Left="604.8" Top="9.45" Width="94.5" Height="18.9" Text="[Page#]" HorzAlign="Right"/>
</PageFooterBand>
</ReportPage>
</Report>

69
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/Abgeschlossene_Behandlungen.frx Normal file
View File

@@ -0,0 +1,69 @@
<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="Vb" ReportInfo.Created="11/28/2015 07:43:07" ReportInfo.Modified="08/26/2018 11:32:33" ReportInfo.CreatorVersion="2018.2.11.0">
<ScriptText>Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Drawing
Imports Microsoft.VisualBasic
Imports FastReport
Imports FastReport.Data
Imports FastReport.Dialog
Imports FastReport.Table
Imports FastReport.Barcode
Imports FastReport.Utils
Namespace FastReport
Public Class ReportScript
Private Sub Picture1_BeforePrint(ByVal sender As object, ByVal e As EventArgs)
dim s as String()
s=report.FileName.Split(&quot;Reporting&quot;)
Dim ReportLogo as String
ReportLogo=s(0)+&quot;\Reporting\Logo\reportlogo.png&quot;
picture1.ImageLocation=Reportlogo
End Sub
End Class
End Namespace
</ScriptText>
<Dictionary>
<TableDataSource Name="Daten" ReferenceName="Data.Daten" DataType="System.Int32" Enabled="true">
<Column Name="Behandlungsbeginn" DataType="System.DateTime"/>
<Column Name="Behandlungsende" DataType="System.DateTime"/>
<Column Name="Total" DataType="System.Double"/>
<Column Name="Patient" DataType="System.String"/>
<Column Name="Behandler" DataType="System.String"/>
<Column Name="Status" DataType="System.Int32"/>
<Column Name="aktiv" DataType="System.Boolean" BindableControl="CheckBox"/>
</TableDataSource>
<Parameter Name="Absender" DataType="System.String"/>
</Dictionary>
<ReportPage Name="Page1">
<ReportTitleBand Name="ReportTitle1" Width="718.2" Height="75.6">
<TextObject Name="Text1" Left="444.15" Width="255.15" Height="18.9" Text="Abgeschlossene Behandlungen" HorzAlign="Right" Font="Arial, 10pt, style=Bold, Underline"/>
<TextObject Name="Text12" Left="349.65" Top="18.9" Width="349.65" Height="18.9" Text="[Absender]" HorzAlign="Right"/>
<PictureObject Name="Picture1" Left="9.45" Width="160.65" Height="47.25" BeforePrintEvent="Picture1_BeforePrint" Image=""/>
</ReportTitleBand>
<PageHeaderBand Name="PageHeader1" Top="78.93" Width="718.2" Height="28.35">
<TextObject Name="Text3" Left="9.45" Width="94.5" Height="18.9" Text="Beh-Beginn" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text5" Left="122.85" Width="94.5" Height="18.9" Text="Patient" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text7" Left="415.8" Width="122.85" Height="18.9" Text="Behandler" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text9" Left="604.8" Width="94.5" Height="18.9" Text="Total" HorzAlign="Right" Font="Arial, 10pt, style=Bold"/>
<LineObject Name="Line1" Left="9.45" Top="18.9" Width="689.85"/>
</PageHeaderBand>
<DataBand Name="Data1" Top="110.62" Width="718.2" Height="18.9" DataSource="Daten">
<TextObject Name="Text2" Left="9.45" Width="94.5" Height="18.9" Text="[Daten.Behandlungsbeginn]" Format="Date" Format.Format="d"/>
<TextObject Name="Text4" Left="122.85" Width="283.5" Height="18.9" Text="[Daten.Patient]"/>
<TextObject Name="Text6" Left="415.8" Width="189" Height="18.9" Text="[Daten.Behandler]"/>
<TextObject Name="Text8" Left="604.8" Width="94.5" Height="18.9" Text="[Daten.Total]" Format="Number" Format.UseLocale="true" HorzAlign="Right" WordWrap="false" Trimming="EllipsisCharacter"/>
</DataBand>
<PageFooterBand Name="PageFooter1" Top="132.85" Width="718.2" Height="37.8">
<TextObject Name="Text10" Left="9.45" Top="9.45" Width="170.1" Height="18.9" Text="[Date]"/>
<LineObject Name="Line2" Left="9.45" Width="689.85"/>
<TextObject Name="Text11" Left="604.8" Top="9.45" Width="94.5" Height="18.9" Text="[Page#]" HorzAlign="Right"/>
</PageFooterBand>
</ReportPage>
</Report>

69
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/Abgeschlossene_KV.frx Normal file
View File

@@ -0,0 +1,69 @@
<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="Vb" ReportInfo.Created="11/28/2015 07:43:07" ReportInfo.Modified="08/26/2018 11:33:35" ReportInfo.CreatorVersion="2018.2.11.0">
<ScriptText>Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Drawing
Imports Microsoft.VisualBasic
Imports FastReport
Imports FastReport.Data
Imports FastReport.Dialog
Imports FastReport.Table
Imports FastReport.Barcode
Imports FastReport.Utils
Namespace FastReport
Public Class ReportScript
Private Sub Picture1_BeforePrint(ByVal sender As object, ByVal e As EventArgs)
dim s as String()
s=report.FileName.Split(&quot;Reporting&quot;)
Dim ReportLogo as String
ReportLogo=s(0)+&quot;\Reporting\Logo\reportlogo.png&quot;
picture1.ImageLocation=Reportlogo
End Sub
End Class
End Namespace
</ScriptText>
<Dictionary>
<TableDataSource Name="Daten" ReferenceName="Data.Daten" DataType="System.Int32" Enabled="true">
<Column Name="Behandlungsbeginn" DataType="System.DateTime"/>
<Column Name="Behandlungsende" DataType="System.DateTime"/>
<Column Name="Total" DataType="System.Double"/>
<Column Name="Patient" DataType="System.String"/>
<Column Name="Behandler" DataType="System.String"/>
<Column Name="Status" DataType="System.Int32"/>
<Column Name="aktiv" DataType="System.Boolean" BindableControl="CheckBox"/>
</TableDataSource>
<Parameter Name="Absender" DataType="System.String"/>
</Dictionary>
<ReportPage Name="Page1">
<ReportTitleBand Name="ReportTitle1" Width="718.2" Height="85.05">
<TextObject Name="Text1" Left="434.7" Width="264.6" Height="18.9" Text="Abgeschlossene Kostenvoranschläge" HorzAlign="Right" Font="Arial, 10pt, style=Bold, Underline"/>
<TextObject Name="Text12" Left="349.65" Top="18.9" Width="349.65" Height="18.9" Text="[Absender]" HorzAlign="Right"/>
<PictureObject Name="Picture1" Left="18.9" Width="179.55" Height="56.7" BeforePrintEvent="Picture1_BeforePrint" Image=""/>
</ReportTitleBand>
<PageHeaderBand Name="PageHeader1" Top="88.38" Width="718.2" Height="28.35">
<TextObject Name="Text3" Left="9.45" Width="94.5" Height="18.9" Text="Beh-Beginn" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text5" Left="122.85" Width="94.5" Height="18.9" Text="Patient" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text7" Left="415.8" Width="122.85" Height="18.9" Text="Behandler" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text9" Left="604.8" Width="94.5" Height="18.9" Text="Total" HorzAlign="Right" Font="Arial, 10pt, style=Bold"/>
<LineObject Name="Line1" Left="9.45" Top="18.9" Width="689.85"/>
</PageHeaderBand>
<DataBand Name="Data1" Top="120.07" Width="718.2" Height="18.9" DataSource="Daten">
<TextObject Name="Text2" Left="9.45" Width="94.5" Height="18.9" Text="[Daten.Behandlungsbeginn]" Format="Date" Format.Format="d"/>
<TextObject Name="Text4" Left="122.85" Width="283.5" Height="18.9" Text="[Daten.Patient]"/>
<TextObject Name="Text6" Left="415.8" Width="189" Height="18.9" Text="[Daten.Behandler]"/>
<TextObject Name="Text8" Left="604.8" Width="94.5" Height="18.9" Text="[Daten.Total]" Format="Number" Format.UseLocale="true" HorzAlign="Right" WordWrap="false" Trimming="EllipsisCharacter"/>
</DataBand>
<PageFooterBand Name="PageFooter1" Top="142.3" Width="718.2" Height="37.8">
<TextObject Name="Text10" Left="9.45" Top="9.45" Width="170.1" Height="18.9" Text="[Date]"/>
<LineObject Name="Line2" Left="9.45" Width="689.85"/>
<TextObject Name="Text11" Left="604.8" Top="9.45" Width="94.5" Height="18.9" Text="[Page#]" HorzAlign="Right"/>
</PageFooterBand>
</ReportPage>
</Report>

10
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/Adressetiketten.frx Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="CSharp" ReportInfo.Created="11/28/2015 07:43:07" ReportInfo.Modified="11/28/2015 07:43:26" ReportInfo.CreatorVersion="2015.3.1.0">
<Dictionary/>
<ReportPage Name="Page1">
<ReportTitleBand Name="ReportTitle1" Width="718.2" Height="37.8"/>
<PageHeaderBand Name="PageHeader1" Top="41.84" Width="718.2" Height="28.35"/>
<DataBand Name="Data1" Top="74.23" Width="718.2" Height="75.6"/>
<PageFooterBand Name="PageFooter1" Top="153.87" Width="718.2" Height="18.9"/>
</ReportPage>
</Report>

39
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/Archiv/Abgeschlossene_Behandlungen - Kopie.frx Normal file
View File

@@ -0,0 +1,39 @@
<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="CSharp" ReportInfo.Created="11/28/2015 07:43:07" ReportInfo.Modified="01/14/2018 14:02:31" ReportInfo.CreatorVersion="2017.4.1.0">
<Dictionary>
<TableDataSource Name="Daten" ReferenceName="Data.Daten" DataType="System.Int32" Enabled="true">
<Column Name="Behandlungsbeginn" DataType="System.DateTime"/>
<Column Name="Behandlungsende" DataType="System.DateTime"/>
<Column Name="Total" DataType="System.Double"/>
<Column Name="Patient" DataType="System.String"/>
<Column Name="Behandler" DataType="System.String"/>
<Column Name="Status" DataType="System.Int32"/>
<Column Name="aktiv" DataType="System.Boolean" BindableControl="CheckBox"/>
</TableDataSource>
<Parameter Name="Absender" DataType="System.String"/>
</Dictionary>
<ReportPage Name="Page1">
<ReportTitleBand Name="ReportTitle1" Width="718.2" Height="37.8">
<TextObject Name="Text1" Left="9.45" Width="255.15" Height="18.9" Text="Abgeschlossene Behandlungen" Font="Arial, 10pt, style=Bold, Underline"/>
<TextObject Name="Text12" Left="349.65" Width="349.65" Height="18.9" Text="[Absender]" HorzAlign="Right"/>
</ReportTitleBand>
<PageHeaderBand Name="PageHeader1" Top="41.84" Width="718.2" Height="28.35">
<TextObject Name="Text3" Left="9.45" Width="94.5" Height="18.9" Text="Beh-Beginn" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text5" Left="122.85" Width="94.5" Height="18.9" Text="Patient" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text7" Left="415.8" Width="122.85" Height="18.9" Text="Behandler" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text9" Left="604.8" Width="94.5" Height="18.9" Text="Total" HorzAlign="Right" Font="Arial, 10pt, style=Bold"/>
<LineObject Name="Line1" Left="9.45" Top="18.9" Width="689.85"/>
</PageHeaderBand>
<DataBand Name="Data1" Top="74.23" Width="718.2" Height="18.9" DataSource="Daten">
<TextObject Name="Text2" Left="9.45" Width="94.5" Height="18.9" Text="[Daten.Behandlungsbeginn]" Format="Date" Format.Format="d"/>
<TextObject Name="Text4" Left="122.85" Width="283.5" Height="18.9" Text="[Daten.Patient]"/>
<TextObject Name="Text6" Left="415.8" Width="189" Height="18.9" Text="[Daten.Behandler]"/>
<TextObject Name="Text8" Left="604.8" Width="94.5" Height="18.9" Text="[Daten.Total]" Format="Number" Format.UseLocale="true" HorzAlign="Right" WordWrap="false" Trimming="EllipsisCharacter"/>
</DataBand>
<PageFooterBand Name="PageFooter1" Top="97.17" Width="718.2" Height="37.8">
<TextObject Name="Text10" Left="9.45" Top="9.45" Width="170.1" Height="18.9" Text="[Date]"/>
<LineObject Name="Line2" Left="9.45" Width="689.85"/>
<TextObject Name="Text11" Left="604.8" Top="9.45" Width="94.5" Height="18.9" Text="[Page#]" HorzAlign="Right"/>
</PageFooterBand>
</ReportPage>
</Report>

39
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/Archiv/Abgeschlossene_Behandlungen.frx Normal file
View File

@@ -0,0 +1,39 @@
<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="CSharp" ReportInfo.Created="11/28/2015 07:43:07" ReportInfo.Modified="01/14/2018 14:09:29" ReportInfo.CreatorVersion="2017.4.1.0">
<Dictionary>
<TableDataSource Name="Daten" ReferenceName="Data.Daten" DataType="System.Int32" Enabled="true">
<Column Name="Behandlungsbeginn" DataType="System.DateTime"/>
<Column Name="Behandlungsende" DataType="System.DateTime"/>
<Column Name="Total" DataType="System.Double"/>
<Column Name="Patient" DataType="System.String"/>
<Column Name="Behandler" DataType="System.String"/>
<Column Name="Status" DataType="System.Int32"/>
<Column Name="aktiv" DataType="System.Boolean" BindableControl="CheckBox"/>
</TableDataSource>
<Parameter Name="Absender" DataType="System.String"/>
</Dictionary>
<ReportPage Name="Page1">
<ReportTitleBand Name="ReportTitle1" Width="718.2" Height="37.8">
<TextObject Name="Text1" Left="9.45" Width="255.15" Height="18.9" Text="Abgeschlossene Behandlungen" Font="Arial, 10pt, style=Bold, Underline"/>
<TextObject Name="Text12" Left="349.65" Width="349.65" Height="18.9" Text="[Absender]" HorzAlign="Right"/>
</ReportTitleBand>
<PageHeaderBand Name="PageHeader1" Top="41.84" Width="718.2" Height="28.35">
<TextObject Name="Text3" Left="9.45" Width="94.5" Height="18.9" Text="Beh-Beginn" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text5" Left="122.85" Width="94.5" Height="18.9" Text="Patient" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text7" Left="415.8" Width="122.85" Height="18.9" Text="Behandler" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text9" Left="604.8" Width="94.5" Height="18.9" Text="Total" HorzAlign="Right" Font="Arial, 10pt, style=Bold"/>
<LineObject Name="Line1" Left="9.45" Top="18.9" Width="689.85"/>
</PageHeaderBand>
<DataBand Name="Data1" Top="74.23" Width="718.2" Height="18.9" DataSource="Daten">
<TextObject Name="Text2" Left="9.45" Width="94.5" Height="18.9" Text="[Daten.Behandlungsbeginn]" Format="Date" Format.Format="d"/>
<TextObject Name="Text4" Left="122.85" Width="283.5" Height="18.9" Text="[Daten.Patient]"/>
<TextObject Name="Text6" Left="415.8" Width="189" Height="18.9" Text="[Daten.Behandler]"/>
<TextObject Name="Text8" Left="604.8" Width="94.5" Height="18.9" Text="[Daten.Total]" Format="Number" Format.UseLocale="true" HorzAlign="Right" WordWrap="false" Trimming="EllipsisCharacter"/>
</DataBand>
<PageFooterBand Name="PageFooter1" Top="97.17" Width="718.2" Height="37.8">
<TextObject Name="Text10" Left="9.45" Top="9.45" Width="170.1" Height="18.9" Text="[Date]"/>
<LineObject Name="Line2" Left="9.45" Width="689.85"/>
<TextObject Name="Text11" Left="604.8" Top="9.45" Width="94.5" Height="18.9" Text="[Page#]" HorzAlign="Right"/>
</PageFooterBand>
</ReportPage>
</Report>

39
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/Archiv/Abgeschlossene_KV.frx Normal file
View File

@@ -0,0 +1,39 @@
<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="CSharp" ReportInfo.Created="11/28/2015 07:43:07" ReportInfo.Modified="01/14/2018 14:05:14" ReportInfo.CreatorVersion="2017.4.1.0">
<Dictionary>
<TableDataSource Name="Daten" ReferenceName="Data.Daten" DataType="System.Int32" Enabled="true">
<Column Name="Behandlungsbeginn" DataType="System.DateTime"/>
<Column Name="Behandlungsende" DataType="System.DateTime"/>
<Column Name="Total" DataType="System.Double"/>
<Column Name="Patient" DataType="System.String"/>
<Column Name="Behandler" DataType="System.String"/>
<Column Name="Status" DataType="System.Int32"/>
<Column Name="aktiv" DataType="System.Boolean" BindableControl="CheckBox"/>
</TableDataSource>
<Parameter Name="Absender" DataType="System.String"/>
</Dictionary>
<ReportPage Name="Page1">
<ReportTitleBand Name="ReportTitle1" Width="718.2" Height="37.8">
<TextObject Name="Text1" Left="9.45" Width="255.15" Height="18.9" Text="Abgeschlossene Kostenvoranschläge" Font="Arial, 10pt, style=Bold, Underline"/>
<TextObject Name="Text12" Left="349.65" Width="349.65" Height="18.9" Text="[Absender]" HorzAlign="Right"/>
</ReportTitleBand>
<PageHeaderBand Name="PageHeader1" Top="41.84" Width="718.2" Height="28.35">
<TextObject Name="Text3" Left="9.45" Width="94.5" Height="18.9" Text="Beh-Beginn" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text5" Left="122.85" Width="94.5" Height="18.9" Text="Patient" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text7" Left="415.8" Width="122.85" Height="18.9" Text="Behandler" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text9" Left="604.8" Width="94.5" Height="18.9" Text="Total" HorzAlign="Right" Font="Arial, 10pt, style=Bold"/>
<LineObject Name="Line1" Left="9.45" Top="18.9" Width="689.85"/>
</PageHeaderBand>
<DataBand Name="Data1" Top="74.23" Width="718.2" Height="18.9" DataSource="Daten">
<TextObject Name="Text2" Left="9.45" Width="94.5" Height="18.9" Text="[Daten.Behandlungsbeginn]" Format="Date" Format.Format="d"/>
<TextObject Name="Text4" Left="122.85" Width="283.5" Height="18.9" Text="[Daten.Patient]"/>
<TextObject Name="Text6" Left="415.8" Width="189" Height="18.9" Text="[Daten.Behandler]"/>
<TextObject Name="Text8" Left="604.8" Width="94.5" Height="18.9" Text="[Daten.Total]" Format="Number" Format.UseLocale="true" HorzAlign="Right" WordWrap="false" Trimming="EllipsisCharacter"/>
</DataBand>
<PageFooterBand Name="PageFooter1" Top="97.17" Width="718.2" Height="37.8">
<TextObject Name="Text10" Left="9.45" Top="9.45" Width="170.1" Height="18.9" Text="[Date]"/>
<LineObject Name="Line2" Left="9.45" Width="689.85"/>
<TextObject Name="Text11" Left="604.8" Top="9.45" Width="94.5" Height="18.9" Text="[Page#]" HorzAlign="Right"/>
</PageFooterBand>
</ReportPage>
</Report>

117
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/Archiv/CamtJournaldetail.frx Normal file
View File

File diff suppressed because one or more lines are too long

106
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/Archiv/CamtJournaleinfach.frx Normal file
View File

File diff suppressed because one or more lines are too long

100
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/Archiv/Offene_Debitoren.frx Normal file
View File

File diff suppressed because one or more lines are too long

64
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/Archiv/Recallkarte.frx Normal file
View File

File diff suppressed because one or more lines are too long

82
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/Archiv/Recallliste.frx Normal file
View File

File diff suppressed because one or more lines are too long

10
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/Archiv/Report1.frx Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="CSharp" ReportInfo.Created="11/28/2015 07:43:07" ReportInfo.Modified="11/28/2015 07:43:26" ReportInfo.CreatorVersion="2015.3.1.0">
<Dictionary/>
<ReportPage Name="Page1">
<ReportTitleBand Name="ReportTitle1" Width="718.2" Height="37.8"/>
<PageHeaderBand Name="PageHeader1" Top="41.84" Width="718.2" Height="28.35"/>
<DataBand Name="Data1" Top="74.23" Width="718.2" Height="75.6"/>
<PageFooterBand Name="PageFooter1" Top="153.87" Width="718.2" Height="18.9"/>
</ReportPage>
</Report>

56
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/Archiv/Zahlungsjournal.frx Normal file
View File

@@ -0,0 +1,56 @@
<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="Vb" ReportInfo.Created="11/28/2015 07:43:07" ReportInfo.Modified="05/02/2018 20:59:09" ReportInfo.CreatorVersion="2018.2.11.0">
<Dictionary>
<TableDataSource Name="Daten" ReferenceName="Data.Daten" DataType="System.Int32" Enabled="true">
<Column Name="Status" DataType="System.Int32"/>
<Column Name="Debitor" DataType="System.String"/>
<Column Name="Nrfaktura" DataType="System.Int32"/>
<Column Name="Valuta" DataType="System.DateTime"/>
<Column Name="Betrag" DataType="System.Double"/>
<Column Name="Vorauszahlung" DataType="System.Boolean" BindableControl="CheckBox"/>
<Column Name="Nrkonto" DataType="System.Int32"/>
<Column Name="Konto" DataType="System.String"/>
<Column Name="Statusdatum" DataType="System.DateTime"/>
<Column Name="Storno" DataType="System.String"/>
</TableDataSource>
<Parameter Name="Absender" DataType="System.String"/>
<Parameter Name="Datum von" DataType="System.String"/>
<Parameter Name="Datum bis" DataType="System.String"/>
<Parameter Name="Konto" DataType="System.String"/>
<Total Name="Total" Expression="[Daten.Betrag]" Evaluator="Data1"/>
</Dictionary>
<ReportPage Name="Page1">
<ReportTitleBand Name="ReportTitle1" Width="718.2" Height="37.8">
<TextObject Name="Text1" Left="9.45" Width="349.65" Height="18.9" Text="Zahlungsjournal [Datum von] bis [Datum bis]" Font="Arial, 10pt, style=Bold, Underline"/>
<TextObject Name="Text12" Left="349.65" Width="349.65" Height="18.9" Text="[Absender]" HorzAlign="Right"/>
</ReportTitleBand>
<PageHeaderBand Name="PageHeader1" Top="40.66" Width="718.2" Height="28.35">
<LineObject Name="Line1" Left="9.45" Top="18.9" Width="689.85"/>
<TextObject Name="Text3" Left="9.45" Width="94.5" Height="18.9" Text="Valuta" Font="Arial, 8pt, style=Bold"/>
<TextObject Name="Text5" Left="103.95" Width="94.5" Height="18.9" Text="Debitor" Font="Arial, 8pt, style=Bold"/>
<TextObject Name="Text7" Left="406.35" Width="94.5" Height="18.9" Text="Betrag" HorzAlign="Right" Font="Arial, 8pt, style=Bold"/>
<TextObject Name="Text8" Left="510.3" Width="28.35" Height="18.9" Text="VZ" Font="Arial, 8pt, style=Bold"/>
<TextObject Name="Text13" Left="538.65" Width="94.5" Height="18.9" Text="Konto" Font="Arial, 8pt, style=Bold"/>
<TextObject Name="Text15" Left="642.6" Width="94.5" Height="18.9" Text="Storno" Font="Arial, 8pt, style=Bold"/>
</PageHeaderBand>
<DataBand Name="Data1" Top="71.86" Width="718.2" Height="18.9" DataSource="Daten" Filter="[Daten.Konto]=[Konto] OR [Konto]=&quot;&quot;">
<TextObject Name="Text2" Left="9.45" Width="75.6" Height="18.9" Text="[Daten.Valuta]" Duplicates="Hide" Format="Date" Format.Format="d" Font="Arial, 8pt"/>
<TextObject Name="Text4" Left="103.95" Width="274.05" Height="18.9" Text="[Daten.Debitor]" Font="Arial, 8pt"/>
<TextObject Name="Text6" Left="406.35" Width="94.5" Height="18.9" Text="[Daten.Betrag]" Format="Number" Format.UseLocale="true" HorzAlign="Right" WordWrap="false" Font="Arial, 8pt" Trimming="EllipsisCharacter"/>
<CheckBoxObject Name="CheckBox1" Left="510.3" Width="18.9" Height="18.9" Checked="false" DataColumn="Daten.Vorauszahlung"/>
<TextObject Name="Text9" Left="538.65" Width="94.5" Height="18.9" Text="[Daten.Konto]" Font="Arial, 8pt"/>
<TextObject Name="Text14" Left="642.6" Width="94.5" Height="18.9" Text="[Daten.Storno]" Font="Arial, 8pt"/>
<Sort>
<Sort Expression="[Daten.Valuta]"/>
</Sort>
</DataBand>
<ReportSummaryBand Name="ReportSummary1" Top="93.62" Width="718.2" Height="37.8">
<TextObject Name="Text16" Left="359.1" Width="141.75" Height="18.9" Text="[Total]" Format="Number" Format.UseLocale="false" Format.DecimalDigits="2" Format.DecimalSeparator="." Format.GroupSeparator="'" Format.NegativePattern="1" HorzAlign="Right" Font="Arial, 10pt, style=Bold"/>
</ReportSummaryBand>
<PageFooterBand Name="PageFooter1" Top="134.28" Width="718.2" Height="37.8">
<TextObject Name="Text10" Left="9.45" Top="9.45" Width="170.1" Height="18.9" Text="[Date]"/>
<LineObject Name="Line2" Left="9.45" Width="689.85"/>
<TextObject Name="Text11" Left="604.8" Top="9.45" Width="94.5" Height="18.9" Text="[Page#]" HorzAlign="Right"/>
</PageFooterBand>
</ReportPage>
</Report>

10
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/Archiv/empty.frx Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="CSharp" ReportInfo.Created="11/28/2015 07:43:07" ReportInfo.Modified="11/28/2015 07:43:26" ReportInfo.CreatorVersion="2015.3.1.0">
<Dictionary/>
<ReportPage Name="Page1">
<ReportTitleBand Name="ReportTitle1" Width="718.2" Height="37.8"/>
<PageHeaderBand Name="PageHeader1" Top="41.84" Width="718.2" Height="28.35"/>
<DataBand Name="Data1" Top="74.23" Width="718.2" Height="75.6"/>
<PageFooterBand Name="PageFooter1" Top="153.87" Width="718.2" Height="18.9"/>
</ReportPage>
</Report>

82
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/Archiv/esrjournal.frx Normal file
View File

File diff suppressed because one or more lines are too long

82
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/Archiv/fakturajournal.frx Normal file
View File

@@ -0,0 +1,82 @@
<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="Vb" ReportInfo.Name="Fakturajournal" ReportInfo.Description="#Parameter1:Datum von:datetime:firstofcurrentyear&#13;&#10;#Parameter2:Datum bis:datetime:currentdate&#13;&#10;#Parameter3:Behandler:DataTable:select name+' '+vorname from privat where behandler=1 AND aktiv=1 order by nrprivat&#13;&#10;-SQL-&#13;&#10;SELECT Nrfaktura, Nrdebitor, Nrpatient, Datum, Total, dbo.faktura.Status, dbo.get_name(Nrpatient) AS Patient, case when nrdebitor&lt;&gt;nrpatient then dbo.get_name(Nrdebitor) else '' end AS Debitor, dbo.privat.name+' '+dbo.privat.vorname as behandler&#13;&#10;FROM dbo.Faktura JOIN&#13;&#10; dbo.PRIVAT ON dbo.Faktura.Nrbehandler = dbo.PRIVAT.NRPRIVAT&#13;&#10;where datum&gt;='#Parameter1 00:00:00' and datum &lt;='#Parameter2 23:59:59' and (''='#Parameter3' or '#Parameter3'= dbo.privat.name+' '+dbo.privat.vorname) " ReportInfo.Created="11/28/2015 07:43:07" ReportInfo.Modified="08/26/2018 11:08:04" ReportInfo.CreatorVersion="2018.2.11.0">
<ScriptText>Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Drawing
Imports Microsoft.VisualBasic
Imports FastReport
Imports FastReport.Data
Imports FastReport.Dialog
Imports FastReport.Table
Imports FastReport.Barcode
Imports FastReport.Utils
Namespace FastReport
Public Class ReportScript
Private Sub Picture1_BeforePrint(ByVal sender As object, ByVal e As EventArgs)
dim s as String()
s=report.FileName.Split(&quot;Reporting&quot;)
Dim ReportLogo as String
ReportLogo=s(0)+&quot;\Reporting\Logo\reportlogo.png&quot;
picture1.ImageLocation=Reportlogo
End Sub
End Class
End Namespace
</ScriptText>
<Dictionary>
<TableDataSource Name="Daten" ReferenceName="Data.Daten" DataType="System.Int32" Enabled="true">
<Column Name="Nrfaktura" DataType="System.Int32"/>
<Column Name="Nrdebitor" DataType="System.Int32"/>
<Column Name="Nrpatient" DataType="System.Int32"/>
<Column Name="Datum" DataType="System.DateTime"/>
<Column Name="Total" DataType="System.Double"/>
<Column Name="Status" DataType="System.Int32"/>
<Column Name="Patient" DataType="System.String"/>
<Column Name="Debitor" DataType="System.String"/>
<Column Name="behandler" DataType="System.String"/>
</TableDataSource>
<Parameter Name="Absender" DataType="System.String"/>
<Parameter Name="Datum von" DataType="System.String"/>
<Parameter Name="Datum bis" DataType="System.String"/>
<Parameter Name="Behandler" DataType="System.String"/>
<Total Name="Total" Expression="[Daten.Total]" Evaluator="Data1" EvaluateCondition="[Daten.Status]&lt;&gt;9"/>
<Total Name="Total_Storno" Expression="[Daten.Total]" Evaluator="Data1" EvaluateCondition="[Daten.Status]=9"/>
</Dictionary>
<ReportPage Name="Page1">
<ReportTitleBand Name="ReportTitle1" Width="718.2"/>
<PageHeaderBand Name="PageHeader1" Top="3.33" Width="718.2" Height="94.5">
<PictureObject Name="Picture1" Width="132.3" Height="56.7" BeforePrintEvent="Picture1_BeforePrint" ImageLocation="E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Dentis\Reporting\Logo\ReportLogo.png"/>
<TextObject Name="Text1" Left="406.35" Top="9.45" Width="302.4" Height="28.35" Text="Rechnungsjournal [Datum von] - [Datum bis]&#13;&#10;Behandler: [Behandler]" HorzAlign="Right"/>
<TextObject Name="Text8" Top="75.6" Width="94.5" Height="18.9" Text="RG-Nummer" Font="Arial, 9pt, style=Bold"/>
<TextObject Name="Text9" Left="85.05" Top="75.6" Width="94.5" Height="18.9" Text="Datum" Font="Arial, 9pt, style=Bold"/>
<TextObject Name="Text10" Left="179.55" Top="75.6" Width="170.1" Height="18.9" Text="Patient / Debitor" Font="Arial, 9pt, style=Bold"/>
<TextObject Name="Text11" Left="614.25" Top="75.6" Width="47.25" Height="18.9" Text="Betrag" HorzAlign="Right" Font="Arial, 9pt, style=Bold"/>
<TextObject Name="Text12" Left="642.6" Top="75.6" Width="66.15" Height="18.9" Text="Storno" HorzAlign="Right" Font="Arial, 9pt, style=Bold"/>
<LineObject Name="Line2" Top="90.5" Width="708.75"/>
</PageHeaderBand>
<DataBand Name="Data1" Top="101.17" Width="718.2" Height="19.9" CanGrow="true" DataSource="Daten">
<TextObject Name="Text2" Top="1" Width="85.05" Height="18.9" Text="[Daten.Nrfaktura]" Font="Arial, 9pt"/>
<TextObject Name="Text3" Left="85.05" Top="1" Width="94.5" Height="18.9" Text="[Daten.Datum]" Format="Date" Format.Format="d" Font="Arial, 9pt"/>
<TextObject Name="Text4" Left="179.55" Top="1" Width="378" Height="18.9" CanGrow="true" Text="[Daten.Patient]&#13;&#10;[Daten.Debitor]" Font="Arial, 9pt"/>
<TextObject Name="Text6" Left="567" Top="1" Width="94.5" Height="18.9" Text="[Daten.Total]" Format="Number" Format.UseLocale="true" HorzAlign="Right" WordWrap="false" Font="Arial, 9pt" Trimming="EllipsisCharacter"/>
<TextObject Name="Text7" Left="670.95" Top="1" Width="37.8" Height="18.9" Text="[IIf([Daten.Status]=9,&quot;J&quot;,&quot;&quot;)]" HorzAlign="Right" Font="Arial, 9pt"/>
<ChildBand Name="Child1" Top="124.4" Width="718.2">
<LineObject Name="Line1" Width="708.75"/>
</ChildBand>
<Sort>
<Sort Expression="[Daten.Nrfaktura]"/>
</Sort>
</DataBand>
<ReportSummaryBand Name="ReportSummary1" Top="127.73" Width="718.2" Height="37.8">
<TextObject Name="Text13" Left="434.7" Top="3" Width="132.3" Height="28.35" Text="Total (ohne Storno)&#13;&#10;Total Storno" HorzAlign="Right" Font="Arial, 9pt, style=Bold"/>
<TextObject Name="Text14" Left="567" Top="3" Width="94.5" Height="28.35" Text="[Total]&#13;&#10;[Total_Storno]" Format="Number" Format.UseLocale="true" HorzAlign="Right" WordWrap="false" Font="Arial, 9pt, style=Bold" Trimming="EllipsisCharacter"/>
</ReportSummaryBand>
<PageFooterBand Name="PageFooter1" Top="168.87" Width="718.2" Height="18.9">
<TextObject Name="Text5" Width="189" Height="18.9" Text="[Date]" Font="Arial, 9pt"/>
<TextObject Name="Text15" Left="614.25" Width="94.5" Height="18.9" Text="[Page#]" HorzAlign="Right" Font="Arial, 9pt"/>
</PageFooterBand>
</ReportPage>
</Report>

61
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/Archiv/mahnliste.frx Normal file
View File

File diff suppressed because one or more lines are too long

BIN
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/Archiv/xxx.pdf Normal file
View File

Binary file not shown.

125
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/CamtJournaldetail.frx Normal file
View File

File diff suppressed because one or more lines are too long

113
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/CamtJournaleinfach.frx Normal file
View File

File diff suppressed because one or more lines are too long

109
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/Fakturierungen_Nach_Behandler.frx Normal file
View File

File diff suppressed because one or more lines are too long

110
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/Offene_Debitoren.frx Normal file
View File

File diff suppressed because one or more lines are too long

57
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/RG_Jahr_X_Abbuchung_Folgejahre.frx Normal file
View File

@@ -0,0 +1,57 @@
<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="CSharp" ReportInfo.Created="11/28/2015 07:43:07" ReportInfo.Modified="02/11/2018 21:01:48" ReportInfo.CreatorVersion="2015.3.1.0">
<Dictionary>
<TableDataSource Name="Daten" ReferenceName="Data.Daten" DataType="System.Int32" Enabled="true">
<Column Name="Nrfaktura" DataType="System.Int32"/>
<Column Name="Datum" DataType="System.DateTime"/>
<Column Name="NRPRIVAT" DataType="System.Int32"/>
<Column Name="NAME" DataType="System.String"/>
<Column Name="VORNAME" DataType="System.String"/>
<Column Name="Valuta" DataType="System.DateTime"/>
<Column Name="Betrag" DataType="System.Double"/>
<Column Name="Konto" DataType="System.String"/>
<Column Name="Column" DataType="System.Int32" Calculated="true" Expression="Year([Daten.Valuta])"/>
</TableDataSource>
<Parameter Name="Jahr RG-Stellung" DataType="System.String"/>
<Parameter Name="Mit Name" DataType="System.String"/>
<Total Name="Total" Expression="[Daten.Betrag]" Evaluator="Data1" PrintOn="GroupFooter1"/>
</Dictionary>
<ReportPage Name="Page1">
<ReportTitleBand Name="ReportTitle1" Width="718.2" Height="47.25">
<TextObject Name="Text1" Left="9.45" Top="9.45" Width="359.1" Height="18.9" Text="Dentis Praxis AG" Font="Arial, 12pt, style=Bold"/>
<TextObject Name="Text2" Left="368.55" Top="9.45" Width="340.2" Height="37.8" Text="Offene Posten [Jahr RG-Stellung]&#13;&#10;Zahlung / Abbuchung Folgejahre" HorzAlign="Right"/>
</ReportTitleBand>
<PageHeaderBand Name="PageHeader1" Top="50.11" Width="718.2"/>
<GroupHeaderBand Name="GroupHeader1" Top="52.96" Width="718.2" Height="56.7" KeepWithData="true" Condition="[Daten.Column]">
<TextObject Name="Text18" Left="9.45" Width="283.5" Height="18.9" Text="Jahr Zahlung/Ausbuchung [[Daten.Column]]"/>
<LineObject Name="Line1" Left="9.45" Top="47.25" Width="699.3"/>
<TextObject Name="Text14" Left="491.4" Top="27.34" Width="66.15" Height="18.9" Text="Betrag" HorzAlign="Right" Font="Arial, 9pt"/>
<TextObject Name="Text4" Left="9.45" Top="28.35" Width="75.6" Height="18.9" Text="RG-Datum" Font="Arial, 9pt"/>
<TextObject Name="Text6" Left="94.5" Top="27.34" Width="85.05" Height="18.9" Text="RG-Nr." Font="Arial, 9pt"/>
<TextObject Name="Text8" Left="189" Top="28.35" Width="56.7" Height="18.9" Text="Pat-Nr." Font="Arial, 9pt"/>
<TextObject Name="Text10" Left="245.7" Top="28.35" Width="141.75" Height="18.9" Text="Patient" Font="Arial, 9pt"/>
<TextObject Name="Text12" Left="415.8" Top="28.35" Width="94.5" Height="18.9" Text="Valuta" Font="Arial, 9pt"/>
<TextObject Name="Text16" Left="567" Top="28.35" Width="94.5" Height="18.9" Text="Konto" Font="Arial, 9pt"/>
<DataBand Name="Data1" Top="112.52" Width="718.2" Height="18.9" DataSource="Daten">
<TextObject Name="Text3" Left="9.45" Width="75.6" Height="18.9" Text="[Daten.Datum]" Format="Date" Format.Format="d" Font="Arial, 9pt"/>
<TextObject Name="Text5" Left="94.5" Top="-1.01" Width="85.05" Height="18.9" Text="[Daten.Nrfaktura]" Font="Arial, 9pt"/>
<TextObject Name="Text7" Left="189" Width="56.7" Height="18.9" Text="[Daten.NRPRIVAT]" Font="Arial, 9pt"/>
<TextObject Name="Text9" Left="245.7" Width="141.75" Height="18.9" Text="[IIf([Mit Name]==&quot;Nein&quot;,&quot;Patient&quot;,[Daten.NAME])]" Font="Arial, 9pt"/>
<TextObject Name="Text11" Left="415.8" Width="75.6" Height="18.9" Text="[Daten.Valuta]" Format="Date" Format.Format="d" Font="Arial, 9pt"/>
<TextObject Name="Text13" Left="491.4" Top="-1.01" Width="66.15" Height="18.9" Text="[Daten.Betrag]" Format="Number" Format.UseLocale="true" HorzAlign="Right" WordWrap="false" Font="Arial, 9pt" Trimming="EllipsisCharacter"/>
<TextObject Name="Text15" Left="567" Width="132.3" Height="18.9" Text="[Daten.Konto]" Font="Arial, 9pt"/>
<Sort>
<Sort Expression="[Daten.Nrfaktura]"/>
</Sort>
</DataBand>
<GroupFooterBand Name="GroupFooter1" Top="134.28" Width="718.2" Height="37.8">
<TextObject Name="Text17" Left="463.05" Top="9.45" Width="94.5" Height="18.9" Text="[Total]" Format="Number" Format.UseLocale="true" HorzAlign="Right" Font="Arial, 9pt"/>
<LineObject Name="Line2" Left="9.45" Width="699.3"/>
</GroupFooterBand>
</GroupHeaderBand>
<PageFooterBand Name="PageFooter1" Top="174.94" Width="718.2" Height="18.9">
<TextObject Name="Text20" Left="9.45" Width="217.35" Height="18.9" Text="[Date]"/>
<TextObject Name="Text19" Left="604.8" Width="94.5" Height="18.9" Text="[Page] / [TotalPages#]" HorzAlign="Right"/>
</PageFooterBand>
</ReportPage>
</Report>

64
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/Recallkarte.frx Normal file
View File

File diff suppressed because one or more lines are too long

90
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/Recallliste.frx Normal file
View File

@@ -0,0 +1,90 @@
<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="Vb" ReportInfo.Name="Recallliste" ReportInfo.Author="Recalls" ReportInfo.Version="2018" ReportInfo.Description="#Parameter1:Periode:monthtable:monthtable&#13;&#10;-SQL-&#13;&#10;SELECT dbo.PRIVAT.NRPRIVAT, dbo.RECALL.Datum, dbo.RECALL.Zeitvon, dbo.RECALL.Zeitbis, dbo.ANREDE.Anrede_D, dbo.TITEL.TITEL_D, dbo.PRIVAT.NAME, dbo.PRIVAT.VORNAME, dbo.PRIVAT.STRASSE, dbo.PRIVAT.COADRESSE, &#13;&#10; dbo.PRIVAT.PLZ, dbo.PRIVAT.ORT, dbo.PRIVAT.TELP, dbo.PRIVAT.FAXP, dbo.PRIVAT.TELG, dbo.PRIVAT.FAXG, dbo.PRIVAT.E_Mail, dbo.PRIVAT.Briefanrede, dbo.get_adresse_direkt(dbo.privat.nrprivat,0) as Adresse,&#13;&#10; dbo.get_adresse_direkt(dbo.privat.nrprivat,1) as AdresseEinzeilig&#13;&#10;FROM dbo.PRIVAT INNER JOIN&#13;&#10; dbo.RECALL ON dbo.PRIVAT.NRPRIVAT = dbo.RECALL.Nrprivat LEFT OUTER JOIN&#13;&#10; dbo.TITEL ON dbo.PRIVAT.NRTITEL = dbo.TITEL.NRTITEL LEFT OUTER JOIN&#13;&#10; dbo.ANREDE ON dbo.PRIVAT.NRANREDE = dbo.ANREDE.NRANREDE&#13;&#10;WHERE dbo.recall.aktiv=1 and (YEAR(dbo.RECALL.Datum) = substring('#Parameter1',4,4)) AND (MONTH(dbo.RECALL.Datum) =left('#Parameter1',2))" ReportInfo.Created="11/28/2015 07:43:07" ReportInfo.Modified="09/03/2018 16:38:27" ReportInfo.CreatorVersion="2018.2.11.0">
<ScriptText>Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Drawing
Imports Microsoft.VisualBasic
Imports FastReport
Imports FastReport.Data
Imports FastReport.Dialog
Imports FastReport.Table
Imports FastReport.Barcode
Imports FastReport.Utils
Namespace FastReport
Public Class ReportScript
Private Sub Picture1_BeforePrint(ByVal sender As object, ByVal e As EventArgs)
dim s as String()
s=report.FileName.Split(&quot;Reporting&quot;)
Dim ReportLogo as String
ReportLogo=s(0)+&quot;\Reporting\Logo\reportlogo.png&quot;
picture1.ImageLocation=Reportlogo
End Sub
End Class
End Namespace
</ScriptText>
<Dictionary>
<TableDataSource Name="Daten" ReferenceName="Data.Daten" DataType="System.Int32" Enabled="true">
<Column Name="NRPRIVAT" DataType="System.Int32"/>
<Column Name="Datum" DataType="System.DateTime"/>
<Column Name="Zeitvon" DataType="System.Double"/>
<Column Name="Zeitbis" DataType="System.Double"/>
<Column Name="Anrede_D" DataType="System.String"/>
<Column Name="TITEL_D" DataType="System.String"/>
<Column Name="NAME" DataType="System.String"/>
<Column Name="VORNAME" DataType="System.String"/>
<Column Name="STRASSE" DataType="System.String"/>
<Column Name="COADRESSE" DataType="System.String"/>
<Column Name="PLZ" DataType="System.String"/>
<Column Name="ORT" DataType="System.String"/>
<Column Name="TELP" DataType="System.String"/>
<Column Name="FAXP" DataType="System.String"/>
<Column Name="TELG" DataType="System.String"/>
<Column Name="FAXG" DataType="System.String"/>
<Column Name="E_Mail" DataType="System.String"/>
<Column Name="Briefanrede" DataType="System.String"/>
<Column Name="Adresse" DataType="System.String"/>
<Column Name="AdresseEinzeilig" DataType="System.String"/>
</TableDataSource>
<Parameter Name="Absender" DataType="System.String"/>
<Parameter Name="Periode" DataType="System.String"/>
</Dictionary>
<ReportPage Name="Page1">
<ReportTitleBand Name="ReportTitle1" Width="718.2" Height="56.7">
<PictureObject Name="Picture1" Width="132.3" Height="56.7" BeforePrintEvent="Picture1_BeforePrint" ImageLocation="E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Dentis\\Reporting\Logo\reportlogo.png"/>
<TextObject Name="Text1" Left="406.35" Top="9.45" Width="302.4" Height="28.35" Text="Recall-Liste [Periode]" HorzAlign="Right"/>
</ReportTitleBand>
<PageHeaderBand Name="PageHeader1" Top="60.03" Width="718.2" Height="28.35">
<TextObject Name="Text3" Width="94.5" Height="18.9" Text="Nr." Font="Arial, 9pt, style=Bold"/>
<TextObject Name="Text5" Left="37.8" Width="94.5" Height="18.9" Text="Patient" Font="Arial, 9pt, style=Bold"/>
<TextObject Name="Text7" Left="396.9" Width="94.5" Height="18.9" Text="Datum" Font="Arial, 9pt, style=Bold"/>
<TextObject Name="Text9" Left="500.85" Width="94.5" Height="18.9" Text="Tel P;/G." Font="Arial, 9pt, style=Bold"/>
<TextObject Name="Text11" Left="604.8" Width="94.5" Height="18.9" Text="E-Mail" Font="Arial, 9pt, style=Bold"/>
<LineObject Name="Line2" Top="18.9" Width="718.2"/>
</PageHeaderBand>
<DataBand Name="Data1" Top="91.72" Width="718.2" Height="29.35" CanGrow="true" DataSource="Daten">
<TextObject Name="Text2" Top="3" Width="37.8" Height="18.9" Text="[Daten.NRPRIVAT]" Font="Arial, 9pt"/>
<TextObject Name="Text4" Left="37.8" Top="3" Width="349.65" Height="18.9" Text="[Daten.AdresseEinzeilig]" Font="Arial, 9pt"/>
<TextObject Name="Text6" Left="396.9" Top="3" Width="94.5" Height="18.9" Text="[Daten.Datum]" Format="Date" Format.Format="d" Font="Arial, 9pt"/>
<TextObject Name="Text8" Left="500.85" Top="3" Width="94.5" Height="18.9" CanGrow="true" Text="[Daten.TELP]&#13;&#10;[Daten.TELG]" Font="Arial, 9pt"/>
<TextObject Name="Text10" Left="604.8" Top="3" Width="94.5" Height="18.9" CanGrow="true" Text="[Daten.E_Mail]" Font="Arial, 9pt"/>
<ChildBand Name="Child1" Top="124.4" Width="718.2">
<LineObject Name="Line1" Width="718.2"/>
</ChildBand>
<Sort>
<Sort Expression="[Daten.NAME]"/>
<Sort Expression="[Daten.VORNAME]"/>
</Sort>
</DataBand>
<PageFooterBand Name="PageFooter1" Top="127.73" Width="718.2" Height="18.9">
<TextObject Name="Text16" Width="189" Height="18.9" Text="[Date]" Font="Arial, 9pt"/>
<TextObject Name="Text15" Left="614.25" Width="94.5" Height="18.9" Text="[Page#]" HorzAlign="Right" Font="Arial, 9pt"/>
</PageFooterBand>
</ReportPage>
</Report>

10
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/Report1.frx Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="CSharp" ReportInfo.Created="11/28/2015 07:43:07" ReportInfo.Modified="11/28/2015 07:43:26" ReportInfo.CreatorVersion="2015.3.1.0">
<Dictionary/>
<ReportPage Name="Page1">
<ReportTitleBand Name="ReportTitle1" Width="718.2" Height="37.8"/>
<PageHeaderBand Name="PageHeader1" Top="41.84" Width="718.2" Height="28.35"/>
<DataBand Name="Data1" Top="74.23" Width="718.2" Height="75.6"/>
<PageFooterBand Name="PageFooter1" Top="153.87" Width="718.2" Height="18.9"/>
</ReportPage>
</Report>

23
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/Reports.txt Normal file
View File

@@ -0,0 +1,23 @@
1;0;Behandlungen;;;
2;1;Abgeschlossene Behandlungen;Abgeschlossene_Behandlungen.sql;Abgeschlossene_Behandlungen.frx
3;1;AbgeschlosseneKVs;Abgeschlossene_KV.sql;Abgeschlossene_KV.frx
10;0;Journale;;;
11;10;Fakturajournal;fakturajournal.sql;fakturajournal.frx
12;10;Zahlungsjournal;Zahlungsjournal.sql;Zahlungsjournal.frx
13;10;ESR-Journal;esr-journal.sql;esrjournal.frx
13;11;CAMT-Journal einfach;CAMT_Journal.sql;CamtJournaleinfach.frx
13;13;CAMT-Journal detailliert;CAMT_Journal.sql;CamtJournaldetail.frx
14;10;Offene Debitoren;offene_debitoren.sql;offene_debitoren.frx
15;10;Report2;Reports2.sql;report2.frx
20;0;Recalls;;;
21;20;Recall-Liste;Recalls.sql;Recallliste.frx
21;20;Recall-Karten;Recalls.sql;Recallkarte.frx
30;0;Mahnungen;;;
31;30;Mahnliste;Mahnliste.sql;mahnliste.frx
40;0;Diverse;;;
41;40;Rechnungsstellung Jahr X und Abbuchung in Folgejahren;RG_Jahr_X_Abbuchung_Folgejahre.sql;RG_Jahr_X_Abbuchung_Folgejahre.frx
42;40;Fakturierung nach Behandler;Fakturierungen_nach_behandler.sql;fakturierungen_nach_behandler.frx
43;40;Zahlungen nach Behandler;Zahlungen_nach_behandler.sql;Zahlungen_nach_behandler.frx
40;0;Etiketten
41;40;KG-Etiketten;Labels_Privat.sql;KGEtiketten.frx
42;40;Adressettiketten;Labels_Privat.sql;Adressetiketten.frx

90
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/Zahlungsjournal.frx Normal file
View File

@@ -0,0 +1,90 @@
<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="Vb" ReportInfo.Created="11/28/2015 07:43:07" ReportInfo.Modified="03/24/2019 19:40:28" ReportInfo.CreatorVersion="2018.4.2.0">
<ScriptText>Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Drawing
Imports Microsoft.VisualBasic
Imports FastReport
Imports FastReport.Data
Imports FastReport.Dialog
Imports FastReport.Table
Imports FastReport.Barcode
Imports FastReport.Utils
Namespace FastReport
Public Class ReportScript
Private Sub Picture1_BeforePrint(ByVal sender As object, ByVal e As EventArgs)
dim s as String()
s=report.FileName.Split(&quot;Reporting&quot;)
Dim ReportLogo as String
ReportLogo=s(0)+&quot;\Reporting\Logo\reportlogo.png&quot;
picture1.ImageLocation=Reportlogo
End Sub
End Class
End Namespace
</ScriptText>
<Dictionary>
<TableDataSource Name="Daten" ReferenceName="Data.Daten" DataType="System.Int32" Enabled="true">
<Column Name="Status" DataType="System.Int32"/>
<Column Name="Debitor" DataType="System.String"/>
<Column Name="Nrfaktura" DataType="System.Int32"/>
<Column Name="Valuta" DataType="System.DateTime"/>
<Column Name="Betrag" DataType="System.Double"/>
<Column Name="Vorauszahlung" DataType="System.Boolean" BindableControl="CheckBox"/>
<Column Name="Nrkonto" DataType="System.Int32"/>
<Column Name="Konto" DataType="System.String"/>
<Column Name="Statusdatum" DataType="System.DateTime"/>
<Column Name="Storno" DataType="System.String"/>
<Column Name="RGDatum" DataType="System.DateTime"/>
</TableDataSource>
<Parameter Name="Absender" DataType="System.String"/>
<Parameter Name="Datum von" DataType="System.String"/>
<Parameter Name="Datum bis" DataType="System.String"/>
<Parameter Name="Konto" DataType="System.String"/>
<Total Name="Total" Expression="[Daten.Betrag]" Evaluator="Data1"/>
</Dictionary>
<ReportPage Name="Page1">
<ReportTitleBand Name="ReportTitle1" Width="718.2" Height="56.7">
<TextObject Name="Text1" Left="349.65" Width="349.65" Height="18.9" Text="Zahlungsjournal [Datum von] bis [Datum bis]" HorzAlign="Right" Font="Arial, 10pt, style=Bold, Underline"/>
<TextObject Name="Text12" Left="349.65" Top="18.9" Width="349.65" Height="18.9" Text="[Absender]" HorzAlign="Right"/>
<PictureObject Name="Picture1" Left="9.45" Width="160.65" Height="47.25" BeforePrintEvent="Picture1_BeforePrint" ImageLocation="E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Dentis\\Reporting\Logo\reportlogo.png"/>
</ReportTitleBand>
<PageHeaderBand Name="PageHeader1" Top="59.56" Width="718.2" Height="28.35">
<LineObject Name="Line1" Left="9.45" Top="18.9" Width="699.3"/>
<TextObject Name="Text3" Left="9.45" Width="94.5" Height="18.9" Text="Valuta" Font="Arial, 8pt, style=Bold"/>
<TextObject Name="Text5" Left="94.5" Width="94.5" Height="18.9" Text="Debitor" Font="Arial, 8pt, style=Bold"/>
<TextObject Name="Text7" Left="302.4" Width="94.5" Height="18.9" Text="Betrag" HorzAlign="Right" Font="Arial, 8pt, style=Bold"/>
<TextObject Name="Text8" Left="415.8" Width="28.35" Height="18.9" Text="VZ" Font="Arial, 8pt, style=Bold"/>
<TextObject Name="Text13" Left="444.15" Width="75.6" Height="18.9" Text="Konto" Font="Arial, 8pt, style=Bold"/>
<TextObject Name="Text15" Left="529.2" Width="47.25" Height="18.9" Text="Storno" Font="Arial, 8pt, style=Bold"/>
<TextObject Name="Text19" Left="576.45" Width="132.3" Height="18.9" Text="RG-Nummer / Datum" Font="Arial, 8pt, style=Bold"/>
</PageHeaderBand>
<DataBand Name="Data1" Top="90.76" Width="718.2" Height="18.9" CanGrow="true" DataSource="Daten" Filter="[Daten.Konto]=[Konto] OR [Konto]=&quot;&quot;">
<TextObject Name="Text2" Left="9.45" Width="75.6" Height="18.9" Text="[Daten.Valuta]" Duplicates="Hide" Format="Date" Format.Format="d" Font="Arial, 8pt"/>
<TextObject Name="Text4" Left="94.5" Width="226.8" Height="18.9" CanGrow="true" Text="[Daten.Debitor]" Font="Arial, 8pt"/>
<TextObject Name="Text6" Left="330.75" Width="66.15" Height="18.9" Text="[Daten.Betrag]" Format="Number" Format.UseLocale="false" Format.DecimalDigits="2" Format.DecimalSeparator="." Format.GroupSeparator="'" Format.NegativePattern="1" HorzAlign="Right" WordWrap="false" Font="Arial, 8pt"/>
<CheckBoxObject Name="CheckBox1" Left="415.8" Width="18.9" Height="18.9" Checked="false" DataColumn="Daten.Vorauszahlung"/>
<TextObject Name="Text9" Left="444.15" Width="94.5" Height="18.9" Text="[Daten.Konto]" Font="Arial, 8pt"/>
<TextObject Name="Text14" Left="529.2" Width="37.8" Height="18.9" Text="[Daten.Storno]" Font="Arial, 8pt"/>
<TextObject Name="Text17" Left="576.45" Width="75.6" Height="18.9" Text="[Daten.Nrfaktura]" Font="Arial, 8pt"/>
<TextObject Name="Text18" Left="652.05" Width="66.15" Height="18.9" Text="[Daten.RGDatum]" Format="Date" Format.Format="d" Font="Arial, 8pt"/>
<Sort>
<Sort Expression="[Daten.Valuta]"/>
</Sort>
</DataBand>
<ReportSummaryBand Name="ReportSummary1" Top="112.52" Width="718.2" Height="37.8">
<TextObject Name="Text16" Left="255.15" Top="9.45" Width="141.75" Height="18.9" Text="[Total]" Format="Number" Format.UseLocale="false" Format.DecimalDigits="2" Format.DecimalSeparator="." Format.GroupSeparator="'" Format.NegativePattern="1" HorzAlign="Right" Font="Arial, 10pt, style=Bold"/>
</ReportSummaryBand>
<PageFooterBand Name="PageFooter1" Top="153.18" Width="718.2" Height="37.8">
<TextObject Name="Text10" Left="9.45" Top="9.45" Width="170.1" Height="18.9" Text="[Date]"/>
<LineObject Name="Line2" Left="9.45" Width="689.85"/>
<TextObject Name="Text11" Left="604.8" Top="9.45" Width="94.5" Height="18.9" Text="[Page#]" HorzAlign="Right"/>
</PageFooterBand>
</ReportPage>
</Report>

10
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/empty.frx Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="CSharp" ReportInfo.Created="11/28/2015 07:43:07" ReportInfo.Modified="11/28/2015 07:43:26" ReportInfo.CreatorVersion="2015.3.1.0">
<Dictionary/>
<ReportPage Name="Page1">
<ReportTitleBand Name="ReportTitle1" Width="718.2" Height="37.8"/>
<PageHeaderBand Name="PageHeader1" Top="41.84" Width="718.2" Height="28.35"/>
<DataBand Name="Data1" Top="74.23" Width="718.2" Height="75.6"/>
<PageFooterBand Name="PageFooter1" Top="153.87" Width="718.2" Height="18.9"/>
</ReportPage>
</Report>

90
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/esrjournal.frx Normal file
View File

File diff suppressed because one or more lines are too long

84
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/fakturajournal.frx Normal file
View File

File diff suppressed because one or more lines are too long

176
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/kgetiketten.frx Normal file
View File

@@ -0,0 +1,176 @@
<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="Vb" TextQuality="Regular" ReportInfo.Description="Demonstrates how to use the Table object. Notes:&#13;&#10;- to set the number of columns and rows, use &quot;ColumnCount&quot; and &quot;RowCount&quot; properties. Also you may add new columns/rows from a column/row context menu;&#13;&#10;- to join/split cells, use context menu of the cell;&#13;&#10;- to set the column/row autosize, use context menu of the column/row. " ReportInfo.Created="01/17/2008 17:08:04" ReportInfo.Modified="04/09/2019 18:38:08" ReportInfo.CreatorVersion="2018.4.2.0">
<ScriptText>Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Drawing
Imports Microsoft.VisualBasic
Imports FastReport
Imports FastReport.Data
Imports FastReport.Dialog
Imports FastReport.Table
Imports FastReport.Barcode
Imports FastReport.Utils
Namespace FastReport
Public Class ReportScript
Private Sub Text1_BeforePrint(ByVal sender As object, ByVal e As EventArgs)
if CType(Report.GetColumnValue(&quot;Daten.nrprivat&quot;), Int32)&lt;0 then text1.Text=&quot;&quot;
End Sub
Private Sub Text3_BeforePrint(ByVal sender As object, ByVal e As EventArgs)
text1.visible=true
text2.visible=true
text3.visible=true
text4.visible=true
text5.visible=true
text6.visible=true
text7.visible=true
text8.visible=true
text9.visible=true
text10.visible=true
text11.visible=true
If CType(Report.GetColumnValue(&quot;Daten.NRPRIVAT&quot;), Int32) &lt; 1 Then
text1.visible=false
text2.visible=false
text3.visible=false
text4.visible=false
text5.visible=false
text6.visible=false
text7.visible=false
text8.visible=false
text9.visible=false
text10.visible=false
text11.visible=false
end if
End Sub
End Class
End Namespace
</ScriptText>
<Styles Name="Standard">
<Style Name="Title" Font="Arial, 12pt, style=Bold"/>
<Style Name="Header" Font="Arial, 10pt, style=Bold"/>
<Style Name="Group" Font="Arial, 10pt, style=Bold"/>
<Style Name="Data"/>
<Style Name="Footer"/>
<Style Name="EvenRows" Fill.Color="WhiteSmoke"/>
</Styles>
<Dictionary>
<TableDataSource Name="Daten" ReferenceName="Data.Daten" DataType="System.Int32" Enabled="true">
<Column Name="NRPRIVAT" DataType="System.Int32"/>
<Column Name="MANDANT" DataType="System.Int32"/>
<Column Name="GUELTIGAB" DataType="System.DateTime"/>
<Column Name="GUELTIGBIS" DataType="System.DateTime"/>
<Column Name="STATUS" DataType="System.Int32"/>
<Column Name="SPRACHE" DataType="System.String"/>
<Column Name="NRANREDE" DataType="System.Int32"/>
<Column Name="NRTITEL" DataType="System.Int32"/>
<Column Name="NAME" DataType="System.String"/>
<Column Name="VORNAME" DataType="System.String"/>
<Column Name="STRASSE" DataType="System.String"/>
<Column Name="COADRESSE" DataType="System.String"/>
<Column Name="PLZ" DataType="System.String"/>
<Column Name="ORT" DataType="System.String"/>
<Column Name="TELP" DataType="System.String"/>
<Column Name="FAXP" DataType="System.String"/>
<Column Name="GEBDAT" DataType="System.DateTime"/>
<Column Name="GESCHLECHT" DataType="System.Int32"/>
<Column Name="NRARBEITGEBER" DataType="System.Int32"/>
<Column Name="BERUF" DataType="System.String"/>
<Column Name="TELG" DataType="System.String"/>
<Column Name="FAXG" DataType="System.String"/>
<Column Name="AHVNR" DataType="System.String"/>
<Column Name="PATIENT" DataType="System.Boolean" BindableControl="CheckBox"/>
<Column Name="GARANT" DataType="System.Boolean" BindableControl="CheckBox"/>
<Column Name="NRGARANT" DataType="System.Int32"/>
<Column Name="GESVERTRETER" DataType="System.Boolean" BindableControl="CheckBox"/>
<Column Name="NRGESVERTRETER" DataType="System.Int32"/>
<Column Name="HAUSARZT" DataType="System.Boolean" BindableControl="CheckBox"/>
<Column Name="NRHAUSARZT" DataType="System.Int32"/>
<Column Name="ZAHNARZT" DataType="System.Boolean" BindableControl="CheckBox"/>
<Column Name="NRZAHNARZT" DataType="System.Int32"/>
<Column Name="BEHANDLER" DataType="System.Boolean" BindableControl="CheckBox"/>
<Column Name="NRBEHANDLER" DataType="System.Int32"/>
<Column Name="NRDH" DataType="System.Int32"/>
<Column Name="Nrrgtyp" DataType="System.Int32"/>
<Column Name="RABATT" DataType="System.Double"/>
<Column Name="ZAZRECALL" DataType="System.Int32"/>
<Column Name="ZAZRECALLTELEFON" DataType="System.Boolean" BindableControl="CheckBox"/>
<Column Name="ZAZRECALLTYP" DataType="System.Int32"/>
<Column Name="ZAZRecallfixmonat" DataType="System.Double"/>
<Column Name="ZAZrecallbemerkung" DataType="System.String"/>
<Column Name="DHRECALL" DataType="System.Int32"/>
<Column Name="DHRECALLTELEFON" DataType="System.Boolean" BindableControl="CheckBox"/>
<Column Name="DHRECALLTYP" DataType="System.Int32"/>
<Column Name="DHRecallfixmonat" DataType="System.Double"/>
<Column Name="Dhrecallbemerkung" DataType="System.String"/>
<Column Name="TAXPUNKTTYP" DataType="System.Int32"/>
<Column Name="NRVS" DataType="System.Int32"/>
<Column Name="VSNR" DataType="System.String"/>
<Column Name="NRKK" DataType="System.Int32"/>
<Column Name="KKNR" DataType="System.String"/>
<Column Name="NRIV" DataType="System.Int32"/>
<Column Name="IVNR" DataType="System.String"/>
<Column Name="NRFS" DataType="System.Int32"/>
<Column Name="FSNR" DataType="System.String"/>
<Column Name="KORRANREDE" DataType="System.String"/>
<Column Name="KORRTITEL" DataType="System.String"/>
<Column Name="KORRNAME" DataType="System.String"/>
<Column Name="KORRVORNAME" DataType="System.String"/>
<Column Name="KORRSTRASSE" DataType="System.String"/>
<Column Name="KORRCOADRESSE" DataType="System.String"/>
<Column Name="KORRPLZ" DataType="System.String"/>
<Column Name="KORRORT" DataType="System.String"/>
<Column Name="ESTYP" DataType="System.Int32"/>
<Column Name="BEMERKUNG" DataType="System.String"/>
<Column Name="Betreibung" DataType="System.Boolean" BindableControl="CheckBox"/>
<Column Name="Nichtaufbieten" DataType="System.Boolean" BindableControl="CheckBox"/>
<Column Name="Nichtannehmen" DataType="System.Boolean" BindableControl="CheckBox"/>
<Column Name="Natel" DataType="System.String"/>
<Column Name="E_Mail" DataType="System.String"/>
<Column Name="Web" DataType="System.String"/>
<Column Name="Briefanrede" DataType="System.String"/>
<Column Name="dhpat" DataType="System.Boolean" BindableControl="CheckBox"/>
<Column Name="erstellt_am" DataType="System.DateTime"/>
<Column Name="mutiert_am" DataType="System.DateTime"/>
<Column Name="mutierer" DataType="System.Int32"/>
<Column Name="aktiv" DataType="System.Boolean" BindableControl="CheckBox"/>
<Column Name="GLN" DataType="System.String"/>
<Column Name="Kanton" DataType="System.String"/>
<Column Name="ZSR" DataType="System.String"/>
<Column Name="NRANREDE1" DataType="System.Int32"/>
<Column Name="Mandant1" DataType="System.Int32"/>
<Column Name="Anrede_D" DataType="System.String"/>
<Column Name="Anrede_F" DataType="System.String"/>
<Column Name="Anrede_I" DataType="System.String"/>
<Column Name="erstellt_am1" DataType="System.DateTime"/>
<Column Name="mutiert_am1" DataType="System.DateTime"/>
<Column Name="mutierer1" DataType="System.Int32"/>
<Column Name="aktiv1" DataType="System.Boolean" BindableControl="CheckBox"/>
<Column Name="anrede_d1" DataType="System.String"/>
</TableDataSource>
<Parameter Name="Absender" DataType="System.String"/>
<Parameter Name="Startposition" DataType="System.String"/>
<Parameter Name="Nummern (Komma-Getrennt)" DataType="System.String"/>
</Dictionary>
<ReportPage Name="Page1" RawPaperSize="9" TopMargin="5" BottomMargin="0" FirstPageSource="15" OtherPagesSource="15" Columns.Count="2" Columns.Width="105" Columns.Positions="0,95">
<DataBand Name="Data1" Width="396.9" Height="274.05" CanGrow="true" DataSource="Daten">
<TextObject Name="Text1" Left="95.5" Top="18.9" Width="94.5" Height="18.9" BeforePrintEvent="Text1_BeforePrint" Text="[Daten.NRPRIVAT]" HideValue="&lt; 0" Format="Date" Format.Format="d" Font="Arial, 12pt, style=Bold"/>
<TextObject Name="Text2" Left="94.5" Top="61.15" Width="283.5" Height="18.9" Text="[Daten.NAME] [Daten.VORNAME]" HideValue="daten.nrprivat 1" Font="Arial, 12pt, style=Bold"/>
<TextObject Name="Text3" Left="9.45" Top="18.9" Width="66.15" Height="18.9" BeforePrintEvent="Text3_BeforePrint" Text="Patient:" Font="Arial, 12pt, style=Bold"/>
<TextObject Name="Text4" Left="94.5" Top="44.25" Width="122.85" Height="18.9" Text="[Daten.anrede_d1]" HideValue="daten.nrprivat 1"/>
<TextObject Name="Text5" Left="94.5" Top="82.05" Width="283.5" Height="18.9" Text="[Daten.STRASSE]" Format="Date" Format.Format="d"/>
<TextObject Name="Text6" Left="94.5" Top="97.5" Width="283.5" Height="18.9" Text="[Daten.PLZ] [Daten.ORT]"/>
<TextObject Name="Text7" Left="94.5" Top="132.3" Width="283.5" Height="28.35" Text="[Daten.GEBDAT]&#13;&#10;[Daten.BERUF]" Format="Date" Format.Format="d"/>
<TextObject Name="Text8" Left="9.45" Top="132.3" Width="94.5" Height="28.35" Text="Geb.-Dat.:&#13;&#10;Beruf:"/>
<TextObject Name="Text9" Left="9.45" Top="179.55" Width="94.5" Height="47.25" Text="Tel-/Handy P:&#13;&#10;Tel./Fax. G:&#13;&#10;E-Mail:"/>
<TextObject Name="Text10" Left="103.95" Top="141.75" Height="9.45" Text="[Daten.GEBDAT]&#13;&#10;[Daten.BERUF]" Format="Date" Format.Format="d" Font="Arial, 9pt"/>
<TextObject Name="Text11" Left="94.5" Top="179.55" Width="283.5" Height="47.25" Text="[Daten.TELP] / [Daten.Natel]&#13;&#10;[Daten.TELG] / [Daten.FAXG]&#13;&#10;[Daten.E_Mail]" Format="Date" Format.Format="d"/>
</DataBand>
</ReportPage>
</Report>

90
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/mahnliste.frx Normal file
View File

File diff suppressed because one or more lines are too long

151
DPM2016/bin/Debug/DPM/Reporting/Archiv/Report/zahlungen_nach_behandler.frx Normal file
View File

@@ -0,0 +1,151 @@
<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="Vb" ReportInfo.Created="12/18/2011 16:31:16" ReportInfo.Modified="09/03/2018 19:56:01" ReportInfo.CreatorVersion="2018.2.11.0">
<ScriptText>Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Drawing
Imports Microsoft.VisualBasic
Imports FastReport
Imports FastReport.Data
Imports FastReport.Dialog
Imports FastReport.Table
Imports FastReport.Barcode
Imports FastReport.Utils
Namespace FastReport
Public Class ReportScript
Private Sub Picture1_BeforePrint(ByVal sender As object, ByVal e As EventArgs)
dim s as String()
s=report.FileName.Split(&quot;Reporting&quot;)
Dim ReportLogo as String
ReportLogo=s(0)+&quot;\Reporting\Logo\reportlogo.png&quot;
picture1.ImageLocation=Reportlogo
End Sub
Private Sub Text32_BeforePrint(ByVal sender As object, ByVal e As EventArgs)
text32.Text=CType(Report.GetParameterValue(&quot;Prozentsatz&quot;), string)
text32.Text=text32.Text+&quot;%&quot;
End Sub
End Class
End Namespace
</ScriptText>
<Dictionary>
<TableDataSource Name="Daten" ReferenceName="Data.Daten" DataType="System.Int32" Enabled="true">
<Column Name="Nrfaktura" DataType="System.Int32"/>
<Column Name="Nrbehandlung" DataType="System.Int32"/>
<Column Name="Behandlungsbeginn" DataType="System.DateTime"/>
<Column Name="Behandlungsende" DataType="System.DateTime"/>
<Column Name="Nrbehandler" DataType="System.Int32"/>
<Column Name="Behandler" DataType="System.String"/>
<Column Name="Nrpatient" DataType="System.Int32"/>
<Column Name="Patient" DataType="System.String"/>
<Column Name="Fakturatotal" DataType="System.Double"/>
<Column Name="Leistungen_4000_Total" DataType="System.Decimal"/>
<Column Name="Leistungen_4000_Behandler" DataType="System.Decimal"/>
<Column Name="Leistungen_Rest" DataType="System.Decimal"/>
<Column Name="Jahr" DataType="System.Int32" PropName="Column" Calculated="true" Expression="ToString(Year(ToDateTime([Daten.Valuta])))"/>
<Column Name="Monat" DataType="System.Int32" PropName="Column" Calculated="true" Expression="ToInt32(ToString(Month(ToDateTime([Daten.Valuta]))))"/>
<Column Name="Leistungen " DataType="System.Int32" PropName="Column" Calculated="true" Expression="[Daten.Leistungen_4000_Behandler]/28*100"/>
<Column Name="Leistungen_NE_Rupf" DataType="System.Decimal"/>
<Column Name="Zahlungsbetrag" DataType="System.Double"/>
<Column Name="valuta" DataType="System.String"/>
<Column Name="Prozent" DataType="System.Decimal"/>
<Column Name="TeilbetragProzent" DataType="System.Decimal"/>
<Column Name="ZuZahlen" DataType="System.Int32" PropName="Column" Calculated="true" Expression="[Daten.Leistungen_4000_Behandler]/100*[Daten.TeilbetragProzent]"/>
<Column Name="Column" Alias="Star" DataType="System.Int32" Calculated="true" Expression="IIf([Daten.TeilbetragProzent]&lt;100,&quot;*&quot;,&quot;&quot;)"/>
<Column Name="Leistungen" DataType="System.Decimal"/>
<Column Name="Vorauszahlung" DataType="System.Decimal"/>
<Column Name="ZuZahlen1" DataType="System.Decimal"/>
</TableDataSource>
<Parameter Name="Datum von" DataType="System.String"/>
<Parameter Name="Datum bis" DataType="System.String"/>
<Parameter Name="Absender" DataType="System.String"/>
<Parameter Name="Behandler" DataType="System.String"/>
<Parameter Name="Prozentsatz" DataType="System.String"/>
<Total Name="Total1" Expression="[Daten.ZuZahlen1]" Evaluator="Data1" PrintOn="GroupFooter2"/>
<Total Name="Total" Expression="[Daten.Fakturatotal]" Evaluator="Data1" PrintOn="GroupFooter2"/>
<Total Name="Total2" Expression="[Daten.Fakturatotal]" Evaluator="Data1" PrintOn="GroupFooter1"/>
<Total Name="Total3" Expression="[Daten.ZuZahlen1]" Evaluator="Data1" PrintOn="GroupFooter1"/>
<Total Name="Total4" Expression="[Daten.Leistungen ]" Evaluator="Data1" PrintOn="GroupFooter2"/>
<Total Name="Total5" Expression="[Daten.Leistungen ]" Evaluator="Data1" PrintOn="GroupFooter1"/>
</Dictionary>
<ReportPage Name="Page1" Landscape="true" PaperWidth="297" PaperHeight="210" RawPaperSize="9">
<ReportTitleBand Name="ReportTitle1" Width="1047.06" Height="66.15">
<TextObject Name="Text27" Left="491.4" Width="529.2" Height="18.9" Text="Abrechnung [Behandler] [Datum von] - [Datum bis]" HorzAlign="Right" Font="Arial, 12pt, style=Bold"/>
<PictureObject Name="Picture1" Left="18.9" Width="132.3" Height="47.25" BeforePrintEvent="Picture1_BeforePrint" ImageLocation="E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Dentis\\Reporting\Logo\reportlogo.png"/>
<TextObject Name="Text26" Left="18.9" Top="47.25" Width="368.55" Height="18.9" Text="[Absender]"/>
</ReportTitleBand>
<PageHeaderBand Name="PageHeader1" Top="69.48" Width="1047.06" Height="18.9"/>
<GroupHeaderBand Name="GroupHeader1" Top="91.72" Width="1047.06" Height="28.35" StartNewPage="true" Condition="[Daten.Jahr]">
<TextObject Name="Text19" Left="75.6" Width="94.5" Height="18.9" Text="[[Daten.Jahr]]" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text22" Left="18.9" Width="47.25" Height="18.9" Text="Jahr:" Font="Arial, 10pt, style=Bold"/>
<GroupHeaderBand Name="GroupHeader2" Top="123.4" Width="1047.06" Height="56.7" RepeatOnEveryPage="true" Condition="[Daten.Monat]" KeepTogether="true">
<TextObject Name="Text20" Left="75.6" Width="94.5" Height="18.9" Text="[[Daten.Monat]]"/>
<TextObject Name="Text23" Left="18.9" Width="56.7" Height="18.9" Text="Monat" Font="Arial, 10pt, style=Bold"/>
<LineObject Name="Line1" Left="18.9" Top="47.25" Width="1011.15"/>
<TextObject Name="Text2" Left="18.9" Top="28.35" Width="66.15" Height="18.9" Text="Valuta" Font="Arial, 9pt, style=Bold"/>
<TextObject Name="Text4" Left="103.95" Top="28.35" Width="94.5" Height="18.9" Text="Patient" Font="Arial, 9pt, style=Bold"/>
<TextObject Name="Text7" Left="311.85" Top="28.35" Width="56.7" Height="18.9" Text="Beginn" Font="Arial, 9pt, style=Bold"/>
<TextObject Name="Text9" Left="387.45" Top="28.35" Width="94.5" Height="18.9" Text="Ende" Font="Arial, 9pt, style=Bold"/>
<TextObject Name="Text11" Left="576.45" Top="28.35" Width="75.6" Height="18.9" Text="RGTotal" HorzAlign="Right" Font="Arial, 9pt, style=Bold"/>
<TextObject Name="Text13" Left="652.05" Top="28.35" Width="75.6" Height="18.9" Text="Total" HorzAlign="Right" Font="Arial, 9pt, style=Bold"/>
<TextObject Name="Text15" Left="897.75" Width="132.3" Height="18.9" Text="Leistungen As." HorzAlign="Right" Font="Arial, 9pt, style=Bold"/>
<TextObject Name="Text17" Left="463.05" Top="28.35" Width="113.4" Height="18.9" Text="Haupt-Behandler" Font="Arial, 9pt, style=Bold"/>
<TextObject Name="Text32" Left="973.35" Top="28.35" Width="56.7" Height="18.9" BeforePrintEvent="Text32_BeforePrint" Text="28%" HorzAlign="Right" Font="Arial, 9pt, style=Bold"/>
<TextObject Name="Text33" Left="907.2" Top="28.35" Width="47.25" Height="18.9" Text="Total" HorzAlign="Right" Font="Arial, 9pt, style=Bold"/>
<TextObject Name="Text37" Left="737.1" Top="28.35" Width="66.15" Height="18.9" Text="n. Assist." HorzAlign="Right" Font="Arial, 9pt, style=Bold"/>
<TextObject Name="Text31" Left="803.25" Top="28.35" Width="85.05" Height="18.9" Text="n.v. Leistung" HorzAlign="Right" Font="Arial, 9pt, style=Bold"/>
<TextObject Name="Text38" Left="652.05" Width="151.2" Height="18.9" Text="4000/7000/7997 Leist." HorzAlign="Center" Font="Arial, 9pt, style=Bold"/>
<LineObject Name="Line4" Left="652.05" Top="18.9" Width="151.2"/>
<LineObject Name="Line5" Left="907.2" Top="18.9" Width="122.85"/>
<DataBand Name="Data1" Top="183.43" Width="1047.06" Height="18.9" CanGrow="true" DataSource="Daten">
<TextObject Name="Text1" Left="18.9" Width="75.6" Height="18.9" Text="[Daten.Valuta]" Font="Arial, 9pt"/>
<TextObject Name="Text3" Left="103.95" Width="47.25" Height="18.9" Text="[Daten.Nrpatient]" Font="Arial, 9pt"/>
<TextObject Name="Text5" Left="160.65" Width="151.2" Height="18.9" CanGrow="true" GrowToBottom="true" Text="[Daten.Patient]" Font="Arial, 9pt"/>
<TextObject Name="Text6" Left="311.85" Width="75.6" Height="18.9" Text="[Daten.Behandlungsbeginn]" Format="Date" Format.Format="d" Font="Arial, 9pt"/>
<TextObject Name="Text8" Left="387.45" Width="75.6" Height="18.9" Text="[Daten.Behandlungsende]" Format="Date" Format.Format="d" Font="Arial, 9pt"/>
<TextObject Name="Text10" Left="585.9" Width="66.15" Height="18.9" Text="[Daten.Fakturatotal]" Format="Number" Format.UseLocale="false" Format.DecimalDigits="2" Format.DecimalSeparator="." Format.GroupSeparator="'" Format.NegativePattern="1" HorzAlign="Right" WordWrap="false" Font="Arial, 9pt" Trimming="EllipsisCharacter"/>
<TextObject Name="Text12" Left="661.5" Width="66.15" Height="18.9" Text="[Daten.Leistungen_4000_Total]" Format="Number" Format.UseLocale="false" Format.DecimalDigits="2" Format.DecimalSeparator="." Format.GroupSeparator="'" Format.NegativePattern="1" HorzAlign="Right" WordWrap="false" Font="Arial, 9pt" Trimming="EllipsisCharacter"/>
<TextObject Name="Text14" Left="954.45" Width="75.6" Height="18.9" Visible="false" Text="[Daten.Leistungen_4000_Behandler]" Format="Number" Format.UseLocale="false" Format.DecimalDigits="2" Format.DecimalSeparator="." Format.GroupSeparator="'" Format.NegativePattern="1" HorzAlign="Right" WordWrap="false" Font="Arial, 9pt" Trimming="EllipsisCharacter"/>
<TextObject Name="Text16" Left="463.05" Width="122.85" Height="18.9" CanGrow="true" GrowToBottom="true" Text="[Daten.Behandler]" Font="Arial, 9pt"/>
<TextObject Name="Text34" Left="897.75" Width="56.7" Height="18.9" Text="[Daten.Leistungen ]" Format="Number" Format.UseLocale="false" Format.DecimalDigits="2" Format.DecimalSeparator="." Format.GroupSeparator="'" Format.NegativePattern="1" HorzAlign="Right" Font="Arial, 9pt"/>
<TextObject Name="Text35" Left="737.1" Width="66.15" Height="18.9" Text="[Daten.Leistungen_NE_Rupf]" Format="Number" Format.UseLocale="false" Format.DecimalDigits="2" Format.DecimalSeparator="." Format.GroupSeparator="'" Format.NegativePattern="1" HorzAlign="Right" WordWrap="false" Font="Arial, 9pt" Trimming="EllipsisCharacter"/>
<TextObject Name="Text30" Left="831.6" Width="56.7" Height="18.9" Text="[Daten.Leistungen_Rest]" Format="Number" Format.UseLocale="false" Format.DecimalDigits="2" Format.DecimalSeparator="." Format.GroupSeparator="'" Format.NegativePattern="1" HorzAlign="Right" WordWrap="false" Font="Arial, 9pt" Trimming="EllipsisCharacter"/>
<TextObject Name="Text45" Left="1030.05" Width="18.9" Height="18.9" Text="[Daten.Star]"/>
<TextObject Name="Text50" Left="954.45" Width="75.6" Height="18.9" Text="[Daten.ZuZahlen1]" Format="Number" Format.UseLocale="false" Format.DecimalDigits="2" Format.DecimalSeparator="." Format.GroupSeparator="'" Format.NegativePattern="1" HorzAlign="Right" WordWrap="false" Font="Arial, 9pt" Trimming="EllipsisCharacter"/>
<Sort>
<Sort Expression="[Daten.Valuta]"/>
</Sort>
</DataBand>
<GroupFooterBand Name="GroupFooter2" Top="205.67" Width="1047.06" Height="47.25">
<TextObject Name="Text18" Left="963.9" Top="9.45" Width="66.15" Height="18.9" Text="[Total1]" Format="Number" Format.UseLocale="false" Format.DecimalDigits="2" Format.DecimalSeparator="." Format.GroupSeparator="'" Format.NegativePattern="1" HorzAlign="Right" Font="Arial, 9pt, style=Bold"/>
<TextObject Name="Text21" Left="557.55" Top="9.45" Width="94.5" Height="18.9" Text="[Total]" Format="Number" Format.UseLocale="false" Format.DecimalDigits="2" Format.DecimalSeparator="." Format.GroupSeparator="'" Format.NegativePattern="1" HorzAlign="Right" Font="Arial, 9pt, style=Bold"/>
<TextObject Name="Text36" Left="859.95" Top="9.45" Width="94.5" Height="18.9" Text="[Total4]" Format="Number" Format.UseLocale="true" HorzAlign="Right" Font="Arial, 9pt, style=Bold"/>
<TextObject Name="Text40" Left="18.9" Top="9.45" Width="122.85" Height="18.9" Text="Monatstotal" Font="Arial, 10pt, style=Bold"/>
</GroupFooterBand>
</GroupHeaderBand>
<GroupFooterBand Name="GroupFooter1" Top="256.25" Width="1047.06" Height="37.8">
<TextObject Name="Text28" Left="557.55" Top="9.45" Width="94.5" Height="18.9" Text="[Total2]" Format="Number" Format.UseLocale="false" Format.DecimalDigits="2" Format.DecimalSeparator="." Format.GroupSeparator="'" Format.NegativePattern="1" HorzAlign="Right" Font="Arial, 9pt, style=Bold"/>
<TextObject Name="Text29" Left="954.45" Top="9.45" Width="75.6" Height="18.9" Text="[Total3]" Format="Number" Format.UseLocale="false" Format.DecimalDigits="2" Format.DecimalSeparator="." Format.GroupSeparator="'" Format.NegativePattern="1" HorzAlign="Right" Font="Arial, 9pt, style=Bold"/>
<TextObject Name="Text39" Left="859.95" Top="9.45" Width="94.5" Height="18.9" Text="[Total5]" Format="Number" Format.UseLocale="true" HorzAlign="Right" Font="Arial, 9pt, style=Bold"/>
<TextObject Name="Text41" Left="18.9" Top="9.45" Width="122.85" Height="18.9" Text="Gesamttotal" Font="Arial, 10pt, style=Bold"/>
<LineObject Name="Line6" Left="18.9" Width="1011.15"/>
</GroupFooterBand>
</GroupHeaderBand>
<PageFooterBand Name="PageFooter1" Top="297.38" Width="1047.06" Height="103.95">
<TextObject Name="Text25" Left="18.9" Top="75.6" Width="245.7" Height="18.9" Text="[Date]"/>
<LineObject Name="Line2" Left="18.9" Top="9.45" Width="1011.15"/>
<LineObject Name="Line3" Left="28.35" Top="9.45" Height="9.45"/>
<TextObject Name="Text24" Left="926.1" Top="85.05" Width="103.95" Height="18.9" Text="[Page#]" HorzAlign="Right"/>
<TextObject Name="Text42" Left="103.95" Top="18.9" Width="94.5" Height="47.25" Text="n. Assist&#13;&#10;n.v. Leistung&#13;&#10;*"/>
<TextObject Name="Text43" Left="18.9" Top="18.9" Width="75.6" Height="18.9" Text="Legende" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text44" Left="207.9" Top="18.9" Width="415.8" Height="47.25" Text="Leistungen welche nicht durch Assistent erbracht wurden&#13;&#10;nicht verrechenbare Leistungen (Medikamente, Labor usw.)&#13;&#10;* Teilbetrag aufgrund Teilzahlung"/>
</PageFooterBand>
</ReportPage>
</Report>

4
DPM2016/bin/Debug/DPM/Reporting/Archiv/SQL/Abgeschlossene_Behandlungen.sql Normal file
View File

@@ -0,0 +1,4 @@
-SQL-
SELECT Behandlungsbeginn, Behandlungsende, Total, dbo.get_name(Nrpatient) AS Patient, dbo.get_name(Nrbehandler) AS Behandler, Status, aktiv
FROM dbo.Behandlu
WHERE (Status = 2) AND (aktiv = 1)

4
DPM2016/bin/Debug/DPM/Reporting/Archiv/SQL/Abgeschlossene_KV.sql Normal file
View File

@@ -0,0 +1,4 @@
-SQL-
SELECT Behandlungsbeginn, Behandlungsende, Total, dbo.get_name(Nrpatient) AS Patient, dbo.get_name(Nrbehandler) AS Behandler, Status, aktiv
FROM dbo.Behandlu
WHERE (Status = 4) AND (aktiv = 1)

18
DPM2016/bin/Debug/DPM/Reporting/Archiv/SQL/CAMT_Journal.sql Normal file
View File

@@ -0,0 +1,18 @@
#Parameter1:Journal:DataTable:select nreintrag as keyvalue, convert(varchar(10),erstellt_am,104) FROM camt_Run ORDER BY nreintrag desc, erstellt_am desc
-SQL-
SELECT dbo.CAMT_Run.NrEIntrag AS CAMT_RUN_NrEintrag, dbo.CAMT_Run.Datum AS CAMT_Run_Datum, dbo.CAMT_Run.aktiv AS CAMT_Run_Aktiv, dbo.CAMT_Run.erstellt_am AS CAMT_Run_Erstelltam,
dbo.CAMT_Run.mutiert_am AS CAMT_Run_Mutiertam, dbo.CAMT_Run.mutierer AS CAMT_Run_Mutierer, dbo.CAMT_Run.Sourcefilename AS CAMT_Run_Filename, dbo.CAMT_File.Nreintrag AS CAMT_File_Nreintrag,
dbo.CAMT_File.CAMT_RunNr AS CAMT_File_CAMT_Run_NrEintrag, dbo.CAMT_File.Filename AS CAMT_File_Filename, dbo.CAMT_File.CreateDateTime AS CAMT_File_CreateDateTime, dbo.CAMT_File.IBAN AS CAMT_File_IBSN,
dbo.CAMT_File.REF AS CAMT_File_Referenz, dbo.CAMT_File.Anzahl_Buchungen AS CAMT_File_Anzhal_Buchungen, dbo.CAMT_File.ID AS CAMT_File_ID, dbo.CAMT_File.Total AS CAMT_File_Total,
dbo.CAMT_File.aktiv AS CAMT_File_Aktiv, dbo.CAMT_File.erstellt_am AS CAMT_File_Erstellt_am, dbo.CAMT_File.mutiert_am AS CAMT_File_Mutiert_am, dbo.CAMT_File.mutierer AS CAMT_File_Mutierer,
dbo.CAMT_Record.nreintrag AS CAMT_Record_NrEintrag, dbo.CAMT_Record.CAMT_FileNr AS CAMT_Record_CAMT_Filen_NrEintrag, dbo.CAMT_Record.Referenz AS CAMT_Record_Referenz,
dbo.CAMT_Record.Valuta AS CAMT_Record_Valuta, dbo.CAMT_Record.Buchungsdatum AS CAMT_Record_Buchungsdatum, dbo.CAMT_Record.Betrag AS CAMT_Record_Betrag, dbo.CAMT_Record.Taxen AS CAMT_Record_Taxen,
dbo.CAMT_Record.aktiv AS CAMT_Record_Aktiv, dbo.CAMT_Record.erstellt_am AS CAMT_Record_erstellt_am, dbo.CAMT_Record.mutiert_am AS CAMT_Record_Mutiert_am,
dbo.CAMT_Record.mutierer AS CAMT_Record_Mutierer, dbo.CAMT_Record.verbucht AS CAMT_Record_Verbucht, SUBSTRING(dbo.CAMT_Record.Referenz, 7, 10) AS fakturanr, dbo.get_name(dbo.Faktura.Nrpatient) AS Patient,
dbo.get_name(dbo.Faktura.Nrdebitor) AS Debitor
FROM dbo.CAMT_Run INNER JOIN
dbo.CAMT_File ON dbo.CAMT_Run.NrEIntrag = dbo.CAMT_File.CAMT_RunNr INNER JOIN
dbo.CAMT_Record ON dbo.CAMT_File.Nreintrag = dbo.CAMT_Record.CAMT_FileNr LEFT OUTER JOIN
dbo.Faktura ON SUBSTRING(dbo.CAMT_Record.Referenz, 7, 10) = dbo.Faktura.Nrfaktura
WHERE (dbo.CAMT_Run.NrEIntrag = #Parameter1)

13
DPM2016/bin/Debug/DPM/Reporting/Archiv/SQL/ESR-Journal - Kopie.sql Normal file
View File

@@ -0,0 +1,13 @@
#Parameter1:Journal:DataTable:select datum FROM besrt ORDER BY eintragnr desc, datum desc
-SQL-
SELECT dbo.BESRT.Datum, dbo.BESRT.Betrag, SUBSTRING(dbo.BESRI.Referenz, 8, 10) AS fakturanr, dbo.BESRI.Transaktion, dbo.BESRI.Betrag AS Einzelbetrag, dbo.BESRI.Datumverarbeitung AS Valuta, dbo.BESRI.Taxen_PTT,
dbo.BESRI.Verbucht
into #tmp1
FROM dbo.BESRT INNER JOIN
dbo.BESRI ON dbo.BESRT.Eintragnr = dbo.BESRI.besrtnr
where dbo.besrt.datum='#Parameter1';
SELECT dbo.#tmp1.Datum, dbo.#tmp1.Betrag, dbo.#tmp1.fakturanr, dbo.#tmp1.Transaktion, dbo.#tmp1.Einzelbetrag, dbo.#tmp1.Valuta, dbo.#tmp1.Taxen_PTT, dbo.#tmp1.Verbucht, dbo.get_name(dbo.Faktura.Nrpatient) AS Patient,
dbo.get_name(dbo.Faktura.Nrdebitor) AS Debitor
FROM dbo.#tmp1 INNER JOIN
dbo.Faktura ON dbo.#tmp1.fakturanr = dbo.Faktura.Nrfaktura
drop table #tmp1;

13
DPM2016/bin/Debug/DPM/Reporting/Archiv/SQL/ESR-Journal.sql Normal file
View File

@@ -0,0 +1,13 @@
#Parameter1:Journal:DataTable:select eintragnr as keyvalue, convert(varchar(10),datum,104) FROM besrt ORDER BY eintragnr desc, datum desc
-SQL-
SELECT dbo.BESRT.Datum, dbo.BESRT.Betrag, SUBSTRING(dbo.BESRI.Referenz, 8, 10) AS fakturanr, dbo.BESRI.Transaktion, dbo.BESRI.Betrag AS Einzelbetrag, dbo.BESRI.Datumverarbeitung AS Valuta, dbo.BESRI.Taxen_PTT,
dbo.BESRI.Verbucht
into #tmp1
FROM dbo.BESRT INNER JOIN
dbo.BESRI ON dbo.BESRT.Eintragnr = dbo.BESRI.besrtnr
where dbo.besrt.eintragnr=#Parameter1;
SELECT #tmp1.Datum, #tmp1.Betrag, #tmp1.fakturanr, #tmp1.Transaktion, #tmp1.Einzelbetrag, #tmp1.Valuta, #tmp1.Taxen_PTT, #tmp1.Verbucht, dbo.get_name(dbo.Faktura.Nrpatient) AS Patient,
dbo.get_name(dbo.Faktura.Nrdebitor) AS Debitor
FROM #tmp1 INNER JOIN
dbo.Faktura ON #tmp1.fakturanr = dbo.Faktura.Nrfaktura;
drop table #tmp1;

8
DPM2016/bin/Debug/DPM/Reporting/Archiv/SQL/FakturaJournal.sql Normal file
View File

@@ -0,0 +1,8 @@
#Parameter1:Datum von:datetime:firstofcurrentyear
#Parameter2:Datum bis:datetime:currentdate
#Parameter3:Behandler:DataTable:select name+' '+vorname from privat where behandler=1 AND aktiv=1 order by nrprivat
-SQL-
SELECT Nrfaktura, Nrdebitor, Nrpatient, Datum, Total, dbo.faktura.Status, dbo.get_name(Nrpatient) AS Patient, case when nrdebitor<>nrpatient then dbo.get_name(Nrdebitor) else '' end AS Debitor, dbo.privat.name+' '+dbo.privat.vorname as behandler
FROM dbo.Faktura JOIN
dbo.PRIVAT ON dbo.Faktura.Nrbehandler = dbo.PRIVAT.NRPRIVAT
where datum>='#Parameter1 00:00:00' and datum <='#Parameter2 23:59:59' and (''='#Parameter3' or '#Parameter3'= dbo.privat.name+' '+dbo.privat.vorname)

47
DPM2016/bin/Debug/DPM/Reporting/Archiv/SQL/Fakturierungen_Nach_Behandler.sql Normal file
View File

@@ -0,0 +1,47 @@
#Parameter1:Datum von:datetime:firstofcurrentyear
#Parameter2:Datum bis:datetime:currentdate
#Parameter3:Behandler:DataTable:select name+' '+vorname from privat where behandler=1 AND aktiv=1 order by nrprivat
#Parameter4:Prozentsatz:Text:0.28
-SQL-
SELECT
faktura.Nrfaktura,
behandlu.Nrbehandlung,
behandlu.Behandlungsbeginn,
behandlu.Behandlungsende,
behandlu.Nrbehandler,
concat(privat.name, ' ', privat.vorname) AS Behandler,
behandlu.Nrpatient,
Concat(privat1.name, ' ', privat1.vorname) AS Patient,
faktura.total as fakturatotal,
cast(0 AS DECIMAL(10,2)) as Leistungen_4000_Total,
CAST(0 AS DECIMAL(10,2)) as Leistungen_4000_Behandler,
CAST(0 AS DECIMAL(10,2)) as Leistungen_NE_Rupf,
CAST(9 AS DECIMAL(10,2)) as Leistungen_Rest
INTO #tmp2
FROM
faktura
INNER JOIN behandlu ON (faktura.Nrbehandlung = behandlu.Nrbehandlung)
INNER JOIN privat ON (behandlu.Nrbehandler = privat.NRPRIVAT)
INNER JOIN privat privat1 ON (behandlu.Nrpatient = privat1.NRPRIVAT)
where datum >= '#Parameter1 00:00:00' and datum < '#Parameter2 23:59:59' AND faktura.status<>9
DECLARE @nrbehandler INT
SELECT @nrbehandler=nrprivat FROM privat WHERE (''='#Parameter3' or '#Parameter3'= dbo.privat.name+' '+dbo.privat.vorname)
UPDATE #tmp2 set leistungen_4000_Total = (select sum(leistung.total) from leistung
WHERE leistung.nrbehandlung=#tmp2.nrbehandlung and (left(leistung.sso_nummer,1)='4'));
update #tmp2 set leistungen_4000_Behandler = (select sum(leistung.total)*#Parameter4 from leistung where
leistung.nrbehandler=@nrbehandler and leistung.nrbehandlung=#tmp2.nrbehandlung and (LEFT(leistung.SSO_Nummer,1)='4'));
update #tmp2 set leistungen_ne_rupf = (select sum(leistung.total) from leistung
WHERE leistung.nrbehandler<>1 and leistung.nrbehandlung=#tmp2.nrbehandlung and (LEFT(leistung.sso_nummer,1)='4'));
update #tmp2 set leistungen_Rest = (select sum(leistung.total) from leistung
WHERE leistung.nrbehandlung=#tmp2.nrbehandlung and ((LEFT(leistung.SSO_Nummer,1)<>'4')));
UPDATE #tmp2 set behandler = 'Terlinden-Dünner' where behandler='Terlinden-Dünner Dominique';
select * from #tmp2 where leistungen_4000_behandler > 0 order by nrfaktura;
DROP TABLE #tmp2

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