This commit is contained in:
2022-12-25 10:09:49 +01:00
commit 406d053e79
3903 changed files with 2127541 additions and 0 deletions

View File

@@ -0,0 +1,108 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
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">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</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.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:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<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" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</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>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="Bar1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="info.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="$this.Name">
<value>ucProgress</value>
</data>
</root>

View File

@@ -0,0 +1,82 @@
Public Class ucProgress
Inherits System.Windows.Forms.UserControl
#Region " Vom Windows Form Designer generierter Code "
Public Sub New()
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
'UserControl überschreibt den Löschvorgang zum Bereinigen der Komponentenliste.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
Friend WithEvents Bar1 As UtilityLibrary.WinControls.ProgressBarEx
Friend WithEvents info As System.Windows.Forms.Label
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Bar1 = New UtilityLibrary.WinControls.ProgressBarEx()
Me.info = New System.Windows.Forms.Label()
Me.SuspendLayout()
'
'Bar1
'
Me.Bar1.BackgroundBitmap = Nothing
Me.Bar1.BackgroundColor = System.Drawing.Color.FromArgb(CType(220, Byte), CType(217, Byte), CType(211, Byte))
Me.Bar1.Border3D = System.Windows.Forms.Border3DStyle.Flat
Me.Bar1.BorderColor = System.Drawing.SystemColors.Highlight
Me.Bar1.EnableBorder3D = True
Me.Bar1.ForegroundBitmap = Nothing
Me.Bar1.ForegroundColor = System.Drawing.Color.Blue
Me.Bar1.GradientEndColor = System.Drawing.Color.Navy
Me.Bar1.GradientMiddleColor = System.Drawing.Color.Blue
Me.Bar1.GradientStartColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(128, Byte), CType(255, Byte))
Me.Bar1.Maximum = 100
Me.Bar1.Minimum = 0
Me.Bar1.Name = "Bar1"
Me.Bar1.ProgressTextColor = System.Drawing.Color.Empty
Me.Bar1.ProgressTextHiglightColor = System.Drawing.Color.Empty
Me.Bar1.ShowProgressText = True
Me.Bar1.Size = New System.Drawing.Size(224, 24)
Me.Bar1.Smooth = True
Me.Bar1.Step = 10
Me.Bar1.TabIndex = 3
Me.Bar1.Text = "ProgressBarEx1"
Me.Bar1.Value = 0
'
'info
'
Me.info.Location = New System.Drawing.Point(228, 5)
Me.info.Name = "info"
Me.info.Size = New System.Drawing.Size(284, 23)
Me.info.TabIndex = 4
'
'ucProgress
'
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.info, Me.Bar1})
Me.Name = "ucProgress"
Me.Size = New System.Drawing.Size(520, 24)
Me.ResumeLayout(False)
End Sub
#End Region
End Class

View File

@@ -0,0 +1,174 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
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">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</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.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:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<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" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</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>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="grpStandard.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="standardlist.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="resource.Images" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
RK5CYII=
</value>
</data>
<data name="ContextMenu2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>140, 17</value>
</data>
<data name="ContextMenu2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="mnuinsertStdTM.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ContextMenu1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</data>
<data name="ContextMenu1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="mnustandardpositionieren.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="mnudelplatzhalter.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GrpIDV.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="idvwerteList.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="resource.Images1" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
RK5CYII=
</value>
</data>
<data name="ContextMenu3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>263, 17</value>
</data>
<data name="ContextMenu3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="mnuinsertidvtm.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="grpUsed.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="usedlist.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="resource.Images2" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
RK5CYII=
</value>
</data>
<data name="$this.Name">
<value>ucedit</value>
</data>
</root>

View File

@@ -0,0 +1,503 @@
Public Class ucedit
Inherits System.Windows.Forms.UserControl
#Region " Vom Windows Form Designer generierter Code "
Public Sub New()
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
'UserControl überschreibt den Löschvorgang zum Bereinigen der Komponentenliste.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
Friend WithEvents grpStandard As System.Windows.Forms.GroupBox
Friend WithEvents standardlist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents GrpIDV As System.Windows.Forms.GroupBox
Friend WithEvents idvwerteList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
Friend WithEvents mnustandardpositionieren As System.Windows.Forms.MenuItem
Friend WithEvents grpUsed As System.Windows.Forms.GroupBox
Friend WithEvents usedlist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents ContextMenu2 As System.Windows.Forms.ContextMenu
Friend WithEvents mnuinsertStdTM As System.Windows.Forms.MenuItem
Friend WithEvents ContextMenu3 As System.Windows.Forms.ContextMenu
Friend WithEvents mnuinsertidvtm As System.Windows.Forms.MenuItem
Friend WithEvents mnudelplatzhalter As System.Windows.Forms.MenuItem
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(ucedit))
Dim GridLines1 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
Dim GridLines2 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
Dim GridLines3 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
Me.grpStandard = New System.Windows.Forms.GroupBox()
Me.standardlist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ContextMenu2 = New System.Windows.Forms.ContextMenu()
Me.mnuinsertStdTM = New System.Windows.Forms.MenuItem()
Me.ContextMenu1 = New System.Windows.Forms.ContextMenu()
Me.mnustandardpositionieren = New System.Windows.Forms.MenuItem()
Me.mnudelplatzhalter = New System.Windows.Forms.MenuItem()
Me.GrpIDV = New System.Windows.Forms.GroupBox()
Me.idvwerteList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ContextMenu3 = New System.Windows.Forms.ContextMenu()
Me.mnuinsertidvtm = New System.Windows.Forms.MenuItem()
Me.grpUsed = New System.Windows.Forms.GroupBox()
Me.usedlist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.grpStandard.SuspendLayout()
CType(Me.standardlist, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GrpIDV.SuspendLayout()
CType(Me.idvwerteList, System.ComponentModel.ISupportInitialize).BeginInit()
Me.grpUsed.SuspendLayout()
CType(Me.usedlist, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'grpStandard
'
Me.grpStandard.Controls.AddRange(New System.Windows.Forms.Control() {Me.standardlist})
Me.grpStandard.Location = New System.Drawing.Point(8, 8)
Me.grpStandard.Name = "grpStandard"
Me.grpStandard.Size = New System.Drawing.Size(336, 152)
Me.grpStandard.TabIndex = 0
Me.grpStandard.TabStop = False
Me.grpStandard.Text = "Verfügbare Standard-Werte"
'
'standardlist
'
Me.standardlist.AllowDelete = True
Me.standardlist.AllowFilter = True
Me.standardlist.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
Me.standardlist.AllowSort = True
Me.standardlist.AlternatingRows = True
Me.standardlist.CaptionHeight = 17
Me.standardlist.CollapseColor = System.Drawing.Color.Black
Me.standardlist.ContextMenu = Me.ContextMenu2
Me.standardlist.Cursor = System.Windows.Forms.Cursors.Default
Me.standardlist.DataChanged = False
Me.standardlist.DeadAreaBackColor = System.Drawing.Color.Empty
Me.standardlist.ExpandColor = System.Drawing.Color.Black
Me.standardlist.FetchRowStyles = True
Me.standardlist.FilterBar = True
Me.standardlist.GroupByCaption = "Drag a column header here to group by that column"
Me.standardlist.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
Me.standardlist.Location = New System.Drawing.Point(3, 16)
Me.standardlist.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
Me.standardlist.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
Me.standardlist.Name = "standardlist"
Me.standardlist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.standardlist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.standardlist.PreviewInfo.ZoomFactor = 75
Me.standardlist.PrintInfo.ShowOptionsDialog = False
Me.standardlist.RecordSelectorWidth = 16
GridLines1.Color = System.Drawing.Color.DarkGray
GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
Me.standardlist.RowDivider = GridLines1
Me.standardlist.RowHeight = 15
Me.standardlist.RowSubDividerColor = System.Drawing.Color.DarkGray
Me.standardlist.ScrollTips = True
Me.standardlist.Size = New System.Drawing.Size(325, 128)
Me.standardlist.TabIndex = 28
Me.standardlist.Text = "C1TrueDBGrid1"
Me.standardlist.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
"r""><Data>Style11{}Style12{}Style13{}Style5{}Style4{}Style7{}Style6{}EvenRow{Back" & _
"Color:White;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Heading{Wrap:" & _
"True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:" & _
"Control;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Filte" & _
"rBar{BackColor:255, 255, 192;}OddRow{BackColor:224, 224, 224;}Footer{}Caption{Al" & _
"ignHorz:Center;}Style27{}Normal{BackColor:Control;}Style26{}HighlightRow{ForeCol" & _
"or:HighlightText;BackColor:Highlight;}Style10{AlignHorz:Near;}Editor{}RecordSele" & _
"ctor{AlignImage:Center;}Style9{}Style8{}Style3{}Style2{}Group{BackColor:ControlD" & _
"ark;Border:None,,0, 0, 0, 0;AlignVert:Center;}Style1{}</Data></Styles><Splits><C" & _
"1.Win.C1TrueDBGrid.MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""1" & _
"7"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FetchRowStyles=""True"" Filter" & _
"Bar=""True"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecSelWid" & _
"th=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 321," & _
" 124</ClientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Heading"" me=""St" & _
"yle10"" /><EditorStyle parent=""Editor"" me=""Style2"" /><EvenRowStyle parent=""EvenRo" & _
"w"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style27"" /><FooterStyle " & _
"parent=""Footer"" me=""Style4"" /><GroupStyle parent=""Group"" me=""Style12"" /><Heading" & _
"Style parent=""Heading"" me=""Style3"" /><HighLightRowStyle parent=""HighlightRow"" me" & _
"=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style6"" /><OddRowStyle parent=""" & _
"OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" " & _
"/><SelectedStyle parent=""Selected"" me=""Style5"" /><Style parent=""Normal"" me=""Styl" & _
"e1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=" & _
"""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Foo" & _
"ter"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inacti" & _
"ve"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" " & _
"/><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow""" & _
" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelect" & _
"or"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group""" & _
" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Mod" & _
"ified</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 321, " & _
"124</ClientArea></Blob>"
'
'ContextMenu2
'
Me.ContextMenu2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuinsertStdTM})
'
'mnuinsertStdTM
'
Me.mnuinsertStdTM.Index = 0
Me.mnuinsertStdTM.Text = "&Platzhalter im Dokument einfügen"
'
'ContextMenu1
'
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnustandardpositionieren, Me.mnudelplatzhalter})
'
'mnustandardpositionieren
'
Me.mnustandardpositionieren.Index = 0
Me.mnustandardpositionieren.Text = "Cursor &im Dokument positionieren"
'
'mnudelplatzhalter
'
Me.mnudelplatzhalter.Index = 1
Me.mnudelplatzhalter.Text = "&Platzhalter löschen"
'
'GrpIDV
'
Me.GrpIDV.Controls.AddRange(New System.Windows.Forms.Control() {Me.idvwerteList})
Me.GrpIDV.Location = New System.Drawing.Point(8, 160)
Me.GrpIDV.Name = "GrpIDV"
Me.GrpIDV.Size = New System.Drawing.Size(336, 104)
Me.GrpIDV.TabIndex = 1
Me.GrpIDV.TabStop = False
Me.GrpIDV.Text = "Verfügbare dokumentspezifische Werte"
'
'idvwerteList
'
Me.idvwerteList.AllowDelete = True
Me.idvwerteList.AllowFilter = True
Me.idvwerteList.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
Me.idvwerteList.AllowSort = True
Me.idvwerteList.AlternatingRows = True
Me.idvwerteList.CaptionHeight = 17
Me.idvwerteList.CollapseColor = System.Drawing.Color.Black
Me.idvwerteList.ContextMenu = Me.ContextMenu3
Me.idvwerteList.Cursor = System.Windows.Forms.Cursors.Default
Me.idvwerteList.DataChanged = False
Me.idvwerteList.DeadAreaBackColor = System.Drawing.Color.Empty
Me.idvwerteList.ExpandColor = System.Drawing.Color.Black
Me.idvwerteList.FetchRowStyles = True
Me.idvwerteList.FilterBar = True
Me.idvwerteList.GroupByCaption = "Drag a column header here to group by that column"
Me.idvwerteList.Images.Add(CType(resources.GetObject("resource.Images1"), System.Drawing.Bitmap))
Me.idvwerteList.Location = New System.Drawing.Point(3, 16)
Me.idvwerteList.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
Me.idvwerteList.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
Me.idvwerteList.Name = "idvwerteList"
Me.idvwerteList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.idvwerteList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.idvwerteList.PreviewInfo.ZoomFactor = 75
Me.idvwerteList.PrintInfo.ShowOptionsDialog = False
Me.idvwerteList.RecordSelectorWidth = 16
GridLines2.Color = System.Drawing.Color.DarkGray
GridLines2.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
Me.idvwerteList.RowDivider = GridLines2
Me.idvwerteList.RowHeight = 15
Me.idvwerteList.RowSubDividerColor = System.Drawing.Color.DarkGray
Me.idvwerteList.ScrollTips = True
Me.idvwerteList.Size = New System.Drawing.Size(325, 80)
Me.idvwerteList.TabIndex = 28
Me.idvwerteList.Text = "C1TrueDBGrid1"
Me.idvwerteList.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
"r""><Data>Style11{}Style12{}Style13{}Style5{}Style4{}Style7{}Style6{}EvenRow{Back" & _
"Color:White;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Heading{Wrap:" & _
"True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert" & _
":Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Filte" & _
"rBar{BackColor:255, 255, 192;}Footer{}Caption{AlignHorz:Center;}Editor{}Normal{B" & _
"ackColor:Control;}Style27{}Style26{}HighlightRow{ForeColor:HighlightText;BackCol" & _
"or:Highlight;}Style1{}OddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage:" & _
"Center;}Style9{}Style8{}Style3{}Style2{}Group{AlignVert:Center;Border:None,,0, 0" & _
", 0, 0;BackColor:ControlDark;}Style10{AlignHorz:Near;}</Data></Styles><Splits><C" & _
"1.Win.C1TrueDBGrid.MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""1" & _
"7"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FetchRowStyles=""True"" Filter" & _
"Bar=""True"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecSelWid" & _
"th=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 321," & _
" 76</ClientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Heading"" me=""Sty" & _
"le10"" /><EditorStyle parent=""Editor"" me=""Style2"" /><EvenRowStyle parent=""EvenRow" & _
""" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style27"" /><FooterStyle p" & _
"arent=""Footer"" me=""Style4"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingS" & _
"tyle parent=""Heading"" me=""Style3"" /><HighLightRowStyle parent=""HighlightRow"" me=" & _
"""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style6"" /><OddRowStyle parent=""O" & _
"ddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /" & _
"><SelectedStyle parent=""Selected"" me=""Style5"" /><Style parent=""Normal"" me=""Style" & _
"1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=""" & _
"Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Foot" & _
"er"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactiv" & _
"e"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /" & _
"><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" " & _
"/><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelecto" & _
"r"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" " & _
"/></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Modi" & _
"fied</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 321, 7" & _
"6</ClientArea></Blob>"
'
'ContextMenu3
'
Me.ContextMenu3.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuinsertidvtm})
'
'mnuinsertidvtm
'
Me.mnuinsertidvtm.Index = 0
Me.mnuinsertidvtm.Text = "&Platzhalter im Dokument einfügen"
'
'grpUsed
'
Me.grpUsed.Controls.AddRange(New System.Windows.Forms.Control() {Me.usedlist})
Me.grpUsed.Location = New System.Drawing.Point(8, 272)
Me.grpUsed.Name = "grpUsed"
Me.grpUsed.Size = New System.Drawing.Size(336, 152)
Me.grpUsed.TabIndex = 2
Me.grpUsed.TabStop = False
Me.grpUsed.Text = "Verwendete Werte"
'
'usedlist
'
Me.usedlist.AllowDelete = True
Me.usedlist.AllowFilter = True
Me.usedlist.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
Me.usedlist.AllowSort = True
Me.usedlist.AlternatingRows = True
Me.usedlist.CaptionHeight = 17
Me.usedlist.CollapseColor = System.Drawing.Color.Black
Me.usedlist.ContextMenu = Me.ContextMenu1
Me.usedlist.Cursor = System.Windows.Forms.Cursors.Default
Me.usedlist.DataChanged = False
Me.usedlist.DeadAreaBackColor = System.Drawing.Color.Empty
Me.usedlist.ExpandColor = System.Drawing.Color.Black
Me.usedlist.FetchRowStyles = True
Me.usedlist.FilterBar = True
Me.usedlist.GroupByCaption = "Drag a column header here to group by that column"
Me.usedlist.Images.Add(CType(resources.GetObject("resource.Images2"), System.Drawing.Bitmap))
Me.usedlist.Location = New System.Drawing.Point(3, 16)
Me.usedlist.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
Me.usedlist.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
Me.usedlist.Name = "usedlist"
Me.usedlist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.usedlist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.usedlist.PreviewInfo.ZoomFactor = 75
Me.usedlist.PrintInfo.ShowOptionsDialog = False
Me.usedlist.RecordSelectorWidth = 16
GridLines3.Color = System.Drawing.Color.DarkGray
GridLines3.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
Me.usedlist.RowDivider = GridLines3
Me.usedlist.RowHeight = 15
Me.usedlist.RowSubDividerColor = System.Drawing.Color.DarkGray
Me.usedlist.ScrollTips = True
Me.usedlist.Size = New System.Drawing.Size(325, 128)
Me.usedlist.TabIndex = 28
Me.usedlist.Text = "C1TrueDBGrid1"
Me.usedlist.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
"r""><Data>Style11{}Style12{}Style13{}Style5{}Style4{}Style7{}Style6{}EvenRow{Back" & _
"Color:White;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Heading{Wrap:" & _
"True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:" & _
"Control;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Filte" & _
"rBar{BackColor:255, 255, 192;}OddRow{BackColor:224, 224, 224;}Footer{}Caption{Al" & _
"ignHorz:Center;}Style27{}Normal{BackColor:Control;}Style26{}HighlightRow{ForeCol" & _
"or:HighlightText;BackColor:Highlight;}Style10{AlignHorz:Near;}Editor{}RecordSele" & _
"ctor{AlignImage:Center;}Style9{}Style8{}Style3{}Style2{}Group{BackColor:ControlD" & _
"ark;Border:None,,0, 0, 0, 0;AlignVert:Center;}Style1{}</Data></Styles><Splits><C" & _
"1.Win.C1TrueDBGrid.MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""1" & _
"7"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FetchRowStyles=""True"" Filter" & _
"Bar=""True"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecSelWid" & _
"th=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 321," & _
" 124</ClientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Heading"" me=""St" & _
"yle10"" /><EditorStyle parent=""Editor"" me=""Style2"" /><EvenRowStyle parent=""EvenRo" & _
"w"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style27"" /><FooterStyle " & _
"parent=""Footer"" me=""Style4"" /><GroupStyle parent=""Group"" me=""Style12"" /><Heading" & _
"Style parent=""Heading"" me=""Style3"" /><HighLightRowStyle parent=""HighlightRow"" me" & _
"=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style6"" /><OddRowStyle parent=""" & _
"OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" " & _
"/><SelectedStyle parent=""Selected"" me=""Style5"" /><Style parent=""Normal"" me=""Styl" & _
"e1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=" & _
"""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Foo" & _
"ter"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inacti" & _
"ve"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" " & _
"/><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow""" & _
" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelect" & _
"or"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group""" & _
" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Mod" & _
"ified</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 321, " & _
"124</ClientArea></Blob>"
'
'ucedit
'
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.grpUsed, Me.GrpIDV, Me.grpStandard})
Me.Name = "ucedit"
Me.Size = New System.Drawing.Size(352, 432)
Me.grpStandard.ResumeLayout(False)
CType(Me.standardlist, System.ComponentModel.ISupportInitialize).EndInit()
Me.GrpIDV.ResumeLayout(False)
CType(Me.idvwerteList, System.ComponentModel.ISupportInitialize).EndInit()
Me.grpUsed.ResumeLayout(False)
CType(Me.usedlist, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
#Region "Deklarationen"
Dim StdFelder As New DataTable()
Dim IDVFelder As New DataTable()
Dim USEDFelder As New DataTable()
Public Event OnGetStandardvorlagenfelder(ByRef list As DataTable)
Public Event OnGetIDVFelder(ByRef list As DataTable)
Public Event OnGetUsedFelder(ByRef list As DataTable)
Public Event OnInsert_TM(ByVal TMName As String, ByVal isfield As Boolean)
Public Event OnGoto_TM(ByVal TMName As String, ByVal isfield As Boolean)
Public Event OnDelete_TM(ByVal TMName As String, ByVal isfield As Boolean)
#End Region
Private Sub mnustandardpositionieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnustandardpositionieren.Click
If Me.usedlist.Columns("Feldname").Text <> "" Then
RaiseEvent OnGoto_TM(Me.usedlist.Columns("feldname").Text, True)
Exit Sub
End If
If Me.usedlist.Columns("beginntextmarke").Text <> "" Then
RaiseEvent OnGoto_TM(Me.usedlist.Columns("beginntextmarke").Text, False)
Exit Sub
End If
If Me.usedlist.Columns("endetextmarke").Text <> "" Then
RaiseEvent OnGoto_TM(Me.usedlist.Columns("endetextmarke").Text, False)
End If
End Sub
Private Sub ucedit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RaiseEvent OnGetStandardvorlagenfelder(Me.StdFelder)
Me.standardlist.DataSource = StdFelder
Me.standardlist.DataMember = StdFelder.TableName
Dim i As Integer
DivFnkt.SpaltenTitel_Aktualisieren(Me.standardlist, StdFelder, "edex_sb_vorlagenfelder")
'With Me.standardlist
' For i = 0 To .Splits(0).DisplayColumns.Count - 1
' .Splits(0).DisplayColumns(i).Visible = False
' Next
' .Splits(0).DisplayColumns(0).Visible = True
' .Splits(0).DisplayColumns(0).Width = Me.standardlist.Width * 0.1
' .Splits(0).DisplayColumns(1).Visible = True
' .Splits(0).DisplayColumns(1).Width = Me.standardlist.Width * 0.8
'End With
RaiseEvent OnGetUsedFelder(Me.USEDFelder)
Me.usedlist.DataSource = Me.USEDFelder
Me.usedlist.DataMember = Me.USEDFelder.TableName
DivFnkt.SpaltenTitel_Aktualisieren(Me.usedlist, Me.USEDFelder, "edex_sb_vorlagenfelder")
'With Me.usedlist
' For i = 0 To .Splits(0).DisplayColumns.Count - 1
' .Splits(0).DisplayColumns(i).Visible = False
' Next
' .Splits(0).DisplayColumns(0).Visible = True
' .Splits(0).DisplayColumns(0).Width = Me.usedlist.Width * 0.1
' .Splits(0).DisplayColumns(1).Visible = True
' .Splits(0).DisplayColumns(1).Width = Me.usedlist.Width * 0.8
'End With
RaiseEvent OnGetIDVFelder(Me.IDVFelder)
Me.idvwerteList.DataSource = Me.IDVFelder
Me.idvwerteList.DataMember = Me.IDVFelder.TableName
DivFnkt.SpaltenTitel_Aktualisieren(Me.idvwerteList, Me.IDVFelder, "edex_sb_verk")
'With Me.idvwerteList
' For i = 0 To .Splits(0).DisplayColumns.Count - 1
' .Splits(0).DisplayColumns(i).Visible = False
' Next
' .Splits(0).DisplayColumns(0).Visible = True
' .Splits(0).DisplayColumns(0).Width = Me.usedlist.Width * 0.9
' .Splits(0).DisplayColumns(1).Visible = False
'End With
End Sub
Private Sub mnuinsertStdTM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuinsertStdTM.Click
Dim i As Integer
Dim s As String
Dim sbtmindex As Integer = 0
For i = 0 To Me.USEDFelder.Rows.Count - 1
Try
If Microsoft.VisualBasic.Left(Me.USEDFelder.Rows(i).Item("beginntextmarke"), 4) = "TMSB" Then
sbtmindex = sbtmindex + 1
End If
Catch
End Try
Next
s = "TMSB_" + sbtmindex.ToString
Dim row As DataRow
row = Me.USEDFelder.NewRow
row.Item(0) = Me.standardlist.Columns(0).Text
row.Item(1) = Me.standardlist.Columns(1).Text
row.Item(2) = ""
row.Item(3) = s
row.Item(4) = ""
Me.USEDFelder.Rows.Add(row)
RaiseEvent OnInsert_TM(s, False)
End Sub
Private Sub mnuinsertidvtm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuinsertidvtm.Click
Dim i As Integer
Dim s As String
Dim sbtmindex As Integer = 0
For i = 0 To Me.USEDFelder.Rows.Count - 1
Try
If Microsoft.VisualBasic.Left(Me.USEDFelder.Rows(i).Item("beginntextmarke"), 5) = "TMISB" Then
sbtmindex = sbtmindex + 1
End If
Catch
End Try
Next
s = "TMISB_09_" + Me.idvwerteList.Columns(0).Text + "_09_" + sbtmindex.ToString
Dim row As DataRow
row = Me.USEDFelder.NewRow
row.Item(0) = 0
row.Item(1) = Me.idvwerteList.Columns(0).Text
row.Item(2) = ""
row.Item(3) = s
row.Item(4) = ""
Me.USEDFelder.Rows.Add(row)
RaiseEvent OnInsert_TM(s, False)
End Sub
Private Sub mnudelplatzhalter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnudelplatzhalter.Click
If Me.usedlist.Columns("feldname").Text <> "" Then
RaiseEvent OnGoto_TM(Me.usedlist.Columns("feldname").Text, True)
RaiseEvent OnDelete_TM(Me.usedlist.Columns("Feldname").Text, True)
Else
If Me.usedlist.Columns("Beginntextmarke").Text <> "" Then
RaiseEvent OnGoto_TM(Me.usedlist.Columns("Beginntextmarke").Text, False)
RaiseEvent OnDelete_TM(Me.usedlist.Columns("Beginntextmarke").Text, False)
End If
If Me.usedlist.Columns("EndeTextmarke").Text <> "" Then
RaiseEvent OnGoto_TM(Me.usedlist.Columns("Endetextmarke").Text, False)
RaiseEvent OnDelete_TM(Me.usedlist.Columns("endetextmarke").Text, False)
End If
End If
Me.usedlist.Delete()
Me.usedlist.UpdateData()
End Sub
End Class

View File

@@ -0,0 +1,174 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
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">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</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.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:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<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" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</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>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="grpUsed.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="usedlist.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="resource.Images" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
RK5CYII=
</value>
</data>
<data name="ContextMenu1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</data>
<data name="ContextMenu1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="mnuposdoc.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="mnulink1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GrpIDV.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="idvwerteList.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="resource.Images1" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
RK5CYII=
</value>
</data>
<data name="ContextMenu2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>140, 17</value>
</data>
<data name="ContextMenu2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="mnulink2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="verklist.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="resource.Images2" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
RK5CYII=
</value>
</data>
<data name="ContextMenu3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>263, 17</value>
</data>
<data name="ContextMenu3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="mnuDelVerk.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="$this.Name">
<value>ucnoedit</value>
</data>
</root>

View File

@@ -0,0 +1,483 @@
Public Class ucnoedit
Inherits System.Windows.Forms.UserControl
#Region " Vom Windows Form Designer generierter Code "
Public Sub New()
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
'UserControl überschreibt den Löschvorgang zum Bereinigen der Komponentenliste.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
Friend WithEvents grpUsed As System.Windows.Forms.GroupBox
Friend WithEvents usedlist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents GrpIDV As System.Windows.Forms.GroupBox
Friend WithEvents idvwerteList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
Friend WithEvents mnuposdoc As System.Windows.Forms.MenuItem
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents verklist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents mnulink1 As System.Windows.Forms.MenuItem
Friend WithEvents ContextMenu2 As System.Windows.Forms.ContextMenu
Friend WithEvents mnulink2 As System.Windows.Forms.MenuItem
Friend WithEvents ContextMenu3 As System.Windows.Forms.ContextMenu
Friend WithEvents mnuDelVerk As System.Windows.Forms.MenuItem
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(ucnoedit))
Dim GridLines1 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
Dim GridLines2 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
Dim GridLines3 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
Me.grpUsed = New System.Windows.Forms.GroupBox()
Me.usedlist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ContextMenu1 = New System.Windows.Forms.ContextMenu()
Me.mnuposdoc = New System.Windows.Forms.MenuItem()
Me.mnulink1 = New System.Windows.Forms.MenuItem()
Me.GrpIDV = New System.Windows.Forms.GroupBox()
Me.idvwerteList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ContextMenu2 = New System.Windows.Forms.ContextMenu()
Me.mnulink2 = New System.Windows.Forms.MenuItem()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.verklist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ContextMenu3 = New System.Windows.Forms.ContextMenu()
Me.mnuDelVerk = New System.Windows.Forms.MenuItem()
Me.grpUsed.SuspendLayout()
CType(Me.usedlist, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GrpIDV.SuspendLayout()
CType(Me.idvwerteList, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
CType(Me.verklist, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'grpUsed
'
Me.grpUsed.Controls.AddRange(New System.Windows.Forms.Control() {Me.usedlist})
Me.grpUsed.Location = New System.Drawing.Point(8, 8)
Me.grpUsed.Name = "grpUsed"
Me.grpUsed.Size = New System.Drawing.Size(336, 152)
Me.grpUsed.TabIndex = 3
Me.grpUsed.TabStop = False
Me.grpUsed.Text = "Platzhalter im Dokument"
'
'usedlist
'
Me.usedlist.AllowDelete = True
Me.usedlist.AllowFilter = True
Me.usedlist.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
Me.usedlist.AllowSort = True
Me.usedlist.AlternatingRows = True
Me.usedlist.CaptionHeight = 17
Me.usedlist.CollapseColor = System.Drawing.Color.Black
Me.usedlist.ContextMenu = Me.ContextMenu1
Me.usedlist.Cursor = System.Windows.Forms.Cursors.Default
Me.usedlist.DataChanged = False
Me.usedlist.DeadAreaBackColor = System.Drawing.Color.Empty
Me.usedlist.ExpandColor = System.Drawing.Color.Black
Me.usedlist.FetchRowStyles = True
Me.usedlist.FilterBar = True
Me.usedlist.GroupByCaption = "Drag a column header here to group by that column"
Me.usedlist.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
Me.usedlist.Location = New System.Drawing.Point(3, 16)
Me.usedlist.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
Me.usedlist.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
Me.usedlist.Name = "usedlist"
Me.usedlist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.usedlist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.usedlist.PreviewInfo.ZoomFactor = 75
Me.usedlist.PrintInfo.ShowOptionsDialog = False
Me.usedlist.RecordSelectorWidth = 16
GridLines1.Color = System.Drawing.Color.DarkGray
GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
Me.usedlist.RowDivider = GridLines1
Me.usedlist.RowHeight = 15
Me.usedlist.RowSubDividerColor = System.Drawing.Color.DarkGray
Me.usedlist.ScrollTips = True
Me.usedlist.Size = New System.Drawing.Size(325, 128)
Me.usedlist.TabIndex = 28
Me.usedlist.Text = "C1TrueDBGrid1"
Me.usedlist.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
"r""><Data>Style11{}Style12{}Style13{}Style5{}Style4{}Style7{}Style6{}EvenRow{Back" & _
"Color:White;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Heading{Wrap:" & _
"True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:" & _
"Control;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Filte" & _
"rBar{BackColor:255, 255, 192;}OddRow{BackColor:224, 224, 224;}Footer{}Caption{Al" & _
"ignHorz:Center;}Style27{}Normal{BackColor:Control;}Style26{}HighlightRow{ForeCol" & _
"or:HighlightText;BackColor:Highlight;}Style10{AlignHorz:Near;}Editor{}RecordSele" & _
"ctor{AlignImage:Center;}Style9{}Style8{}Style3{}Style2{}Group{BackColor:ControlD" & _
"ark;Border:None,,0, 0, 0, 0;AlignVert:Center;}Style1{}</Data></Styles><Splits><C" & _
"1.Win.C1TrueDBGrid.MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""1" & _
"7"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FetchRowStyles=""True"" Filter" & _
"Bar=""True"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecSelWid" & _
"th=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 321," & _
" 124</ClientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Heading"" me=""St" & _
"yle10"" /><EditorStyle parent=""Editor"" me=""Style2"" /><EvenRowStyle parent=""EvenRo" & _
"w"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style27"" /><FooterStyle " & _
"parent=""Footer"" me=""Style4"" /><GroupStyle parent=""Group"" me=""Style12"" /><Heading" & _
"Style parent=""Heading"" me=""Style3"" /><HighLightRowStyle parent=""HighlightRow"" me" & _
"=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style6"" /><OddRowStyle parent=""" & _
"OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" " & _
"/><SelectedStyle parent=""Selected"" me=""Style5"" /><Style parent=""Normal"" me=""Styl" & _
"e1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=" & _
"""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Foo" & _
"ter"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inacti" & _
"ve"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" " & _
"/><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow""" & _
" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelect" & _
"or"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group""" & _
" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Mod" & _
"ified</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 321, " & _
"124</ClientArea></Blob>"
'
'ContextMenu1
'
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuposdoc, Me.mnulink1})
'
'mnuposdoc
'
Me.mnuposdoc.Index = 0
Me.mnuposdoc.Text = "Cursor &im Dokument positionieren"
'
'mnulink1
'
Me.mnulink1.Index = 1
Me.mnulink1.Text = "&Platzhalter mit dok. spez. Wert verknüpfen"
'
'GrpIDV
'
Me.GrpIDV.Controls.AddRange(New System.Windows.Forms.Control() {Me.idvwerteList})
Me.GrpIDV.Location = New System.Drawing.Point(8, 168)
Me.GrpIDV.Name = "GrpIDV"
Me.GrpIDV.Size = New System.Drawing.Size(336, 104)
Me.GrpIDV.TabIndex = 4
Me.GrpIDV.TabStop = False
Me.GrpIDV.Text = "Verfügbare dokumentspezifische Werte"
'
'idvwerteList
'
Me.idvwerteList.AllowDelete = True
Me.idvwerteList.AllowFilter = True
Me.idvwerteList.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
Me.idvwerteList.AllowSort = True
Me.idvwerteList.AlternatingRows = True
Me.idvwerteList.CaptionHeight = 17
Me.idvwerteList.CollapseColor = System.Drawing.Color.Black
Me.idvwerteList.ContextMenu = Me.ContextMenu2
Me.idvwerteList.Cursor = System.Windows.Forms.Cursors.Default
Me.idvwerteList.DataChanged = False
Me.idvwerteList.DeadAreaBackColor = System.Drawing.Color.Empty
Me.idvwerteList.ExpandColor = System.Drawing.Color.Black
Me.idvwerteList.FetchRowStyles = True
Me.idvwerteList.FilterBar = True
Me.idvwerteList.GroupByCaption = "Drag a column header here to group by that column"
Me.idvwerteList.Images.Add(CType(resources.GetObject("resource.Images1"), System.Drawing.Bitmap))
Me.idvwerteList.Location = New System.Drawing.Point(3, 16)
Me.idvwerteList.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
Me.idvwerteList.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
Me.idvwerteList.Name = "idvwerteList"
Me.idvwerteList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.idvwerteList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.idvwerteList.PreviewInfo.ZoomFactor = 75
Me.idvwerteList.PrintInfo.ShowOptionsDialog = False
Me.idvwerteList.RecordSelectorWidth = 16
GridLines2.Color = System.Drawing.Color.DarkGray
GridLines2.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
Me.idvwerteList.RowDivider = GridLines2
Me.idvwerteList.RowHeight = 15
Me.idvwerteList.RowSubDividerColor = System.Drawing.Color.DarkGray
Me.idvwerteList.ScrollTips = True
Me.idvwerteList.Size = New System.Drawing.Size(325, 80)
Me.idvwerteList.TabIndex = 28
Me.idvwerteList.Text = "C1TrueDBGrid1"
Me.idvwerteList.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
"r""><Data>Style11{}Style12{}Style13{}Style5{}Style4{}Style7{}Style6{}EvenRow{Back" & _
"Color:White;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Heading{Wrap:" & _
"True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert" & _
":Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Filte" & _
"rBar{BackColor:255, 255, 192;}Footer{}Caption{AlignHorz:Center;}Editor{}Normal{B" & _
"ackColor:Control;}Style27{}Style26{}HighlightRow{ForeColor:HighlightText;BackCol" & _
"or:Highlight;}Style1{}OddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage:" & _
"Center;}Style9{}Style8{}Style3{}Style2{}Group{AlignVert:Center;Border:None,,0, 0" & _
", 0, 0;BackColor:ControlDark;}Style10{AlignHorz:Near;}</Data></Styles><Splits><C" & _
"1.Win.C1TrueDBGrid.MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""1" & _
"7"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FetchRowStyles=""True"" Filter" & _
"Bar=""True"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecSelWid" & _
"th=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 321," & _
" 76</ClientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Heading"" me=""Sty" & _
"le10"" /><EditorStyle parent=""Editor"" me=""Style2"" /><EvenRowStyle parent=""EvenRow" & _
""" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style27"" /><FooterStyle p" & _
"arent=""Footer"" me=""Style4"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingS" & _
"tyle parent=""Heading"" me=""Style3"" /><HighLightRowStyle parent=""HighlightRow"" me=" & _
"""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style6"" /><OddRowStyle parent=""O" & _
"ddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /" & _
"><SelectedStyle parent=""Selected"" me=""Style5"" /><Style parent=""Normal"" me=""Style" & _
"1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=""" & _
"Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Foot" & _
"er"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactiv" & _
"e"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /" & _
"><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" " & _
"/><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelecto" & _
"r"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" " & _
"/></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Modi" & _
"fied</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 321, 7" & _
"6</ClientArea></Blob>"
'
'ContextMenu2
'
Me.ContextMenu2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnulink2})
'
'mnulink2
'
Me.mnulink2.Index = 0
Me.mnulink2.Text = "&Platzhalter mit dok. spez. Wert verknüpfen"
'
'GroupBox1
'
Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.verklist})
Me.GroupBox1.Location = New System.Drawing.Point(8, 280)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(336, 144)
Me.GroupBox1.TabIndex = 5
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Zugeordnete, dokumentspezifische Werte"
'
'verklist
'
Me.verklist.AllowDelete = True
Me.verklist.AllowFilter = True
Me.verklist.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
Me.verklist.AllowSort = True
Me.verklist.AlternatingRows = True
Me.verklist.CaptionHeight = 17
Me.verklist.CollapseColor = System.Drawing.Color.Black
Me.verklist.ContextMenu = Me.ContextMenu3
Me.verklist.Cursor = System.Windows.Forms.Cursors.Default
Me.verklist.DataChanged = False
Me.verklist.DeadAreaBackColor = System.Drawing.Color.Empty
Me.verklist.ExpandColor = System.Drawing.Color.Black
Me.verklist.FetchRowStyles = True
Me.verklist.FilterBar = True
Me.verklist.GroupByCaption = "Drag a column header here to group by that column"
Me.verklist.Images.Add(CType(resources.GetObject("resource.Images2"), System.Drawing.Bitmap))
Me.verklist.Location = New System.Drawing.Point(3, 16)
Me.verklist.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
Me.verklist.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
Me.verklist.Name = "verklist"
Me.verklist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.verklist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.verklist.PreviewInfo.ZoomFactor = 75
Me.verklist.PrintInfo.ShowOptionsDialog = False
Me.verklist.RecordSelectorWidth = 16
GridLines3.Color = System.Drawing.Color.DarkGray
GridLines3.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
Me.verklist.RowDivider = GridLines3
Me.verklist.RowHeight = 15
Me.verklist.RowSubDividerColor = System.Drawing.Color.DarkGray
Me.verklist.ScrollTips = True
Me.verklist.Size = New System.Drawing.Size(325, 120)
Me.verklist.TabIndex = 28
Me.verklist.Text = "C1TrueDBGrid1"
Me.verklist.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
"r""><Data>Style11{}Style12{}Style13{}Style5{}Style4{}Style7{}Style6{}EvenRow{Back" & _
"Color:White;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Heading{Wrap:" & _
"True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:" & _
"Control;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Filte" & _
"rBar{BackColor:255, 255, 192;}OddRow{BackColor:224, 224, 224;}Footer{}Caption{Al" & _
"ignHorz:Center;}Style27{}Normal{BackColor:Control;}Style26{}HighlightRow{ForeCol" & _
"or:HighlightText;BackColor:Highlight;}Style10{AlignHorz:Near;}Editor{}RecordSele" & _
"ctor{AlignImage:Center;}Style9{}Style8{}Style3{}Style2{}Group{BackColor:ControlD" & _
"ark;Border:None,,0, 0, 0, 0;AlignVert:Center;}Style1{}</Data></Styles><Splits><C" & _
"1.Win.C1TrueDBGrid.MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""1" & _
"7"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FetchRowStyles=""True"" Filter" & _
"Bar=""True"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecSelWid" & _
"th=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 321," & _
" 116</ClientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Heading"" me=""St" & _
"yle10"" /><EditorStyle parent=""Editor"" me=""Style2"" /><EvenRowStyle parent=""EvenRo" & _
"w"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style27"" /><FooterStyle " & _
"parent=""Footer"" me=""Style4"" /><GroupStyle parent=""Group"" me=""Style12"" /><Heading" & _
"Style parent=""Heading"" me=""Style3"" /><HighLightRowStyle parent=""HighlightRow"" me" & _
"=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style6"" /><OddRowStyle parent=""" & _
"OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" " & _
"/><SelectedStyle parent=""Selected"" me=""Style5"" /><Style parent=""Normal"" me=""Styl" & _
"e1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=" & _
"""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Foo" & _
"ter"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inacti" & _
"ve"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" " & _
"/><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow""" & _
" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelect" & _
"or"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group""" & _
" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Mod" & _
"ified</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 321, " & _
"116</ClientArea></Blob>"
'
'ContextMenu3
'
Me.ContextMenu3.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuDelVerk})
'
'mnuDelVerk
'
Me.mnuDelVerk.Index = 0
Me.mnuDelVerk.Text = "&Verknüpfung löschen"
'
'ucnoedit
'
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox1, Me.GrpIDV, Me.grpUsed})
Me.Name = "ucnoedit"
Me.Size = New System.Drawing.Size(352, 432)
Me.grpUsed.ResumeLayout(False)
CType(Me.usedlist, System.ComponentModel.ISupportInitialize).EndInit()
Me.GrpIDV.ResumeLayout(False)
CType(Me.idvwerteList, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
CType(Me.verklist, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
#Region "Deklarationen"
Dim StdFelder As New DataTable()
Dim IDVFelder As New DataTable()
Dim USEDFelder As New DataTable()
Dim VerkFelder As New DataTable()
Public Event OnGetStandardvorlagenfelder(ByRef list As DataTable)
Public Event OnGetIDVFelder(ByRef list As DataTable)
Public Event OnGetUsedFelder(ByRef list As DataTable)
Public Event OnGetVerknuepfteFelder(ByRef list As DataTable)
Public Event OnInsert_TM(ByVal TMName As String, ByVal isfield As Boolean)
Public Event OnGoto_TM(ByVal TMName As String, ByVal isfield As Boolean)
Public Event OnDelete_TM(ByVal TMName As String, ByVal isfield As Boolean)
#End Region
Private Sub ucnoedit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Integer
RaiseEvent OnGetUsedFelder(Me.USEDFelder)
Me.usedlist.DataSource = Me.USEDFelder
Me.usedlist.DataMember = Me.USEDFelder.TableName
DivFnkt.SpaltenTitel_Aktualisieren(Me.usedlist, Me.USEDFelder, "edex_sb_vorlagenfelder")
'With Me.usedlist
' For i = 0 To .Splits(0).DisplayColumns.Count - 1
' .Splits(0).DisplayColumns(i).Visible = False
' Next
' .Splits(0).DisplayColumns(0).Visible = True
' .Splits(0).DisplayColumns(0).Width = Me.usedlist.Width * 0.1
' .Splits(0).DisplayColumns(1).Visible = True
' .Splits(0).DisplayColumns(1).Width = Me.usedlist.Width * 0.8
'End With
RaiseEvent OnGetIDVFelder(Me.IDVFelder)
Me.idvwerteList.DataSource = Me.IDVFelder
Me.idvwerteList.DataMember = Me.IDVFelder.TableName
DivFnkt.SpaltenTitel_Aktualisieren(Me.idvwerteList, Me.IDVFelder, "edex_sb_verk")
'With Me.idvwerteList
' For i = 0 To .Splits(0).DisplayColumns.Count - 1
' .Splits(0).DisplayColumns(i).Visible = False
' Next
' .Splits(0).DisplayColumns(0).Visible = True
' .Splits(0).DisplayColumns(0).Width = Me.usedlist.Width * 0.9
' .Splits(0).DisplayColumns(1).Visible = False
'End With
RaiseEvent OnGetVerknuepfteFelder(Me.VerkFelder)
Me.verklist.DataSource = Me.VerkFelder
Me.verklist.DataMember = Me.VerkFelder.TableName
DivFnkt.SpaltenTitel_Aktualisieren(Me.verklist, Me.VerkFelder, "edex_sb_verk")
'With Me.verklist
' For i = 0 To .Splits(0).DisplayColumns.Count - 1
' .Splits(0).DisplayColumns(i).Visible = False
' Next
' .Splits(0).DisplayColumns(0).Visible = True
' .Splits(0).DisplayColumns(0).Width = Me.usedlist.Width * 0.45
' .Splits(0).DisplayColumns(1).Visible = True
' .Splits(0).DisplayColumns(1).Width = Me.usedlist.Width * 0.45
'End With
End Sub
Private Sub mnuposdoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuposdoc.Click
If Me.usedlist.Columns("Feldname").Text <> "" Then
RaiseEvent OnGoto_TM(Me.usedlist.Columns("feldname").Text, True)
Exit Sub
End If
If Me.usedlist.Columns("beginntextmarke").Text <> "" Then
RaiseEvent OnGoto_TM(Me.usedlist.Columns("beginntextmarke").Text, False)
Exit Sub
End If
If Me.usedlist.Columns("endetextmarke").Text <> "" Then
RaiseEvent OnGoto_TM(Me.usedlist.Columns("endetextmarke").Text, False)
End If
End Sub
Private Sub ContextMenu1_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu1.Popup, ContextMenu2.Popup
If Me.USEDFelder.Rows.Count = 0 Then
Me.mnuposdoc.Enabled = False
Me.mnulink1.Enabled = False
Me.mnulink2.Enabled = False
Else
Me.mnuposdoc.Enabled = True
Me.mnulink1.Enabled = True
Me.mnulink2.Enabled = True
End If
If Me.IDVFelder.Rows.Count = 0 Then
Me.mnulink1.Enabled = False
Me.mnulink2.Enabled = False
Else
Me.mnulink1.Enabled = True
Me.mnulink2.Enabled = True
End If
End Sub
Private Sub mnulink1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnulink1.Click, mnulink2.Click
Dim row As DataRow
row = Me.VerkFelder.NewRow
row.Item(0) = Me.idvwerteList.Columns(0).Text
row.Item(1) = Me.usedlist.Columns(1).Text
row.Item(2) = Me.usedlist.Columns(0).Text
Me.VerkFelder.Rows.Add(row)
End Sub
Private Sub ContextMenu3_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu3.Popup
If Me.VerkFelder.Rows.Count = 0 Then
Me.mnuDelVerk.Enabled = False
Else
Me.mnuDelVerk.Enabled = True
End If
End Sub
Private Sub mnuDelVerk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuDelVerk.Click
Me.verklist.Delete()
Me.verklist.UpdateData()
End Sub
End Class

View File

@@ -0,0 +1,363 @@
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports System.IO
Public Class clsEmpfaengerdata
#Region "Deklarationen"
Dim dsempfaenger As DataSet
Dim Serienbriefnr As Integer
Dim reservedwords As Collection()
#End Region
#Region "öffentliche Methoden"
Public Sub New(ByRef DsEmpfaenger As DataSet, ByVal Serienbriefnr As Integer)
Me.dsempfaenger = DsEmpfaenger
Me.Serienbriefnr = Serienbriefnr
End Sub
Public Function Get_Empfaenger()
Load_Empfaenger()
End Function
Public Function Vorlagendaten_aufbreiten() As DataTable
Return Datentabelle_Generieren()
End Function
Private Function hascoltodelete(ByRef edata As DataTable, ByVal Prefix As String) As Boolean
Dim i As Integer
Dim s As String = ""
For i = 0 To edata.Columns.Count - 1
If Left(edata.Columns(i).ColumnName, 2) = Prefix Then
s = edata.Columns(i).ColumnName
Exit For
End If
Next
If s <> "" Then
edata.Columns.Remove(s)
Return True
End If
Return False
End Function
#End Region
#Region "Datentabelle"
Private Function Datentabelle_Generieren() As DataTable
Dim dt As New DataTable()
Dim dn As DataRow
Dim i As Integer
Dim aPrimaryKey(0) As DataColumn
Dim oDatacolumn As DataColumn
Me.dsempfaenger.Tables(0).Columns.Add("IntEintragnr")
For i = 0 To Me.dsempfaenger.Tables(0).Rows.Count - 1
Me.dsempfaenger.Tables(0).Rows(i).Item("IntEintragNr") = i
Next
oDatacolumn = Me.dsempfaenger.Tables(0).Columns("IntEintragnr")
aPrimaryKey(0) = oDatacolumn
Me.dsempfaenger.Tables(0).PrimaryKey = aPrimaryKey
dt.TableName = "EDKB09_" + Me.Serienbriefnr.ToString
For i = 0 To Me.dsempfaenger.Tables(0).Columns.Count - 1
dt.Columns.Add(Me.dsempfaenger.Tables(0).Columns(i).ColumnName)
Next
Dim dv As DataRow()
Dim dr As DataRow
dv = Me.dsempfaenger.Tables(0).Select("Dokumentid='' or dokumentid<>''")
For Each dr In dv
dt.ImportRow(dr)
Next
' dt = Me.dsempfaenger.Tables(0).Copy
'Dim dc As DataColumn
'For Each dc In dt.Columns
' dc.ColumnName = dc.ColumnName.Replace(" ", "_")
' dc.ColumnName = dc.ColumnName.Replace(" ", "_")
' dc.ColumnName = dc.ColumnName.Replace("ö", "oe")
' dc.ColumnName = dc.ColumnName.Replace("Ö", "OE")
' dc.ColumnName = dc.ColumnName.Replace("ü", "ue")
' dc.ColumnName = dc.ColumnName.Replace("Ü", "UE")
' dc.ColumnName = dc.ColumnName.Replace("ä", "ae")
' dc.ColumnName = dc.ColumnName.Replace("Ä", "AE")
' dc.ColumnName = dc.ColumnName.Replace("-", "_")
' dc.ColumnName = dc.ColumnName.Replace("/", "_")
' dc.ColumnName = dc.ColumnName.Replace("\", "_")
' dc.ColumnName = dc.ColumnName.Replace(".", "_")
' dc.ColumnName = dc.ColumnName.Replace(":", "_")
' dc.ColumnName = dc.ColumnName.Replace(",", "_")
' Select Case Left(dc.ColumnName, 1)
' Case "1", "2", "3", "4", "5", "6", "7", "8", "9", "0"
' dc.ColumnName = "N" + dc.ColumnName
' End Select
' If resword(dc.ColumnName) Then
' dc.ColumnName = dc.ColumnName + "_"
' End If
'Next
Dim tmkopfzeile As Boolean = False
Me.dsempfaenger.Tables("UsedFelder").AcceptChanges()
Try
For i = 0 To Me.dsempfaenger.Tables("UsedFelder").Rows.Count - 1
If Me.dsempfaenger.Tables("UsedFelder").Rows(i).Item("Nr") = 33 Then
tmkopfzeile = True
End If
Next
Catch ex As Exception
Dim a
a = 1
End Try
If tmkopfzeile = False Then
dn = Me.dsempfaenger.Tables("UsedFelder").NewRow
dn.Item(0) = 33
dn.Item(1) = "TGEDKCompanyBBEB99"
dn.Item(2) = ""
dn.Item(3) = "TGEDKCompanyBBEB99"
dn.Item(4) = ""
Me.dsempfaenger.Tables("UsedFelder").Rows.Add(dn)
End If
Me.dsempfaenger.Tables("UsedFelder").Columns.Add("TempFeldname")
Me.dsempfaenger.Tables("UsedFelder").Columns.Add("Fnkt")
Dim s As String
For i = 0 To Me.dsempfaenger.Tables("UsedFelder").Rows.Count - 1
If Me.dsempfaenger.Tables("UsedFelder").Rows(i).Item("Nr") <> 0 Then
s = "F_09_" + Me.dsempfaenger.Tables("UsedFelder").Rows(i).Item("Nr").ToString
Me.dsempfaenger.Tables("UsedFelder").Rows(i).Item("fnkt") = s
s = Insert_DT_Column(dt, s)
Me.dsempfaenger.Tables("UsedFelder").Rows(i).Item("Tempfeldname") = s
Else
s = "I_09_" + Me.dsempfaenger.Tables("UsedFelder").Rows(i).Item("Beginntextmarke")
Me.dsempfaenger.Tables("UsedFelder").Rows(i).Item("fnkt") = s
s = Insert_DT_Column(dt, s)
Me.dsempfaenger.Tables("UsedFelder").Rows(i).Item("Tempfeldname") = s
End If
Next
Create_SQL_Server_Table(dt)
Save_Data_To_Temptable(dt)
Return Fill_And_Get_Data()
End Function
'GAGA
Private Function Insert_DT_Column(ByRef dt As DataTable, ByVal colname As String) As String
Dim i As Integer = 0
Dim dc As DataColumn
For Each dc In dt.Columns
If UCase(Microsoft.VisualBasic.Left(dc.ColumnName, Len(colname))) = UCase(colname) Then
i = i + 1
End If
Next
If i > 0 Then colname = colname + "_" + i.ToString
dt.Columns.Add(colname)
Return colname
End Function
#End Region
#Region "Datenzugriffe"
Dim Dokid As Integer
Private Function Fill_And_Get_Data() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim i As Integer
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.CommandText = "dbo.sp_edex_sb_fill_sbdata"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = Globals.conn.scoDBConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@serienbriefnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Serienbriefnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ROWCOUNT", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bedr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
scmCmdToExecute.Parameters.Add(New SqlParameter("@preview", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
sdaAdapter.Fill(dtToReturn)
Dokid = scmCmdToExecute.Parameters("@dokumentid").Value
For i = 0 To dtToReturn.Rows.Count - 1
dtToReturn.Rows(i).Item("Dokumentid") = Generate_Key(Dokid)
Dokid = Dokid + 1
If scmCmdToExecute.Parameters("@bedr").Value = 1 Then
dtToReturn.Rows(i).Item("dokumentidbdr") = Generate_Key(Dokid)
Dokid = Dokid + 1
End If
Next
Return dtToReturn
Catch ex As Exception
Throw New Exception("sp_check_dokumentreaktivierung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Private Sub Create_SQL_Server_Table(ByRef dt As DataTable)
Dim s As String
Dim s1 As String
Dim i As Integer
'dt.Columns.Add("NRPAR00")
'dt.Columns.Add("IntEintragNr")
s1 = "Drop Table DBO.EDKB09_" + Me.Serienbriefnr.ToString
's = "Create Table EDKB09_" + Me.Serienbriefnr.ToString + "( NRPAR00 int, intEintragNr int,"
s = "Create Table DBO.EDKB09_" + Me.Serienbriefnr.ToString + "( NRPAR00 varchar(11),"
For i = 1 To dt.Columns.Count - 1
s = s + dt.Columns(i).ColumnName + " varchar(255),"
Next
s = Left(s, Len(s) - 1)
s = s + ")"
Dim conn As New SqlConnection()
conn.ConnectionString = Globals.sConnectionString
conn.Open()
Dim sqlcmd0 As New SqlCommand(s1, conn)
Try
sqlcmd0.ExecuteNonQuery()
Catch
End Try
Dim sqlcmd As New SqlCommand(s, conn)
sqlcmd.ExecuteNonQuery()
conn.Close()
End Sub
Private Sub Save_Data_To_Temptable(ByRef dt As DataTable)
Dim tdt As New DataTable("EDKB09_" + Me.Serienbriefnr.ToString)
Dim tdr As DataRow
Dim i As Integer
Dim ii As Integer
tdt = dt.Copy
tdt.Columns(0).ColumnName = "NRPAR00"
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("Select * from EDKB09_" + Me.Serienbriefnr.ToString, connection)
Dim cb As New SqlCommandBuilder(da)
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.Update(tdt)
connection.Close()
End Sub
Private Sub Load_Empfaenger()
'Dim dokumentname = Globals.Params.Pfad_Serienbrief_Daten + Me.Serienbriefnr.ToString + "_empfaenger.xml"
'Try
' Me.dsempfaenger.Tables.Clear()
' Dim Connection As New SqlConnection()
' Dim DA As New SqlDataAdapter("select * from edex_sb_empfaenger where serienbriefnr=" + Str(Me.Serienbriefnr), Connection)
' Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
' Dim ds As New DataSet()
' Try
' Connection.ConnectionString = Globals.sConnectionString
' Connection.Open()
' DA.Fill(ds, "empf")
' Dim myRow As DataRow
' If ds.Tables(0).Rows.Count = 0 Then
' MsgBox("Empfänger konnten nicht geladen werden.")
' Else
' myRow = ds.Tables(0).Rows(0)
' Dim MyData() As Byte
' MyData = myRow.Item(2)
' Dim K As Long
' K = UBound(MyData)
' Dim fs As New FileStream(dokumentname, FileMode.OpenOrCreate, FileAccess.Write)
' fs.Write(MyData, 0, K)
' fs.Close()
' fs = Nothing
' Me.dsempfaenger.ReadXml(dokumentname)
' End If
' Catch ex As Exception
' End Try
' cb = Nothing
' ds = Nothing
' DA = Nothing
' Connection.Close()
' Connection = Nothing
'Catch EX As Exception
'Finally
' Try
' File.Delete(dokumentname)
' Catch
' End Try
'End Try
End Sub
Public Function Generate_Key(ByVal key As Long) As String
Dim skey As String
Dim s As String
skey = "OFFEDK000"
s = Str(Year(Now))
While Microsoft.VisualBasic.Left(s, 1) = " "
s = Microsoft.VisualBasic.Right(s, Len(s) - 1)
End While
skey = skey + s
s = Str(key)
While Microsoft.VisualBasic.Left(s, 1) = " "
s = Microsoft.VisualBasic.Right(s, Len(s) - 1)
End While
While Len(s) < 8
s = "0" + s
End While
skey = skey + s
s = Pruefziffer(Microsoft.VisualBasic.Right(skey, 15))
While Microsoft.VisualBasic.Left(s, 1) = " "
s = Microsoft.VisualBasic.Right(s, Len(s) - 1)
End While
skey = skey + s
Generate_Key = skey
End Function
Public Function Pruefziffer(ByVal zahl As String) As String
Dim ptab(9, 9) As Integer
Dim pz(9) As Integer
Dim s1, s2, s3 As String
Dim i1, i2 As Long
s1 = "0,9,4,6,8,2,7,1,3,5"
s2 = s1
For i1 = 0 To 9
For i2 = 0 To 9
ptab(i1, i2) = Mid(s2, (i2 * 2) + 1, 1)
Next
s3 = Microsoft.VisualBasic.Left(s1, 1)
s1 = Microsoft.VisualBasic.Right(s1, Len(s1) - 2)
s1 = s1 + "," + s3
s2 = s1
Next
pz(0) = 0
pz(1) = 9
pz(2) = 8
pz(3) = 7
pz(4) = 6
pz(5) = 5
pz(6) = 4
pz(7) = 3
pz(8) = 2
pz(9) = 1
Dim i, x, y, z, e As Integer
Dim xx As String
y = 0
For i = 1 To Len(zahl)
x = Val(Mid(zahl, i, 1))
y = ptab(x, y)
Next
Pruefziffer = Str(pz(y))
End Function
#End Region
End Class

View File

@@ -0,0 +1,138 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
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">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</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.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:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<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" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</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>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="GroupBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="rbabschliessen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="rbgeneriertedokumentebestätigen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="rbweiteregenerieren.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="rbkeineaktion.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtbemerkung.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Abbruch.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="StatusBar1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="$this.Name">
<value>frmDruckabschluss</value>
</data>
</root>

View File

@@ -0,0 +1,410 @@
Imports System.IO
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Public Class frmDruckabschluss
Inherits System.Windows.Forms.Form
#Region " Vom Windows Form Designer generierter Code "
Public Sub New()
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents rbkeineaktion As System.Windows.Forms.RadioButton
Friend WithEvents rbweiteregenerieren As System.Windows.Forms.RadioButton
Friend WithEvents rbgeneriertedokumentebestätigen As System.Windows.Forms.RadioButton
Friend WithEvents rbabschliessen As System.Windows.Forms.RadioButton
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Abbruch As System.Windows.Forms.Button
Friend WithEvents txtbemerkung As System.Windows.Forms.TextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents StatusBar1 As System.Windows.Forms.StatusBar
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.rbabschliessen = New System.Windows.Forms.RadioButton()
Me.rbgeneriertedokumentebestätigen = New System.Windows.Forms.RadioButton()
Me.rbweiteregenerieren = New System.Windows.Forms.RadioButton()
Me.rbkeineaktion = New System.Windows.Forms.RadioButton()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.txtbemerkung = New System.Windows.Forms.TextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Abbruch = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.StatusBar1 = New System.Windows.Forms.StatusBar()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.SuspendLayout()
'
'GroupBox1
'
Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.rbabschliessen, Me.rbgeneriertedokumentebestätigen, Me.rbweiteregenerieren, Me.rbkeineaktion})
Me.GroupBox1.Location = New System.Drawing.Point(8, 40)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(320, 128)
Me.GroupBox1.TabIndex = 0
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Optionen"
'
'rbabschliessen
'
Me.rbabschliessen.Location = New System.Drawing.Point(16, 96)
Me.rbabschliessen.Name = "rbabschliessen"
Me.rbabschliessen.Size = New System.Drawing.Size(200, 24)
Me.rbabschliessen.TabIndex = 3
Me.rbabschliessen.Text = "Serienbrief abschliessen"
'
'rbgeneriertedokumentebestätigen
'
Me.rbgeneriertedokumentebestätigen.Location = New System.Drawing.Point(16, 72)
Me.rbgeneriertedokumentebestätigen.Name = "rbgeneriertedokumentebestätigen"
Me.rbgeneriertedokumentebestätigen.Size = New System.Drawing.Size(200, 24)
Me.rbgeneriertedokumentebestätigen.TabIndex = 2
Me.rbgeneriertedokumentebestätigen.Text = "Erstellte Dokumente bestätigen"
'
'rbweiteregenerieren
'
Me.rbweiteregenerieren.Location = New System.Drawing.Point(16, 48)
Me.rbweiteregenerieren.Name = "rbweiteregenerieren"
Me.rbweiteregenerieren.Size = New System.Drawing.Size(240, 24)
Me.rbweiteregenerieren.TabIndex = 1
Me.rbweiteregenerieren.Text = "Weitere pendente Dokumente generieren"
'
'rbkeineaktion
'
Me.rbkeineaktion.Location = New System.Drawing.Point(16, 24)
Me.rbkeineaktion.Name = "rbkeineaktion"
Me.rbkeineaktion.Size = New System.Drawing.Size(152, 24)
Me.rbkeineaktion.TabIndex = 0
Me.rbkeineaktion.Text = "keine Aktion durchführen"
'
'GroupBox2
'
Me.GroupBox2.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtbemerkung})
Me.GroupBox2.Location = New System.Drawing.Point(8, 176)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(320, 100)
Me.GroupBox2.TabIndex = 1
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Beschreibung"
'
'txtbemerkung
'
Me.txtbemerkung.BackColor = System.Drawing.SystemColors.ActiveBorder
Me.txtbemerkung.Location = New System.Drawing.Point(8, 16)
Me.txtbemerkung.Multiline = True
Me.txtbemerkung.Name = "txtbemerkung"
Me.txtbemerkung.Size = New System.Drawing.Size(304, 72)
Me.txtbemerkung.TabIndex = 0
Me.txtbemerkung.Text = ""
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(248, 288)
Me.Button1.Name = "Button1"
Me.Button1.TabIndex = 2
Me.Button1.Text = "OK"
'
'Abbruch
'
Me.Abbruch.Location = New System.Drawing.Point(8, 288)
Me.Abbruch.Name = "Abbruch"
Me.Abbruch.TabIndex = 3
Me.Abbruch.Text = "Abbruch"
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(16, 8)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(64, 23)
Me.Label1.TabIndex = 4
Me.Label1.Text = "Serienbrief:"
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(80, 8)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(248, 23)
Me.Label2.TabIndex = 5
Me.Label2.Text = "Label2"
'
'StatusBar1
'
Me.StatusBar1.Location = New System.Drawing.Point(0, 327)
Me.StatusBar1.Name = "StatusBar1"
Me.StatusBar1.Size = New System.Drawing.Size(336, 22)
Me.StatusBar1.TabIndex = 6
'
'frmDruckabschluss
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(336, 349)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.StatusBar1, Me.Label2, Me.Label1, Me.Abbruch, Me.Button1, Me.GroupBox2, Me.GroupBox1})
Me.Name = "frmDruckabschluss"
Me.Text = "Serienbrief-Verarbeitung:"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox2.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Dim serienbriefnr As Integer
Dim dsempfaenger As New DataSet()
Dim progress As New ucProgress()
Dim m_datasaved As Boolean
Dim serienbrief As New edokadb.clsEdex_sb_serienbrief()
Property datasaved() As Boolean
Get
Return m_datasaved
End Get
Set(ByVal Value As Boolean)
m_datasaved = Value
End Set
End Property
Public Sub New(ByVal serienbriefnr As Integer)
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
Me.serienbriefnr = serienbriefnr
End Sub
Private Sub frmDruckabschluss_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
serienbrief.cpMainConnectionProvider = Globals.conn
serienbrief.iSerienbriefnr = New SqlInt32(CType(Me.serienbriefnr, Int32))
serienbrief.SelectOne()
Label2.Text = serienbrief.sBezeichnung.Value
serienbrief.Dispose()
Me.StatusBar1.Controls.Add(progress)
Me.SetProgress(0, "Empfänger prüfen", False)
If Load_empfaenger() = True Then
check_data()
End If
Me.SetProgress(0, "", True)
Me.rbkeineaktion.Checked = True
End Sub
Private Function Load_empfaenger() As Boolean
Try
Dim dokumentname = Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + Me.serienbriefnr.ToString + "_empfaenger.xml"
Me.dsempfaenger.Tables.Clear()
Dim Connection As New SqlConnection()
Dim DA As New SqlDataAdapter("select * from edex_sb_empfaenger where serienbriefnr=" + Str(Me.serienbriefnr), Connection)
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
Dim ds As New DataSet()
Try
Connection.ConnectionString = Globals.sConnectionString
Connection.Open()
DA.Fill(ds, "empf")
Dim myRow As DataRow
If ds.Tables(0).Rows.Count = 0 Then
MyMsg.show_standardmessage(701, MsgBoxStyle.Critical)
Return False
Else
myRow = ds.Tables(0).Rows(0)
Dim MyData() As Byte
MyData = myRow.Item(2)
Dim K As Long
K = UBound(MyData)
Dim fs As New FileStream(dokumentname, FileMode.OpenOrCreate, FileAccess.Write)
fs.Write(MyData, 0, K)
fs.Close()
fs = Nothing
Me.dsempfaenger.ReadXml(dokumentname)
End If
Catch ex As Exception
MyMsg.show_standardmessage(701, MsgBoxStyle.Critical)
' MsgBox(ex.Message)
Return False
End Try
cb = Nothing
ds = Nothing
DA = Nothing
Connection.Close()
Connection = Nothing
Return True
Catch EX As Exception
MyMsg.show_standardmessage(701, MsgBoxStyle.Critical)
Return False
End Try
End Function
Private Function save_empfaenger() As Boolean
Try
Dim dokumentname = Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + Me.serienbriefnr.ToString + "_empfaenger.xml"
Me.dsempfaenger.WriteXml(dokumentname)
Dim Connection As New SqlConnection()
Dim DA As New SqlDataAdapter("select * from edex_sb_empfaenger where serienbriefnr=" + Str(Me.serienbriefnr), Connection)
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
Dim ds As New DataSet()
Dim fs As New FileStream(dokumentname, FileMode.Open, FileAccess.Read)
Dim mydata(fs.Length) As Byte
Try
fs.Read(mydata, 0, fs.Length)
fs.Close()
Connection.ConnectionString = Globals.sConnectionString
Connection.Open()
DA.Fill(ds, "empf")
Dim myRow As DataRow
If ds.Tables(0).Rows.Count = 0 Then
'Neue Serienbrief_Empfaenger speichern
myRow = ds.Tables(0).NewRow
myRow.Item(1) = Me.serienbriefnr
myRow.Item(2) = mydata
ds.Tables(0).Rows.Add(myRow)
DA.Update(ds, "empf")
Else
' Bestehende Empfängerliste überschreiben
myRow = ds.Tables(0).Rows(0)
myRow.Item(2) = mydata
DA.Update(ds, "empf")
End If
Catch ex As Exception
MyMsg.show_standardmessage(700, MsgBoxStyle.Critical)
Return False
End Try
fs = Nothing
cb = Nothing
ds = Nothing
DA = Nothing
Connection.Close()
Connection = Nothing
Return True
Catch EX As Exception
MyMsg.show_standardmessage(700, MsgBoxStyle.Critical)
Return False
End Try
End Function
Private Function check_data()
Me.rbabschliessen.Enabled = False
Me.rbgeneriertedokumentebestätigen.Enabled = False
Me.rbkeineaktion.Enabled = True
Me.rbweiteregenerieren.Enabled = False
If Me.serienbrief.iAusgeloest.Value <> 0 Then Me.rbweiteregenerieren.Enabled = True
If Me.serienbrief.iErstellt.Value <> 0 Or Me.serienbrief.iGedruckt.Value <> 0 Then Me.rbgeneriertedokumentebestätigen.Enabled = True
If Me.serienbrief.iFehlerhaft.Value = 0 And Me.serienbrief.iAusgeloest.Value = 0 And Me.serienbrief.iInBearbeitung.Value = 0 Then
Me.rbabschliessen.Enabled = True
End If
End Function
Private Sub SetProgress(ByVal wert As Integer, ByVal txt As String, ByVal hidedialog As Boolean)
If hidedialog Then
progress.Hide()
Exit Sub
End If
progress.Visible = True
If wert + 1 > 100 Then wert = 99
progress.Bar1.Value = wert + 1
progress.info.Text = txt
progress.Refresh()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Me.rbkeineaktion.Checked Then
Me.datasaved = False
Me.Close()
End If
If Me.rbgeneriertedokumentebestätigen.Checked Then
Dokumente_bestaetigen()
Me.save_empfaenger()
Me.datasaved = True
Me.Close()
End If
If Me.rbabschliessen.Checked Then
Dokumente_bestaetigen()
Dim serienbrief As New edokadb.clsEdex_sb_serienbrief()
serienbrief.cpMainConnectionProvider = Globals.conn
serienbrief.iSerienbriefnr = New SqlInt32(CType(Me.serienbriefnr, Int32))
serienbrief.SelectOne()
serienbrief.iStatus = New SqlInt32(CType(1, Int32))
Globals.conn.OpenConnection()
serienbrief.Update()
Globals.conn.CloseConnection(True)
serienbrief.Dispose()
Me.save_empfaenger()
Me.datasaved = True
Me.Close()
End If
If Me.rbweiteregenerieren.Checked Then
Dim serienbrief As New edokadb.clsEdex_sb_serienbrief()
serienbrief.cpMainConnectionProvider = Globals.conn
serienbrief.iSerienbriefnr = New SqlInt32(CType(Me.serienbriefnr, Int32))
serienbrief.SelectOne()
serienbrief.iStatus = New SqlInt32(CType(-1, Int32))
Globals.conn.OpenConnection()
serienbrief.Update()
Globals.conn.CloseConnection(True)
serienbrief.Dispose()
Me.save_empfaenger()
Me.Close()
Me.datasaved = True
End If
End Sub
Private Sub Dokumente_bestaetigen()
Me.Cursor = Cursors.WaitCursor
Application.DoEvents()
Dim pwert As Integer
Dim i As Integer
For i = 0 To Me.dsempfaenger.Tables(0).Rows.Count - 1
Try
pwert = 100 / Me.dsempfaenger.Tables(0).Rows.Count * i
Catch
pwert = 0
End Try
Me.SetProgress(pwert, "Dokumente bestätigen", False)
Try
If Me.dsempfaenger.Tables(0).Rows(i).Item("STATUS") = 2 Or Me.dsempfaenger.Tables(0).Rows(i).Item("STATUS") = 3 Then
Me.dsempfaenger.Tables(0).Rows(i).Item("Dokument_Gedruckt") = 1
Me.dsempfaenger.Tables(0).Rows(i).Item("STATUS") = 4
End If
Catch
End Try
Next
Me.SetProgress(100, "", True)
Cursor = Cursors.Default
Application.DoEvents()
End Sub
Private Sub Abbruch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Abbruch.Click
Me.Close()
End Sub
End Class

View File

@@ -0,0 +1,151 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
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">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</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.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:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<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" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</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>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="Label1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ComboBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Timer1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</data>
<data name="Timer1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="CheckBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="$this.Name">
<value>frmDruckMessage</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAEAAAAAAAAAAAAAAAEAAAAA
AAAAAAAAgACAAIAAAACAgAAAAIAAAACAgAAAAIAAwMDAAMDcwADwyqYAgICAAP8A/wD/AAAA//8AAAD/
AAAA//8AAAD/AP///wDw+/8ApKCgANTw/wCx4v8AjtT/AGvG/wBIuP8AJar/AACq/wAAktwAAHq5AABi
lgAASnMAADJQANTj/wCxx/8Ajqv/AGuP/wBIc/8AJVf/AABV/wAASdwAAD25AAAxlgAAJXMAABlQANTU
/wCxsf8Ajo7/AGtr/wBISP8AJSX/AAAA/wAAANwAAAC5AAAAlgAAAHMAAABQAOPU/wDHsf8Aq47/AI9r
/wBzSP8AVyX/AFUA/wBJANwAPQC5ADEAlgAlAHMAGQBQAPDU/wDisf8A1I7/AMZr/wC4SP8AqiX/AKoA
/wCSANwAegC5AGIAlgBKAHMAMgBQAP/U/wD/sf8A/47/AP9r/wD/SP8A/yX/AP8A/wDcANwAuQC5AJYA
lgBzAHMAUABQAP/U8AD/seIA/47UAP9rxgD/SLgA/yWqAP8AqgDcAJIAuQB6AJYAYgBzAEoAUAAyAP/U
4wD/sccA/46rAP9rjwD/SHMA/yVXAP8AVQDcAEkAuQA9AJYAMQBzACUAUAAZAP/U1AD/sbEA/46OAP9r
awD/SEgA/yUlAP8AAADcAAAAuQAAAJYAAABzAAAAUAAAAP/j1AD/x7EA/6uOAP+PawD/c0gA/1clAP9V
AADcSQAAuT0AAJYxAABzJQAAUBkAAP/w1AD/4rEA/9SOAP/GawD/uEgA/6olAP+qAADckgAAuXoAAJZi
AABzSgAAUDIAAP//1AD//7EA//+OAP//awD//0gA//8lAP//AADc3AAAubkAAJaWAABzcwAAUFAAAPD/
1ADi/7EA1P+OAMb/awC4/0gAqv8lAKr/AACS3AAAerkAAGKWAABKcwAAMlAAAOP/1ADH/7EAq/+OAI//
awBz/0gAV/8lAFX/AABJ3AAAPbkAADGWAAAlcwAAGVAAANT/1ACx/7EAjv+OAGv/awBI/0gAJf8lAAD/
AAAA3AAAALkAAACWAAAAcwAAAFAAANT/4wCx/8cAjv+rAGv/jwBI/3MAJf9XAAD/VQAA3EkAALk9AACW
MQAAcyUAAFAZANT/8ACx/+IAjv/UAGv/xgBI/7gAJf+qAAD/qgAA3JIAALl6AACWYgAAc0oAAFAyANT/
/wCx//8Ajv//AGv//wBI//8AJf//AAD//wAA3NwAALm5AACWlgAAc3MAAFBQAPLy8gDm5uYA2traAM7O
zgDCwsIAtra2AKqqqgCenp4AkpKSAIaGhgB6enoAbm5uAGJiYgBWVlYASkpKAD4+PgAyMjIAJiYmABoa
GgAODg4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKBwoAAAAAAAAAAAAAAAoHBwcKCgoAAAAAAAAKCgcH
BwcHCgoKCgoAAAAAChEHBwcHEQoKCgoKCgAACgoRBwcREQcHBwoKCgoAAAAKEQcHDg4QEAcHBwoKAAoR
EQoKEQcHBwcHCgoABwAKERERAAoKEQcKCgcRAAcAChEREQARAAoKBxEREREAAAoREREAEQAAChERERER
EQAKCgoKChEAEQAKERERCgoAAAAKERERABEAAAoKCgAAAAAACgoKCgoRAAAAAAAAAAAAAAAAChEREQAA
AAARAAAAAAAAAAoKCgoKAAAAAAAAAP4f///8D///4AP//8AA///AAP//gAD//wAA//8AAP//AAD//wAB
//8AAP//AIH//8DH///Af///8Hf///B///8=
</value>
</data>
</root>

View File

@@ -0,0 +1,197 @@
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Public Class frmDruckMessage
Inherits System.Windows.Forms.Form
#Region " Vom Windows Form Designer generierter Code "
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmDruckMessage))
Me.Label1 = New System.Windows.Forms.Label()
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(8, 16)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(296, 23)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Für folgende Serienbriefe wurden Dokumente aufbereitet:"
'
'ComboBox1
'
Me.ComboBox1.Location = New System.Drawing.Point(8, 40)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(288, 21)
Me.ComboBox1.TabIndex = 1
Me.ComboBox1.Text = "ComboBox1"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(8, 72)
Me.Button1.Name = "Button1"
Me.Button1.TabIndex = 2
Me.Button1.Text = "Abbruch"
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(176, 72)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(120, 23)
Me.Button2.TabIndex = 3
Me.Button2.Text = "Serienbrief anzeigen"
'
'Timer1
'
Me.Timer1.Enabled = True
Me.Timer1.Interval = 1800000
'
'CheckBox1
'
Me.CheckBox1.Location = New System.Drawing.Point(8, 104)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(288, 24)
Me.CheckBox1.TabIndex = 4
Me.CheckBox1.Text = "Keine Meldungen für diesen Serienbrief erstellen"
'
'frmDruckMessage
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(304, 141)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.CheckBox1, Me.Button2, Me.Button1, Me.ComboBox1, Me.Label1})
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmDruckMessage"
Me.Text = "Serienbriefe: Aufbereitete Dokumente"
Me.ResumeLayout(False)
End Sub
#End Region
Public dt As New DataTable()
Public Sub New()
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
Check_Data()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
Private Sub frmDruckMessage_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Check_Data()
End Sub
Public Function Check_Data() As Integer
dt = checkdata()
Me.ComboBox1.DataSource = dt
Me.ComboBox1.DisplayMember = "bezeichnung"
Me.ComboBox1.ValueMember = "serienbriefnr"
If dt.Rows.Count > 0 Then
Me.Visible = True
Application.DoEvents()
Else
Me.Visible = False
End If
End Function
Private Function checkdata() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim i As Integer
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.CommandText = "dbo.sp_edex_sb_get_serienbriefe_gedruckt"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn.scoDBConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
Throw New Exception("sp_check_dokumentreaktivierung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim f As New frmSerienbriefe(True, Me.ComboBox1.SelectedValue)
f.Show()
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Check_Data()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Hide()
End Sub
Private Sub frmDruckMessage_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
Me.Visible = False
e.Cancel = True
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If Me.CheckBox1.Checked = True Then
Me.update_meldung()
Me.ComboBox1.DataSource = Nothing
Me.ComboBox1.Items.Clear()
Me.Check_Data()
End If
End Sub
Private Function update_meldung()
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim i As Integer
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.CommandText = "dbo.sp_edex_sb_set_druckjobmeldung"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn.scoDBConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@serienbriefnr", SqlDbType.Int, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.ComboBox1.SelectedValue))
sdaAdapter.Fill(dtToReturn)
Catch ex As Exception
Throw New Exception("sp_edex_sb_set_druckjobmeldung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
End Class

View File

@@ -0,0 +1,72 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmExcelSheets
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.lstSheets = New System.Windows.Forms.ListBox
Me.BtnOK = New System.Windows.Forms.Button
Me.BtnAbbruch = New System.Windows.Forms.Button
Me.SuspendLayout()
'
'lstSheets
'
Me.lstSheets.FormattingEnabled = True
Me.lstSheets.Location = New System.Drawing.Point(12, 32)
Me.lstSheets.Name = "lstSheets"
Me.lstSheets.Size = New System.Drawing.Size(220, 134)
Me.lstSheets.TabIndex = 0
'
'BtnOK
'
Me.BtnOK.Location = New System.Drawing.Point(12, 193)
Me.BtnOK.Name = "BtnOK"
Me.BtnOK.Size = New System.Drawing.Size(75, 23)
Me.BtnOK.TabIndex = 1
Me.BtnOK.Text = "Auswählen"
Me.BtnOK.UseVisualStyleBackColor = True
'
'BtnAbbruch
'
Me.BtnAbbruch.Location = New System.Drawing.Point(157, 193)
Me.BtnAbbruch.Name = "BtnAbbruch"
Me.BtnAbbruch.Size = New System.Drawing.Size(75, 23)
Me.BtnAbbruch.TabIndex = 2
Me.BtnAbbruch.Text = "Abbruch"
Me.BtnAbbruch.UseVisualStyleBackColor = True
'
'frmExcelSheets
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(254, 228)
Me.Controls.Add(Me.BtnAbbruch)
Me.Controls.Add(Me.BtnOK)
Me.Controls.Add(Me.lstSheets)
Me.Name = "frmExcelSheets"
Me.Text = "Auswahl Excel-Blatt"
Me.ResumeLayout(False)
End Sub
Friend WithEvents lstSheets As System.Windows.Forms.ListBox
Friend WithEvents BtnOK As System.Windows.Forms.Button
Friend WithEvents BtnAbbruch As System.Windows.Forms.Button
End Class

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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

View File

@@ -0,0 +1,47 @@
Public Class frmExcelSheets
Dim m_excelsheet As String
Property ExcelSheet() As String
Get
Return m_excelsheet
End Get
Set(ByVal value As String)
m_excelsheet = value
End Set
End Property
Dim m_excelfile As String
Property ExcelFile() As String
Get
Return m_excelfile
End Get
Set(ByVal value As String)
m_excelfile = value
End Set
End Property
Private Sub frmExcelSheets_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim intxls As New Excel.Application
intxls.Workbooks.Open(ExcelFile)
For Each s As Excel.Worksheet In intxls.ActiveWorkbook.Sheets
Me.lstSheets.Items.Add(s.Name)
Next
intxls.ActiveWorkbook.Close(False)
intxls.Quit()
intxls = Nothing
End Sub
Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
Me.ExcelSheet = "[" & Me.lstSheets.SelectedItem & "$]"
Me.DialogResult = Windows.Forms.DialogResult.OK
Me.Close()
End Sub
Private Sub BtnAbbruch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAbbruch.Click
Me.DialogResult = Windows.Forms.DialogResult.Cancel
Me.Close()
End Sub
Private Sub lstSheets_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstSheets.DoubleClick
BtnOK_Click(sender, e)
End Sub
End Class

View File

@@ -0,0 +1,193 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
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">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</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.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:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<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" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</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>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="ToolBar1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBarButton1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</data>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuMzMw
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
AAAgCAAAAk1TRnQBSQFMAwEBAAEFAQABBAEAARABAAEQAQAE/wEJARAI/wFCAU0BNgEEBgABNgEEAgAB
KAMAAUADAAEgAwABAQEAAQgGAAEIGAABgAIAAYADAAKAAQABgAMAAYABAAGAAQACgAIAA8ABAAHAAdwB
wAEAAfABygGmAQABMwUAATMBAAEzAQABMwEAAjMCAAMWAQADHAEAAyIBAAMpAQADVQEAA00BAANCAQAD
OQEAAYABfAH/AQACUAH/AQABkwEAAdYBAAH/AewBzAEAAcYB1gHvAQAB1gLnAQABkAGpAa0CAAH/ATMD
AAFmAwABmQMAAcwCAAEzAwACMwIAATMBZgIAATMBmQIAATMBzAIAATMB/wIAAWYDAAFmATMCAAJmAgAB
ZgGZAgABZgHMAgABZgH/AgABmQMAAZkBMwIAAZkBZgIAApkCAAGZAcwCAAGZAf8CAAHMAwABzAEzAgAB
zAFmAgABzAGZAgACzAIAAcwB/wIAAf8BZgIAAf8BmQIAAf8BzAEAATMB/wIAAf8BAAEzAQABMwEAAWYB
AAEzAQABmQEAATMBAAHMAQABMwEAAf8BAAH/ATMCAAMzAQACMwFmAQACMwGZAQACMwHMAQACMwH/AQAB
MwFmAgABMwFmATMBAAEzAmYBAAEzAWYBmQEAATMBZgHMAQABMwFmAf8BAAEzAZkCAAEzAZkBMwEAATMB
mQFmAQABMwKZAQABMwGZAcwBAAEzAZkB/wEAATMBzAIAATMBzAEzAQABMwHMAWYBAAEzAcwBmQEAATMC
zAEAATMBzAH/AQABMwH/ATMBAAEzAf8BZgEAATMB/wGZAQABMwH/AcwBAAEzAv8BAAFmAwABZgEAATMB
AAFmAQABZgEAAWYBAAGZAQABZgEAAcwBAAFmAQAB/wEAAWYBMwIAAWYCMwEAAWYBMwFmAQABZgEzAZkB
AAFmATMBzAEAAWYBMwH/AQACZgIAAmYBMwEAA2YBAAJmAZkBAAJmAcwBAAFmAZkCAAFmAZkBMwEAAWYB
mQFmAQABZgKZAQABZgGZAcwBAAFmAZkB/wEAAWYBzAIAAWYBzAEzAQABZgHMAZkBAAFmAswBAAFmAcwB
/wEAAWYB/wIAAWYB/wEzAQABZgH/AZkBAAFmAf8BzAEAAcwBAAH/AQAB/wEAAcwBAAKZAgABmQEzAZkB
AAGZAQABmQEAAZkBAAHMAQABmQMAAZkCMwEAAZkBAAFmAQABmQEzAcwBAAGZAQAB/wEAAZkBZgIAAZkB
ZgEzAQABmQEzAWYBAAGZAWYBmQEAAZkBZgHMAQABmQEzAf8BAAKZATMBAAKZAWYBAAOZAQACmQHMAQAC
mQH/AQABmQHMAgABmQHMATMBAAFmAcwBZgEAAZkBzAGZAQABmQLMAQABmQHMAf8BAAGZAf8CAAGZAf8B
MwEAAZkBzAFmAQABmQH/AZkBAAGZAf8BzAEAAZkC/wEAAcwDAAGZAQABMwEAAcwBAAFmAQABzAEAAZkB
AAHMAQABzAEAAZkBMwIAAcwCMwEAAcwBMwFmAQABzAEzAZkBAAHMATMBzAEAAcwBMwH/AQABzAFmAgAB
zAFmATMBAAGZAmYBAAHMAWYBmQEAAcwBZgHMAQABmQFmAf8BAAHMAZkCAAHMAZkBMwEAAcwBmQFmAQAB
zAKZAQABzAGZAcwBAAHMAZkB/wEAAswCAALMATMBAALMAWYBAALMAZkBAAPMAQACzAH/AQABzAH/AgAB
zAH/ATMBAAGZAf8BZgEAAcwB/wGZAQABzAH/AcwBAAHMAv8BAAHMAQABMwEAAf8BAAFmAQAB/wEAAZkB
AAHMATMCAAH/AjMBAAH/ATMBZgEAAf8BMwGZAQAB/wEzAcwBAAH/ATMB/wEAAf8BZgIAAf8BZgEzAQAB
zAJmAQAB/wFmAZkBAAH/AWYBzAEAAcwBZgH/AQAB/wGZAgAB/wGZATMBAAH/AZkBZgEAAf8CmQEAAf8B
mQHMAQAB/wGZAf8BAAH/AcwCAAH/AcwBMwEAAf8BzAFmAQAB/wHMAZkBAAH/AswBAAH/AcwB/wEAAv8B
MwEAAcwB/wFmAQAC/wGZAQAC/wHMAQACZgH/AQABZgH/AWYBAAFmAv8BAAH/AmYBAAH/AWYB/wEAAv8B
ZgEAASEBAAGlAQADXwEAA3cBAAOGAQADlgEAA8sBAAOyAQAD1wEAA90BAAPjAQAD6gEAA/EBAAP4AQAB
8AH7Af8BAAGkAqABAAOAAwAB/wIAAf8DAAL/AQAB/wMAAf8BAAH/AQAC/wIAA///AP8A/wD/AEsAAQMB
/zwAAewBAwHsAf86AAEDAewBAwHsAQMB/zkAAQMB7AEDAewBAwHsAf8BAAHsNwAB7AEDAewBAwHsAQMB
/wEAAew3AAEDAewBAwIAAewB/wEAAew3AAHsAQMB7AIHAQMB/wEAAewBAAEGNQABAwHsAQMB7AEDAewB
/wIAAQYF/jEAAewBAwHsAQMB7AEDAf8BAAFtBv4xAAEDAewBAwHsAQMB7AH/AQAB7AFtAf4EbTEAAewB
AwHsAQMB7AEDAf8BAAHsAQACbTQAAQMB7AEDAewBBwH/AewBAAHsAgABbTQAAewBAwEHAf8B7AEAA+w3
AAEHAf8B7AEABex2AAFCAU0BPgcAAT4DAAEoAwABQAMAASADAAEBAQABAQYAAQEWAAP/gQAB/AF/BgAB
8AF/BgABwAF/BwABHwcAAR8HAAEXBwABBycAAQcHAAEXBwABHwcAAR8HAAEfHAAL
</value>
</data>
<data name="GroupBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ListBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="webOCWrapper.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="$this.Name">
<value>frmOfficePreview</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAEAAAAAAAAAAAAAAAEAAAAA
AAAAAAAAgACAAIAAAACAgAAAAIAAAACAgAAAAIAAwMDAAMDcwADwyqYAgICAAP8A/wD/AAAA//8AAAD/
AAAA//8AAAD/AP///wDw+/8ApKCgANTw/wCx4v8AjtT/AGvG/wBIuP8AJar/AACq/wAAktwAAHq5AABi
lgAASnMAADJQANTj/wCxx/8Ajqv/AGuP/wBIc/8AJVf/AABV/wAASdwAAD25AAAxlgAAJXMAABlQANTU
/wCxsf8Ajo7/AGtr/wBISP8AJSX/AAAA/wAAANwAAAC5AAAAlgAAAHMAAABQAOPU/wDHsf8Aq47/AI9r
/wBzSP8AVyX/AFUA/wBJANwAPQC5ADEAlgAlAHMAGQBQAPDU/wDisf8A1I7/AMZr/wC4SP8AqiX/AKoA
/wCSANwAegC5AGIAlgBKAHMAMgBQAP/U/wD/sf8A/47/AP9r/wD/SP8A/yX/AP8A/wDcANwAuQC5AJYA
lgBzAHMAUABQAP/U8AD/seIA/47UAP9rxgD/SLgA/yWqAP8AqgDcAJIAuQB6AJYAYgBzAEoAUAAyAP/U
4wD/sccA/46rAP9rjwD/SHMA/yVXAP8AVQDcAEkAuQA9AJYAMQBzACUAUAAZAP/U1AD/sbEA/46OAP9r
awD/SEgA/yUlAP8AAADcAAAAuQAAAJYAAABzAAAAUAAAAP/j1AD/x7EA/6uOAP+PawD/c0gA/1clAP9V
AADcSQAAuT0AAJYxAABzJQAAUBkAAP/w1AD/4rEA/9SOAP/GawD/uEgA/6olAP+qAADckgAAuXoAAJZi
AABzSgAAUDIAAP//1AD//7EA//+OAP//awD//0gA//8lAP//AADc3AAAubkAAJaWAABzcwAAUFAAAPD/
1ADi/7EA1P+OAMb/awC4/0gAqv8lAKr/AACS3AAAerkAAGKWAABKcwAAMlAAAOP/1ADH/7EAq/+OAI//
awBz/0gAV/8lAFX/AABJ3AAAPbkAADGWAAAlcwAAGVAAANT/1ACx/7EAjv+OAGv/awBI/0gAJf8lAAD/
AAAA3AAAALkAAACWAAAAcwAAAFAAANT/4wCx/8cAjv+rAGv/jwBI/3MAJf9XAAD/VQAA3EkAALk9AACW
MQAAcyUAAFAZANT/8ACx/+IAjv/UAGv/xgBI/7gAJf+qAAD/qgAA3JIAALl6AACWYgAAc0oAAFAyANT/
/wCx//8Ajv//AGv//wBI//8AJf//AAD//wAA3NwAALm5AACWlgAAc3MAAFBQAPLy8gDm5uYA2traAM7O
zgDCwsIAtra2AKqqqgCenp4AkpKSAIaGhgB6enoAbm5uAGJiYgBWVlYASkpKAD4+PgAyMjIAJiYmABoa
GgAODg4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANDAAAAAAAAAAAAAAAAAANDAwAAAAAAAAA
AAAAAAANDAwAAAAAAAAAAAAAAAANDAwAAAAACgoKAAMDAwMDAAwAAAAAAAAAAAcNEQ0NAwMAAAAAAAoR
EQANEQ0RDQ0DAAAAAAAKEREABw0HDRENAwAAAAAAChERAA0RDRENEQMAAAAAAAoREQAHDQcNBw0DAAAA
AAAKCgoKABENEQ0RAAAAAAAAAAAKEREAAAAAAAAAAAAAAAAACgoKCgoRAAAAAAAAAAAAAAAAChEREQAA
AAAAAAAAAAAAAAoKCgoKAAAAAAAAAP/5////8P///+D////B///4A///gAf//wAP//8AD///AA///wAP
//8AD///AB///8A////Af///8H////B///8=
</value>
</data>
</root>

View File

@@ -0,0 +1,162 @@
Imports System.IO
Public Class frmOfficePreview
Inherits System.Windows.Forms.Form
#Region " Vom Windows Form Designer generierter Code "
Public Sub New()
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents webOCWrapper As WebOCHostCtrl
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmOfficePreview))
Me.ToolBar1 = New System.Windows.Forms.ToolBar()
Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.ListBox1 = New System.Windows.Forms.ListBox()
Me.webOCWrapper = New WebOCHostCtrl()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
'
'ToolBar1
'
Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1})
Me.ToolBar1.DropDownArrows = True
Me.ToolBar1.ImageList = Me.ImageList1
Me.ToolBar1.Name = "ToolBar1"
Me.ToolBar1.ShowToolTips = True
Me.ToolBar1.Size = New System.Drawing.Size(880, 25)
Me.ToolBar1.TabIndex = 13
'
'ToolBarButton1
'
Me.ToolBarButton1.ImageIndex = 0
'
'ImageList1
'
Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
'
'GroupBox1
'
Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.ListBox1})
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Left
Me.GroupBox1.Location = New System.Drawing.Point(0, 25)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(208, 596)
Me.GroupBox1.TabIndex = 14
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Generierte Dokumente"
'
'ListBox1
'
Me.ListBox1.Dock = System.Windows.Forms.DockStyle.Fill
Me.ListBox1.Location = New System.Drawing.Point(3, 16)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.Size = New System.Drawing.Size(202, 576)
Me.ListBox1.TabIndex = 0
'
'webOCWrapper
'
Me.webOCWrapper.BrowserContextMenu = False
Me.webOCWrapper.Dock = System.Windows.Forms.DockStyle.Fill
Me.webOCWrapper.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.webOCWrapper.Location = New System.Drawing.Point(208, 25)
Me.webOCWrapper.Name = "webOCWrapper"
Me.webOCWrapper.Size = New System.Drawing.Size(672, 596)
Me.webOCWrapper.TabIndex = 15
Me.webOCWrapper.TabStop = False
'
'frmOfficePreview
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(880, 621)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.webOCWrapper, Me.GroupBox1, Me.ToolBar1})
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmOfficePreview"
Me.Text = "Dokument-Vorschau"
Me.GroupBox1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Public Sub New(ByVal gd As Collection)
MyBase.New()
InitializeComponent()
Dim i As Integer
For i = 1 To gd.Count
Me.ListBox1.Items.Add(gd.Item(i))
Next
End Sub
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
Me.Close()
End Sub
Private Sub frmOfficePreview_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.ListBox1.SelectedIndex = 0
Application.DoEvents()
MyMsg.show_standardmessage(724, MsgBoxStyle.Information)
'Try
' webOCWrapper.Navigate(Me.ListBox1.SelectedItem.Text)
'Catch
'End Try
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Try
webOCWrapper.Navigate(Me.ListBox1.SelectedItem)
Catch
End Try
End Sub
Private Sub frmOfficePreview_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
Dim i As Integer
Try
webOCWrapper.Navigate("")
Catch
End Try
For i = 0 To Me.ListBox1.Items.Count - 1
Try
File.Delete(Me.ListBox1.Items(i))
Catch
End Try
Next
End Sub
End Class

View File

@@ -0,0 +1,156 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
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">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</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.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:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<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" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</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>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="Panel1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="partnerlist.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="resource.Images" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
RK5CYII=
</value>
</data>
<data name="Beschreibung.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="TextBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="$this.Name">
<value>frmPartnerlisteLaden</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAEAAAAAAAAAAAAAAAEAAAAA
AAAAAAAAgACAAIAAAACAgAAAAIAAAACAgAAAAIAAwMDAAMDcwADwyqYAgICAAP8A/wD/AAAA//8AAAD/
AAAA//8AAAD/AP///wDw+/8ApKCgANTw/wCx4v8AjtT/AGvG/wBIuP8AJar/AACq/wAAktwAAHq5AABi
lgAASnMAADJQANTj/wCxx/8Ajqv/AGuP/wBIc/8AJVf/AABV/wAASdwAAD25AAAxlgAAJXMAABlQANTU
/wCxsf8Ajo7/AGtr/wBISP8AJSX/AAAA/wAAANwAAAC5AAAAlgAAAHMAAABQAOPU/wDHsf8Aq47/AI9r
/wBzSP8AVyX/AFUA/wBJANwAPQC5ADEAlgAlAHMAGQBQAPDU/wDisf8A1I7/AMZr/wC4SP8AqiX/AKoA
/wCSANwAegC5AGIAlgBKAHMAMgBQAP/U/wD/sf8A/47/AP9r/wD/SP8A/yX/AP8A/wDcANwAuQC5AJYA
lgBzAHMAUABQAP/U8AD/seIA/47UAP9rxgD/SLgA/yWqAP8AqgDcAJIAuQB6AJYAYgBzAEoAUAAyAP/U
4wDdpsIA/46rAP9rjwD/SHMA/yVXAP8AVQDcAEkAuQA9AJYAMQBzACUAUAAZAP/U1AD/sbEA/46OAP9r
awD/SEgA/yUlAP8AAADcAAAAuQAAAJYAAABzAAAAUAAAAP/j1AD/x7EA/6uOAP+PawD/c0gA/1clAP9V
AADcSQAAuT0AAJYxAABzJQAAUBkAAP/w1AD/4rEA/9SOAP/GawD/uEgA/6olAP+qAADckgAAuXoAAJZi
AABzSgAAUDIAAP//1AD//7EA//+OAP//awD//0gA//8lAP//AADc3AAAubkAAJaWAABzcwAAUFAAAPD/
1ADi/7EA1P+OAMb/awC4/0gAqv8lAKr/AACS3AAAerkAAGKWAABKcwAAMlAAAOP/1ADH/7EAq/+OAI//
awBz/0gAV/8lAFX/AABJ3AAAPbkAADGWAAAxlwAAGVAAANT/1ACx/7EAjv+OAGv/awBI/0gAJf8lAAD/
AAAA3AAAALkAAACWAAAAcwAAAFAAANT/4wCx/8cAjv+rAGv/jwBI/3MAJf9XAAD/VQAA3EkAALk9AACW
MQAAcyUAAFAZANT/8ACx/+IAjv/UAGv/xgBI/7gAJf+qAAD/qgAA3JIAALl6AACWYgAAc0oAAFAyANT/
/wCx//8Ajv//AGv//wBI//8AJf//AAD//wAA3NwAALm5AACWlgAAc3MAAFBQAPLy8gDm5uYA2traAM7O
zgDCwsIAtra2AKqqqgCenp4AkpKSAIaGhgB6enoAbm5uAGJiYgBWVlYASkpKAD4+PgAyMjIAJiYmABoa
GgAODg4AAAAAAAAAAAAAAAAAAAAAAAAABegF6AXoBegFAAAAAAAADwAF6AXoBegF6AUAAAAAABEAAAXo
BegF6AXoBQAAAAAAAAAABegF6AXoBegFAAAABwcREQAAAAAAAAAAAAAAAAcHABEREREAaQAAAAAAAAAH
BwAREQAAaQAAAAAAtwAABwcHABERAGlpaQAAAAC3AAAHBwcHBwBpaWkAAAAAtwAAAAAAAABpAGlpAAAA
ALcAAAAAaWlpaQBpAAC3ALcAAAAAAGlpaWlpaQAAt7cAAAAAAAAAAAAAAAAAALe3twAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAf//8AD///AAf//wAD//8AAf//AAD//wAf//8AHf//AA7//4AO
///ADv//4BX//+AT///gEf////////////8=
</value>
</data>
</root>

View File

@@ -0,0 +1,274 @@
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports System.IO
Public Class frmPartnerlisteLaden
Inherits System.Windows.Forms.Form
#Region " Vom Windows Form Designer generierter Code "
Public Sub New()
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Beschreibung As System.Windows.Forms.Label
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents partnerlist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmPartnerlisteLaden))
Dim GridLines1 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.partnerlist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.Beschreibung = New System.Windows.Forms.Label()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.Panel1.SuspendLayout()
CType(Me.partnerlist, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.SystemColors.Control
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.Panel1.Controls.AddRange(New System.Windows.Forms.Control() {Me.partnerlist})
Me.Panel1.Location = New System.Drawing.Point(8, 8)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(416, 136)
Me.Panel1.TabIndex = 49
'
'partnerlist
'
Me.partnerlist.AllowFilter = True
Me.partnerlist.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
Me.partnerlist.AllowSort = True
Me.partnerlist.AlternatingRows = True
Me.partnerlist.CaptionHeight = 17
Me.partnerlist.CollapseColor = System.Drawing.Color.Black
Me.partnerlist.Cursor = System.Windows.Forms.Cursors.Default
Me.partnerlist.DataChanged = False
Me.partnerlist.DeadAreaBackColor = System.Drawing.Color.Empty
Me.partnerlist.Dock = System.Windows.Forms.DockStyle.Fill
Me.partnerlist.ExpandColor = System.Drawing.Color.Black
Me.partnerlist.FetchRowStyles = True
Me.partnerlist.FilterBar = True
Me.partnerlist.GroupByCaption = "Drag a column header here to group by that column"
Me.partnerlist.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
Me.partnerlist.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
Me.partnerlist.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
Me.partnerlist.Name = "partnerlist"
Me.partnerlist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.partnerlist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.partnerlist.PreviewInfo.ZoomFactor = 75
Me.partnerlist.PrintInfo.ShowOptionsDialog = False
Me.partnerlist.RecordSelectorWidth = 16
GridLines1.Color = System.Drawing.Color.DarkGray
GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
Me.partnerlist.RowDivider = GridLines1
Me.partnerlist.RowHeight = 15
Me.partnerlist.RowSubDividerColor = System.Drawing.Color.DarkGray
Me.partnerlist.ScrollTips = True
Me.partnerlist.Size = New System.Drawing.Size(412, 132)
Me.partnerlist.TabIndex = 28
Me.partnerlist.Text = "C1TrueDBGrid1"
Me.partnerlist.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
"r""><Data>Style11{}Style12{}Style13{}Style5{}Style4{}Style7{}Style6{}EvenRow{Back" & _
"Color:White;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Heading{Wrap:" & _
"True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:" & _
"Control;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Filte" & _
"rBar{BackColor:255, 255, 192;}OddRow{BackColor:224, 224, 224;}Footer{}Caption{Al" & _
"ignHorz:Center;}Style27{}Normal{BackColor:Control;}Style26{}HighlightRow{ForeCol" & _
"or:HighlightText;BackColor:Highlight;}Style10{AlignHorz:Near;}Editor{}RecordSele" & _
"ctor{AlignImage:Center;}Style9{}Style8{}Style3{}Style2{}Group{BackColor:ControlD" & _
"ark;Border:None,,0, 0, 0, 0;AlignVert:Center;}Style1{}</Data></Styles><Splits><C" & _
"1.Win.C1TrueDBGrid.MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""1" & _
"7"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FetchRowStyles=""True"" Filter" & _
"Bar=""True"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecSelWid" & _
"th=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 408," & _
" 128</ClientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Heading"" me=""St" & _
"yle10"" /><EditorStyle parent=""Editor"" me=""Style2"" /><EvenRowStyle parent=""EvenRo" & _
"w"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style27"" /><FooterStyle " & _
"parent=""Footer"" me=""Style4"" /><GroupStyle parent=""Group"" me=""Style12"" /><Heading" & _
"Style parent=""Heading"" me=""Style3"" /><HighLightRowStyle parent=""HighlightRow"" me" & _
"=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style6"" /><OddRowStyle parent=""" & _
"OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" " & _
"/><SelectedStyle parent=""Selected"" me=""Style5"" /><Style parent=""Normal"" me=""Styl" & _
"e1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=" & _
"""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Foo" & _
"ter"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inacti" & _
"ve"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" " & _
"/><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow""" & _
" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelect" & _
"or"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group""" & _
" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Mod" & _
"ified</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 408, " & _
"128</ClientArea></Blob>"
'
'Beschreibung
'
Me.Beschreibung.Location = New System.Drawing.Point(8, 152)
Me.Beschreibung.Name = "Beschreibung"
Me.Beschreibung.Size = New System.Drawing.Size(80, 16)
Me.Beschreibung.TabIndex = 50
Me.Beschreibung.Text = "Beschreibung"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(88, 152)
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(336, 80)
Me.TextBox1.TabIndex = 51
Me.TextBox1.Text = ""
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(8, 248)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(80, 23)
Me.Button1.TabIndex = 52
Me.Button1.Text = "Abbruch"
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(344, 248)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(80, 23)
Me.Button2.TabIndex = 53
Me.Button2.Text = "Übernehmen"
'
'frmPartnerlisteLaden
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(432, 277)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button2, Me.Button1, Me.TextBox1, Me.Beschreibung, Me.Panel1})
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmPartnerlisteLaden"
Me.Text = "Partnerliste laden"
Me.Panel1.ResumeLayout(False)
CType(Me.partnerlist, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
Dim m_partnerlistenr As Integer
Property PartnerListeNr() As Integer
Get
Return m_partnerlistenr
End Get
Set(ByVal Value As Integer)
m_partnerlistenr = Value
End Set
End Property
Private Sub frmPartnerlisteLaden_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim dt As New DataTable()
dt = Load_Partnerlisten()
If dt.Rows.Count = 0 Then Me.Button2.Enabled = False
Me.partnerlist.DataSource = dt
Me.partnerlist.DataMember = dt.TableName
Me.partnerlist.Splits(0).DisplayColumns(3).Visible = False
Me.partnerlist.Bookmark = 0
Me.partnerlist.Splits(0).DisplayColumns("Nr").Visible = False
Me.partnerlist.Splits(0).DisplayColumns("Bezeichnung").AutoSize()
Me.partnerlist.Splits(0).DisplayColumns("Zuständig").AutoSize()
End Sub
Private Function Load_Partnerlisten() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim i As Integer
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.CommandText = "dbo.sp_edex_sb_get_partnerlisten"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn.scoDBConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@manr", SqlDbType.Int, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
Throw New Exception("dbo.sp_edex_sb_get_partnerlisten::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Private Sub partnerlist_RowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles partnerlist.RowColChange
Me.TextBox1.Text = Me.partnerlist.Columns(3).Text
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.PartnerListeNr = Me.partnerlist.Columns(0).Text
Me.DialogResult = DialogResult.OK
Me.Close()
End Sub
Public Function Load_Partnerlist() As String
Dim dokumentname = Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + Me.PartnerListeNr.ToString + "_Partnerlist.xml"
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("Select * From edex_sb_partnerliste where partnerlistenr=" + Me.PartnerListeNr.ToString, connection)
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
Dim ds As New DataSet()
Try
'Connectionstring zur Datenbank
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.Fill(ds, "docs")
Dim myRow As DataRow
myRow = ds.Tables(0).Rows(0)
Dim MyData() As Byte
MyData = myRow.Item(9)
Dim K As Long
K = UBound(MyData)
Dim fs As New FileStream(dokumentname, FileMode.OpenOrCreate, FileAccess.Write)
fs.Write(MyData, 0, K)
fs.Close()
fs = Nothing
Return dokumentname
Catch ex As Exception
Return ""
End Try
CB = Nothing
ds = Nothing
da = Nothing
connection.Close()
connection = Nothing
Return True
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.DialogResult = DialogResult.Abort
Me.Close()
End Sub
End Class

View File

@@ -0,0 +1,172 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
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">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</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.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:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<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" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</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>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="Label1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="TextBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="TextBox2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="RadioButton5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="RadioButton4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="RadioButton3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="RadioButton2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="RadioButton1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="RadioButton6.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ComboBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="$this.Name">
<value>frmPartnerlisteSpeichern</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAEAAAAAAAAAAAAAAAEAAAAA
AAAAAAAAgACAAIAAAACAgAAAAIAAAACAgAAAAIAAwMDAAMDcwADwyqYAgICAAP8A/wD/AAAA//8AAAD/
AAAA//8AAAD/AP///wDw+/8ApKCgANTw/wCx4v8AjtT/AGvG/wBIuP8AJar/AACq/wAAktwAAHq5AABi
lgAASnMAADJQANTj/wCxx/8Ajqv/AGuP/wBIc/8AJVf/AABV/wAASdwAAD25AAAxlgAAJXMAABlQANTU
/wCxsf8Ajo7/AGtr/wBISP8AJSX/AAAA/wAAANwAAAC5AAAAlgAAAHMAAABQAOPU/wDHsf8Aq47/AI9r
/wBzSP8AVyX/AFUA/wBJANwAPQC5ADEAlgAlAHMAGQBQAPDU/wDisf8A1I7/AMZr/wC4SP8AqiX/AKoA
/wCSANwAegC5AGIAlgBKAHMAMgBQAP/U/wD/sf8A/47/AP9r/wD/SP8A/yX/AP8A/wDcANwAuQC5AJYA
lgBzAHMAUABQAP/U8AD/seIA/47UAP9rxgD/SLgA/yWqAP8AqgDcAJIAuQB6AJYAYgBzAEoAUAAyAP/U
4wDdpsIA/46rAP9rjwD/SHMA/yVXAP8AVQDcAEkAuQA9AJYAMQBzACUAUAAZAP/U1AD/sbEA/46OAP9r
awD/SEgA/yUlAP8AAADcAAAAuQAAAJYAAABzAAAAUAAAAP/j1AD/x7EA/6uOAP+PawD/c0gA/1clAP9V
AADcSQAAuT0AAJYxAABzJQAAUBkAAP/w1AD/4rEA/9SOAP/GawD/uEgA/6olAP+qAADckgAAuXoAAJZi
AABzSgAAUDIAAP//1AD//7EA//+OAP//awD//0gA//8lAP//AADc3AAAubkAAJaWAABzcwAAUFAAAPD/
1ADi/7EA1P+OAMb/awC4/0gAqv8lAKr/AACS3AAAerkAAGKWAABKcwAAMlAAAOP/1ADH/7EAq/+OAI//
awBz/0gAV/8lAFX/AABJ3AAAPbkAADGWAAAxlwAAGVAAANT/1ACx/7EAjv+OAGv/awBI/0gAJf8lAAD/
AAAA3AAAALkAAACWAAAAcwAAAFAAANT/4wCx/8cAjv+rAGv/jwBI/3MAJf9XAAD/VQAA3EkAALk9AACW
MQAAcyUAAFAZANT/8ACx/+IAjv/UAGv/xgBI/7gAJf+qAAD/qgAA3JIAALl6AACWYgAAc0oAAFAyANT/
/wCx//8Ajv//AGv//wBI//8AJf//AAD//wAA3NwAALm5AACWlgAAc3MAAFBQAPLy8gDm5uYA2traAM7O
zgDCwsIAtra2AKqqqgCenp4AkpKSAIaGhgB6enoAbm5uAGJiYgBWVlYASkpKAD4+PgAyMjIAJiYmABoa
GgAODg4AAAAAAAAAAAAAAAAAAAAAAAAABegF6AXoBegFAAAAAAAADwAF6AXoBegF6AUAAAAAABEAAAXo
BegF6AXoBQAAAAAAAAAABegF6AXoBegFAAAABwcREQAAAAAAAAAAAAAAAAcHABEREREAaQAAAAAAAAAH
BwAREQAAaQAAAAAxMTEABwcHABERAGlpaQAAMTEAAAAHBwcHBwBpaWkAADEAMQAAAAAAAABpAGlpAAAA
ADEAAAAAaWlpaQBpAAAAAAAxAAAAAGlpaWlpaQAAAAAxAAAAAAAAAAAAAAAAADExAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAf//8AD///AAf//wAD//8AAf//AAD//wAf//8AGP//AAn//4AK
///ADv//4B7//+Ad///gE/////////////8=
</value>
</data>
</root>

View File

@@ -0,0 +1,326 @@
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports System.IO
Public Class frmPartnerlisteSpeichern
Inherits System.Windows.Forms.Form
#Region " Vom Windows Form Designer generierter Code "
Public Sub New()
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents RadioButton5 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton4 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents RadioButton6 As System.Windows.Forms.RadioButton
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmPartnerlisteSpeichern))
Me.Label1 = New System.Windows.Forms.Label()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.RadioButton5 = New System.Windows.Forms.RadioButton()
Me.RadioButton4 = New System.Windows.Forms.RadioButton()
Me.RadioButton3 = New System.Windows.Forms.RadioButton()
Me.RadioButton2 = New System.Windows.Forms.RadioButton()
Me.RadioButton1 = New System.Windows.Forms.RadioButton()
Me.Label3 = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
Me.RadioButton6 = New System.Windows.Forms.RadioButton()
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(8, 16)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(56, 23)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Name"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(96, 16)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(240, 20)
Me.TextBox1.TabIndex = 1
Me.TextBox1.Text = ""
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(8, 272)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(72, 24)
Me.Button1.TabIndex = 8
Me.Button1.Text = "Abbruch"
'
'TextBox2
'
Me.TextBox2.Location = New System.Drawing.Point(96, 40)
Me.TextBox2.Multiline = True
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(240, 96)
Me.TextBox2.TabIndex = 9
Me.TextBox2.Text = ""
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(8, 40)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(80, 23)
Me.Label2.TabIndex = 10
Me.Label2.Text = "Beschreibung"
'
'RadioButton5
'
Me.RadioButton5.Location = New System.Drawing.Point(96, 210)
Me.RadioButton5.Name = "RadioButton5"
Me.RadioButton5.Size = New System.Drawing.Size(80, 24)
Me.RadioButton5.TabIndex = 16
Me.RadioButton5.Text = "Persönlich"
'
'RadioButton4
'
Me.RadioButton4.Location = New System.Drawing.Point(96, 194)
Me.RadioButton4.Name = "RadioButton4"
Me.RadioButton4.Size = New System.Drawing.Size(176, 24)
Me.RadioButton4.TabIndex = 15
Me.RadioButton4.Text = "Team"
'
'RadioButton3
'
Me.RadioButton3.Location = New System.Drawing.Point(96, 178)
Me.RadioButton3.Name = "RadioButton3"
Me.RadioButton3.Size = New System.Drawing.Size(176, 24)
Me.RadioButton3.TabIndex = 14
Me.RadioButton3.Text = "Kostenstelle"
'
'RadioButton2
'
Me.RadioButton2.Location = New System.Drawing.Point(96, 160)
Me.RadioButton2.Name = "RadioButton2"
Me.RadioButton2.Size = New System.Drawing.Size(176, 24)
Me.RadioButton2.TabIndex = 13
Me.RadioButton2.Text = "Niederlassung"
'
'RadioButton1
'
Me.RadioButton1.Location = New System.Drawing.Point(96, 144)
Me.RadioButton1.Name = "RadioButton1"
Me.RadioButton1.Size = New System.Drawing.Size(176, 24)
Me.RadioButton1.TabIndex = 12
Me.RadioButton1.Text = "Marktbereich"
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(8, 144)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(80, 32)
Me.Label3.TabIndex = 17
Me.Label3.Text = "Verwendung durch"
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(264, 272)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(72, 24)
Me.Button2.TabIndex = 18
Me.Button2.Text = "Speichern"
'
'RadioButton6
'
Me.RadioButton6.Location = New System.Drawing.Point(96, 226)
Me.RadioButton6.Name = "RadioButton6"
Me.RadioButton6.Size = New System.Drawing.Size(80, 24)
Me.RadioButton6.TabIndex = 19
Me.RadioButton6.Text = "Funktion"
'
'ComboBox1
'
Me.ComboBox1.Location = New System.Drawing.Point(176, 228)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(160, 21)
Me.ComboBox1.TabIndex = 20
'
'frmPartnerlisteSpeichern
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(344, 301)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.RadioButton2, Me.ComboBox1, Me.RadioButton6, Me.Button2, Me.Label3, Me.RadioButton5, Me.RadioButton4, Me.RadioButton3, Me.RadioButton1, Me.Label2, Me.TextBox2, Me.Button1, Me.TextBox1, Me.Label1})
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmPartnerlisteSpeichern"
Me.Text = "Partnerliste speichern"
Me.ResumeLayout(False)
End Sub
#End Region
Dim empfaenger As New DataTable()
Dim dsempfaenger As New DataSet()
Dim mcbfunktionen As New MultiComboBox()
Public Sub New(ByVal dt As DataTable)
MyBase.New()
InitializeComponent()
empfaenger = dt.Copy
End Sub
Private Sub frmPartnerlisteSpeichern_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.RadioButton1.Checked = True
Me.ComboBox1.Enabled = False
Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
mcbfunktionen = New MultiComboBox(Me.ComboBox1)
mcbfunktionen.DisplayColumnName = "Bezeichnung"
mcbfunktionen.ValueColumnName = "funktionsgruppenr"
mcbfunktionen.CheckNullValue = False
Dim dt As New DataTable()
dt = load_funktionen()
mcbfunktionen.Fill_Data(dt, True)
mcbfunktionen.SelectedIndex = 0
mcbfunktionen.Visible = True
End Sub
Private Function load_funktionen() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim i As Integer
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.CommandText = "dbo.sp_edex_sb_get_funktionen"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn.scoDBConnection
Try
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
Throw New Exception("dbo.sp_edex_sb_get_funktionen::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Me.TextBox1.Text = "" Then
MyMsg.show_standardmessage(714, MsgBoxStyle.Critical)
Exit Sub
End If
Dim pl As New edokadb.clsEdex_sb_partnerliste()
pl.cpMainConnectionProvider = Globals.conn
pl.sBezeichnung = New SqlString(CType(Me.TextBox1.Text, String))
pl.sBeschreibung = New SqlString(CType(Me.TextBox2.Text, String))
Dim i As Integer
If Me.RadioButton1.Checked Then i = 1
If Me.RadioButton2.Checked Then i = 2
If Me.RadioButton3.Checked Then i = 3
If Me.RadioButton4.Checked Then i = 4
If Me.RadioButton5.Checked Then i = 5
If Me.RadioButton6.Checked Then i = 6
If Me.RadioButton6.Checked Then
pl.iVerwendungcd = New SqlInt32(CType(Me.mcbfunktionen.SelectedValue, Int32))
Else
pl.iVerwendungcd = New SqlInt32(CType(0, Int32))
End If
pl.iVerwendung = New SqlInt32(CType(i, Int32))
pl.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
pl.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
pl.bAktiv = New SqlBoolean(CType(True, Boolean))
pl.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
Globals.conn.OpenConnection()
pl.Insert()
Globals.conn.CloseConnection(True)
save_partner(pl.iPartnerlistenr.Value)
Me.Close()
End Sub
Private Function save_partner(ByVal partnerlistnr As Integer) As Boolean
Try
Dim i As Integer
While empfaenger.Columns.Count > 11
empfaenger.Columns.RemoveAt(empfaenger.Columns.Count - 1)
End While
Dim dokumentname = Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + partnerlistnr.ToString + "_Partnerlist.xml"
Me.dsempfaenger.Tables.Add(Me.empfaenger.Copy)
Me.dsempfaenger.WriteXml(dokumentname)
Dim Connection As New SqlConnection()
Dim DA As New SqlDataAdapter("select * from edex_sb_partnerliste where partnerlistenr=" + partnerlistnr.ToString, Connection)
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
Dim ds As New DataSet()
Dim fs As New FileStream(dokumentname, FileMode.Open, FileAccess.Read)
Dim mydata(fs.Length) As Byte
Try
fs.Read(mydata, 0, fs.Length)
fs.Close()
Connection.ConnectionString = Globals.sConnectionString
Connection.Open()
DA.Fill(ds, "empf")
Dim myRow As DataRow
myRow = ds.Tables(0).Rows(0)
myRow.Item(9) = mydata
DA.Update(ds, "empf")
Catch ex As Exception
MyMsg.show_standardmessage(715, MsgBoxStyle.Critical)
Return False
End Try
fs = Nothing
cb = Nothing
ds = Nothing
DA = Nothing
File.Delete(dokumentname)
Connection.Close()
Connection = Nothing
Return True
Catch EX As Exception
MyMsg.show_standardmessage(715, MsgBoxStyle.Critical)
Return False
End Try
End Function
Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged
If Me.RadioButton6.Checked = True Then Me.mcbfunktionen.Enabled = True Else Me.mcbfunktionen.Enabled = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
End Class

View File

@@ -0,0 +1,751 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
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">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</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.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:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<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" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</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>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="ToolBar1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBarButton1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBarButton2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBarButton3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>21, 14</value>
</data>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuMzMw
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
AABeIQAAAk1TRnQBSQFMAgEBHQEAASIBAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
AAEoAwABQAMAAZADAAEBAQABCAYAASQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8AUwAB
/zUAAf9AAAH/BwAB/zcAAf8GAAH/OQAB/wUAAf86AAH/AwAB/z4AAf8+AAH/QAAB/zwAAf8CAAH/OwAB
/wUAAf84AAH/BwAB/zUAAf8KAAH/8wABAwEwAQMBMAEDATABAwEwAQMLAAn/DgAB/gH8BgAJIAMAAfsB
AAEDATABAwEwAQMBMAEDATABAwoACf8NAAH+AvwFAAEgB/kBIAH5ASACAAH/AfsBAAEDATABAwEwAQMB
MAEDATABAwkAAv8BAAQHAv8MAAH+AvwGAAEgAvkF9gH5AiACAAH7Af8B+wEAAQMBMAEDATABAwEwAQMB
MAEDCAAC/wIABf8LAAH+AvwHAAEgAfkC9gP5AvYB+QEgAgAB/wH7Af8B+wwABOwBAAL/AwAE/wIAA+wB
AAUGAQAB/AUAA+wBIAH5AfYC+QH2AvkB9gH5ASAGAAH7Af8B+wH/AfsMAAL/AQAB+wHsAQABBwL/BQAB
BwH+Af8C/gIGCQABIAH5AfYC+QH2AvkB9gH5ASABAAHsA/8BAAH/AfsB/wH7Af8GAAHsA/8CAAL/AQAB
+wEHAQAD/wEAAewC/wEAAf4B/wH+Af8C/gEGBQAB7AP/ASAB+QH2AvkB9gL5AfYB+QEgAQAB7AP/CAAD
HwEAAewD/wIAA/8BAAH7AewBAAL/AQAB7AL/AQABBwH+AQcB/gH/Af4BBgUAAewD/wEgAfkC9gP5AvYB
+QEgAQAB7AP/AQAB/wYAAh8CAAHsA/8CAAL/AQcBAAH7AQcBAAL/AQAB7AL/AQAB/gH/Af4B/wH+Af8B
BgUAAewD/wEgAeMB+QX2AvkBIAEAAewD/wEAAf8GAAEfAQABHwEAAewD/wIABP8BAAH7AewBAAH/AQAB
7AL/AQABBwH+AQcB/gEHAf4BBgUAAewD/wEgAfkB4wf5ASABAAXsAf8BAAH/BwABHwXsAQAE/wEAAfsC
AAH/AQAE7AEAAf8B/gH/Af4B/wYABewJIAQAAewD/wEAAf8HAAEfAgAB7AL/BwACAQQAAewC/w0AAewD
/wEAAf8KAAXsAf8HAAEfAgAF7AH/CgAF7AH/CgAF7AH/DAAB7AP/BgABHwUAAewD/wwAAewD/wwAAewD
/wwABewLAAXsCwAF7AsABexpAAEDATABAwEwAQMBMAEDATABAxgABewZAAH7AQABAwEwAQMBMAEDATAB
AwEwAQMRAAH5FwAF7AcAAf8B+wEAAQMBMAEDATABAwEwAQMBMAEDBgABIA4AAewD/wEAA+wXAAH7Af8B
+wEAAQMBMAEDATABAwEwAQMBMAEDBAAC+QEgBwABIAUAAewD/woAASABAAEgAQACIAL/AQAD7AUAAf8B
+wH/AfsNAAL5ASAD7AMAASAGAAEHA/YBAAH/AQAD7AgAAewD/w0AAfsB/wH7Af8B+wkAA/kEAAEgAfkG
AAEHA/8B7AH/CgABIAEAAiAC/wEAAf8BAAPsAgAB7AP/AQAB/wH7Af8B+wH/AgABSAUAAewB/wL5ASAC
7AL5BQAB+wHsAQcE7AH/AQAB/woAAewD/wEAAf8GAAHsA/8JAAFIBAAB7AL/BfkHAAH7AewBBwHsA/8B
AAH/BgABIAEAASABAAIgA+wB/wEAAf8EAAHsA/8BAAH/BwABSAQAAewD/wP5A+wEAALsAwcE7AH/DAAB
7AP/AQAB/wQAAewD/wEAAf8HAAFIBAAB7AL/BfkGAAP7AQcB+wEHAvsC/wgAASABAAIgBewB/wQABewB
/wEAAf8CAAFIAQABSAUAAuwD+QH/AQAB+QcAAfsB7AH7AewB+wHsAQAD7A0AAewD/wYAAewD/wEAAf8C
AAJIBgAE+QL/AQAB/wL5BAAB+wHsAQAB+wHsAQAB+wHsCAABIAEAASABAAIgAgAF7AUABewB/wIAA0gE
AAT5BOwB/wEAAvkGAAH7AewCAAH7HAAB7AP/CQAC+QMAAewD/wIAAvkFAAH7AewfAAXsDQAF7AgABycP
AAQgBwAB+wEAAfsB7AEAAfsKAAH7AQAB+wHsAQAB+wH5AgAB+QUAAScCLQH/Ai0BJwS2CgADIAL/AfkG
AAHsAvsB7AH7AewEtgYAAewC+wHsAfsB7AEAAv8GAAEnAi0B9gItAScCtgwAAiAC/wT8BQAB7AH7AQcB
7AEHArYJAAHsAfsBBwHsAQcC/wcAAScB/wP2Af8BJwG2AQACtgQAAjQCAAE0AQACIAH/ASAD/AMABPsB
BwPsAbYBAAK2BAAE+wEHA+wBAAP/BQABJwItAfYCLQEnBLYGAAL/AwADIAH8Af8C/AIABOwC+wLyBLYE
AATsAvsC8gT/BQABJwItAf8CLQEnA7YGAAL/AgAB3QQgAv8C/AQAAewB+wEHAewB+wEHA7YHAAHsAfsB
BwHsAfsBBwEABP8EAAcnBbYFAAP/AwAB/AL/A/wEAAH7AewB+wHsAfsBBwW2BQAB+wHsAfsB7AH7AQcB
AAL/AwAB7AP/BAAHtgIAAgcE/wEAAt0BAAT8AQAB7AP/AgAB7AEAAgcFtgEAAewD/wIAAewBAAMHAQAC
/wIAAewD/wQABLYBAAK2AgACBwEABP8BAAHdBgAB7AP/BAAEtgEAArYBAAHsA/8FAAUHAgAB7AP/AQAB
/wIABLYBAAG2AwACBwEAAv8CAAHdBwAB7AP/AQAB/wIABLYBAAG2AgAB7AP/AQAB/woAAewD/wEAAf8C
AAa2AwADBwEAAv8BAAPdBQAB7AP/AQAB/wIABrYCAAHsA/8BAAH/CgAF7AH/DAAFBwEAA90FAAXsAf8K
AAXsAf8BAAH/CgAB7AP/AQAB/w8AAd0BAALdBwAB7AP/AQAB/woAAewD/wEAAf8KAAXsAf8MAATdAQAB
3QgABewB/woABewB/wwAAewD/wwABt0KAAHsA/8MAAHsA/8MAAXsGwAF7AsABexVAAH/BQALLQgAAewB
BwHsGgAB/w8AAS0J/wEtBgAB7AMHA+wZAAH/BwAB/wYAAS0D/wEtBf8BLQMAAuwFBwXsCAABAwEAAfsB
AAEDCgAB/wYAAf8HAAEtAv8DLQT/AS0DAAHsAf8EBwH/BuwGAAEDBfsBAwoAAf8FAAH/BAAD7AEtAf8F
LQP/AS0CAALsAf8CBwL/AwcE7AIAA+wCAwH7AQMBAAEDAfsMAAH/AwAB/wgAAS0B/wItAf8DLQL/AS0D
AAHsAf8CBwL6AvkDBwLsBQABAwL7AQAB7AEAAvsBAw0AAf8FAAHsA/8BLQH/AS0D/wMtAf8BLQEAAewC
/wLsAf8FBwLsAQABBwEAAewD/wIDAfsBAwEAAQMB+w4AAf8GAAHsA/8BLQb/Ai0B/wEtAQAB7AP/AQAC
7AH/AQcC7AEHAf8BAAEHAQAB7AP/AQABAwX7AQMOAAH/BQAB7AP/AS0H/wEtAf8BLQEAAewD/wEAAf8B
AALsAQcE/wIAAewD/wEAAgMBAAH7AQABAwwAAf8CAAH/BQAB7AP/AS0J/wEtAQAB7AP/AQAB/wIAAewG
/wEAAewD/wEAAf8BAAQDCwAB/wUAAf8DAATsCy0BAAXsAf8BAAH/AQAB7AP/AuwBAAXsAf8BAAH/DQAB
/wcAAf8EAAHsA/8BAAH/CgAB7AP/AQAB/wIAA+wFAAHsA/8BAAH/CwAB/woAAf8DAAXsAf8KAAXsAf8K
AAXsAf8cAAHsA/8MAAHsA/8EAAH/BwAB7AP/HAAF7AsABewLAAXsFwAQNyAHBgAF7AUAEDcDBwsPEgcE
AAHsBPkDAAPsAQABNwFRCwMBMAI3AwcBAAm8AQACBwsABQcDAAb5AwAC7AIAATcBFQEPBEoBAwFtAQMD
SgEpATABNwMHAQAJ/wEAAgcCAAkDAQAEBwIAAvkGAAL5AQAC7AEAATcBDgHsAesEeQFYBHkBSgEDATcD
BwEACf8BAAIHAQAB+wEACQMBAAMHAgAB+QHsBgAD+QEAAewBAAE3AQ8BWAEpA3kBXgGZAV4EeQEUATAD
BwEACf8BAAIHAQAB/wH7AQAJAwEAAgcBAAL5AewGAAH5AQAB+QEAAewBAAE3ARABoAEwAQMBeQFeAZkB
XgGZAV4CeQFYASIBMAMHAQAJ/wEAAgcBAAH7Af8B+wEACQMBAAEHAQAB+QLsCAAC+QHsAQABNwEiAV4B
kgFtAVgBmQFeAQcBXgGZAVgCeQFeASIDBwEACf8BAAIHAQAB/wH7Af8B+wwAAfkC7AgAAvkB7AEAATcB
EAGgAeUB7QEPARABIgEQARwBWAJ5AVgBHAEQAwcBAAn/AQACBwEAAfsB/wH7Af8B+wH/AfsB/wH7AQAF
BwEAAfkBAAHsAQAB7AYAAvkB7AEAATcBDwHlAqAB5QGgAeUBwwEUASIBFQEiAQ4BIgEwAwcBAAn/AQAC
BwEAAf8B+wH/AfsB/wH7Af8B+wH/AQAFBwEAAfkBAAPsBgAC+QIAATcBDwGgAeUCoAHlAaAB5QGgAeUB
oAFRAQMCNwMHAQAG/wPvAQACBwEAAfsB/wH7BwAFBwEAAvkBAALsBgAB+QHsAgABNwEPBKABHAEDAewB
AwHrAVEBSgEwAjcDBwEABv8BAAEUAQABQwMHAwAIBwMAAQcCAAL5AwAE7AH5BAABNwEDAeoESgUDATAD
NwMHAQAG/wEAAbwBEBAHAgABBwEAA/kDAALsAvkFAAI3BAMKNwMHAQAG8QEAAQ8MBwEAAwcBAAEHAQAB
BwUABfkGABA3AwcIDg4HAwAEBxAAEDcgBxQAAQcCAAEHAQABBwEAAQcCAAEHBQABBwIAAQcBAAEHAQAB
BwIAAQcBAAHsAwABBwIAAQcBAAEHAQABBwIAAQcVAAEHAgABBwEAAQcBAAEHAgABBwUAAQcCAAEHAQAB
BwEAAQcCAAEHAQAB7AQHAgABBwEAAQcBAAEHAgABBxUAAQcCAAEHAQABBwEAAQcCAAEHBQABBwIAAQcB
AAEHAQABBwIAAQcBAAHsA/8BBwIAAQcBAAEHAQABBwIAAQcBAAoCBgAKAgcAAfwBAAH8AQAB/AEAAfwB
AAH8BgAB7AH/BAcB/wMHAf8BBwQAAQII/wECBgABAgj/AQIGAAH8CP8HAAHsCv8BBwQAAQIB/wgCBgAB
AgH/CAIHAAH/AQAB/AH/AfwBAAL/AfwGAAHsAf8EBwH/AwcB/wEHBAABAgH/AwIBBwQCBgABAgH/AwIB
BwQCBJgCAAH8Af8B/AEAAQcBAAH8AQcB/wEABNYCAAHsCv8BBwQAAQIC/wECAQcDAgH/AQIGAAECAv8B
AgEHAwIB/wECA/8BmAMAAf8BAAH8AQAB/AEAAfwB/wH8A/8B1gIAAewB/wgHAf8BBwQAAQIB/wECAQcD
AgL/AQIGAAECAf8BAgEHAwIC/wECBJgCAAH8Af8B/AH/AfwBAAH/AQABBwEAAdYC/wHWAgAB7Ar/AQcE
AAECAf8BBwUCAf8BAgYAAQIB/wEHBQIB/wECBJgDAAH8AQAB/wEAAfwB/wH8AQAB/AHWAQcB/wHWAgAB
7AH/AgcB/wUHAf8BBwQAAQIB/wICAv8CAgH/AQIGAAECAf8CAgL/AgIB/wECApgB/wGYAgAB/AEAAfwB
AAH8AQAB/AEAAfwBAALWAf8B1gIAAewK/wEHBAABAgj/AQIGAAECCP8BAgGYAv8BmAMACP8B/AH/AdYB
BwHWAgAB7AH/AgcB/wUHAf8BBwQACgIGAAoCApgB/wGYAgAB/AEAAfwBAAH8AQAB/AEAAfwBAAH/A9YC
AAHsCP8bAAGYAf8CmAL/ApgB/wGYBgAK1gIAAewB/wYHAf8B7AH/GQABmAj/AZgGAAHWCP8B1gIAAewI
/wHsGgAKmAYACtYCAArsFgAQAiYAAQMB/wgAAgINAAECJAAB7AEDAewB/wgAAQIBAAIDBgACBwEAAQMB
AAECIgABAwHsAQMB7AEDAf8IAAECAQACAwYAAgcBAAEDAQABAgEAAfwBAAH8AQAB/AEAAfwBAAH8BwAB
/AEAAfwBAAH8AQAB/AEAAfwHAAEDAewBAwHsAQMB7AH/AQAB7AYAAQIBAAIDBgACBwEAAQMBAAECAfwI
/wcAAfwI/wgAAewBAwHsAQMB7AEDAf8BAAHsBgABAgEAAgMJAAEDAQABAgEAAf8BAAH8Af8B/AEAAv8B
/AcAAf8BAAH8Af8B/AEAAv8B/AcAAQMB7AEDAgAB7AH/AQAB7AYAAQIBAAwDAQABAgH8Af8B/AEAAQcB
AAH8AQcB/wcAAfwB/wH8AQABBwEAAfwBBwH/AQAE1gMAAewBAwHsAgcBAwH/AQAB7AEAAQYEAAECAQAC
AwgAAgMBAAECAQAB/wEAAfwBAAH8AQAB/AH/AfwHAAH/AQAB/AEAAfwBAAH8Af8B/AP/AdYDAAEDAewB
AwHsAQMB7AH/AgABBgX+AQIBAAEDAQAIBwEAAQMBAAECAfwB/wH8Af8B/AEAAf8BAAEHBwAB/AH/AfwB
/wH8AQAB/wEAAQcBAAHWAv8B1gMAAewBAwHsAQMB7AEDAf8BAAFtBv4BAgEAAQMBAAgHAQABAwEAAQIB
AAH8AQAB/wEAAfwB/wH8AQAB/AcAAfwBAAH/AQAB/AH/AfwBAAH8AdYBBwH/AdYDAAEDAewBAwHsAQMB
7AH/AQAB7AFtAf4EbQECAQABAwEACAcBAAEDAQABAgH8AQAB/AEAAfwBAAH8AQAB/AcAAfwBAAH8AQAB
/AEAAfwBAAH8AQAC1gH/AdYDAAHsAQMB7AEDAewBAwH/AQAB7AEAAm0DAAECAQABAwEACAcBAAEDAQAB
AgEACP8B/AcACP8B/AH/AdYBBwHWAwABAwHsAQMB7AEHAf8B7AEAAewCAAFtAwABAgEAAQMBAAgHAwAB
AgH8AQAB/AEAAfwBAAH8AQAB/AcAAfwBAAH8AQAB/AEAAfwBAAH8AQAB/wPWAwAB7AEDAQcB/wHsAQAD
7AYAAQIBAAEDAQAIBwEAAQcBAAECFAAK1gMAAQcB/wHsAQAF7AYAAQIOAAECFAAB1gj/AdYSABACFAAK
1gIAAUIBTQE+BwABPgMAASgDAAFAAwABkAMAAQEBAAEBBQABgAEEFgAD/4EAAv8GAAH/AfkGAAHnAf8G
AAHDAfMGAAHDAecGAAHhAccGAAHwAY8GAAH4AR8GAAH8AT8GAAH4AR8GAAHwAZ8GAAHBAccGAAGDAeMG
AAGPAfEGAAL/BgAC/wcAAR8B+AEAAf8B+QL/AQABDwH4AQAB/wHwAfgBAwEAAQcB+AEAAf8B4AHwAQEB
AAEDAfgBAAH/AcEB8AEBAQABAQH4AQAB+AEDAfABAQIAAYABAAGAAQcBgAEBAQABHwMAAQ8BAAEBAQAB
HwMAAQ8BAAEBAQABEQMAAQ8BAAIBAfMDAAEPAQABAQEAAXUDAAEPAQABAQEAAX4DAAEfAQABAwHAAX4B
wAEAAcABPwHAAX8BwAF+AcABYwHAAX8BwAF/AfABfQHwAX8B8AF/AfABfwHwAX8B8AF/AfABfwHwAX8E
/wEAAR8G/wEAAQ8C/wHgA/8BAAEHAf8B+wHBAf8B+AE/AQABAwHvAf8BwAE/AfABfwEAAQEBxwH3AcAB
fwFQAQ8CAAHAAe8BwAEPAfABHwEAAR8BwQHPAcABHwHQAQMBAAEXAcABHwEAAR8B8AEHAQABGwHAAT8B
gAEfAVABBwEBAfsBwAEPAQABHwH8AQcBAAF7AcABHwEAAR8B0AEHAQABVwHAAR8BgQEfAf8BBwHAAU8B
wAEPASQB/wFTAQcBwAFHAYABBwHmA/8B8AF/AZwBEwHnA/8B8AF/AfwBHwHgAQEB/wGHAfQBAQH0AQEB
4AEBAf8BAwHwAQEB8AEDAeABAQH/AQAB+AEBAfgBAwHgAQEBgAEBAcABAQHAAQEB4AEBAcABgAHAAQEB
wAEBAeABAQHAAQAB8AEBAfADAAGABAABAQEGAgABAQEEAQABBAEBAwABHwIAAgEBAAEBAQABHwEAAgEB
gwEAAQEBAAEPAQABAQEAAX8BAAEBAYABDwEAAQEBAAF/AcABfwHAAQ8BwAF/AcABfwHAAX8B4AEfAcAB
fwHAAX8B8AF/AeABHwHwAX8B8AF/AfABfwHgAR8B8AF/AfABfwT/Af4BHwP/AfkB8AEBAfwBDwL/AecB
/wHwAQEB4AEDAf4BHwHDAfMB8AEBAcABAAH4AQcBwwHnAfABAQHAAQAB+AEDAeEBxwGAAQEBgAEAAYAB
AwHwAY8BAAEBAwABAwH4AR8BAAEBAwABAwH8AT8BAAEBAwABAwH4AR8BAAEBAQABAQEAAQcB8AGfAQAB
AQMAAR8BwQHHAQABAQEAAYEBAAF/AYMB4wHAAX8BwAHHAcABfwGPAfEBwAF/AcABfwHAAX8C/wHwAX8B
8AF3AfABfwL/AfABfwHwAX8B8AF/Av8GAAH8AR8GAAHwAXEGAAHgAXMGAAHPAckGAAHPAcUGAAGPAdUG
AAGPAfEGAAGPAfEGAAGrAfEGAAGjAfMGAAGTAfMGAAHOAQ8GAAGOAR8GAAH4AT8GAAL/BgAC/wHwAQAB
8AMAAv8B8AEAAfADAAL/AfABAAHwBAABPwEAAT8BAAE/AQABBwEAAT8BAAE/AQABPwEAAQcBAAE/AQAB
PwEAAT8BAAEHAQABPwEAAQMBAAEDAQABBwEAAT8BAAEDAQABAwEAAQcBAAE/AQABAwEAAQMBAAEHAQAB
PwEAAQMBAAEDAQABBwEAAT8BAAEDAQABAwEAAQcBAAE/AQABAwEAAQMBAAEHAQABPwEAAQMBAAEDAQAB
BwL/AfABAwHwAQMBAAEPAv8B8AEDAfABAwEAAR8C/wHwAQMB8AEDAQABPwH8AX8CAAT/AfABfwIABP8B
wAF/AgAE/wEAAR8DAAE/AQABPwEAAR8DAAE/AQABPwEAARcDAAE/AQABPwEAAQcDAAE/AQABAwUAAT8B
AAEDBQABPwEAAQMFAAE/AQABAwUAAT8BAAEDAQABBwMAAT8BAAEDAQABFwMAAT8BAAEDAQABHwIAAv8B
8AEDAQABHwIAAv8B8AEDAQABHwIAAv8B8AEDFgAL
</value>
</data>
<data name="GroupBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="RadioButton2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ComboBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="RadioButton6.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="RadioButton5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="RadioButton4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="RadioButton3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="RadioButton1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Panel1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ComboBox2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Partnerlist.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="resource.Images" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
RK5CYII=
</value>
</data>
<data name="C1CommandHolder1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>158, 23</value>
</data>
<data name="C1CommandHolder1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1ContextMenu1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>312, 23</value>
</data>
<data name="C1ContextMenu1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1CommandLink21.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="c1mnupartner1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="c1mnupartner1.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAKdJREFUOE+Vk9sV
gCAIQHXZhnAAd3Anh+m/DxMyQx6pnMOpSC5PvWMSYyzcFkLw3GZ+A4BKPSiAqjM4cgXQFoBHXgJMIr8Z
WE/ntJpJ5JJTVrWXtgsAR4D+AtpPPMQzoDY8NxmbWQLN4mvQUYmGar2QIwbn9Cg2sr0DlAJIiWynKOA6
TcDQxAFRASjVuStk0jIQDRQ7vZABnZC8E4s9+C3BmgKL3BfpBsVap3lXctUNAAAAAElFTkSuQmCC
</value>
</data>
<data name="C1CommandLink11.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainEmpfaengerBearbeiten.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1CommandLink12.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainEmfpaengerLoeschen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainDatei.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainNeuerSerienbrief.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainNew.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainNew.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAJZJREFUOE+tk0sO
gCAMRDk95+JI7l1UBxydkEIxStJYCfP6oaQkyyxZztl075XfA/AfAlQ08pchBCgIJdFcEA7TSinV57ft
t3WK/XJIh4imUeFPAUiLKQNAgUaeAnqxRqcwzABZtLqf1aU+7gE7WwH7dlut7GpeeBOAeLVfnY+HaQRY
iqxPQSLGNXtT1d//p4cVzv9fBw52ziDx4JP0LQAAAABJRU5ErkJggg==
</value>
</data>
<data name="C1MnuMainSerienbriefLaden.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainLoad.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainLoad.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAJ9JREFUOE+lkt0N
wCAIhHGm7tQhfPLJHZzWFv+KgJJYE2M03neH6ICNGGPmZ957x8+WewTQ8V4UQFWMQj4RNAD3laFPjaA5
qwCt5pWzAKAYU9BhOH8lUBGFmNG1ei1Ae7juTteKswC1jdC6WdepGyyVcOJi3O/+w+RELmslqGVNcdEp
BMgp7VeaaCQ4EeNzlASn4gL4Ix6ATe/lPyBtfABpHWvCAHLT1QAAAABJRU5ErkJggg==
</value>
</data>
<data name="C1MnuSerienbriefLoeschen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainSerienbriefLoeschen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainSerienbriefLoeschen.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAJhJREFUOE+tUoEN
wCAI07c9wOv2kxMnpKCwmM2EmFhoS2NOzqm1NguVUvK2vXc2KgSJAE/HBr7rlUcGaRiLiGh2O8yqDMo9
5cfgw7C4VOuwoiICZV7ByyypncEuKC+hLg5MamIb8/jiwJ0dgKww7V/9trnEDGZvGxoR2r+iCDksVLa/
kTDXBRJEVkOSEHwL4AQPszgh+qX3BuVQ5K56Me8SAAAAAElFTkSuQmCC
</value>
</data>
<data name="C1MnuMainSerienbriefabschliessen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainAbschluss.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainAbschluss.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAKhJREFUOE+dk1ES
gyAMROtlPQQH4HQepv9+pCwlzLoNiGUmozLZx5LE7SUr52y6l1LadG/4DQCvkvgDDMUQagD0CKAnLwGi
k49i+y76NfTOEBbfZvv+fQ4CeRUSAlx8vs00GnAOQJIL2QHtrQFcDKG8d0Brk7erFq8mByLeZ0Ctg8df
AJ6sC4BdSF0uDkIAC7gTNCPhSHcHk/6jFkMHoN5N4VS8/Nu2xA/QiaNhiP0CAQAAAABJRU5ErkJggg==
</value>
</data>
<data name="C1MnuMainSerienbriefSpeichern.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainSave.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainSave.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAJRJREFUOE+lU1sO
gCAMg2vzxRd34LRIeQmdI6gkZGGh7VrUGlohhMQ955zlnnoGwbzyRUEIcOQ+gLxBpBEIkiflI4Kd8jEB
e56AwkL3PjJ4OzqAS4BK6l2Za0l/IdEmyPk3Z7XuXkOoMRjnLUGVuhXbZc2GsCXA3mef0aRdnScaXtF8
C8YXWSb4Ci4Ef8CD4DA48RdfEExrwmxzL9QAAAAASUVORK5CYII=
</value>
</data>
<data name="C1MnuMainFensterSchliessen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainClose.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainClose.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAALBJREFUOE+Vk1ES
gCAIRO2ynsMvz+XNrMW2EEzNGcap4LWLeIQQ6hW76xgl1lJKxco5Aya7jdmPJDmlMAVNASgmBPtIEQEx
Rme5K9Yw2KIl7CgeAqwCPmuAFF4vCNGwpQIWA+AC0lYKxH9KvrhZ9A1EEwG1PRBImxsdvQJ+xGk4wFvY
zdOyBxywu8of46oHBuCmWfyMILSgPE/vzDM0dg52bxrzHkVKwV+G5HdH9UU4ARvjbvL2kifRAAAAAElF
TkSuQmCC
</value>
</data>
<data name="MnuMainDokument.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainVorlageImportieren.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainVorlageImportieren.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainVorlageBearbeiten.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainVorageBearbeiten.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainVorageBearbeiten.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAKhJREFUOE+dk0sO
gCAMRPXarFxxLm6mDlgcyxSNJE34tG9aCuviRs5593sppdXvhWsAeJyOA1AGI9AbQA5g6xHKylcQO/f5
dmYE6z5KGYd+tL07sGcX1BwCrkuu5zWLN0AppTpC/Z43/ieAOQLA6p8BkTp3SN62XYIBTB1l8Fl9E74T
3AVuqepM9CK9ytAV8cgerAcAabMNJYg0pOKvEmak2UeTnVF/5AC+u/ttX9vfwQAAAABJRU5ErkJggg==
</value>
</data>
<data name="C1CommandLink1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="c1mnumainpreview.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="c1mnumainpreview.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAJFJREFUOE/Nk0EK
wCAMBPXbnjz5Ln/WdlMjYTUlpZcKIoo7m5iYE43W2sFnpZTMZ+4eADuuiwtwK4aQJ0CvAOo8RCp+hrAr
xOI8aHP1UrE5Q9x7FzGvqdZ9JAxYnDWSKICdNZ1PESAqF8AvrhFMZxV7KaApbCUEiMs8pQrxvuAekMrc
gDiEO/aXkOBH2/y+2ZUnTEkz2abejZIAAAAASUVORK5CYII=
</value>
</data>
<data name="MnuMainVorschauErstellen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainVorschauErstellen.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAJFJREFUOE/Nk0EK
wCAMBPXbnjz5Ln/WdlMjYTUlpZcKIoo7m5iYE43W2sFnpZTMZ+4eADuuiwtwK4aQJ0CvAOo8RCp+hrAr
xOI8aHP1UrE5Q9x7FzGvqdZ9JAxYnDWSKICdNZ1PESAqF8AvrhFMZxV7KaApbCUEiMs8pQrxvuAekMrc
gDiEO/aXkOBH2/y+2ZUnTEkz2abejZIAAAAASUVORK5CYII=
</value>
</data>
<data name="MnuMainDokumenteGenerieren.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainDokumenteGenerieren.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAJBJREFUOE+9UzES
wCAI0287OfltazyxGKXaDvWOQY4kENQ7OimlzLkQgueceQeBPqVwIlyCAeQA0SsCVj4ieFI+JrCUY3RZ
hzk7EwgI8xcXqg/INT9GU1euoxhAjiUJE4g6wAIQQtXB0IVurYJEGYD2sHpOdXFbojfxpYPJ3FceGG+6
z7/dwuaTDP4cf6hfCy8QlCaM9ek25gAAAABJRU5ErkJggg==
</value>
</data>
<data name="MnuMainDokumenteDrucken.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainDokumenteDrucken.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAALNJREFUOE+NU9EV
xCAMuq7tAM7lZneSE0tp0tf0+WEaCEQ9Pha996/nWmuH58o9CDRm4YUQ/1IwgL5WcQ7IpHtn7abkF+xT
ZxK4LWKCKPMs0sNWFTGfJwJ2GmPcOPZwMwICgQLYiQBG/qbAgSjSJd5PgiVleyVguotvtolVEe1B0goL
aToDqpJ9pE6gRNlRryt/XjIdVOXdLtN/iBaRRGElnTN787g2kch99y6EnTJTuaj7AWA972ww0yDcAAAA
AElFTkSuQmCC
</value>
</data>
<data name="MnuMainDokumenteBestaetigen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainDokumenteBestaetigen.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAJFJREFUOE+dk4EN
wCAIBHVtB3CHTtuK6Rt4xaAkJtXAwQPNiazW+vJbKSXzm3sXgLbmOAGXwRLIR0BHAM4cAnDW9LSSo0e0
TJpbcMR6khuABHZpNwBICwGQCXJ0XwzgHxPG1UsbDvStoUMC+oBpMIAzm4qWG6Wm4AWzBMuhMXIvjirY
7YPpgSkhuoXYg/Bv6jh+RHTaM2dhDaMAAAAASUVORK5CYII=
</value>
</data>
<data name="MnuMainEmpfaengerliste.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainImportEmpfaneger.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainImportEmpfaenger.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainExportEmpfaenger.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainExportEmpfaenger.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainLoadPartnerliste.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainLoadPartnerliste.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainSaveAsPartnerlist.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainSaveAsPartnerlist.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainAddEDOKAHOSTPartner.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainAddEDOKAHOSTPartner.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAKdJREFUOE+Vk9sV
gCAIQHXZhnAAd3Anh+m/DxMyQx6pnMOpSC5PvWMSYyzcFkLw3GZ+A4BKPSiAqjM4cgXQFoBHXgJMIr8Z
WE/ntJpJ5JJTVrWXtgsAR4D+AtpPPMQzoDY8NxmbWQLN4mvQUYmGar2QIwbn9Cg2sr0DlAJIiWynKOA6
TcDQxAFRASjVuStk0jIQDRQ7vZABnZC8E4s9+C3BmgKL3BfpBsVap3lXctUNAAAAAElFTkSuQmCC
</value>
</data>
<data name="MnuMainNeuerEDOKAPartnerErfassen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainNeuerEDOKAPartnerErfassen.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAALRJREFUOE+VU4sV
hCAMK2szADvcNgzgFgzC2Z7RUIucvtcH1iZNPyZxTymle1/OOXnf9F0J+NkDb4QhWIHelOgVgc/8F8Ei
MxTMTpGoZsrct88W2lnaWwIFKukjwfHRgrwC9lncbGzHPvRaq1lUClQMDdoHZ+Pkc0Uw7AXACuI7K6AS
L+x9icRUtNbMol4MmTWYDQpAjM6D6HFDfRncA57Q9J+AEm7msgSwKVjvmIJdf77I5AvHEcnm6xxCUAAA
AABJRU5ErkJggg==
</value>
</data>
<data name="MnuMainNeuerEmpfaengerErfassen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainNeuerEmpfaengerErfassen.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAKpJREFUOE+VUwES
gCAIq2/7AN/lX3xINW1FE6y441TOjQm4LmI5501jKaVVY+EZBNaOiwOhCwZQHUS/CDTzJ4JZ5s8Ek8zv
T/CK5mQmkV17LYOq28xbKWXwq7hR2855eAABotnuPOQdjWvttCsUOGB/PggGyO4tgaei1cI6FMBrrc3V
hgEjgCsVkFQVTCdUnwEykR3/D4K1mFEHho8FIIIk6EAcW7x3494vOw2kowGY+y+7AAAAAElFTkSuQmCC
</value>
</data>
<data name="C1CommandMenu1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainAddColumn.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainAddColumn.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainDeleteColumn.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainDeleteColumn.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainRenameColumn.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainRenameColumn.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainSpaltenselektion.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainSpaltenselektion.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainCheckEmpfaenger.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainCheckEmpfaenger.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAKRJREFUOE+VkwEO
gCAIRfNM3X/zAN6J+hnywchiY8OQ5wetbN4krOOyLPKbtCaPfhau4Bd7KtZvXwA4wTnUMPQNIrXWyaOi
DOAKsUntNyAWh/7TIQ4FDIgqPvU/tN/BPEAMld1exZg+Q/ytWCaFsOxxOt4Gue1RJUFFhCDNAL0kU9EB
srfuKltjLQYYcSY//UcYAIgHXC/13Z76B2VV5/IM6W2YHQ5jfmWIXHaLAAAAAElFTkSuQmCC
</value>
</data>
<data name="mnuctAddHost.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="mnuctAddHost.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAKdJREFUOE+Vk9sV
gCAIQHXZhnAAd3Anh+m/DxMyQx6pnMOpSC5PvWMSYyzcFkLw3GZ+A4BKPSiAqjM4cgXQFoBHXgJMIr8Z
WE/ntJpJ5JJTVrWXtgsAR4D+AtpPPMQzoDY8NxmbWQLN4mvQUYmGar2QIwbn9Cg2sr0DlAJIiWynKOA6
TcDQxAFRASjVuStk0jIQDRQ7vZABnZC8E4s9+C3BmgKL3BfpBsVap3lXctUNAAAAAElFTkSuQmCC
</value>
</data>
<data name="mnuCTADDEdokapartner.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="mnuCTADDEdokapartner.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAALRJREFUOE+VU4sV
hCAMK2szADvcNgzgFgzC2Z7RUIucvtcH1iZNPyZxTymle1/OOXnf9F0J+NkDb4QhWIHelOgVgc/8F8Ei
MxTMTpGoZsrct88W2lnaWwIFKukjwfHRgrwC9lncbGzHPvRaq1lUClQMDdoHZ+Pkc0Uw7AXACuI7K6AS
L+x9icRUtNbMol4MmTWYDQpAjM6D6HFDfRncA57Q9J+AEm7msgSwKVjvmIJdf77I5AvHEcnm6xxCUAAA
AABJRU5ErkJggg==
</value>
</data>
<data name="mnuctaddempfaenger.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="mnuctaddempfaenger.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAKpJREFUOE+VUwES
gCAIq2/7AN/lX3xINW1FE6y441TOjQm4LmI5501jKaVVY+EZBNaOiwOhCwZQHUS/CDTzJ4JZ5s8Ek8zv
T/CK5mQmkV17LYOq28xbKWXwq7hR2855eAABotnuPOQdjWvttCsUOGB/PggGyO4tgaei1cI6FMBrrc3V
hgEjgCsVkFQVTCdUnwEykR3/D4K1mFEHho8FIIIk6EAcW7x3494vOw2kowGY+y+7AAAAAElFTkSuQmCC
</value>
</data>
<data name="c1mnupartner2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="c1mnupartner2.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAALRJREFUOE+VU4sV
hCAMK2szADvcNgzgFgzC2Z7RUIucvtcH1iZNPyZxTymle1/OOXnf9F0J+NkDb4QhWIHelOgVgc/8F8Ei
MxTMTpGoZsrct88W2lnaWwIFKukjwfHRgrwC9lncbGzHPvRaq1lUClQMDdoHZ+Pkc0Uw7AXACuI7K6AS
L+x9icRUtNbMol4MmTWYDQpAjM6D6HFDfRncA57Q9J+AEm7msgSwKVjvmIJdf77I5AvHEcnm6xxCUAAA
AABJRU5ErkJggg==
</value>
</data>
<data name="c1mnupartner3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="c1mnupartner3.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAKpJREFUOE+VUwES
gCAIq2/7AN/lX3xINW1FE6y441TOjQm4LmI5501jKaVVY+EZBNaOiwOhCwZQHUS/CDTzJ4JZ5s8Ek8zv
T/CK5mQmkV17LYOq28xbKWXwq7hR2855eAABotnuPOQdjWvttCsUOGB/PggGyO4tgaei1cI6FMBrrc3V
hgEjgCsVkFQVTCdUnwEykR3/D4K1mFEHho8FIIIk6EAcW7x3494vOw2kowGY+y+7AAAAAElFTkSuQmCC
</value>
</data>
<data name="GroupBox3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="TextBox2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="BtnHelp.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="BtnHelp.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAGFJREFUOE9jYKAR
+A80Fxsmyrr/fz/yY2AkA/EaAteI7AKYgcQYAjYgJycH5nyYbWBxcg3A5ir83oDaBFJEsmZkkynSDLcd
S3gQFZWDwwCwK5AClGino8T9gIYBxV4gys8An8SDS+5ffSIAAAAASUVORK5CYII=
</value>
</data>
<data name="$this.Name">
<value>frmPartnerlisteVerwalten</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAEAAAAAAAAAAAAAAAEAAAAA
AAAAAAAAgACAAIAAAACAgAAAAIAAAACAgAAAAIAAwMDAAMDcwADwyqYAgICAAP8A/wD/AAAA//8AAAD/
AAAA//8AAAD/AP///wDw+/8ApKCgANTw/wCx4v8AjtT/AGvG/wBIuP8AJar/AACq/wAAktwAAHq5AABi
lgAASnMAADJQANTj/wCxx/8Ajqv/AGuP/wBIc/8AJVf/AABV/wAASdwAAD25AAAxlgAAJXMAABlQANTU
/wCxsf8Ajo7/AGtr/wBISP8AJSX/AAAA/wAAANwAAAC5AAAAlgAAAHMAAABQAOPU/wDHsf8Aq47/AI9r
/wBzSP8AVyX/AFUA/wBJANwAPQC5ADEAlgAlAHMAGQBQAPDU/wDisf8A1I7/AMZr/wC4SP8AqiX/AKoA
/wCSANwAegC5AGIAlgBKAHMAMgBQAP/U/wD/sf8A/47/AP9r/wD/SP8A/yX/AP8A/wDcANwAuQC5AJYA
lgBzAHMAUABQAP/U8AD/seIA/47UAP9rxgD/SLgA/yWqAP8AqgDcAJIAuQB6AJYAYgBzAEoAUAAyAP/U
4wDdpsIA/46rAP9rjwD/SHMA/yVXAP8AVQDcAEkAuQA9AJYAMQBzACUAUAAZAP/U1AD/sbEA/46OAP9r
awD/SEgA/yUlAP8AAADcAAAAuQAAAJYAAABzAAAAUAAAAP/j1AD/x7EA/6uOAP+PawD/c0gA/1clAP9V
AADcSQAAuT0AAJYxAABzJQAAUBkAAP/w1AD/4rEA/9SOAP/GawD/uEgA/6olAP+qAADckgAAuXoAAJZi
AABzSgAAUDIAAP//1AD//7EA//+OAP//awD//0gA//8lAP//AADc3AAAubkAAJaWAABzcwAAUFAAAPD/
1ADi/7EA1P+OAMb/awC4/0gAqv8lAKr/AACS3AAAerkAAGKWAABKcwAAMlAAAOP/1ADH/7EAq/+OAI//
awBz/0gAV/8lAFX/AABJ3AAAPbkAADGWAAAlcwAAGVAAANT/1ACx/7EAjv+OAGv/awBI/0gAJf8lAAD/
AAAA3AAAALkAAACWAAAAcwAAAFAAANT/4wCx/8cAjv+rAGv/jwBI/3MAJf9XAAD/VQAA3EkAALk9AACW
MQAAcyUAAFAZANT/8ACx/+IAjv/UAGv/xgBI/7gAJf+qAAD/qgAA3JIAALl6AACWYgAAc0oAAFAyANT/
/wCx//8Ajv//AGv//wBI//8AJf//AAD//wAA3NwAALm5AACWlgAAc3MAAFBQAPLy8gDm5uYA2traAM7O
zgDCwsIAtra2AKqqqgCenp4AkpKSAIaGhgB6enoAbm5uAGJiYgBWVlYASkpKAD4+PgAyMjIAJiYmABoa
GgAODg4AAAAAAAAAAAAAAAAAAAAAAAAABegF6AXoBegFAAAAAAAADwAF6AXoBegF6AUAAAAAABEPAAXo
BegF6AXoBQAAAAAPEQ8ABegF6AXoBegFAAAAEQ8AAAAAAAAAAAAAAAAAAA8ABwcRERERAGlpAAAAAAAR
AAcHABEREREAaQAAAAAAAAAHBwAREQAAaQAAAAAAAAAABwcHABERAGlpaQAAAAAAAAAHBwcHBwBpaWkA
AAAAAAAAAAAAAABpAGlpAAAAAAAAAAAAaWlpaQBpAAAAAAAAAAAAAGlpaWlpaQAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAf//8AD///AAf//wAD//8AAf//AAD//wAH//8AB///AAf//8AD
///gA///8AP///gH///4B///+Af///////8=
</value>
</data>
</root>

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,181 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
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">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</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.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:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<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" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</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>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="contextMenu.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>123, 17</value>
</data>
<data name="contextMenu.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MenuItem13.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="StatusBar1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="addressBar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</data>
<data name="Panel1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="PictureBox2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="PictureBox2.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAVpJREFUWEfFl2sO
hDAIhPXmHs2buVKXLqW0MGwTTfzVx3xMweK+Ac9xHNds+j2+A9vFppIov+d5XqOHxuTc2O6TWRHRCEwK
hMRn0Q5tUAPsCgRB4qufG2CaOxXQE6eI7r3M13PMhYiKSyENk4aInDmL6ePRELPjexw0jsOLnjYdCSEA
zz5bKdfm3D3rRgBWTngJzC5UiEj0tKkUY2A0eoZrXIgC6Mh09F7kcpwBigtZABk9Ii7zYAlAJH/6ynkS
cQkAGr3pQCaKjPAvmYUDVI9oHlgVEQWSCdiUIuJCtvzkN6DmAH+REBeyAGb06q4OOZk5Ai0+a+9CEMgk
RJwNWdYRZcQrBC1GkpNdEddu06h6XXXXun0X8B0+hZGiVtSwuKwOUTJDmJFoV25Qhyomy56fnRndcEv/
DyxgDyAbZGZdNaG54zM7/bGmQLwJQOyvA5QbdVnGZ48jA/ABQB/NVGTmD6kAAAAASUVORK5CYII=
</value>
</data>
<data name="Button2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="webOCWrapper.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="$this.Name">
<value>frmSBPDFPrinter</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAEAAAAAAAAAAAAAAAEAAAAA
AAAAAAAAgACAAIAAAACAgAAAAIAAAACAgAAAAIAAwMDAAMDcwADwyqYAgICAAP8A/wD/AAAA//8AAAD/
AAAA//8AAAD/AP///wDw+/8ApKCgANTw/wCx4v8AjtT/AGvG/wBIuP8AJar/AACq/wAAktwAAHq5AABi
lgAASnMAADJQANTj/wCxx/8Ajqv/AGuP/wBIc/8AJVf/AABV/wAASdwAAD25AAAxlgAAJXMAABlQANTU
/wCxsf8Ajo7/AGtr/wBISP8AJSX/AAAA/wAAANwAAAC5AAAAlgAAAHMAAABQAOPU/wDHsf8Aq47/AI9r
/wBzSP8AVyX/AFUA/wBJANwAPQC5ADEAlgAlAHMAGQBQAPDU/wDisf8A1I7/AMZr/wC4SP8AqiX/AKoA
/wCSANwAegC5AGIAlgBKAHMAMgBQAP/U/wD/sf8A/47/AP9r/wD/SP8A/yX/AP8A/wDcANwAuQC5AJYA
lgBzAHMAUABQAP/U8AD/seIA/47UAP9rxgD/SLgA/yWqAP8AqgDcAJIAuQB6AJYAYgBzAEoAUAAyAP/U
4wD/sccA/46rAP9rjwD/SHMA/yVXAP8AVQDcAEkAuQA9AJYAMQBzACUAUAAZAP/U1AD/sbEA/46OAP9r
awD/SEgA/yUlAP8AAADcAAAAuQAAAJYAAABzAAAAUAAAAP/j1AD/x7EA/6uOAP+PawD/c0gA/1clAP9V
AADcSQAAuT0AAJYxAABzJQAAUBkAAP/w1AD/4rEA/9SOAP/GawD/uEgA/6olAP+qAADckgAAuXoAAJZi
AABzSgAAUDIAAP//1AD//7EA//+OAP//awD//0gA//8lAP//AADc3AAAubkAAJaWAABzcwAAUFAAAPD/
1ADi/7EA1P+OAMb/awC4/0gAqv8lAKr/AACS3AAAerkAAGKWAABKcwAAMlAAAOP/1ADH/7EAq/+OAI//
awBz/0gAV/8lAFX/AABJ3AAAPbkAADGWAAAlcwAAGVAAANT/1ACx/7EAjv+OAGv/awBI/0gAJf8lAAD/
AAAA3AAAALkAAACWAAAAcwAAAFAAANT/4wCx/8cAjv+rAGv/jwBI/3MAJf9XAAD/VQAA3EkAALk9AACW
MQAAcyUAAFAZANT/8ACx/+IAjv/UAGv/xgBI/7gAJf+qAAD/qgAA3JIAALl6AACWYgAAc0oAAFAyANT/
/wCx//8Ajv//AGv//wBI//8AJf//AAD//wAA3NwAALm5AACWlgAAc3MAAFBQAPLy8gDm5uYA2traAM7O
zgDCwsIAtra2AKqqqgCenp4AkpKSAIaGhgB6enoAbm5uAGJiYgBWVlYASkpKAD4+PgAyMjIAJiYmABoa
GgAODg4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKBwoAAAAAAAAAAAAAAAoHBwcKCgoAAAAAAAAKCgcH
BwcHCgoKCgoAAAAAChEHBwcHEQoKCgoKCgAACgoRBwcREQcHBwoKCgoAAAAKEQcHDg4QEAcHBwoKAAoR
EQoKEQcHBwcHCgoABwAKERERAAoKEQcKCgcRAAcAChEREQARAAoKBxEREREAAAoREREAEQAAChERERER
EQAKCgoKChEAEQAKERERCgoAAAAKERERABEAAAoKCgAAAAAACgoKCgoRAAAAAAAAAAAAAAAAChEREQAA
AAARAAAAAAAAAAoKCgoKAAAAAAAAAP4f///8D///4AP//8AA///AAP//gAD//wAA//8AAP//AAD//wAB
//8AAP//AIH//8DH///Af///8Hf///B///8=
</value>
</data>
</root>

View File

@@ -0,0 +1,328 @@
Imports System.Resources
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports System.Runtime.InteropServices
Imports System.IO
Public Class frmSBPDFPrinter
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents MenuItem13 As System.Windows.Forms.MenuItem
Friend Shadows WithEvents contextMenu As System.Windows.Forms.ContextMenu
Friend WithEvents StatusBar1 As System.Windows.Forms.StatusBar
Friend WithEvents addressBar As System.Windows.Forms.ComboBox
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents webOCWrapper As WebOCHostCtrl
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmSBPDFPrinter))
Me.contextMenu = New System.Windows.Forms.ContextMenu()
Me.MenuItem13 = New System.Windows.Forms.MenuItem()
Me.StatusBar1 = New System.Windows.Forms.StatusBar()
Me.addressBar = New System.Windows.Forms.ComboBox()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.Panel1 = New System.Windows.Forms.Panel()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.Button2 = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.webOCWrapper = New EDOKAApp.WebOCHostCtrl()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'contextMenu
'
Me.contextMenu.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem13})
'
'MenuItem13
'
Me.MenuItem13.Index = 0
Me.MenuItem13.Text = "Print..."
'
'StatusBar1
'
Me.StatusBar1.Anchor = ((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right)
Me.StatusBar1.Dock = System.Windows.Forms.DockStyle.None
Me.StatusBar1.Location = New System.Drawing.Point(0, 405)
Me.StatusBar1.Name = "StatusBar1"
Me.StatusBar1.Size = New System.Drawing.Size(624, 24)
Me.StatusBar1.TabIndex = 1
'
'addressBar
'
Me.addressBar.Location = New System.Drawing.Point(16, 56)
Me.addressBar.Name = "addressBar"
Me.addressBar.Size = New System.Drawing.Size(352, 21)
Me.addressBar.Sorted = True
Me.addressBar.TabIndex = 3
Me.addressBar.Visible = False
'
'ImageList1
'
Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
'
'Panel1
'
Me.Panel1.Controls.AddRange(New System.Windows.Forms.Control() {Me.PictureBox2, Me.Button2, Me.Label1, Me.Button1})
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(368, 176)
Me.Panel1.TabIndex = 10
'
'PictureBox2
'
Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Bitmap)
Me.PictureBox2.Location = New System.Drawing.Point(16, 8)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(40, 50)
Me.PictureBox2.TabIndex = 15
Me.PictureBox2.TabStop = False
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(160, 88)
Me.Button2.Name = "Button2"
Me.Button2.TabIndex = 3
Me.Button2.Text = "&Nein"
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(56, 16)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(264, 48)
Me.Label1.TabIndex = 2
Me.Label1.Text = "Sind die Dokumente des Druckstapels erfolgreich gedruckt worden?"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(240, 88)
Me.Button1.Name = "Button1"
Me.Button1.TabIndex = 1
Me.Button1.Text = "&Ja"
'
'webOCWrapper
'
Me.webOCWrapper.BrowserContextMenu = False
Me.webOCWrapper.Dock = System.Windows.Forms.DockStyle.Fill
Me.webOCWrapper.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.webOCWrapper.Name = "webOCWrapper"
Me.webOCWrapper.Size = New System.Drawing.Size(320, 125)
Me.webOCWrapper.TabIndex = 11
Me.webOCWrapper.TabStop = False
'
'frmSBPDFPrinter
'
Me.AutoScale = False
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(320, 125)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Panel1, Me.StatusBar1, Me.addressBar, Me.webOCWrapper})
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmSBPDFPrinter"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Serienbriefe drucken"
Me.Panel1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Dim m_druckjobnr As Integer
Public Event PrintDOne()
Private Sub delay(ByVal seconds As Integer)
Me.Cursor = Cursors.WaitCursor
Dim starttime As DateTime = DateTime.Now
Do
Application.DoEvents()
Loop While DateTime.Now.Subtract(starttime).TotalSeconds < seconds
Me.Cursor = Cursors.Default
End Sub
Public Sub PrintPDF()
delay(2)
'----------------------------
' Taskforce Korrektur
' BUD - 21.03.2006
'----------------------------
'webOCWrapper.Print(doUI:=True)
Dim objpdf As New clsPDF_print_show()
objpdf.PrintPDF(addressBar.Text, clsPDF_print_show.Enum_Art.Drucken)
'MsgBox(MyTxt.gettext(618), MsgBoxStyle.Information, "Banklagernd Druck")
'----------------------------
Me.Button1.Enabled = True
Application.DoEvents()
Dim i As Integer
End Sub
Dim m_showdoc As Boolean = True
Public Sub New(ByVal druckjobnr As Integer, ByVal ShowDoc As Boolean)
MyBase.New()
InitializeComponent()
Me.m_showdoc = ShowDoc
Me.m_druckjobnr = druckjobnr
End Sub
Private Sub frmPDFPrinter_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Get_Druckjob()
If Me.m_showdoc = True Then
Me.Width = Me.Width * 2.5
Me.Height = Me.Height * 3.5
Me.Panel1.Visible = False
webOCWrapper.Navigate(addressBar.Text)
Else
'----------------------------
' Taskforce Korrektur
' BUD - 21.03.2006
'----------------------------
'webOCWrapper.Navigate(addressBar.Text)
'----------------------------
End If
End Sub
''SHU Mehrfachdruck
'Public Sub Prepare_Form()
' Get_Druckjob()
' If Me.m_showdoc = True Then
' Me.Width = Me.Width * 2.5
' Me.Height = Me.Height * 3.5
' Me.Panel1.Visible = False
' webOCWrapper.Navigate(addressBar.Text)
' Else
' webOCWrapper.Navigate(addressBar.Text)
' End If
'End Sub
''Ende SHU Mehrfachdruck
Private Sub inetOptionsMI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
webOCWrapper.InternetOptions()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.DialogResult = DialogResult.Yes
Me.Close()
End Sub
Private Function Get_Druckjob()
Try
''Test BUD
'If m_mitPfadNormal = True Then
' Dim dokumentname2 = m_Pfad
' Me.addressBar.Text = dokumentname2
' Return True
' Exit Function
'End If
Dim dokumentname = Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + Me.m_druckjobnr.ToString + "_empfaenger.pdf"
Dim Connection As New SqlConnection()
Dim DA As New SqlDataAdapter("select * from edex_sb_druckjob where druckjobnr=" + Me.m_druckjobnr.ToString, Connection)
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
Dim ds As New DataSet()
Try
Connection.ConnectionString = Globals.sConnectionString
Connection.Open()
DA.Fill(ds, "empf")
Dim myRow As DataRow
If ds.Tables(0).Rows.Count = 0 Then
MyMsg.show_standardmessage(716, MsgBoxStyle.Critical)
Return False
Else
myRow = ds.Tables(0).Rows(0)
Dim MyData() As Byte
MyData = myRow.Item(6)
Dim K As Long
K = UBound(MyData)
Dim fs As New FileStream(dokumentname, FileMode.OpenOrCreate, FileAccess.Write)
fs.Write(MyData, 0, K)
fs.Close()
fs = Nothing
Me.addressBar.Text = dokumentname
End If
Catch ex As Exception
MyMsg.show_standardmessage(716, MsgBoxStyle.Critical)
' MsgBox(ex.Message)
Return False
End Try
cb = Nothing
ds = Nothing
DA = Nothing
Connection.Close()
Connection = Nothing
Return True
Catch EX As Exception
MyMsg.show_standardmessage(716, MsgBoxStyle.Critical)
Return False
End Try
End Function
Private Sub frmSBPDFPrinter_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
Me.Hide()
If Me.DialogResult = DialogResult.Yes Then RaiseEvent PrintDOne()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.DialogResult = DialogResult.No
Me.Close()
End Sub
'#Region " Test "
' Dim m_Pfad As String
' Property prop_Pfad() As String
' Get
' Return m_Pfad
' End Get
' Set(ByVal Value As String)
' m_Pfad = Value
' End Set
' End Property
' Dim m_mitPfadNormal As Boolean = False
' Property prop_mitPfadNormal() As Boolean
' Get
' Return m_mitPfadNormal
' End Get
' Set(ByVal Value As Boolean)
' m_mitPfadNormal = Value
' End Set
' End Property
'#End Region
End Class

View File

@@ -0,0 +1,213 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
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">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</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.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:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<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" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</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>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="ListBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ListBox2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBar1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBarButton1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</data>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuMzMw
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
AACSCQAAAk1TRnQBSQFMAgEBBQEAAQkBAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
AAEoAwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8A/wD/
AP8A/wAZACAHFgABAwH/CAAgBxQAAewBAwHsAf8IACAHEgABAwHsAQMB7AEDAf8IAAUHAewB9xIHAe8B
kgLsAwcRAAEDAewBAwHsAQMB7AH/AQAB7AYABQcBDgHrAewQBwHsAesBEgEAAewDBxEAAewBAwHsAQMB
7AEDAf8BAAHsBgAFBwIAARAC7AGSCwcB7QHsARABDgIAAewDBxEAAQMB7AEDAgAB7AH/AQAB7AYABQcE
AAFDAeoKBwHsARIFAAHsAwcRAAHsAQMB7AIHAQMB/wEAAewBAAEGBAAFBwcACAcBbQcAAewDBxEAAQMB
7AEDAewBAwHsAf8CAAEGBf4FBwUAAQ8B7AgHAZIBbQYAAewDBxEAAewBAwHsAQMB7AEDAf8BAAFtBv4F
BwMAAUMB7A0HAUMEAAHsAwcRAAEDAewBAwHsAQMB7AH/AQAB7AFtAf4EbQUHAgAB7xAHAe8BFQIAAewD
BxEAAewBAwHsAQMB7AEDAf8BAAHsAQACbQMABQcBbRQHAe8BbQQHEQABAwHsAQMB7AEHAf8B7AEAAewC
AAFtAwAgBxEAAewBAwEHAf8B7AEAA+wGACAHEQABBwH/AewBAAXsBgAgByAAIAcQAAFCAU0BPgcAAT4D
AAEoAwABQAMAATADAAEBAQABAQUAAYABARYAA/+BAAL/BgAC/wYAAv8GAAH8Af8GAAH+AT8GAAH+AQ8G
AAGAAQMOAAGAAQEGAAH+AQcGAAH+AR8GAAH8AX8GAAH9Af8GAAL/BgAC/wYAAv8GAAH8AX8EAAL/AfAB
fwQAAv8BwAF/BAAC/wEAAR8EAAH/AT8BAAEfBAAB/AF/AQABFwQAAfABfwEAAQcEAAHAAQEOAAGAAQEG
AAHgAX8GAAH4AX8BAAEHBAAB/gE/AQABFwQAAf8BvwEAAR8EAAL/AQABHwQAAv8BAAEfBAAC/xYACw==
</value>
</data>
<data name="Label1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button1.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAEFJREFUOE9jYBjW
4D+lvgMZAMNkm4VsCFkuQjcAp4twKSQkDvYaIUWE5Mk2hKiAxWY7URphiiiKSorTAElOHTjFAFPjQr4E
+LFQAAAAAElFTkSuQmCC
</value>
</data>
<data name="Button2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button2.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAEVJREFUOE9jYBgx
4D+5PgVphGGSzEDWSJLt6BqJth2XRkLiYG8RUkRIHh42hBRik8casEQrJBQtZEchusFExwQhFw1SeQC/
d0K+0ZmoxwAAAABJRU5ErkJggg==
</value>
</data>
<data name="$this.Name">
<value>frmSpaltenDarstellung</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAICAEAAAAAADoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//
AAD///8AAAAAAAAAAAAAAAAAAAAAAAAAeIiIiIiIiIiIiIiAAAAAAH//////////////gAAAAAB/////
/////////4AAAAAAf/////////////+AAAAAAH/0RERERERERET/gAAAAAB//////////////4AAAAAA
f/////////////+AAAAAAH/0RERERERERET/gAAAAAB//////////////4AAAAAAf/////////////+A
AAAAAH/0RERERERERET/gAAAAAB//////////////4AAAAAAf/////////////+AAAAAAH/0RERERERE
RET/gAAAAAB//////////////4AAAAAAf/////////////+AAAAAAH/0RERERERERET/gAAAAAB/////
/////////4AAAAAAf/////////////+AAAAAAH/0RERERERERET/gAAAAAB//////////////4AAAAAA
f/////////////+AAAAAAH/0RERERERERET/gAAAAAB//////////////4AAAAAAf//////////wAAAA
AAAAAH/0RERERERE9/+HAAAAAAB///////////f4cAAAAAAAf//////////3hwAAAAAAAH//////////
93AAAAAAAAB///////////cAAAAAAAAAd3d3d3d3d3d3AAAAAADwAAAP8AAAD/AAAA/wAAAP8AAAD/AA
AA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AA
AA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAB/wAAA/8AAAf/AAAP/wAAH/8AAD/w==
</value>
</data>
</root>

View File

@@ -0,0 +1,189 @@
Public Class frmSBSpaltenDarstellung
Inherits System.Windows.Forms.Form
#Region " Vom Windows Form Designer generierter Code "
Public Sub New()
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
Friend WithEvents ListBox2 As System.Windows.Forms.ListBox
Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmSBSpaltenDarstellung))
Me.ListBox1 = New System.Windows.Forms.ListBox()
Me.ListBox2 = New System.Windows.Forms.ListBox()
Me.ToolBar1 = New System.Windows.Forms.ToolBar()
Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'ListBox1
'
Me.ListBox1.Location = New System.Drawing.Point(16, 56)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.SelectionMode = System.Windows.Forms.SelectionMode.MultiExtended
Me.ListBox1.Size = New System.Drawing.Size(184, 329)
Me.ListBox1.Sorted = True
Me.ListBox1.TabIndex = 0
'
'ListBox2
'
Me.ListBox2.Location = New System.Drawing.Point(232, 56)
Me.ListBox2.Name = "ListBox2"
Me.ListBox2.SelectionMode = System.Windows.Forms.SelectionMode.MultiExtended
Me.ListBox2.Size = New System.Drawing.Size(184, 329)
Me.ListBox2.Sorted = True
Me.ListBox2.TabIndex = 1
'
'ToolBar1
'
Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1})
Me.ToolBar1.DropDownArrows = True
Me.ToolBar1.ImageList = Me.ImageList1
Me.ToolBar1.Name = "ToolBar1"
Me.ToolBar1.ShowToolTips = True
Me.ToolBar1.Size = New System.Drawing.Size(432, 25)
Me.ToolBar1.TabIndex = 2
'
'ToolBarButton1
'
Me.ToolBarButton1.ImageIndex = 0
'
'ImageList1
'
Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(16, 40)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(144, 16)
Me.Label1.TabIndex = 3
Me.Label1.Text = "Vorhandene Spalten"
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(232, 40)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(144, 16)
Me.Label2.TabIndex = 4
Me.Label2.Text = "Anzuzeigende Spalten"
'
'Button1
'
Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Bitmap)
Me.Button1.ImageIndex = 4
Me.Button1.ImageList = Me.ImageList1
Me.Button1.Location = New System.Drawing.Point(200, 176)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(32, 32)
Me.Button1.TabIndex = 5
'
'Button2
'
Me.Button2.Image = CType(resources.GetObject("Button2.Image"), System.Drawing.Bitmap)
Me.Button2.ImageIndex = 3
Me.Button2.ImageList = Me.ImageList1
Me.Button2.Location = New System.Drawing.Point(200, 216)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(32, 32)
Me.Button2.TabIndex = 6
'
'frmSpaltenDarstellung
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(432, 397)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button2, Me.Button1, Me.Label2, Me.Label1, Me.ToolBar1, Me.ListBox2, Me.ListBox1})
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmSpaltenDarstellung"
Me.Text = "Spalten-Selektion"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub frmSpaltenDarstellung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
Dim i As Integer
Select Case ToolBar1.Buttons.IndexOf(e.Button)
Case 0 'close button
Me.Close()
Case Else
End Select
End Sub
Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
Dim i As Integer
For i = 0 To Me.ListBox1.SelectedItems.Count - 1
Me.ListBox2.Items.Add(Me.ListBox1.SelectedItems(i))
Next
For i = 0 To Me.ListBox1.SelectedItems.Count - 1
Me.ListBox1.Items.Remove(Me.ListBox1.SelectedItems(0))
Next
'Me.ListBox2.Items.Add(Me.ListBox1.SelectedI
'Me.ListBox1.Items.Remove(Me.ListBox1.SelectedItem)
End Sub
Private Sub ListBox2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox2.DoubleClick
Dim i As Integer
For i = 0 To Me.ListBox2.SelectedItems.Count - 1
Me.ListBox1.Items.Add(Me.ListBox2.SelectedItems(i))
Next
For i = 0 To Me.ListBox2.SelectedItems.Count - 1
Me.ListBox2.Items.Remove(Me.ListBox2.SelectedItems(0))
Next
'Me.ListBox1.Items.Add(Me.ListBox2.SelectedItem)
'Me.ListBox2.Items.Remove(Me.ListBox2.SelectedItem)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1_DoubleClick(sender, e)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox2_DoubleClick(sender, e)
End Sub
End Class

View File

@@ -0,0 +1,657 @@
<?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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ImageList4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>444, 71</value>
</metadata>
<data name="ImageList4.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABi
IQAAAk1TRnQBSQFMAgEBHQEAASwBAAEsAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAAYADAAEBAQABCAYAASAYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/4kAAhI+AAE4AhI9AAEH
ATgCEjwAAewBBwE4AhI8AAHsAQcBOAISOQAEEgEHATgCEjgAAewBBwU4AhI4AAHsAQcBOAISPAAB7AEH
ATgCEjsAAewBBwI4AhI7AAHsAQcCOAISOwAB7AEHAjgBEvIAAQMBMAEDATABAwEwAQMBMAEDCwAJ/w4A
Af4B/AYACSADAAH7AQABAwEwAQMBMAEDATABAwEwAQMKAAn/DQAB/gL8BQABIAf5ASAB+QEgAgAB/wH7
AQABAwEwAQMBMAEDATABAwEwAQMJAAL/AQAEBwL/DAAB/gL8BgABIAL5BfYB+QIgAgAB+wH/AfsBAAED
ATABAwEwAQMBMAEDATABAwgAAv8CAAX/CwAB/gL8BwABIAH5AvYD+QL2AfkBIAIAAf8B+wH/AfsMAATs
AQAC/wMABP8CAAPsAQAFBgEAAfwFAAPsASAB+QH2AvkB9gL5AfYB+QEgBgAB+wH/AfsB/wH7DAAC/wEA
AfsB7AEAAQcC/wUAAQcB/gH/Av4CBgkAASAB+QH2AvkB9gL5AfYB+QEgAQAB7AP/AQAB/wH7Af8B+wH/
BgAB7AP/AgAC/wEAAfsBBwEAA/8BAAHsAv8BAAH+Af8B/gH/Av4BBgUAAewD/wEgAfkB9gL5AfYC+QH2
AfkBIAEAAewD/wgAAx8BAAHsA/8CAAP/AQAB+wHsAQAC/wEAAewC/wEAAQcB/gEHAf4B/wH+AQYFAAHs
A/8BIAH5AvYD+QL2AfkBIAEAAewD/wEAAf8GAAIfAgAB7AP/AgAC/wEHAQAB+wEHAQAC/wEAAewC/wEA
Af4B/wH+Af8B/gH/AQYFAAHsA/8BIAHjAfkF9gL5ASABAAHsA/8BAAH/BgABHwEAAR8BAAHsA/8CAAT/
AQAB+wHsAQAB/wEAAewC/wEAAQcB/gEHAf4BBwH+AQYFAAHsA/8BIAH5AeMH+QEgAQAF7AH/AQAB/wcA
AR8F7AEABP8BAAH7AgAB/wEABOwBAAH/Af4B/wH+Af8GAAXsCSAEAAHsA/8BAAH/BwABHwIAAewC/wcA
AgEEAAHsAv8NAAHsA/8BAAH/CgAF7AH/BwABHwIABewB/woABewB/woABewB/wwAAewD/wYAAR8FAAHs
A/8MAAHsA/8MAAHsA/8MAAXsCwAF7AsABewLAAXsaQABAwEwAQMBMAEDATABAwEwAQMYAAXsGQAB+wEA
AQMBMAEDATABAwEwAQMBMAEDEQAB+RcABewHAAH/AfsBAAEDATABAwEwAQMBMAEDATABAwYAASAOAAHs
A/8BAAPsFwAB+wH/AfsBAAEDATABAwEwAQMBMAEDATABAwQAAvkBIAcAASAFAAHsA/8KAAEgAQABIAEA
AiAC/wEAA+wFAAH/AfsB/wH7DQAC+QEgA+wDAAEgBgABBwP2AQAB/wEAA+wIAAHsA/8NAAH7Af8B+wH/
AfsJAAP5BAABIAH5BgABBwP/AewB/woAASABAAIgAv8BAAH/AQAD7AIAAewD/wEAAf8B+wH/AfsB/wIA
AUgFAAHsAf8C+QEgAuwC+QUAAfsB7AEHBOwB/wEAAf8KAAHsA/8BAAH/BgAB7AP/CQABSAQAAewC/wX5
BwAB+wHsAQcB7AP/AQAB/wYAASABAAEgAQACIAPsAf8BAAH/BAAB7AP/AQAB/wcAAUgEAAHsA/8D+QPs
BAAC7AMHBOwB/wwAAewD/wEAAf8EAAHsA/8BAAH/BwABSAQAAewC/wX5BgAD+wEHAfsBBwL7Av8IAAEg
AQACIAXsAf8EAAXsAf8BAAH/AgABSAEAAUgFAALsA/kB/wEAAfkHAAH7AewB+wHsAfsB7AEAA+wNAAHs
A/8GAAHsA/8BAAH/AgACSAYABPkC/wEAAf8C+QQAAfsB7AEAAfsB7AEAAfsB7AgAASABAAEgAQACIAIA
BewFAAXsAf8CAANIBAAE+QTsAf8BAAL5BgAB+wHsAgAB+xwAAewD/wkAAvkDAAHsA/8CAAL5BQAB+wHs
HwAF7A0ABewIAAcnDwAEIAcAAfsBAAH7AewBAAH7CgAB+wEAAfsB7AEAAfsB+QIAAfkFAAEnAi0B/wIt
AScEtgoAAyAC/wH5BgAB7AL7AewB+wHsBLYGAAHsAvsB7AH7AewBAAL/BgABJwItAfYCLQEnArYMAAIg
Av8E/AUAAewB+wEHAewBBwK2CQAB7AH7AQcB7AEHAv8HAAEnAf8D9gH/AScBtgEAArYEAAI0AgABNAEA
AiAB/wEgA/wDAAT7AQcD7AG2AQACtgQABPsBBwPsAQAD/wUAAScCLQH2Ai0BJwS2BgAC/wMAAyAB/AH/
AvwCAATsAvsC8gS2BAAE7AL7AvIE/wUAAScCLQH/Ai0BJwO2BgAC/wIAAd0EIAL/AvwEAAHsAfsBBwHs
AfsBBwO2BwAB7AH7AQcB7AH7AQcBAAT/BAAHJwW2BQAD/wMAAfwC/wP8BAAB+wHsAfsB7AH7AQcFtgUA
AfsB7AH7AewB+wEHAQAC/wMAAewD/wQAB7YCAAIHBP8BAALdAQAE/AEAAewD/wIAAewBAAIHBbYBAAHs
A/8CAAHsAQADBwEAAv8CAAHsA/8EAAS2AQACtgIAAgcBAAT/AQAB3QYAAewD/wQABLYBAAK2AQAB7AP/
BQAFBwIAAewD/wEAAf8CAAS2AQABtgMAAgcBAAL/AgAB3QcAAewD/wEAAf8CAAS2AQABtgIAAewD/wEA
Af8KAAHsA/8BAAH/AgAGtgMAAwcBAAL/AQAD3QUAAewD/wEAAf8CAAa2AgAB7AP/AQAB/woABewB/wwA
BQcBAAPdBQAF7AH/CgAF7AH/AQAB/woAAewD/wEAAf8PAAHdAQAC3QcAAewD/wEAAf8KAAHsA/8BAAH/
CgAF7AH/DAAE3QEAAd0IAAXsAf8KAAXsAf8MAAHsA/8MAAbdCgAB7AP/DAAB7AP/DAAF7BsABewLAAXs
VQAB/wUACy0IAAHsAQcB7BoAAf8PAAEtCf8BLQYAAewDBwPsGQAB/wcAAf8GAAEtA/8BLQX/AS0DAALs
BQcF7AgAAQMBAAH7AQABAwoAAf8GAAH/BwABLQL/Ay0E/wEtAwAB7AH/BAcB/wbsBgABAwX7AQMKAAH/
BQAB/wQAA+wBLQH/BS0D/wEtAgAC7AH/AgcC/wMHBOwCAAPsAgMB+wEDAQABAwH7DAAB/wMAAf8IAAEt
Af8CLQH/Ay0C/wEtAwAB7AH/AgcC+gL5AwcC7AUAAQMC+wEAAewBAAL7AQMNAAH/BQAB7AP/AS0B/wEt
A/8DLQH/AS0BAAHsAv8C7AH/BQcC7AEAAQcBAAHsA/8CAwH7AQMBAAEDAfsOAAH/BgAB7AP/AS0G/wIt
Af8BLQEAAewD/wEAAuwB/wEHAuwBBwH/AQABBwEAAewD/wEAAQMF+wEDDgAB/wUAAewD/wEtB/8BLQH/
AS0BAAHsA/8BAAH/AQAC7AEHBP8CAAHsA/8BAAIDAQAB+wEAAQMMAAH/AgAB/wUAAewD/wEtCf8BLQEA
AewD/wEAAf8CAAHsBv8BAAHsA/8BAAH/AQAEAwsAAf8FAAH/AwAE7AstAQAF7AH/AQAB/wEAAewD/wLs
AQAF7AH/AQAB/w0AAf8HAAH/BAAB7AP/AQAB/woAAewD/wEAAf8CAAPsBQAB7AP/AQAB/wsAAf8KAAH/
AwAF7AH/CgAF7AH/CgAF7AH/HAAB7AP/DAAB7AP/BAAB/wcAAewD/xwABewLAAXsCwAF7BcAEDcgBwYA
BewFABA3AwcLDxIHBAAB7AT5AwAD7AEAATcBUQsDATACNwMHAQAJvAEAAgcLAAUHAwAG+QMAAuwCAAE3
ARUBDwRKAQMBbQEDA0oBKQEwATcDBwEACf8BAAIHAgAJAwEABAcCAAL5BgAC+QEAAuwBAAE3AQ4B7AHr
BHkBWAR5AUoBAwE3AwcBAAn/AQACBwEAAfsBAAkDAQADBwIAAfkB7AYAA/kBAAHsAQABNwEPAVgBKQN5
AV4BmQFeBHkBFAEwAwcBAAn/AQACBwEAAf8B+wEACQMBAAIHAQAC+QHsBgAB+QEAAfkBAAHsAQABNwEQ
AaABMAEDAXkBXgGZAV4BmQFeAnkBWAEiATADBwEACf8BAAIHAQAB+wH/AfsBAAkDAQABBwEAAfkC7AgA
AvkB7AEAATcBIgFeAZIBbQFYAZkBXgEHAV4BmQFYAnkBXgEiAwcBAAn/AQACBwEAAf8B+wH/AfsMAAH5
AuwIAAL5AewBAAE3ARABoAHlAe0BDwEQASIBEAEcAVgCeQFYARwBEAMHAQAJ/wEAAgcBAAH7Af8B+wH/
AfsB/wH7Af8B+wEABQcBAAH5AQAB7AEAAewGAAL5AewBAAE3AQ8B5QKgAeUBoAHlAcMBFAEiARUBIgEO
ASIBMAMHAQAJ/wEAAgcBAAH/AfsB/wH7Af8B+wH/AfsB/wEABQcBAAH5AQAD7AYAAvkCAAE3AQ8BoAHl
AqAB5QGgAeUBoAHlAaABUQEDAjcDBwEABv8D7wEAAgcBAAH7Af8B+wcABQcBAAL5AQAC7AYAAfkB7AIA
ATcBDwSgARwBAwHsAQMB6wFRAUoBMAI3AwcBAAb/AQABFAEAAUMDBwMACAcDAAEHAgAC+QMABOwB+QQA
ATcBAwHqBEoFAwEwAzcDBwEABv8BAAG8ARAQBwIAAQcBAAP5AwAC7AL5BQACNwQDCjcDBwEABvEBAAEP
DAcBAAMHAQABBwEAAQcFAAX5BgAQNwMHCA4OBwMABAcQABA3IAcUAAEHAgABBwEAAQcBAAEHAgABBwUA
AQcCAAEHAQABBwEAAQcCAAEHAQAB7AMAAQcCAAEHAQABBwEAAQcCAAEHFQABBwIAAQcBAAEHAQABBwIA
AQcFAAEHAgABBwEAAQcBAAEHAgABBwEAAewEBwIAAQcBAAEHAQABBwIAAQcVAAEHAgABBwEAAQcBAAEH
AgABBwUAAQcCAAEHAQABBwEAAQcCAAEHAQAB7AP/AQcCAAEHAQABBwEAAQcCAAEHAQAKAgYACgIHAAH8
AQAB/AEAAfwBAAH8AQAB/AYAAewB/wQHAf8DBwH/AQcEAAECCP8BAgYAAQII/wECBgAB/Aj/BwAB7Ar/
AQcEAAECAf8IAgYAAQIB/wgCBwAB/wEAAfwB/wH8AQAC/wH8BgAB7AH/BAcB/wMHAf8BBwQAAQIB/wMC
AQcEAgYAAQIB/wMCAQcEAgSYAgAB/AH/AfwBAAEHAQAB/AEHAf8BAATWAgAB7Ar/AQcEAAECAv8BAgEH
AwIB/wECBgABAgL/AQIBBwMCAf8BAgP/AZgDAAH/AQAB/AEAAfwBAAH8Af8B/AP/AdYCAAHsAf8IBwH/
AQcEAAECAf8BAgEHAwIC/wECBgABAgH/AQIBBwMCAv8BAgSYAgAB/AH/AfwB/wH8AQAB/wEAAQcBAAHW
Av8B1gIAAewK/wEHBAABAgH/AQcFAgH/AQIGAAECAf8BBwUCAf8BAgSYAwAB/AEAAf8BAAH8Af8B/AEA
AfwB1gEHAf8B1gIAAewB/wIHAf8FBwH/AQcEAAECAf8CAgL/AgIB/wECBgABAgH/AgIC/wICAf8BAgKY
Af8BmAIAAfwBAAH8AQAB/AEAAfwBAAH8AQAC1gH/AdYCAAHsCv8BBwQAAQII/wECBgABAgj/AQIBmAL/
AZgDAAj/AfwB/wHWAQcB1gIAAewB/wIHAf8FBwH/AQcEAAoCBgAKAgKYAf8BmAIAAfwBAAH8AQAB/AEA
AfwBAAH8AQAB/wPWAgAB7Aj/GwABmAH/ApgC/wKYAf8BmAYACtYCAAHsAf8GBwH/AewB/xkAAZgI/wGY
BgAB1gj/AdYCAAHsCP8B7BoACpgGAArWAgAK7BYAEAImAAEDAf8IAAICDQABAiQAAewBAwHsAf8IAAEC
AQACAwYAAgcBAAEDAQABAiIAAQMB7AEDAewBAwH/CAABAgEAAgMGAAIHAQABAwEAAQIBAAH8AQAB/AEA
AfwBAAH8AQAB/AcAAfwBAAH8AQAB/AEAAfwBAAH8BwABAwHsAQMB7AEDAewB/wEAAewGAAECAQACAwYA
AgcBAAEDAQABAgH8CP8HAAH8CP8IAAHsAQMB7AEDAewBAwH/AQAB7AYAAQIBAAIDCQABAwEAAQIBAAH/
AQAB/AH/AfwBAAL/AfwHAAH/AQAB/AH/AfwBAAL/AfwHAAEDAewBAwIAAewB/wEAAewGAAECAQAMAwEA
AQIB/AH/AfwBAAEHAQAB/AEHAf8HAAH8Af8B/AEAAQcBAAH8AQcB/wEABNYDAAHsAQMB7AIHAQMB/wEA
AewBAAEGBAABAgEAAgMIAAIDAQABAgEAAf8BAAH8AQAB/AEAAfwB/wH8BwAB/wEAAfwBAAH8AQAB/AH/
AfwD/wHWAwABAwHsAQMB7AEDAewB/wIAAQYF/gECAQABAwEACAcBAAEDAQABAgH8Af8B/AH/AfwBAAH/
AQABBwcAAfwB/wH8Af8B/AEAAf8BAAEHAQAB1gL/AdYDAAHsAQMB7AEDAewBAwH/AQABbQb+AQIBAAED
AQAIBwEAAQMBAAECAQAB/AEAAf8BAAH8Af8B/AEAAfwHAAH8AQAB/wEAAfwB/wH8AQAB/AHWAQcB/wHW
AwABAwHsAQMB7AEDAewB/wEAAewBbQH+BG0BAgEAAQMBAAgHAQABAwEAAQIB/AEAAfwBAAH8AQAB/AEA
AfwHAAH8AQAB/AEAAfwBAAH8AQAB/AEAAtYB/wHWAwAB7AEDAewBAwHsAQMB/wEAAewBAAJtAwABAgEA
AQMBAAgHAQABAwEAAQIBAAj/AfwHAAj/AfwB/wHWAQcB1gMAAQMB7AEDAewBBwH/AewBAAHsAgABbQMA
AQIBAAEDAQAIBwMAAQIB/AEAAfwBAAH8AQAB/AEAAfwHAAH8AQAB/AEAAfwBAAH8AQAB/AEAAf8D1gMA
AewBAwEHAf8B7AEAA+wGAAECAQABAwEACAcBAAEHAQABAhQACtYDAAEHAf8B7AEABewGAAECDgABAhQA
AdYI/wHWEgAQAhQACtYCAAFCAU0BPgcAAT4DAAEoAwABQAMAAYADAAEBAQABAQYAAQQWAAP/AQAC/wYA
Av8GAAGDAT8GAAH/AR8GAAGHAQ8GAAH/AQcGAAKDBgAB/gEBBgABhgcAAf8BBwYAAoMGAAH/AYEGAAGD
AcAGAAH/AeAGAAL/BgAC/wcAAR8B+AEAAf8B+QL/AQABDwH4AQAB/wHwAfgBAwEAAQcB+AEAAf8B4AHw
AQEBAAEDAfgBAAH/AcEB8AEBAQABAQH4AQAB+AEDAfABAQIAAYABAAGAAQcBgAEBAQABHwMAAQ8BAAEB
AQABHwMAAQ8BAAEBAQABEQMAAQ8BAAIBAfMDAAEPAQABAQEAAXUDAAEPAQABAQEAAX4DAAEfAQABAwHA
AX4BwAEAAcABPwHAAX8BwAF+AcABYwHAAX8BwAF/AfABfQHwAX8B8AF/AfABfwHwAX8B8AF/AfABfwHw
AX8E/wEAAR8G/wEAAQ8C/wHgA/8BAAEHAf8B+wHBAf8B+AE/AQABAwHvAf8BwAE/AfABfwEAAQEBxwH3
AcABfwFQAQ8CAAHAAe8BwAEPAfABHwEAAR8BwQHPAcABHwHQAQMBAAEXAcABHwEAAR8B8AEHAQABGwHA
AT8BgAEfAVABBwEBAfsBwAEPAQABHwH8AQcBAAF7AcABHwEAAR8B0AEHAQABVwHAAR8BgQEfAf8BBwHA
AU8BwAEPASQB/wFTAQcBwAFHAYABBwHmA/8B8AF/AZwBEwHnA/8B8AF/AfwBHwHgAQEB/wGHAfQBAQH0
AQEB4AEBAf8BAwHwAQEB8AEDAeABAQH/AQAB+AEBAfgBAwHgAQEBgAEBAcABAQHAAQEB4AEBAcABgAHA
AQEBwAEBAeABAQHAAQAB8AEBAfADAAGABAABAQEGAgABAQEEAQABBAEBAwABHwIAAgEBAAEBAQABHwEA
AgEBgwEAAQEBAAEPAQABAQEAAX8BAAEBAYABDwEAAQEBAAF/AcABfwHAAQ8BwAF/AcABfwHAAX8B4AEf
AcABfwHAAX8B8AF/AeABHwHwAX8B8AF/AfABfwHgAR8B8AF/AfABfwT/Af4BHwP/AfkB8AEBAfwBDwL/
AecB/wHwAQEB4AEDAf4BHwHDAfMB8AEBAcABAAH4AQcBwwHnAfABAQHAAQAB+AEDAeEBxwGAAQEBgAEA
AYABAwHwAY8BAAEBAwABAwH4AR8BAAEBAwABAwH8AT8BAAEBAwABAwH4AR8BAAEBAQABAQEAAQcB8AGf
AQABAQMAAR8BwQHHAQABAQEAAYEBAAF/AYMB4wHAAX8BwAHHAcABfwGPAfEBwAF/AcABfwHAAX8C/wHw
AX8B8AF3AfABfwL/AfABfwHwAX8B8AF/Av8GAAH8AR8GAAHwAXEGAAHgAXMGAAHPAckGAAHPAcUGAAGP
AdUGAAGPAfEGAAGPAfEGAAGrAfEGAAGjAfMGAAGTAfMGAAHOAQ8GAAGOAR8GAAH4AT8GAAL/BgAC/wHw
AQAB8AMAAv8B8AEAAfADAAL/AfABAAHwBAABPwEAAT8BAAE/AQABBwEAAT8BAAE/AQABPwEAAQcBAAE/
AQABPwEAAT8BAAEHAQABPwEAAQMBAAEDAQABBwEAAT8BAAEDAQABAwEAAQcBAAE/AQABAwEAAQMBAAEH
AQABPwEAAQMBAAEDAQABBwEAAT8BAAEDAQABAwEAAQcBAAE/AQABAwEAAQMBAAEHAQABPwEAAQMBAAED
AQABBwL/AfABAwHwAQMBAAEPAv8B8AEDAfABAwEAAR8C/wHwAQMB8AEDAQABPwH8AX8CAAT/AfABfwIA
BP8BwAF/AgAE/wEAAR8DAAE/AQABPwEAAR8DAAE/AQABPwEAARcDAAE/AQABPwEAAQcDAAE/AQABAwUA
AT8BAAEDBQABPwEAAQMFAAE/AQABAwUAAT8BAAEDAQABBwMAAT8BAAEDAQABFwMAAT8BAAEDAQABHwIA
Av8B8AEDAQABHwIAAv8B8AEDAQABHwIAAv8B8AEDCw==
</value>
</data>
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>264, 17</value>
</metadata>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAACs
IAAAAk1TRnQBSQFMAgEBHAEAASwBAAEsAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAAYADAAEBAQABCAYAASAYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ARwABAwEw
AQMBMAEDATABAwEwAQMLAAn/DgAB/gH8BgAJIAMAAfsBAAEDATABAwEwAQMBMAEDATABAwoACf8NAAH+
AvwFAAEgB/kBIAH5ASACAAH/AfsBAAEDATABAwEwAQMBMAEDATABAwkAAv8BAAQHAv8MAAH+AvwGAAEg
AvkF9gH5AiACAAH7Af8B+wEAAQMBMAEDATABAwEwAQMBMAEDCAAC/wIABf8LAAH+AvwHAAEgAfkC9gP5
AvYB+QEgAgAB/wH7Af8B+wwABOwBAAL/AwAE/wIAA+wBAAUGAQAB/AUAA+wBIAH5AfYC+QH2AvkB9gH5
ASAGAAH7Af8B+wH/AfsMAAL/AQAB+wHsAQABBwL/BQABBwH+Af8C/gIGCQABIAH5AfYC+QH2AvkB9gH5
ASABAAHsA/8BAAH/AfsB/wH7Af8GAAHsA/8CAAL/AQAB+wEHAQAD/wEAAewC/wEAAf4B/wH+Af8C/gEG
BQAB7AP/ASAB+QH2AvkB9gL5AfYB+QEgAQAB7AP/CAADHwEAAewD/wIAA/8BAAH7AewBAAL/AQAB7AL/
AQABBwH+AQcB/gH/Af4BBgUAAewD/wEgAfkC9gP5AvYB+QEgAQAB7AP/AQAB/wYAAh8CAAHsA/8CAAL/
AQcBAAH7AQcBAAL/AQAB7AL/AQAB/gH/Af4B/wH+Af8BBgUAAewD/wEgAeMB+QX2AvkBIAEAAewD/wEA
Af8GAAEfAQABHwEAAewD/wIABP8BAAH7AewBAAH/AQAB7AL/AQABBwH+AQcB/gEHAf4BBgUAAewD/wEg
AfkB4wf5ASABAAXsAf8BAAH/BwABHwXsAQAE/wEAAfsCAAH/AQAE7AEAAf8B/gH/Af4B/wYABewJIAQA
AewD/wEAAf8HAAEfAgAB7AL/BwACAQQAAewC/w0AAewD/wEAAf8KAAXsAf8HAAEfAgAF7AH/CgAF7AH/
CgAF7AH/DAAB7AP/BgABHwUAAewD/wwAAewD/wwAAewD/wwABewLAAXsCwAF7AsABexpAAEDATABAwEw
AQMBMAEDATABAxgABewZAAH7AQABAwEwAQMBMAEDATABAwEwAQMRAAH5FwAF7AcAAf8B+wEAAQMBMAED
ATABAwEwAQMBMAEDBgABIA4AAewD/wEAA+wXAAH7Af8B+wEAAQMBMAEDATABAwEwAQMBMAEDBAAC+QEg
BwABIAUAAewD/woAASABAAEgAQACIAL/AQAD7AUAAf8B+wH/AfsNAAL5ASAD7AMAASAGAAEHA/YBAAH/
AQAD7AgAAewD/w0AAfsB/wH7Af8B+wkAA/kEAAEgAfkGAAEHA/8B7AH/CgABIAEAAiAC/wEAAf8BAAPs
AgAB7AP/AQAB/wH7Af8B+wH/AgABSAUAAewB/wL5ASAC7AL5BQAB+wHsAQcE7AH/AQAB/woAAewD/wEA
Af8GAAHsA/8JAAFIBAAB7AL/BfkHAAH7AewBBwHsA/8BAAH/BgABIAEAASABAAIgA+wB/wEAAf8EAAHs
A/8BAAH/BwABSAQAAewD/wP5A+wEAALsAwcE7AH/DAAB7AP/AQAB/wQAAewD/wEAAf8HAAFIBAAB7AL/
BfkGAAP7AQcB+wEHAvsC/wgAASABAAIgBewB/wQABewB/wEAAf8CAAFIAQABSAUAAuwD+QH/AQAB+QcA
AfsB7AH7AewB+wHsAQAD7A0AAewD/wYAAewD/wEAAf8CAAJIBgAE+QL/AQAB/wL5BAAB+wHsAQAB+wHs
AQAB+wHsCAABIAEAASABAAIgAgAF7AUABewB/wIAA0gEAAT5BOwB/wEAAvkGAAH7AewCAAH7HAAB7AP/
CQAC+QMAAewD/wIAAvkFAAH7AewfAAXsDQAF7AgABycPAAQgBwAB+wEAAfsB7AEAAfsKAAH7AQAB+wHs
AQAB+wH5AgAB+QUAAScCLQH/Ai0BJwS2CgADIAL/AfkGAAHsAvsB7AH7AewEtgYAAewC+wHsAfsB7AEA
Av8GAAEnAi0B9gItAScCtgwAAiAC/wT8BQAB7AH7AQcB7AEHArYJAAHsAfsBBwHsAQcC/wcAAScB/wP2
Af8BJwG2AQACtgQAAjQCAAE0AQACIAH/ASAD/AMABPsBBwPsAbYBAAK2BAAE+wEHA+wBAAP/BQABJwIt
AfYCLQEnBLYGAAL/AwADIAH8Af8C/AIABOwC+wLyBLYEAATsAvsC8gT/BQABJwItAf8CLQEnA7YGAAL/
AgAB3QQgAv8C/AQAAewB+wEHAewB+wEHA7YHAAHsAfsBBwHsAfsBBwEABP8EAAcnBbYFAAP/AwAB/AL/
A/wEAAH7AewB+wHsAfsBBwW2BQAB+wHsAfsB7AH7AQcBAAL/AwAB7AP/BAAHtgIAAgcE/wEAAt0BAAT8
AQAB7AP/AgAB7AEAAgcFtgEAAewD/wIAAewBAAMHAQAC/wIAAewD/wQABLYBAAK2AgACBwEABP8BAAHd
BgAB7AP/BAAEtgEAArYBAAHsA/8FAAUHAgAB7AP/AQAB/wIABLYBAAG2AwACBwEAAv8CAAHdBwAB7AP/
AQAB/wIABLYBAAG2AgAB7AP/AQAB/woAAewD/wEAAf8CAAa2AwADBwEAAv8BAAPdBQAB7AP/AQAB/wIA
BrYCAAHsA/8BAAH/CgAF7AH/DAAFBwEAA90FAAXsAf8KAAXsAf8BAAH/CgAB7AP/AQAB/w8AAd0BAALd
BwAB7AP/AQAB/woAAewD/wEAAf8KAAXsAf8MAATdAQAB3QgABewB/woABewB/wwAAewD/wwABt0KAAHs
A/8MAAHsA/8MAAXsGwAF7AsABexVAAH/BQALLQgAAewBBwHsGgAB/w8AAS0J/wEtBgAB7AMHA+wZAAH/
BwAB/wYAAS0D/wEtBf8BLQMAAuwFBwXsCAABAwEAAfsBAAEDCgAB/wYAAf8HAAEtAv8DLQT/AS0DAAHs
Af8EBwH/BuwGAAEDBfsBAwoAAf8FAAH/BAAD7AEtAf8FLQP/AS0CAALsAf8CBwL/AwcE7AIAA+wCAwH7
AQMBAAEDAfsMAAH/AwAB/wgAAS0B/wItAf8DLQL/AS0DAAHsAf8CBwL6AvkDBwLsBQABAwL7AQAB7AEA
AvsBAw0AAf8FAAHsA/8BLQH/AS0D/wMtAf8BLQEAAewC/wLsAf8FBwLsAQABBwEAAewD/wIDAfsBAwEA
AQMB+w4AAf8GAAHsA/8BLQb/Ai0B/wEtAQAB7AP/AQAC7AH/AQcC7AEHAf8BAAEHAQAB7AP/AQABAwX7
AQMOAAH/BQAB7AP/AS0H/wEtAf8BLQEAAewD/wEAAf8BAALsAQcE/wIAAewD/wEAAgMBAAH7AQABAwwA
Af8CAAH/BQAB7AP/AS0J/wEtAQAB7AP/AQAB/wIAAewG/wEAAewD/wEAAf8BAAQDCwAB/wUAAf8DAATs
Cy0BAAXsAf8BAAH/AQAB7AP/AuwBAAXsAf8BAAH/DQAB/wcAAf8EAAHsA/8BAAH/CgAB7AP/AQAB/wIA
A+wFAAHsA/8BAAH/CwAB/woAAf8DAAXsAf8KAAXsAf8KAAXsAf8cAAHsA/8MAAHsA/8EAAH/BwAB7AP/
HAAF7AsABewLAAXsFwAQNyAHBgAF7AUAEDcDBwsPEgcEAAHsBPkDAAPsAQABNwFRCwMBMAI3AwcBAAm8
AQACBwsABQcDAAb5AwAC7AIAATcBFQEPBEoBAwFtAQMDSgEpATABNwMHAQAJ/wEAAgcCAAkDAQAEBwIA
AvkGAAL5AQAC7AEAATcBDgHsAesEeQFYBHkBSgEDATcDBwEACf8BAAIHAQAB+wEACQMBAAMHAgAB+QHs
BgAD+QEAAewBAAE3AQ8BWAEpA3kBXgGZAV4EeQEUATADBwEACf8BAAIHAQAB/wH7AQAJAwEAAgcBAAL5
AewGAAH5AQAB+QEAAewBAAE3ARABoAEwAQMBeQFeAZkBXgGZAV4CeQFYASIBMAMHAQAJ/wEAAgcBAAH7
Af8B+wEACQMBAAEHAQAB+QLsCAAC+QHsAQABNwEiAV4BkgFtAVgBmQFeAQcBXgGZAVgCeQFeASIDBwEA
Cf8BAAIHAQAB/wH7Af8B+wwAAfkC7AgAAvkB7AEAATcBEAGgAeUB7QEPARABIgEQARwBWAJ5AVgBHAEQ
AwcBAAn/AQACBwEAAfsB/wH7Af8B+wH/AfsB/wH7AQAFBwEAAfkBAAHsAQAB7AYAAvkB7AEAATcBDwHl
AqAB5QGgAeUBwwEUASIBFQEiAQ4BIgEwAwcBAAn/AQACBwEAAf8B+wH/AfsB/wH7Af8B+wH/AQAFBwEA
AfkBAAPsBgAC+QIAATcBDwGgAeUCoAHlAaAB5QGgAeUBoAFRAQMCNwMHAQAG/wPvAQACBwEAAfsB/wH7
BwAFBwEAAvkBAALsBgAB+QHsAgABNwEPBKABHAEDAewBAwHrAVEBSgEwAjcDBwEABv8BAAEUAQABQwMH
AwAIBwMAAQcCAAL5AwAE7AH5BAABNwEDAeoESgUDATADNwMHAQAG/wEAAbwBEBAHAgABBwEAA/kDAALs
AvkFAAI3BAMKNwMHAQAG8QEAAQ8MBwEAAwcBAAEHAQABBwUABfkGABA3AwcIDg4HAwAEBxAAEDcgBxQA
AQcCAAEHAQABBwEAAQcCAAEHBQABBwIAAQcBAAEHAQABBwIAAQcBAAHsAwABBwIAAQcBAAEHAQABBwIA
AQcVAAEHAgABBwEAAQcBAAEHAgABBwUAAQcCAAEHAQABBwEAAQcCAAEHAQAB7AQHAgABBwEAAQcBAAEH
AgABBxUAAQcCAAEHAQABBwEAAQcCAAEHBQABBwIAAQcBAAEHAQABBwIAAQcBAAHsA/8BBwIAAQcBAAEH
AQABBwIAAQcBAAoCBgAKAgcAAfwBAAH8AQAB/AEAAfwBAAH8BgAB7AH/BAcB/wMHAf8BBwQAAQII/wEC
BgABAgj/AQIGAAH8CP8HAAHsCv8BBwQAAQIB/wgCBgABAgH/CAIHAAH/AQAB/AH/AfwBAAL/AfwGAAHs
Af8EBwH/AwcB/wEHBAABAgH/AwIBBwQCBgABAgH/AwIBBwQCBJgCAAH8Af8B/AEAAQcBAAH8AQcB/wEA
BNYCAAHsCv8BBwQAAQIC/wECAQcDAgH/AQIGAAECAv8BAgEHAwIB/wECA/8BmAMAAf8BAAH8AQAB/AEA
AfwB/wH8A/8B1gIAAewB/wgHAf8BBwQAAQIB/wECAQcDAgL/AQIGAAECAf8BAgEHAwIC/wECBJgCAAH8
Af8B/AH/AfwBAAH/AQABBwEAAdYC/wHWAgAB7Ar/AQcEAAECAf8BBwUCAf8BAgYAAQIB/wEHBQIB/wEC
BJgDAAH8AQAB/wEAAfwB/wH8AQAB/AHWAQcB/wHWAgAB7AH/AgcB/wUHAf8BBwQAAQIB/wICAv8CAgH/
AQIGAAECAf8CAgL/AgIB/wECApgB/wGYAgAB/AEAAfwBAAH8AQAB/AEAAfwBAALWAf8B1gIAAewK/wEH
BAABAgj/AQIGAAECCP8BAgGYAv8BmAMACP8B/AH/AdYBBwHWAgAB7AH/AgcB/wUHAf8BBwQACgIGAAoC
ApgB/wGYAgAB/AEAAfwBAAH8AQAB/AEAAfwBAAH/A9YCAAHsCP8bAAGYAf8CmAL/ApgB/wGYBgAK1gIA
AewB/wYHAf8B7AH/GQABmAj/AZgGAAHWCP8B1gIAAewI/wHsGgAKmAYACtYCAArsFgAQAiYAAQMB/wgA
AgINAAECJAAB7AEDAewB/wgAAQIBAAIDBgACBwEAAQMBAAECIgABAwHsAQMB7AEDAf8IAAECAQACAwYA
AgcBAAEDAQABAgEAAfwBAAH8AQAB/AEAAfwBAAH8BwAB/AEAAfwBAAH8AQAB/AEAAfwHAAEDAewBAwHs
AQMB7AH/AQAB7AYAAQIBAAIDBgACBwEAAQMBAAECAfwI/wcAAfwI/wgAAewBAwHsAQMB7AEDAf8BAAHs
BgABAgEAAgMJAAEDAQABAgEAAf8BAAH8Af8B/AEAAv8B/AcAAf8BAAH8Af8B/AEAAv8B/AcAAQMB7AED
AgAB7AH/AQAB7AYAAQIBAAwDAQABAgH8Af8B/AEAAQcBAAH8AQcB/wcAAfwB/wH8AQABBwEAAfwBBwH/
AQAE1gMAAewBAwHsAgcBAwH/AQAB7AEAAQYEAAECAQACAwgAAgMBAAECAQAB/wEAAfwBAAH8AQAB/AH/
AfwHAAH/AQAB/AEAAfwBAAH8Af8B/AP/AdYDAAEDAewBAwHsAQMB7AH/AgABBgX+AQIBAAEDAQAIBwEA
AQMBAAECAfwB/wH8Af8B/AEAAf8BAAEHBwAB/AH/AfwB/wH8AQAB/wEAAQcBAAHWAv8B1gMAAewBAwHs
AQMB7AEDAf8BAAFtBv4BAgEAAQMBAAgHAQABAwEAAQIBAAH8AQAB/wEAAfwB/wH8AQAB/AcAAfwBAAH/
AQAB/AH/AfwBAAH8AdYBBwH/AdYDAAEDAewBAwHsAQMB7AH/AQAB7AFtAf4EbQECAQABAwEACAcBAAED
AQABAgH8AQAB/AEAAfwBAAH8AQAB/AcAAfwBAAH8AQAB/AEAAfwBAAH8AQAC1gH/AdYDAAHsAQMB7AED
AewBAwH/AQAB7AEAAm0DAAECAQABAwEACAcBAAEDAQABAgEACP8B/AcACP8B/AH/AdYBBwHWAwABAwHs
AQMB7AEHAf8B7AEAAewCAAFtAwABAgEAAQMBAAgHAwABAgH8AQAB/AEAAfwBAAH8AQAB/AcAAfwBAAH8
AQAB/AEAAfwBAAH8AQAB/wPWAwAB7AEDAQcB/wHsAQAD7AYAAQIBAAEDAQAIBwEAAQcBAAECFAAK1gMA
AQcB/wHsAQAF7AYAAQIOAAECFAAB1gj/AdYSABACFAAK1gIAAUIBTQE+BwABPgMAASgDAAFAAwABgAMA
AQEBAAEBBgABBBYAA/+CAAEfAfgBAAH/AfkC/wEAAQ8B+AEAAf8B8AH4AQMBAAEHAfgBAAH/AeAB8AEB
AQABAwH4AQAB/wHBAfABAQEAAQEB+AEAAfgBAwHwAQECAAGAAQABgAEHAYABAQEAAR8DAAEPAQABAQEA
AR8DAAEPAQABAQEAAREDAAEPAQACAQHzAwABDwEAAQEBAAF1AwABDwEAAQEBAAF+AwABHwEAAQMBwAF+
AcABAAHAAT8BwAF/AcABfgHAAWMBwAF/AcABfwHwAX0B8AF/AfABfwHwAX8B8AF/AfABfwHwAX8B8AF/
BP8BAAEfBv8BAAEPAv8B4AP/AQABBwH/AfsBwQH/AfgBPwEAAQMB7wH/AcABPwHwAX8BAAEBAccB9wHA
AX8BUAEPAgABwAHvAcABDwHwAR8BAAEfAcEBzwHAAR8B0AEDAQABFwHAAR8BAAEfAfABBwEAARsBwAE/
AYABHwFQAQcBAQH7AcABDwEAAR8B/AEHAQABewHAAR8BAAEfAdABBwEAAVcBwAEfAYEBHwH/AQcBwAFP
AcABDwEkAf8BUwEHAcABRwGAAQcB5gP/AfABfwGcARMB5wP/AfABfwH8AR8B4AEBAf8BhwH0AQEB9AEB
AeABAQH/AQMB8AEBAfABAwHgAQEB/wEAAfgBAQH4AQMB4AEBAYABAQHAAQEBwAEBAeABAQHAAYABwAEB
AcABAQHgAQEBwAEAAfABAQHwAwABgAQAAQEBBgIAAQEBBAEAAQQBAQMAAR8CAAIBAQABAQEAAR8BAAIB
AYMBAAEBAQABDwEAAQEBAAF/AQABAQGAAQ8BAAEBAQABfwHAAX8BwAEPAcABfwHAAX8BwAF/AeABHwHA
AX8BwAF/AfABfwHgAR8B8AF/AfABfwHwAX8B4AEfAfABfwHwAX8E/wH+AR8D/wH5AfABAQH8AQ8C/wHn
Af8B8AEBAeABAwH+AR8BwwHzAfABAQHAAQAB+AEHAcMB5wHwAQEBwAEAAfgBAwHhAccBgAEBAYABAAGA
AQMB8AGPAQABAQMAAQMB+AEfAQABAQMAAQMB/AE/AQABAQMAAQMB+AEfAQABAQEAAQEBAAEHAfABnwEA
AQEDAAEfAcEBxwEAAQEBAAGBAQABfwGDAeMBwAF/AcABxwHAAX8BjwHxAcABfwHAAX8BwAF/Av8B8AF/
AfABdwHwAX8C/wHwAX8B8AF/AfABfwL/BgAB/AEfBgAB8AFxBgAB4AFzBgABzwHJBgABzwHFBgABjwHV
BgABjwHxBgABjwHxBgABqwHxBgABowHzBgABkwHzBgABzgEPBgABjgEfBgAB+AE/BgAC/wYAAv8B8AEA
AfADAAL/AfABAAHwAwAC/wHwAQAB8AQAAT8BAAE/AQABPwEAAQcBAAE/AQABPwEAAT8BAAEHAQABPwEA
AT8BAAE/AQABBwEAAT8BAAEDAQABAwEAAQcBAAE/AQABAwEAAQMBAAEHAQABPwEAAQMBAAEDAQABBwEA
AT8BAAEDAQABAwEAAQcBAAE/AQABAwEAAQMBAAEHAQABPwEAAQMBAAEDAQABBwEAAT8BAAEDAQABAwEA
AQcC/wHwAQMB8AEDAQABDwL/AfABAwHwAQMBAAEfAv8B8AEDAfABAwEAAT8B/AF/AgAE/wHwAX8CAAT/
AcABfwIABP8BAAEfAwABPwEAAT8BAAEfAwABPwEAAT8BAAEXAwABPwEAAT8BAAEHAwABPwEAAQMFAAE/
AQABAwUAAT8BAAEDBQABPwEAAQMFAAE/AQABAwEAAQcDAAE/AQABAwEAARcDAAE/AQABAwEAAR8CAAL/
AfABAwEAAR8CAAL/AfABAwEAAR8CAAL/AfABAws=
</value>
</data>
<metadata name="C1CommandHolder1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 92</value>
</metadata>
<metadata name="C1ContextMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>171, 92</value>
</metadata>
<metadata name="C1ContextMenu2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>311, 89</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>163</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="BtnHelp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAGFJREFUOE9jYKAR
+A80Fxsmyrr/fz/yY2AkA/EaAteI7AKYgcQYAjYgJycH5nyYbWBxcg3A5ir83oDaBFJEsmZkkynSDLcd
S3gQFZWDwwCwK5AClGino8T9gIYBxV4gys8An8SDS+5ffSIAAAAASUVORK5CYII=
</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAEAAAAAAAAAAAAAAAEAAAAA
AAAAAAAAgACAAIAAAACAgAAAAIAAAACAgAAAAIAAwMDAAMDcwADwyqYAgICAAP8A/wD/AAAA//8AAAD/
AAAA//8AAAD/AP///wDw+/8ApKCgANTw/wCx4v8AjtT/AGvG/wBIuP8AJar/AACq/wAAktwAAHq5AABi
lgAASnMAADJQANTj/wCxx/8Ajqv/AGuP/wBIc/8AJVf/AABV/wAASdwAAD25AAAxlgAAJXMAABlQANTU
/wCxsf8Ajo7/AGtr/wBISP8AJSX/AAAA/wAAANwAAAC5AAAAlgAAAHMAAABQAOPU/wDHsf8Aq47/AI9r
/wBzSP8AVyX/AFUA/wBJANwAPQC5ADEAlgAlAHMAGQBQAPDU/wDisf8A1I7/AMZr/wC4SP8AqiX/AKoA
/wCSANwAegC5AGIAlgBKAHMAMgBQAP/U/wD/sf8A/47/AP9r/wD/SP8A/yX/AP8A/wDcANwAuQC5AJYA
lgBzAHMAUABQAP/U8AD/seIA/47UAP9rxgD/SLgA/yWqAP8AqgDcAJIAuQB6AJYAYgBzAEoAUAAyAP/U
4wD/sccA/46rAP9rjwD/SHMA/yVXAP8AVQDcAEkAuQA9AJYAMQBzACUAUAAZAP/U1AD/sbEA/46OAP9r
awD/SEgA/yUlAP8AAADcAAAAuQAAAJYAAABzAAAAUAAAAP/j1AD/x7EA/6uOAP+PawD/c0gA/1clAP9V
AADcSQAAuT0AAJYxAABzJQAAUBkAAP/w1AD/4rEA/9SOAP/GawD/uEgA/6olAP+qAADckgAAuXoAAJZi
AABzSgAAUDIAAP//1AD//7EA//+OAP//awD//0gA//8lAP//AADc3AAAubkAAJaWAABzcwAAUFAAAPD/
1ADi/7EA1P+OAMb/awC4/0gAqv8lAKr/AACS3AAAerkAAGKWAABKcwAAMlAAAOP/1ADH/7EAq/+OAI//
awBz/0gAV/8lAFX/AABJ3AAAPbkAADGWAAAlcwAAGVAAANT/1ACx/7EAjv+OAGv/awBI/0gAJf8lAAD/
AAAA3AAAALkAAACWAAAAcwAAAFAAANT/4wCx/8cAjv+rAGv/jwBI/3MAJf9XAAD/VQAA3EkAALk9AACW
MQAAcyUAAFAZANT/8ACx/+IAjv/UAGv/xgBI/7gAJf+qAAD/qgAA3JIAALl6AACWYgAAc0oAAFAyANT/
/wCx//8Ajv//AGv//wBI//8AJf//AAD//wAA3NwAALm5AACWlgAAc3MAAFBQAPLy8gDm5uYA2traAM7O
zgDCwsIAtra2AKqqqgCenp4AkpKSAIaGhgB6enoAbm5uAGJiYgBWVlYASkpKAD4+PgAyMjIAJiYmABoa
GgAODg4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAK
CgoKCgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAzADMAMzMREQAKCgoAAAAAAAAAAAoREREAAAAAAAAAAAAA
MwAzMxERABEACgoKAAAAAAAAChEREQARAAAAAAAAMwAzADMzCgoKEQARAAAAAAAAAAAAAAoREREAEQAA
AAAAADMAMzMKCgoKChEAAAAAAAAAAAAAAAAKERERAAAAADMAMwAzMwAACgoKCgoAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAP////////////////g////wf///UA////Af///QA///8Af//1AH
///8B///0Af///8H//9TB/////////////8=
</value>
</data>
<data name="empflist.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA3SURBVChTY2DABP+xiIGFkCVwsVEUwhThNREkiaEAJoiP
RnEmskKs7kd3C1YrYTrx+g6bIrAYAKCqHOQvFu6BAAAAAElFTkSuQmCC
</value>
</data>
<data name="empflist.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0
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
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMEAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQAAAAAICAgIAgAAAGQAAABkAAAAZAAAAGQAAAABCgAAAAEAAAAJAwAAAAHz/////P///wAK
CgoB8v////z///8ACQ8AAAABDwAAAAYAAABkAAAAZAAAAGQAAABkAAAACw==
</value>
</data>
<data name="empflist.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;Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:224, 224, 224;}Style5{}Style1{}RecordSelector{AlignImage:Center;}Style27{}Style6{}Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}Style8{}Footer{}Style3{}Style12{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Editor{}Style4{}FilterBar{BackColor:255, 255, 192;}EvenRow{BackColor:White;}Style26{}Style13{}Caption{AlignHorz:Center;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style9{}Style2{}Style14{}Normal{BackColor:Control;}Style7{}Heading{Wrap:True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;}Style10{AlignHorz:Near;}Style11{}Style15{}&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;Height&gt;379&lt;/Height&gt;&lt;CaptionStyle parent="Heading" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style2" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style27" /&gt;&lt;FooterStyle parent="Footer" me="Style4" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style3" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style6" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style5" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 489, 379&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="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;Modified&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 491, 379&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style14" /&gt;&lt;PrintPageFooterStyle parent="" me="Style15" /&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="ImageList2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>631, 17</value>
</metadata>
<data name="ImageList2.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAACe
BwAAAk1TRnQBSQFMAwEBAAEsAQABLAEAARABAAEQAQAE/wEJAQAI/wFCAU0BNgEEBgABNgEEAgABKAMA
AUADAAEQAwABAQEAAQgGAAEEGAABgAIAAYADAAKAAQABgAMAAYABAAGAAQACgAIAA8ABAAHAAdwBwAEA
AfABygGmAQABMwUAATMBAAEzAQABMwEAAjMCAAMWAQADHAEAAyIBAAMpAQADVQEAA00BAANCAQADOQEA
AYABfAH/AQACUAH/AQABkwEAAdYBAAH/AewBzAEAAcYB1gHvAQAB1gLnAQABkAGpAa0CAAH/ATMDAAFm
AwABmQMAAcwCAAEzAwACMwIAATMBZgIAATMBmQIAATMBzAIAATMB/wIAAWYDAAFmATMCAAJmAgABZgGZ
AgABZgHMAgABZgH/AgABmQMAAZkBMwIAAZkBZgIAApkCAAGZAcwCAAGZAf8CAAHMAwABzAEzAgABzAFm
AgABzAGZAgACzAIAAcwB/wIAAf8BZgIAAf8BmQIAAf8BzAEAATMB/wIAAf8BAAEzAQABMwEAAWYBAAEz
AQABmQEAATMBAAHMAQABMwEAAf8BAAH/ATMCAAMzAQACMwFmAQACMwGZAQACMwHMAQACMwH/AQABMwFm
AgABMwFmATMBAAEzAmYBAAEzAWYBmQEAATMBZgHMAQABMwFmAf8BAAEzAZkCAAEzAZkBMwEAATMBmQFm
AQABMwKZAQABMwGZAcwBAAEzAZkB/wEAATMBzAIAATMBzAEzAQABMwHMAWYBAAEzAcwBmQEAATMCzAEA
ATMBzAH/AQABMwH/ATMBAAEzAf8BZgEAATMB/wGZAQABMwH/AcwBAAEzAv8BAAFmAwABZgEAATMBAAFm
AQABZgEAAWYBAAGZAQABZgEAAcwBAAFmAQAB/wEAAWYBMwIAAWYCMwEAAWYBMwFmAQABZgEzAZkBAAFm
ATMBzAEAAWYBMwH/AQACZgIAAmYBMwEAA2YBAAJmAZkBAAJmAcwBAAFmAZkCAAFmAZkBMwEAAWYBmQFm
AQABZgKZAQABZgGZAcwBAAFmAZkB/wEAAWYBzAIAAWYBzAEzAQABZgHMAZkBAAFmAswBAAFmAcwB/wEA
AWYB/wIAAWYB/wEzAQABZgH/AZkBAAFmAf8BzAEAAcwBAAH/AQAB/wEAAcwBAAKZAgABmQEzAZkBAAGZ
AQABmQEAAZkBAAHMAQABmQMAAZkCMwEAAZkBAAFmAQABmQEzAcwBAAGZAQAB/wEAAZkBZgIAAZkBZgEz
AQABmQEzAWYBAAGZAWYBmQEAAZkBZgHMAQABmQEzAf8BAAKZATMBAAKZAWYBAAOZAQACmQHMAQACmQH/
AQABmQHMAgABmQHMATMBAAFmAcwBZgEAAZkBzAGZAQABmQLMAQABmQHMAf8BAAGZAf8CAAGZAf8BMwEA
AZkBzAFmAQABmQH/AZkBAAGZAf8BzAEAAZkC/wEAAcwDAAGZAQABMwEAAcwBAAFmAQABzAEAAZkBAAHM
AQABzAEAAZkBMwIAAcwCMwEAAcwBMwFmAQABzAEzAZkBAAHMATMBzAEAAcwBMwH/AQABzAFmAgABzAFm
ATMBAAGZAmYBAAHMAWYBmQEAAcwBZgHMAQABmQFmAf8BAAHMAZkCAAHMAZkBMwEAAcwBmQFmAQABzAKZ
AQABzAGZAcwBAAHMAZkB/wEAAswCAALMATMBAALMAWYBAALMAZkBAAPMAQACzAH/AQABzAH/AgABzAH/
ATMBAAGZAf8BZgEAAcwB/wGZAQABzAH/AcwBAAHMAv8BAAHMAQABMwEAAf8BAAFmAQAB/wEAAZkBAAHM
ATMCAAH/AjMBAAH/ATMBZgEAAf8BMwGZAQAB/wEzAcwBAAH/ATMB/wEAAf8BZgIAAf8BZgEzAQABzAJm
AQAB/wFmAZkBAAH/AWYBzAEAAcwBZgH/AQAB/wGZAgAB/wGZATMBAAH/AZkBZgEAAf8CmQEAAf8BmQHM
AQAB/wGZAf8BAAH/AcwCAAH/AcwBMwEAAf8BzAFmAQAB/wHMAZkBAAH/AswBAAH/AcwB/wEAAv8BMwEA
AcwB/wFmAQAC/wGZAQAC/wHMAQACZgH/AQABZgH/AWYBAAFmAv8BAAH/AmYBAAH/AWYB/wEAAv8BZgEA
ASEBAAGlAQADXwEAA3cBAAOGAQADlgEAA8sBAAOyAQAD1wEAA90BAAPjAQAD6gEAA/EBAAP4AQAB8AH7
Af8BAAGkAqABAAOAAwAB/wIAAf8DAAL/AQAB/wMAAf8BAAH/AQAC/wIAA/8HAAEHAew/AAEHAew9AAH5
AQABBwHsPAAC+QEAAQcB7DsAA/kBAAEHAew6AAT5AQABBwHsOQAF+QEAAQc5AAb5AQABBzgABvk6AAX5
OwAE+TwAA/k9AAL5PgAB+bkAAUIBTQE+BwABPgMAASgDAAFAAwABEAMAAQEBAAEBBQABgBcAA/8BAAH4
Af8GAAH4AX8GAAH4AT8GAAH4AR8GAAH4AQ8GAAH4AQcGAAH4AQcGAAH4AQMGAAH4AQcGAAH4AQ8GAAH4
AR8GAAH4AT8GAAH4AX8GAAH4Af8GAAH5Af8GAAH7Af8GAAs=
</value>
</data>
<data name="drpMiatarbeiter.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA3SURBVChTY2DABP+xiIGFkCVwsVEUwhThNREkiaEAJoiP
RnEmskKs7kd3C1YrYTrx+g6bIrAYAKCqHOQvFu6BAAAAAElFTkSuQmCC
</value>
</data>
<data name="drpMiatarbeiter.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;Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:224, 224, 224;}Style5{}RecordSelector{AlignImage:Center;}Style6{}Style8{}Footer{}Style13{}Style3{}Style12{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Editor{}Style4{}FilterBar{}EvenRow{BackColor:White;}Style11{}Style1{}Caption{AlignHorz:Center;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style9{}Style2{}Normal{}Style7{}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert:Center;}Style10{AlignHorz:Near;}Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.DropdownView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;Height&gt;76&lt;/Height&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;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, 36, 76&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="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, 38, 78&lt;/ClientArea&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="MenuNotiz.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>21, 17</value>
</metadata>
<data name="Notizlist.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA3SURBVChTY2DABP+xiIGFkCVwsVEUwhThNREkiaEAJoiP
RnEmskKs7kd3C1YrYTrx+g6bIrAYAKCqHOQvFu6BAAAAAElFTkSuQmCC
</value>
</data>
<data name="Notizlist.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0
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
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMEAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQAAAAAICAgIAgAAAGQAAABkAAAAZAAAAGQAAAABCgAAAAEAAAAJAwAAAAHz/////P///wAK
CgoB8v////z///8ACQ8AAAABDwAAAAYAAABkAAAAZAAAAGQAAABkAAAACw==
</value>
</data>
<data name="Notizlist.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;Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:224, 224, 224;}Style5{}Style1{}RecordSelector{AlignImage:Center;}Style6{}Style8{}Footer{}Style13{}Style3{}Style12{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Editor{}Style4{}FilterBar{BackColor:255, 255, 192;}EvenRow{BackColor:White;}Style11{}Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}Caption{AlignHorz:Center;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style9{}Style2{}Style14{}Normal{}Style7{}Heading{Wrap:True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;}Style10{AlignHorz:Near;}Style15{}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;Height&gt;172&lt;/Height&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;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, 326, 172&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="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, 328, 174&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style14" /&gt;&lt;PrintPageFooterStyle parent="" me="Style15" /&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="MenuEmpfaenger.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>125, 17</value>
</metadata>
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>499, 17</value>
</metadata>
<metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>370, 17</value>
</metadata>
<metadata name="statustimer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>443, 92</value>
</metadata>
<metadata name="ImageList3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>550, 92</value>
</metadata>
<data name="ImageList3.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAACg
BwAAAk1TRnQBSQFMAwEBAAEsAQABLAEAARABAAEQAQAE/wEJAQAI/wFCAU0BNgEEBgABNgEEAgABKAMA
AUADAAEQAwABAQEAAQgGAAEEGAABgAIAAYADAAKAAQABgAMAAYABAAGAAQACgAIAA8ABAAHAAdwBwAEA
AfABygGmAQABMwUAATMBAAEzAQABMwEAAjMCAAMWAQADHAEAAyIBAAMpAQADVQEAA00BAANCAQADOQEA
AYABfAH/AQACUAH/AQABkwEAAdYBAAH/AewBzAEAAcYB1gHvAQAB1gLnAQABkAGpAa0CAAH/ATMDAAFm
AwABmQMAAcwCAAEzAwACMwIAATMBZgIAATMBmQIAATMBzAIAATMB/wIAAWYDAAFmATMCAAJmAgABZgGZ
AgABZgHMAgABZgH/AgABmQMAAZkBMwIAAZkBZgIAApkCAAGZAcwCAAGZAf8CAAHMAwABzAEzAgABzAFm
AgABzAGZAgACzAIAAcwB/wIAAf8BZgIAAf8BmQIAAf8BzAEAATMB/wIAAf8BAAEzAQABMwEAAWYBAAEz
AQABmQEAATMBAAHMAQABMwEAAf8BAAH/ATMCAAMzAQACMwFmAQACMwGZAQACMwHMAQACMwH/AQABMwFm
AgABMwFmATMBAAEzAmYBAAEzAWYBmQEAATMBZgHMAQABMwFmAf8BAAEzAZkCAAEzAZkBMwEAATMBmQFm
AQABMwKZAQABMwGZAcwBAAEzAZkB/wEAATMBzAIAATMBzAEzAQABMwHMAWYBAAEzAcwBmQEAATMCzAEA
ATMBzAH/AQABMwH/ATMBAAEzAf8BZgEAATMB/wGZAQABMwH/AcwBAAEzAv8BAAFmAwABZgEAATMBAAFm
AQABZgEAAWYBAAGZAQABZgEAAcwBAAFmAQAB/wEAAWYBMwIAAWYCMwEAAWYBMwFmAQABZgEzAZkBAAFm
ATMBzAEAAWYBMwH/AQACZgIAAmYBMwEAA2YBAAJmAZkBAAJmAcwBAAFmAZkCAAFmAZkBMwEAAWYBmQFm
AQABZgKZAQABZgGZAcwBAAFmAZkB/wEAAWYBzAIAAWYBzAEzAQABZgHMAZkBAAFmAswBAAFmAcwB/wEA
AWYB/wIAAWYB/wEzAQABZgH/AZkBAAFmAf8BzAEAAcwBAAH/AQAB/wEAAcwBAAKZAgABmQEzAZkBAAGZ
AQABmQEAAZkBAAHMAQABmQMAAZkCMwEAAZkBAAFmAQABmQEzAcwBAAGZAQAB/wEAAZkBZgIAAZkBZgEz
AQABmQEzAWYBAAGZAWYBmQEAAZkBZgHMAQABmQEzAf8BAAKZATMBAAKZAWYBAAOZAQACmQHMAQACmQH/
AQABmQHMAgABmQHMATMBAAFmAcwBZgEAAZkBzAGZAQABmQLMAQABmQHMAf8BAAGZAf8CAAGZAf8BMwEA
AZkBzAFmAQABmQH/AZkBAAGZAf8BzAEAAZkC/wEAAcwDAAGZAQABMwEAAcwBAAFmAQABzAEAAZkBAAHM
AQABzAEAAZkBMwIAAcwCMwEAAcwBMwFmAQABzAEzAZkBAAHMATMBzAEAAcwBMwH/AQABzAFmAgABzAFm
ATMBAAGZAmYBAAHMAWYBmQEAAcwBZgHMAQABmQFmAf8BAAHMAZkCAAHMAZkBMwEAAcwBmQFmAQABzAKZ
AQABzAGZAcwBAAHMAZkB/wEAAswCAALMATMBAALMAWYBAALMAZkBAAPMAQACzAH/AQABzAH/AgABzAH/
ATMBAAGZAf8BZgEAAcwB/wGZAQABzAH/AcwBAAHMAv8BAAHMAQABMwEAAf8BAAFmAQAB/wEAAZkBAAHM
ATMCAAH/AjMBAAH/ATMBZgEAAf8BMwGZAQAB/wEzAcwBAAH/ATMB/wEAAf8BZgIAAf8BZgEzAQABzAJm
AQAB/wFmAZkBAAH/AWYBzAEAAcwBZgH/AQAB/wGZAgAB/wGZATMBAAH/AZkBZgEAAf8CmQEAAf8BmQHM
AQAB/wGZAf8BAAH/AcwCAAH/AcwBMwEAAf8BzAFmAQAB/wHMAZkBAAH/AswBAAH/AcwB/wEAAv8BMwEA
AcwB/wFmAQAC/wGZAQAC/wHMAQACZgH/AQABZgH/AWYBAAFmAv8BAAH/AmYBAAH/AWYB/wEAAv8BZgEA
ASEBAAGlAQADXwEAA3cBAAOGAQADlgEAA8sBAAOyAQAD1wEAA90BAAPjAQAD6gEAA/EBAAP4AQAB8AH7
Af8BAAGkAqABAAOAAwAB/wIAAf8DAAL/AQAB/wMAAf8BAAH/AQAC/wIAA/+JAAISPgABOAISPQABBwE4
AhI8AAHsAQcBOAISPAAB7AEHATgCEjkABBIBBwE4AhI4AAHsAQcFOAISOAAB7AEHATgCEjwAAewBBwE4
AhI7AAHsAQcCOAISOwAB7AEHAjgCEjsAAewBBwI4ARKwAAFCAU0BPgcAAT4DAAEoAwABQAMAARADAAEB
AQABAQUAAYAXAAP/AQAC/wYAAv8GAAGDAT8GAAH/AR8GAAGHAQ8GAAH/AQcGAAKDBgAB/gEBBgABhgcA
Af8BBwYAAoMGAAH/AYEGAAGDAcAGAAH/AeAGAAL/BgAC/wYACw==
</value>
</data>
</root>

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,165 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
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">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</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.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:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<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" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</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>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="ListBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Panel1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Panel2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Panel3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="TVStatus.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="sblist.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="resource.Images" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
RK5CYII=
</value>
</data>
<data name="GroupBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="$this.Name">
<value>frmSerienbriefe_Load</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAEAAAAAAAAAAAAAAAEAAAAA
AAAAAAAAgACAAIAAAACAgAAAAIAAAACAgAAAAIAAwMDAAMDcwADwyqYAgICAAP8A/wD/AAAA//8AAAD/
AAAA//8AAAD/AP///wDw+/8ApKCgANTw/wCx4v8AjtT/AGvG/wBIuP8AJar/AACq/wAAktwAAHq5AABi
lgAASnMAADJQANTj/wCxx/8Ajqv/AGuP/wBIc/8AJVf/AABV/wAASdwAAD25AAAxlgAAJXMAABlQANTU
/wCxsf8Ajo7/AGtr/wBISP8AJSX/AAAA/wAAANwAAAC5AAAAlgAAAHMAAABQAOPU/wDHsf8Aq47/AI9r
/wBzSP8AVyX/AFUA/wBJANwAPQC5ADEAlgAlAHMAGQBQAPDU/wDisf8A1I7/AMZr/wC4SP8AqiX/AKoA
/wCSANwAegC5AGIAlgBKAHMAMgBQAP/U/wD/sf8A/47/AP9r/wD/SP8A/yX/AP8A/wDcANwAuQC5AJYA
lgBzAHMAUABQAP/U8AD/seIA/47UAP9rxgD/SLgA/yWqAP8AqgDcAJIAuQB6AJYAYgBzAEoAUAAyAP/U
4wD/sccA/46rAP9rjwD/SHMA/yVXAP8AVQDcAEkAuQA9AJYAMQBzACUAUAAZAP/U1AD/sbEA/46OAP9r
awD/SEgA/yUlAP8AAADcAAAAuQAAAJYAAABzAAAAUAAAAP/j1AD/x7EA/6uOAP+PawD/c0gA/1clAP9V
AADcSQAAuT0AAJYxAABzJQAAUBkAAP/w1AD/4rEA/9SOAP/GawD/uEgA/6olAP+qAADckgAAuXoAAJZi
AABzSgAAUDIAAP//1AD//7EA//+OAP//awD//0gA//8lAP//AADc3AAAubkAAJaWAABzcwAAUFAAAPD/
1ADi/7EA1P+OAMb/awC4/0gAqv8lAKr/AACS3AAAerkAAGKWAABKcwAAMlAAAOP/1ADH/7EAq/+OAI//
awBz/0gAV/8lAFX/AABJ3AAAPbkAADGWAAAlcwAAGVAAANT/1ACx/7EAjv+OAGv/awBI/0gAJf8lAAD/
AAAA3AAAALkAAACWAAAAcwAAAFAAANT/4wCx/8cAjv+rAGv/jwBI/3MAJf9XAAD/VQAA3EkAALk9AACW
MQAAcyUAAFAZANT/8ACx/+IAjv/UAGv/xgBI/7gAJf+qAAD/qgAA3JIAALl6AACWYgAAc0oAAFAyANT/
/wCx//8Ajv//AGv//wBI//8AJf//AAD//wAA3NwAALm5AACqqgAAc3MAAFBQAPLy8gDm5uYA2traAM7O
zgDCwsIAtra2AKqqqgCenp4AkpKSAIaGhgB6enoAbm5uAGJiYgBWVlYASkpKAD4+PgAyMjIAJiYmABoa
GgAODg4AAAAAAAAAAAAAAAAAAAAAAAAABekF6QXpBekFAAAAAAAADwAF6QXpBekF6QUAAAAAABEPAAXp
BekF6QXpBQAAAAAPEQ8ABekF6QXpBekFAAAAEQ8RDwAAAAAAAAAAAAAAAAAAAAAPEQ8RDwAAAAAAAAoR
EREAEQ8RDxEAALoAAAAKERERAAAAAAAAAAAAugAAChEREQARAAAAAAAAALoAAAoREREAEQAAAAAAAAC6
AAAKCgoKChEAEQAAugC6AAAAAAAKERERABEAALq6AAAAAAAACgoKCgoRAAC6uroAAAAAAAAAChEREQAA
AAAAAAAAAAAAAAoKCgoKAAAAAAAAAAAf//8AD///AAf//wAD//8AAf//AAD//wAf//8AF///ABv//wH7
//8Ae///AFf//8BP///AR///8H////B///8=
</value>
</data>
</root>

View File

@@ -0,0 +1,398 @@
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Public Class frmSerienbriefe_Load
Inherits System.Windows.Forms.Form
#Region " Vom Windows Form Designer generierter Code "
Public Sub New()
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents Panel3 As System.Windows.Forms.Panel
Friend WithEvents TVStatus As System.Windows.Forms.TreeView
Friend WithEvents sblist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmSerienbriefe_Load))
Dim GridLines1 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
Me.ListBox1 = New System.Windows.Forms.ListBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.TVStatus = New System.Windows.Forms.TreeView()
Me.sblist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.Panel1.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.Panel3.SuspendLayout()
CType(Me.sblist, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
'
'ListBox1
'
Me.ListBox1.Location = New System.Drawing.Point(176, 448)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.Size = New System.Drawing.Size(368, 30)
Me.ListBox1.TabIndex = 0
'
'Button1
'
Me.Button1.Anchor = (System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right)
Me.Button1.Location = New System.Drawing.Point(688, 16)
Me.Button1.Name = "Button1"
Me.Button1.TabIndex = 1
Me.Button1.Text = "&OK"
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(8, 16)
Me.Button2.Name = "Button2"
Me.Button2.TabIndex = 2
Me.Button2.Text = "&Abbruch"
'
'Panel1
'
Me.Panel1.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button2, Me.Button1})
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel1.Location = New System.Drawing.Point(0, 253)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(768, 48)
Me.Panel1.TabIndex = 28
'
'Panel2
'
Me.Panel2.Controls.AddRange(New System.Windows.Forms.Control() {Me.sblist})
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Left
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(528, 253)
Me.Panel2.TabIndex = 29
'
'Panel3
'
Me.Panel3.Controls.AddRange(New System.Windows.Forms.Control() {Me.TVStatus})
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel3.Location = New System.Drawing.Point(3, 16)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(234, 234)
Me.Panel3.TabIndex = 30
'
'TVStatus
'
Me.TVStatus.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte))
Me.TVStatus.Dock = System.Windows.Forms.DockStyle.Fill
Me.TVStatus.ImageIndex = -1
Me.TVStatus.Name = "TVStatus"
Me.TVStatus.SelectedImageIndex = -1
Me.TVStatus.Size = New System.Drawing.Size(234, 234)
Me.TVStatus.TabIndex = 1
'
'sblist
'
Me.sblist.AllowFilter = True
Me.sblist.AllowSort = True
Me.sblist.AllowUpdate = False
Me.sblist.AllowUpdateOnBlur = False
Me.sblist.AlternatingRows = True
Me.sblist.CaptionHeight = 17
Me.sblist.CollapseColor = System.Drawing.Color.Black
Me.sblist.Cursor = System.Windows.Forms.Cursors.Default
Me.sblist.DataChanged = False
Me.sblist.DeadAreaBackColor = System.Drawing.Color.Empty
Me.sblist.Dock = System.Windows.Forms.DockStyle.Fill
Me.sblist.ExpandColor = System.Drawing.Color.Black
Me.sblist.FetchRowStyles = True
Me.sblist.FilterBar = True
Me.sblist.GroupByCaption = "Drag a column header here to group by that column"
Me.sblist.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
Me.sblist.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
Me.sblist.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
Me.sblist.Name = "sblist"
Me.sblist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.sblist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.sblist.PreviewInfo.ZoomFactor = 75
Me.sblist.PrintInfo.ShowOptionsDialog = False
Me.sblist.RecordSelectorWidth = 16
GridLines1.Color = System.Drawing.Color.DarkGray
GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
Me.sblist.RowDivider = GridLines1
Me.sblist.RowHeight = 15
Me.sblist.RowSubDividerColor = System.Drawing.Color.DarkGray
Me.sblist.ScrollTips = True
Me.sblist.Size = New System.Drawing.Size(528, 253)
Me.sblist.TabIndex = 29
Me.sblist.Text = "C1TrueDBGrid1"
Me.sblist.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
"r""><Data>Style11{}Style12{}Style13{}Style5{}Style4{}Style7{}Style6{}EvenRow{Wrap" & _
":True;Trimming:None;BackColor:White;}Selected{ForeColor:HighlightText;BackColor:" & _
"Highlight;}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeCol" & _
"or:ControlText;AlignVert:Center;}Inactive{ForeColor:InactiveCaptionText;BackColo" & _
"r:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}Footer{}Caption{AlignHorz:" & _
"Center;}Editor{}Normal{Wrap:True;BackColor:Control;}Style27{}Style26{}HighlightR" & _
"ow{ForeColor:HighlightText;BackColor:Highlight;}Style1{}OddRow{Wrap:True;AlignHo" & _
"rz:General;BackColor:224, 224, 224;}RecordSelector{AlignImage:Center;}Style9{}St" & _
"yle8{}Style3{}Style2{}Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:C" & _
"ontrolDark;}Style10{AlignHorz:Near;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid" & _
".MergeView Name="""" AllowRowSizing=""IndividualRows"" AlternatingRowStyle=""True"" Ca" & _
"ptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FetchRowStyles" & _
"=""True"" FilterBar=""True"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16" & _
""" DefRecSelWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientR" & _
"ect>0, 0, 524, 249</ClientRect><BorderSide>0</BorderSide><CaptionStyle parent=""H" & _
"eading"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style2"" /><EvenRowStyle " & _
"parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style27"" /" & _
"><FooterStyle parent=""Footer"" me=""Style4"" /><GroupStyle parent=""Group"" me=""Style" & _
"12"" /><HeadingStyle parent=""Heading"" me=""Style3"" /><HighLightRowStyle parent=""Hi" & _
"ghlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style6"" /><OddRow" & _
"Style parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector""" & _
" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style5"" /><Style parent=""No" & _
"rmal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style" & _
" parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""He" & _
"ading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""Headi" & _
"ng"" me=""Inactive"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Normal" & _
""" me=""Editor"" /><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal" & _
""" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me" & _
"=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Capti" & _
"on"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSpli" & _
"ts><Layout>Modified</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientAr" & _
"ea>0, 0, 524, 249</ClientArea></Blob>"
'
'GroupBox1
'
Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.Panel3})
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Fill
Me.GroupBox1.Location = New System.Drawing.Point(528, 0)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(240, 253)
Me.GroupBox1.TabIndex = 31
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Details zum Serienbrief"
'
'frmSerienbriefe_Load
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(768, 301)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox1, Me.Panel2, Me.Panel1, Me.ListBox1})
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmSerienbriefe_Load"
Me.Text = "Serienbrief laden"
Me.Panel1.ResumeLayout(False)
Me.Panel2.ResumeLayout(False)
Me.Panel3.ResumeLayout(False)
CType(Me.sblist, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Dim m_serienbriefnr As Integer
Property Serienbriefnr() As Integer
Get
Return m_serienbriefnr
End Get
Set(ByVal Value As Integer)
m_serienbriefnr = Value
End Set
End Property
Private Sub frmSerienbriefe_Load_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim dt As New DataTable()
dt = Load_Serienbriefe()
Me.sblist.DataSource = dt
Me.sblist.DataMember = dt.TableName
Me.sblist.Splits(0).DisplayColumns(0).Visible = False
Dim i As Integer
For i = 5 To Me.sblist.Splits(0).DisplayColumns.Count - 1
Me.sblist.Splits(0).DisplayColumns(i).Visible = False
Next
'Me.sblist.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.IndividualRows
Me.sblist.Splits(0).DisplayColumns(1).Width = 170
Me.sblist.Splits(0).DisplayColumns(2).Width = 80
Me.sblist.Splits(0).DisplayColumns(3).Width = 120
Me.sblist.Splits(0).DisplayColumns(4).Width = 100
For i = 0 To Me.sblist.Splits(0).Rows.Count - 1
Me.sblist.Splits(0).Rows(i).AutoSize()
Next
If dt.Rows.Count < 1 Then
Me.Button1.Enabled = False
End If
' Me.sblist.Columns("Status").FilterText = "in Bearbeitung"
End Sub
Private Function Load_Serienbriefe() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim i As Integer
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.CommandText = "dbo.sp_edex_sb_get_serienbriefe"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn.scoDBConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
Throw New Exception("sp_check_dokumentreaktivierung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Me.Serienbriefnr = Me.sblist.Columns(0).Value
Catch
Exit Sub
End Try
'Me.Serienbriefnr = Me.ListBox1.SelectedValue
Me.DialogResult = DialogResult.OK
Me.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Serienbriefnr = -1
Me.Close()
End Sub
Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
Me.Button1_Click(sender, e)
End Sub
Private Sub sblist_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sblist.DoubleClick
Try
Me.Button1_Click(sender, e)
Catch
End Try
End Sub
Private Sub sblist_RowColChange(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles sblist.RowColChange
Try
Me.TVStatus.BeginUpdate()
Me.TVStatus.Nodes.Clear()
Dim tn As New TreeNode()
Dim tn1 As New TreeNode()
Dim tn2 As New TreeNode()
Dim iFehlerhaft As Integer
Dim iInBearbeitung As Integer
Dim iNichtgeneriert As Integer
Dim iAusgeloest As Integer
Dim iErstellt As Integer
Dim iGedruckt As Integer
Dim iBestaetigt As Integer
iFehlerhaft = Me.sblist.Columns("fehlerhaft").Value
iNichtgeneriert = Me.sblist.Columns("inBearbeitung").Value
iAusgeloest = Me.sblist.Columns("ausgeloest").Value
iErstellt = Me.sblist.Columns("erstellt").Value
iGedruckt = Me.sblist.Columns("gedruckt").Value
iBestaetigt = Me.sblist.Columns("bestaetigt").Value
tn = Me.TVStatus.Nodes.Add(Me.sblist.Columns(1).Text)
tn.SelectedImageIndex = 0
tn.ImageIndex = -99
tn.Tag = -3
If Me.sblist.Columns("sbstatus").Value > 0 Then
tn1 = tn.Nodes.Add("in Bearbeitung (0)")
Else
tn1 = tn.Nodes.Add("in Bearbeitung (" + Str(iFehlerhaft + iNichtgeneriert + iErstellt + iGedruckt + iBestaetigt).Trim + ")")
End If
tn1.Tag = -9
tn1.SelectedImageIndex = 0
tn1.ImageIndex = -99
If Me.sblist.Columns("sbstatus").Value > 0 Then
tn1 = tn.Nodes.Add("Dokumentgenerierung ausgelöst " + "(" + Str(iAusgeloest).Trim + ")")
tn1.Tag = 1
tn1.SelectedImageIndex = 0
tn1.ImageIndex = -99
tn1 = tn.Nodes.Add("Abgeschlossen (" + Str(iFehlerhaft + iNichtgeneriert + iErstellt + iGedruckt + iBestaetigt).Trim + ")")
tn1.Tag = -4
tn1.SelectedImageIndex = 0
tn1.ImageIndex = -99
End If
tn2 = tn1.Nodes.Add("Fehlerhaft " + "(" + Str(iFehlerhaft).Trim + ")")
tn2.Tag = -1
tn2.SelectedImageIndex = 0
tn2.ImageIndex = -99
tn2 = tn1.Nodes.Add("Empfänger in Bearbeitung " + "(" + Str(iNichtgeneriert).Trim + ")")
tn2.Tag = 0
tn2.SelectedImageIndex = 0
tn2.ImageIndex = -99
tn2 = tn1.Nodes.Add("Dokumente erstellt " + "(" + Str(iErstellt).Trim + ")")
tn2.Tag = 2
tn2.SelectedImageIndex = 0
tn2.ImageIndex = -99
tn2 = tn1.Nodes.Add("Dokumente gedruckt " + "(" + Str(iGedruckt).Trim + ")")
tn2.Tag = 3
tn2.SelectedImageIndex = 0
tn2.ImageIndex = -99
tn2 = tn1.Nodes.Add("Dokumente bestätigt " + "(" + Str(iBestaetigt).Trim + ")")
tn2.Tag = 4
tn2.SelectedImageIndex = 0
tn2.ImageIndex = -99
Me.TVStatus.ExpandAll()
If Me.sblist.Columns("sbstatus").Value < 1 Then
tn1 = tn.Nodes.Add("Dokumentgenerierung ausgelöst " + "(" + Str(iAusgeloest).Trim + ")")
tn1.Tag = 1
tn1.SelectedImageIndex = 0
tn1.ImageIndex = -99
tn1 = tn.Nodes.Add("Abgeschlossen")
tn1.Tag = -4
tn1.SelectedImageIndex = 0
tn1.ImageIndex = -99
End If
Catch
Finally
Me.TVStatus.EndUpdate()
End Try
End Sub
End Class

View File

@@ -0,0 +1,766 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
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">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</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.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:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<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" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</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>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="ToolBar1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBarButton1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBarButton2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBarButton5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBarButton4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBarButton6.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBarButton3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>667, 17</value>
</data>
<data name="ImageList2.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuMzMw
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
AABMCgAAAk1TRnQBSQFMAgEBBAEAAQUBAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
AAEoAwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8AGAAB
7DIAAQMB/wsAAewB/wIHAf8DBwH/AQcnAAHsAQMB7AH/CwAB7Aj/AQcIAAHsBQAB7BYAAQMB7AEDAewB
AwH/CwAB7AH/AgcB/wMHAf8BBwcAAgMB7AMAAQMB7AYAAQcJAAEHBAABAwHsAQMB7AEDAewB/wEAAewJ
AAHsCP8BBwcAAewC+wEGAuwB+wEDBgABBwkAAQcEAAHsAQMB7AEDAewBAwH/AQAB7AkAAewB/wYHAf8B
BwgAAf8C+wEHAvsB7BUAAQMB7AEDAgAB7AH/AQAB7AgAAQcB7Aj/AQcIAAEDAvsCBwEDBwABBwHsBwAB
BwHsBAAB7AEDAewCBwEDAf8BAAHsAQABBgYAAQcB7AH/BAcB/wEHAf8BBwcAAewBAwP7AQcBAwEEBgAB
BwHsBwABBwHsBAABAwHsAQMB7AEDAewB/wIAAQYF/gH7AewBBwHsCP8BBwYAAQMF+wEHAvsBAwHsBAAB
BwHsBwABBwHsBAAB7AEDAewBAwHsAQMB/wEAAW0G/gEAAfsB7AEHAf8EBwP/AQcFAAHsA/8BBwL7AQcD
/wEDEwABAwHsAQMB7AEDAewB/wEAAewBbQH+BG0C7AMHAuwD/w0AAQcB+wHsCQACBwUAAgcFAAHsAQMB
7AEDAewBAwH/AQAB7AEAAm0DAAP7AQcB+wEHAvsB7AH/AewB/wsAAf8B+wHsFwABAwHsAQMB7AEHAf8B
7AEAAewCAAFtBAAB+wHsAfsB7AH7AewD/wHsDAACAwsAAewFAAHsBgAB7AEDAQcB/wHsAQAD7AYAAfsB
7AEAAfsB7AEAAfsE7AwAAgMYAAEHAf8B7AEABewJAAH7AewCAAH7OwAB+wHsKwABQgFNAT4HAAE+AwAB
KAMAAUADAAEgAwABAQEAAQEGAAEBFgAD/4EAAfwBfwHgAQME/wHwAX8B4AEDBP8BwAF/AeABAwH7Ae8B
hwHhAQABHwHgAQMB8QHPAYcB4QEAAR8B4AEDAfABDwGHAeEBAAEXAeABAwH4AQ8CgQEAAQcBwAEDAfgB
HwGAAQECAAHAAQMB8AEPAYABAQMAAQMB4AEDAYABAQIAAYABAwHAAQMBgAEBAwABAwH+AT8BwQGDAQAB
BwEAAQcB/gE/AeEBhwEAARcBgAEPAf4BfwHhAYcBAAEfASQBHwH+AX8B4QGHAQABHwHmBf8BAAEfAecF
/xYACw==
</value>
</data>
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</data>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuMzMw
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
AAC2DQAAAk1TRnQBSQFMAgEBCAEAAQkBAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
AAEoAwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ABQAw
/xAAJP8KAAL/EAAE/wHsAhQBEAHsAhQBEBf/AfABvAHwAd0D8wP/AQAC/wUAAewFAAHsBAAF/wEQARQB
7AH/ARABFAHsF/8CvAHwAbwB8QEZAfMD/wEAAv8EAAIDAewDAAEDAewEAAT/AUMBbQEUARAB7AJtARQB
7Bb/ArwBIAEAAe0DAAH0Af8BAAL/BAAB7AL7AQYC7AH7AQMEAAP/AUMBEgIUAQABFQFDARICFAHsBv8B
AAEDAQAB/wEAAiII/wEHArsBvAHwAbwB8QEZAfMB/wEAAv8FAAH/AvsBBwL7AewEAAP/AW0B9wHsARQB
bQEUARAB9wPsBv8BAAE3AfsBAwE3AfsBIgj/AQcBkwG1A7wB8AHdAvMBAAL/BQABAwL7AgcBAwUAA/8B
bQH3AewBbQEQARQBQwH3A+wH/wEiAfsDNwEACP8BvAK2ArsBvAHwAbwB8QEZAQAC/wQAAewBAwP7AQcB
AwEEBAAD/wFtAfcC7AEVAewBbQH3A+wG/wEAATcB+wIDAfsBIgj/AbwBuwEBAQABEgQAAbwBAAL/AwAB
AwX7AQcC+wEDAewCAAP/AW0B9wPsAf8BbQH3A+wG/wEiAgMB+wE3AgMBAAf/AfIBvAG7ArYCuwG8AfAB
vAEAAv8CAAHsA/8BBwL7AQcD/wEDAgAD/wFtAfcD7AH/AW0B9wPsCP8BAAE3ASIK/wHxAfABvAG7ApMB
tQO8AQAC/wcAAQcB+wHsBgAD/wFDARICFAHsAf8BQwESAhQB7An/ASIBAAr/AfMB8QK8AbsCtgK7AbwB
AAL/BwAB/wH7AewGAAP/BOwBBwH/BOwBBxX/AfQB8wEgBAAB7wEUAbwBAAL/BwACAwcAJf8C8wO8AewB
HAG1AQAC/wcAAgMHADD/EAAw/xAAEAcgAAn/AewBAAHsBP8HBwEAAQcBAAPsAQACByAAB/8B7AEAAv8B
7AT/BwcBAAEHAQAD7AEAAgcHMAEABzARAAX/AewBAAT/AQAB7AP/AQABBwQAAQcBAAEHAQAD7AEAAgcB
MAWgAgABmgGgBJoBMAcAAf8B+wgAA/8B7AEABf8B/AH/AewD/wUHAwABBwEAA+wBAAIHATABwwSgAQAE
oAOaATAFAAH/AQAB+wH/AfsB/wYAAv8BAAX/AfwB/wH8Af8BAAHsAv8FBwIAAgcBAAHsAQcB7AEAAgcB
MAHDA6ABAAEgAQACoAGaAaACmgEwBAAB+wIAAf8B+wH/AfsB/wH7BAAC/wHsA/8B/AH/AfwC/wH8Af8B
7AL/AgABBwEAAQcDAAEHAQAD7AEAAgcBMAHDA6ABAAIgAgADoAGaATADAAH/AQAB/wEAAfsB/wH7Af8B
+wH/AfsB/wIAAf8B7AEHAQAC/wH8Av8B/AH/AfwB/wEAAewB/wQHBgAD7AEAAgcBMAHDAqABAAP5AiAB
AAGgAZoBoAEwAgAB+wEAAv8BAAH/AfsB/wH7Af8B+wH/AfsB/wEAAf8DBwP/AfwB/wH8Av8B/AH/AewB
/wYHAgABBwIAAuwBAAIHATABwwH0AaABAAEXBPkBIAEAAaABmgEwAwAD/wIAAf8B+wH/AfsB/wH7Af8B
+wEAAf8BAAIHAQAC/wH8Av8B/AH/AfwB/wEAAewFBwMAAQcBAAPsAQACBwEwAcMBoAEAARcCAAEXAfkE
AAGgATAFAAP/AgAB+wH/AfsB/wH7Af8BAAH/AgACBwX/AfwC/wH8Af8B7AYHAgABBwIAAuwBAAIHATAB
9AHDAgACoAIABKABmgEwAwAB+wH/AgAC/wEAAf8B+wH/AfsB/wH7AQAD/wEAAQcBAAH/AwcB/wH8A/8B
AAkHBQACBwEwAvQEwwWgAZoBoAEwBAAB+wH/AfsBAAL/AgAB+wH/AfsB/wIAA/8BAAEHAf8CBwf/EAcB
MAeaBzAGAAH/AfsBAAL/AwAB/wH7AQAC/wEAAv8CAAL/AQAB7AEHAv8BAAH/CAcEBAQHAQABMAH0AsMC
oAEwEgAB/wH7BAAE/wEAAf8BAAH/AQAB/wEHAwAC/wgHAQQCBwEEBAcCAAUwGQAG/wEABP8BBwEAA/8I
BwQEBAcgABD/AUIBTQE+BwABPgMAASgDAAFAAwABMAMAAQEBAAEBBQABgAEBFgAD/4cAAv8GAAL/BgAB
+wHvBgAB8QHPBgAB8AEPBgAB+AEPBgAB+AEfBgAB8AEPBgAB4AEDBgABwAEDBgAB/gE/BgAB/gE/BgAB
/gF/BgAB/gF/BgAC/wYAAv8CAAT/BAABgAEAAv8GAAH4Af8GAAHwAT8GAAHgAQ8GAAHAAQMGAAGAFwAB
gAcAAYAHAAHABgABAQHgBQABgAH/AfkFAAHBAv8BzwQABP8YAAs=
</value>
</data>
<data name="TVStruktur.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ContextMenu1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>281, 17</value>
</data>
<data name="ContextMenu1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuDokumenterstellen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MenuItem8.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MenuItem2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuAddFavoriten.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuShowFavoriten.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MenuItem1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MenuUnExpand.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MenuExpand.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MenuUnexpandsel.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuExpandSel.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MenuItem5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MenuItem6.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MenuItem7.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList4.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>455, 32</value>
</data>
<data name="ImageList4.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuMzMw
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
AACCPQAAAk1TRnQBSQFMAgEBQwEAAUUBAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
AAEoAwABQAMAASABAQIAAQEBAAEIBgABSBgAAYACAAGAAwACgAEAAYADAAGAAQABgAEAAoACAAPAAQAB
wAHcAcABAAHwAcoBpgEAATMFAAEzAQABMwEAATMBAAIzAgADFgEAAxwBAAMiAQADKQEAA1UBAANNAQAD
QgEAAzkBAAGAAXwB/wEAAlAB/wEAAZMBAAHWAQAB/wHsAcwBAAHGAdYB7wEAAdYC5wEAAZABqQGtAgAB
/wEzAwABZgMAAZkDAAHMAgABMwMAAjMCAAEzAWYCAAEzAZkCAAEzAcwCAAEzAf8CAAFmAwABZgEzAgAC
ZgIAAWYBmQIAAWYBzAIAAWYB/wIAAZkDAAGZATMCAAGZAWYCAAKZAgABmQHMAgABmQH/AgABzAMAAcwB
MwIAAcwBZgIAAcwBmQIAAswCAAHMAf8CAAH/AWYCAAH/AZkCAAH/AcwBAAEzAf8CAAH/AQABMwEAATMB
AAFmAQABMwEAAZkBAAEzAQABzAEAATMBAAH/AQAB/wEzAgADMwEAAjMBZgEAAjMBmQEAAjMBzAEAAjMB
/wEAATMBZgIAATMBZgEzAQABMwJmAQABMwFmAZkBAAEzAWYBzAEAATMBZgH/AQABMwGZAgABMwGZATMB
AAEzAZkBZgEAATMCmQEAATMBmQHMAQABMwGZAf8BAAEzAcwCAAEzAcwBMwEAATMBzAFmAQABMwHMAZkB
AAEzAswBAAEzAcwB/wEAATMB/wEzAQABMwH/AWYBAAEzAf8BmQEAATMB/wHMAQABMwL/AQABZgMAAWYB
AAEzAQABZgEAAWYBAAFmAQABmQEAAWYBAAHMAQABZgEAAf8BAAFmATMCAAFmAjMBAAFmATMBZgEAAWYB
MwGZAQABZgEzAcwBAAFmATMB/wEAAmYCAAJmATMBAANmAQACZgGZAQACZgHMAQABZgGZAgABZgGZATMB
AAFmAZkBZgEAAWYCmQEAAWYBmQHMAQABZgGZAf8BAAFmAcwCAAFmAcwBMwEAAWYBzAGZAQABZgLMAQAB
ZgHMAf8BAAFmAf8CAAFmAf8BMwEAAWYB/wGZAQABZgH/AcwBAAHMAQAB/wEAAf8BAAHMAQACmQIAAZkB
MwGZAQABmQEAAZkBAAGZAQABzAEAAZkDAAGZAjMBAAGZAQABZgEAAZkBMwHMAQABmQEAAf8BAAGZAWYC
AAGZAWYBMwEAAZkBMwFmAQABmQFmAZkBAAGZAWYBzAEAAZkBMwH/AQACmQEzAQACmQFmAQADmQEAApkB
zAEAApkB/wEAAZkBzAIAAZkBzAEzAQABZgHMAWYBAAGZAcwBmQEAAZkCzAEAAZkBzAH/AQABmQH/AgAB
mQH/ATMBAAGZAcwBZgEAAZkB/wGZAQABmQH/AcwBAAGZAv8BAAHMAwABmQEAATMBAAHMAQABZgEAAcwB
AAGZAQABzAEAAcwBAAGZATMCAAHMAjMBAAHMATMBZgEAAcwBMwGZAQABzAEzAcwBAAHMATMB/wEAAcwB
ZgIAAcwBZgEzAQABmQJmAQABzAFmAZkBAAHMAWYBzAEAAZkBZgH/AQABzAGZAgABzAGZATMBAAHMAZkB
ZgEAAcwCmQEAAcwBmQHMAQABzAGZAf8BAALMAgACzAEzAQACzAFmAQACzAGZAQADzAEAAswB/wEAAcwB
/wIAAcwB/wEzAQABmQH/AWYBAAHMAf8BmQEAAcwB/wHMAQABzAL/AQABzAEAATMBAAH/AQABZgEAAf8B
AAGZAQABzAEzAgAB/wIzAQAB/wEzAWYBAAH/ATMBmQEAAf8BMwHMAQAB/wEzAf8BAAH/AWYCAAH/AWYB
MwEAAcwCZgEAAf8BZgGZAQAB/wFmAcwBAAHMAWYB/wEAAf8BmQIAAf8BmQEzAQAB/wGZAWYBAAH/ApkB
AAH/AZkBzAEAAf8BmQH/AQAB/wHMAgAB/wHMATMBAAH/AcwBZgEAAf8BzAGZAQAB/wLMAQAB/wHMAf8B
AAL/ATMBAAHMAf8BZgEAAv8BmQEAAv8BzAEAAmYB/wEAAWYB/wFmAQABZgL/AQAB/wJmAQAB/wFmAf8B
AAL/AWYBAAEhAQABpQEAA18BAAN3AQADhgEAA5YBAAPLAQADsgEAA9cBAAPdAQAD4wEAA+oBAAPxAQAD
+AEAAfAB+wH/AQABpAKgAQADgAMAAf8CAAH/AwAC/wEAAf8DAAH/AQAB/wEAAv8CAAP//wD/AP8A/wAn
AA7sPgAC7BgAASkYAA37AQAB7BYAAYUBAAEpAjcWAAX7AgABKQX7AQAB7BQAAQEBAAGFAeYBKQQ3FAAF
+wIAASkE+wEAAuwSAAEnAREBAQH5AYUB5gEpATcB9wM3FAAL+wEAAewSAAFtAScB+gEBAfkBhQHmASkC
NwL3ATcUAAX7AQAE+wEAAewTAAFtAScB+gEBAfkBhQHmASkENwH3FQAE+wEABPsBAAHsFAABJwH6AQEB
+QGFAeYBKQE3AvcCNxUAA/sDAAL7AQAB7BUAAScB+gEBAfkBhQHmASkDNwH3ATcWAAL7AwAC+wEAAewV
AAEnAfoBAQH5AYUB5gIpAjcDKRUAAvsDAAH7AQAB7BYAAScB+gEBAfkBhQLmAikBNwEpATcXAAL7AQAC
+wEAAewWAAEnAfoCAQH5AoUB5gMpGAAE+wEAAewXAAInAfoCAQH5A4UbAAP7AQAB7BgAAicB+gMBHQAC
+xwAAyeKAAFlAeYEBwLmCAABpgHdBAcB3QEHFwADMAUABzACAAFlB+YIAAGmBt0BBw8AASkHAAEwAqAB
hQPWAQABmgGgBJoBMAIAAWUB5gQHAuYBAAL5BQABpgHdBAcB3QEHAQABlAEHCgABhQEAASkCWQUAATAB
wwGgAYUB3QEJAdYDAAGgA5oBMAIAAWUH5gEAAvkFAAGmBt0BBwEAAZQBBwgAAQEBAAGFAd0BKQRZAwAB
MAHDAaABhQLdAdYBAAGUAQABmgGgApoBMAIAAWUB5gEHAeYCBwLmAQAC+QUAAaYB3QEHAd0CBwHdAQcB
AAGUAQcGAAEnAREBAQGUAYUB3QEpAVkB9wNZAgABMAHDAaABhQLdAdYBAAGUAwABoAGaATACAAFlB+YB
AAL5AQAC+gIAAaYG3QEHAQABlAEHAQABngEHAgABbQEnAZ4BAQGUAYUB3QEpAlkC9wFZAgABMAHDAaAF
hQGUAQABngEAAZoBoAEwAgABZQHmAwcB5gFlAgAC+QEAAvoCAAGmAd0DBwHdAaYCAAGUAQcBAAGeAQcC
AAFtAScBngEBAZQBhQHdASkEWQH3AgABMAHDA6ABIwK9AZQBAAGeAQABoAGaATACAAFlBeYBZQHmAQAC
+QEAAvoCAAGmBd0BpgHdAQABlAEHAQABngEHAwABJwGeAQEBlAGFAd0BKQFZAvcCWQIAATABwwOgBSMB
ngEAAZoBoAEwAgAIZQP5AQAC+gIAB6YBhQKUAQcBAAGeAQcDAAEnAZ4BAQGUAYUB3QEpA1kB9wFZAgAB
MAH0AcMEoAECAsIBngEAAaABmgEwBQABIwH5AwcB+QEjAgAC+gUAASMBlAMHAZQBIwIAAZ4BBwMAAScB
ngEBAZQBhQHdAikCWQMpAQABMAL0BMMFAgGaAaABMAUAASMF+QEjAfkBAAL6BQABIwWUASMBlAEAAZ4B
BwMAAScBngEBAZQBhQLdAikBWQEpAVkCAAEwB5oHMAUACCMD+gUACCMCngEHAwABJwGeAgEBlAKFAd0D
KQQAATAB9ALDAqABMA8AAScB+gMHAfoBJwkAAQIBngMHAZ4BAgQAAicBngIBAZQDhQcABTAQAAEnBfoB
JwH6CAABAgWeAQIBngQAAicBngMBHgAIJwgACAIFAAMnOwAB7D8AAewCGgEHAewBBwEaAZoEejQAAewB
wwEaAQAB7AEAARoCmgN6NAAB7AKgAQcB7AEHAxoBmgJ6NAAB7AKgAQAB7AEAAZoDGgKaNAAB7AKgAQcB
7AEHAaADGgKaNAAB7AKgAQAB7AEAAaAEGgGaNAAB7AHDAaABBwHsAQcBoAGaBBo0AAHsAcMBoAEAAewB
AAOgAxo0AAHsAcMBoAEHAQABkgOgAZoCGjQAAewBwwGgAewB7wEABqA0AAHsAsMB7AH2AQAGoDQAAewC
wwHsAQcBAAF6AqA3AAHsA8MB7ALDAqAB7AGgNQAB7AfDAaAB7DYACuz/AP8A/wD/AFkADvsyAAH7DAAB
+wkAAiABAAIgAQACIAgAAiABAAIgAQACIAQAAe8BvAHvAbwE7wUAAfsCAAn7AQAB+wkAAiABAAIgAQAC
IAgAAiABAAIgAQACIAQAAf8EvAHvAbwB7wUAAfsDAAL7BAAC+wEAAfslAAL/Ae8BvAHvAbwC7wUAAfsE
AAL7BgAB+wIAAfwBAAH8AQAB/AEAAfwBAAH8BgAKAgoAAf8BvAH/BLwB7wUAAfsBAAL7AQAC+wIAAvsC
AAH7AQAB/Aj/BwABAgj/AQIKAAL/AbwB/wHvAbwB7wG8BQAB+wEAAvsCAAX7AgAB+wIAAf8BAAH8Af8B
/AEAAv8B/AYAAQIB/wgCCgAB/wG8Af8BvAH/ArwB7wUAAfsBAAL7AgAC+wEAAvsCAAH7AQAB/AH/AfwB
AAEHAQAB/AEHAf8HAAECAf8DAgEHBAIKAAL/AbwB/wkAAfsCAAL7AQAC+wUAAfsCAAH/AQAB/AEAAfwB
AAH8Af8B/AYAAQIC/wECAQcDAgH/AQIKAAH/AbwB/wG8AQABvALvBQAB+wMAAvsBAAL7AQAC+wEAAfsB
AAH8Af8B/AH/AfwBAAH/AQABBwcAAQIB/wECAQcDAgL/AQIKAAT/AQAB/wG8Ae8FAAH7BAAH+wEAAfsC
AAH8AQAB/wEAAfwB/wH8AQAB/AYAAQIB/wEHBQIB/wECCgAE/wEAAf8BvAYAAfsMAAH7AQAB/AEAAfwB
AAH8AQAB/AEAAfwHAAECAf8CAgL/AgIB/wECFwAB+wwAAfsCAAj/AfwGAAECCP8BAhcADvsBAAH8AQAB
/AEAAfwBAAH8AQAB/AcACgJaAAEHAgABBwEAAQcBAAEHAgABBzUAAQcCAAEHAQABBwEAAQcCAAEHCgAD
7CgAAQcCAAEHAQABBwEAAQcCAAEHCAABBwT/AQcKAAfvAwAB/AEAAfwBAAH8AQAB/AEAAfwHAAH8AQAB
/AEAAfwBAAH8AQAB/AsAAewBAAH/AQAD/wHsAQcJAAH/BQAB7wIAAfwI/wcAAfwI/w0AAQcH/wHsCAAC
/wG8Af8BvAH/Ae8DAAH/AQAB/AH/AfwBAAL/AfwHAAH/AQAB/AH/AfwBAAL/AfwMAAH/AQAC/wIAAv8B
7AIABe8BAAH/BQAB7wIAAfwB/wH8AQABBwEAAfwBBwH/AQAE1gIAAfwB/wH8AQABBwEAAfwBBwH/AQAE
1ggAAf8BAAL/AwAB/wEHAgAB/wUAAv8BvAH/AbwB/wHvAwAB/wEAAfwBAAH8AQAB/AH/AfwD/wHWAwAB
/wEAAfwBAAH8AQAB/AH/AfwD/wHWCAABBwP/AQAD/wHsAgAB/wG8Af8BvAH/AQAB/wIAAbwFAAH8Af8B
/AH/AfwBAAH/AQABBwEAAdYC/wHWAgAB/AH/AfwB/wH8AQAB/wEAAQcBAAHWAv8B1gcAAuwB/wEAAf8B
AAH/AewB/wEAAewBAAH/BQAC/wG8Af8BAAH/BAAB/AEAAf8BAAH8Af8B/AEAAfwB1gEHAf8B1gMAAfwB
AAH/AQAB/AH/AfwBAAH8AdYBBwH/AdYFAAIgAgAB7AX/AewDAAH/AbwB/wG8Af8BAAT/BQAB/AEAAfwB
AAH8AQAB/AEAAfwBAALWAf8B1gIAAfwBAAH8AQAB/AEAAfwBAAH8AQAC1gH/AdYEAAFBAiAEAAHsAQcB
7AUAAf8CAAH/DAAI/wH8Af8B1gEHAdYDAAj/AfwB/wHWAQcB1gMAAeMCQQQgAewDAAHsBAAB/wG8Af8B
vAEAAf8JAAH8AQAB/AEAAfwBAAH8AQAB/AEAAf8D1gIAAfwBAAH8AQAB/AEAAfwBAAH8AQAB/wPWAgAD
4wNBBSAGAAT/DwAK1gYACtYDAATjAkEDIBoAAdYI/wHWBgAB1gj/AdYEAAPjHwAK1gYACtYFAALjPwAB
BwIAAQcBAAEHAQABBwIAAQc1AAEHAgABBwEAAQcBAAEHAgABBzUAAQcCAAEHAQABBwEAAQcCAAEHEQAK
AgYACgIGAAoCBwAB/AEAAfwBAAH8AQAB/AEAAfwGAAECCP8BAgYAAQII/wECBgABAgj/AQIGAAH8CP8H
AAECAf8IAgYAAQIB/wgCBgABAgH/CAIHAAH/AQAB/AH/AfwBAAL/AfwGAAECAf8DAgEHBAIGAAECAf8D
AgEHBAIEmAIAAQIB/wMCAQcEAgSYAgAB/AH/AfwBAAEHAQAB/AEHAf8HAAECAv8BAgEHAwIB/wECBgAB
AgL/AQIBBwMCAf8BAgP/AZgCAAECAv8BAgEHAwIB/wECA/8BmAMAAf8BAAH8AQAB/AEAAfwB/wH8BgAB
AgH/AQIBBwMCAv8BAgYAAQIB/wECAQcDAgL/AQIEmAIAAQIB/wECAQcDAgL/AQIEmAIAAfwB/wH8Af8B
/AEAAf8BAAEHBwABAgH/AQcFAgH/AQIGAAECAf8BBwUCAf8BAgSYAgABAgH/AQcFAgH/AQIEmAMAAfwB
AAH/AQAB/AH/AfwBAAH8BgABAgH/AgIC/wICAf8BAgYAAQIB/wICAv8CAgH/AQICmAH/AZgCAAECAf8C
AgL/AgIB/wECApgB/wGYAgAB/AEAAfwBAAH8AQAB/AEAAfwHAAECCP8BAgYAAQII/wECAZgC/wGYAgAB
Agj/AQIBmAL/AZgDAAj/AfwGAAoCBgAKAgKYAf8BmAIACgICmAH/AZgCAAH8AQAB/AEAAfwBAAH8AQAB
/BsAAZgB/wKYAv8CmAH/AZgGAAGYAf8CmAL/ApgB/wGYJgABmAj/AZgGAAGYCP8BmCYACpgGAAqYJgAB
BwIAAQcBAAEHAQABBwIAAQcRAAHsAwABBwIAAQcBAAEHAQABBwIAAQcVAAEHAgABBwEAAQcBAAEHAgAB
BxEAAewEBwIAAQcBAAEHAQABBwIAAQcVAAEHAgABBwEAAQcBAAEHAgABBwQAAewBBwH7AgcBAAPsBAAB
7AP/AQcCAAEHAQABBwEAAQcCAAEHAgAB/AEAAfwBAAH8AQAB/AEAAfwHAAH8AQAB/AEAAfwBAAH8AQAB
/AkAAewD/wH7Af8BAAH7AQcC7AIAAewB/wQHAf8DBwH/AQcEAAH8CP8HAAH8CP8LAAHsAfsD/wH7AQAB
/wH7AQcB7AEAAewK/wEHBQAB/wEAAfwB/wH8AQAC/wH8BwAB/wEAAfwB/wH8AQAC/wH8CgAB7AL/AfsC
/wEAAf8CAAHsAQAB7AH/BAcB/wMHAf8BBwQAAfwB/wH8AQABBwEAAfwBBwH/AQAE1gIAAfwB/wH8AQAB
BwEAAfwBBwH/AQAE1gcAAewD/wH7AewBAAH/AfsBBwEAAewK/wEHBQAB/wEAAfwBAAH8AQAB/AH/AfwD
/wHWAwAB/wEAAfwBAAH8AQAB/AH/AfwD/wHWCQAB+wP/AfsC/wEHAQAB7AH/CAcB/wEHBAAB/AH/AfwB
/wH8AQAB/wEAAQcBAAHWAv8B1gIAAfwB/wH8Af8B/AEAAf8BAAEHAQAB1gL/AdYHAAIBAQAB/wH7A/8B
+wEHAQAB7Ar/AQcFAAH8AQAB/wEAAfwB/wH8AQAB/AHWAQcB/wHWAwAB/AEAAf8BAAH8Af8B/AEAAfwB
1gEHAf8B1gMAAgEDAAEBAQAD/wH7Av8BBwEAAewB/wIHAf8FBwH/AQcEAAH8AQAB/AEAAfwBAAH8AQAB
/AEAAtYB/wHWAgAB/AEAAfwBAAH8AQAB/AEAAfwBAALWAf8B1gMAAfkBAQEAAfkBAAEBAwAD/wH7AQcB
AAHsCv8BBwUACP8B/AH/AdYBBwHWAwAI/wH8Af8B1gEHAdYDAAL5AgAC+QEAA/8B+wL/AQcBAAHsAf8C
BwH/BQcB/wEHBAAB/AEAAfwBAAH8AQAB/AEAAfwBAAH/A9YCAAH8AQAB/AEAAfwBAAH8AQAB/AEAAf8D
1gkAAv8B+wP/AfsBBwEAAewI/wsACtYGAArWBwAB7AH/AfsD/wH7Av8BBwEAAewB/wYHAf8B7AH/CQAB
1gj/AdYGAAHWCP8B1gcACuwBAAHsCP8B7AoACtYGAArWEgAK7E4AAcgBAAHdAQAByAsAAS0BAAHCAQAB
LQsAASUBAAGaAQABJRoAAcgF3QHICQABLQXCAS0JAAElBZoBJRgAAsgB3QHIAQAByAHdCQACLQHCAS0B
AAEtAcIJAAIlAZoBJQEAASUBmgQAAfwBAAH8AQAB/AEAAfwBAAH8DAAByALdAQAB7AEAAt0ByAcAAS0C
wgEAAewBAALCAS0HAAElApoBAAHsAQACmgElAQAB/Aj/DQACyAHdAcgBAAHIAd0JAAItAcIBLQEAAS0B
wgkAAiUBmgElAQABJQGaBAAB/wEAAfwB/wH8AQAC/wH8DQAByAXdAcgJAAEtBcIBLQkAASUFmgElAgAB
/AH/AfwBAAEHAQAB/AEHAf8OAALIAQAB3QEAAcgKAAItAQABwgEAAS0KAAIlAQABmgEAASUEAAH/AQAB
/AEAAfwBAAH8Af8B/AgAAcgBAAHdAQAByAIABMgFAAEtAQABwgEAAS0CAAQtBQABJQEAAZoBAAElAgAE
JQMAAfwB/wH8Af8B/AEAAf8BAAEHCAAByAXdAcgJAAEtBcIBLQkAASUFmgElCQAB/AEAAf8BAAH8Af8B
/AEAAfwGAALIAd0ByAEAAcgB3QkAAi0BwgEtAQABLQHCCQACJQGaASUBAAElAZoJAAH8AQAB/AEAAfwB
AAH8AQAB/AcAAcgC3QEAAewBAALdAcgHAAEtAsIBAAHsAQACwgEtBwABJQKaAQAB7AEAApoBJQgACP8B
/AYAAsgB3QHIAQAByAHdCQACLQHCAS0BAAEtAcIJAAIlAZoBJQEAASUBmgkAAfwBAAH8AQAB/AEAAfwB
AAH8CAAByAXdAcgJAAEtBcIBLQkAASUFmgElGQACyAEAAd0BAAHICgACLQEAAcIBAAEtCgACJQEAAZoB
AAElHAAEyAwABC0MAAQlLAABLQFVAS0NAAEtAVUBLSEAAewH/wQAAS0BVQEtDQABLQFVAS0SAAEqAQAB
mgEAASoKAAHsB/8EAAEtAVUBLQ0AAS0BVQEtEQABKgWaASoJAAHsB/8EAAMtAgAH/wQAAy0CAAf/BwAC
KgGaASoBAAEqAZoMAAb/BAAB7AUABv8EAAHsBQAG/wcAASoCmgEAAewBAAKaASoDAAa1AQAG/wIAAuwF
4QIABf8CAALsAugB7wH/Ae8CAAX/BwACKgGaASoBAAEqAZoFAAS1AwAG/wIAAewB4QH/BeEBAAX/AgAB
7APoAe8B/wHvAf8BAAX/CAABKgWaASoEAAO1AQACtQEABv8BAAHsAeEB/wfhAQAE/wEAAewB6AH/AugB
7wH/Ae8C/wEABP8IAAIqAQABmgEAASoFAAa1AQAE/wHsAgAB7AH/AeEB/wbhAQAE/wEAAewB/wPoAe8B
/wHvAv8BAAT/AwABKgEAAZoBAAEqAgAEKgUABbUDAAP/AewB/wEAAewB4QH/B+EBAAT/AQAB7AHoAv8B
6AHvAf8B7wL/AQAE/wIAASoFmgEqCgAHtQEABewBAAHsA/8B4QH/BOEBAAL/AewCAAHsAf8B6AL/Ae8B
/wHvAv8BAAL/AewCAAIqAZoBKgEAASoBmgsAB7UBAAH/AewFAAHsA/8B4QH/AeEB/wEAA/8B7AH/AgAB
7AH/AegB/wHvAf8B7wH/AQAD/wHsAf8BAAEqApoBAAHsAQACmgEqCQAEtQEAArUBAAH/AewB/wQAAuwB
/wHhAf8B4QH/AgAF7AIAAuwB/wHoAe8B/wHvAgAF7AEAAioBmgEqAQABKgGaCwAEtQEAAbUBAATsBgAD
7AIAA/8B7AcAA+wCAAP/AewFAAEqBZoBKgoABrUNAAHsBf8B7AH/CAAB7AX/AewB/wQAAioBAAGaAQAB
Kh4ACOwIAAjsBgAEKjwAAS0BVQEtDQAB7AUHAewJAAHsBQcB7AkAAewFBwHsCQABLQFVAS0NAAGvBbYB
rwHsCAABLQVaAS0B7AgAASUFTQElAewIAAEtAVUBLQ0AAa8FtgKvAewHAAEtBVoCLQHsBwABJQVNAiUB
7AcAAy0NAAGvBbYDrwHsBgABLQVaAy0B7AYAASUFTQMlAewGAAHsDwABrwW2AQADrwHsBQABLQVaAQAD
LQHsBQABJQVNAQADJQHsAwAC7AThAW0CAAS1BAAC7AX/AgADrwQAAuwF/wIAAy0EAALsBf8CAAMlAwAB
7AXhAW0BvAEAArUFAAPsBf8BAAEHAQACrwMAA+wF/wEAAQcBAAItAwAD7AX/AQABBwEAAiUCAAHsAeEB
/wThAW0CvAIAArUDAALsAQcF7AIHAf8BAAGvAwAC7AEHBewCBwH/AQABLQMAAuwBBwXsAgcB/wEAASUC
AAHsAf8F4QFtArwBAAO1AwAB7AEHAewDBwLsAQcD/wQAAewBBwHsAwcC7AEHA/8EAAHsAQcB7AMHAuwB
BwP/AwAB7AHhA/8C4QFtArwBAAK1BAAB7AH/AQcB7AMHAQAF7AMAAewB/wEHAewDBwEABewDAAHsAf8B
BwHsAwcBAAXsAgAB7AH/AeEC/wLhAW0CvAEABLUDAAHsAf8BBwHsAQcBAAHsBP8BBwQAAewB/wEHAewB
BwEAAewE/wEHBAAB7AH/AQcB7AEHAQAB7AT/AQcDAAHsAf8B4QH/AuEBbQG8AQAFtQQAAewB/wEHAgAB
7AT/AQcFAAHsAf8BBwIAAewE/wEHBQAB7AH/AQcCAAHsBP8BBwMAAuwB/wHhAf8B4QFtAgACtQEAArUF
AAHsAf8DAAXsBgAB7AH/AwAF7AYAAewB/wMABewFAAPsAgAEtQEAAbUHAAHsDwAB7A8AAewSAAa1TAAB
EgGUBJMxAAETAeoEEgHqAW4BAAESAZQEkxMAAewFBwHsCQAB7AUHAewHAAHqAbcDlAG3AZMBbgEAARIB
lASTEwABMQVZATEB7AgAAeYF1gHmAewGAAESAZQCkwG3AQ4DAAESAZQEkwEABtcBAAb0BQABMQVZAjEB
7AcAAeYF1gLmAewFAAESAZQBkwGUARIBAAESAb0BAAHqAbcBlAOTAQAE1wUABPQFAAExBVkDMQHsBgAB
5gXWA+YB7AQAARIBlAGTAbcBAAESArcBAAEQAhIBbgKTAQAD1wEAAtcBAAL0AQAD9AUAATEFWQEAAzEB
7AUAAeYF1gEAA+YB7AMAARIBlAKTArcBlAG3ARMBEgFtAQABEgG3AZMBAAbXAQAG9AQAAuwF/wIAAzEE
AALsBf8CAAPmAwABEgGUApMBtwETARIBEwK9AW0BAAERAY4BlAEABdcDAAX0AwAD7AX/AQABBwEAAjED
AAPsBf8BAAEHAQAC5gMAARIBlAGTAbcBDgQAAREEAAGTAQAF1wEAB/QDAALsAQcF7AIHAf8BAAExAwAC
7AEHBewCBwH/AQAB5gMAAesBkwGUAUQBAAEQAf8B8QIAARAB/wHxAwAF1wEAB/QDAAHsAQcB7AMHAuwB
BwP/BAAB7AEHAewDBwLsAQcD/wQAAewB8wGTARIBAAH/AQAB/wIAAf8BFAH/AfcCAAPXAQAB1wEAAvQB
AAT0AwAB7AH/AQcB7AMHAQAF7AMAAewB/wEHAewDBwEABewDAAHsAf8BtwFEAQAB8QH/AfECAAHsAv8D
AAPXAQAC1wL0AQAE9AQAAewB/wEHAewBBwEAAewE/wEHBAAB7AH/AQcB7AEHAQAB7AT/AQcDAAHsAv8B
twEQCQABkwEABtcH9AUAAewB/wEHAgAB7AT/AQcFAAHsAf8BBwIAAewE/wEHAwABFALsAe0BbgMAAY4B
twESAQABEQEHAf8UAAHsAf8DAAXsBgAB7AH/AwAF7AkAAbwB8wG9ARoBvQT/FQAB7A8AAewKAAH/AfIB
AAH/ARUBQwr/WgAB6gW2CgAB6gW2BgAB7AEwCgAC+QIAAfkKAAEUAW0E6gFtAesBAAHqBbYBAAEUAW0E
6gFtAesBAAHqBbYFAAHsATABegwAArwLAAFtAd0DtgHdAbUB6wEAAeoFtgEAAW0B3QO2Ad0BtQHrAQAB
6gW2BAAC7AF6AQAC+QkAArwCAAFtCQAB6gO2Ad0BDwMAAeoFtgEAAeoDtgHdAQ8DAAHqBbYBAAHsAjAB
7AF6AQACvAsAA7wBAAH/AQAB7AYAAeoDtgESAQAB6gHeAQABbQHdBLYBAAHqA7YBEgEAAeoB3gEAAW0B
3QS2AQABMAN6AQACvAIAAW0GAALsBLwBAAL/BwAB6gK2AdcBAAESAt0BAAEQAhIBjQK2AQAB6gK2AdcB
AAESAt0BAAEQAhIBjQK2AewBegEAAnoCAAO8AQABVgEAAVYDAALsAQAEvAMAAVABAAFQAwAB6gO2AdcB
3QG2Ad0CEgFtAQAB6gHXAbYBAAHqA7YB1wHdAbYB3QISAW0BAAHqAdcBtgEAA3oBMAEABLwBAAJWBAAC
7AEAArwCAAP/AQABvAQAAeoDtgHdARIB6gESAt4BbQEAAREB9wG2AQAB6gO2Ad0BEgHqARIC3gFtAQAB
EQH3AbYCAAHsAgAB7AEABLwGAAPsAQACvAEAA/8BAAG8BAAB6gK2Ad0BDwQAAUMEAAG1AQAB6gK2Ad0B
DwQAAUMEAAG1BAAC7AEAArwCAAP/BAAF7AEABP8BAAG8AwAB6wK2ARIBAAEQAf8B8QIAARAB/wHxAwAB
6wK2ARIBAAEQAf8B8QIAARAB/wHxBgAD7AEAArwBAAP/CgAC/wIAArwDAAHsAfMBtgHqAQAB/wEAAf8C
AAH/ARQB/wH3AgAB7AHzAbYB6gEAAf8BAAH/AgAB/wEUAf8B9wYABewBAAT/BgADvAEAAv8BAAO8AgAB
7AH/Ad0BEgEAAfEB/wHxAgAB7AL/AwAB7AH/Ad0BEgEAAfEB/wHxAgAB7AL/DQAC/wkABbwBAAG8BAAB
7AL/AdcBEAkAAbYBAAHsAv8B1wEQCQABtggAA7wBAAL/DQAB7AK8AwABFAPsAa4DAAG1Ad0B6gEAAREB
BwH/AQABFAPsAa4DAAG1Ad0B6gEAAREBBwH/CQAFvAsABewJAAG8AfQB8gHxAd4E/wcAAbwB9AHyAfEB
3gT/IAAB/wHyAQAB/wEVAUML/wHyAQAB/wEVAUMK/xQAAQcCAAEHAQABBwEAAQcCAAEHNQABBwIAAQcB
AAEHAQABBwIAAQcYAAL/GwABBwIAAQcBAAEHAQABBwIAAQcWAAL/AgAC/wUACgIGAAoCDAAB7AwAAfMB
/wIAAv8CAAL/AwABAgj/AQIGAAECCP8BAgwAAewDAwYAAewC/wIAAv8CAAL/AgAB/wIAAQIB/wgCBgAB
AgH/CAIMAAHsAf8B7AEDCQAB8wH/AgAC/wIAAv8DAAECAf8DAgEHBAIEmAIAAQIB/wMCAQcEAgSYCAAB
7AH7AewBAwYAAewC/wIAAv8CAAL/AgAB/wIAAQIC/wECAQcDAgH/AQID/wGYAgABAgL/AQIBBwMCAf8B
AgP/AZgIAAHsAf8B7AEDCQAB8wH/AgAC/wIAAv8DAAECAf8BAgEHAwIC/wECBJgCAAECAf8BAgEHAwIC
/wECBJgHAAHsAf8B+wHsAQMGAAHsAv8CAAL/AgAC/wIAAf8CAAECAf8BBwUCAf8BAgSYAgABAgH/AQcF
AgH/AQIEmAYAAewB+wH/AwcBAwgAAfMB/wIAAv8CAAL/AwABAgH/AgIC/wICAf8BAgKYAf8BmAIAAQIB
/wICAv8CAgH/AQICmAH/AZgFAAHsAv8BBwH7AgcBAwHsBAAB7AL/AgAG/wIAAf8CAAECCP8BAgGYAv8B
mAIAAQII/wECAZgC/wGYBAAB7AH/AvsB/wQHAQMB7AYACv8DAAoCApgB/wGYAgAKAgKYAf8BmAIAAuwB
+wH/AvsD/wEHAf8CBwEDAgAB7Az/BwABmAH/ApgC/wKYAf8BmAYAAZgB/wKYAv8CmAH/AZgCAA7sAwAC
7Aj/CQABmAj/AZgGAAGYCP8BmBUAAuwE/wsACpgGAAqYFwAC7B0AAewEAAXsDgABUCUAAuwCBwH5AfsB
/gVeDgACUBUAAfkEAAX5BAAB7AMHBOwFXg0ABFAUAAL5AwAC+QcAAfoB+wH/AQcBAAH5AfsB/gReAewD
AAVQBAAGUAoCCAAE+QQAAhoEAAHsAvoB+wEHAQAB+QL+AQcC7AUAAlAGAAZQAQABAgj/AQIHAAb5AwAB
GgUAAewBBwH5AfsB+gMABQcGAAIaBAACUAEAAlACAAECAf8IAgYABvkEAAQaAgAB7AMHAfkDAAHsAQcJ
AAEaBQABUAIAAVADAAECAf8DAgEHBAIGAAL5AQAC+QYAAxoCAAHsAwcB+QMAAewEXgHsBQAEGgIAAVAG
AAECAv8BAgEHAwIB/wECBgAB+QIAAfkGAAUaAQAB7AIHAfkB+wEAA+wFXgYAAxoCAAFQBgABAgH/AQIB
BwMCAv8BAgYAAfkJAAMaBAABBwH5AfsB+gTsBV4FAAUaCAABAgH/AQcFAgH/AQIGAAH5CwACGgMAAewB
+wH6Af4BAAMHAewB/wEHBwADGgoAAQIB/wICAv8CAgH/AQIHAAH5EAAG7AIHAewC/wEHBwACGgkAAQII
/wECGAAB7AReAewCAAHsA/8BBxEACgIYAAHsBF4B7AMAAf8C7AH/MwAG7AcAAewzAAPsWgAB7D8AAewL
BwsAB7YJAAfkCQAHdQIAAewK/wEHCwAB8wUAAbYJAAHCBQAB5AkAARsFAAF1AgAB7AH/BAcB/wMHAf8B
BwsAAvMDvAHzAbYJAALCAZ4BwgGeAcIB5AkAAhsBvQH/Ab0B/wF1AgAB7Ar/AQcFAAW2AQAB8wUAAbYD
AAXkAQABwgUAAeQDAAV1AQABGwUAAXUCAAHsAf8EBwH/AwcB/wEHBQAB8wUAAvMBvAHzAbwB8wG2AwAB
wgUAAsIBngHCAZ4BwgHkAwABGwUAAhsBvQH/Ab0B/wF1AgAB7Ar/AQcFAAHzA7wB8wEAAfMCAAHzBgAB
wgGeAcIBngHCAQABwgIAAZ4GAAEbAb0B/wG9Af8BAAEbAgABvQUAAewB/wgHAf8BBwUAAfMFAALzAbwB
8wEAAfMEAAHCBQACwgGeAcIBAAHCBAABGwUAAhsBvQEbAQAB/wMAAewK/wEHBQAB8wG8AfMBvAHzAQAE
8wYAAcIBngHCAZ4BwgEABMIGAAEbAb0B/wG9Af8BAAQbBQAB7AH/AgcB/wUHAf8BBwUAAfMCAAHzDAAB
wgIAAcIMAAEbAgAB/wsAAewK/wEHBQAB8wG8AvMBAAHzCgABwgGeAsIBAAHCCgABGwG9ARsB9AEAAf8J
AAHsAf8CBwH/BQcB/wEHBQAE8wwABMIMAAQbCwAB7Aj/NwAB7AH/BgcB/wHsAf81AAHsCP8B7DYACuwN
AAEwAewHAAHsAwABBwIAAQcBAAEHAQABBwIAAQcnAAEwAfsC7AYAAewEBwIAAQcBAAEHAQABBwIAAQcm
AAEwA/sC7AUAAewD/wEHAgABBwEAAQcBAAEHAgABBwgAB1kJAAfWBgABMAX7AuwEAAHsAf8EBwH/AwcB
/wEHCwABwwUAAVkJAAEZBQAB1gUAATAC+wIAA/sC7AMAAewK/wEHCwACwwGaAcMBmgHDAVkJAAIZAd0B
GQHdARkB1gQAATAD+wIABPsC7AIAAewB/wQHAf8DBwH/AQcFAAVZAQABwwUAAVkDAAXWAQABGQUAAdYD
AAEwC/sC7AEAAewK/wEHBQABwwUAAsMBmgHDAZoBwwFZAwABGQUAAhkB3QEZAd0BGQHWAgABMAX7AuoG
+wPsAf8IBwH/AQcFAAHDAZoBwwGaAcMBAAHDAgABwwYAARkB3QEZAd0BGQEAARkCAAHdBQABMAX7AgAG
+wHsAQAB7Ar/AQcFAAHDBQACwwGaAcMBAAHDBAABGQUAAhkB3QEZAQABGQQAATAE+wIABfsB7AIAAewB
/wIHAf8FBwH/AQcFAAHDAZoBwwGaAcMBAATDBgABGQHdARkB3QEZAQAEGQcAATAD+wIABPsB7AMAAewK
/wEHBQABwwIAAcMMAAEZAgABGQ4AATAC+wIAA/sB7AQAAewB/wIHAf8FBwH/AQcFAAHDAZoCwwEAAcMK
AAEZAd0CGQEAARkNAAEwAfsCAAL7AewFAAHsCP8IAATDDAAEGRAAATAD+wHsBgAB7AH/BgcB/wHsAf8r
AAEwAfsB7AcAAewI/wHsLQABMAgACuwmAAFCAU0BPgcAAT4DAAEoAwABQAMAASABAQIAAQEBAAEBBgAB
CRYAA/+BAAT/AcADAAT/BAAB/wEfAv8EAAH8AQcC/wQAAfABAQL/BAABwAEBAv8BgAEBAgABgAEBAv8B
gAEDAgABgAEBAv8BwAEDAgABwAEBAv8BwAEHAgABwAEBAv8B4AEHAgABwAEBAv8B4AEPAgABwAEDAv8B
8AEPAgABwAEHAv8B8AEfAgABwAEfAv8B+AEfAgAB4AF/Av8B+AE/AgAB8QP/AfwBfwIAAv8BgAE/AYAB
PwL/AYABAAGAAT8BgAE/Av8CAAGAAQcBgAEHAf8BHwIAAYABBwGAAQcB/AEHAgABgAEHAYABBwHwAQEC
AAGAAQABgAEAAcABAQIAAYABAAGAAQABgAEBAgABgAEAAYABAAGAAQECAAGAAQABgAEAAcABAQIAAYAB
AAGAAQABwAEBAgAB8AEAAfABAAHAAQECAAHwAQAB8AEAAcABAwEAAQEB8AEAAfABAAHAAQcBgAH/Af4B
AAH+AQABwAEfAcEB/wH+AQAB/gEAAeABfwL/Af4BAQH+AQEB8Qf/AcABAQb/AcABAQb/AcABAQb/AcAB
AQb/AcABAQb/AcABAQb/AcABAQb/AcABAQb/AcABAQb/AcABAQb/AcABAQb/AcABAQb/AcABAQb/AcAB
Awb/AcABBwb/AcABD4D/BAAE/wF/Af4CAAT/AWABBgIAAf8BJAH/ASQBYAEGAgAB/wEkAf8BJAFgAQYC
AAT/AWABBgMAAT8BAAE/AWABBgMAAT8BAAE/AWABBgMAAT8BAAE/AWABBgMAAT8BAAE/AWABBgMAAT8B
AAE/AWABBgMAAT8BAAE/AWABBgMAAT8BAAE/AWABDgMAAT8BAAE/AWABHgMAAT8BAAE/AX8B/gMAAT8B
AAE/BAAG/wHwAQAB/wGHBP8B8AEAAf4BAwH8AQEC/wHwAQAB/AEBAfwBAQEAAT8BAAE/AfgBAAH8AQEB
AAE/AQABPwH4AgABAQEAAT8BAAE/AfgCAAEBAQABAwEAAQMB+AIAAQEBAAEDAQABAwH4AgABAQEAAQMB
AAEDAfgCAAEDAQABAwEAAQMB5AEBAQABBwEAAQMBAAEDAcYCAAEPAQABAwEAAQMBgAEFAQAB/wEAAQMB
AAEDAQABHwEBAf8B8AEDAfABAwGAASMBAwH/AfABAwHwAQMBxwP/AfABAwHwAQMB5wHxBv8B8AEABv8B
8AEABv8B8AEAAv8BAAE/AQABPwEAAT8BAAE/AQABPwEAAT8BAAE/AQABPwEAAT8BAAE/AQABPwEAAT8B
AAE/AQABAwEAAQMBAAE/AQABPwEAAQMBAAEDAQABPwEAAT8BAAEDAQABAwEAAT8BAAE/AQABAwEAAQMB
AAE/AQABPwEAAQMBAAEDAQABPwEAAT8BAAEDAQABAwEAAT8BAAE/AQABAwEAAQMBAAE/Av8B8AEDAfAB
AwT/AfABAwHwAQME/wHwAQMB8AEDBP8B8AEAAv8CAAL/AfABAAHwAQ8CAAL/AfABAAHgAQMDAAE/AQAB
PwHgAQEBAAEHAQABPwEAAT8B8AIAAQcBAAE/AQABPwHwAgABBwEAAQMBAAEDAfgCAAEHAQABAwEAAQMB
+AIAAQcBAAEDAQABAwGQAgABBwEAAQMBAAEDAwABBwEAAQMBAAEDAwABBwEAAQMBAAEDAwABBwEAAQMB
AAEDAZgCAAEHAfABAwHwAQMB+AIAAQ8B8AEDAfABAwH4AgABHwHwAQMB8AEDAv8BAAE/Af8BhwH/AYcB
/wGHAv8B/gEBAf4BAQH+AQEC/wH+AQAB/gEAAf4BAAL/AfwBAAH8AQAB/AIAAT8B/AEAAfwBAAH8AgAB
PwH8AQAB/AEAAfwCAAE/Af4BAQH+AQEB/gEBAQABPwHgAQEB4AEBAeABAQEAAT8BgAEHAYABBwGAAQcB
AAE/AYABPwGAAT8BgAE/AQABPwEAAT8BAAE/AQABPwEAAT8BAAE/AQABPwEAAT8BAAE/AQABPwEAAT8B
AAE/AQABPwGAAX8BgAF/AYABfwL/AYABfwGAAX8BgAF/Av8B4QH/AeEB/wHhA/8B/gEAAeEB/wHhAv8B
hwH+AQAB4QH/AeEB/wH+AQEB/gEAAeABAAHgAQAB/gEAAf4BAAHgAQAB4AEAAfwBAAGAAQAB4AEAAeAB
AAH8AQABgAEAAYABAAGAAQAB/AEAAYABAAGAAQABgAEAAf4BAQGABQAB4AEBAYAFAAGAAQcBgAUAAYAB
PwGAAQEFAAE/AYABAwGAAQABgAIAAT8BgAEDAYABAQGAAQEBAAE/AYABBwHgAQMB4AEDAYABfwGAAX8B
+AEDAfgBAwGAAX8BgAF/AfgBBwH4AQcB4QH/AeABPwHgAT8B4AE/AeEB/wHgAR8B4AEfAeABHwHhAf8B
4AEPAeABDwHgAQ8B4QH/AeABBwHgAQcB4AEHAeEB/wHgAQMB4AEDAeABAwHgAQEB4AEBAeABAQHgAQEB
gAEBAcABAQHAAQEBwAEBAYABAQGAAQEBgAEBAYABAQEAAQEBgAEBAYABAQGAAQEBAAEBAYABAQGAAQEB
gAEBAQABAQGAAQEBgAEBAYABAQIAAYABAQGAAQEBgAEBAYABAAHAAQEBwAEBAcABAQGAAQAB4QEBAeEB
AQHhAQEB4AEBAfEBgwHxAYMB8QGDAf4BAQH5Af8B+QH/AfkB/wH+AQECAAH/Ab8B4AE/AeABPwIAAf8B
fwHgAR8B4AEfAwABAQHgAQ8B4AEPAwABAQHgAQcB4AEHAwABAQHgAQMB4AEDAwABAQHgAQEB4AEBAwAB
AQHAAQEBwAEBAwABAQGAAQEBgAEBAwABAQGAAQEBgAEBAwABAQGAAQEBgAEBAwABAQGAAQEBgAEBAwAB
AQGAAQEBgAEBAwABAQHAAQEBwAEBAwABAQHhAQEB4QEBAgAB/gH/AfEBgwHxAYMCAAH/AX8B+QH/AfkB
/wH8A/8EAAH4AX8BgAH/BAAB8AF/AcEB/wQAAYABHwHAAX8FAAE/AYABDwUAAQ8BAAEfBQABAQEAAQEF
AAEDAQABAwQAAYABAwEAAQMEAAHgAQEBgAEBBAAB4AEBAcABAQQAAfABAAHwBQAB+AEBAfgBAQQAAf4B
AQH8AQEEAAH/AQEB/wEBBAAB/wGBAf8BgwQAAv8B8AEAAv8B/gF/Av8B8AEAAv8B+AEfAv8B8AEAAv8B
4AEHAQABPwEAAT8B/AEfAYABAQEAAT8BAAE/AfwBHwEAAQMBAAE/AQABPwH8AR8BgAEBAQABAwEAAQMB
/AEfAQABAwEAAQMBAAEDAfwBHwGAAQEBAAEDAQABAwH4AQ8BAAEDAQABAwEAAQMB8AEHAYABAQEAAQMB
AAEDAeABAwEAAQMBAAEDAQABAwHAAQEBgAEBAQABAwEAAQMDAAEDAfABAwHwAQMCAAGAAQcB8AEDAfAB
AwL/AeABHwHwAQMB8AEDAv8B+AF/Av8B8AGBAf8B9wT/AcABAQH/AfMC/wHuAQMBgAEBAf8B4QL/AeYB
BwGAAQMBAQHAAQABPwHDAQcBAAEPAQMBgQEAAT8BgQGDAQABBwGDAZMBAAE/AQMBAQEDAQEBwQG3AQAB
PwEmAQEBAwEBAYABvwEAAT8BbgIAAQEBAAG/AQABPwF+AQEBgAEBAQABfwEAAT8BfgEBAYABBwEAAf8B
AAE/Ab4BAgHAAQMBAAH/AQABPwH/AQABwAIBAX8BAAE/Af8BgwHAAeABgAF/BP8BwAH+AcEF/wHjC/8B
AAEHAfwBAQH8AQEB/AEBAQABBwH8AQEB/AEBAfwBAQEAAQcB/AEBAfwBAQH8AQEBAAEHAQABAQEAAQEB
AAEBAQABBwEAAQEBAAEBAQABAQEAAQcBAAEBAQABAQEAAQEBAAEHAQABAQEAAQEBAAEBAQABBwEAAQMB
AAEDAQABAwEAAQcBAAEHAQABBwEAAQcBAAEHAQABDwEAAQ8BAAEPAQABBwEAAf8BAAH/AQAB/wEAAQcB
AQH/AQEB/wEBAf8BAAEHAQMB/wEDAf8BAwH/AQABDwb/AQABHwb/AQABPwH+AX8CAAT/AfwBPwIAAfwB
AQH8AQEB+AEfAgAB/AEBAfwBAQHwAQ8BAAEHAfwBAQH8AQEB4AEHAQABBwEAAQEBAAEBAcABAwEAAQcB
AAEBAQABAQGAAQEBAAEHAQABAQEAAQEDAAEHAQABAQEAAQEBAAEBAQABBwEAAQMBAAEDAYABAwEAAQcB
AAEHAQABBwHAAQcBAAEHAQABDwEAAQ8B4AEPAQABBwEAAf8BAAH/AfABHwEAAQcBAQH/AQEB/wH4AT8B
AAEPAQMB/wEDAf8B/AF/AQABHwT/Af4B/wEAAT8E/xYACw==
</value>
</data>
<data name="ImageList3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>993, 17</value>
</data>
<data name="TxtSearch.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="pnlFavoriten.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="FavoritenStruktur.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ContextMenu3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>870, 17</value>
</data>
<data name="ContextMenu3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="mnuDokument_erstellen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="mnuInfoDokumentvorlage.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MenuItem3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuPaketverwaltung.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuIDVBearbeitung.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuNeuesDokumentpaket.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuDokumentpaketKopieren.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMAKopie.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="mnuLoeschen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MenuItem12.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="mnuUmbenennen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="mnuNeuerOrdner.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MenuItem4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MenuItem9.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MenuItem10.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="SqlDataAdapter1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="SqlDataAdapter1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>404, 17</value>
</data>
<data name="SqlDeleteCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="SqlDeleteCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="SqlDeleteCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>316, 54</value>
</data>
<data name="SqlDeleteCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="SqlConnection1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="SqlConnection1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>539, 17</value>
</data>
<data name="SqlInsertCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="SqlInsertCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="SqlInsertCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>167, 54</value>
</data>
<data name="SqlInsertCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="SqlSelectCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="SqlSelectCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="SqlSelectCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 54</value>
</data>
<data name="SqlSelectCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="SqlUpdateCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="SqlUpdateCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="SqlUpdateCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>122, 17</value>
</data>
<data name="SqlUpdateCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="DataSet1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>773, 17</value>
</data>
<data name="DataSet1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ComboBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Splitter2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="BtnHelp.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="BtnHelp.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAGFJREFUOE9jYKAR
+A80Fxsmyrr/fz/yY2AkA/EaAteI7AKYgcQYAjYgJycH5nyYbWBxcg3A5ir83oDaBFJEsmZkkynSDLcd
S3gQFZWDwwCwK5AClGino8T9gIYBxV4gys8An8SDS+5ffSIAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolTip1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 54</value>
</data>
<data name="ToolTip1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="$this.Name">
<value>frmVorlagenauswahl_Serienbriefe</value>
</data>
<data name="$this.TrayHeight" type="System.Int32, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>238</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAEAAAAAAAAAAAAAAAEAAAAA
AAAAAAAAgACAAIAAAACAgAAAAIAAAACAgAAAAIAAwMDAAMDcwADwyqYAgICAAP8A/wD/AAAA//8AAAD/
AAAA//8AAAD/AP///wDw+/8ApKCgANTw/wCx4v8AjtT/AGvG/wBIuP8AJar/AACq/wAAktwAAHq5AABi
lgAASnMAADJQANTj/wCxx/8Ajqv/AGuP/wBIc/8AJVf/AABV/wAASdwAAD25AAAxlgAAJXMAABlQANTU
/wCxsf8Ajo7/AGtr/wBISP8AJSX/AAAA/wAAANwAAAC5AAAAlgAAAHMAAABQAOPU/wDHsf8Aq47/AI9r
/wBzSP8AVyX/AFUA/wBJANwAPQC5ADEAlgAlAHMAGQBQAPDU/wDisf8A1I7/AMZr/wC4SP8AqiX/AKoA
/wCSANwAegC5AGIAlgBKAHMAMgBQAP/U/wD/sf8A/47/AP9r/wD/SP8A/yX/AP8A/wDcANwAuQC5AJYA
lgBzAHMAUABQAP/U8AD/seIA/47UAP9rxgD/SLgA/yWqAP8AqgDcAJIAuQB6AJYAYgBzAEoAUAAyAP/U
4wD/sccA/46rAP9rjwD/SHMA/yVXAP8AVQDcAEkAuQA9AJYAMQBzACUAUAAZAP/U1AD/sbEA/46OAP9r
awD/SEgA/yUlAP8AAADcAAAAuQAAAJYAAABzAAAAUAAAAP/j1AD/x7EA/6uOAP+PawD/c0gA/1clAP9V
AADcSQAAuT0AAJYxAABzJQAAUBkAAP/w1AD/4rEA/9SOAP/GawD/uEgA/6olAP+qAADckgAAuXoAAJZi
AABzSgAAUDIAAP//1AD//7EA//+OAP//awD//0gA//8lAP//AADc3AAAubkAAJaWAABzcwAAUFAAAPD/
1ADi/7EA1P+OAMb/awC4/0gAqv8lAKr/AACS3AAAerkAAGKWAABKcwAAMlAAAOP/1ADH/7EAq/+OAI//
awBz/0gAV/8lAFX/AABJ3AAAPbkAADGWAAAlcwAAGVAAANT/1ACx/7EAjv+OAGv/awBI/0gAJf8lAAD/
AAAA3AAAALkAAACWAAAAcwAAAFAAANT/4wCx/8cAjv+rAGv/jwBI/3MAJf9XAAD/VQAA3EkAALk9AACW
MQAAcyUAAFAZANT/8ACx/+IAjv/UAGv/xgBI/7gAJf+qAAD/qgAA3JIAALl6AACWYgAAc0oAAFAyANT/
/wCx//8Ajv//AGv//wBI//8AJf//AAD//wAA3NwAALm5AACWlgAAc3MAAFBQAPLy8gDm5uYA2traAM7O
zgDCwsIAtra2AKqqqgCenp4AkpKSAIaGhgB6enoAbm5uAGJiYgBWVlYASkpKAD4+PgAyMjIAJiYmABoa
GgAODg4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKCgoKCgAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAChEREQAKCgoAAAAAAAAAAAoREREAAAAAAAAAAAAAAAAHEhISABEACgoKAAAAAAAA
BxEREQoRAAAAAAAAAAAP9QcKCgoKEQARAAAAAAAAAA/1BwoREREAEQAAAAAAAPX1BwcH9fUKChEAAAAA
AAAPDw8HDwcPDxERAAAAAAAAAA/1D/UP9QAKCgoAAAAAAA/1AA/1AA/1AAAAAAAAAAAAAAAP9QAADwAA
AAAAAAAAAAAAD/UAAAAAAAAAAAAAAP//////////4P///8H////AP///wH///8AP///AH///AB///4Af
//8AH///AB///4Ef//8k////5v///+f///8=
</value>
</data>
</root>

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,156 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
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">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</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.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:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<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" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</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>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="vorlagenlist.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="resource.Images" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
RK5CYII=
</value>
</data>
<data name="ContextMenu1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</data>
<data name="ContextMenu1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="mnuload.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="mnudelete.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="$this.Name">
<value>frmpersvorlageladen</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAEAAAAAAAAAAAAAAAEAAAAA
AAAAAAAAgACAAIAAAACAgAAAAIAAAACAgAAAAIAAwMDAAMDcwADwyqYAgICAAP8A/wD/AAAA//8AAAD/
AAAA//8AAAD/AP///wDw+/8ApKCgANTw/wCx4v8AjtT/AGvG/wBIuP8AJar/AACq/wAAktwAAHq5AABi
lgAASnMAADJQANTj/wCxx/8Ajqv/AGuP/wBIc/8AJVf/AABV/wAASdwAAD25AAAxlgAAJXMAABlQANTU
/wCxsf8Ajo7/AGtr/wBISP8AJSX/AAAA/wAAANwAAAC5AAAAlgAAAHMAAABQAOPU/wDHsf8Aq47/AI9r
/wBzSP8AVyX/AFUA/wBJANwAPQC5ADEAlgAlAHMAGQBQAPDU/wDisf8A1I7/AMZr/wC4SP8AqiX/AKoA
/wCSANwAegC5AGIAlgBKAHMAMgBQAP/U/wD/sf8A/47/AP9r/wD/SP8A/yX/AP8A/wDcANwAuQC5AJYA
lgBzAHMAUABQAP/U8AD/seIA/47UAP9rxgD/SLgA/yWqAP8AqgDcAJIAuQB6AJYAYgBzAEoAUAAyAP/U
4wD/sccA/46rAP9rjwD/SHMA/yVXAP8AVQDcAEkAuQA9AJYAMQBzACUAUAAZAP/U1AD/sbEA/46OAP9r
awD/SEgA/yUlAP8AAADcAAAAuQAAAJYAAABzAAAAUAAAAP/j1AD/x7EA/6uOAP+PawD/c0gA/1clAP9V
AADcSQAAuT0AAJYxAABzJQAAUBkAAP/w1AD/4rEA/9SOAP/GawD/uEgA/6olAP+qAADckgAAuXoAAJZi
AABzSgAAUDIAAP//1AD//7EA//+OAP//awD//0gA//8lAP//AADc3AAAubkAAJaWAABzcwAAUFAAAPD/
1ADi/7EA1P+OAMb/awC4/0gAqv8lAKr/AACS3AAAerkAAGKWAABKcwAAMlAAAOP/1ADH/7EAq/+OAI//
awBz/0gAV/8lAFX/AABJ3AAAPbkAADGWAAAlcwAAGVAAANT/1ACx/7EAjv+OAGv/awBI/0gAJf8lAAD/
AAAA3AAAALkAAACWAAAAcwAAAFAAANT/4wCx/8cAjv+rAGv/jwBI/3MAJf9XAAD/VQAA3EkAALk9AACW
MQAAcyUAAFAZANT/8ACx/+IAjv/UAGv/xgBI/7gAJf+qAAD/qgAA3JIAALl6AACWYgAAc0oAAFAyANT/
/wCx//8Ajv//AGv//wBI//8AJf//AAD//wAA3NwAALm5AACqqgAAc3MAAFBQAPLy8gDm5uYA2traAM7O
zgDCwsIAtra2AKqqqgCenp4AkpKSAIaGhgB6enoAbm5uAGJiYgBWVlYASkpKAD4+PgAyMjIAJiYmABoa
GgAODg4AAAAAAPT09PT0AAAAAAAAAAAAAADwERER9AAAAAAAAAAAAAAA8BEREfT09AAAAAAAAAAAAPAR
ERH0EfQAAAAAAAAAAADwERER9BH09PQAAAAAAAAA8PDw8PAR9BH0AAAAAAAAAAAA8BEREfQR9AAAAArt
7e0AAPDw8PDwEfQAAAAK7e3tAAAAAPARNQAAAAAACu3t7QDtAADw8AA1AAAAAArt7e0A7QAAAAAAADUA
AAAKCgoKCu0A7QAAAAAANQAAAAAK7e3tAO0AAAAAADUAAAAACgoKCgrtAAAANQA1AAAAAAAACu3t7QAA
ADU1AAAAAAAAAAoKCgoKAAA1NTUAAPB////wf///8B////Af///wB///8Af//wQH//8EB///AR///wEv
//8Ad///AHv//8B7///Aa///8Gf///Bj//8=
</value>
</data>
</root>

View File

@@ -0,0 +1,274 @@
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Public Class frmpersvorlageladen
Inherits System.Windows.Forms.Form
#Region " Vom Windows Form Designer generierter Code "
Public Sub New()
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
Friend WithEvents vorlagenlist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
Friend WithEvents mnuload As System.Windows.Forms.MenuItem
Friend WithEvents mnudelete As System.Windows.Forms.MenuItem
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmpersvorlageladen))
Dim GridLines1 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
Me.vorlagenlist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ContextMenu1 = New System.Windows.Forms.ContextMenu()
Me.mnuload = New System.Windows.Forms.MenuItem()
Me.mnudelete = New System.Windows.Forms.MenuItem()
Me.Button1 = New System.Windows.Forms.Button()
CType(Me.vorlagenlist, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'vorlagenlist
'
Me.vorlagenlist.AllowFilter = True
Me.vorlagenlist.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
Me.vorlagenlist.AllowSort = True
Me.vorlagenlist.AlternatingRows = True
Me.vorlagenlist.CaptionHeight = 17
Me.vorlagenlist.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Floating
Me.vorlagenlist.CollapseColor = System.Drawing.Color.Black
Me.vorlagenlist.ContextMenu = Me.ContextMenu1
Me.vorlagenlist.Cursor = System.Windows.Forms.Cursors.Default
Me.vorlagenlist.DataChanged = False
Me.vorlagenlist.DeadAreaBackColor = System.Drawing.Color.Empty
Me.vorlagenlist.Dock = System.Windows.Forms.DockStyle.Top
Me.vorlagenlist.ExpandColor = System.Drawing.Color.Black
Me.vorlagenlist.FetchRowStyles = True
Me.vorlagenlist.FilterBar = True
Me.vorlagenlist.GroupByCaption = "Drag a column header here to group by that column"
Me.vorlagenlist.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
Me.vorlagenlist.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
Me.vorlagenlist.Name = "vorlagenlist"
Me.vorlagenlist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.vorlagenlist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.vorlagenlist.PreviewInfo.ZoomFactor = 75
Me.vorlagenlist.PrintInfo.ShowOptionsDialog = False
Me.vorlagenlist.RecordSelectorWidth = 16
GridLines1.Color = System.Drawing.Color.DarkGray
GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
Me.vorlagenlist.RowDivider = GridLines1
Me.vorlagenlist.RowHeight = 15
Me.vorlagenlist.RowSubDividerColor = System.Drawing.Color.DarkGray
Me.vorlagenlist.ScrollTips = True
Me.vorlagenlist.Size = New System.Drawing.Size(368, 176)
Me.vorlagenlist.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
Me.vorlagenlist.TabIndex = 27
Me.vorlagenlist.Text = "C1TrueDBGrid1"
Me.vorlagenlist.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
"r""><Data>Style11{}Style12{}Style13{}Style5{}Style4{}Style7{}Style6{}EvenRow{Back" & _
"Color:White;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Heading{Wrap:" & _
"True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert" & _
":Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Filte" & _
"rBar{BackColor:255, 255, 192;}Footer{}Caption{AlignHorz:Center;}Editor{}Normal{B" & _
"ackColor:Control;}Style27{}Style26{}HighlightRow{ForeColor:HighlightText;BackCol" & _
"or:Highlight;}Style1{}OddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage:" & _
"Center;}Style9{}Style8{}Style3{}Style2{}Group{AlignVert:Center;Border:None,,0, 0" & _
", 0, 0;BackColor:ControlDark;}Style10{AlignHorz:Near;}</Data></Styles><Splits><C" & _
"1.Win.C1TrueDBGrid.MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""1" & _
"7"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FetchRowStyles=""True"" Filter" & _
"Bar=""True"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecSelWid" & _
"th=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 364," & _
" 172</ClientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Heading"" me=""St" & _
"yle10"" /><EditorStyle parent=""Editor"" me=""Style2"" /><EvenRowStyle parent=""EvenRo" & _
"w"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style27"" /><FooterStyle " & _
"parent=""Footer"" me=""Style4"" /><GroupStyle parent=""Group"" me=""Style12"" /><Heading" & _
"Style parent=""Heading"" me=""Style3"" /><HighLightRowStyle parent=""HighlightRow"" me" & _
"=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style6"" /><OddRowStyle parent=""" & _
"OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" " & _
"/><SelectedStyle parent=""Selected"" me=""Style5"" /><Style parent=""Normal"" me=""Styl" & _
"e1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=" & _
"""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Foo" & _
"ter"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inacti" & _
"ve"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" " & _
"/><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow""" & _
" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelect" & _
"or"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group""" & _
" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Mod" & _
"ified</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 364, " & _
"172</ClientArea></Blob>"
'
'ContextMenu1
'
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuload, Me.mnudelete})
'
'mnuload
'
Me.mnuload.Index = 0
Me.mnuload.Text = "&Vorlage laden"
'
'mnudelete
'
Me.mnudelete.Index = 1
Me.mnudelete.Text = "Vorlage &löschen"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(152, 184)
Me.Button1.Name = "Button1"
Me.Button1.TabIndex = 28
Me.Button1.Text = "&Schliessen"
'
'frmpersvorlageladen
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(368, 213)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button1, Me.vorlagenlist})
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmpersvorlageladen"
Me.Text = "Persönliche Serienbriefvorlage laden"
CType(Me.vorlagenlist, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
#Region "Deklarationen"
Dim m_PersVorlageNr As Integer
Property PersVorlageNr() As Integer
Get
Return m_PersVorlageNr
End Get
Set(ByVal Value As Integer)
m_PersVorlageNr = Value
End Set
End Property
Dim dokumenttypnr As Integer
#End Region
Public Sub New(ByVal dokumenttypnr As Integer)
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
Me.dokumenttypnr = dokumenttypnr
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
Private Sub frmpersvorlageladen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.PersVorlageNr = 0
Load_data()
End Sub
Private Sub Load_data()
Me.vorlagenlist.DataSource = Nothing
Me.vorlagenlist.DataMember = Nothing
Dim dt As New DataTable()
dt = get_data()
Me.vorlagenlist.DataSource = dt
Me.vorlagenlist.DataMember = dt.TableName
If dt.Rows.Count = 0 Then
Me.mnudelete.Enabled = False
Me.mnuload.Enabled = False
Else
Me.mnudelete.Enabled = True
Me.mnuload.Enabled = True
End If
Me.vorlagenlist.Splits(0).DisplayColumns(0).Width = 0
Me.vorlagenlist.Splits(0).DisplayColumns(1).Width = Me.vorlagenlist.Width - 50
End Sub
Private Function get_data() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim i As Integer
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.CommandText = "dbo.sp_edex_get_persvorlagen"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn.scoDBConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.dokumenttypnr))
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
Throw New Exception("sp_check_dokumentreaktivierung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.PersVorlageNr = 0
Me.Close()
End Sub
Private Function delete_vorlage() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim i As Integer
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.CommandText = "dbo.sp_edex_delte_persvorlagen"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn.scoDBConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@vorlagenr", SqlDbType.Int, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.vorlagenlist.Columns(0).Text))
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
Throw New Exception("sp_check_dokumentreaktivierung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Private Sub mnudelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnudelete.Click
Try
If MyMsg.Show_MessageYesNo(739) = MsgBoxResult.Yes Then
delete_vorlage()
Load_data()
End If
Catch
End Try
End Sub
Private Sub mnuload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuload.Click
Try
Me.PersVorlageNr = Me.vorlagenlist.Columns(0).Text
Me.Close()
Catch
End Try
End Sub
Private Sub vorlagenlist_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles vorlagenlist.DoubleClick
mnuload_Click(sender, e)
End Sub
End Class

View File

@@ -0,0 +1,438 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
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">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</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.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:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<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" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</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>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="C1CommandHolder1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>126, 31</value>
</data>
<data name="C1CommandHolder1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainDatei.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainNeuerSerienbrief.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainNew.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainSerienbriefLaden.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainLoad.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuSerienbriefLoeschen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainSerienbriefLoeschen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainSerienbriefabschliessen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainAbschluss.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainSerienbriefSpeichern.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainSave.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainFensterSchliessen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainClose.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainClose.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAALNJREFUOE+NU9EV
xCAMuq7tAM7lZneSE0tp0tf0+WEaCEQ9Pha996/nWmuH58o9CDRm4YUQ/1IwgL5WcQ7IpHtn7abkF+xT
ZxK4LWKCKPMs0sNWFTGfJwJ2GmPcOPZwMwICgQLYiQBG/qbAgSjSJd5PgiVleyVguotvtolVEe1B0goL
aToDqpJ9pE6gRNlRryt/XjIdVOXdLtN/iBaRRGElnTN787g2kch99y6EnTJTuaj7AWA972ww0yDcAAAA
AElFTkSuQmCC
</value>
</data>
<data name="MnuMainDokument.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainVorlageImportieren.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainVorlageImportieren.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainVorlageBearbeiten.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainVorageBearbeiten.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainVorschauErstellen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainVorschauErstellen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuDokumenteGenerieren.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainDokumenteGenerieren.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainDokumenteDrucken.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainDokumenteDrucken.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainDokumenteBestaetigen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainDokumenteBestaetigen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainEmpfaengerliste.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuEDOKAHOSTPartnerHinzufuegen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainAddEDOKAHOSTPartner.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainEDOKAPartnerErfassen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainNeuerEDOKAPartnerErfassen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainNeuerEmpfaengerErfassen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainNeuerEmpfaengerErfassen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainEmpfaengerBearbeitten.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainEmpfaengerBearbeiten.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainEmpfaengerLoeschen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainEmfpaengerLoeschen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuEDOKAPartnerErfassen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainEDOKAPartnerErfassen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainImportEmpfaneger.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainImportEmpfaenger.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainExportEmpfaenger.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainExportEmpfaenger.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainLoadPartnerliste.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainLoadPartnerliste.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainSaveAsPartnerlist.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainSaveAsPartnerlist.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainCheckEmpfaenger.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainCheckEmpfaenger.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1CommandMenu1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainAddColumn.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainAddColumn.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainDeleteColumn.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainDeleteColumn.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainRenameColumn.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainRenameColumn.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1MnuMainSpaltenselektion.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MnuMainSpaltenselektion.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="mnuctAddHost.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="mnuCTADDEdokapartner.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="mnuctaddempfaenger.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1ContextMenu1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>280, 31</value>
</data>
<data name="C1ContextMenu1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1ContextMenu1.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAALNJREFUOE+NU9EV
xCAMuq7tAM7lZneSE0tp0tf0+WEaCEQ9Pha996/nWmuH58o9CDRm4YUQ/1IwgL5WcQ7IpHtn7abkF+xT
ZxK4LWKCKPMs0sNWFTGfJwJ2GmPcOPZwMwICgQLYiQBG/qbAgSjSJd5PgiVleyVguotvtolVEe1B0goL
aToDqpJ9pE6gRNlRryt/XjIdVOXdLtN/iBaRRGElnTN787g2kch99y6EnTJTuaj7AWA972ww0yDcAAAA
AElFTkSuQmCC
</value>
</data>
<data name="C1CommandLink1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="c1dokumentedrucken.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1CommandLink3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="c1showdoc.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1CommandLink2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="c1statuszuruecksetzen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>416, 31</value>
</data>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuMzMw
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
AAAcCQAAAk1TRnQBSQFMAgEBAgEAAQUBAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
AAEoAwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ATAAB
7AEHAewMAAEDAf8tAAHsAwcD7AgAAewBAwHsAf8qAALsBQcF7AQAAQMB7AEDAewBAwH/KgAB7AH/BAcB
/wbsAgABAwHsAQMB7AEDAewB/wEAAewnAALsAf8CBwL/AwcE7AIAAewBAwHsAQMB7AEDAf8BAAHsKAAB
7AH/AgcC+gL5AwcC7AIAAQMB7AEDAgAB7AH/AQAB7CYAAewC/wLsAf8FBwLsAQABBwIAAewBAwHsAgcB
AwH/AQAB7AEAAQYkAAHsA/8BAALsAf8BBwLsAQcB/wEAAQcCAAEDAewBAwHsAQMB7AH/AgABBgX+IAAB
7AP/AQAB/wEAAuwBBwT/AwAB7AEDAewBAwHsAQMB/wEAAW0G/iAAAewD/wEAAf8CAAHsBv8CAAEDAewB
AwHsAQMB7AH/AQAB7AFtAf4EbSAABewB/wEAAf8BAAHsA/8C7AIAAewBAwHsAQMB7AEDAf8BAAHsAQAC
bSUAAewD/wEAAf8CAAPsBAABAwHsAQMB7AEHAf8B7AEAAewCAAFtJQAF7AH/CQAB7AEDAQcB/wHsAQAD
7CoAAewD/wQAAf8EAAEHAf8B7AEABewqAAXsNwABQgFNAT4HAAE+AwABKAMAAUADAAEgAwABAQEAAQEG
AAEBFgAD/4EAAf4BHwH8AX8EAAH8AQ8B8AF/BAAB4AEDAcABfwQAAcACAAEfBAABwAIAAR8EAAGAAgAB
FwcAAQcVAAEBDwABgQEAAQcEAAHAAccBAAEXBAABwAF/AQABHwQAAfABdwEAAR8EAAHwAX8BAAEfGgAL
</value>
</data>
<data name="ToolBar1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBarButton1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="djlist.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="resource.Images" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
RK5CYII=
</value>
</data>
<data name="C1CommandLink4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="c1deldok.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="$this.Name">
<value>frmsbdruck</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAEAAAAAAAAAAAAAAAEAAAAA
AAAAAAAAgACAAIAAAACAgAAAAIAAAACAgAAAAIAAwMDAAMDcwADwyqYAgICAAP8A/wD/AAAA//8AAAD/
AAAA//8AAAD/AP///wDw+/8ApKCgANTw/wCx4v8AjtT/AGvG/wBIuP8AJar/AACq/wAAktwAAHq5AABi
lgAASnMAADJQANTj/wCxx/8Ajqv/AGuP/wBIc/8AJVf/AABV/wAASdwAAD25AAAxlgAAJXMAABlQANTU
/wCxsf8Ajo7/AGtr/wBISP8AJSX/AAAA/wAAANwAAAC5AAAAlgAAAHMAAABQAOPU/wDHsf8Aq47/AI9r
/wBzSP8AVyX/AFUA/wBJANwAPQC5ADEAlgAlAHMAGQBQAPDU/wDisf8A1I7/AMZr/wC4SP8AqiX/AKoA
/wCSANwAegC5AGIAlgBKAHMAMgBQAP/U/wD/sf8A/47/AP9r/wD/SP8A/yX/AP8A/wDcANwAuQC5AJYA
lgBzAHMAUABQAP/U8AD/seIA/47UAP9rxgD/SLgA/yWqAP8AqgDcAJIAuQB6AJYAYgBzAEoAUAAyAP/U
4wD/sccA/46rAP9rjwD/SHMA/yVXAP8AVQDcAEkAuQA9AJYAMQBzACUAUAAZAP/U1AD/sbEA/46OAP9r
awD/SEgA/yUlAP8AAADcAAAAuQAAAJYAAABzAAAAUAAAAP/j1AD/x7EA/6uOAP+PawD/c0gA/1clAP9V
AADcSQAAuT0AAJYxAABzJQAAUBkAAP/w1AD/4rEA/9SOAP/GawD/uEgA/6olAP+qAADckgAAuXoAAJZi
AABzSgAAUDIAAP//1AD//7EA//+OAP//awD//0gA//8lAP//AADc3AAAubkAAJaWAABzcwAAUFAAAPD/
1ADi/7EA1P+OAMb/awC4/0gAqv8lAKr/AACS3AAAerkAAGKWAABKcwAAMlAAAOP/1ADH/7EAq/+OAI//
awBz/0gAV/8lAFX/AABJ3AAAPbkAADGWAAAlcwAAGVAAANT/1ACx/7EAjv+OAGv/awBI/0gAJf8lAAD/
AAAA3AAAALkAAACWAAAAcwAAAFAAANT/4wCx/8cAjv+rAGv/jwBI/3MAJf9XAAD/VQAA3EkAALk9AACW
MQAAcyUAAFAZANT/8ACx/+IAjv/UAGv/xgBI/7gAJf+qAAD/qgAA3JIAALl6AACWYgAAc0oAAFAyANT/
/wCx//8Ajv//AGv//wBI//8AJf//AAD//wAA3NwAALm5AACWlgAAc3MAAFBQAPLy8gDm5uYA2traAM7O
zgDCwsIAtra2AKqqqgCenp4AkpKSAIaGhgB6enoAbm5uAGJiYgBWVlYASkpKAD4+PgAyMjIAJiYmABoa
GgAODg4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKBwoAAAAAAAAAAAAAAAoHBwcKCgoAAAAAAAAKCgcH
BwcHCgoKCgoAAAAAChEHBwcHEQoKCgoKCgAACgoRBwcREQcHBwoKCgoAAAAKEQcHDg4QEAcHBwoKAAoR
EQoKEQcHBwcHCgoABwAKERERAAoKEQcKCgcRAAcAChEREQARAAoKBxEREREAAAoREREAEQAAChERERER
EQAKCgoKChEAEQAKERERCgoAAAAKERERABEAAAoKCgAAAAAACgoKCgoRAAAAAAAAAAAAAAAAChEREQAA
AAARAAAAAAAAAAoKCgoKAAAAAAAAAP4f///8D///4AP//8AA///AAP//gAD//wAA//8AAP//AAD//wAB
//8AAP//AIH//8DH///Af///8Hf///B///8=
</value>
</data>
</root>

View File

@@ -0,0 +1,948 @@
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports System.IO
Public Class frmsbdruck
Inherits System.Windows.Forms.Form
#Region " Vom Windows Form Designer generierter Code "
Public Sub New()
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
Friend WithEvents C1CommandHolder1 As C1.Win.C1Command.C1CommandHolder
Friend WithEvents MnuMainDatei As C1.Win.C1Command.C1CommandMenu
Friend WithEvents C1MnuMainNeuerSerienbrief As C1.Win.C1Command.C1CommandLink
Friend WithEvents MnuMainNew As C1.Win.C1Command.C1Command
Friend WithEvents C1MnuMainSerienbriefLaden As C1.Win.C1Command.C1CommandLink
Friend WithEvents MnuMainLoad As C1.Win.C1Command.C1Command
Friend WithEvents C1MnuSerienbriefLoeschen As C1.Win.C1Command.C1CommandLink
Friend WithEvents MnuMainSerienbriefLoeschen As C1.Win.C1Command.C1Command
Friend WithEvents C1MnuMainSerienbriefabschliessen As C1.Win.C1Command.C1CommandLink
Friend WithEvents MnuMainAbschluss As C1.Win.C1Command.C1Command
Friend WithEvents C1MnuMainSerienbriefSpeichern As C1.Win.C1Command.C1CommandLink
Friend WithEvents MnuMainSave As C1.Win.C1Command.C1Command
Friend WithEvents C1MnuMainFensterSchliessen As C1.Win.C1Command.C1CommandLink
Friend WithEvents MnuMainClose As C1.Win.C1Command.C1Command
Friend WithEvents MnuMainDokument As C1.Win.C1Command.C1CommandMenu
Friend WithEvents C1MnuMainVorlageImportieren As C1.Win.C1Command.C1CommandLink
Friend WithEvents MnuMainVorlageImportieren As C1.Win.C1Command.C1Command
Friend WithEvents C1MnuMainVorlageBearbeiten As C1.Win.C1Command.C1CommandLink
Friend WithEvents MnuMainVorageBearbeiten As C1.Win.C1Command.C1Command
Friend WithEvents C1MnuMainVorschauErstellen As C1.Win.C1Command.C1CommandLink
Friend WithEvents MnuMainVorschauErstellen As C1.Win.C1Command.C1Command
Friend WithEvents C1MnuDokumenteGenerieren As C1.Win.C1Command.C1CommandLink
Friend WithEvents MnuMainDokumenteGenerieren As C1.Win.C1Command.C1Command
Friend WithEvents C1MnuMainDokumenteDrucken As C1.Win.C1Command.C1CommandLink
Friend WithEvents MnuMainDokumenteDrucken As C1.Win.C1Command.C1Command
Friend WithEvents C1MnuMainDokumenteBestaetigen As C1.Win.C1Command.C1CommandLink
Friend WithEvents MnuMainDokumenteBestaetigen As C1.Win.C1Command.C1Command
Friend WithEvents MnuMainEmpfaengerliste As C1.Win.C1Command.C1CommandMenu
Friend WithEvents C1MnuEDOKAHOSTPartnerHinzufuegen As C1.Win.C1Command.C1CommandLink
Friend WithEvents MnuMainAddEDOKAHOSTPartner As C1.Win.C1Command.C1Command
Friend WithEvents C1MnuMainEDOKAPartnerErfassen As C1.Win.C1Command.C1CommandLink
Friend WithEvents MnuMainNeuerEDOKAPartnerErfassen As C1.Win.C1Command.C1Command
Friend WithEvents C1MnuMainNeuerEmpfaengerErfassen As C1.Win.C1Command.C1CommandLink
Friend WithEvents MnuMainNeuerEmpfaengerErfassen As C1.Win.C1Command.C1Command
Friend WithEvents C1MnuMainEmpfaengerBearbeitten As C1.Win.C1Command.C1CommandLink
Friend WithEvents MnuMainEmpfaengerBearbeiten As C1.Win.C1Command.C1Command
Friend WithEvents C1MnuMainEmpfaengerLoeschen As C1.Win.C1Command.C1CommandLink
Friend WithEvents MnuMainEmfpaengerLoeschen As C1.Win.C1Command.C1Command
Friend WithEvents C1MnuEDOKAPartnerErfassen As C1.Win.C1Command.C1CommandLink
Friend WithEvents MnuMainEDOKAPartnerErfassen As C1.Win.C1Command.C1Command
Friend WithEvents C1MnuMainImportEmpfaneger As C1.Win.C1Command.C1CommandLink
Friend WithEvents MnuMainImportEmpfaenger As C1.Win.C1Command.C1Command
Friend WithEvents C1MnuMainExportEmpfaenger As C1.Win.C1Command.C1CommandLink
Friend WithEvents MnuMainExportEmpfaenger As C1.Win.C1Command.C1Command
Friend WithEvents C1MnuMainLoadPartnerliste As C1.Win.C1Command.C1CommandLink
Friend WithEvents MnuMainLoadPartnerliste As C1.Win.C1Command.C1Command
Friend WithEvents C1MnuMainSaveAsPartnerlist As C1.Win.C1Command.C1CommandLink
Friend WithEvents MnuMainSaveAsPartnerlist As C1.Win.C1Command.C1Command
Friend WithEvents C1MnuMainCheckEmpfaenger As C1.Win.C1Command.C1CommandLink
Friend WithEvents MnuMainCheckEmpfaenger As C1.Win.C1Command.C1Command
Friend WithEvents C1CommandMenu1 As C1.Win.C1Command.C1CommandMenu
Friend WithEvents C1MnuMainAddColumn As C1.Win.C1Command.C1CommandLink
Friend WithEvents MnuMainAddColumn As C1.Win.C1Command.C1Command
Friend WithEvents C1MnuMainDeleteColumn As C1.Win.C1Command.C1CommandLink
Friend WithEvents MnuMainDeleteColumn As C1.Win.C1Command.C1Command
Friend WithEvents C1MnuMainRenameColumn As C1.Win.C1Command.C1CommandLink
Friend WithEvents MnuMainRenameColumn As C1.Win.C1Command.C1Command
Friend WithEvents C1MnuMainSpaltenselektion As C1.Win.C1Command.C1CommandLink
Friend WithEvents MnuMainSpaltenselektion As C1.Win.C1Command.C1Command
Friend WithEvents mnuctAddHost As C1.Win.C1Command.C1Command
Friend WithEvents mnuCTADDEdokapartner As C1.Win.C1Command.C1Command
Friend WithEvents mnuctaddempfaenger As C1.Win.C1Command.C1Command
Friend WithEvents C1ContextMenu1 As C1.Win.C1Command.C1ContextMenu
Friend WithEvents C1CommandLink1 As C1.Win.C1Command.C1CommandLink
Friend WithEvents c1dokumentedrucken As C1.Win.C1Command.C1Command
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton
Friend WithEvents djlist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents C1CommandLink2 As C1.Win.C1Command.C1CommandLink
Friend WithEvents c1statuszuruecksetzen As C1.Win.C1Command.C1Command
Friend WithEvents C1CommandLink3 As C1.Win.C1Command.C1CommandLink
Friend WithEvents c1showdoc As C1.Win.C1Command.C1Command
Friend WithEvents C1CommandLink4 As C1.Win.C1Command.C1CommandLink
Friend WithEvents c1deldok As C1.Win.C1Command.C1Command
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmsbdruck))
Dim GridLines1 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
Me.C1CommandHolder1 = New C1.Win.C1Command.C1CommandHolder()
Me.MnuMainDatei = New C1.Win.C1Command.C1CommandMenu()
Me.C1MnuMainNeuerSerienbrief = New C1.Win.C1Command.C1CommandLink()
Me.MnuMainNew = New C1.Win.C1Command.C1Command()
Me.C1MnuMainSerienbriefLaden = New C1.Win.C1Command.C1CommandLink()
Me.MnuMainLoad = New C1.Win.C1Command.C1Command()
Me.C1MnuSerienbriefLoeschen = New C1.Win.C1Command.C1CommandLink()
Me.MnuMainSerienbriefLoeschen = New C1.Win.C1Command.C1Command()
Me.C1MnuMainSerienbriefabschliessen = New C1.Win.C1Command.C1CommandLink()
Me.MnuMainAbschluss = New C1.Win.C1Command.C1Command()
Me.C1MnuMainSerienbriefSpeichern = New C1.Win.C1Command.C1CommandLink()
Me.MnuMainSave = New C1.Win.C1Command.C1Command()
Me.C1MnuMainFensterSchliessen = New C1.Win.C1Command.C1CommandLink()
Me.MnuMainClose = New C1.Win.C1Command.C1Command()
Me.MnuMainDokument = New C1.Win.C1Command.C1CommandMenu()
Me.C1MnuMainVorlageImportieren = New C1.Win.C1Command.C1CommandLink()
Me.MnuMainVorlageImportieren = New C1.Win.C1Command.C1Command()
Me.C1MnuMainVorlageBearbeiten = New C1.Win.C1Command.C1CommandLink()
Me.MnuMainVorageBearbeiten = New C1.Win.C1Command.C1Command()
Me.C1MnuMainVorschauErstellen = New C1.Win.C1Command.C1CommandLink()
Me.MnuMainVorschauErstellen = New C1.Win.C1Command.C1Command()
Me.C1MnuDokumenteGenerieren = New C1.Win.C1Command.C1CommandLink()
Me.MnuMainDokumenteGenerieren = New C1.Win.C1Command.C1Command()
Me.C1MnuMainDokumenteDrucken = New C1.Win.C1Command.C1CommandLink()
Me.MnuMainDokumenteDrucken = New C1.Win.C1Command.C1Command()
Me.C1MnuMainDokumenteBestaetigen = New C1.Win.C1Command.C1CommandLink()
Me.MnuMainDokumenteBestaetigen = New C1.Win.C1Command.C1Command()
Me.MnuMainEmpfaengerliste = New C1.Win.C1Command.C1CommandMenu()
Me.C1MnuEDOKAHOSTPartnerHinzufuegen = New C1.Win.C1Command.C1CommandLink()
Me.MnuMainAddEDOKAHOSTPartner = New C1.Win.C1Command.C1Command()
Me.C1MnuMainEDOKAPartnerErfassen = New C1.Win.C1Command.C1CommandLink()
Me.MnuMainNeuerEDOKAPartnerErfassen = New C1.Win.C1Command.C1Command()
Me.C1MnuMainNeuerEmpfaengerErfassen = New C1.Win.C1Command.C1CommandLink()
Me.MnuMainNeuerEmpfaengerErfassen = New C1.Win.C1Command.C1Command()
Me.C1MnuMainEmpfaengerBearbeitten = New C1.Win.C1Command.C1CommandLink()
Me.MnuMainEmpfaengerBearbeiten = New C1.Win.C1Command.C1Command()
Me.C1MnuMainEmpfaengerLoeschen = New C1.Win.C1Command.C1CommandLink()
Me.MnuMainEmfpaengerLoeschen = New C1.Win.C1Command.C1Command()
Me.C1MnuEDOKAPartnerErfassen = New C1.Win.C1Command.C1CommandLink()
Me.MnuMainEDOKAPartnerErfassen = New C1.Win.C1Command.C1Command()
Me.C1MnuMainImportEmpfaneger = New C1.Win.C1Command.C1CommandLink()
Me.MnuMainImportEmpfaenger = New C1.Win.C1Command.C1Command()
Me.C1MnuMainExportEmpfaenger = New C1.Win.C1Command.C1CommandLink()
Me.MnuMainExportEmpfaenger = New C1.Win.C1Command.C1Command()
Me.C1MnuMainLoadPartnerliste = New C1.Win.C1Command.C1CommandLink()
Me.MnuMainLoadPartnerliste = New C1.Win.C1Command.C1Command()
Me.C1MnuMainSaveAsPartnerlist = New C1.Win.C1Command.C1CommandLink()
Me.MnuMainSaveAsPartnerlist = New C1.Win.C1Command.C1Command()
Me.C1MnuMainCheckEmpfaenger = New C1.Win.C1Command.C1CommandLink()
Me.MnuMainCheckEmpfaenger = New C1.Win.C1Command.C1Command()
Me.C1CommandMenu1 = New C1.Win.C1Command.C1CommandMenu()
Me.C1MnuMainAddColumn = New C1.Win.C1Command.C1CommandLink()
Me.MnuMainAddColumn = New C1.Win.C1Command.C1Command()
Me.C1MnuMainDeleteColumn = New C1.Win.C1Command.C1CommandLink()
Me.MnuMainDeleteColumn = New C1.Win.C1Command.C1Command()
Me.C1MnuMainRenameColumn = New C1.Win.C1Command.C1CommandLink()
Me.MnuMainRenameColumn = New C1.Win.C1Command.C1Command()
Me.C1MnuMainSpaltenselektion = New C1.Win.C1Command.C1CommandLink()
Me.MnuMainSpaltenselektion = New C1.Win.C1Command.C1Command()
Me.mnuctAddHost = New C1.Win.C1Command.C1Command()
Me.mnuCTADDEdokapartner = New C1.Win.C1Command.C1Command()
Me.mnuctaddempfaenger = New C1.Win.C1Command.C1Command()
Me.C1ContextMenu1 = New C1.Win.C1Command.C1ContextMenu()
Me.C1CommandLink1 = New C1.Win.C1Command.C1CommandLink()
Me.c1dokumentedrucken = New C1.Win.C1Command.C1Command()
Me.C1CommandLink3 = New C1.Win.C1Command.C1CommandLink()
Me.c1showdoc = New C1.Win.C1Command.C1Command()
Me.C1CommandLink2 = New C1.Win.C1Command.C1CommandLink()
Me.c1statuszuruecksetzen = New C1.Win.C1Command.C1Command()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.ToolBar1 = New System.Windows.Forms.ToolBar()
Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton()
Me.djlist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.C1CommandLink4 = New C1.Win.C1Command.C1CommandLink()
Me.c1deldok = New C1.Win.C1Command.C1Command()
CType(Me.C1CommandHolder1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.djlist, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'C1CommandHolder1
'
Me.C1CommandHolder1.Commands.Add(Me.MnuMainDatei)
Me.C1CommandHolder1.Commands.Add(Me.MnuMainNew)
Me.C1CommandHolder1.Commands.Add(Me.MnuMainLoad)
Me.C1CommandHolder1.Commands.Add(Me.MnuMainSave)
Me.C1CommandHolder1.Commands.Add(Me.MnuMainClose)
Me.C1CommandHolder1.Commands.Add(Me.MnuMainDokument)
Me.C1CommandHolder1.Commands.Add(Me.MnuMainVorlageImportieren)
Me.C1CommandHolder1.Commands.Add(Me.MnuMainVorageBearbeiten)
Me.C1CommandHolder1.Commands.Add(Me.MnuMainVorschauErstellen)
Me.C1CommandHolder1.Commands.Add(Me.MnuMainDokumenteGenerieren)
Me.C1CommandHolder1.Commands.Add(Me.MnuMainDokumenteDrucken)
Me.C1CommandHolder1.Commands.Add(Me.MnuMainDokumenteBestaetigen)
Me.C1CommandHolder1.Commands.Add(Me.MnuMainEmpfaengerliste)
Me.C1CommandHolder1.Commands.Add(Me.MnuMainAddEDOKAHOSTPartner)
Me.C1CommandHolder1.Commands.Add(Me.MnuMainNeuerEDOKAPartnerErfassen)
Me.C1CommandHolder1.Commands.Add(Me.MnuMainNeuerEmpfaengerErfassen)
Me.C1CommandHolder1.Commands.Add(Me.MnuMainLoadPartnerliste)
Me.C1CommandHolder1.Commands.Add(Me.MnuMainSaveAsPartnerlist)
Me.C1CommandHolder1.Commands.Add(Me.MnuMainImportEmpfaenger)
Me.C1CommandHolder1.Commands.Add(Me.MnuMainExportEmpfaenger)
Me.C1CommandHolder1.Commands.Add(Me.MnuMainEDOKAPartnerErfassen)
Me.C1CommandHolder1.Commands.Add(Me.C1CommandMenu1)
Me.C1CommandHolder1.Commands.Add(Me.MnuMainAddColumn)
Me.C1CommandHolder1.Commands.Add(Me.MnuMainDeleteColumn)
Me.C1CommandHolder1.Commands.Add(Me.MnuMainRenameColumn)
Me.C1CommandHolder1.Commands.Add(Me.MnuMainSpaltenselektion)
Me.C1CommandHolder1.Commands.Add(Me.MnuMainAbschluss)
Me.C1CommandHolder1.Commands.Add(Me.MnuMainEmpfaengerBearbeiten)
Me.C1CommandHolder1.Commands.Add(Me.MnuMainEmfpaengerLoeschen)
Me.C1CommandHolder1.Commands.Add(Me.MnuMainCheckEmpfaenger)
Me.C1CommandHolder1.Commands.Add(Me.MnuMainSerienbriefLoeschen)
Me.C1CommandHolder1.Commands.Add(Me.mnuctAddHost)
Me.C1CommandHolder1.Commands.Add(Me.mnuCTADDEdokapartner)
Me.C1CommandHolder1.Commands.Add(Me.mnuctaddempfaenger)
Me.C1CommandHolder1.Commands.Add(Me.C1ContextMenu1)
Me.C1CommandHolder1.Commands.Add(Me.c1dokumentedrucken)
Me.C1CommandHolder1.Commands.Add(Me.c1statuszuruecksetzen)
Me.C1CommandHolder1.Commands.Add(Me.c1showdoc)
Me.C1CommandHolder1.Commands.Add(Me.c1deldok)
Me.C1CommandHolder1.ImageList = Me.ImageList1
Me.C1CommandHolder1.Owner = Me
Me.C1CommandHolder1.SmoothImages = False
'
'MnuMainDatei
'
Me.MnuMainDatei.CommandLinks.Add(Me.C1MnuMainNeuerSerienbrief)
Me.MnuMainDatei.CommandLinks.Add(Me.C1MnuMainSerienbriefLaden)
Me.MnuMainDatei.CommandLinks.Add(Me.C1MnuSerienbriefLoeschen)
Me.MnuMainDatei.CommandLinks.Add(Me.C1MnuMainSerienbriefabschliessen)
Me.MnuMainDatei.CommandLinks.Add(Me.C1MnuMainSerienbriefSpeichern)
Me.MnuMainDatei.CommandLinks.Add(Me.C1MnuMainFensterSchliessen)
Me.MnuMainDatei.Image = Nothing
Me.MnuMainDatei.Name = "MnuMainDatei"
Me.MnuMainDatei.Text = "&Datei"
'
'C1MnuMainNeuerSerienbrief
'
Me.C1MnuMainNeuerSerienbrief.Command = Me.MnuMainNew
Me.C1MnuMainNeuerSerienbrief.Text = "&Neuer Serienbrief"
'
'MnuMainNew
'
Me.MnuMainNew.Image = Nothing
Me.MnuMainNew.ImageIndex = 20
Me.MnuMainNew.Name = "MnuMainNew"
Me.MnuMainNew.Text = "&Neuer Serienbrief"
'
'C1MnuMainSerienbriefLaden
'
Me.C1MnuMainSerienbriefLaden.Command = Me.MnuMainLoad
Me.C1MnuMainSerienbriefLaden.Text = "Serienbrief &laden"
'
'MnuMainLoad
'
Me.MnuMainLoad.Image = Nothing
Me.MnuMainLoad.ImageIndex = 22
Me.MnuMainLoad.Name = "MnuMainLoad"
Me.MnuMainLoad.Text = "Serienbrief &laden"
'
'C1MnuSerienbriefLoeschen
'
Me.C1MnuSerienbriefLoeschen.Command = Me.MnuMainSerienbriefLoeschen
Me.C1MnuSerienbriefLoeschen.Text = "Serienbrief löschen"
'
'MnuMainSerienbriefLoeschen
'
Me.MnuMainSerienbriefLoeschen.Image = Nothing
Me.MnuMainSerienbriefLoeschen.ImageIndex = 23
Me.MnuMainSerienbriefLoeschen.Name = "MnuMainSerienbriefLoeschen"
Me.MnuMainSerienbriefLoeschen.Text = "Serienbrief löschen"
'
'C1MnuMainSerienbriefabschliessen
'
Me.C1MnuMainSerienbriefabschliessen.Command = Me.MnuMainAbschluss
Me.C1MnuMainSerienbriefabschliessen.Text = "Serienbrief abschliessen"
'
'MnuMainAbschluss
'
Me.MnuMainAbschluss.Image = Nothing
Me.MnuMainAbschluss.ImageIndex = 27
Me.MnuMainAbschluss.Name = "MnuMainAbschluss"
Me.MnuMainAbschluss.Text = "Serienbrief abschliessen"
'
'C1MnuMainSerienbriefSpeichern
'
Me.C1MnuMainSerienbriefSpeichern.Command = Me.MnuMainSave
Me.C1MnuMainSerienbriefSpeichern.Delimiter = True
Me.C1MnuMainSerienbriefSpeichern.Text = "&Serienbrief speichern"
'
'MnuMainSave
'
Me.MnuMainSave.Image = Nothing
Me.MnuMainSave.ImageIndex = 24
Me.MnuMainSave.Name = "MnuMainSave"
Me.MnuMainSave.Text = "&Serienbrief speichern"
'
'C1MnuMainFensterSchliessen
'
Me.C1MnuMainFensterSchliessen.Command = Me.MnuMainClose
Me.C1MnuMainFensterSchliessen.Delimiter = True
Me.C1MnuMainFensterSchliessen.Text = "&Fenster schliessen"
'
'MnuMainClose
'
Me.MnuMainClose.Image = CType(resources.GetObject("MnuMainClose.Image"), System.Drawing.Bitmap)
Me.MnuMainClose.ImageIndex = 0
Me.MnuMainClose.Name = "MnuMainClose"
Me.MnuMainClose.Text = "&Fenster schliessen"
'
'MnuMainDokument
'
Me.MnuMainDokument.CommandLinks.Add(Me.C1MnuMainVorlageImportieren)
Me.MnuMainDokument.CommandLinks.Add(Me.C1MnuMainVorlageBearbeiten)
Me.MnuMainDokument.CommandLinks.Add(Me.C1MnuMainVorschauErstellen)
Me.MnuMainDokument.CommandLinks.Add(Me.C1MnuDokumenteGenerieren)
Me.MnuMainDokument.CommandLinks.Add(Me.C1MnuMainDokumenteDrucken)
Me.MnuMainDokument.CommandLinks.Add(Me.C1MnuMainDokumenteBestaetigen)
Me.MnuMainDokument.Image = Nothing
Me.MnuMainDokument.Name = "MnuMainDokument"
Me.MnuMainDokument.Text = "Dokument"
'
'C1MnuMainVorlageImportieren
'
Me.C1MnuMainVorlageImportieren.Command = Me.MnuMainVorlageImportieren
Me.C1MnuMainVorlageImportieren.Text = "Vorlage &importieren"
'
'MnuMainVorlageImportieren
'
Me.MnuMainVorlageImportieren.Image = Nothing
Me.MnuMainVorlageImportieren.Name = "MnuMainVorlageImportieren"
Me.MnuMainVorlageImportieren.Text = "Vorlage &importieren"
'
'C1MnuMainVorlageBearbeiten
'
Me.C1MnuMainVorlageBearbeiten.Command = Me.MnuMainVorageBearbeiten
Me.C1MnuMainVorlageBearbeiten.Text = "Vorlage &bearbeiten"
'
'MnuMainVorageBearbeiten
'
Me.MnuMainVorageBearbeiten.Image = Nothing
Me.MnuMainVorageBearbeiten.ImageIndex = 25
Me.MnuMainVorageBearbeiten.Name = "MnuMainVorageBearbeiten"
Me.MnuMainVorageBearbeiten.Text = "Vorlage &bearbeiten"
'
'C1MnuMainVorschauErstellen
'
Me.C1MnuMainVorschauErstellen.Command = Me.MnuMainVorschauErstellen
Me.C1MnuMainVorschauErstellen.Delimiter = True
Me.C1MnuMainVorschauErstellen.Text = "Vorschau erstellen"
'
'MnuMainVorschauErstellen
'
Me.MnuMainVorschauErstellen.Image = Nothing
Me.MnuMainVorschauErstellen.ImageIndex = 26
Me.MnuMainVorschauErstellen.Name = "MnuMainVorschauErstellen"
Me.MnuMainVorschauErstellen.Text = "Vorschau erstellen"
'
'C1MnuDokumenteGenerieren
'
Me.C1MnuDokumenteGenerieren.Command = Me.MnuMainDokumenteGenerieren
Me.C1MnuDokumenteGenerieren.Delimiter = True
Me.C1MnuDokumenteGenerieren.Text = "Dokumente &generieren"
'
'MnuMainDokumenteGenerieren
'
Me.MnuMainDokumenteGenerieren.Image = Nothing
Me.MnuMainDokumenteGenerieren.ImageIndex = 15
Me.MnuMainDokumenteGenerieren.Name = "MnuMainDokumenteGenerieren"
Me.MnuMainDokumenteGenerieren.Text = "Dokumente &generieren"
'
'C1MnuMainDokumenteDrucken
'
Me.C1MnuMainDokumenteDrucken.Command = Me.MnuMainDokumenteDrucken
Me.C1MnuMainDokumenteDrucken.Text = "Dokumente &drucken"
'
'MnuMainDokumenteDrucken
'
Me.MnuMainDokumenteDrucken.Image = Nothing
Me.MnuMainDokumenteDrucken.ImageIndex = 14
Me.MnuMainDokumenteDrucken.Name = "MnuMainDokumenteDrucken"
Me.MnuMainDokumenteDrucken.Text = "Dokumente &drucken"
'
'C1MnuMainDokumenteBestaetigen
'
Me.C1MnuMainDokumenteBestaetigen.Command = Me.MnuMainDokumenteBestaetigen
Me.C1MnuMainDokumenteBestaetigen.Text = "Generierte Dokumente bestätigen"
'
'MnuMainDokumenteBestaetigen
'
Me.MnuMainDokumenteBestaetigen.Image = Nothing
Me.MnuMainDokumenteBestaetigen.ImageIndex = 13
Me.MnuMainDokumenteBestaetigen.Name = "MnuMainDokumenteBestaetigen"
Me.MnuMainDokumenteBestaetigen.Text = "Generierte Dokumente bestätigen"
'
'MnuMainEmpfaengerliste
'
Me.MnuMainEmpfaengerliste.CommandLinks.Add(Me.C1MnuEDOKAHOSTPartnerHinzufuegen)
Me.MnuMainEmpfaengerliste.CommandLinks.Add(Me.C1MnuMainEDOKAPartnerErfassen)
Me.MnuMainEmpfaengerliste.CommandLinks.Add(Me.C1MnuMainNeuerEmpfaengerErfassen)
Me.MnuMainEmpfaengerliste.CommandLinks.Add(Me.C1MnuMainEmpfaengerBearbeitten)
Me.MnuMainEmpfaengerliste.CommandLinks.Add(Me.C1MnuMainEmpfaengerLoeschen)
Me.MnuMainEmpfaengerliste.CommandLinks.Add(Me.C1MnuEDOKAPartnerErfassen)
Me.MnuMainEmpfaengerliste.CommandLinks.Add(Me.C1MnuMainImportEmpfaneger)
Me.MnuMainEmpfaengerliste.CommandLinks.Add(Me.C1MnuMainExportEmpfaenger)
Me.MnuMainEmpfaengerliste.CommandLinks.Add(Me.C1MnuMainLoadPartnerliste)
Me.MnuMainEmpfaengerliste.CommandLinks.Add(Me.C1MnuMainSaveAsPartnerlist)
Me.MnuMainEmpfaengerliste.CommandLinks.Add(Me.C1MnuMainCheckEmpfaenger)
Me.MnuMainEmpfaengerliste.Image = Nothing
Me.MnuMainEmpfaengerliste.Name = "MnuMainEmpfaengerliste"
Me.MnuMainEmpfaengerliste.Text = "Empfängerliste"
'
'C1MnuEDOKAHOSTPartnerHinzufuegen
'
Me.C1MnuEDOKAHOSTPartnerHinzufuegen.Command = Me.MnuMainAddEDOKAHOSTPartner
Me.C1MnuEDOKAHOSTPartnerHinzufuegen.Text = "EDOKA-/HOST-Partner hinzufügen"
'
'MnuMainAddEDOKAHOSTPartner
'
Me.MnuMainAddEDOKAHOSTPartner.Image = Nothing
Me.MnuMainAddEDOKAHOSTPartner.ImageIndex = 16
Me.MnuMainAddEDOKAHOSTPartner.Name = "MnuMainAddEDOKAHOSTPartner"
Me.MnuMainAddEDOKAHOSTPartner.Shortcut = System.Windows.Forms.Shortcut.CtrlP
Me.MnuMainAddEDOKAHOSTPartner.Text = "EDOKA-/HOST-Partner hinzufügen"
'
'C1MnuMainEDOKAPartnerErfassen
'
Me.C1MnuMainEDOKAPartnerErfassen.Command = Me.MnuMainNeuerEDOKAPartnerErfassen
Me.C1MnuMainEDOKAPartnerErfassen.Text = "&Neuer EDOKA-Partner erfassen"
'
'MnuMainNeuerEDOKAPartnerErfassen
'
Me.MnuMainNeuerEDOKAPartnerErfassen.Image = Nothing
Me.MnuMainNeuerEDOKAPartnerErfassen.ImageIndex = 18
Me.MnuMainNeuerEDOKAPartnerErfassen.Name = "MnuMainNeuerEDOKAPartnerErfassen"
Me.MnuMainNeuerEDOKAPartnerErfassen.Shortcut = System.Windows.Forms.Shortcut.CtrlN
Me.MnuMainNeuerEDOKAPartnerErfassen.Text = "&Neuer EDOKA-Partner erfassen"
'
'C1MnuMainNeuerEmpfaengerErfassen
'
Me.C1MnuMainNeuerEmpfaengerErfassen.Command = Me.MnuMainNeuerEmpfaengerErfassen
Me.C1MnuMainNeuerEmpfaengerErfassen.Text = "Neuer E&mpfänger erfassen"
'
'MnuMainNeuerEmpfaengerErfassen
'
Me.MnuMainNeuerEmpfaengerErfassen.Image = Nothing
Me.MnuMainNeuerEmpfaengerErfassen.ImageIndex = 19
Me.MnuMainNeuerEmpfaengerErfassen.Name = "MnuMainNeuerEmpfaengerErfassen"
Me.MnuMainNeuerEmpfaengerErfassen.Shortcut = System.Windows.Forms.Shortcut.CtrlE
Me.MnuMainNeuerEmpfaengerErfassen.Text = "Neuer E&mpfänger erfassen"
'
'C1MnuMainEmpfaengerBearbeitten
'
Me.C1MnuMainEmpfaengerBearbeitten.Command = Me.MnuMainEmpfaengerBearbeiten
Me.C1MnuMainEmpfaengerBearbeitten.Delimiter = True
Me.C1MnuMainEmpfaengerBearbeitten.Text = "Markierter Empfänger bearbeiten"
'
'MnuMainEmpfaengerBearbeiten
'
Me.MnuMainEmpfaengerBearbeiten.Image = Nothing
Me.MnuMainEmpfaengerBearbeiten.Name = "MnuMainEmpfaengerBearbeiten"
Me.MnuMainEmpfaengerBearbeiten.Text = "Markierter Empfänger bearbeiten"
'
'C1MnuMainEmpfaengerLoeschen
'
Me.C1MnuMainEmpfaengerLoeschen.Command = Me.MnuMainEmfpaengerLoeschen
Me.C1MnuMainEmpfaengerLoeschen.Text = "Markierter Empfänger löschen"
'
'MnuMainEmfpaengerLoeschen
'
Me.MnuMainEmfpaengerLoeschen.Image = Nothing
Me.MnuMainEmfpaengerLoeschen.Name = "MnuMainEmfpaengerLoeschen"
Me.MnuMainEmfpaengerLoeschen.Text = "Markierter Empfänger löschen"
'
'C1MnuEDOKAPartnerErfassen
'
Me.C1MnuEDOKAPartnerErfassen.Command = Me.MnuMainEDOKAPartnerErfassen
Me.C1MnuEDOKAPartnerErfassen.Text = "Markierter Empfänger als EDOKA-Partner erfassen"
'
'MnuMainEDOKAPartnerErfassen
'
Me.MnuMainEDOKAPartnerErfassen.Image = Nothing
Me.MnuMainEDOKAPartnerErfassen.Name = "MnuMainEDOKAPartnerErfassen"
Me.MnuMainEDOKAPartnerErfassen.Text = "Markierter Empfänger als EDOKA-Partner erfassen"
'
'C1MnuMainImportEmpfaneger
'
Me.C1MnuMainImportEmpfaneger.Command = Me.MnuMainImportEmpfaenger
Me.C1MnuMainImportEmpfaneger.Delimiter = True
Me.C1MnuMainImportEmpfaneger.Text = "Empfängerliste importieren"
'
'MnuMainImportEmpfaenger
'
Me.MnuMainImportEmpfaenger.Image = Nothing
Me.MnuMainImportEmpfaenger.Name = "MnuMainImportEmpfaenger"
Me.MnuMainImportEmpfaenger.Text = "Empfängerliste importieren"
'
'C1MnuMainExportEmpfaenger
'
Me.C1MnuMainExportEmpfaenger.Command = Me.MnuMainExportEmpfaenger
Me.C1MnuMainExportEmpfaenger.Text = "Empfängerliste exportieren"
'
'MnuMainExportEmpfaenger
'
Me.MnuMainExportEmpfaenger.Image = Nothing
Me.MnuMainExportEmpfaenger.Name = "MnuMainExportEmpfaenger"
Me.MnuMainExportEmpfaenger.Text = "Empfängerliste exportieren"
'
'C1MnuMainLoadPartnerliste
'
Me.C1MnuMainLoadPartnerliste.Command = Me.MnuMainLoadPartnerliste
Me.C1MnuMainLoadPartnerliste.Delimiter = True
Me.C1MnuMainLoadPartnerliste.Text = "&Bestehende Partnerliste laden"
'
'MnuMainLoadPartnerliste
'
Me.MnuMainLoadPartnerliste.Image = Nothing
Me.MnuMainLoadPartnerliste.Name = "MnuMainLoadPartnerliste"
Me.MnuMainLoadPartnerliste.Text = "&Bestehende Partnerliste laden"
'
'C1MnuMainSaveAsPartnerlist
'
Me.C1MnuMainSaveAsPartnerlist.Command = Me.MnuMainSaveAsPartnerlist
Me.C1MnuMainSaveAsPartnerlist.Text = "Emfänger als Partnerliste speichern"
'
'MnuMainSaveAsPartnerlist
'
Me.MnuMainSaveAsPartnerlist.Image = Nothing
Me.MnuMainSaveAsPartnerlist.Name = "MnuMainSaveAsPartnerlist"
Me.MnuMainSaveAsPartnerlist.Text = "Emfänger als Partnerliste speichern"
'
'C1MnuMainCheckEmpfaenger
'
Me.C1MnuMainCheckEmpfaenger.Command = Me.MnuMainCheckEmpfaenger
Me.C1MnuMainCheckEmpfaenger.Delimiter = True
Me.C1MnuMainCheckEmpfaenger.Text = "Empfängerliste prüfen"
'
'MnuMainCheckEmpfaenger
'
Me.MnuMainCheckEmpfaenger.Image = Nothing
Me.MnuMainCheckEmpfaenger.ImageIndex = 17
Me.MnuMainCheckEmpfaenger.Name = "MnuMainCheckEmpfaenger"
Me.MnuMainCheckEmpfaenger.Text = "Empfängerliste prüfen"
'
'C1CommandMenu1
'
Me.C1CommandMenu1.CommandLinks.Add(Me.C1MnuMainAddColumn)
Me.C1CommandMenu1.CommandLinks.Add(Me.C1MnuMainDeleteColumn)
Me.C1CommandMenu1.CommandLinks.Add(Me.C1MnuMainRenameColumn)
Me.C1CommandMenu1.CommandLinks.Add(Me.C1MnuMainSpaltenselektion)
Me.C1CommandMenu1.Image = Nothing
Me.C1CommandMenu1.Name = "C1CommandMenu1"
Me.C1CommandMenu1.Text = "&Individuelle Dokumentwerte"
'
'C1MnuMainAddColumn
'
Me.C1MnuMainAddColumn.Command = Me.MnuMainAddColumn
Me.C1MnuMainAddColumn.Text = "Spalte hinzufügen"
'
'MnuMainAddColumn
'
Me.MnuMainAddColumn.Image = Nothing
Me.MnuMainAddColumn.Name = "MnuMainAddColumn"
Me.MnuMainAddColumn.Text = "Spalte hinzufügen"
'
'C1MnuMainDeleteColumn
'
Me.C1MnuMainDeleteColumn.Command = Me.MnuMainDeleteColumn
Me.C1MnuMainDeleteColumn.Text = "Markierte Spalte löschen"
'
'MnuMainDeleteColumn
'
Me.MnuMainDeleteColumn.Image = Nothing
Me.MnuMainDeleteColumn.Name = "MnuMainDeleteColumn"
Me.MnuMainDeleteColumn.Text = "Markierte Spalte löschen"
'
'C1MnuMainRenameColumn
'
Me.C1MnuMainRenameColumn.Command = Me.MnuMainRenameColumn
Me.C1MnuMainRenameColumn.Text = "Markierte Spalte umbenennen"
'
'MnuMainRenameColumn
'
Me.MnuMainRenameColumn.Image = Nothing
Me.MnuMainRenameColumn.Name = "MnuMainRenameColumn"
Me.MnuMainRenameColumn.Text = "Markierte Spalte umbenennen"
'
'C1MnuMainSpaltenselektion
'
Me.C1MnuMainSpaltenselektion.Command = Me.MnuMainSpaltenselektion
Me.C1MnuMainSpaltenselektion.Delimiter = True
Me.C1MnuMainSpaltenselektion.Text = "Spalten-Selektion"
'
'MnuMainSpaltenselektion
'
Me.MnuMainSpaltenselektion.Image = Nothing
Me.MnuMainSpaltenselektion.Name = "MnuMainSpaltenselektion"
Me.MnuMainSpaltenselektion.Text = "Spalten-Selektion"
'
'mnuctAddHost
'
Me.mnuctAddHost.Image = Nothing
Me.mnuctAddHost.ImageIndex = 16
Me.mnuctAddHost.Name = "mnuctAddHost"
Me.mnuctAddHost.Text = "EDOKA-/HOST-Partner hinzufügen"
'
'mnuCTADDEdokapartner
'
Me.mnuCTADDEdokapartner.Image = Nothing
Me.mnuCTADDEdokapartner.ImageIndex = 18
Me.mnuCTADDEdokapartner.Name = "mnuCTADDEdokapartner"
Me.mnuCTADDEdokapartner.Text = "Neuer EDOKA-Partner erfassen"
'
'mnuctaddempfaenger
'
Me.mnuctaddempfaenger.Image = Nothing
Me.mnuctaddempfaenger.ImageIndex = 19
Me.mnuctaddempfaenger.Name = "mnuctaddempfaenger"
Me.mnuctaddempfaenger.Text = "Neuer Empfänger erfassen"
'
'C1ContextMenu1
'
Me.C1ContextMenu1.CommandLinks.Add(Me.C1CommandLink1)
Me.C1ContextMenu1.CommandLinks.Add(Me.C1CommandLink3)
Me.C1ContextMenu1.CommandLinks.Add(Me.C1CommandLink4)
Me.C1ContextMenu1.CommandLinks.Add(Me.C1CommandLink2)
Me.C1ContextMenu1.Image = CType(resources.GetObject("C1ContextMenu1.Image"), System.Drawing.Bitmap)
Me.C1ContextMenu1.ImageIndex = 0
Me.C1ContextMenu1.Name = "C1ContextMenu1"
'
'C1CommandLink1
'
Me.C1CommandLink1.Command = Me.c1dokumentedrucken
Me.C1CommandLink1.Text = "Dokumente drucken"
'
'c1dokumentedrucken
'
Me.c1dokumentedrucken.Image = Nothing
Me.c1dokumentedrucken.Name = "c1dokumentedrucken"
Me.c1dokumentedrucken.Text = "Dokumente drucken"
'
'C1CommandLink3
'
Me.C1CommandLink3.Command = Me.c1showdoc
Me.C1CommandLink3.Text = "Dokumente anzeigen"
'
'c1showdoc
'
Me.c1showdoc.Image = Nothing
Me.c1showdoc.Name = "c1showdoc"
Me.c1showdoc.Text = "Dokumente anzeigen"
'
'C1CommandLink2
'
Me.C1CommandLink2.Command = Me.c1statuszuruecksetzen
Me.C1CommandLink2.Delimiter = True
Me.C1CommandLink2.Text = "Status zurücksetzen"
'
'c1statuszuruecksetzen
'
Me.c1statuszuruecksetzen.Image = Nothing
Me.c1statuszuruecksetzen.Name = "c1statuszuruecksetzen"
Me.c1statuszuruecksetzen.Text = "Status zurücksetzen"
'
'ImageList1
'
Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
'
'ToolBar1
'
Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1})
Me.C1CommandHolder1.SetC1ContextMenu(Me.ToolBar1, Nothing)
Me.ToolBar1.DropDownArrows = True
Me.ToolBar1.ImageList = Me.ImageList1
Me.ToolBar1.Name = "ToolBar1"
Me.ToolBar1.ShowToolTips = True
Me.ToolBar1.Size = New System.Drawing.Size(464, 25)
Me.ToolBar1.TabIndex = 29
'
'ToolBarButton1
'
Me.ToolBarButton1.ImageIndex = 1
'
'djlist
'
Me.djlist.AllowDelete = True
Me.djlist.AllowFilter = True
Me.djlist.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
Me.djlist.AllowSort = True
Me.djlist.AlternatingRows = True
Me.C1CommandHolder1.SetC1ContextMenu(Me.djlist, Me.C1ContextMenu1)
Me.djlist.CaptionHeight = 17
Me.djlist.CollapseColor = System.Drawing.Color.Black
Me.djlist.Cursor = System.Windows.Forms.Cursors.Default
Me.djlist.DataChanged = False
Me.djlist.DeadAreaBackColor = System.Drawing.Color.Empty
Me.djlist.Dock = System.Windows.Forms.DockStyle.Fill
Me.djlist.ExpandColor = System.Drawing.Color.Black
Me.djlist.FetchRowStyles = True
Me.djlist.FilterBar = True
Me.djlist.GroupByCaption = "Drag a column header here to group by that column"
Me.djlist.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
Me.djlist.Location = New System.Drawing.Point(0, 25)
Me.djlist.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
Me.djlist.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
Me.djlist.Name = "djlist"
Me.djlist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.djlist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.djlist.PreviewInfo.ZoomFactor = 75
Me.djlist.PrintInfo.ShowOptionsDialog = False
Me.djlist.RecordSelectorWidth = 16
GridLines1.Color = System.Drawing.Color.DarkGray
GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
Me.djlist.RowDivider = GridLines1
Me.djlist.RowHeight = 15
Me.djlist.RowSubDividerColor = System.Drawing.Color.DarkGray
Me.djlist.ScrollTips = True
Me.djlist.Size = New System.Drawing.Size(464, 180)
Me.djlist.TabIndex = 30
Me.djlist.Text = "C1TrueDBGrid1"
Me.djlist.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
"r""><Data>Style11{}Style12{}Style13{}Style5{}Style4{}Style7{}Style6{}EvenRow{Back" & _
"Color:White;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Heading{Wrap:" & _
"True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert" & _
":Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Filte" & _
"rBar{BackColor:255, 255, 192;}Footer{}Caption{AlignHorz:Center;}Editor{}Normal{B" & _
"ackColor:Control;}Style27{}Style26{}HighlightRow{ForeColor:HighlightText;BackCol" & _
"or:Highlight;}Style1{}OddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage:" & _
"Center;}Style9{}Style8{}Style3{}Style2{}Group{AlignVert:Center;Border:None,,0, 0" & _
", 0, 0;BackColor:ControlDark;}Style10{AlignHorz:Near;}</Data></Styles><Splits><C" & _
"1.Win.C1TrueDBGrid.MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""1" & _
"7"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FetchRowStyles=""True"" Filter" & _
"Bar=""True"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecSelWid" & _
"th=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 460," & _
" 176</ClientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Heading"" me=""St" & _
"yle10"" /><EditorStyle parent=""Editor"" me=""Style2"" /><EvenRowStyle parent=""EvenRo" & _
"w"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style27"" /><FooterStyle " & _
"parent=""Footer"" me=""Style4"" /><GroupStyle parent=""Group"" me=""Style12"" /><Heading" & _
"Style parent=""Heading"" me=""Style3"" /><HighLightRowStyle parent=""HighlightRow"" me" & _
"=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style6"" /><OddRowStyle parent=""" & _
"OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" " & _
"/><SelectedStyle parent=""Selected"" me=""Style5"" /><Style parent=""Normal"" me=""Styl" & _
"e1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=" & _
"""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Foo" & _
"ter"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inacti" & _
"ve"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" " & _
"/><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow""" & _
" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelect" & _
"or"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group""" & _
" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Mod" & _
"ified</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 460, " & _
"176</ClientArea></Blob>"
'
'C1CommandLink4
'
Me.C1CommandLink4.Command = Me.c1deldok
Me.C1CommandLink4.Text = "Dokumente löschen"
'
'c1deldok
'
Me.c1deldok.Image = Nothing
Me.c1deldok.Name = "c1deldok"
Me.c1deldok.Text = "Dokumente löschen"
'
'frmsbdruck
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.C1CommandHolder1.SetC1ContextMenu(Me, Nothing)
Me.ClientSize = New System.Drawing.Size(464, 205)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.djlist, Me.ToolBar1})
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmsbdruck"
Me.ShowInTaskbar = False
Me.Text = "Serienbriefe drucken"
CType(Me.C1CommandHolder1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.djlist, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
Dim m_datasaved As Boolean = False
Property datasaved() As Boolean
Get
Return m_datasaved
End Get
Set(ByVal Value As Boolean)
m_datasaved = Value
End Set
End Property
Dim serienbriefnr As Integer
Public Sub New(ByVal serienbriefnr As Integer)
MyBase.New()
InitializeComponent()
Me.serienbriefnr = serienbriefnr
End Sub
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
Me.Close()
End Sub
Private Sub frmsbdruck_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim sb As New edokadb.clsEdex_sb_serienbrief()
sb.cpMainConnectionProvider = Globals.conn
sb.iSerienbriefnr = New SqlInt32(CType(Me.serienbriefnr, Int32))
sb.SelectOne()
Me.Text = Me.Text + ": " + sb.sBezeichnung.Value
sb.Dispose()
refresh_data()
End Sub
Private Function refresh_data() As DataTable
Dim dt As New DataTable()
dt = Me.get_druckjobs
Me.djlist.DataSource = Nothing
Me.djlist.DataMember = Nothing
Me.djlist.DataSource = dt
Me.djlist.DataMember = dt.TableName
Dim i As Integer
For i = 0 To Me.djlist.Splits(0).DisplayColumns.Count - 1
Me.djlist.Splits(0).DisplayColumns(i).AutoSize()
Next
Return dt
End Function
Private Function get_druckjobs() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim i As Integer
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.CommandText = "sp_edex_sb_get_druckjob"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn.scoDBConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.serienbriefnr))
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
Throw New Exception("sp_check_dokumentreaktivierung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Private Function set_druckjobstatus(ByVal status As Integer) As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim i As Integer
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.CommandText = "sp_edex_sb_set_druckjobstatus"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn.scoDBConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@druckjobnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.djlist.Columns("nr").Value))
scmCmdToExecute.Parameters.Add(New SqlParameter("@status", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, status))
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
Throw New Exception("sp_check_dokumentreaktivierung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Dim WithEvents pdfprinter As frmSBPDFPrinter
Private Sub c1dokumentedrucken_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles c1dokumentedrucken.Click
pdfprinter = New frmSBPDFPrinter(Me.djlist.Columns("Nr").Value, False)
pdfprinter.Show()
Application.DoEvents()
pdfprinter.PrintPDF()
End Sub
Private Sub pdfprinter_PrintDOne() Handles pdfprinter.PrintDOne
Application.DoEvents()
Application.DoEvents()
Application.DoEvents()
Dim nicht_alles_gedruckt As Integer
nicht_alles_gedruckt = False
Me.set_druckjobstatus(1)
Dim i As Integer
Dim dt As DataTable
dt = Me.refresh_data()
If dt.Rows.Count > 0 Then
For i = 0 To dt.Rows.Count - 1
If dt.Rows(i).Item("Status") = "nicht gedruckt" Then
nicht_alles_gedruckt = True
End If
Next
End If
If Not nicht_alles_gedruckt Then
Dim f As New frmDruckabschluss(Me.serienbriefnr)
f.ShowDialog()
If f.datasaved Then
Me.datasaved = True
End If
f.Dispose()
Me.Close()
End If
End Sub
Private Sub c1statuszuruecksetzen_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles c1statuszuruecksetzen.Click
Me.set_druckjobstatus(0)
Me.refresh_data()
End Sub
Private Sub djlist_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles djlist.MouseDown
Me.djlist.Bookmark = djlist.RowContaining(e.Y)
End Sub
Private Sub c1showdoc_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles c1showdoc.Click
Dim f As New frmSBPDFPrinter(Me.djlist.Columns("Nr").Value, True)
f.Show()
End Sub
Private Sub c1deldok_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles c1deldok.Click
Me.set_druckjobstatus(3)
Me.refresh_data()
Me.pdfprinter_PrintDOne()
End Sub
End Class

View File

@@ -0,0 +1,231 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
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">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</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.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:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<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" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</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>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="Label1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label6.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label7.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label8.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtnrpar00.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtkurzbezeichnung.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtname.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtvorname.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtstrasse.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtplz.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtort.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtanrede1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtanrede2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtzustelladresse.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Panel1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="WertList.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="resource.Images" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
RK5CYII=
</value>
</data>
<data name="Label9.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtAnrede.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label10.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label11.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnPartnerInfo.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnPartnerInfo.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAVdJREFUOE9jMDAw
+M9AIQAZ8P/MgUv//z3////Z5Y//H5x79f/V1W/EGVyV2Ak2AIaXtuz4/3zX//8xHhlgMS1tzf8HNh3H
bZiKrAaKAciGIbP3LDmN05D/9+/f/w8CIBqmqaGhASwGAkgGYQ0tuCJkxSC2g4MDWG7BggUwQ7AboKCg
gOECbGJYdUsIS2GEgYG6KYbY+v6D4DBwdvn/Hxkz3N/2/X+Ia+z/BP9sMP3x6P//rw/8/58TUQGJBSW9
/4tbt6BoQjHg8ppX/29u/PD/7PLHYBpkSJRXCtyARKDByBpgAQsTA7kKrAGkGYRBfFDUgsRAeGLZApy2
gwxhACkCaQJ54e95SJSlBxfCXYXNdpAr4C4AhQF6QIKcDfLSwXnXMGzH8AJIISjpruza/b8oth7sApIM
ADkdhNOAzq5IasUwANkV8KQJZYDDAFvaR3YBNm8ghwsAhlrhKDl5qa8AAAAASUVORK5CYII=
</value>
</data>
<data name="$this.Name">
<value>frmsbpartnerdetail</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAEAAAAAAAAAAAAAAAEAAAAA
AAAAAAAAgACAAIAAAACAgAAAAIAAAACAgAAAAIAAwMDAAMDcwADwyqYAgICAAP8A/wD/AAAA//8AAAD/
AAAA//8AAAD/AP///wDw+/8ApKCgANTw/wCx4v8AjtT/AGvG/wBIuP8AJar/AACq/wAAktwAAHq5AABi
lgAASnMAADJQANTj/wCxx/8Ajqv/AGuP/wBIc/8AJVf/AABV/wAASdwAAD25AAAxlgAAJXMAABlQANTU
/wCxsf8Ajo7/AGtr/wBISP8AJSX/AAAA/wAAANwAAAC5AAAAlgAAAHMAAABQAOPU/wDHsf8Aq47/AI9r
/wBzSP8AVyX/AFUA/wBJANwAPQC5ADEAlgAlAHMAGQBQAPDU/wDisf8A1I7/AMZr/wC4SP8AqiX/AKoA
/wCSANwAegC5AGIAlgBKAHMAMgBQAP/U/wD/sf8A/47/AP9r/wD/SP8A/yX/AP8A/wDcANwAuQC5AJYA
lgBzAHMAUABQAP/U8AD/seIA3abCAP9rxgD/SLgA/yWqAP8AqgDcAJIAuQB6AJYAYgBzAEoAUAAyAP/U
4wD/sccA/46rAP9rjwD/SHMA/yVXAP8AVQDcAEkAuQA9AJYAMQBzACUAUAAZAP/U1AD/sbEA/46OAP9r
awD/SEgA/yUlAP8AAADcAAAAuQAAAJYAAABzAAAAUAAAAP/j1AD/x7EA/6uOAP+PawD/c0gA/1clAP9V
AADcSQAAuT0AAJYxAABzJQAAUBkAAP/w1AD/4rEA/9SOAP/GawD/uEgA/6olAP+qAADckgAAuXoAAJZi
AABzSgAAUDIAAP//1AD//7EA//+OAP//awD//0gA//8lAP//AADc3AAAubkAAJaWAABzcwAAUFAAAPD/
1ADi/7EA1P+OAMb/awC4/0gAqv8lAKr/AACS3AAAerkAAGKWAABKcwAAMlAAAOP/1ADH/7EAq/+OAI//
awBz/0gAV/8lAFX/AABJ3AAAPbkAADGWAAAlcwAAGVAAANT/1ACx/7EAjv+OAGv/awBI/0gAJf8lAAD/
AAAA3AAAALkAAACWAAAAcwAAAFAAANT/4wCx/8cAjv+rAGv/jwBI/3MAJf9XAAD/VQAA3EkAALk9AACW
MQAAcyUAAFAZANT/8ACx/+IAjv/UAGv/xgBI/7gAJf+qAAD/qgAA3JIAALl6AACWYgAAc0oAAFAyANT/
/wCx//8Ajv//AGv//wBI//8AJf//AAD//wAA3NwAALm5AACWlgAAc3MAAFBQAPLy8gDm5uYA2traAM7O
zgDCwsIAtra2AKqqqgCenp4AkpKSAIaGhgB6enoAbm5uAGJiYgBWVlYASkpKAD4+PgAyMjIAJiYmABoa
GgAODg4AAAAAAA8ADwoADwAAAAAAAAAAAAAKDw8KDwpeXl5eAAAAAAAAAAoPBwoHXl4AAAAAAAAPDw8P
BwoKCl4AXl4AAAAACgoKCg8P7e1eXl5eAAAAAAAACg8HCg8HXl5eAAAAAAAAAA8KDwoPB15eXl5eAAoR
EREAAAoABwdeXl5eXgAKERERAAAAAF5eXl4AXl4AChEREQARAABeXl5eAF4AAAoREREAEQAAXl5eXl5e
AAAKCgoKChEAAAAAAAAAAAAAAAAKERERABEAAAAAAAAAAAAACgoKCgoRAAAAAAAAAAAAAAAAChEREQAA
AAAAAAAAAAAAAAoKCgoKAAAAAAAAAPQB///wAf//+AH//8AB///AAf//8AH//wAA//8EAP//AAD//wAB
//8AAf//AAH//8B////Af///8H////B///8=
</value>
</data>
</root>

View File

@@ -0,0 +1,548 @@
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Public Class frmsbpartnerdetail
Inherits System.Windows.Forms.Form
#Region " Vom Windows Form Designer generierter Code "
Public Sub New()
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents txtnrpar00 As System.Windows.Forms.TextBox
Friend WithEvents txtkurzbezeichnung As System.Windows.Forms.TextBox
Friend WithEvents txtname As System.Windows.Forms.TextBox
Friend WithEvents txtvorname As System.Windows.Forms.TextBox
Friend WithEvents txtstrasse As System.Windows.Forms.TextBox
Friend WithEvents txtplz As System.Windows.Forms.TextBox
Friend WithEvents txtort As System.Windows.Forms.TextBox
Friend WithEvents txtanrede2 As System.Windows.Forms.TextBox
Friend WithEvents txtzustelladresse As System.Windows.Forms.TextBox
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents txtAnrede As System.Windows.Forms.TextBox
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents txtanrede1 As System.Windows.Forms.TextBox
Friend WithEvents WertList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents btnPartnerInfo As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmsbpartnerdetail))
Dim GridLines1 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.txtnrpar00 = New System.Windows.Forms.TextBox()
Me.txtkurzbezeichnung = New System.Windows.Forms.TextBox()
Me.txtname = New System.Windows.Forms.TextBox()
Me.txtvorname = New System.Windows.Forms.TextBox()
Me.txtstrasse = New System.Windows.Forms.TextBox()
Me.txtplz = New System.Windows.Forms.TextBox()
Me.txtort = New System.Windows.Forms.TextBox()
Me.txtanrede1 = New System.Windows.Forms.TextBox()
Me.txtanrede2 = New System.Windows.Forms.TextBox()
Me.txtzustelladresse = New System.Windows.Forms.TextBox()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.WertList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.Label9 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.txtAnrede = New System.Windows.Forms.TextBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.btnPartnerInfo = New System.Windows.Forms.Button()
Me.Panel1.SuspendLayout()
CType(Me.WertList, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(8, 16)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(88, 16)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Partnernr"
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(8, 160)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(96, 16)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Kurzbezeichnung"
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(8, 64)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(88, 16)
Me.Label3.TabIndex = 2
Me.Label3.Text = "Vorname"
'
'Label4
'
Me.Label4.Location = New System.Drawing.Point(8, 112)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(88, 16)
Me.Label4.TabIndex = 3
Me.Label4.Text = "Strasse"
'
'Label5
'
Me.Label5.Location = New System.Drawing.Point(8, 136)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(88, 16)
Me.Label5.TabIndex = 4
Me.Label5.Text = "PLZ/Ort"
'
'Label6
'
Me.Label6.Location = New System.Drawing.Point(8, 232)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(88, 16)
Me.Label6.TabIndex = 5
Me.Label6.Text = "Zustelladresse"
'
'Label7
'
Me.Label7.Location = New System.Drawing.Point(8, 184)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(88, 16)
Me.Label7.TabIndex = 6
Me.Label7.Text = "Briefanrede 1"
'
'Label8
'
Me.Label8.Location = New System.Drawing.Point(8, 208)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(88, 16)
Me.Label8.TabIndex = 7
Me.Label8.Text = "Briefanrede 2"
'
'txtnrpar00
'
Me.txtnrpar00.Location = New System.Drawing.Point(112, 16)
Me.txtnrpar00.Name = "txtnrpar00"
Me.txtnrpar00.Size = New System.Drawing.Size(144, 20)
Me.txtnrpar00.TabIndex = 1
Me.txtnrpar00.Text = ""
'
'txtkurzbezeichnung
'
Me.txtkurzbezeichnung.Location = New System.Drawing.Point(112, 160)
Me.txtkurzbezeichnung.Name = "txtkurzbezeichnung"
Me.txtkurzbezeichnung.Size = New System.Drawing.Size(296, 20)
Me.txtkurzbezeichnung.TabIndex = 8
Me.txtkurzbezeichnung.Text = ""
'
'txtname
'
Me.txtname.Location = New System.Drawing.Point(112, 88)
Me.txtname.Name = "txtname"
Me.txtname.Size = New System.Drawing.Size(296, 20)
Me.txtname.TabIndex = 4
Me.txtname.Text = ""
'
'txtvorname
'
Me.txtvorname.Location = New System.Drawing.Point(112, 64)
Me.txtvorname.Name = "txtvorname"
Me.txtvorname.Size = New System.Drawing.Size(296, 20)
Me.txtvorname.TabIndex = 3
Me.txtvorname.Text = ""
'
'txtstrasse
'
Me.txtstrasse.Location = New System.Drawing.Point(112, 112)
Me.txtstrasse.Name = "txtstrasse"
Me.txtstrasse.Size = New System.Drawing.Size(296, 20)
Me.txtstrasse.TabIndex = 5
Me.txtstrasse.Text = ""
'
'txtplz
'
Me.txtplz.Location = New System.Drawing.Point(112, 136)
Me.txtplz.Name = "txtplz"
Me.txtplz.Size = New System.Drawing.Size(72, 20)
Me.txtplz.TabIndex = 6
Me.txtplz.Text = ""
'
'txtort
'
Me.txtort.Location = New System.Drawing.Point(192, 136)
Me.txtort.Name = "txtort"
Me.txtort.Size = New System.Drawing.Size(216, 20)
Me.txtort.TabIndex = 7
Me.txtort.Text = ""
'
'txtanrede1
'
Me.txtanrede1.Location = New System.Drawing.Point(112, 184)
Me.txtanrede1.Name = "txtanrede1"
Me.txtanrede1.Size = New System.Drawing.Size(296, 20)
Me.txtanrede1.TabIndex = 9
Me.txtanrede1.Text = ""
'
'txtanrede2
'
Me.txtanrede2.Location = New System.Drawing.Point(112, 208)
Me.txtanrede2.Name = "txtanrede2"
Me.txtanrede2.Size = New System.Drawing.Size(296, 20)
Me.txtanrede2.TabIndex = 10
Me.txtanrede2.Text = ""
'
'txtzustelladresse
'
Me.txtzustelladresse.Location = New System.Drawing.Point(112, 232)
Me.txtzustelladresse.Multiline = True
Me.txtzustelladresse.Name = "txtzustelladresse"
Me.txtzustelladresse.Size = New System.Drawing.Size(296, 104)
Me.txtzustelladresse.TabIndex = 11
Me.txtzustelladresse.Text = ""
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.SystemColors.Control
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.Panel1.Controls.AddRange(New System.Windows.Forms.Control() {Me.WertList})
Me.Panel1.Location = New System.Drawing.Point(112, 344)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(296, 128)
Me.Panel1.TabIndex = 49
'
'WertList
'
Me.WertList.AllowFilter = False
Me.WertList.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
Me.WertList.AllowSort = False
Me.WertList.AlternatingRows = True
Me.WertList.CaptionHeight = 17
Me.WertList.CollapseColor = System.Drawing.Color.Black
Me.WertList.Cursor = System.Windows.Forms.Cursors.Default
Me.WertList.DataChanged = False
Me.WertList.DeadAreaBackColor = System.Drawing.Color.Empty
Me.WertList.Dock = System.Windows.Forms.DockStyle.Fill
Me.WertList.ExpandColor = System.Drawing.Color.Black
Me.WertList.FetchRowStyles = True
Me.WertList.FilterBar = True
Me.WertList.GroupByCaption = "Drag a column header here to group by that column"
Me.WertList.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
Me.WertList.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
Me.WertList.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
Me.WertList.Name = "WertList"
Me.WertList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.WertList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.WertList.PreviewInfo.ZoomFactor = 75
Me.WertList.PrintInfo.ShowOptionsDialog = False
Me.WertList.RecordSelectorWidth = 16
GridLines1.Color = System.Drawing.Color.DarkGray
GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
Me.WertList.RowDivider = GridLines1
Me.WertList.RowHeight = 15
Me.WertList.RowSubDividerColor = System.Drawing.Color.DarkGray
Me.WertList.ScrollTips = True
Me.WertList.Size = New System.Drawing.Size(292, 124)
Me.WertList.TabIndex = 28
Me.WertList.Text = "C1TrueDBGrid1"
Me.WertList.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
"r""><Data>Style11{}Style12{}Style13{}Style5{}Style4{}Style7{}Style6{}EvenRow{Back" & _
"Color:White;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Heading{Wrap:" & _
"True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:" & _
"Control;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Filte" & _
"rBar{BackColor:255, 255, 192;}OddRow{BackColor:224, 224, 224;}Footer{}Caption{Al" & _
"ignHorz:Center;}Style27{}Normal{BackColor:Control;}Style26{}HighlightRow{ForeCol" & _
"or:HighlightText;BackColor:Highlight;}Style10{AlignHorz:Near;}Editor{}RecordSele" & _
"ctor{AlignImage:Center;}Style9{}Style8{}Style3{}Style2{}Group{BackColor:ControlD" & _
"ark;Border:None,,0, 0, 0, 0;AlignVert:Center;}Style1{}</Data></Styles><Splits><C" & _
"1.Win.C1TrueDBGrid.MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""1" & _
"7"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FetchRowStyles=""True"" Filter" & _
"Bar=""True"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecSelWid" & _
"th=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 288," & _
" 120</ClientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Heading"" me=""St" & _
"yle10"" /><EditorStyle parent=""Editor"" me=""Style2"" /><EvenRowStyle parent=""EvenRo" & _
"w"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style27"" /><FooterStyle " & _
"parent=""Footer"" me=""Style4"" /><GroupStyle parent=""Group"" me=""Style12"" /><Heading" & _
"Style parent=""Heading"" me=""Style3"" /><HighLightRowStyle parent=""HighlightRow"" me" & _
"=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style6"" /><OddRowStyle parent=""" & _
"OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" " & _
"/><SelectedStyle parent=""Selected"" me=""Style5"" /><Style parent=""Normal"" me=""Styl" & _
"e1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=" & _
"""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Foo" & _
"ter"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inacti" & _
"ve"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" " & _
"/><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow""" & _
" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelect" & _
"or"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group""" & _
" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Mod" & _
"ified</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 288, " & _
"120</ClientArea></Blob>"
'
'Label9
'
Me.Label9.Location = New System.Drawing.Point(8, 344)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(96, 32)
Me.Label9.TabIndex = 50
Me.Label9.Text = "Dokument-spezifische Werte"
'
'Button1
'
Me.Button1.DialogResult = System.Windows.Forms.DialogResult.Abort
Me.Button1.Location = New System.Drawing.Point(8, 480)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(112, 24)
Me.Button1.TabIndex = 12
Me.Button1.Text = "Abbruch"
'
'Button2
'
Me.Button2.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Button2.Location = New System.Drawing.Point(296, 480)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(112, 24)
Me.Button2.TabIndex = 13
Me.Button2.Text = "Speichern"
'
'txtAnrede
'
Me.txtAnrede.Location = New System.Drawing.Point(112, 40)
Me.txtAnrede.Name = "txtAnrede"
Me.txtAnrede.Size = New System.Drawing.Size(144, 20)
Me.txtAnrede.TabIndex = 2
Me.txtAnrede.Text = ""
'
'Label10
'
Me.Label10.Location = New System.Drawing.Point(8, 40)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(88, 16)
Me.Label10.TabIndex = 53
Me.Label10.Text = "Anrede"
'
'Label11
'
Me.Label11.Location = New System.Drawing.Point(8, 88)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(88, 16)
Me.Label11.TabIndex = 55
Me.Label11.Text = "Name/Firma"
'
'btnPartnerInfo
'
Me.btnPartnerInfo.Image = CType(resources.GetObject("btnPartnerInfo.Image"), System.Drawing.Bitmap)
Me.btnPartnerInfo.Location = New System.Drawing.Point(256, 16)
Me.btnPartnerInfo.Name = "btnPartnerInfo"
Me.btnPartnerInfo.Size = New System.Drawing.Size(24, 24)
Me.btnPartnerInfo.TabIndex = 56
'
'frmsbpartnerdetail
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(416, 509)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnPartnerInfo, Me.Label11, Me.txtAnrede, Me.Label10, Me.Button2, Me.Button1, Me.Label9, Me.Panel1, Me.txtzustelladresse, Me.txtanrede2, Me.txtanrede1, Me.txtort, Me.txtplz, Me.txtstrasse, Me.txtvorname, Me.txtname, Me.txtkurzbezeichnung, Me.txtnrpar00, Me.Label8, Me.Label7, Me.Label6, Me.Label5, Me.Label4, Me.Label3, Me.Label2, Me.Label1})
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmsbpartnerdetail"
Me.ShowInTaskbar = False
Me.Text = "Empfänger-Details"
Me.Panel1.ResumeLayout(False)
CType(Me.WertList, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
#Region "Deklarationen"
Dim dr As DataRow()
Dim dt As New DataTable()
Dim AddNew As Boolean = False
Dim nrpar00 As Integer = 0
Dim adressarray(6) As String
#End Region
#Region "Datenbankzugriffe"
Private Function Generic_Select(ByVal typ As Integer) As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Select Case typ
Case 1
scmCmdToExecute.CommandText = "dbo.SP_get_ort"
Case 2
scmCmdToExecute.CommandText = "dbo.SP_check_partner"
Case Else
End Select
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.Connection = conn.scoDBConnection
Try
Select Case typ
Case 1
scmCmdToExecute.Parameters.Add(New SqlParameter("@plz", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtplz.Text))
Case Else
End Select
If typ = 1 Then
End If
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
#End Region
Public Sub New(ByVal add As Boolean, ByVal dt As DataTable, ByVal nrpar00 As String)
MyBase.New()
InitializeComponent()
Try
Me.nrpar00 = nrpar00
Catch
Me.nrpar00 = -1
End Try
Me.AddNew = add
Me.dt = dt
End Sub
Private Sub frmsbpartnerdetail_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.btnPartnerInfo.Visible = False
If Me.AddNew Then
Me.txtnrpar00.Text = ""
Me.txtnrpar00.Enabled = False
Else
If Me.nrpar00 = -1 Then
Me.txtnrpar00.Text = ""
Else
Me.txtnrpar00.Text = Me.nrpar00.ToString
End If
If Me.txtnrpar00.Text <> "" Then
Me.txtnrpar00.Enabled = False
' Me.txtAnrede.Enabled = False
' Me.txtname.Enabled = False
' Me.txtvorname.Enabled = False
' Me.txtstrasse.Enabled = False
' Me.txtplz.Enabled = False
' Me.txtort.Enabled = False
' Me.txtkurzbezeichnung.Enabled = False
End If
Me.txtanrede1.Focus()
End If
If Me.txtnrpar00.Text <> "" Then Me.btnPartnerInfo.Visible = True
End Sub
Private Sub txtplz_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtplz.Leave
Dim plz As DataTable
plz = Generic_Select(1)
If plz.Rows.Count > 0 And Me.txtort.Text = "" Then
Me.txtort.Text = plz.Rows(0).Item(2)
End If
plz.Dispose()
End Sub
Private Sub txtname_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtname.Leave, txtort.Leave, txtAnrede.Leave, txtvorname.Leave, txtstrasse.Leave, txtplz.Leave, txtAnrede.Enter
If Me.txtnrpar00.Text <> "" Then Exit Sub
If Me.txtvorname.Text = "" Then
Me.txtkurzbezeichnung.Text = Me.txtname.Text
Me.txtanrede1.Text = "Damen und Herren"
Else
Me.txtkurzbezeichnung.Text = Me.txtvorname.Text + " " + Me.txtname.Text
Me.txtanrede1.Text = Me.txtAnrede.Text + " " + Me.txtname.Text
End If
If Me.txtort.Text <> "" Then
Me.txtkurzbezeichnung.Text = Me.txtkurzbezeichnung.Text + ", " + Me.txtort.Text
End If
'Adresse
Dim i As Integer
For i = 0 To 6
Me.adressarray(i) = ""
Next
i = 0
If Me.txtAnrede.Text <> "" Then
Me.adressarray(i) = Me.txtAnrede.Text
i = i + 1
End If
If Me.txtvorname.Text <> "" Then
Me.adressarray(i) = Me.txtvorname.Text + " " + Me.txtname.Text
i = i + 1
Else
Me.adressarray(i) = Me.txtname.Text
i = i + 1
End If
If Me.txtstrasse.Text <> "" Then
Me.adressarray(i) = Me.txtstrasse.Text
i = i + 1
End If
Me.adressarray(i) = Me.txtplz.Text + " " + Me.txtort.Text
Me.txtzustelladresse.Text = ""
Me.txtzustelladresse.Text = Me.adressarray(0) + vbCrLf + Me.adressarray(1) + vbCrLf + Me.adressarray(2) + vbCrLf + Me.adressarray(3) + vbCrLf + Me.adressarray(4) + vbCrLf + Me.adressarray(5) + vbCrLf + Me.adressarray(6)
End Sub
Private Sub btnPartnerInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPartnerInfo.Click
Try
If Me.txtnrpar00.Text > 91000000 Then
Dim f As New frmInteressent()
f.Partnernr = Me.txtnrpar00.Text
f.Display = True
f.ShowDialog()
f.Dispose()
Else
Dim f As New frmPartnerDetails()
f.Partnernr = Me.txtnrpar00.Text
f.ShowDialog()
f.Dispose()
End If
Catch
Finally
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.DialogResult = DialogResult.OK
Me.Close()
End Sub
End Class

View File

@@ -0,0 +1,187 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
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">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</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.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:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<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" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</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>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="ToolBar1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBarButton2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBarButton1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</data>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuMzMw
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
AACmCAAAAk1TRnQBSQFMAgEBAgEAAQUBAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
AAEoAwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ASwAB
AwH/DwAB7CwAAewBAwHsAf8PAAHsKgABAwHsAQMB7AEDAf8OAALsKQABAwHsAQMB7AEDAewB/wEAAewM
AALsKQAB7AEDAewBAwHsAQMB/wEAAewLAAPsKQABAwHsAQMCAAHsAf8BAAHsCwAD7CkAAewBAwHsAgcB
AwH/AQAB7AEAAQYIAATsKQABAwHsAQMB7AEDAewB/wIAAQYF/gQABOwpAAHsAQMB7AEDAewBAwH/AQAB
bQb+AwAF7CkAAQMB7AEDAewBAwHsAf8BAAHsAW0B/gRtAwAF7CkAAewBAwHsAQMB7AEDAf8BAAHsAQAC
bQUABuwpAAEDAewBAwHsAQcB/wHsAQAB7AIAAW0FAAbsKQAB7AEDAQcB/wHsAQAD7AcABuwCBygAAQcB
/wHsAQAF7AcAA+wIBzQAAewOByEAAUIBTQE+BwABPgMAASgDAAFAAwABIAMAAQEBAAEBBgABARYAA/+B
AAH8AX8B/wF/BAAB8AF/Af4BfwQAAcABfwH+AT8FAAEfAfwBPwUAAR8B/AEfBQABFwH4AR8FAAEHAfgB
DwYAAfABDwYAAfABBwYAAeABBwYAAeABAwUAAQcBwAEDBQABFwHAAQEFAAEfAYABAQUAAR8BgAYAAR8c
AAs=
</value>
</data>
<data name="Panel1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="$this.Name">
<value>frmtextmarken</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAIAICAQAAAAAADoAgAAJgAAABAQEAAAAAAAKAEAAA4DAAAoAAAAIAAAAEAAAAABAAQAAAAAAIAC
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAD/
AAAA//8A/wAAAP8A/wD//wAA////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAbGwAAAAAAAAAAAAAAAAABsbEAAAAAAAAAAAAAAAAAGxsQAAAAAAAAAAAAAAAAAbGxAQAA
AAAAAAAAAAAAABsbEBsAAAAAAAAAAAAAAAGxsQGxAAAAAAAAAAAAAAAbGxAbEAAAAAAAAAAAAAABsbEB
sQAAAAAAAAAAAAAAAAAQGxAAAAAAAAAAAAAAAPj4AbEAAAAAAAAAAAAAAACPgBsQAAAAAAAAAAAAAAAI
+PCxAAAAAAAAAAAAAAAAj4+PAAAAAAAAAAAAAAAAAAD4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////////
///////g////wP///4D///8A///+AP///AD///gA///wAf//4AP//+AH///AD///wB///4A///+A////
Af///wf///4f///+f///4f///w///wZ////4/////H////2////9n////d////zv///+D///////////
//8oAAAAEAAAACAAAAABAAQAAAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAA
AACAAIAAgIAAAICAgADAwMAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////AAAAAAAAAAAAAAAAAAAA
ABsAAAAAAAABsQAAAAAAABsbAAAAAAABsbAAAAAAAIAbAAAAAAAAiLAAAAAAAAiIAAAAAAAACAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA//8AAP/4
AAD/8AAA/+AAAP/AAAD/gQAA/4MAAP8HAAD/DwAA/j8AAPn/AAAH/wAA5/8AANv/AADb/wAA5/8AAA==
</value>
</data>
</root>

View File

@@ -0,0 +1,872 @@
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports System.IO
Imports System.Data.OleDb
Imports UtilityLibrary.Win32
Public Class frmtextmarken
Inherits System.Windows.Forms.Form
#Region " Vom Windows Form Designer generierter Code "
Public Sub New()
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents ToolBarButton2 As System.Windows.Forms.ToolBarButton
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmtextmarken))
Me.ToolBar1 = New System.Windows.Forms.ToolBar()
Me.ToolBarButton2 = New System.Windows.Forms.ToolBarButton()
Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.Panel1 = New System.Windows.Forms.Panel()
Me.SuspendLayout()
'
'ToolBar1
'
Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton2, Me.ToolBarButton1})
Me.ToolBar1.DropDownArrows = True
Me.ToolBar1.ImageList = Me.ImageList1
Me.ToolBar1.Name = "ToolBar1"
Me.ToolBar1.ShowToolTips = True
Me.ToolBar1.Size = New System.Drawing.Size(344, 25)
Me.ToolBar1.TabIndex = 0
'
'ToolBarButton2
'
Me.ToolBarButton2.ImageIndex = 0
'
'ToolBarButton1
'
Me.ToolBarButton1.ImageIndex = 1
Me.ToolBarButton1.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
'
'ImageList1
'
Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
'
'Panel1
'
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 25)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(344, 476)
Me.Panel1.TabIndex = 1
'
'frmtextmarken
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(344, 501)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Panel1, Me.ToolBar1})
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmtextmarken"
Me.Text = "Dokumentbefüllung bearbeiten"
Me.ResumeLayout(False)
End Sub
#End Region
#Region "Deklarationen"
Dim serienbriefnr As Integer
Dim DokumentBearbeitungDurchUser As Boolean
Dim WithEvents objword As Word.Application
Dim WithEvents objdoc As Word.Document
Dim stdvorlagenfelder As New DataTable()
Dim dsempfaenger As New DataSet()
Dim WithEvents ucedit As New ucedit()
Dim WithEvents ucnoedit As New ucnoedit()
Dim m_dokumenttypnr As Integer
Property Dokumenttypnr() As Integer
Get
Return m_dokumenttypnr
End Get
Set(ByVal Value As Integer)
m_dokumenttypnr = Value
End Set
End Property
#End Region
#Region "Ereignisse"
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
Select Case ToolBar1.Buttons.IndexOf(e.Button)
Case 0 'Exit
Me.Close()
Case 1
If Me.ToolBarButton1.Pushed Then
Me.Height = 50
Else
Me.Height = 450 + Me.ToolBar1.Height + 10
End If
Case Else
End Select
End Sub
Dim Schliessen_OK As Boolean = False
Private Sub frmtextmarken_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
Schliessen_OK = True
Me.Save_Office()
End Sub
#End Region
#Region "Load"
Public Sub New(ByVal serienbriefnr As Integer, ByVal DokumentBearbeitungDurchUser As Boolean, ByVal dsempfaenger As DataSet, ByVal dokumenttypnr As Integer, Optional ByVal Vorlagendaten As DataTable = Nothing, Optional ByVal tmpempfaenger As DataSet = Nothing)
MyBase.New()
InitializeComponent()
Me.serienbriefnr = serienbriefnr
Me.DokumentBearbeitungDurchUser = DokumentBearbeitungDurchUser
Me.dsempfaenger = dsempfaenger
Me.Dokumenttypnr = dokumenttypnr
'Rel. 4.1
If Not Vorlagendaten Is Nothing Then
Me.Filldoc = True
Me.vorlagendaten = Vorlagendaten
Me.tmpempfaenger = tmpempfaenger
Else
Filldoc = False
End If
End Sub
Private Sub frmtextmarken_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Application.DoEvents()
Me.Cursor = Cursors.WaitCursor
Me.TopMost = True
Me.Load_Document()
If Me.DokumentBearbeitungDurchUser = True Then
Me.Panel1.Controls.Add(ucedit)
Me.ucedit.Dock = DockStyle.Fill
Me.Height = 450 + Me.ToolBar1.Height + 10
Else
Me.Panel1.Controls.Add(ucnoedit)
Me.Height = 450 + Me.ToolBar1.Height + 10
End If
Me.Cursor = Cursors.Default
Application.DoEvents()
'Rel. 4.1
If Me.Filldoc = True Then
Me.Dokumente_Generieren()
End If
End Sub
#End Region
#Region "Office"
Public Sub Load_Document(Optional ByVal visible As Boolean = True)
Dim dokumentname As String = Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + Me.serienbriefnr.ToString + "_vorlage.doc"
Vorlage_Auslesen()
StartWord(True)
objword.Documents.Open(dokumentname)
objdoc = objword.ActiveDocument
objword.Visible = visible
objword.WindowState = Word.WdWindowState.wdWindowStateMaximize
End Sub
Private Function StartWord(Optional ByVal newinstance As Boolean = False)
Try
If newinstance = False Then
objword = GetObject(, "Word.application")
Else
objword = CreateObject("Word.application")
End If
Catch
Try
objword = CreateObject("Word.application")
Catch ex As Exception
End Try
Finally
objword.Visible = False
End Try
Try
objword.Run("Autoexec")
Catch
End Try
End Function
Private Function Save_Office(Optional ByVal savetodb As Boolean = True)
Try
If Not savetodb Then
Me.objdoc = Me.objword.ActiveDocument
Application.DoEvents()
Me.objdoc.Close(Savechanges:=False)
Application.DoEvents()
Threading.Thread.CurrentThread.Sleep(400)
If Me.objword.Documents.Count = 0 Then
Me.objword.Quit(savechanges:=False)
End If
Me.objdoc = Nothing
Me.objword = Nothing
Exit Function
End If
If Me.DokumentBearbeitungDurchUser = True Then
Me.objword.ActiveDocument.Save()
Me.objdoc = Me.objword.ActiveDocument
Application.DoEvents()
Delete_Generierte_Bookmarks()
Me.objdoc.Close(savechanges:=True)
Application.DoEvents()
Threading.Thread.CurrentThread.Sleep(400)
If Me.objword.Documents.Count = 0 Then
Me.objword.Quit(SaveChanges:=False)
End If
Me.objdoc = Nothing
Me.objword = Nothing
Me.Vorlage_Speichern()
Exit Function
End If
Application.DoEvents()
If Me.objword.Documents.Count = 1 Then
Me.objword.Quit(savechanges:=False)
End If
Me.objdoc = Nothing
Me.objword = Nothing
Application.DoEvents()
'Me.Vorlage_Speichern()
Catch
'MyMsg.show_standardmessage(728, MsgBoxStyle.Critical)
End Try
End Function
#End Region
#Region "Datenzugriffe"
Private Function Vorlage_Auslesen() As Boolean
Try
Dim dokumentname = Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + Me.serienbriefnr.ToString + "_vorlage.doc"
Dim Connection As New SqlConnection()
Dim DA As New SqlDataAdapter("select * from edex_sb_vorlage where serienbriefnr=" + Str(Me.serienbriefnr), Connection)
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
Dim ds As New DataSet()
Try
Connection.ConnectionString = Globals.sConnectionString
Connection.Open()
DA.Fill(ds, "empf")
Dim myRow As DataRow
If ds.Tables(0).Rows.Count = 0 Then
MyMsg.show_standardmessage(715, MsgBoxStyle.Critical)
Else
myRow = ds.Tables(0).Rows(0)
Dim MyData() As Byte
MyData = myRow.Item(1)
Dim K As Long
K = UBound(MyData)
Dim fs As New FileStream(dokumentname, FileMode.OpenOrCreate, FileAccess.Write)
fs.Write(MyData, 0, K)
fs.Close()
fs = Nothing
End If
Catch ex As Exception
MyMsg.show_standardmessage(717, MsgBoxStyle.Critical)
' MsgBox(ex.Message)
Return False
End Try
cb = Nothing
ds = Nothing
DA = Nothing
Connection.Close()
Connection = Nothing
Return True
Catch EX As Exception
MyMsg.show_standardmessage(717, MsgBoxStyle.Critical)
Return False
End Try
End Function
Private Sub Vorlage_Speichern()
'Dokumentvorlage aus Office-Vorlage-Datei auslesen, sofern Filename = ""
Dim dokumentname = Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + Me.serienbriefnr.ToString + "_vorlage.doc"
Try
Dim Connection As New SqlConnection()
Dim DA As New SqlDataAdapter("select * from edex_sb_vorlage where serienbriefnr=" + Str(Me.serienbriefnr), Connection)
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
Dim ds As New DataSet()
Dim fs As New FileStream(dokumentname, FileMode.Open, FileAccess.Read)
Dim mydata(fs.Length) As Byte
Try
fs.Read(mydata, 0, fs.Length)
fs.Close()
Connection.ConnectionString = Globals.sConnectionString
Connection.Open()
DA.Fill(ds, "vorlage")
Dim myRow As DataRow
If ds.Tables(0).Rows.Count = 0 Then
'Neue Serienbrief_Empfaenger speichern
myRow = ds.Tables(0).NewRow
myRow.Item(0) = Me.serienbriefnr
myRow.Item(1) = mydata
ds.Tables(0).Rows.Add(myRow)
DA.Update(ds, "vorlage")
Else
' Bestehende Empfängerliste überschreiben
myRow = ds.Tables(0).Rows(0)
myRow.Item(1) = mydata
DA.Update(ds, "vorlage")
End If
Catch ex As Exception
MyMsg.show_standardmessage(718, MsgBoxStyle.Critical)
' MsgBox(ex.Message)
End Try
fs = Nothing
cb = Nothing
ds = Nothing
DA = Nothing
Connection.Close()
Connection = Nothing
Catch ex As Exception
Finally
Try
Application.DoEvents()
File.Delete(dokumentname)
Catch
End Try
End Try
End Sub
Private Function Get_Vorlagenfelder(ByVal type As Integer) As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim i As Integer
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.CommandText = "dbo.sp_edex_sb_get_standardvorlagenfelder"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn.scoDBConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumenttypnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@type", SqlDbType.Int, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, type))
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
Throw New Exception("sp_check_dokumentreaktivierung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
#End Region
#Region "UC-Ereignisse"
Private Function Activate_Word()
Dim hnd As Long
hnd = Win32API.FindWindow("Opusapp", vbNullString)
Win32API.SetForegroundWindow(hnd)
End Function
Private Sub ucedit_insert_tm(ByVal TMName As String, ByVal isfield As Boolean) Handles ucedit.OnInsert_TM
Try
If isfield = False Then
objword.Selection.Bookmarks.Add(TMName)
Else
objword.Selection.FormFields.Add(Range:=objword.Selection.Range, Type:=Word.WdFieldType.wdFieldFormTextInput)
objword.Selection.PreviousField.Select()
objword.Selection.FormFields.Item(1).Name = TMName
End If
Activate_Word()
Catch
End Try
End Sub
Private Sub ucedit_goto_tm(ByVal TMName As String, ByVal isfield As Boolean) Handles ucedit.OnGoto_TM, ucnoedit.OnGoto_TM
If Not isfield Then
Try
objword.Selection.GoTo(what:=Word.WdGoToItem.wdGoToBookmark, Name:=TMName)
Activate_Word()
Catch ex As Exception
End Try
Else
Try
objword.Selection.GoTo(what:=Word.WdGoToItem.wdGoToField, Name:=TMName)
Activate_Word()
Catch
End Try
End If
End Sub
Private Sub ucedit_OnGetStandardvorlagenfelder(ByRef list As System.Data.DataTable) Handles ucedit.OnGetStandardvorlagenfelder
list = Me.Get_Vorlagenfelder(0)
End Sub
Private Sub ucedit_OnGetUsedFelder(ByRef list As System.Data.DataTable) Handles ucedit.OnGetUsedFelder, ucnoedit.OnGetUsedFelder
list = Me.dsempfaenger.Tables("UsedFelder")
End Sub
Private Sub get_usedfelder(ByRef list As System.Data.DataTable)
list = Me.Get_Vorlagenfelder(1)
Dim i As Integer
Dim s As String
Dim row As DataRow
Dim dodelete As Boolean = False
For Each row In list.Rows
dodelete = False
If row.Item("Feldname") <> "" Then
Try
s = objword.ActiveDocument.FormFields.Item(row.Item("feldname")).Name()
Catch
dodelete = True
End Try
End If
If row.Item("Beginntextmarke") <> "" Then
Try
s = objword.ActiveDocument.Bookmarks.Item(row.Item("beginntextmarke")).Name
Catch
dodelete = True
End Try
End If
If row.Item("endetextmarke") <> "" Then
Try
s = objword.ActiveDocument.Bookmarks.Item(row.Item("endetextmarke")).Name
Catch
dodelete = True
End Try
End If
If dodelete Then row.Delete()
Next
End Sub
Private Sub ucedit_OnGetIDVFelder(ByRef list As System.Data.DataTable) Handles ucedit.OnGetIDVFelder, ucnoedit.OnGetIDVFelder
list = Me.get_idvwerte
End Sub
Private Sub ucnoedit_OnGetVerknuepfteFelder(ByRef list As System.Data.DataTable) Handles ucnoedit.OnGetVerknuepfteFelder
Try
list = Me.dsempfaenger.Tables("Verkfelder")
Catch
End Try
If list Is Nothing Then
Me.dsempfaenger.Tables.Add("VerkFelder")
Dim d1 As New DataColumn()
Dim d2 As New DataColumn()
Dim d3 As New DataColumn()
d1.Caption = "IDVWert"
d1.ColumnName = "IDVWert"
d1.DefaultValue = ""
d2.Caption = "Standardwert"
d2.ColumnName = "Standardwert"
d2.DefaultValue = ""
d3.Caption = "Vorlagenfeldnr"
d3.ColumnName = "Vorlagenfeldnr"
d3.DefaultValue = ""
With Me.dsempfaenger.Tables("Verkfelder").Columns
.Add(d1)
.Add(d2)
.Add(d3)
End With
list = Me.dsempfaenger.Tables("Verkfelder")
End If
End Sub
Private Function get_idvwerte() As DataTable
Dim i As Integer
Dim dt As New DataTable()
dt.Columns.Add("Feldname")
dt.Columns.Add("Wert")
For i = 0 To Me.dsempfaenger.Tables(0).Columns.Count - 1
Select Case UCase(Me.dsempfaenger.Tables(0).Columns(i).Caption)
Case "PARTNERNR", "KURZBEZEICHNUNG", "ANREDE", "NAME", "VORNAME", "STRASSE", "PLZ", "ORT", "ZUSTELLADRESSE", "BRIEFANREDE1", "BRIEFANREDE2", "STATUS", "FEHLERCD", "BLKUNDE", "DOKUMENT_GEDRUCKT", "AKTIV", "DOKUMENTID", "DOKUMENTIDBDR", "ERSTELLER", "FEHLERCODE", "DRUCKJOBID"
Case Else
Dim myRow As DataRow
myRow = dt.NewRow
myRow.Item(0) = Me.dsempfaenger.Tables(0).Columns(i).Caption
myRow.Item(1) = ""
dt.Rows.Add(myRow)
End Select
Next
Return dt
End Function
Private Sub ucedit_OnDelete_TM(ByVal TMName As String, ByVal isfield As Boolean) Handles ucedit.OnDelete_TM
Try
If isfield = False Then
objword.ActiveDocument.Bookmarks.Item(TMName).Delete()
Activate_Word()
Else
objword.ActiveDocument.FormFields.Item(TMName).Delete()
Activate_Word()
End If
Catch
End Try
End Sub
#End Region
#Region "öffentliche Methoden"
Public Function init_used_felder() As DataTable
Dim dt As New DataTable()
Me.Load_Document(False)
Me.get_usedfelder(dt)
Me.Save_Office(False)
Return dt
End Function
#End Region
'Rel. 4.1
#Region "Befüllen"
Dim doktyp As New edokadb.clsDokumenttyp()
Dim serienbrief As New edokadb.clsEdex_sb_serienbrief()
Dim vorlagendaten As New DataTable
Dim tmpempfaenger As New DataSet
Dim officevorlage As New edokadb.clsOffice_vorlage()
Dim beginntextmarke As String
Dim endetextmarke As String
Dim feldname As String
Dim dokid As String
Dim blkunde As String = ""
Dim GenerierteDokumente As New Collection()
Dim Filldoc As Boolean = False
Private Function Dokumente_Generieren()
Dim Kopfzeile As Boolean
serienbrief.cpMainConnectionProvider = Globals.conn
serienbrief.iSerienbriefnr = New SqlInt32(CType(Me.Serienbriefnr, Int32))
serienbrief.SelectOne()
doktyp.cpMainConnectionProvider = Globals.conn
doktyp.iDokumenttypnr = serienbrief.iDokumenttypnr
doktyp.SelectOne()
officevorlage.cpMainConnectionProvider = Globals.conn
officevorlage.iOffice_vorlagenr = doktyp.iOffice_vorlagenr
officevorlage.SelectOne()
If officevorlage.bKopfzeile_generieren.Value = True Then
Kopfzeile = True
Else
Kopfzeile = False
End If
serienbrief.Dispose()
doktyp.Dispose()
officevorlage.Dispose()
'objword = New Word.Application()
'objword.WindowState = Word.WdWindowState.wdWindowStateMinimize
'objword.Visible = False
Dim i As Integer
Dim i1 As Integer
Dim pstep As Double
Dim pval As Double
Dim feldnr As String
Try
pstep = 70 / vorlagendaten.Rows.Count
Catch
pval = 30
End Try
For i = 0 To vorlagendaten.Rows.Count - 1
Try
pval = pval + pstep
Dim dokumentname = Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + serienbriefnr.ToString + "_vorlage.doc"
'objword.Documents.Open(dokumentname)
'objword.Visible = False
'objword.WindowState = Word.WdWindowState.wdWindowStateMinimize
If Kopfzeile Then
Insert_Kopfzeile()
End If
Dim sp1 As String
Dim sp2() As String
For i1 = 0 To vorlagendaten.Columns.Count - 1
'If vorlagendaten.Columns(i1).ColumnName = "_Alter" Or vorlagendaten.Columns(i1).ColumnName = "Alter" Or vorlagendaten.Columns(i1).ColumnName = "Alter_" Then
' MsgBox("Gaga")
'End If
Try
sp1 = vorlagendaten.Columns(i1).ColumnName
sp2 = sp1.Split("_09_")
sp1 = sp2(0) + "_09_" + sp2(2)
feldnr = sp2(1).ToString
sp1 = sp1
Catch
sp1 = vorlagendaten.Columns(i1).ColumnName
feldnr = sp1
End Try
Select Case sp1
'Mapping Zustelladresse
Case "F_09_1", "F_09_10"
If vorlagendaten.Rows(i).Item("Zustelladresse") <> "" Then
vorlagendaten.Rows(i).Item(i1) = vorlagendaten.Rows(i).Item("Zustelladresse")
End If
Case "F_09_89"
If vorlagendaten.Rows(i).Item("Name") <> "" Then
vorlagendaten.Rows(i).Item(i1) = vorlagendaten.Rows(i).Item("Name")
End If
Case "F_09_111"
If vorlagendaten.Rows(i).Item("Vorname") <> "" Then
vorlagendaten.Rows(i).Item(i1) = vorlagendaten.Rows(i).Item("Vorname")
End If
Case "F_09_122", "F_09_123", "F_09_20"
Dim s As String = ""
Dim s1
If vorlagendaten.Rows(i).Item("Briefanrede1") <> "" Then
s = vorlagendaten.Rows(i).Item("Briefanrede1")
If Microsoft.VisualBasic.Left(s, 4) = "Herr" Then
s = "r " + s
Else
s = " " + s
End If
End If
If vorlagendaten.Rows(i).Item("Briefanrede2") <> "" Then
If s <> "" Then s = s + vbCrLf
s1 = vorlagendaten.Rows(i).Item("Briefanrede2")
If Microsoft.VisualBasic.Left(s1, 4) = "Herr" Then
s = s + "Sehr geehrter " + s1
Else
s = s + "Sehr geehrte " + s1
End If
End If
If s <> "" Then
vorlagendaten.Rows(i).Item(i1) = s
End If
Case "F_09_98"
If vorlagendaten.Rows(i).Item("Strasse") <> "" Then
vorlagendaten.Rows(i).Item(i1) = vorlagendaten.Rows(i).Item("Strasse")
End If
Case "F_09_93"
If vorlagendaten.Rows(i).Item("Ort") <> "" Then
vorlagendaten.Rows(i).Item(i1) = vorlagendaten.Rows(i).Item("Ort")
End If
Case "F_09_93"
If vorlagendaten.Rows(i).Item("Ort") <> "" Then
vorlagendaten.Rows(i).Item(i1) = vorlagendaten.Rows(i).Item("Ort")
End If
Case "F_09_96"
If vorlagendaten.Rows(i).Item("PLZ") <> "" Then
vorlagendaten.Rows(i).Item(i1) = vorlagendaten.Rows(i).Item("PLZ")
End If
Case "F_09_132"
If vorlagendaten.Rows(i).Item("PLZ") <> "" Or vorlagendaten.Rows(i).Item("Ort") <> 0 Then
vorlagendaten.Rows(i).Item(i1) = vorlagendaten.Rows(i).Item("PLZ") + " " + vorlagendaten.Rows(i).Item("Ort")
End If
Case Else
End Select
'Verknüpfte Felder
Try
Dim i2 As Integer
For i2 = 0 To Me.dsempfaenger.Tables("VerkFelder").Rows.Count - 1
If feldnr = Me.dsempfaenger.Tables("verkfelder").Rows(i2).Item("Vorlagenfeldnr").ToString Then
vorlagendaten.Rows(i).Item(i1) = vorlagendaten.Rows(i).Item(Me.dsempfaenger.Tables("verkfelder").Rows(i2).Item("IDVWert"))
End If
Next
Catch
End Try
If vorlagendaten.Rows(i).Item(i1) Is System.DBNull.Value Then
vorlagendaten.Rows(i).Item(i1) = ""
End If
If Microsoft.VisualBasic.Left(vorlagendaten.Columns(i1).ColumnName, 5) = "F_09_" Then
Insert_Value(vorlagendaten.Rows(i).Item(i1), vorlagendaten.Columns(i1).ColumnName)
End If
If Microsoft.VisualBasic.Left(vorlagendaten.Columns(i1).ColumnName, 5) = "I_09_" Then
Dim intfeldname As String
Dim Intbookmark As String
Dim IntWert As String
intfeldname = vorlagendaten.Columns(i1).ColumnName
Intbookmark = Microsoft.VisualBasic.Right(vorlagendaten.Columns(i1).ColumnName, Len(vorlagendaten.Columns(i1).ColumnName) - 5)
IntWert = Microsoft.VisualBasic.Right(vorlagendaten.Columns(i1).ColumnName, Len(vorlagendaten.Columns(i1).ColumnName) - 14)
Dim SplitArray() As String
Dim ind As Integer
ind = IntWert.IndexOf("_09_")
IntWert = Microsoft.VisualBasic.Left(IntWert, ind)
'SplitArray = IntWert.Split("_09_")
'IntWert = SplitArray(0)
'IntWert = RenCol(IntWert)
Insert_Value(vorlagendaten.Rows(i).Item(IntWert), Intbookmark)
End If
Next
If doktyp.bZu_retournieren.Value = True Or vorlagendaten.Rows(i).Item("blkunde") = 1 Or vorlagendaten.Rows(i).Item("Dokumentidbdr") <> "" Then
blkunde = vorlagendaten.Rows(i).Item("blkunde")
If vorlagendaten.Rows(i).Item("Dokumentidbdr") <> "" Then
dokid = vorlagendaten.Rows(i).Item("Dokumentidbdr")
Else
dokid = vorlagendaten.Rows(i).Item("Dokumentid")
End If
' Generate_Barcodes()
blkunde = ""
End If
Dim dm As String
' dm = Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + Serienbriefnr.ToString + "_vorlage_" + i.ToString + ".doc"
' objword.ActiveDocument.SaveAs(dm)
' Me.GenerierteDokumente.Add(dm)
' objword.Documents.Close(SAVECHANGES:=False)
Catch ex As Exception
MsgBox(ex.Message)
vorlagendaten.Rows(i).Item("Status") = -1
End Try
Next
End Function
Private Sub Delete_Generierte_Bookmarks()
Dim i As Integer
Dim pos1 As Integer
Dim pos2 As Integer
Dim hastextmarken As Boolean = True
Dim s As String
Dim e As String
Try
While hastextmarken = True
hastextmarken = False
For i = 1 To objword.ActiveDocument.Bookmarks.Count
s = objword.ActiveDocument.Bookmarks.Item(i).Name
If Microsoft.VisualBasic.Left(s, 2) = "TS" Then
hastextmarken = True
delete_it(s)
Exit For
End If
Next
End While
Catch ex As Exception
MsgBox(ex.Message + " :" + s)
End Try
End Sub
Private Sub delete_it(ByVal s As String)
Dim pos1 As Integer
Dim pos2 As Integer
Dim hastextmarken As Boolean = True
Dim e As String
pos1 = objword.ActiveDocument.Bookmarks.Item(s).Start
e = "TE" + Microsoft.VisualBasic.Right(s, Len(s) - 2)
pos2 = objword.ActiveDocument.Bookmarks.Item(e).Start
objword.Selection.SetRange(Start:=pos1, End:=pos2)
objword.Selection.Delete()
Try
objword.ActiveDocument.Bookmarks.Item(s).Delete()
objword.ActiveDocument.Bookmarks.Item(e).Delete()
Application.DoEvents()
Catch
End Try
End Sub
Private Sub Insert_Value(ByVal feldwert As String, ByVal feldname As String)
Dim i As Integer
Dim dc As DataRow
Dim pos1 As Integer
Dim pos2 As Integer
If Microsoft.VisualBasic.Left(feldname, 5) = "TMISB" Then
beginntextmarke = feldname
endetextmarke = ""
feldname = ""
Else
For Each dc In Me.tmpempfaenger.Tables("UsedFelder").Rows
If dc.Item("TempFeldName") = feldname Then
beginntextmarke = dc.Item("Beginntextmarke")
endetextmarke = dc.Item("Endetextmarke")
feldname = dc.Item("Feldname")
Exit For
End If
Next
End If
If beginntextmarke <> "" And endetextmarke = "" Then
Try
objword.ActiveDocument.Bookmarks.Item(beginntextmarke).Select()
objword.ActiveDocument.Bookmarks.Add("TS" & beginntextmarke)
objword.ActiveDocument.Bookmarks.Item("TS" & beginntextmarke).Select()
objword.Selection.MoveRight(Unit:=Word.WdUnits.wdCharacter, Count:=1)
objword.ActiveDocument.Bookmarks.Add("TE" & beginntextmarke)
objword.ActiveDocument.Bookmarks.Item("TS" & beginntextmarke).Select()
objword.Selection.TypeText(Text:=feldwert)
Catch ex As Exception
End Try
End If
If beginntextmarke <> "" And endetextmarke <> "" Then
Try
objword.ActiveDocument.Bookmarks.Item(beginntextmarke).Select()
objword.ActiveDocument.Bookmarks.Add("TS" & beginntextmarke)
objword.ActiveDocument.Bookmarks.Item(endetextmarke).Select()
objword.ActiveDocument.Bookmarks.Add("TE" & beginntextmarke)
pos1 = objword.ActiveDocument.Bookmarks.Item("TS" & beginntextmarke).Start
pos2 = objword.ActiveDocument.Bookmarks.Item("TE" & endetextmarke).Start
objword.Selection.SetRange(Start:=pos1, End:=pos2)
objword.Selection.TypeText(Text:=feldwert)
Catch ex As Exception
End Try
End If
End Sub
Private Sub Insert_Kopfzeile()
objword.Selection.HomeKey(Unit:=Word.WdUnits.wdStory)
If objword.ActiveWindow.View.SplitSpecial <> Word.WdSpecialPane.wdPaneNone Then
objword.ActiveWindow.Panes.Item(2).Close()
End If
If objword.ActiveWindow.ActivePane.View.Type = Word.WdViewType.wdNormalView Or objword.ActiveWindow.ActivePane.View.Type = Word.WdViewType.wdOutlineView Then
objword.ActiveWindow.ActivePane.View.Type = Word.WdViewType.wdPrintView
End If
objword.ActiveWindow.ActivePane.View.SeekView = Word.WdSeekView.wdSeekCurrentPageHeader
set_headerbookmark()
objword.ActiveWindow.ActivePane.View.SeekView = Word.WdSeekView.wdSeekMainDocument
End Sub
Private Sub set_headerbookmark()
Try
objword.ActiveDocument.Bookmarks.Item("TGEDKCompanyBBEB99").Select()
Catch
objword.Selection.MoveDown(Unit:=Word.WdUnits.wdLine, Count:=1)
With objword.ActiveDocument.Bookmarks
.Add(Range:=objword.Selection.Range, Name:="TGEDKCompanyBBEB99")
.DefaultSorting = Word.WdBookmarkSortBy.wdSortByName
.ShowHidden = False
End With
End Try
End Sub
#End Region
Private Sub objdoc_DocumentEvents_Event_Close() Handles objdoc.Close
Me.Close()
End Sub
End Class