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

Initial commit

Browse Source
This commit is contained in:
Stefan Hutter
2022-10-03 16:21:20 +02:00
commit aeddcb75ec
3897 changed files with 2127526 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

108
EDOKA/Backup1/EDEX/Serienbriefe/Controls/ucProgress.resx Normal file
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>

82
EDOKA/Backup1/EDEX/Serienbriefe/Controls/ucProgress.vb Normal file
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

174
EDOKA/Backup1/EDEX/Serienbriefe/Controls/ucedit.resx Normal file
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>

503
EDOKA/Backup1/EDEX/Serienbriefe/Controls/ucedit.vb Normal file
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

174
EDOKA/Backup1/EDEX/Serienbriefe/Controls/ucnoedit.resx Normal file
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>

483
EDOKA/Backup1/EDEX/Serienbriefe/Controls/ucnoedit.vb Normal file
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