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

Binary file not shown.

View File

@@ -0,0 +1,368 @@
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 dsempfaenger.Tables("Usedfelder").Rows(i).Item(2).ToString <> "" Then
' MsgBox("Hallo")
'End If
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
'Me.dsempfaenger.WriteXml("d:\test.xmls")
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 Microsoft.Office.Interop.Excel.Application
intxls.Workbooks.Open(ExcelFile)
For Each s As Microsoft.Office.Interop.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,422 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmSBEdit
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSBEdit))
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SpeichernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.StatusEmpfängerlisteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DruckstapelLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DokumentePruefenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DokumentePrüfenUndEDKB08StrukturGenerierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.ListBox2 = New System.Windows.Forms.ListBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.ListBox1 = New System.Windows.Forms.ListBox()
Me.txtBLDossier = New System.Windows.Forms.TextBox()
Me.lblBLDossier = New System.Windows.Forms.Label()
Me.txtausgelöst = New System.Windows.Forms.TextBox()
Me.txtbestätigt = New System.Windows.Forms.TextBox()
Me.txtgedruckt = New System.Windows.Forms.TextBox()
Me.txterstellt = New System.Windows.Forms.TextBox()
Me.txtinbearbeitung = New System.Windows.Forms.TextBox()
Me.txtfehlerhaft = New System.Windows.Forms.TextBox()
Me.txtStatus = New System.Windows.Forms.TextBox()
Me.lblausgelöst = New System.Windows.Forms.Label()
Me.lblBestätigt = New System.Windows.Forms.Label()
Me.lblGedruckt = New System.Windows.Forms.Label()
Me.lblErstellt = New System.Windows.Forms.Label()
Me.lblInBearbeitung = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.lblStatus = New System.Windows.Forms.Label()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.empflist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.CTMenuEmpflist = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.IndexdatenFürMarkierteDatensätzeGenerierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.MenuStrip1.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
CType(Me.empflist, System.ComponentModel.ISupportInitialize).BeginInit()
Me.CTMenuEmpflist.SuspendLayout()
Me.SuspendLayout()
'
'MenuStrip1
'
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem, Me.SpeichernToolStripMenuItem, Me.StatusEmpfängerlisteToolStripMenuItem, Me.DruckstapelLöschenToolStripMenuItem, Me.DokumentePruefenToolStripMenuItem, Me.DokumentePrüfenUndEDKB08StrukturGenerierenToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(877, 24)
Me.MenuStrip1.TabIndex = 0
Me.MenuStrip1.Text = "MenuStrip1"
'
'DateiToolStripMenuItem
'
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem})
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
Me.DateiToolStripMenuItem.Text = "Datei"
'
'BeendenToolStripMenuItem
'
Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(120, 22)
Me.BeendenToolStripMenuItem.Text = "Beenden"
'
'SpeichernToolStripMenuItem
'
Me.SpeichernToolStripMenuItem.Name = "SpeichernToolStripMenuItem"
Me.SpeichernToolStripMenuItem.Size = New System.Drawing.Size(71, 20)
Me.SpeichernToolStripMenuItem.Text = "&Speichern"
'
'StatusEmpfängerlisteToolStripMenuItem
'
Me.StatusEmpfängerlisteToolStripMenuItem.Name = "StatusEmpfängerlisteToolStripMenuItem"
Me.StatusEmpfängerlisteToolStripMenuItem.Size = New System.Drawing.Size(133, 20)
Me.StatusEmpfängerlisteToolStripMenuItem.Text = "Status Empfängerliste"
'
'DruckstapelLöschenToolStripMenuItem
'
Me.DruckstapelLöschenToolStripMenuItem.Name = "DruckstapelLöschenToolStripMenuItem"
Me.DruckstapelLöschenToolStripMenuItem.Size = New System.Drawing.Size(125, 20)
Me.DruckstapelLöschenToolStripMenuItem.Text = "Druckstapel löschen"
'
'DokumentePruefenToolStripMenuItem
'
Me.DokumentePruefenToolStripMenuItem.Name = "DokumentePruefenToolStripMenuItem"
Me.DokumentePruefenToolStripMenuItem.Size = New System.Drawing.Size(125, 20)
Me.DokumentePruefenToolStripMenuItem.Text = "&Dokumente pruefen"
'
'DokumentePrüfenUndEDKB08StrukturGenerierenToolStripMenuItem
'
Me.DokumentePrüfenUndEDKB08StrukturGenerierenToolStripMenuItem.Name = "DokumentePrüfenUndEDKB08StrukturGenerierenToolStripMenuItem"
Me.DokumentePrüfenUndEDKB08StrukturGenerierenToolStripMenuItem.Size = New System.Drawing.Size(292, 20)
Me.DokumentePrüfenUndEDKB08StrukturGenerierenToolStripMenuItem.Text = "Dokumente prüfen und EDKB08-Struktur generieren"
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.ListBox2)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.ListBox1)
Me.GroupBox1.Controls.Add(Me.txtBLDossier)
Me.GroupBox1.Controls.Add(Me.lblBLDossier)
Me.GroupBox1.Controls.Add(Me.txtausgelöst)
Me.GroupBox1.Controls.Add(Me.txtbestätigt)
Me.GroupBox1.Controls.Add(Me.txtgedruckt)
Me.GroupBox1.Controls.Add(Me.txterstellt)
Me.GroupBox1.Controls.Add(Me.txtinbearbeitung)
Me.GroupBox1.Controls.Add(Me.txtfehlerhaft)
Me.GroupBox1.Controls.Add(Me.txtStatus)
Me.GroupBox1.Controls.Add(Me.lblausgelöst)
Me.GroupBox1.Controls.Add(Me.lblBestätigt)
Me.GroupBox1.Controls.Add(Me.lblGedruckt)
Me.GroupBox1.Controls.Add(Me.lblErstellt)
Me.GroupBox1.Controls.Add(Me.lblInBearbeitung)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Controls.Add(Me.lblStatus)
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top
Me.GroupBox1.Location = New System.Drawing.Point(0, 24)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(877, 137)
Me.GroupBox1.TabIndex = 1
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Serienbrief"
'
'ListBox2
'
Me.ListBox2.BackColor = System.Drawing.SystemColors.InactiveCaption
Me.ListBox2.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.ListBox2.ForeColor = System.Drawing.Color.Black
Me.ListBox2.FormattingEnabled = True
Me.ListBox2.Items.AddRange(New Object() {"-1 = nicht festgelegt", " 0 = Dokumente nicht in el. BL-Dossier", " 1 = Dokument in BL-Dossier"})
Me.ListBox2.Location = New System.Drawing.Point(587, 42)
Me.ListBox2.Name = "ListBox2"
Me.ListBox2.Size = New System.Drawing.Size(187, 65)
Me.ListBox2.TabIndex = 19
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(584, 26)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(55, 13)
Me.Label3.TabIndex = 18
Me.Label3.Text = "BLDossier"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(387, 26)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(37, 13)
Me.Label2.TabIndex = 17
Me.Label2.Text = "Status"
'
'ListBox1
'
Me.ListBox1.BackColor = System.Drawing.SystemColors.InactiveCaption
Me.ListBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.ListBox1.ForeColor = System.Drawing.Color.Black
Me.ListBox1.FormattingEnabled = True
Me.ListBox1.Items.AddRange(New Object() {"-1 =Dokumentgenerierung ausgelöst", " 0 = in Bearbeitung", " 1 = Serienbrief abgeschlossen", " 2 = Serienbrief abgeschlossen", " "})
Me.ListBox1.Location = New System.Drawing.Point(390, 42)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.Size = New System.Drawing.Size(187, 65)
Me.ListBox1.TabIndex = 16
'
'txtBLDossier
'
Me.txtBLDossier.Location = New System.Drawing.Point(259, 23)
Me.txtBLDossier.Name = "txtBLDossier"
Me.txtBLDossier.Size = New System.Drawing.Size(52, 20)
Me.txtBLDossier.TabIndex = 15
'
'lblBLDossier
'
Me.lblBLDossier.AutoSize = True
Me.lblBLDossier.Location = New System.Drawing.Point(187, 26)
Me.lblBLDossier.Name = "lblBLDossier"
Me.lblBLDossier.Size = New System.Drawing.Size(55, 13)
Me.lblBLDossier.TabIndex = 14
Me.lblBLDossier.Text = "BLDossier"
'
'txtausgelöst
'
Me.txtausgelöst.Location = New System.Drawing.Point(259, 103)
Me.txtausgelöst.Name = "txtausgelöst"
Me.txtausgelöst.Size = New System.Drawing.Size(52, 20)
Me.txtausgelöst.TabIndex = 13
'
'txtbestätigt
'
Me.txtbestätigt.Location = New System.Drawing.Point(259, 80)
Me.txtbestätigt.Name = "txtbestätigt"
Me.txtbestätigt.Size = New System.Drawing.Size(52, 20)
Me.txtbestätigt.TabIndex = 12
'
'txtgedruckt
'
Me.txtgedruckt.Location = New System.Drawing.Point(259, 56)
Me.txtgedruckt.Name = "txtgedruckt"
Me.txtgedruckt.Size = New System.Drawing.Size(52, 20)
Me.txtgedruckt.TabIndex = 11
'
'txterstellt
'
Me.txterstellt.Location = New System.Drawing.Point(112, 103)
Me.txterstellt.Name = "txterstellt"
Me.txterstellt.Size = New System.Drawing.Size(52, 20)
Me.txterstellt.TabIndex = 10
'
'txtinbearbeitung
'
Me.txtinbearbeitung.Location = New System.Drawing.Point(112, 80)
Me.txtinbearbeitung.Name = "txtinbearbeitung"
Me.txtinbearbeitung.Size = New System.Drawing.Size(52, 20)
Me.txtinbearbeitung.TabIndex = 9
'
'txtfehlerhaft
'
Me.txtfehlerhaft.Location = New System.Drawing.Point(112, 56)
Me.txtfehlerhaft.Name = "txtfehlerhaft"
Me.txtfehlerhaft.Size = New System.Drawing.Size(52, 20)
Me.txtfehlerhaft.TabIndex = 8
'
'txtStatus
'
Me.txtStatus.Location = New System.Drawing.Point(112, 23)
Me.txtStatus.Name = "txtStatus"
Me.txtStatus.Size = New System.Drawing.Size(52, 20)
Me.txtStatus.TabIndex = 7
'
'lblausgelöst
'
Me.lblausgelöst.AutoSize = True
Me.lblausgelöst.Location = New System.Drawing.Point(187, 106)
Me.lblausgelöst.Name = "lblausgelöst"
Me.lblausgelöst.Size = New System.Drawing.Size(53, 13)
Me.lblausgelöst.TabIndex = 6
Me.lblausgelöst.Text = "Ausgelöst"
'
'lblBestätigt
'
Me.lblBestätigt.AutoSize = True
Me.lblBestätigt.Location = New System.Drawing.Point(187, 83)
Me.lblBestätigt.Name = "lblBestätigt"
Me.lblBestätigt.Size = New System.Drawing.Size(48, 13)
Me.lblBestätigt.TabIndex = 5
Me.lblBestätigt.Text = "Bestätigt"
'
'lblGedruckt
'
Me.lblGedruckt.AutoSize = True
Me.lblGedruckt.Location = New System.Drawing.Point(187, 59)
Me.lblGedruckt.Name = "lblGedruckt"
Me.lblGedruckt.Size = New System.Drawing.Size(51, 13)
Me.lblGedruckt.TabIndex = 4
Me.lblGedruckt.Text = "Gedruckt"
'
'lblErstellt
'
Me.lblErstellt.AutoSize = True
Me.lblErstellt.Location = New System.Drawing.Point(28, 106)
Me.lblErstellt.Name = "lblErstellt"
Me.lblErstellt.Size = New System.Drawing.Size(38, 13)
Me.lblErstellt.TabIndex = 3
Me.lblErstellt.Text = "Erstellt"
'
'lblInBearbeitung
'
Me.lblInBearbeitung.AutoSize = True
Me.lblInBearbeitung.Location = New System.Drawing.Point(28, 83)
Me.lblInBearbeitung.Name = "lblInBearbeitung"
Me.lblInBearbeitung.Size = New System.Drawing.Size(76, 13)
Me.lblInBearbeitung.TabIndex = 2
Me.lblInBearbeitung.Text = "In Bearbeitung"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(28, 59)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(54, 13)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Fehlerhaft"
'
'lblStatus
'
Me.lblStatus.AutoSize = True
Me.lblStatus.Location = New System.Drawing.Point(28, 26)
Me.lblStatus.Name = "lblStatus"
Me.lblStatus.Size = New System.Drawing.Size(37, 13)
Me.lblStatus.TabIndex = 0
Me.lblStatus.Text = "Status"
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.empflist)
Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Fill
Me.GroupBox2.Location = New System.Drawing.Point(0, 161)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(877, 316)
Me.GroupBox2.TabIndex = 2
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Empfängerlsite"
'
'empflist
'
Me.empflist.AllowDelete = True
Me.empflist.AlternatingRows = True
Me.empflist.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Floating
Me.empflist.ContextMenuStrip = Me.CTMenuEmpflist
Me.empflist.Cursor = System.Windows.Forms.Cursors.Default
Me.empflist.Dock = System.Windows.Forms.DockStyle.Fill
Me.empflist.FetchRowStyles = True
Me.empflist.FilterBar = True
Me.empflist.GroupByCaption = "Drag a column header here to group by that column"
Me.empflist.Images.Add(CType(resources.GetObject("empflist.Images"), System.Drawing.Image))
Me.empflist.Location = New System.Drawing.Point(3, 16)
Me.empflist.Name = "empflist"
Me.empflist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.empflist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.empflist.PreviewInfo.ZoomFactor = 75.0R
Me.empflist.PrintInfo.PageSettings = CType(resources.GetObject("empflist.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.empflist.ScrollTips = True
Me.empflist.Size = New System.Drawing.Size(871, 297)
Me.empflist.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
Me.empflist.TabIndex = 27
Me.empflist.Text = "C1TrueDBGrid1"
Me.empflist.PropBag = resources.GetString("empflist.PropBag")
'
'CTMenuEmpflist
'
Me.CTMenuEmpflist.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.IndexdatenFürMarkierteDatensätzeGenerierenToolStripMenuItem})
Me.CTMenuEmpflist.Name = "CTMenuEmpflist"
Me.CTMenuEmpflist.Size = New System.Drawing.Size(324, 26)
'
'IndexdatenFürMarkierteDatensätzeGenerierenToolStripMenuItem
'
Me.IndexdatenFürMarkierteDatensätzeGenerierenToolStripMenuItem.Name = "IndexdatenFürMarkierteDatensätzeGenerierenToolStripMenuItem"
Me.IndexdatenFürMarkierteDatensätzeGenerierenToolStripMenuItem.Size = New System.Drawing.Size(323, 22)
Me.IndexdatenFürMarkierteDatensätzeGenerierenToolStripMenuItem.Text = "&Indexdaten für markierte Datensätze generieren"
'
'frmSBEdit
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(877, 477)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.MenuStrip1)
Me.MainMenuStrip = Me.MenuStrip1
Me.Name = "frmSBEdit"
Me.Text = "Serienbrief editieren"
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
CType(Me.empflist, System.ComponentModel.ISupportInitialize).EndInit()
Me.CTMenuEmpflist.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents BeendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents lblErstellt As System.Windows.Forms.Label
Friend WithEvents lblInBearbeitung As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents lblStatus As System.Windows.Forms.Label
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents lblausgelöst As System.Windows.Forms.Label
Friend WithEvents lblBestätigt As System.Windows.Forms.Label
Friend WithEvents lblGedruckt As System.Windows.Forms.Label
Friend WithEvents txtBLDossier As System.Windows.Forms.TextBox
Friend WithEvents lblBLDossier As System.Windows.Forms.Label
Friend WithEvents txtausgelöst As System.Windows.Forms.TextBox
Friend WithEvents txtbestätigt As System.Windows.Forms.TextBox
Friend WithEvents txtgedruckt As System.Windows.Forms.TextBox
Friend WithEvents txterstellt As System.Windows.Forms.TextBox
Friend WithEvents txtinbearbeitung As System.Windows.Forms.TextBox
Friend WithEvents txtfehlerhaft As System.Windows.Forms.TextBox
Friend WithEvents txtStatus As System.Windows.Forms.TextBox
Friend WithEvents empflist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents SpeichernToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents ListBox2 As System.Windows.Forms.ListBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents StatusEmpfängerlisteToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents DruckstapelLöschenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents DokumentePruefenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents CTMenuEmpflist As System.Windows.Forms.ContextMenuStrip
Friend WithEvents IndexdatenFürMarkierteDatensätzeGenerierenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents DokumentePrüfenUndEDKB08StrukturGenerierenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
End Class

View File

@@ -0,0 +1,166 @@
<?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="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="CTMenuEmpflist.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>132, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="empflist.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="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
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</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;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{BackColor:Control;}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:224, 224, 224;}Style14{}Footer{}Heading{ForeColor:ControlText;Border:Raised,,1, 1, 1, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style27{}Style26{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{BackColor:255, 255, 192;}&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;295&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, 869, 295&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, 869, 295&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style14" /&gt;&lt;PrintPageFooterStyle parent="" me="Style15" /&gt;&lt;/Blob&gt;</value>
</data>
</root>

View File

@@ -0,0 +1,264 @@
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Public Class frmSBEdit
#Region "Deklarationen"
Public sb As edokadb.clsEdex_sb_serienbrief
Private EmpfData As New DataTable
Public ResultatDaten As New DataTable
#End Region
Sub New(ByRef serienbrief As edokadb.clsEdex_sb_serienbrief, ByRef daten As DataTable)
Me.InitializeComponent()
Me.sb = serienbrief
Me.EmpfData = daten.Copy
Me.ResultatDaten = daten.Copy
End Sub
Private Sub frmSBEdit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Me.txtStatus.Text = Me.sb.iStatus.Value.ToString
Me.txtfehlerhaft.Text = Me.sb.iFehlerhaft.Value.ToString
Me.txtinbearbeitung.Text = Me.sb.iInBearbeitung.Value.ToString
Me.txterstellt.Text = Me.sb.iErstellt.Value.ToString
Me.txtgedruckt.Text = Me.sb.iGedruckt.Value.ToString
Me.txtbestätigt.Text = Me.sb.iBestaetigt.Value.ToString
Me.txtausgelöst.Text = Me.sb.iAusgeloest.Value.ToString
Me.txtBLDossier.Text = Me.sb.iBldossier.Value.ToString
Me.empflist.DataSource = Me.EmpfData
Me.empflist.DataMember = Me.EmpfData.TableName
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub SpeichernToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SpeichernToolStripMenuItem.Click
Me.sb.iStatus = New SqlInt32(CType(Me.txtStatus.Text, Int32))
Me.sb.iFehlerhaft = New SqlInt32(CType(Me.txtfehlerhaft.Text, Int32))
Me.sb.iInBearbeitung = New SqlInt32(CType(Me.txtinbearbeitung.Text, Int32))
Me.sb.iErstellt = New SqlInt32(CType(Me.txterstellt.Text, Int32))
Me.sb.iGedruckt = New SqlInt32(CType(Me.txtgedruckt.Text, Int32))
Me.sb.iBestaetigt = New SqlInt32(CType(Me.txtbestätigt.Text, Int32))
Me.sb.iAusgeloest = New SqlInt32(CType(Me.txtausgelöst.Text, Int32))
Me.sb.iBldossier = New SqlInt32(CType(Me.txtBLDossier.Text, Int32))
Me.ResultatDaten.Clear()
Me.ResultatDaten = Me.EmpfData.Copy
End Sub
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
End Sub
Private Sub StatusEmpfängerlisteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StatusEmpfängerlisteToolStripMenuItem.Click
Dim res As String = "-99"
res = InputBox("Status der Einträge in der Empängerliste:", "Status Empfängerliste setzen")
If res <> "-99" Then
For Each dr As DataRow In Me.EmpfData.Rows
dr.Item("Status") = res
Next
End If
End Sub
Private Sub DruckstapelLöschenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DruckstapelLöschenToolStripMenuItem.Click
If MsgBox("Es werden alle Druckstapel gelöscht. Die Löschung kann nicht mehr rückgängig gemacht werde. Fortfahren?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Druckstapel löschen") = MsgBoxResult.Yes Then
set_druckjobstatus(3, Me.sb.iSerienbriefnr.Value)
End If
End Sub
Private Function set_druckjobstatus(ByVal status As Integer, ByVal serienbriefnr 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, 0))
scmCmdToExecute.Parameters.Add(New SqlParameter("@status", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, status))
scmCmdToExecute.Parameters.Add(New SqlParameter("@serienbriefnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 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 Sub DokumentePruefenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DokumentePruefenToolStripMenuItem.Click
Try
Cursor = Cursors.WaitCursor
Dim i As Integer
Dim tmpdata As New DataTable
Dim errorstring As String = "Folgende Dokumente sind nicht im EDOKA:"
Dim dok As New edokadb.clsDokument
dok.cpMainConnectionProvider = Globals.conn
For i = 0 To EmpfData.Rows.Count - 1
tmpdata.Rows.Clear()
dok.sDokumentid = New SqlString(CType(EmpfData.Rows(i).Item("Dokumentid"), String))
tmpdata = dok.SelectOne()
If tmpdata.Rows.Count = 0 Then
errorstring = errorstring + vbCrLf + EmpfData.Rows(i).Item("Partnernr").ToString + ": " + EmpfData.Rows(i).Item("Dokumentid").ToString
End If
Next
tmpdata.Dispose()
dok.Dispose()
If errorstring <> "Folgende Dokumente sind nicht im EDOKA:" Then
MsgBox(errorstring, MsgBoxStyle.Critical)
Else
MsgBox("Alle Dokumente im EDOKA vorhanden.")
End If
Catch ex As Exception
MsgBox("Bei der Prüfung ist ein Fehler aufgetreten:" + ex.Message)
Cursor = Cursors.Default
End Try
End Sub
Private Sub IndexdatenFürMarkierteDatensätzeGenerierenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IndexdatenFürMarkierteDatensätzeGenerierenToolStripMenuItem.Click
If Not IO.File.Exists(Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + "\EDKB08Struktur.xml") Then
MsgBox("Die Datei 'EDKB08Struktur.xml' muss für diesen Vorgang im Verzeichnis " + Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + " zur Verfügung stehen.", MsgBoxStyle.Critical)
Exit Sub
End If
Dim importdata As New DataSet()
importdata.ReadXml(Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + "\EDKB08Struktur.xml")
importdata.Tables(0).Rows.Clear()
importdata.Tables(0).Columns.Add("BLKunde")
importdata.Tables(0).Columns.Add("Dokumentidbdr")
importdata.Tables(0).Columns.Add("Dokumentid")
importdata.Tables(0).Columns.Add("Bezeichnung")
Dim i As Integer = 0
Dim s As String = ""
Dim row As Long
Dim col As C1.Win.C1TrueDBGrid.C1DataColumn
Dim cols As Integer, rows As Long
If Me.empflist.SelectedRows.Count = 0 Then
s = Me.empflist.Columns("Dokumentid").Text
Insert_datarow(importdata, s)
Else
For Each row In Me.empflist.SelectedRows
For Each col In Me.empflist.Columns
If col.Caption = "DOKUMENTID" Then
s = col.CellText(row)
Insert_datarow(importdata, s)
End If
Next
Next
End If
importdata.WriteXml(Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + "\" + Me.sb.iSerienbriefnr.Value.ToString + "_EDKB08_Import.xml")
MsgBox("Die Datei " + Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + "\" + Me.sb.iSerienbriefnr.Value.ToString + "_EDKB08_Import.xml mit den generierten Indexdaten wurde erstellt.")
End Sub
Private Function Insert_datarow(ByVal importdata As DataSet, ByVal dokumentid As String)
Dim i As Integer
For Each dv As DataRow In EmpfData.Rows
If dv.Item("Dokumentid") = dokumentid Then
Dim dr As DataRow
dr = importdata.Tables(0).NewRow
Try
While i < 40
dr.Item(i) = ""
i = i + 1
End While
Catch
End Try
dr.Item("Funktion") = "ADD"
dr.Item("PARTNERNR") = dv.Item("Partnernr")
dr.Item("Dokumenttypnr") = sb.iDokumenttypnr.Value
dr.Item("dateiname") = dv.Item("Dokumentid") + ".pdf"
dr.Item("Dateiformat") = "PDF"
dr.Item("Archivdatum") = Now.ToString
Dim ma As New edokadb.clsMitarbeiter
ma.cpMainConnectionProvider = Globals.conn
ma.iMitarbeiternr = New SqlInt32(CType(dv.Item("Ersteller"), Int32))
ma.SelectOne()
dr.Item("Ersteller") = ma.sTgnummer.Value.ToString
ma.Dispose()
dr.Item("HERKUNFTSAPPLIKATION") = "EDKB09"
dr.Item("Dokumentid") = dv.Item("Dokumentid")
dr.Item("Dokumentidbdr") = dv.Item("Dokumentidbdr")
'Rel. 4.1 - Nur als BL-Kunde kennzeichnen, sofern so im Serienbrief festgehalten
If sb.iBldossier.Value.ToString = "1" Then
dr.Item("BLKunde") = dv.Item("BLKUNDE")
Else
If dv.Item("BLKunde") = "1" Then
'insert_sb_bl_physiche_ablage_journal(Me.Serienbriefnr, sb.sBezeichnung.Value.ToString, get_tgnummer(dv.Item("Ersteller")), dv.Item("Partnernr"), dv.Item("DokumentID"))
End If
dr.Item("BLKunde") = "0"
End If
dr.Item("Bezeichnung") = sb.sBezeichnung.Value
dr.Item("DOKUMENTWERT2") = "Serienbriefnr;" + sb.iSerienbriefnr.ToString
importdata.Tables(0).Rows.Add(dr)
Exit For
End If
Next
End Function
Private Sub DokumentePrüfenUndEDKB08StrukturGenerierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentePrüfenUndEDKB08StrukturGenerierenToolStripMenuItem.Click
Try
Dim cnt As Integer
If Not IO.File.Exists(Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + "\EDKB08Struktur.xml") Then
MsgBox("Die Datei 'EDKB08Struktur.xml' muss für diesen Vorgang im Verzeichnis " + Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + " zur Verfügung stehen.", MsgBoxStyle.Critical)
Exit Sub
End If
Dim importdata As New DataSet()
importdata.ReadXml(Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + "\EDKB08Struktur.xml")
importdata.Tables(0).Rows.Clear()
importdata.Tables(0).Columns.Add("BLKunde")
importdata.Tables(0).Columns.Add("Dokumentidbdr")
importdata.Tables(0).Columns.Add("Dokumentid")
importdata.Tables(0).Columns.Add("Bezeichnung")
Cursor = Cursors.WaitCursor
Dim i As Integer
Dim rc As Integer
Dim fi As Integer = 0
Dim tmpdata As New DataTable
Dim errorstring As String = "Folgende Dokumente sind nicht im EDOKA:"
Dim dok As New edokadb.clsDokument
dok.cpMainConnectionProvider = Globals.conn
For i = 0 To EmpfData.Rows.Count - 1
tmpdata.Rows.Clear()
dok.sDokumentid = New SqlString(CType(EmpfData.Rows(i).Item("Dokumentid"), String))
tmpdata = dok.SelectOne()
If tmpdata.Rows.Count = 0 Then
Insert_datarow(importdata, dok.sDokumentid.Value)
rc = rc + 1
cnt = cnt + 1
If rc > 50 Then
importdata.WriteXml(Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + "\" + Me.sb.iSerienbriefnr.Value.ToString + "_" + fi.ToString + "_EDKB08_Import.IND")
fi = fi + 1
rc = 0
importdata.Tables(0).Rows.Clear()
End If
End If
Next
importdata.WriteXml(Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + "\" + Me.sb.iSerienbriefnr.Value.ToString + "_" + fi.ToString + "_EDKB08_Import.IND")
tmpdata.Dispose()
dok.Dispose()
Cursor = Cursors.Default
MsgBox("Indexdaten für " + cnt.ToString + " Datensätze generiert" + vbCrLf + vbCrLf + "Die Datei(en) " + Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + "\" + Me.sb.iSerienbriefnr.Value.ToString + "_(X)_EDKB08_Import.IND mit den generierten Indexdaten wurde erstellt.")
Catch ex As Exception
MsgBox("Bei der Prüfung ist ein Fehler aufgetreten:" + ex.Message)
Cursor = Cursors.Default
End Try
End Sub
End Class

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,329 @@
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
Public 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,661 @@
<?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>17, 17</value>
</metadata>
<data name="ImageList4.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABi
IQAAAk1TRnQBSQFMAgEBHQEAAYwBAwGMAQMBEAEAARABAAT/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>17, 251</value>
</metadata>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAACs
IAAAAk1TRnQBSQFMAgEBHAEAAYwBAwGMAQMBEAEAARABAAT/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, 290</value>
</metadata>
<metadata name="C1ContextMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 329</value>
</metadata>
<metadata name="C1ContextMenu2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 368</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/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAASUlEQVQ4T2OgFfiPAxMF/v/9yI+BQeJQ
jBdg00CSIWCFOTk56AopMoAkF4AARZqRAUWaQQCsGUt4EA0G3gAQoEzz0PcCEYCBAQCfxINLHCrVBwAA
AABJRU5ErkJggg==
</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
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</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
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</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;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{BackColor:Control;}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:224, 224, 224;}Style14{}Footer{}Heading{AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style27{}Style26{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{BackColor:255, 255, 192;}&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;316&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, 316&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, 316&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>17, 56</value>
</metadata>
<data name="ImageList2.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAACe
BwAAAk1TRnQBSQFMAwEBAAGMAQMBjAEDARABAAEQAQAE/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
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</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;Style6{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}EvenRow{BackColor:White;}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style13{}Style9{}OddRow{BackColor:224, 224, 224;}Style1{}Style5{}FilterBar{}Normal{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Editor{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}RecordSelector{AlignImage:Center;}Footer{}Style12{}Style3{}Style7{}Style4{}Caption{AlignHorz:Center;}Style11{}Heading{Wrap:True;Border:Raised,,1, 1, 1, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style10{AlignHorz:Near;}Style2{}&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>17, 95</value>
</metadata>
<data name="Notizlist.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="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
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</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;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:224, 224, 224;}Style14{}Footer{}Heading{AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{BackColor:255, 255, 192;}&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>17, 134</value>
</metadata>
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 173</value>
</metadata>
<metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 212</value>
</metadata>
<metadata name="statustimer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 407</value>
</metadata>
<metadata name="ImageList3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 446</value>
</metadata>
<data name="ImageList3.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAACg
BwAAAk1TRnQBSQFMAwEBAAGMAQMBjAEDARABAAEQAQAE/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,613 @@
<?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="ImageList2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>667, 17</value>
</metadata>
<data name="ImageList2.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABK
CgAAAk1TRnQBSQFMAgEBBAEAAQwBAAEMAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
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/AP8AGAAB7DIA
AQMB/wsAAewB/wIHAf8DBwH/AQcnAAHsAQMB7AH/CwAB7Aj/AQcIAAHsBQAB7BYAAQMB7AEDAewBAwH/
CwAB7AH/AgcB/wMHAf8BBwcAAgMB7AMAAQMB7AYAAQcJAAEHBAABAwHsAQMB7AEDAewB/wEAAewJAAHs
CP8BBwcAAewC+wEGAuwB+wEDBgABBwkAAQcEAAHsAQMB7AEDAewBAwH/AQAB7AkAAewB/wYHAf8BBwgA
Af8C+wEHAvsB7BUAAQMB7AEDAgAB7AH/AQAB7AgAAQcB7Aj/AQcIAAEDAvsCBwEDBwABBwHsBwABBwHs
BAAB7AEDAewCBwEDAf8BAAHsAQABBgYAAQcB7AH/BAcB/wEHAf8BBwcAAewBAwP7AQcBAwEEBgABBwHs
BwABBwHsBAABAwHsAQMB7AEDAewB/wIAAQYF/gH7AewBBwHsCP8BBwYAAQMF+wEHAvsBAwHsBAABBwHs
BwABBwHsBAAB7AEDAewBAwHsAQMB/wEAAW0G/gEAAfsB7AEHAf8EBwP/AQcFAAHsA/8BBwL7AQcD/wED
EwABAwHsAQMB7AEDAewB/wEAAewBbQH+BG0C7AMHAuwD/w0AAQcB+wHsCQACBwUAAgcFAAHsAQMB7AED
AewBAwH/AQAB7AEAAm0DAAP7AQcB+wEHAvsB7AH/AewB/wsAAf8B+wHsFwABAwHsAQMB7AEHAf8B7AEA
AewCAAFtBAAB+wHsAfsB7AH7AewD/wHsDAACAwsAAewFAAHsBgAB7AEDAQcB/wHsAQAD7AYAAfsB7AEA
AfsB7AEAAfsE7AwAAgMYAAEHAf8B7AEABewJAAH7AewCAAH7OwAB+wHsKwABQgFNAT4HAAE+AwABKAMA
AUADAAEgAwABAQEAAQEGAAEBFgAD/4EAAfwBfwHgAQME/wHwAX8B4AEDBP8BwAF/AeABAwH7Ae8BhwHh
AQABHwHgAQMB8QHPAYcB4QEAAR8B4AEDAfABDwGHAeEBAAEXAeABAwH4AQ8CgQEAAQcBwAEDAfgBHwGA
AQECAAHAAQMB8AEPAYABAQMAAQMB4AEDAYABAQIAAYABAwHAAQMBgAEBAwABAwH+AT8BwQGDAQABBwEA
AQcB/gE/AeEBhwEAARcBgAEPAf4BfwHhAYcBAAEfASQBHwH+AX8B4QGHAQABHwHmBf8BAAEfAecF/ws=
</value>
</data>
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAC2
DQAAAk1TRnQBSQFMAgEBCAEAAQwBAAEMAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
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/AP8ABQAw/xAA
JP8KAAL/EAAE/wHsAhQBEAHsAhQBEBf/AfABvAHwAd0D8wP/AQAC/wUAAewFAAHsBAAF/wEQARQB7AH/
ARABFAHsF/8CvAHwAbwB8QEZAfMD/wEAAv8EAAIDAewDAAEDAewEAAT/AUMBbQEUARAB7AJtARQB7Bb/
ArwBIAEAAe0DAAH0Af8BAAL/BAAB7AL7AQYC7AH7AQMEAAP/AUMBEgIUAQABFQFDARICFAHsBv8BAAED
AQAB/wEAAiII/wEHArsBvAHwAbwB8QEZAfMB/wEAAv8FAAH/AvsBBwL7AewEAAP/AW0B9wHsARQBbQEU
ARAB9wPsBv8BAAE3AfsBAwE3AfsBIgj/AQcBkwG1A7wB8AHdAvMBAAL/BQABAwL7AgcBAwUAA/8BbQH3
AewBbQEQARQBQwH3A+wH/wEiAfsDNwEACP8BvAK2ArsBvAHwAbwB8QEZAQAC/wQAAewBAwP7AQcBAwEE
BAAD/wFtAfcC7AEVAewBbQH3A+wG/wEAATcB+wIDAfsBIgj/AbwBuwEBAQABEgQAAbwBAAL/AwABAwX7
AQcC+wEDAewCAAP/AW0B9wPsAf8BbQH3A+wG/wEiAgMB+wE3AgMBAAf/AfIBvAG7ArYCuwG8AfABvAEA
Av8CAAHsA/8BBwL7AQcD/wEDAgAD/wFtAfcD7AH/AW0B9wPsCP8BAAE3ASIK/wHxAfABvAG7ApMBtQO8
AQAC/wcAAQcB+wHsBgAD/wFDARICFAHsAf8BQwESAhQB7An/ASIBAAr/AfMB8QK8AbsCtgK7AbwBAAL/
BwAB/wH7AewGAAP/BOwBBwH/BOwBBxX/AfQB8wEgBAAB7wEUAbwBAAL/BwACAwcAJf8C8wO8AewBHAG1
AQAC/wcAAgMHADD/EAAw/xAAEAcgAAn/AewBAAHsBP8HBwEAAQcBAAPsAQACByAAB/8B7AEAAv8B7AT/
BwcBAAEHAQAD7AEAAgcHMAEABzARAAX/AewBAAT/AQAB7AP/AQABBwQAAQcBAAEHAQAD7AEAAgcBMAWg
AgABmgGgBJoBMAcAAf8B+wgAA/8B7AEABf8B/AH/AewD/wUHAwABBwEAA+wBAAIHATABwwSgAQAEoAOa
ATAFAAH/AQAB+wH/AfsB/wYAAv8BAAX/AfwB/wH8Af8BAAHsAv8FBwIAAgcBAAHsAQcB7AEAAgcBMAHD
A6ABAAEgAQACoAGaAaACmgEwBAAB+wIAAf8B+wH/AfsB/wH7BAAC/wHsA/8B/AH/AfwC/wH8Af8B7AL/
AgABBwEAAQcDAAEHAQAD7AEAAgcBMAHDA6ABAAIgAgADoAGaATADAAH/AQAB/wEAAfsB/wH7Af8B+wH/
AfsB/wIAAf8B7AEHAQAC/wH8Av8B/AH/AfwB/wEAAewB/wQHBgAD7AEAAgcBMAHDAqABAAP5AiABAAGg
AZoBoAEwAgAB+wEAAv8BAAH/AfsB/wH7Af8B+wH/AfsB/wEAAf8DBwP/AfwB/wH8Av8B/AH/AewB/wYH
AgABBwIAAuwBAAIHATABwwH0AaABAAEXBPkBIAEAAaABmgEwAwAD/wIAAf8B+wH/AfsB/wH7Af8B+wEA
Af8BAAIHAQAC/wH8Av8B/AH/AfwB/wEAAewFBwMAAQcBAAPsAQACBwEwAcMBoAEAARcCAAEXAfkEAAGg
ATAFAAP/AgAB+wH/AfsB/wH7Af8BAAH/AgACBwX/AfwC/wH8Af8B7AYHAgABBwIAAuwBAAIHATAB9AHD
AgACoAIABKABmgEwAwAB+wH/AgAC/wEAAf8B+wH/AfsB/wH7AQAD/wEAAQcBAAH/AwcB/wH8A/8BAAkH
BQACBwEwAvQEwwWgAZoBoAEwBAAB+wH/AfsBAAL/AgAB+wH/AfsB/wIAA/8BAAEHAf8CBwf/EAcBMAea
BzAGAAH/AfsBAAL/AwAB/wH7AQAC/wEAAv8CAAL/AQAB7AEHAv8BAAH/CAcEBAQHAQABMAH0AsMCoAEw
EgAB/wH7BAAE/wEAAf8BAAH/AQAB/wEHAwAC/wgHAQQCBwEEBAcCAAUwGQAG/wEABP8BBwEAA/8IBwQE
BAcgABD/AUIBTQE+BwABPgMAASgDAAFAAwABMAMAAQEBAAEBBQABgAEBFgAD/4cAAv8GAAL/BgAB+wHv
BgAB8QHPBgAB8AEPBgAB+AEPBgAB+AEfBgAB8AEPBgAB4AEDBgABwAEDBgAB/gE/BgAB/gE/BgAB/gF/
BgAB/gF/BgAC/wYAAv8CAAT/BAABgAEAAv8GAAH4Af8GAAHwAT8GAAHgAQ8GAAHAAQMGAAGAFwABgAcA
AYAHAAHABgABAQHgBQABgAH/AfkFAAHBAv8BzwQABP8CAAs=
</value>
</data>
<metadata name="ContextMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>281, 17</value>
</metadata>
<metadata name="ImageList4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>455, 32</value>
</metadata>
<data name="ImageList4.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAB6
PQAAAk1TRnQBSQFMAgEBQwEAAVQBAAEMAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARABAQIAAQEBAAEIBgABRBgAAYACAAGAAwACgAEAAYADAAGAAQABgAEAAoACAAPAAQABwAHc
AcABAAHwAcoBpgEAATMFAAEzAQABMwEAATMBAAIzAgADFgEAAxwBAAMiAQADKQEAA1UBAANNAQADQgEA
AzkBAAGAAXwB/wEAAlAB/wEAAZMBAAHWAQAB/wHsAcwBAAHGAdYB7wEAAdYC5wEAAZABqQGtAgAB/wEz
AwABZgMAAZkDAAHMAgABMwMAAjMCAAEzAWYCAAEzAZkCAAEzAcwCAAEzAf8CAAFmAwABZgEzAgACZgIA
AWYBmQIAAWYBzAIAAWYB/wIAAZkDAAGZATMCAAGZAWYCAAKZAgABmQHMAgABmQH/AgABzAMAAcwBMwIA
AcwBZgIAAcwBmQIAAswCAAHMAf8CAAH/AWYCAAH/AZkCAAH/AcwBAAEzAf8CAAH/AQABMwEAATMBAAFm
AQABMwEAAZkBAAEzAQABzAEAATMBAAH/AQAB/wEzAgADMwEAAjMBZgEAAjMBmQEAAjMBzAEAAjMB/wEA
ATMBZgIAATMBZgEzAQABMwJmAQABMwFmAZkBAAEzAWYBzAEAATMBZgH/AQABMwGZAgABMwGZATMBAAEz
AZkBZgEAATMCmQEAATMBmQHMAQABMwGZAf8BAAEzAcwCAAEzAcwBMwEAATMBzAFmAQABMwHMAZkBAAEz
AswBAAEzAcwB/wEAATMB/wEzAQABMwH/AWYBAAEzAf8BmQEAATMB/wHMAQABMwL/AQABZgMAAWYBAAEz
AQABZgEAAWYBAAFmAQABmQEAAWYBAAHMAQABZgEAAf8BAAFmATMCAAFmAjMBAAFmATMBZgEAAWYBMwGZ
AQABZgEzAcwBAAFmATMB/wEAAmYCAAJmATMBAANmAQACZgGZAQACZgHMAQABZgGZAgABZgGZATMBAAFm
AZkBZgEAAWYCmQEAAWYBmQHMAQABZgGZAf8BAAFmAcwCAAFmAcwBMwEAAWYBzAGZAQABZgLMAQABZgHM
Af8BAAFmAf8CAAFmAf8BMwEAAWYB/wGZAQABZgH/AcwBAAHMAQAB/wEAAf8BAAHMAQACmQIAAZkBMwGZ
AQABmQEAAZkBAAGZAQABzAEAAZkDAAGZAjMBAAGZAQABZgEAAZkBMwHMAQABmQEAAf8BAAGZAWYCAAGZ
AWYBMwEAAZkBMwFmAQABmQFmAZkBAAGZAWYBzAEAAZkBMwH/AQACmQEzAQACmQFmAQADmQEAApkBzAEA
ApkB/wEAAZkBzAIAAZkBzAEzAQABZgHMAWYBAAGZAcwBmQEAAZkCzAEAAZkBzAH/AQABmQH/AgABmQH/
ATMBAAGZAcwBZgEAAZkB/wGZAQABmQH/AcwBAAGZAv8BAAHMAwABmQEAATMBAAHMAQABZgEAAcwBAAGZ
AQABzAEAAcwBAAGZATMCAAHMAjMBAAHMATMBZgEAAcwBMwGZAQABzAEzAcwBAAHMATMB/wEAAcwBZgIA
AcwBZgEzAQABmQJmAQABzAFmAZkBAAHMAWYBzAEAAZkBZgH/AQABzAGZAgABzAGZATMBAAHMAZkBZgEA
AcwCmQEAAcwBmQHMAQABzAGZAf8BAALMAgACzAEzAQACzAFmAQACzAGZAQADzAEAAswB/wEAAcwB/wIA
AcwB/wEzAQABmQH/AWYBAAHMAf8BmQEAAcwB/wHMAQABzAL/AQABzAEAATMBAAH/AQABZgEAAf8BAAGZ
AQABzAEzAgAB/wIzAQAB/wEzAWYBAAH/ATMBmQEAAf8BMwHMAQAB/wEzAf8BAAH/AWYCAAH/AWYBMwEA
AcwCZgEAAf8BZgGZAQAB/wFmAcwBAAHMAWYB/wEAAf8BmQIAAf8BmQEzAQAB/wGZAWYBAAH/ApkBAAH/
AZkBzAEAAf8BmQH/AQAB/wHMAgAB/wHMATMBAAH/AcwBZgEAAf8BzAGZAQAB/wLMAQAB/wHMAf8BAAL/
ATMBAAHMAf8BZgEAAv8BmQEAAv8BzAEAAmYB/wEAAWYB/wFmAQABZgL/AQAB/wJmAQAB/wFmAf8BAAL/
AWYBAAEhAQABpQEAA18BAAN3AQADhgEAA5YBAAPLAQADsgEAA9cBAAPdAQAD4wEAA+oBAAPxAQAD+AEA
AfAB+wH/AQABpAKgAQADgAMAAf8CAAH/AwAC/wEAAf8DAAH/AQAB/wEAAv8CAAP/IwAO7D4AAuwYAAEp
GAAN+wEAAewWAAGFAQABKQI3FgAF+wIAASkF+wEAAewUAAEBAQABhQHmASkENxQABfsCAAEpBPsBAALs
EgABJwERAQEB+QGFAeYBKQE3AfcDNxQAC/sBAAHsEgABbQEnAfoBAQH5AYUB5gEpAjcC9wE3FAAF+wEA
BPsBAAHsEwABbQEnAfoBAQH5AYUB5gEpBDcB9xUABPsBAAT7AQAB7BQAAScB+gEBAfkBhQHmASkBNwL3
AjcVAAP7AwAC+wEAAewVAAEnAfoBAQH5AYUB5gEpAzcB9wE3FgAC+wMAAvsBAAHsFQABJwH6AQEB+QGF
AeYCKQI3AykVAAL7AwAB+wEAAewWAAEnAfoBAQH5AYUC5gIpATcBKQE3FwAC+wEAAvsBAAHsFgABJwH6
AgEB+QKFAeYDKRgABPsBAAHsFwACJwH6AgEB+QOFGwAD+wEAAewYAAInAfoDAR0AAvscAAMnigABZQHm
BAcC5ggAAaYB3QQHAd0BBxcAAzAFAAcwAgABZQfmCAABpgbdAQcPAAEpBwABMAKgAYUD1gEAAZoBoASa
ATACAAFlAeYEBwLmAQAC+QUAAaYB3QQHAd0BBwEAAZQBBwoAAYUBAAEpAlkFAAEwAcMBoAGFAd0BCQHW
AwABoAOaATACAAFlB+YBAAL5BQABpgbdAQcBAAGUAQcIAAEBAQABhQHdASkEWQMAATABwwGgAYUC3QHW
AQABlAEAAZoBoAKaATACAAFlAeYBBwHmAgcC5gEAAvkFAAGmAd0BBwHdAgcB3QEHAQABlAEHBgABJwER
AQEBlAGFAd0BKQFZAfcDWQIAATABwwGgAYUC3QHWAQABlAMAAaABmgEwAgABZQfmAQAC+QEAAvoCAAGm
Bt0BBwEAAZQBBwEAAZ4BBwIAAW0BJwGeAQEBlAGFAd0BKQJZAvcBWQIAATABwwGgBYUBlAEAAZ4BAAGa
AaABMAIAAWUB5gMHAeYBZQIAAvkBAAL6AgABpgHdAwcB3QGmAgABlAEHAQABngEHAgABbQEnAZ4BAQGU
AYUB3QEpBFkB9wIAATABwwOgASMCvQGUAQABngEAAaABmgEwAgABZQXmAWUB5gEAAvkBAAL6AgABpgXd
AaYB3QEAAZQBBwEAAZ4BBwMAAScBngEBAZQBhQHdASkBWQL3AlkCAAEwAcMDoAUjAZ4BAAGaAaABMAIA
CGUD+QEAAvoCAAemAYUClAEHAQABngEHAwABJwGeAQEBlAGFAd0BKQNZAfcBWQIAATAB9AHDBKABAgLC
AZ4BAAGgAZoBMAUAASMB+QMHAfkBIwIAAvoFAAEjAZQDBwGUASMCAAGeAQcDAAEnAZ4BAQGUAYUB3QIp
AlkDKQEAATAC9ATDBQIBmgGgATAFAAEjBfkBIwH5AQAC+gUAASMFlAEjAZQBAAGeAQcDAAEnAZ4BAQGU
AYUC3QIpAVkBKQFZAgABMAeaBzAFAAgjA/oFAAgjAp4BBwMAAScBngIBAZQChQHdAykEAAEwAfQCwwKg
ATAPAAEnAfoDBwH6AScJAAECAZ4DBwGeAQIEAAInAZ4CAQGUA4UHAAUwEAABJwX6AScB+ggAAQIFngEC
AZ4EAAInAZ4DAR4ACCcIAAgCBQADJzsAAew/AAHsAhoBBwHsAQcBGgGaBHo0AAHsAcMBGgEAAewBAAEa
ApoDejQAAewCoAEHAewBBwMaAZoCejQAAewCoAEAAewBAAGaAxoCmjQAAewCoAEHAewBBwGgAxoCmjQA
AewCoAEAAewBAAGgBBoBmjQAAewBwwGgAQcB7AEHAaABmgQaNAAB7AHDAaABAAHsAQADoAMaNAAB7AHD
AaABBwEAAZIDoAGaAho0AAHsAcMBoAHsAe8BAAagNAAB7ALDAewB9gEABqA0AAHsAsMB7AEHAQABegKg
NwAB7APDAewCwwKgAewBoDUAAewHwwGgAew2AArs/wD/AP8A/wBZAA77MgAB+wwAAfsJAAIgAQACIAEA
AiAIAAIgAQACIAEAAiAEAAHvAbwB7wG8BO8FAAH7AgAJ+wEAAfsJAAIgAQACIAEAAiAIAAIgAQACIAEA
AiAEAAH/BLwB7wG8Ae8FAAH7AwAC+wQAAvsBAAH7JQAC/wHvAbwB7wG8Au8FAAH7BAAC+wYAAfsCAAH8
AQAB/AEAAfwBAAH8AQAB/AYACgIKAAH/AbwB/wS8Ae8FAAH7AQAC+wEAAvsCAAL7AgAB+wEAAfwI/wcA
AQII/wECCgAC/wG8Af8B7wG8Ae8BvAUAAfsBAAL7AgAF+wIAAfsCAAH/AQAB/AH/AfwBAAL/AfwGAAEC
Af8IAgoAAf8BvAH/AbwB/wK8Ae8FAAH7AQAC+wIAAvsBAAL7AgAB+wEAAfwB/wH8AQABBwEAAfwBBwH/
BwABAgH/AwIBBwQCCgAC/wG8Af8JAAH7AgAC+wEAAvsFAAH7AgAB/wEAAfwBAAH8AQAB/AH/AfwGAAEC
Av8BAgEHAwIB/wECCgAB/wG8Af8BvAEAAbwC7wUAAfsDAAL7AQAC+wEAAvsBAAH7AQAB/AH/AfwB/wH8
AQAB/wEAAQcHAAECAf8BAgEHAwIC/wECCgAE/wEAAf8BvAHvBQAB+wQAB/sBAAH7AgAB/AEAAf8BAAH8
Af8B/AEAAfwGAAECAf8BBwUCAf8BAgoABP8BAAH/AbwGAAH7DAAB+wEAAfwBAAH8AQAB/AEAAfwBAAH8
BwABAgH/AgIC/wICAf8BAhcAAfsMAAH7AgAI/wH8BgABAgj/AQIXAA77AQAB/AEAAfwBAAH8AQAB/AEA
AfwHAAoCWgABBwIAAQcBAAEHAQABBwIAAQc1AAEHAgABBwEAAQcBAAEHAgABBwoAA+woAAEHAgABBwEA
AQcBAAEHAgABBwgAAQcE/wEHCgAH7wMAAfwBAAH8AQAB/AEAAfwBAAH8BwAB/AEAAfwBAAH8AQAB/AEA
AfwLAAHsAQAB/wEAA/8B7AEHCQAB/wUAAe8CAAH8CP8HAAH8CP8NAAEHB/8B7AgAAv8BvAH/AbwB/wHv
AwAB/wEAAfwB/wH8AQAC/wH8BwAB/wEAAfwB/wH8AQAC/wH8DAAB/wEAAv8CAAL/AewCAAXvAQAB/wUA
Ae8CAAH8Af8B/AEAAQcBAAH8AQcB/wEABNYCAAH8Af8B/AEAAQcBAAH8AQcB/wEABNYIAAH/AQAC/wMA
Af8BBwIAAf8FAAL/AbwB/wG8Af8B7wMAAf8BAAH8AQAB/AEAAfwB/wH8A/8B1gMAAf8BAAH8AQAB/AEA
AfwB/wH8A/8B1ggAAQcD/wEAA/8B7AIAAf8BvAH/AbwB/wEAAf8CAAG8BQAB/AH/AfwB/wH8AQAB/wEA
AQcBAAHWAv8B1gIAAfwB/wH8Af8B/AEAAf8BAAEHAQAB1gL/AdYHAALsAf8BAAH/AQAB/wHsAf8BAAHs
AQAB/wUAAv8BvAH/AQAB/wQAAfwBAAH/AQAB/AH/AfwBAAH8AdYBBwH/AdYDAAH8AQAB/wEAAfwB/wH8
AQAB/AHWAQcB/wHWBQACIAIAAewF/wHsAwAB/wG8Af8BvAH/AQAE/wUAAfwBAAH8AQAB/AEAAfwBAAH8
AQAC1gH/AdYCAAH8AQAB/AEAAfwBAAH8AQAB/AEAAtYB/wHWBAABQQIgBAAB7AEHAewFAAH/AgAB/wwA
CP8B/AH/AdYBBwHWAwAI/wH8Af8B1gEHAdYDAAHjAkEEIAHsAwAB7AQAAf8BvAH/AbwBAAH/CQAB/AEA
AfwBAAH8AQAB/AEAAfwBAAH/A9YCAAH8AQAB/AEAAfwBAAH8AQAB/AEAAf8D1gIAA+MDQQUgBgAE/w8A
CtYGAArWAwAE4wJBAyAaAAHWCP8B1gYAAdYI/wHWBAAD4x8ACtYGAArWBQAC4z8AAQcCAAEHAQABBwEA
AQcCAAEHNQABBwIAAQcBAAEHAQABBwIAAQc1AAEHAgABBwEAAQcBAAEHAgABBxEACgIGAAoCBgAKAgcA
AfwBAAH8AQAB/AEAAfwBAAH8BgABAgj/AQIGAAECCP8BAgYAAQII/wECBgAB/Aj/BwABAgH/CAIGAAEC
Af8IAgYAAQIB/wgCBwAB/wEAAfwB/wH8AQAC/wH8BgABAgH/AwIBBwQCBgABAgH/AwIBBwQCBJgCAAEC
Af8DAgEHBAIEmAIAAfwB/wH8AQABBwEAAfwBBwH/BwABAgL/AQIBBwMCAf8BAgYAAQIC/wECAQcDAgH/
AQID/wGYAgABAgL/AQIBBwMCAf8BAgP/AZgDAAH/AQAB/AEAAfwBAAH8Af8B/AYAAQIB/wECAQcDAgL/
AQIGAAECAf8BAgEHAwIC/wECBJgCAAECAf8BAgEHAwIC/wECBJgCAAH8Af8B/AH/AfwBAAH/AQABBwcA
AQIB/wEHBQIB/wECBgABAgH/AQcFAgH/AQIEmAIAAQIB/wEHBQIB/wECBJgDAAH8AQAB/wEAAfwB/wH8
AQAB/AYAAQIB/wICAv8CAgH/AQIGAAECAf8CAgL/AgIB/wECApgB/wGYAgABAgH/AgIC/wICAf8BAgKY
Af8BmAIAAfwBAAH8AQAB/AEAAfwBAAH8BwABAgj/AQIGAAECCP8BAgGYAv8BmAIAAQII/wECAZgC/wGY
AwAI/wH8BgAKAgYACgICmAH/AZgCAAoCApgB/wGYAgAB/AEAAfwBAAH8AQAB/AEAAfwbAAGYAf8CmAL/
ApgB/wGYBgABmAH/ApgC/wKYAf8BmCYAAZgI/wGYBgABmAj/AZgmAAqYBgAKmCYAAQcCAAEHAQABBwEA
AQcCAAEHEQAB7AMAAQcCAAEHAQABBwEAAQcCAAEHFQABBwIAAQcBAAEHAQABBwIAAQcRAAHsBAcCAAEH
AQABBwEAAQcCAAEHFQABBwIAAQcBAAEHAQABBwIAAQcEAAHsAQcB+wIHAQAD7AQAAewD/wEHAgABBwEA
AQcBAAEHAgABBwIAAfwBAAH8AQAB/AEAAfwBAAH8BwAB/AEAAfwBAAH8AQAB/AEAAfwJAAHsA/8B+wH/
AQAB+wEHAuwCAAHsAf8EBwH/AwcB/wEHBAAB/Aj/BwAB/Aj/CwAB7AH7A/8B+wEAAf8B+wEHAewBAAHs
Cv8BBwUAAf8BAAH8Af8B/AEAAv8B/AcAAf8BAAH8Af8B/AEAAv8B/AoAAewC/wH7Av8BAAH/AgAB7AEA
AewB/wQHAf8DBwH/AQcEAAH8Af8B/AEAAQcBAAH8AQcB/wEABNYCAAH8Af8B/AEAAQcBAAH8AQcB/wEA
BNYHAAHsA/8B+wHsAQAB/wH7AQcBAAHsCv8BBwUAAf8BAAH8AQAB/AEAAfwB/wH8A/8B1gMAAf8BAAH8
AQAB/AEAAfwB/wH8A/8B1gkAAfsD/wH7Av8BBwEAAewB/wgHAf8BBwQAAfwB/wH8Af8B/AEAAf8BAAEH
AQAB1gL/AdYCAAH8Af8B/AH/AfwBAAH/AQABBwEAAdYC/wHWBwACAQEAAf8B+wP/AfsBBwEAAewK/wEH
BQAB/AEAAf8BAAH8Af8B/AEAAfwB1gEHAf8B1gMAAfwBAAH/AQAB/AH/AfwBAAH8AdYBBwH/AdYDAAIB
AwABAQEAA/8B+wL/AQcBAAHsAf8CBwH/BQcB/wEHBAAB/AEAAfwBAAH8AQAB/AEAAfwBAALWAf8B1gIA
AfwBAAH8AQAB/AEAAfwBAAH8AQAC1gH/AdYDAAH5AQEBAAH5AQABAQMAA/8B+wEHAQAB7Ar/AQcFAAj/
AfwB/wHWAQcB1gMACP8B/AH/AdYBBwHWAwAC+QIAAvkBAAP/AfsC/wEHAQAB7AH/AgcB/wUHAf8BBwQA
AfwBAAH8AQAB/AEAAfwBAAH8AQAB/wPWAgAB/AEAAfwBAAH8AQAB/AEAAfwBAAH/A9YJAAL/AfsD/wH7
AQcBAAHsCP8LAArWBgAK1gcAAewB/wH7A/8B+wL/AQcBAAHsAf8GBwH/AewB/wkAAdYI/wHWBgAB1gj/
AdYHAArsAQAB7Aj/AewKAArWBgAK1hIACuxOAAHIAQAB3QEAAcgLAAEtAQABwgEAAS0LAAElAQABmgEA
ASUaAAHIBd0ByAkAAS0FwgEtCQABJQWaASUYAALIAd0ByAEAAcgB3QkAAi0BwgEtAQABLQHCCQACJQGa
ASUBAAElAZoEAAH8AQAB/AEAAfwBAAH8AQAB/AwAAcgC3QEAAewBAALdAcgHAAEtAsIBAAHsAQACwgEt
BwABJQKaAQAB7AEAApoBJQEAAfwI/w0AAsgB3QHIAQAByAHdCQACLQHCAS0BAAEtAcIJAAIlAZoBJQEA
ASUBmgQAAf8BAAH8Af8B/AEAAv8B/A0AAcgF3QHICQABLQXCAS0JAAElBZoBJQIAAfwB/wH8AQABBwEA
AfwBBwH/DgACyAEAAd0BAAHICgACLQEAAcIBAAEtCgACJQEAAZoBAAElBAAB/wEAAfwBAAH8AQAB/AH/
AfwIAAHIAQAB3QEAAcgCAATIBQABLQEAAcIBAAEtAgAELQUAASUBAAGaAQABJQIABCUDAAH8Af8B/AH/
AfwBAAH/AQABBwgAAcgF3QHICQABLQXCAS0JAAElBZoBJQkAAfwBAAH/AQAB/AH/AfwBAAH8BgACyAHd
AcgBAAHIAd0JAAItAcIBLQEAAS0BwgkAAiUBmgElAQABJQGaCQAB/AEAAfwBAAH8AQAB/AEAAfwHAAHI
At0BAAHsAQAC3QHIBwABLQLCAQAB7AEAAsIBLQcAASUCmgEAAewBAAKaASUIAAj/AfwGAALIAd0ByAEA
AcgB3QkAAi0BwgEtAQABLQHCCQACJQGaASUBAAElAZoJAAH8AQAB/AEAAfwBAAH8AQAB/AgAAcgF3QHI
CQABLQXCAS0JAAElBZoBJRkAAsgBAAHdAQAByAoAAi0BAAHCAQABLQoAAiUBAAGaAQABJRwABMgMAAQt
DAAEJSwAAS0BVQEtDQABLQFVAS0hAAHsB/8EAAEtAVUBLQ0AAS0BVQEtEgABKgEAAZoBAAEqCgAB7Af/
BAABLQFVAS0NAAEtAVUBLREAASoFmgEqCQAB7Af/BAADLQIAB/8EAAMtAgAH/wcAAioBmgEqAQABKgGa
DAAG/wQAAewFAAb/BAAB7AUABv8HAAEqApoBAAHsAQACmgEqAwAGtQEABv8CAALsBeECAAX/AgAC7ALo
Ae8B/wHvAgAF/wcAAioBmgEqAQABKgGaBQAEtQMABv8CAAHsAeEB/wXhAQAF/wIAAewD6AHvAf8B7wH/
AQAF/wgAASoFmgEqBAADtQEAArUBAAb/AQAB7AHhAf8H4QEABP8BAAHsAegB/wLoAe8B/wHvAv8BAAT/
CAACKgEAAZoBAAEqBQAGtQEABP8B7AIAAewB/wHhAf8G4QEABP8BAAHsAf8D6AHvAf8B7wL/AQAE/wMA
ASoBAAGaAQABKgIABCoFAAW1AwAD/wHsAf8BAAHsAeEB/wfhAQAE/wEAAewB6AL/AegB7wH/Ae8C/wEA
BP8CAAEqBZoBKgoAB7UBAAXsAQAB7AP/AeEB/wThAQAC/wHsAgAB7AH/AegC/wHvAf8B7wL/AQAC/wHs
AgACKgGaASoBAAEqAZoLAAe1AQAB/wHsBQAB7AP/AeEB/wHhAf8BAAP/AewB/wIAAewB/wHoAf8B7wH/
Ae8B/wEAA/8B7AH/AQABKgKaAQAB7AEAApoBKgkABLUBAAK1AQAB/wHsAf8EAALsAf8B4QH/AeEB/wIA
BewCAALsAf8B6AHvAf8B7wIABewBAAIqAZoBKgEAASoBmgsABLUBAAG1AQAE7AYAA+wCAAP/AewHAAPs
AgAD/wHsBQABKgWaASoKAAa1DQAB7AX/AewB/wgAAewF/wHsAf8EAAIqAQABmgEAASoeAAjsCAAI7AYA
BCo8AAEtAVUBLQ0AAewFBwHsCQAB7AUHAewJAAHsBQcB7AkAAS0BVQEtDQABrwW2Aa8B7AgAAS0FWgEt
AewIAAElBU0BJQHsCAABLQFVAS0NAAGvBbYCrwHsBwABLQVaAi0B7AcAASUFTQIlAewHAAMtDQABrwW2
A68B7AYAAS0FWgMtAewGAAElBU0DJQHsBgAB7A8AAa8FtgEAA68B7AUAAS0FWgEAAy0B7AUAASUFTQEA
AyUB7AMAAuwE4QFtAgAEtQQAAuwF/wIAA68EAALsBf8CAAMtBAAC7AX/AgADJQMAAewF4QFtAbwBAAK1
BQAD7AX/AQABBwEAAq8DAAPsBf8BAAEHAQACLQMAA+wF/wEAAQcBAAIlAgAB7AHhAf8E4QFtArwCAAK1
AwAC7AEHBewCBwH/AQABrwMAAuwBBwXsAgcB/wEAAS0DAALsAQcF7AIHAf8BAAElAgAB7AH/BeEBbQK8
AQADtQMAAewBBwHsAwcC7AEHA/8EAAHsAQcB7AMHAuwBBwP/BAAB7AEHAewDBwLsAQcD/wMAAewB4QP/
AuEBbQK8AQACtQQAAewB/wEHAewDBwEABewDAAHsAf8BBwHsAwcBAAXsAwAB7AH/AQcB7AMHAQAF7AIA
AewB/wHhAv8C4QFtArwBAAS1AwAB7AH/AQcB7AEHAQAB7AT/AQcEAAHsAf8BBwHsAQcBAAHsBP8BBwQA
AewB/wEHAewBBwEAAewE/wEHAwAB7AH/AeEB/wLhAW0BvAEABbUEAAHsAf8BBwIAAewE/wEHBQAB7AH/
AQcCAAHsBP8BBwUAAewB/wEHAgAB7AT/AQcDAALsAf8B4QH/AeEBbQIAArUBAAK1BQAB7AH/AwAF7AYA
AewB/wMABewGAAHsAf8DAAXsBQAD7AIABLUBAAG1BwAB7A8AAewPAAHsEgAGtUwAARIBlASTMQABEwHq
BBIB6gFuAQABEgGUBJMTAAHsBQcB7AkAAewFBwHsBwAB6gG3A5QBtwGTAW4BAAESAZQEkxMAATEFWQEx
AewIAAHmBdYB5gHsBgABEgGUApMBtwEOAwABEgGUBJMBAAbXAQAG9AUAATEFWQIxAewHAAHmBdYC5gHs
BQABEgGUAZMBlAESAQABEgG9AQAB6gG3AZQDkwEABNcFAAT0BQABMQVZAzEB7AYAAeYF1gPmAewEAAES
AZQBkwG3AQABEgK3AQABEAISAW4CkwEAA9cBAALXAQAC9AEAA/QFAAExBVkBAAMxAewFAAHmBdYBAAPm
AewDAAESAZQCkwK3AZQBtwETARIBbQEAARIBtwGTAQAG1wEABvQEAALsBf8CAAMxBAAC7AX/AgAD5gMA
ARIBlAKTAbcBEwESARMCvQFtAQABEQGOAZQBAAXXAwAF9AMAA+wF/wEAAQcBAAIxAwAD7AX/AQABBwEA
AuYDAAESAZQBkwG3AQ4EAAERBAABkwEABdcBAAf0AwAC7AEHBewCBwH/AQABMQMAAuwBBwXsAgcB/wEA
AeYDAAHrAZMBlAFEAQABEAH/AfECAAEQAf8B8QMABdcBAAf0AwAB7AEHAewDBwLsAQcD/wQAAewBBwHs
AwcC7AEHA/8EAAHsAfMBkwESAQAB/wEAAf8CAAH/ARQB/wH3AgAD1wEAAdcBAAL0AQAE9AMAAewB/wEH
AewDBwEABewDAAHsAf8BBwHsAwcBAAXsAwAB7AH/AbcBRAEAAfEB/wHxAgAB7AL/AwAD1wEAAtcC9AEA
BPQEAAHsAf8BBwHsAQcBAAHsBP8BBwQAAewB/wEHAewBBwEAAewE/wEHAwAB7AL/AbcBEAkAAZMBAAbX
B/QFAAHsAf8BBwIAAewE/wEHBQAB7AH/AQcCAAHsBP8BBwMAARQC7AHtAW4DAAGOAbcBEgEAAREBBwH/
FAAB7AH/AwAF7AYAAewB/wMABewJAAG8AfMBvQEaAb0E/xUAAewPAAHsCgAB/wHyAQAB/wEVAUMK/1oA
AeoFtgoAAeoFtgYAAewBMAoAAvkCAAH5CgABFAFtBOoBbQHrAQAB6gW2AQABFAFtBOoBbQHrAQAB6gW2
BQAB7AEwAXoMAAK8CwABbQHdA7YB3QG1AesBAAHqBbYBAAFtAd0DtgHdAbUB6wEAAeoFtgQAAuwBegEA
AvkJAAK8AgABbQkAAeoDtgHdAQ8DAAHqBbYBAAHqA7YB3QEPAwAB6gW2AQAB7AIwAewBegEAArwLAAO8
AQAB/wEAAewGAAHqA7YBEgEAAeoB3gEAAW0B3QS2AQAB6gO2ARIBAAHqAd4BAAFtAd0EtgEAATADegEA
ArwCAAFtBgAC7AS8AQAC/wcAAeoCtgHXAQABEgLdAQABEAISAY0CtgEAAeoCtgHXAQABEgLdAQABEAIS
AY0CtgHsAXoBAAJ6AgADvAEAAVYBAAFWAwAC7AEABLwDAAFQAQABUAMAAeoDtgHXAd0BtgHdAhIBbQEA
AeoB1wG2AQAB6gO2AdcB3QG2Ad0CEgFtAQAB6gHXAbYBAAN6ATABAAS8AQACVgQAAuwBAAK8AgAD/wEA
AbwEAAHqA7YB3QESAeoBEgLeAW0BAAERAfcBtgEAAeoDtgHdARIB6gESAt4BbQEAAREB9wG2AgAB7AIA
AewBAAS8BgAD7AEAArwBAAP/AQABvAQAAeoCtgHdAQ8EAAFDBAABtQEAAeoCtgHdAQ8EAAFDBAABtQQA
AuwBAAK8AgAD/wQABewBAAT/AQABvAMAAesCtgESAQABEAH/AfECAAEQAf8B8QMAAesCtgESAQABEAH/
AfECAAEQAf8B8QYAA+wBAAK8AQAD/woAAv8CAAK8AwAB7AHzAbYB6gEAAf8BAAH/AgAB/wEUAf8B9wIA
AewB8wG2AeoBAAH/AQAB/wIAAf8BFAH/AfcGAAXsAQAE/wYAA7wBAAL/AQADvAIAAewB/wHdARIBAAHx
Af8B8QIAAewC/wMAAewB/wHdARIBAAHxAf8B8QIAAewC/w0AAv8JAAW8AQABvAQAAewC/wHXARAJAAG2
AQAB7AL/AdcBEAkAAbYIAAO8AQAC/w0AAewCvAMAARQD7AGuAwABtQHdAeoBAAERAQcB/wEAARQD7AGu
AwABtQHdAeoBAAERAQcB/wkABbwLAAXsCQABvAH0AfIB8QHeBP8HAAG8AfQB8gHxAd4E/yAAAf8B8gEA
Af8BFQFDC/8B8gEAAf8BFQFDCv8UAAEHAgABBwEAAQcBAAEHAgABBzUAAQcCAAEHAQABBwEAAQcCAAEH
GAAC/xsAAQcCAAEHAQABBwEAAQcCAAEHFgAC/wIAAv8FAAoCBgAKAgwAAewMAAHzAf8CAAL/AgAC/wMA
AQII/wECBgABAgj/AQIMAAHsAwMGAAHsAv8CAAL/AgAC/wIAAf8CAAECAf8IAgYAAQIB/wgCDAAB7AH/
AewBAwkAAfMB/wIAAv8CAAL/AwABAgH/AwIBBwQCBJgCAAECAf8DAgEHBAIEmAgAAewB+wHsAQMGAAHs
Av8CAAL/AgAC/wIAAf8CAAECAv8BAgEHAwIB/wECA/8BmAIAAQIC/wECAQcDAgH/AQID/wGYCAAB7AH/
AewBAwkAAfMB/wIAAv8CAAL/AwABAgH/AQIBBwMCAv8BAgSYAgABAgH/AQIBBwMCAv8BAgSYBwAB7AH/
AfsB7AEDBgAB7AL/AgAC/wIAAv8CAAH/AgABAgH/AQcFAgH/AQIEmAIAAQIB/wEHBQIB/wECBJgGAAHs
AfsB/wMHAQMIAAHzAf8CAAL/AgAC/wMAAQIB/wICAv8CAgH/AQICmAH/AZgCAAECAf8CAgL/AgIB/wEC
ApgB/wGYBQAB7AL/AQcB+wIHAQMB7AQAAewC/wIABv8CAAH/AgABAgj/AQIBmAL/AZgCAAECCP8BAgGY
Av8BmAQAAewB/wL7Af8EBwEDAewGAAr/AwAKAgKYAf8BmAIACgICmAH/AZgCAALsAfsB/wL7A/8BBwH/
AgcBAwIAAewM/wcAAZgB/wKYAv8CmAH/AZgGAAGYAf8CmAL/ApgB/wGYAgAO7AMAAuwI/wkAAZgI/wGY
BgABmAj/AZgVAALsBP8LAAqYBgAKmBcAAuwdAAHsBAAF7A4AAVAlAALsAgcB+QH7Af4FXg4AAlAVAAH5
BAAF+QQAAewDBwTsBV4NAARQFAAC+QMAAvkHAAH6AfsB/wEHAQAB+QH7Af4EXgHsAwAFUAQABlAKAggA
BPkEAAIaBAAB7AL6AfsBBwEAAfkC/gEHAuwFAAJQBgAGUAEAAQII/wECBwAG+QMAARoFAAHsAQcB+QH7
AfoDAAUHBgACGgQAAlABAAJQAgABAgH/CAIGAAb5BAAEGgIAAewDBwH5AwAB7AEHCQABGgUAAVACAAFQ
AwABAgH/AwIBBwQCBgAC+QEAAvkGAAMaAgAB7AMHAfkDAAHsBF4B7AUABBoCAAFQBgABAgL/AQIBBwMC
Af8BAgYAAfkCAAH5BgAFGgEAAewCBwH5AfsBAAPsBV4GAAMaAgABUAYAAQIB/wECAQcDAgL/AQIGAAH5
CQADGgQAAQcB+QH7AfoE7AVeBQAFGggAAQIB/wEHBQIB/wECBgAB+QsAAhoDAAHsAfsB+gH+AQADBwHs
Af8BBwcAAxoKAAECAf8CAgL/AgIB/wECBwAB+RAABuwCBwHsAv8BBwcAAhoJAAECCP8BAhgAAewEXgHs
AgAB7AP/AQcRAAoCGAAB7AReAewDAAH/AuwB/zMABuwHAAHsMwAD7FoAAew/AAHsCwcLAAe2CQAH5AkA
B3UCAAHsCv8BBwsAAfMFAAG2CQABwgUAAeQJAAEbBQABdQIAAewB/wQHAf8DBwH/AQcLAALzA7wB8wG2
CQACwgGeAcIBngHCAeQJAAIbAb0B/wG9Af8BdQIAAewK/wEHBQAFtgEAAfMFAAG2AwAF5AEAAcIFAAHk
AwAFdQEAARsFAAF1AgAB7AH/BAcB/wMHAf8BBwUAAfMFAALzAbwB8wG8AfMBtgMAAcIFAALCAZ4BwgGe
AcIB5AMAARsFAAIbAb0B/wG9Af8BdQIAAewK/wEHBQAB8wO8AfMBAAHzAgAB8wYAAcIBngHCAZ4BwgEA
AcICAAGeBgABGwG9Af8BvQH/AQABGwIAAb0FAAHsAf8IBwH/AQcFAAHzBQAC8wG8AfMBAAHzBAABwgUA
AsIBngHCAQABwgQAARsFAAIbAb0BGwEAAf8DAAHsCv8BBwUAAfMBvAHzAbwB8wEABPMGAAHCAZ4BwgGe
AcIBAATCBgABGwG9Af8BvQH/AQAEGwUAAewB/wIHAf8FBwH/AQcFAAHzAgAB8wwAAcICAAHCDAABGwIA
Af8LAAHsCv8BBwUAAfMBvALzAQAB8woAAcIBngLCAQABwgoAARsBvQEbAfQBAAH/CQAB7AH/AgcB/wUH
Af8BBwUABPMMAATCDAAEGwsAAewI/zcAAewB/wYHAf8B7AH/NQAB7Aj/Aew2AArsDQABMAHsBwAB7AMA
AQcCAAEHAQABBwEAAQcCAAEHJwABMAH7AuwGAAHsBAcCAAEHAQABBwEAAQcCAAEHJgABMAP7AuwFAAHs
A/8BBwIAAQcBAAEHAQABBwIAAQcIAAdZCQAH1gYAATAF+wLsBAAB7AH/BAcB/wMHAf8BBwsAAcMFAAFZ
CQABGQUAAdYFAAEwAvsCAAP7AuwDAAHsCv8BBwsAAsMBmgHDAZoBwwFZCQACGQHdARkB3QEZAdYEAAEw
A/sCAAT7AuwCAAHsAf8EBwH/AwcB/wEHBQAFWQEAAcMFAAFZAwAF1gEAARkFAAHWAwABMAv7AuwBAAHs
Cv8BBwUAAcMFAALDAZoBwwGaAcMBWQMAARkFAAIZAd0BGQHdARkB1gIAATAF+wLqBvsD7AH/CAcB/wEH
BQABwwGaAcMBmgHDAQABwwIAAcMGAAEZAd0BGQHdARkBAAEZAgAB3QUAATAF+wIABvsB7AEAAewK/wEH
BQABwwUAAsMBmgHDAQABwwQAARkFAAIZAd0BGQEAARkEAAEwBPsCAAX7AewCAAHsAf8CBwH/BQcB/wEH
BQABwwGaAcMBmgHDAQAEwwYAARkB3QEZAd0BGQEABBkHAAEwA/sCAAT7AewDAAHsCv8BBwUAAcMCAAHD
DAABGQIAARkOAAEwAvsCAAP7AewEAAHsAf8CBwH/BQcB/wEHBQABwwGaAsMBAAHDCgABGQHdAhkBAAEZ
DQABMAH7AgAC+wHsBQAB7Aj/CAAEwwwABBkQAAEwA/sB7AYAAewB/wYHAf8B7AH/KwABMAH7AewHAAHs
CP8B7C0AATAIAArsJgABQgFNAT4HAAE+AwABKAMAAUADAAEQAQECAAEBAQABAQUAAYABCBYAA/8BAAT/
AcADAAT/BAAB/wEfAv8EAAH8AQcC/wQAAfABAQL/BAABwAEBAv8BgAEBAgABgAEBAv8BgAEDAgABgAEB
Av8BwAEDAgABwAEBAv8BwAEHAgABwAEBAv8B4AEHAgABwAEBAv8B4AEPAgABwAEDAv8B8AEPAgABwAEH
Av8B8AEfAgABwAEfAv8B+AEfAgAB4AF/Av8B+AE/AgAB8QP/AfwBfwIAAv8BgAE/AYABPwL/AYABAAGA
AT8BgAE/Av8CAAGAAQcBgAEHAf8BHwIAAYABBwGAAQcB/AEHAgABgAEHAYABBwHwAQECAAGAAQABgAEA
AcABAQIAAYABAAGAAQABgAEBAgABgAEAAYABAAGAAQECAAGAAQABgAEAAcABAQIAAYABAAGAAQABwAEB
AgAB8AEAAfABAAHAAQECAAHwAQAB8AEAAcABAwEAAQEB8AEAAfABAAHAAQcBgAH/Af4BAAH+AQABwAEf
AcEB/wH+AQAB/gEAAeABfwL/Af4BAQH+AQEB8Qf/AcABAQb/AcABAQb/AcABAQb/AcABAQb/AcABAQb/
AcABAQb/AcABAQb/AcABAQb/AcABAQb/AcABAQb/AcABAQb/AcABAQb/AcABAQb/AcABAwb/AcABBwb/
AcABD4D/BAAE/wF/Af4CAAT/AWABBgIAAf8BJAH/ASQBYAEGAgAB/wEkAf8BJAFgAQYCAAT/AWABBgMA
AT8BAAE/AWABBgMAAT8BAAE/AWABBgMAAT8BAAE/AWABBgMAAT8BAAE/AWABBgMAAT8BAAE/AWABBgMA
AT8BAAE/AWABBgMAAT8BAAE/AWABDgMAAT8BAAE/AWABHgMAAT8BAAE/AX8B/gMAAT8BAAE/BAAG/wHw
AQAB/wGHBP8B8AEAAf4BAwH8AQEC/wHwAQAB/AEBAfwBAQEAAT8BAAE/AfgBAAH8AQEBAAE/AQABPwH4
AgABAQEAAT8BAAE/AfgCAAEBAQABAwEAAQMB+AIAAQEBAAEDAQABAwH4AgABAQEAAQMBAAEDAfgCAAED
AQABAwEAAQMB5AEBAQABBwEAAQMBAAEDAcYCAAEPAQABAwEAAQMBgAEFAQAB/wEAAQMBAAEDAQABHwEB
Af8B8AEDAfABAwGAASMBAwH/AfABAwHwAQMBxwP/AfABAwHwAQMB5wHxBv8B8AEABv8B8AEABv8B8AEA
Av8BAAE/AQABPwEAAT8BAAE/AQABPwEAAT8BAAE/AQABPwEAAT8BAAE/AQABPwEAAT8BAAE/AQABAwEA
AQMBAAE/AQABPwEAAQMBAAEDAQABPwEAAT8BAAEDAQABAwEAAT8BAAE/AQABAwEAAQMBAAE/AQABPwEA
AQMBAAEDAQABPwEAAT8BAAEDAQABAwEAAT8BAAE/AQABAwEAAQMBAAE/Av8B8AEDAfABAwT/AfABAwHw
AQME/wHwAQMB8AEDBP8B8AEAAv8CAAL/AfABAAHwAQ8CAAL/AfABAAHgAQMDAAE/AQABPwHgAQEBAAEH
AQABPwEAAT8B8AIAAQcBAAE/AQABPwHwAgABBwEAAQMBAAEDAfgCAAEHAQABAwEAAQMB+AIAAQcBAAED
AQABAwGQAgABBwEAAQMBAAEDAwABBwEAAQMBAAEDAwABBwEAAQMBAAEDAwABBwEAAQMBAAEDAZgCAAEH
AfABAwHwAQMB+AIAAQ8B8AEDAfABAwH4AgABHwHwAQMB8AEDAv8BAAE/Af8BhwH/AYcB/wGHAv8B/gEB
Af4BAQH+AQEC/wH+AQAB/gEAAf4BAAL/AfwBAAH8AQAB/AIAAT8B/AEAAfwBAAH8AgABPwH8AQAB/AEA
AfwCAAE/Af4BAQH+AQEB/gEBAQABPwHgAQEB4AEBAeABAQEAAT8BgAEHAYABBwGAAQcBAAE/AYABPwGA
AT8BgAE/AQABPwEAAT8BAAE/AQABPwEAAT8BAAE/AQABPwEAAT8BAAE/AQABPwEAAT8BAAE/AQABPwGA
AX8BgAF/AYABfwL/AYABfwGAAX8BgAF/Av8B4QH/AeEB/wHhA/8B/gEAAeEB/wHhAv8BhwH+AQAB4QH/
AeEB/wH+AQEB/gEAAeABAAHgAQAB/gEAAf4BAAHgAQAB4AEAAfwBAAGAAQAB4AEAAeABAAH8AQABgAEA
AYABAAGAAQAB/AEAAYABAAGAAQABgAEAAf4BAQGABQAB4AEBAYAFAAGAAQcBgAUAAYABPwGAAQEFAAE/
AYABAwGAAQABgAIAAT8BgAEDAYABAQGAAQEBAAE/AYABBwHgAQMB4AEDAYABfwGAAX8B+AEDAfgBAwGA
AX8BgAF/AfgBBwH4AQcB4QH/AeABPwHgAT8B4AE/AeEB/wHgAR8B4AEfAeABHwHhAf8B4AEPAeABDwHg
AQ8B4QH/AeABBwHgAQcB4AEHAeEB/wHgAQMB4AEDAeABAwHgAQEB4AEBAeABAQHgAQEBgAEBAcABAQHA
AQEBwAEBAYABAQGAAQEBgAEBAYABAQEAAQEBgAEBAYABAQGAAQEBAAEBAYABAQGAAQEBgAEBAQABAQGA
AQEBgAEBAYABAQIAAYABAQGAAQEBgAEBAYABAAHAAQEBwAEBAcABAQGAAQAB4QEBAeEBAQHhAQEB4AEB
AfEBgwHxAYMB8QGDAf4BAQH5Af8B+QH/AfkB/wH+AQECAAH/Ab8B4AE/AeABPwIAAf8BfwHgAR8B4AEf
AwABAQHgAQ8B4AEPAwABAQHgAQcB4AEHAwABAQHgAQMB4AEDAwABAQHgAQEB4AEBAwABAQHAAQEBwAEB
AwABAQGAAQEBgAEBAwABAQGAAQEBgAEBAwABAQGAAQEBgAEBAwABAQGAAQEBgAEBAwABAQGAAQEBgAEB
AwABAQHAAQEBwAEBAwABAQHhAQEB4QEBAgAB/gH/AfEBgwHxAYMCAAH/AX8B+QH/AfkB/wH8A/8EAAH4
AX8BgAH/BAAB8AF/AcEB/wQAAYABHwHAAX8FAAE/AYABDwUAAQ8BAAEfBQABAQEAAQEFAAEDAQABAwQA
AYABAwEAAQMEAAHgAQEBgAEBBAAB4AEBAcABAQQAAfABAAHwBQAB+AEBAfgBAQQAAf4BAQH8AQEEAAH/
AQEB/wEBBAAB/wGBAf8BgwQAAv8B8AEAAv8B/gF/Av8B8AEAAv8B+AEfAv8B8AEAAv8B4AEHAQABPwEA
AT8B/AEfAYABAQEAAT8BAAE/AfwBHwEAAQMBAAE/AQABPwH8AR8BgAEBAQABAwEAAQMB/AEfAQABAwEA
AQMBAAEDAfwBHwGAAQEBAAEDAQABAwH4AQ8BAAEDAQABAwEAAQMB8AEHAYABAQEAAQMBAAEDAeABAwEA
AQMBAAEDAQABAwHAAQEBgAEBAQABAwEAAQMDAAEDAfABAwHwAQMCAAGAAQcB8AEDAfABAwL/AeABHwHw
AQMB8AEDAv8B+AF/Av8B8AGBAf8B9wT/AcABAQH/AfMC/wHuAQMBgAEBAf8B4QL/AeYBBwGAAQMBAQHA
AQABPwHDAQcBAAEPAQMBgQEAAT8BgQGDAQABBwGDAZMBAAE/AQMBAQEDAQEBwQG3AQABPwEmAQEBAwEB
AYABvwEAAT8BbgIAAQEBAAG/AQABPwF+AQEBgAEBAQABfwEAAT8BfgEBAYABBwEAAf8BAAE/Ab4BAgHA
AQMBAAH/AQABPwH/AQABwAIBAX8BAAE/Af8BgwHAAeABgAF/BP8BwAH+AcEF/wHjC/8BAAEHAfwBAQH8
AQEB/AEBAQABBwH8AQEB/AEBAfwBAQEAAQcB/AEBAfwBAQH8AQEBAAEHAQABAQEAAQEBAAEBAQABBwEA
AQEBAAEBAQABAQEAAQcBAAEBAQABAQEAAQEBAAEHAQABAQEAAQEBAAEBAQABBwEAAQMBAAEDAQABAwEA
AQcBAAEHAQABBwEAAQcBAAEHAQABDwEAAQ8BAAEPAQABBwEAAf8BAAH/AQAB/wEAAQcBAQH/AQEB/wEB
Af8BAAEHAQMB/wEDAf8BAwH/AQABDwb/AQABHwb/AQABPwH+AX8CAAT/AfwBPwIAAfwBAQH8AQEB+AEf
AgAB/AEBAfwBAQHwAQ8BAAEHAfwBAQH8AQEB4AEHAQABBwEAAQEBAAEBAcABAwEAAQcBAAEBAQABAQGA
AQEBAAEHAQABAQEAAQEDAAEHAQABAQEAAQEBAAEBAQABBwEAAQMBAAEDAYABAwEAAQcBAAEHAQABBwHA
AQcBAAEHAQABDwEAAQ8B4AEPAQABBwEAAf8BAAH/AfABHwEAAQcBAQH/AQEB/wH4AT8BAAEPAQMB/wED
Af8B/AF/AQABHwT/Af4B/wEAAT8E/ws=
</value>
</data>
<metadata name="ImageList3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>993, 17</value>
</metadata>
<metadata name="ContextMenu3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>870, 17</value>
</metadata>
<metadata name="SqlDataAdapter1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>404, 17</value>
</metadata>
<metadata name="SqlDeleteCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="SqlDeleteCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="SqlDeleteCommand1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
<metadata name="SqlConnection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>539, 17</value>
</metadata>
<metadata name="SqlInsertCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="SqlInsertCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="SqlInsertCommand1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
<metadata name="SqlSelectCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="SqlSelectCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="SqlSelectCommand1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 54</value>
</metadata>
<metadata name="SqlUpdateCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="SqlUpdateCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="SqlUpdateCommand1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
<metadata name="DataSet1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>773, 17</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>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 54</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>238</value>
</metadata>
<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
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,189 @@
<?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="ContextMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="vorlagenlist.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="vorlagenlist.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="vorlagenlist.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;}Style26{}Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}Caption{AlignHorz:Center;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style9{}Normal{BackColor:Control;}Style2{}Style14{}Style27{}Style7{}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert:Center;}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;172&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, 364, 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;Modified&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 366, 174&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style14" /&gt;&lt;PrintPageFooterStyle parent="" me="Style15" /&gt;&lt;/Blob&gt;</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//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,230 @@
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.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmpersvorlageladen))
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.AlternatingRows = True
Me.vorlagenlist.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Floating
Me.vorlagenlist.ContextMenu = Me.ContextMenu1
Me.vorlagenlist.Cursor = System.Windows.Forms.Cursors.Default
Me.vorlagenlist.Dock = System.Windows.Forms.DockStyle.Top
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("vorlagenlist.Images"), System.Drawing.Image))
Me.vorlagenlist.Location = New System.Drawing.Point(0, 0)
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.PageSettings = CType(resources.GetObject("vorlagenlist.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
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 = resources.GetString("vorlagenlist.PropBag")
'
'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.Size = New System.Drawing.Size(75, 23)
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.Add(Me.Button1)
Me.Controls.Add(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,243 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="C1CommandHolder1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>126, 31</value>
</metadata>
<metadata name="C1ContextMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>280, 31</value>
</metadata>
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>416, 31</value>
</metadata>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAU
CQAAAk1TRnQBSQFMAgEBAgEAAQwBAAEMAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
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/0gAAewBBwHsDAABAwH/
LQAB7AMHA+wIAAHsAQMB7AH/KgAC7AUHBewEAAEDAewBAwHsAQMB/yoAAewB/wQHAf8G7AIAAQMB7AED
AewBAwHsAf8BAAHsJwAC7AH/AgcC/wMHBOwCAAHsAQMB7AEDAewBAwH/AQAB7CgAAewB/wIHAvoC+QMH
AuwCAAEDAewBAwIAAewB/wEAAewmAAHsAv8C7AH/BQcC7AEAAQcCAAHsAQMB7AIHAQMB/wEAAewBAAEG
JAAB7AP/AQAC7AH/AQcC7AEHAf8BAAEHAgABAwHsAQMB7AEDAewB/wIAAQYF/iAAAewD/wEAAf8BAALs
AQcE/wMAAewBAwHsAQMB7AEDAf8BAAFtBv4gAAHsA/8BAAH/AgAB7Ab/AgABAwHsAQMB7AEDAewB/wEA
AewBbQH+BG0gAAXsAf8BAAH/AQAB7AP/AuwCAAHsAQMB7AEDAewBAwH/AQAB7AEAAm0lAAHsA/8BAAH/
AgAD7AQAAQMB7AEDAewBBwH/AewBAAHsAgABbSUABewB/wkAAewBAwEHAf8B7AEAA+wqAAHsA/8EAAH/
BAABBwH/AewBAAXsKgAF7DcAAUIBTQE+BwABPgMAASgDAAFAAwABEAMAAQEBAAEBBQABgBcAA/8BAAH+
AR8B/AF/BAAB/AEPAfABfwQAAeABAwHAAX8EAAHAAgABHwQAAcACAAEfBAABgAIAARcHAAEHFQABAQ8A
AYEBAAEHBAABwAHHAQABFwQAAcABfwEAAR8EAAHwAXcBAAEfBAAB8AF/AQABHwQACw==
</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="djlist.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="djlist.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="djlist.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style10{AlignHorz:Near;}EvenRow{BackColor:White;}Normal{BackColor:Control;}RecordSelector{AlignImage:Center;}OddRow{BackColor:224, 224, 224;}Style6{}Footer{}Style14{}FilterBar{BackColor:255, 255, 192;}Heading{AlignVert:Center;Wrap:True;ForeColor:ControlText;BackColor:Control;Border:Raised,,1, 1, 1, 1;}Style5{}Editor{}Style12{}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style27{}Style26{}Style13{}Style9{}Style11{}Style4{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;Height&gt;175&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, 460, 175&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="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, 462, 175&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style14" /&gt;&lt;PrintPageFooterStyle parent="" me="Style15" /&gt;&lt;/Blob&gt;</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
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,838 @@
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.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmsbdruck))
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.C1CommandLink4 = New C1.Win.C1Command.C1CommandLink()
Me.c1deldok = 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()
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.AddRange(New C1.Win.C1Command.C1CommandLink() {Me.C1MnuMainNeuerSerienbrief, Me.C1MnuMainSerienbriefLaden, Me.C1MnuSerienbriefLoeschen, Me.C1MnuMainSerienbriefabschliessen, Me.C1MnuMainSerienbriefSpeichern, Me.C1MnuMainFensterSchliessen})
Me.MnuMainDatei.Name = "MnuMainDatei"
Me.MnuMainDatei.Text = "&Datei"
'
'C1MnuMainNeuerSerienbrief
'
Me.C1MnuMainNeuerSerienbrief.Command = Me.MnuMainNew
Me.C1MnuMainNeuerSerienbrief.Text = "&Neuer Serienbrief"
'
'MnuMainNew
'
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.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.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.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.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.ImageIndex = 0
Me.MnuMainClose.Name = "MnuMainClose"
Me.MnuMainClose.Text = "&Fenster schliessen"
'
'MnuMainDokument
'
Me.MnuMainDokument.CommandLinks.AddRange(New C1.Win.C1Command.C1CommandLink() {Me.C1MnuMainVorlageImportieren, Me.C1MnuMainVorlageBearbeiten, Me.C1MnuMainVorschauErstellen, Me.C1MnuDokumenteGenerieren, Me.C1MnuMainDokumenteDrucken, Me.C1MnuMainDokumenteBestaetigen})
Me.MnuMainDokument.Name = "MnuMainDokument"
Me.MnuMainDokument.Text = "Dokument"
'
'C1MnuMainVorlageImportieren
'
Me.C1MnuMainVorlageImportieren.Command = Me.MnuMainVorlageImportieren
Me.C1MnuMainVorlageImportieren.Text = "Vorlage &importieren"
'
'MnuMainVorlageImportieren
'
Me.MnuMainVorlageImportieren.Name = "MnuMainVorlageImportieren"
Me.MnuMainVorlageImportieren.Text = "Vorlage &importieren"
'
'C1MnuMainVorlageBearbeiten
'
Me.C1MnuMainVorlageBearbeiten.Command = Me.MnuMainVorageBearbeiten
Me.C1MnuMainVorlageBearbeiten.Text = "Vorlage &bearbeiten"
'
'MnuMainVorageBearbeiten
'
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.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.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.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.ImageIndex = 13
Me.MnuMainDokumenteBestaetigen.Name = "MnuMainDokumenteBestaetigen"
Me.MnuMainDokumenteBestaetigen.Text = "Generierte Dokumente bestätigen"
'
'MnuMainEmpfaengerliste
'
Me.MnuMainEmpfaengerliste.CommandLinks.AddRange(New C1.Win.C1Command.C1CommandLink() {Me.C1MnuEDOKAHOSTPartnerHinzufuegen, Me.C1MnuMainEDOKAPartnerErfassen, Me.C1MnuMainNeuerEmpfaengerErfassen, Me.C1MnuMainEmpfaengerBearbeitten, Me.C1MnuMainEmpfaengerLoeschen, Me.C1MnuEDOKAPartnerErfassen, Me.C1MnuMainImportEmpfaneger, Me.C1MnuMainExportEmpfaenger, Me.C1MnuMainLoadPartnerliste, Me.C1MnuMainSaveAsPartnerlist, Me.C1MnuMainCheckEmpfaenger})
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.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.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.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.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.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.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.Name = "MnuMainImportEmpfaenger"
Me.MnuMainImportEmpfaenger.Text = "Empfängerliste importieren"
'
'C1MnuMainExportEmpfaenger
'
Me.C1MnuMainExportEmpfaenger.Command = Me.MnuMainExportEmpfaenger
Me.C1MnuMainExportEmpfaenger.Text = "Empfängerliste exportieren"
'
'MnuMainExportEmpfaenger
'
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.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.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.ImageIndex = 17
Me.MnuMainCheckEmpfaenger.Name = "MnuMainCheckEmpfaenger"
Me.MnuMainCheckEmpfaenger.Text = "Empfängerliste prüfen"
'
'C1CommandMenu1
'
Me.C1CommandMenu1.CommandLinks.AddRange(New C1.Win.C1Command.C1CommandLink() {Me.C1MnuMainAddColumn, Me.C1MnuMainDeleteColumn, Me.C1MnuMainRenameColumn, Me.C1MnuMainSpaltenselektion})
Me.C1CommandMenu1.Name = "C1CommandMenu1"
Me.C1CommandMenu1.Text = "&Individuelle Dokumentwerte"
'
'C1MnuMainAddColumn
'
Me.C1MnuMainAddColumn.Command = Me.MnuMainAddColumn
Me.C1MnuMainAddColumn.Text = "Spalte hinzufügen"
'
'MnuMainAddColumn
'
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.Name = "MnuMainDeleteColumn"
Me.MnuMainDeleteColumn.Text = "Markierte Spalte löschen"
'
'C1MnuMainRenameColumn
'
Me.C1MnuMainRenameColumn.Command = Me.MnuMainRenameColumn
Me.C1MnuMainRenameColumn.Text = "Markierte Spalte umbenennen"
'
'MnuMainRenameColumn
'
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.Name = "MnuMainSpaltenselektion"
Me.MnuMainSpaltenselektion.Text = "Spalten-Selektion"
'
'mnuctAddHost
'
Me.mnuctAddHost.ImageIndex = 16
Me.mnuctAddHost.Name = "mnuctAddHost"
Me.mnuctAddHost.Text = "EDOKA-/HOST-Partner hinzufügen"
'
'mnuCTADDEdokapartner
'
Me.mnuCTADDEdokapartner.ImageIndex = 18
Me.mnuCTADDEdokapartner.Name = "mnuCTADDEdokapartner"
Me.mnuCTADDEdokapartner.Text = "Neuer EDOKA-Partner erfassen"
'
'mnuctaddempfaenger
'
Me.mnuctaddempfaenger.ImageIndex = 19
Me.mnuctaddempfaenger.Name = "mnuctaddempfaenger"
Me.mnuctaddempfaenger.Text = "Neuer Empfänger erfassen"
'
'C1ContextMenu1
'
Me.C1ContextMenu1.CommandLinks.AddRange(New C1.Win.C1Command.C1CommandLink() {Me.C1CommandLink1, Me.C1CommandLink3, Me.C1CommandLink4, Me.C1CommandLink2})
Me.C1ContextMenu1.ImageIndex = 0
Me.C1ContextMenu1.Name = "C1ContextMenu1"
'
'C1CommandLink1
'
Me.C1CommandLink1.Command = Me.c1dokumentedrucken
Me.C1CommandLink1.Text = "Dokumente drucken"
'
'c1dokumentedrucken
'
Me.c1dokumentedrucken.Name = "c1dokumentedrucken"
Me.c1dokumentedrucken.Text = "Dokumente drucken"
'
'C1CommandLink3
'
Me.C1CommandLink3.Command = Me.c1showdoc
Me.C1CommandLink3.Text = "Dokumente anzeigen"
'
'c1showdoc
'
Me.c1showdoc.Name = "c1showdoc"
Me.c1showdoc.Text = "Dokumente anzeigen"
'
'C1CommandLink4
'
Me.C1CommandLink4.Command = Me.c1deldok
Me.C1CommandLink4.Text = "Dokumente löschen"
'
'c1deldok
'
Me.c1deldok.Name = "c1deldok"
Me.c1deldok.Text = "Dokumente löschen"
'
'C1CommandLink2
'
Me.C1CommandLink2.Command = Me.c1statuszuruecksetzen
Me.C1CommandLink2.Delimiter = True
Me.C1CommandLink2.Text = "Status zurücksetzen"
'
'c1statuszuruecksetzen
'
Me.c1statuszuruecksetzen.Name = "c1statuszuruecksetzen"
Me.c1statuszuruecksetzen.Text = "Status zurücksetzen"
'
'ImageList1
'
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
Me.ImageList1.Images.SetKeyName(0, "")
Me.ImageList1.Images.SetKeyName(1, "")
'
'ToolBar1
'
Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1})
Me.ToolBar1.DropDownArrows = True
Me.ToolBar1.ImageList = Me.ImageList1
Me.ToolBar1.Location = New System.Drawing.Point(0, 0)
Me.ToolBar1.Name = "ToolBar1"
Me.ToolBar1.ShowToolTips = True
Me.ToolBar1.Size = New System.Drawing.Size(464, 28)
Me.ToolBar1.TabIndex = 29
'
'ToolBarButton1
'
Me.ToolBarButton1.ImageIndex = 1
Me.ToolBarButton1.Name = "ToolBarButton1"
'
'djlist
'
Me.djlist.AllowDelete = True
Me.djlist.AlternatingRows = True
Me.C1CommandHolder1.SetC1ContextMenu(Me.djlist, Me.C1ContextMenu1)
Me.djlist.Cursor = System.Windows.Forms.Cursors.Default
Me.djlist.Dock = System.Windows.Forms.DockStyle.Fill
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("djlist.Images"), System.Drawing.Image))
Me.djlist.Location = New System.Drawing.Point(0, 28)
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.0R
Me.djlist.PrintInfo.PageSettings = CType(resources.GetObject("djlist.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.djlist.ScrollTips = True
Me.djlist.Size = New System.Drawing.Size(464, 177)
Me.djlist.TabIndex = 30
Me.djlist.Text = "C1TrueDBGrid1"
Me.djlist.PropBag = resources.GetString("djlist.PropBag")
'
'frmsbdruck
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(464, 205)
Me.Controls.Add(Me.djlist)
Me.Controls.Add(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)
Me.PerformLayout()
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,549 @@
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 DivFnkt.PartnerTyp(Val(Me.txtnrpar00.Text)) = EDOKA.clsDivFnkt.ENUM_Partnertyp.EDOKA_Interessent Then
'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,194 @@
<?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="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABu
CQAAAk1TRnQBSQFMAgEBAwEAARQBAAEUAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
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/yEAAQcC7CMAAQMB/w8A
AewIAAHsAfsBAwHsIAAB7AEDAewB/w8AAewJAAL7AQMB7B0AAQMB7AEDAewBAwH/DgAC7AoAAvsBAwHs
GwABAwHsAQMB7AEDAewB/wEAAewMAALsCwAC+wEDAewaAAHsAQMB7AEDAewBAwH/AQAB7AsAA+wLAAEH
AvsB7AIABAcUAAEDAewBAwIAAewB/wEAAewLAAPsDQACBwHsBf8BBxMAAewBAwHsAgcBAwH/AQAB7AEA
AQYIAATsDgAB7Af/AQcSAAEDAewBAwHsAQMB7AH/AgABBgX+BAAE7A4AAgcH/wEHEQAB7AEDAewBAwHs
AQMB/wEAAW0G/gMABewNAAEHAf8CBwb/AewRAAEDAewBAwHsAQMB7AH/AQAB7AFtAf4EbQMABewNAAEH
Af8CBwb/AQcRAAHsAQMB7AEDAewBAwH/AQAB7AEAAm0FAAbsDQABBwH/AwcF/wHsEQABAwHsAQMB7AEH
Af8B7AEAAewCAAFtBQAG7A4AAQcC/wIHBP8SAAHsAQMBBwH/AewBAAPsBwAG7AIHDQABBwP/AwcB/wHs
EgABBwH/AewBAAXsBwAD7AgHCwACBwP/AgciAAHsDgcKAAMHFAABQgFNAT4HAAE+AwABKAMAAUADAAEQ
AwABAQEAAQEFAAGAFwAD/wEAAfwBfwH/AX8BHwH/AgAB8AF/Af4BfwEPAf8CAAHAAX8B/gE/AYcB/wMA
AR8B/AE/AcMB/wMAAR8B/AEfAeEB/wMAARcB+AEfAeEBhwMAAQcB+AEPAfgBAwQAAfABDwH8AQEEAAHw
AQcB/AUAAeABBwH4BQAB4AEDAfgEAAEHAcABAwH4BAABFwHAAQEB/AEBAwABHwGAAQEB/AEBAwABHwGA
AQAB/gEDAwABHwIAAf8BjwIACw==
</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" 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,991 @@
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports System.IO
Imports System.Data.OleDb
Imports UtilityLibrary.Win32
Imports System.Threading
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 tsbtnpreview As System.Windows.Forms.ToolBarButton
Friend WithEvents cbpartner As System.Windows.Forms.ComboBox
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmtextmarken))
Me.ToolBar1 = New System.Windows.Forms.ToolBar
Me.ToolBarButton2 = New System.Windows.Forms.ToolBarButton
Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton
Me.tsbtnpreview = New System.Windows.Forms.ToolBarButton
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.Panel1 = New System.Windows.Forms.Panel
Me.cbpartner = New System.Windows.Forms.ComboBox
Me.SuspendLayout()
'
'ToolBar1
'
Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton2, Me.ToolBarButton1, Me.tsbtnpreview})
Me.ToolBar1.DropDownArrows = True
Me.ToolBar1.ImageList = Me.ImageList1
Me.ToolBar1.Location = New System.Drawing.Point(0, 0)
Me.ToolBar1.Name = "ToolBar1"
Me.ToolBar1.ShowToolTips = True
Me.ToolBar1.Size = New System.Drawing.Size(344, 28)
Me.ToolBar1.TabIndex = 0
'
'ToolBarButton2
'
Me.ToolBarButton2.ImageIndex = 0
Me.ToolBarButton2.Name = "ToolBarButton2"
'
'ToolBarButton1
'
Me.ToolBarButton1.ImageIndex = 1
Me.ToolBarButton1.Name = "ToolBarButton1"
Me.ToolBarButton1.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
'
'tsbtnpreview
'
Me.tsbtnpreview.ImageIndex = 2
Me.tsbtnpreview.Name = "tsbtnpreview"
Me.tsbtnpreview.ToolTipText = "Vorschau"
'
'ImageList1
'
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
Me.ImageList1.Images.SetKeyName(0, "")
Me.ImageList1.Images.SetKeyName(1, "")
Me.ImageList1.Images.SetKeyName(2, "Lupe2.png")
'
'Panel1
'
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 28)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(344, 473)
Me.Panel1.TabIndex = 1
'
'cbpartner
'
Me.cbpartner.FormattingEnabled = True
Me.cbpartner.Location = New System.Drawing.Point(79, 3)
Me.cbpartner.Name = "cbpartner"
Me.cbpartner.Size = New System.Drawing.Size(253, 21)
Me.cbpartner.TabIndex = 2
'
'frmtextmarken
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(344, 501)
Me.Controls.Add(Me.cbpartner)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.ToolBar1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmtextmarken"
Me.Text = "Dokumentbefüllung bearbeiten"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
#End Region
#Region "Deklarationen"
Dim serienbriefnr As Integer
Dim DokumentBearbeitungDurchUser As Boolean
Dim WithEvents objword As Microsoft.Office.Interop.Word.Application
Dim WithEvents objdoc As Microsoft.Office.Interop.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
Public Event Vorschau(ByVal Filename As String, ByVal bpnr As Integer)
#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 2
objword.ActiveDocument.Save()
'Rel. Office 2010
Dim dokumentname = Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + Me.serienbriefnr.ToString + "_vorlage" + System.IO.Path.GetExtension(objword.ActiveDocument.Name)
'Rel. Office 2010
FileCopy(dokumentname, dokumentname + "_Preview" + System.IO.Path.GetExtension(objword.ActiveDocument.Name))
Dim bpnr As Integer
Dim i As Integer
Dim pnr As Integer
i = Me.cbpartner.Text.ToString.IndexOf("-")
pnr = Me.cbpartner.Text.ToString.Substring(0, i - 1)
pnr = Trim(pnr)
bpnr = pnr
'Rel. Office 2010
RaiseEvent Vorschau(dokumentname + "_Preview" + System.IO.Path.GetExtension(dokumentname), bpnr)
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
Private Sub document_beforeclose(ByVal Doc As Microsoft.Office.Interop.Word.Document, ByRef Cancel As Boolean) Handles objword.DocumentBeforeClose
If Doc.Name = sbdokumentname And Not Schliessen_OK Then
MsgBox("Bitte schliessen Sie das Dokument durch schliessen des Fensters 'Dokumentbefüllung bearbeiten'.", vbInformation)
Cancel = True
End If
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, Optional ByVal Vorschau_Aktivieren As Boolean = False)
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
If Vorschau_Aktivieren = True Then
Me.tsbtnpreview.Visible = True
Me.cbpartner.Visible = True
For Each dr As DataRow In Me.dsempfaenger.Tables(0).Rows
Me.cbpartner.Items.Add(dr.Item("Partnernr").ToString + " - " + dr.Item("Kurzbezeichnung").ToString)
Next
Me.cbpartner.SelectedIndex = 0
Else
Me.tsbtnpreview.Visible = False
Me.cbpartner.Visible = 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"
Dim sbdokumentname As String = ""
Public Sub Load_Document(Optional ByVal visible As Boolean = True)
'Rel. Office 2010
Dim dokumentname As String = Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + Me.serienbriefnr.ToString + "_vorlage.docx"
Vorlage_Auslesen(dokumentname)
StartWord(True)
objword.Documents.Open(dokumentname)
objdoc = objword.ActiveDocument
If visible = True Then sbdokumentname = objdoc.Name
objword.Visible = visible
objword.WindowState = Microsoft.Office.Interop.Word.WdWindowState.wdWindowStateMaximize
End Sub
Private Function StartWord(Optional ByVal newinstance As Boolean = False)
Try
If Globals.Office_2010_Always_New_Word = True Then
objword = CreateObject("Word.Application")
Else
objword = GetObject(, "Word.Application")
objword.Application.Options.SaveInterval = 0
End If
Catch
Try
objword = CreateObject("Word.Application")
objword.Application.Options.SaveInterval = 0
Catch ex As Exception
MsgBox(ex.Message)
End Try
Finally
objword.Visible = False
End Try
Try
If Globals.Office_2010_Word_Autoexec = True Then
Thread.Sleep(Globals.Office_2010_Word_Start_Delay)
objword.Run("Autoexec")
Else
Try
Dim addinfile As String = DivFnkt.XML_Param("TKBMakroLib")
Thread.Sleep(Globals.Office_2010_Word_Start_Delay)
If addinfile <> "" Then objword.AddIns.Add(addinfile)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
Catch ex As Exception
DivFnkt.TraceLog("-----------Fehler Autoexec Ende")
End Try
'Me.Errormessage = "15"
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
Try
Me.objdoc = Nothing
Catch
End Try
Try
Me.objword = Nothing
Catch
End Try
Exit Function
End If
If Me.DokumentBearbeitungDurchUser = True Then
Me.objword.ActiveDocument.Save()
Me.objdoc = Me.objword.ActiveDocument
Application.DoEvents()
If Me.Filldoc = True Then 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
Try
Me.objdoc = Nothing
Catch
End Try
Try
Me.objword = Nothing
Catch
End Try
Me.Vorlage_Speichern()
Exit Function
End If
Application.DoEvents()
If Me.objword.Documents.Count = 1 Then
Me.objword.Quit(savechanges:=False)
End If
Try
Me.objdoc = Nothing
Catch
End Try
Try
Me.objword = Nothing
Catch
End Try
Application.DoEvents()
'Me.Vorlage_Speichern()
Catch ex As Exception
'MyMsg.show_standardmessage(728, MsgBoxStyle.Critical)
End Try
End Function
#End Region
#Region "Datenzugriffe"
Private Function Vorlage_Auslesen(Optional ByRef dateiname As String = "") As Boolean
Try
'Rel. Office 2010
Dim dokumentname = Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + Me.serienbriefnr.ToString + "_vorlage.docx"
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)
dokumentname = Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + Me.serienbriefnr.ToString + "_vorlage" + myRow.Item(2)
Dim fs As New FileStream(dokumentname, FileMode.OpenOrCreate, FileAccess.Write)
fs.Write(MyData, 0, K)
fs.Close()
fs = Nothing
dateiname = dokumentname
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 = ""
'Rel. Office 2010
Dim dokumentname = Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + Me.serienbriefnr.ToString + "_vorlage.docx"
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 FileStream
Try
Connection.ConnectionString = Globals.sConnectionString
Connection.Open()
DA.Fill(ds, "vorlage")
Dim myRow As DataRow
myRow = ds.Tables(0).Rows(0)
dokumentname = Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + Me.serienbriefnr.ToString + "_vorlage" + myRow.Item(2)
fs = New FileStream(dokumentname, FileMode.Open, FileAccess.Read)
Dim mydata(fs.Length) As Byte
fs.Read(mydata, 0, fs.Length)
fs.Close()
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:=Microsoft.Office.Interop.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:=Microsoft.Office.Interop.Word.WdGoToItem.wdGoToBookmark, Name:=TMName)
Activate_Word()
Catch ex As Exception
End Try
Else
Try
objword.Selection.GoTo(what:=Microsoft.Office.Interop.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
'ContentControls
Try
If row.Item("Feldname").ToString.Substring(0, 3) = "cc_" Then
s = row.Item("Feldname")
Else
s = objword.ActiveDocument.FormFields.Item(row.Item("feldname")).Name()
End If
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 Microsoft.Office.Interop.Word.Application()
'objword.WindowState = Microsoft.Office.Interop.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
'Rel. Office 2010
Dim dokumentname = Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + serienbriefnr.ToString + "_vorlage.docx"
'objword.Documents.Open(dokumentname)
'objword.Visible = False
'objword.WindowState = Microsoft.Office.Interop.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:=Microsoft.Office.Interop.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:=Microsoft.Office.Interop.Word.WdUnits.wdStory)
If objword.ActiveWindow.View.SplitSpecial <> Microsoft.Office.Interop.Word.WdSpecialPane.wdPaneNone Then
objword.ActiveWindow.Panes.Item(2).Close()
End If
If objword.ActiveWindow.ActivePane.View.Type = Microsoft.Office.Interop.Word.WdViewType.wdNormalView Or objword.ActiveWindow.ActivePane.View.Type = Microsoft.Office.Interop.Word.WdViewType.wdOutlineView Then
objword.ActiveWindow.ActivePane.View.Type = Microsoft.Office.Interop.Word.WdViewType.wdPrintView
End If
objword.ActiveWindow.ActivePane.View.SeekView = Microsoft.Office.Interop.Word.WdSeekView.wdSeekCurrentPageHeader
set_headerbookmark()
objword.ActiveWindow.ActivePane.View.SeekView = Microsoft.Office.Interop.Word.WdSeekView.wdSeekMainDocument
End Sub
Private Sub set_headerbookmark()
Try
objword.ActiveDocument.Bookmarks.Item("TGEDKCompanyBBEB99").Select()
Catch
objword.Selection.MoveDown(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdLine, Count:=1)
With objword.ActiveDocument.Bookmarks
.Add(Range:=objword.Selection.Range, Name:="TGEDKCompanyBBEB99")
.DefaultSorting = Microsoft.Office.Interop.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

Binary file not shown.