Initial commit

This commit is contained in:
2020-10-21 10:43:18 +02:00
commit 56bd02798f
5848 changed files with 2659025 additions and 0 deletions

View File

@@ -0,0 +1,519 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FrmDocmSettings
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmDocmSettings))
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.SchliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AlleVorlagenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.VorlagenMitDOCMSettingsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker()
Me.C1Dokumenttypen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.C1DokumenttypStatus = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.CheckBox2 = New System.Windows.Forms.CheckBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.Button3 = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button()
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
Me.cbboxedoka = New System.Windows.Forms.CheckBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.cbboxoutlook = New System.Windows.Forms.CheckBox()
Me.Label13 = New System.Windows.Forms.Label()
Me.cbboxclm = New System.Windows.Forms.CheckBox()
Me.txtBeschreibung = New System.Windows.Forms.TextBox()
Me.Label14 = New System.Windows.Forms.Label()
Me.MenuStrip1.SuspendLayout()
CType(Me.C1Dokumenttypen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
CType(Me.C1DokumenttypStatus, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox3.SuspendLayout()
Me.GroupBox4.SuspendLayout()
Me.GroupBox5.SuspendLayout()
Me.SuspendLayout()
'
'MenuStrip1
'
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SchliessenToolStripMenuItem, Me.AlleVorlagenToolStripMenuItem, Me.VorlagenMitDOCMSettingsToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(1043, 24)
Me.MenuStrip1.TabIndex = 0
Me.MenuStrip1.Text = "MenuStrip1"
'
'SchliessenToolStripMenuItem
'
Me.SchliessenToolStripMenuItem.Name = "SchliessenToolStripMenuItem"
Me.SchliessenToolStripMenuItem.Size = New System.Drawing.Size(73, 20)
Me.SchliessenToolStripMenuItem.Text = "Schliessen"
'
'AlleVorlagenToolStripMenuItem
'
Me.AlleVorlagenToolStripMenuItem.Name = "AlleVorlagenToolStripMenuItem"
Me.AlleVorlagenToolStripMenuItem.Size = New System.Drawing.Size(88, 20)
Me.AlleVorlagenToolStripMenuItem.Text = "Alle Vorlagen"
'
'VorlagenMitDOCMSettingsToolStripMenuItem
'
Me.VorlagenMitDOCMSettingsToolStripMenuItem.Name = "VorlagenMitDOCMSettingsToolStripMenuItem"
Me.VorlagenMitDOCMSettingsToolStripMenuItem.Size = New System.Drawing.Size(172, 20)
Me.VorlagenMitDOCMSettingsToolStripMenuItem.Text = "Vorlagen mit DOCM-Settings"
'
'C1Dokumenttypen
'
Me.C1Dokumenttypen.AlternatingRows = True
Me.C1Dokumenttypen.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1Dokumenttypen.FetchRowStyles = True
Me.C1Dokumenttypen.FilterBar = True
Me.C1Dokumenttypen.GroupByCaption = "Drag a column header here to group by that column"
Me.C1Dokumenttypen.Images.Add(CType(resources.GetObject("C1Dokumenttypen.Images"), System.Drawing.Image))
Me.C1Dokumenttypen.Location = New System.Drawing.Point(3, 16)
Me.C1Dokumenttypen.Name = "C1Dokumenttypen"
Me.C1Dokumenttypen.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1Dokumenttypen.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1Dokumenttypen.PreviewInfo.ZoomFactor = 75.0R
Me.C1Dokumenttypen.PrintInfo.PageSettings = CType(resources.GetObject("C1Dokumenttypen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1Dokumenttypen.RecordSelectorWidth = 16
Me.C1Dokumenttypen.Size = New System.Drawing.Size(264, 613)
Me.C1Dokumenttypen.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
Me.C1Dokumenttypen.TabIndex = 14
Me.C1Dokumenttypen.Text = "C1Dokumenttypen"
Me.C1Dokumenttypen.PropBag = resources.GetString("C1Dokumenttypen.PropBag")
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.C1Dokumenttypen)
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Left
Me.GroupBox1.Location = New System.Drawing.Point(0, 24)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(270, 632)
Me.GroupBox1.TabIndex = 15
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Dokumenttypen"
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.C1DokumenttypStatus)
Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Top
Me.GroupBox2.Location = New System.Drawing.Point(270, 24)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(773, 304)
Me.GroupBox2.TabIndex = 16
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Dokumenttyp-Status"
'
'C1DokumenttypStatus
'
Me.C1DokumenttypStatus.AlternatingRows = True
Me.C1DokumenttypStatus.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1DokumenttypStatus.FetchRowStyles = True
Me.C1DokumenttypStatus.FilterBar = True
Me.C1DokumenttypStatus.GroupByCaption = "Drag a column header here to group by that column"
Me.C1DokumenttypStatus.Images.Add(CType(resources.GetObject("C1DokumenttypStatus.Images"), System.Drawing.Image))
Me.C1DokumenttypStatus.Location = New System.Drawing.Point(3, 16)
Me.C1DokumenttypStatus.Name = "C1DokumenttypStatus"
Me.C1DokumenttypStatus.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1DokumenttypStatus.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1DokumenttypStatus.PreviewInfo.ZoomFactor = 75.0R
Me.C1DokumenttypStatus.PrintInfo.PageSettings = CType(resources.GetObject("C1DokumenttypStatus.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1DokumenttypStatus.RecordSelectorWidth = 16
Me.C1DokumenttypStatus.Size = New System.Drawing.Size(767, 285)
Me.C1DokumenttypStatus.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
Me.C1DokumenttypStatus.TabIndex = 14
Me.C1DokumenttypStatus.Text = "C1TrueDBGrid1"
Me.C1DokumenttypStatus.PropBag = resources.GetString("C1DokumenttypStatus.PropBag")
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.Label6)
Me.GroupBox3.Controls.Add(Me.CheckBox1)
Me.GroupBox3.Controls.Add(Me.Label5)
Me.GroupBox3.Controls.Add(Me.Label4)
Me.GroupBox3.Controls.Add(Me.Button2)
Me.GroupBox3.Controls.Add(Me.Button1)
Me.GroupBox3.Controls.Add(Me.TextBox1)
Me.GroupBox3.Controls.Add(Me.Label3)
Me.GroupBox3.Controls.Add(Me.Label2)
Me.GroupBox3.Controls.Add(Me.Label1)
Me.GroupBox3.Dock = System.Windows.Forms.DockStyle.Left
Me.GroupBox3.Location = New System.Drawing.Point(270, 444)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(404, 212)
Me.GroupBox3.TabIndex = 17
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "DOCM-Parameter"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(15, 146)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(110, 13)
Me.Label6.TabIndex = 9
Me.Label6.Text = "DOCM auf Ebene RO"
'
'CheckBox1
'
Me.CheckBox1.AutoSize = True
Me.CheckBox1.Location = New System.Drawing.Point(131, 146)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(15, 14)
Me.CheckBox1.TabIndex = 8
Me.CheckBox1.UseVisualStyleBackColor = True
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(349, 22)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(39, 13)
Me.Label5.TabIndex = 7
Me.Label5.Text = "Label5"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(314, 22)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(28, 13)
Me.Label4.TabIndex = 6
Me.Label4.Text = "Key:"
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(99, 176)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 5
Me.Button2.Text = "Löschen"
Me.Button2.UseVisualStyleBackColor = True
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(18, 176)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 4
Me.Button1.Text = "Speichern"
Me.Button1.UseVisualStyleBackColor = True
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(18, 68)
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(345, 72)
Me.TextBox1.TabIndex = 3
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(15, 52)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(58, 13)
Me.Label3.TabIndex = 2
Me.Label3.Text = "Parameter:"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(119, 22)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(0, 13)
Me.Label2.TabIndex = 1
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(15, 22)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(98, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "DokumentstatusNr:"
'
'TextBox2
'
Me.TextBox2.Location = New System.Drawing.Point(12, 68)
Me.TextBox2.Multiline = True
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(345, 72)
Me.TextBox2.TabIndex = 11
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(9, 52)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(55, 13)
Me.Label7.TabIndex = 10
Me.Label7.Text = "Parameter"
'
'GroupBox4
'
Me.GroupBox4.Controls.Add(Me.Label10)
Me.GroupBox4.Controls.Add(Me.CheckBox2)
Me.GroupBox4.Controls.Add(Me.Label8)
Me.GroupBox4.Controls.Add(Me.Label9)
Me.GroupBox4.Controls.Add(Me.Button3)
Me.GroupBox4.Controls.Add(Me.Button4)
Me.GroupBox4.Controls.Add(Me.TextBox2)
Me.GroupBox4.Controls.Add(Me.Label7)
Me.GroupBox4.Dock = System.Windows.Forms.DockStyle.Fill
Me.GroupBox4.Location = New System.Drawing.Point(674, 444)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(369, 212)
Me.GroupBox4.TabIndex = 18
Me.GroupBox4.TabStop = False
Me.GroupBox4.Text = "DOCM-Parameter für Löschung"
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(9, 147)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(110, 13)
Me.Label10.TabIndex = 11
Me.Label10.Text = "DOCM auf Ebene RO"
'
'CheckBox2
'
Me.CheckBox2.AutoSize = True
Me.CheckBox2.Location = New System.Drawing.Point(125, 147)
Me.CheckBox2.Name = "CheckBox2"
Me.CheckBox2.Size = New System.Drawing.Size(15, 14)
Me.CheckBox2.TabIndex = 10
Me.CheckBox2.UseVisualStyleBackColor = True
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(317, 22)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(39, 13)
Me.Label8.TabIndex = 15
Me.Label8.Text = "Label8"
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(282, 22)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(28, 13)
Me.Label9.TabIndex = 14
Me.Label9.Text = "Key:"
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(93, 176)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(75, 23)
Me.Button3.TabIndex = 13
Me.Button3.Text = "Löschen"
Me.Button3.UseVisualStyleBackColor = True
'
'Button4
'
Me.Button4.Location = New System.Drawing.Point(12, 176)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(75, 23)
Me.Button4.TabIndex = 12
Me.Button4.Text = "Speichern"
Me.Button4.UseVisualStyleBackColor = True
'
'GroupBox5
'
Me.GroupBox5.Controls.Add(Me.Label14)
Me.GroupBox5.Controls.Add(Me.txtBeschreibung)
Me.GroupBox5.Controls.Add(Me.Label13)
Me.GroupBox5.Controls.Add(Me.cbboxclm)
Me.GroupBox5.Controls.Add(Me.Label12)
Me.GroupBox5.Controls.Add(Me.cbboxoutlook)
Me.GroupBox5.Controls.Add(Me.Label11)
Me.GroupBox5.Controls.Add(Me.cbboxedoka)
Me.GroupBox5.Dock = System.Windows.Forms.DockStyle.Top
Me.GroupBox5.Location = New System.Drawing.Point(270, 328)
Me.GroupBox5.Name = "GroupBox5"
Me.GroupBox5.Size = New System.Drawing.Size(773, 116)
Me.GroupBox5.TabIndex = 19
Me.GroupBox5.TabStop = False
Me.GroupBox5.Text = "Quelle für DOCM"
'
'cbboxedoka
'
Me.cbboxedoka.AutoSize = True
Me.cbboxedoka.Location = New System.Drawing.Point(12, 27)
Me.cbboxedoka.Name = "cbboxedoka"
Me.cbboxedoka.Size = New System.Drawing.Size(15, 14)
Me.cbboxedoka.TabIndex = 10
Me.cbboxedoka.UseVisualStyleBackColor = True
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(29, 26)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(44, 13)
Me.Label11.TabIndex = 10
Me.Label11.Text = "EDOKA"
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(29, 49)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(74, 13)
Me.Label12.TabIndex = 11
Me.Label12.Text = "Outlook-Addin"
'
'cbboxoutlook
'
Me.cbboxoutlook.AutoSize = True
Me.cbboxoutlook.Location = New System.Drawing.Point(12, 49)
Me.cbboxoutlook.Name = "cbboxoutlook"
Me.cbboxoutlook.Size = New System.Drawing.Size(15, 14)
Me.cbboxoutlook.TabIndex = 12
Me.cbboxoutlook.UseVisualStyleBackColor = True
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(29, 71)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(29, 13)
Me.Label13.TabIndex = 13
Me.Label13.Text = "CLM"
'
'cbboxclm
'
Me.cbboxclm.AutoSize = True
Me.cbboxclm.Location = New System.Drawing.Point(12, 71)
Me.cbboxclm.Name = "cbboxclm"
Me.cbboxclm.Size = New System.Drawing.Size(15, 14)
Me.cbboxclm.TabIndex = 14
Me.cbboxclm.UseVisualStyleBackColor = True
'
'txtBeschreibung
'
Me.txtBeschreibung.Location = New System.Drawing.Point(415, 24)
Me.txtBeschreibung.Multiline = True
Me.txtBeschreibung.Name = "txtBeschreibung"
Me.txtBeschreibung.Size = New System.Drawing.Size(345, 72)
Me.txtBeschreibung.TabIndex = 15
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Location = New System.Drawing.Point(413, 8)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(72, 13)
Me.Label14.TabIndex = 16
Me.Label14.Text = "Beschreibung"
'
'FrmDocmSettings
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1043, 656)
Me.Controls.Add(Me.GroupBox4)
Me.Controls.Add(Me.GroupBox3)
Me.Controls.Add(Me.GroupBox5)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.MenuStrip1)
Me.MainMenuStrip = Me.MenuStrip1
Me.Name = "FrmDocmSettings"
Me.Text = "FrmDocmSettings"
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
CType(Me.C1Dokumenttypen, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox2.ResumeLayout(False)
CType(Me.C1DokumenttypStatus, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox3.PerformLayout()
Me.GroupBox4.ResumeLayout(False)
Me.GroupBox4.PerformLayout()
Me.GroupBox5.ResumeLayout(False)
Me.GroupBox5.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
Friend WithEvents SchliessenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker
Friend WithEvents C1Dokumenttypen As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents C1DokumenttypStatus As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
Friend WithEvents AlleVorlagenToolStripMenuItem As Windows.Forms.ToolStripMenuItem
Friend WithEvents VorlagenMitDOCMSettingsToolStripMenuItem As Windows.Forms.ToolStripMenuItem
Friend WithEvents TextBox2 As Windows.Forms.TextBox
Friend WithEvents Label7 As Windows.Forms.Label
Friend WithEvents GroupBox4 As Windows.Forms.GroupBox
Friend WithEvents Label8 As Windows.Forms.Label
Friend WithEvents Label9 As Windows.Forms.Label
Friend WithEvents Button3 As Windows.Forms.Button
Friend WithEvents Button4 As Windows.Forms.Button
Friend WithEvents GroupBox5 As Windows.Forms.GroupBox
Friend WithEvents Label10 As Windows.Forms.Label
Friend WithEvents CheckBox2 As Windows.Forms.CheckBox
Friend WithEvents Label14 As Windows.Forms.Label
Friend WithEvents txtBeschreibung As Windows.Forms.TextBox
Friend WithEvents Label13 As Windows.Forms.Label
Friend WithEvents cbboxclm As Windows.Forms.CheckBox
Friend WithEvents Label12 As Windows.Forms.Label
Friend WithEvents cbboxoutlook As Windows.Forms.CheckBox
Friend WithEvents Label11 As Windows.Forms.Label
Friend WithEvents cbboxedoka As Windows.Forms.CheckBox
End Class

View File

@@ -0,0 +1,205 @@
<?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="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>132, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="C1Dokumenttypen.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="C1Dokumenttypen.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="C1Dokumenttypen.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:224, 224, 224;}Style3{}Footer{}Style14{}FilterBar{ForeColor:Black;BackColor:255, 255, 192;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{Wrap:True;Trimming:Character;AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView HBarHeight="16" VBarHeight="16" Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="16" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 262, 611&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 262, 611&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
<data name="C1DokumenttypStatus.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="C1DokumenttypStatus.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="C1DokumenttypStatus.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;}Style3{}Footer{}Style14{}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{AlignHorz:Near;}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{Wrap:True;Trimming:Character;AlignHorz:Center;}Style6{}FilterBar{ForeColor:Black;BackColor:255, 255, 192;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView HBarHeight="16" VBarHeight="16" Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="16" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 765, 283&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 765, 283&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
</root>

View File

@@ -0,0 +1,185 @@
Public Class FrmDocmSettings
Dim dbconn As New DB_Connection
Dim db As New DB
Dim db1 As New DB
Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchliessenToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub FrmDocmSettings_Load(sender As Object, e As EventArgs) Handles MyBase.Load
db.Get_Dokumenttypen()
Me.C1Dokumenttypen.DataSource = db.dsDaten.Tables("Dokumenttypen")
Me.C1Dokumenttypen.Splits(0).DisplayColumns(0).Width = 30
Me.C1Dokumenttypen.Splits(0).DisplayColumns(1).Width = Me.GroupBox1.Width - 53
End Sub
Private Sub C1Dokumenttypen_RowColChange(sender As Object, e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles C1Dokumenttypen.RowColChange$
Try
Dim i As Integer = Me.C1Dokumenttypen.Columns(0).Value
db.Get_Dokumentstatus(Me.C1Dokumenttypen.Columns(0).Value)
Me.C1DokumenttypStatus.DataSource = db.dsdaten1.Tables(0)
db1.Get_Loeschscript(Me.C1Dokumenttypen.Columns(0).Value)
If db1.dsDaten.Tables(0).Rows.Count = 0 Then
Me.Label8.Text = "nicht v."
Me.TextBox2.Text = ""
Me.CheckBox2.Checked = False
Me.cbboxedoka.Checked = False
Me.cbboxoutlook.Checked = False
Me.cbboxclm.Checked = False
Me.txtBeschreibung.Text = ""
Else
Me.Label8.Text = db1.dsDaten.Tables(0).Rows(0).Item(0).ToString
Me.TextBox2.Text = db1.dsDaten.Tables(0).Rows(0).Item("inhalt")
Me.CheckBox2.Checked = db.dsDaten.Tables(0).Rows(0).Item(7).ToString = "1"
Me.cbboxclm.Checked = db.dsDaten.Tables(0).Rows(0).Item("CLM").ToString = "1"
Me.cbboxedoka.Checked = db.dsDaten.Tables(0).Rows(0).Item("EDOKA").ToString = "1"
Me.cbboxoutlook.Checked = db.dsDaten.Tables(0).Rows(0).Item("Outlook_Addin").ToString = "1"
Me.txtBeschreibung.Text = db.dsDaten.Tables(0).Rows(0).Item("Beschreibung").ToString
End If
Catch ex As Exception
End Try
End Sub
Private Sub C1DokumenttypStatus_RowColChange(sender As Object, e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles C1DokumenttypStatus.RowColChange
Try
Dim i As Integer = Me.C1DokumenttypStatus.Columns(0).Value
db.Get_Dokumentstatus_docm(Me.C1DokumenttypStatus.Columns(0).Value)
If db.dsdatendocm.Tables(0).Rows.Count = 0 Then
Me.Label2.Text = Me.C1DokumenttypStatus.Columns(0).Value.ToString
Me.Label5.Text = "(nicht vorhanden)"
Me.TextBox1.Text = ""
Me.cbboxedoka.Checked = False
Me.cbboxoutlook.Checked = False
Me.cbboxclm.Checked = False
Me.txtBeschreibung.Text = ""
Else
Me.Label2.Text = db.dsdatendocm.Tables(0).Rows(0).Item(1).ToString
Me.Label5.Text = db.dsdatendocm.Tables(0).Rows(0).Item(0).ToString
Me.TextBox1.Text = db.dsdatendocm.Tables(0).Rows(0).Item(2).ToString
Me.CheckBox1.Checked = db.dsdatendocm.Tables(0).Rows(0).Item(7).ToString = "1"
Me.cbboxclm.Checked = db.dsdatendocm.Tables(0).Rows(0).Item("CLM").ToString = "1"
Me.cbboxedoka.Checked = db.dsdatendocm.Tables(0).Rows(0).Item("EDOKA").ToString = "1"
Me.cbboxoutlook.Checked = db.dsdatendocm.Tables(0).Rows(0).Item("Outlook_Addin").ToString = "1"
Me.txtBeschreibung.Text = db.dsdatendocm.Tables(0).Rows(0).Item("Beschreibung").ToString
End If
Catch ex As Exception
End Try
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If MsgBox("Datensatz wirklich löschen?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
db.dsdatendocm.Tables(0).Rows(0).Item("aktiv") = False
db.dsdatendocm.Tables(0).Rows(0).Item("mutiert_am") = Now
db.dsdatendocm.Tables(0).Rows(0).Item("mutierer") = Globals.Mitarbeiternr
db.Update_Daten()
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Label5.Text = "(nicht vorhanden)" Then
Dim r As DataRow = db.dsdatendocm.Tables(0).NewRow
r.Item(1) = Me.C1DokumenttypStatus.Columns(0).Value
r.Item(2) = Me.TextBox1.Text
r.Item(3) = True
r.Item(4) = Now
r.Item(5) = Now
r.Item(6) = Globals.Mitarbeiternr
If Me.CheckBox1.Checked Then
r.Item(7) = 1
Else
r.Item(7) = 0
End If
If Me.cbboxclm.Checked Then r.Item("clm") = 1 Else r.Item("clm") = 0
If Me.cbboxedoka.Checked Then r.Item("edoka") = 1 Else r.Item("edoka") = 0
If Me.cbboxoutlook.Checked Then r.Item("outlook_addin") = 1 Else r.Item("outlook_addin") = 0
r.Item("Beschreibung") = Me.txtBeschreibung.Text
db.dsdatendocm.Tables(0).Rows.Add(r)
Else
db.dsdatendocm.Tables(0).Rows(0).Item(2) = Me.TextBox1.Text
db.dsdatendocm.Tables(0).Rows(0).Item(5) = Now
db.dsdatendocm.Tables(0).Rows(0).Item(6) = Globals.Mitarbeiternr
If Me.CheckBox1.Checked Then
db.dsdatendocm.Tables(0).Rows(0).Item(7) = 1
Else
db.dsdatendocm.Tables(0).Rows(0).Item(7) = 0
End If
If Me.cbboxclm.Checked Then db.dsdatendocm.Tables(0).Rows(0).Item("clm") = 1 Else db.dsdatendocm.Tables(0).Rows(0).Item("clm") = 0
If Me.cbboxedoka.Checked Then db.dsdatendocm.Tables(0).Rows(0).Item("edoka") = 1 Else db.dsdatendocm.Tables(0).Rows(0).Item("edoka") = 0
If Me.cbboxoutlook.Checked Then db.dsdatendocm.Tables(0).Rows(0).Item("outlook_addin") = 1 Else db.dsdatendocm.Tables(0).Rows(0).Item("outlook_addin") = 0
db.dsdatendocm.Tables(0).Rows(0).Item("Beschreibung") = Me.txtBeschreibung.Text
End If
db.Update_Daten()
End Sub
Private Sub FrmDocmSettings_Resize(sender As Object, e As EventArgs) Handles Me.Resize
Me.GroupBox1.Width = Me.ClientSize.Width / (2 * 2)
Me.GroupBox2.Width = Me.ClientSize.Width / (2 * 2)
End Sub
Private Sub AlleVorlagenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AlleVorlagenToolStripMenuItem.Click
Me.C1Dokumenttypen.DataSource = Nothing
db.Get_Dokumenttypen()
Me.C1Dokumenttypen.DataSource = db.dsDaten.Tables("Dokumenttypen")
Me.C1Dokumenttypen.Splits(0).DisplayColumns(0).Width = 30
Me.C1Dokumenttypen.Splits(0).DisplayColumns(1).Width = Me.GroupBox1.Width - 53
End Sub
Private Sub VorlagenMitDOCMSettingsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorlagenMitDOCMSettingsToolStripMenuItem.Click
Me.C1Dokumenttypen.DataSource = Nothing
db.Get_Dokumenttypen_mit_docm()
Me.C1Dokumenttypen.DataSource = db.dsDaten.Tables("Dokumenttypen")
Me.C1Dokumenttypen.Splits(0).DisplayColumns(0).Width = 30
Me.C1Dokumenttypen.Splits(0).DisplayColumns(1).Width = Me.GroupBox1.Width - 53
End Sub
Private Sub C1Dokumenttypen_Click(sender As Object, e As EventArgs) Handles C1Dokumenttypen.Click
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
If Me.Label8.Text = "nicht v." Then
Dim r As DataRow = db1.dsDaten.Tables(0).NewRow
r.Item(1) = Me.C1Dokumenttypen.Columns(0).Value
r.Item(2) = Me.TextBox2.Text
r.Item(3) = True
r.Item(4) = Now
r.Item(5) = Now
r.Item(6) = Globals.Mitarbeiternr
If Me.CheckBox2.Checked Then
r.Item(7) = 1
Else
r.Item(7) = 0
End If
db1.dsDaten.Tables(0).Rows.Add(r)
Else
db1.dsDaten.Tables(0).Rows(0).Item(2) = Me.TextBox2.Text
db1.dsDaten.Tables(0).Rows(0).Item(5) = Now
db1.dsDaten.Tables(0).Rows(0).Item(6) = Globals.Mitarbeiternr
If Me.CheckBox2.Checked Then
db1.dsDaten.Tables(0).Rows(0).Item(7) = 1
Else
db1.dsDaten.Tables(0).Rows(0).Item(7) = 0
End If
End If
db1.Update_Loeschscript()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
If MsgBox("Löscheintrag wirklich löschen=??", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
db1.dsDaten.Tables(0).Rows(0).Item("aktiv") = False
db1.dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
db1.dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.Mitarbeiternr
db1.Update_Loeschscript()
End If
End Sub
End Class

View File

@@ -0,0 +1,23 @@
Imports PluginContracts
Public Class Class1
Implements PluginContracts.IPlugin
Public ReadOnly Property Name() As String Implements IPlugin.Name
Get
Return "EDOKA_Docm_Settings"
End Get
End Property
Public Function Show(CurrentUser As String, Connectionstring As String, Parentform As Object) As Object Implements IPlugin.Show
Globals.Mitarbeiternr = CurrentUser
Dim f As New FrmDocmSettings
Try
f.MdiParent = Parentform
Catch
End Try
f.Show()
End Function
End Class

View File

@@ -0,0 +1,150 @@
Imports System.IO
Imports System.Data.Sql
Imports System.Data.SqlClient
Public Class DB
Public dsDaten As New DataSet
Public dsdaten1 As New DataSet
Public dsdatendocm As New DataSet
Public dadaten As SqlDataAdapter
Public dadatendocm As SqlDataAdapter
Dim sql As String
Public Sub Get_Dokumenttypen()
Try
dsDaten.Clear()
sql = "Select dokumenttypnr, bezeichnung from dokumenttyp where aktiv=1 or aktiv = 0 order by bezeichnung"
dadaten = New SqlDataAdapter(sql, Globals.sConnectionstring)
dadaten.Fill(dsDaten, "Dokumenttypen")
Catch
End Try
End Sub
Public Sub Get_Dokumenttypen_mit_docm()
Try
dsDaten.Clear()
sql = "Select dokumenttypnr, bezeichnung FROM dbo.dokumenttyp WHERE (aktiv = 1 Or aktiv = 0) And (dokumenttypnr In (Select Dokumenttypnr frOM dbo.Dokumentstatus_DOCM_Definition)) ORDER BY bezeichnung"
dadaten = New SqlDataAdapter(sql, Globals.sConnectionstring)
dadaten.Fill(dsDaten, "Dokumenttypen")
Catch
End Try
End Sub
Public Sub Get_Dokumentstatus(dokumenttypnr As Integer)
Try
dsdaten1.Clear()
sql = " SELECT dbo.dokumentstatus.dokumentstatusnr, dbo.status_bezeichnung.bezeichnung, dbo.dokumentstatus.statustyp, dbo.status_bezeichnung.status_bezeichnungnr "
sql = sql + " FROM dbo.dokumentstatus INNER JOIN dbo.status_bezeichnung ON dbo.dokumentstatus.status_bezeichnungnr = dbo.status_bezeichnung.status_bezeichnungnr"
sql = sql + " WHERE(dbo.dokumentstatus.aktiv=1 and dbo.dokumentstatus.dokumenttypnr = " + dokumenttypnr.ToString + ") "
sql = sql + " ORDER BY dbo.dokumentstatus.statustyp, dbo.dokumentstatus.reihenfolge"
dadaten = New SqlDataAdapter(sql, Globals.sConnectionstring)
dadaten.Fill(dsdaten1, "DokumentStatsu")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Public Sub Get_Dokumentstatus_docm(dokumentstatusnr)
Try
dsdatendocm.Clear()
sql = "Select * from dokumentstatus_docm where dokumentstatusnr=" + dokumentstatusnr.ToString + " and aktiv=1"
dadatendocm = New SqlDataAdapter(sql, Globals.sConnectionstring)
dadatendocm.Fill(dsdatendocm, "DocmDaten")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Sub Update_Daten()
Try
Dim cb As New SqlCommandBuilder(dadatendocm)
dadatendocm.Update(dsdatendocm, dsdatendocm.Tables(0).TableName)
MsgBox("Änderungen wurden gespeichert")
Catch ex As Exception
MsgBox("Felher: " + ex.Message)
End Try
End Sub
Public Sub Get_Loeschscript(dokumenttypnr As Integer)
Try
dsDaten.Clear()
sql = " select * from [dbo].[Dokumentstatus_DOCM_Loeschung] where aktiv=1 and dokumenttypnr=" + dokumenttypnr.ToString
dadaten = New SqlDataAdapter(sql, Globals.sConnectionstring)
dadaten.Fill(dsdaten, "DokumentLoeschung")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Sub Update_Loeschscript()
Try
Dim cb As New SqlCommandBuilder(dadaten)
dadaten.Update(dsDaten, dsDaten.Tables(0).TableName)
MsgBox("Änderungen wurden gespeichert")
Catch ex As Exception
MsgBox("Felher: " + ex.Message)
End Try
End Sub
End Class
Public Class DB_Connection
''' <summary>
''' Liest sämtlcihe CFG-Dateien mit dem Namen "Vertragsverwaltung...". Sind meherere Dateien vorhanden,
''' wird ein Auswahldialog zur Datenbank-Selektion angezeigt.
''' Standardmässig wird Vertragsverwaltung.cfg als CFG-Datei benutzt.
'''
''' Die CFG-Datei ist verschlüsselt und wird über die Crypto-Funktionen entschlüsselt.
''' </summary>
''' <remarks></remarks>
Shared Sub New()
Dim path As String = ""
Dim fc As Integer = 0
If fc < 2 Then Globals.ConnectionFilename = "edokaconn.cfg"
Dim ofile As System.IO.File
Dim oread As System.IO.StreamReader
oread = ofile.OpenText(ApplicationPath() + "\" + Globals.ConnectionFilename)
sConnectionstring = oread.ReadLine
sConnectionstring = Crypto.DecryptText(sConnectionstring, "HutterundMueller")
sConnectionstring = Left(sConnectionstring, Len(sConnectionstring) - 1)
Globals.sConnectionstring = sConnectionstring
oread.Close()
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("Select beschreibung from pluginparameter where pluginparamnr=1", connection)
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
Dim ds As New DataSet()
Try
connection.ConnectionString = Globals.sConnectionstring
connection.Open()
da.Fill(ds, "params")
path = ds.Tables(0).Rows(0).Item(0)
Catch ex As Exception
path = ""
CB = Nothing
End Try
ds = Nothing
da = Nothing
connection.Close()
connection = Nothing
Globals.ConnectionFilename = "edokaconn.cfg"
oread = ofile.OpenText(path + "\" + Globals.ConnectionFilename)
sConnectionstring = oread.ReadLine
sConnectionstring = Crypto.DecryptText(sConnectionstring, "HutterundMueller")
sConnectionstring = Left(sConnectionstring, Len(sConnectionstring) - 1)
Globals.sConnectionstring = sConnectionstring
oread.Close()
End Sub
End Class

View File

@@ -0,0 +1,13 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On

View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>false</MySubMain>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<ApplicationType>1</ApplicationType>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

View File

@@ -0,0 +1,35 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' Allgemeine Informationen über eine Assembly werden über die folgenden
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
' die mit einer Assembly verknüpft sind.
' Die Werte der Assemblyattribute überprüfen
<Assembly: AssemblyTitle("Plugin_Docm_Settings")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("Plugin_Docm_Settings")>
<Assembly: AssemblyCopyright("Copyright © 2015")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird
<Assembly: Guid("64c72860-9c17-4077-8de4-e711ca298e85")>
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
'
' Hauptversion
' Nebenversion
' Buildnummer
' Revision
'
' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

View File

@@ -0,0 +1,63 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
'-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
'''<summary>
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Plugin_Docm_Settings.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
End Module
End Namespace

View File

@@ -0,0 +1,117 @@
<?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.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="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
</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" 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>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,73 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "14.0.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "Funktion zum automatischen Speichern von My.Settings"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.Plugin_Docm_Settings.My.MySettings
Get
Return Global.Plugin_Docm_Settings.My.MySettings.Default
End Get
End Property
End Module
End Namespace

View File

@@ -0,0 +1,7 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
<Profiles>
<Profile Name="(Default)" />
</Profiles>
<Settings />
</SettingsFile>

View File

@@ -0,0 +1 @@
C1.Win.C1TrueDBGrid.C1TrueDBGrid, C1.Win.C1TrueDBGrid.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da

View File

@@ -0,0 +1,138 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{8FC1F3C3-1CBB-4CB2-89A1-2E5B0A110692}</ProjectGuid>
<OutputType>Library</OutputType>
<RootNamespace>Plugin_Docm_Settings</RootNamespace>
<AssemblyName>Plugin_Docm_Settings</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>Windows</MyType>
<TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
<TargetFrameworkProfile />
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>..\Bin\</OutputPath>
<DocumentationFile>Plugin_Docm_Settings.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>Plugin_Docm_Settings.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<ItemGroup>
<Reference Include="C1.Win.C1Command.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=e808566f358766d8, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\Bin\C1.Win.C1Command.2.dll</HintPath>
</Reference>
<Reference Include="C1.Win.C1TrueDBGrid.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\Bin\C1.Win.C1TrueDBGrid.2.dll</HintPath>
</Reference>
<Reference Include="PluginContracts, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\Bin\PluginContracts.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Drawing" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Diagnostics" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
</ItemGroup>
<ItemGroup>
<Compile Include="Klassen\Class1.vb" />
<Compile Include="Klassen\DB.vb" />
<Compile Include="FrmDocmSettings.Designer.vb">
<DependentUpon>FrmDocmSettings.vb</DependentUpon>
</Compile>
<Compile Include="FrmDocmSettings.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Utils\Crypto.vb" />
<Compile Include="Utils\Globals.vb" />
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="FrmDocmSettings.resx">
<DependentUpon>FrmDocmSettings.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>

View File

@@ -0,0 +1,34 @@
Module Crypto
Public Function EncryptText(ByVal strText As String, ByVal strPwd As String)
Dim i As Integer, c As Integer
Dim strBuff As String
strPwd = UCase$(strPwd)
If Len(strPwd) Then
For i = 1 To Len(strText)
c = Asc(Mid$(strText, i, 1))
c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr(c And &HFF)
Next i
Else
strBuff = strText
End If
EncryptText = strBuff
End Function
Public Function DecryptText(ByVal strText As String, ByVal strPwd As String)
Dim i As Integer, c As Integer
Dim strBuff As String
strPwd = UCase$(strPwd)
If Len(strPwd) Then
For i = 1 To Len(strText)
c = Asc(Mid$(strText, i, 1))
c = c - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr(c And &HFF)
Next i
Else
strBuff = strText
End If
DecryptText = strBuff
End Function
End Module

View File

@@ -0,0 +1,14 @@
Imports System.IO
Imports System.Reflection
Module Globals
Public ConnectionFilename As String
Public sConnectionstring As String
Public Mitarbeiternr As Integer
Public Function ApplicationPath() As String
Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
End Function
End Module

View File

@@ -0,0 +1 @@
e78e5b572a9c4f0dd859f4f9054e872a93eeeda7

View File

@@ -0,0 +1,19 @@
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\EDOKA_Toolset\bin\Debug\EDOKA_Toolset.exe
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\EDOKA_Toolset\bin\Debug\EDOKA_Toolset.pdb
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\EDOKA_Toolset\bin\Debug\EDOKA_Toolset.xml
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\EDOKA_Toolset\bin\Debug\PluginLib.dll
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\EDOKA_Toolset\bin\Debug\PluginLib.pdb
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\EDOKA_Toolset\bin\Debug\PluginLib.xml
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Bin\EDOKA_Toolset.exe
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Bin\EDOKA_Toolset.pdb
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Bin\EDOKA_Toolset.xml
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\EDOKA_Toolset\obj\Debug\EDOKA_Toolset.frmBenutzer.resources
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\EDOKA_Toolset\obj\Debug\EDOKA_Toolset.frmMain1.resources
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\EDOKA_Toolset\obj\Debug\EDOKA_Toolset.Resources.resources
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\EDOKA_Toolset\obj\Debug\EDOKA_Toolset.vbproj.GenerateResource.Cache
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\EDOKA_Toolset\obj\Debug\EDOKA_Toolset.exe.licenses
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\EDOKA_Toolset\obj\Debug\EDOKA_Toolset.exe
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\EDOKA_Toolset\obj\Debug\EDOKA_Toolset.xml
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\EDOKA_Toolset\obj\Debug\EDOKA_Toolset.pdb
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Bin\EDOKA_Toolset.exe.config
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\EDOKA_Toolset\obj\Debug\EDOKA_Toolset.vbprojResolveAssemblyReference.cache

View File

@@ -0,0 +1,12 @@
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Docm_Settings\obj\Debug\Plugin_Docm_Settings.FrmDocmSettings.resources
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Docm_Settings\obj\Debug\Plugin_Docm_Settings.Resources.resources
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Docm_Settings\obj\Debug\Plugin_Docm_Settings.vbproj.GenerateResource.Cache
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Docm_Settings\obj\Debug\Plugin_Docm_Settings.dll.licenses
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Bin\Plugin_Docm_Settings.dll
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Bin\Plugin_Docm_Settings.pdb
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Bin\Plugin_Docm_Settings.xml
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Docm_Settings\obj\Debug\Plugin_Docm_Settings.dll
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Docm_Settings\obj\Debug\Plugin_Docm_Settings.xml
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Docm_Settings\obj\Debug\Plugin_Docm_Settings.pdb
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Docm_Settings\obj\Debug\Plugin_Docm_Settings.vbproj.CopyComplete
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Docm_Settings\obj\Debug\Plugin_Docm_Settings.vbprojAssemblyReference.cache

View File

@@ -0,0 +1,36 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
Plugin_Docm_Settings
</name>
</assembly>
<members>
<member name="T:Plugin_Docm_Settings.My.Resources.Resources">
<summary>
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
</summary>
</member>
<member name="P:Plugin_Docm_Settings.My.Resources.Resources.ResourceManager">
<summary>
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
</summary>
</member>
<member name="P:Plugin_Docm_Settings.My.Resources.Resources.Culture">
<summary>
Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
</summary>
</member>
<member name="M:Plugin_Docm_Settings.DB_Connection.#cctor">
<summary>
Liest sämtlcihe CFG-Dateien mit dem Namen "Vertragsverwaltung...". Sind meherere Dateien vorhanden,
wird ein Auswahldialog zur Datenbank-Selektion angezeigt.
Standardmässig wird Vertragsverwaltung.cfg als CFG-Datei benutzt.
Die CFG-Datei ist verschlüsselt und wird über die Crypto-Funktionen entschlüsselt.
</summary>
<remarks></remarks>
</member>
</members>
</doc>