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

Initial commit

Browse Source
This commit is contained in:
Stefan Hutter
2020-10-21 10:43:18 +02:00
commit 56bd02798f
5848 changed files with 2659025 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
EDOKA_Toolset/Plugin_Covid/Class1.vb Normal file
View File

@@ -0,0 +1,18 @@
Imports System.Windows.Forms
Imports PluginContracts
Public Class Class1
Implements PluginContracts.IPlugin
Public ReadOnly Property Name() As String Implements IPlugin.Name
Get
Return "EDOKA_Covid19"
End Get
End Property
Public Function Show(CurrentUser As String, Connectionstring As String, Parentform As Object) As Object Implements IPlugin.Show
Dim f As New Form1
f.MdiParent = Parentform
f.Show()
End Function
End Class

85
EDOKA_Toolset/Plugin_Covid/Form1.Designer.vb generated Normal file
View File

@@ -0,0 +1,85 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
Me.C1Dokumente = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.MailSendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
CType(Me.C1Dokumente, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
Me.SuspendLayout()
'
'C1Dokumente
'
Me.C1Dokumente.AlternatingRows = True
Me.C1Dokumente.ContextMenuStrip = Me.ContextMenuStrip1
Me.C1Dokumente.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1Dokumente.FetchRowStyles = True
Me.C1Dokumente.FilterBar = True
Me.C1Dokumente.GroupByCaption = "Drag a column header here to group by that column"
Me.C1Dokumente.Images.Add(CType(resources.GetObject("C1Dokumente.Images"), System.Drawing.Image))
Me.C1Dokumente.Location = New System.Drawing.Point(0, 0)
Me.C1Dokumente.Name = "C1Dokumente"
Me.C1Dokumente.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1Dokumente.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1Dokumente.PreviewInfo.ZoomFactor = 75.0R
Me.C1Dokumente.PrintInfo.PageSettings = CType(resources.GetObject("C1Dokumente.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1Dokumente.RecordSelectorWidth = 16
Me.C1Dokumente.Size = New System.Drawing.Size(823, 379)
Me.C1Dokumente.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
Me.C1Dokumente.TabIndex = 15
Me.C1Dokumente.Text = "C1TrueDBGrid1"
Me.C1Dokumente.PropBag = resources.GetString("C1Dokumente.PropBag")
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MailSendenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(139, 26)
'
'MailSendenToolStripMenuItem
'
Me.MailSendenToolStripMenuItem.Name = "MailSendenToolStripMenuItem"
Me.MailSendenToolStripMenuItem.Size = New System.Drawing.Size(138, 22)
Me.MailSendenToolStripMenuItem.Text = "Mail senden"
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(823, 379)
Me.Controls.Add(Me.C1Dokumente)
Me.Name = "Form1"
Me.Text = "Covid-Mail"
CType(Me.C1Dokumente, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents C1Dokumente As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents ContextMenuStrip1 As Windows.Forms.ContextMenuStrip
Friend WithEvents MailSendenToolStripMenuItem As Windows.Forms.ToolStripMenuItem
End Class

163
EDOKA_Toolset/Plugin_Covid/Form1.resx Normal file
View File

@@ -0,0 +1,163 @@
<?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="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="C1Dokumente.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="C1Dokumente.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="C1Dokumente.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;Wrap:True;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;}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, 821, 377&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, 821, 377&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
</root>

76
EDOKA_Toolset/Plugin_Covid/Form1.vb Normal file
View File

@@ -0,0 +1,76 @@
Imports EnvDTE
Public Class Form1
Dim dbconn As New DB_Connection
Dim db As New DB
Dim db1 As New DB
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
db.Get_Dokumente()
Me.C1Dokumente.DataSource = db.dsDaten.Tables("Dokumente")
For i As Integer = 0 To Me.C1Dokumente.Splits(0).DisplayColumns.Count - 1
Me.C1Dokumente.Splits(0).DisplayColumns(i).AutoSize()
Next i
End Sub
Private Sub MailSendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MailSendenToolStripMenuItem.Click
Dim ds As New DataSet
ds.ReadXml(ApplicationPath() + "\Plugin_Covid_config.xml")
Dim absender As String = ds.Tables(0).Rows(0).Item(0)
Dim empfaenger As String = ds.Tables(0).Rows(0).Item(1)
Dim betreff As String = ds.Tables(0).Rows(0).Item(2)
Dim inhalt As String = ds.Tables(0).Rows(0).Item(3)
Dim temppath As String = ds.Tables(0).Rows(0).Item(4)
'Dim x As New DataTable
'x.Columns.Add("Absender")
'x.Columns.Add("Empfaenger")
'x.Columns.Add("Betreff")
'x.Columns.Add("Inhalt")
'x.Columns.Add("Temppath")
'Dim r As DataRow = x.NewRow
'r.Item(0) = "test@shub.ch"
'r.Item(1) = "test2@shub.ch"
'r.Item(2) = "#BPNR# #DOKID#"
'r.Item(3) = "Gaga"
'r.Item(4) = "K:\edoka\"
'x.Rows.Add(r)
'Dim ds As New DataSet
'ds.Tables.Add(x.Copy)
'ds.WriteXml(ApplicationPath() + "\Plugin_Covid_config.xml")
'Exit Sub
Dim filename As String
filename = ""
Dim extension As String
extension = Me.C1Dokumente.Columns("extension").Value.ToString
extension = extension
If UCase(extension) <> ".PDF" Then
MsgBox("Das Dateiformat " + extension + " kann nicht automatisch verarbeitet werden.")
Exit Sub
End If
' filename = temppath + Me.C1Dokumente.Columns("nrpar00").Value.ToString + "_" + Me.C1Dokumente.Columns("Dokumentid").Value + ".pdf"
filename = temppath + Me.C1Dokumente.Columns("nrpar00").Value.ToString + "_" + Me.C1Dokumente.Columns("Dokumentid").Value + extension
If db.Get_From_DB(Me.C1Dokumente.Columns("Dokumentid").Value, filename) = True Then
Dim em As New clsMailClient
betreff = betreff.Replace("#BPNR#", C1Dokumente.Columns("nrpar00").Value.ToString)
betreff = betreff.Replace("#DOKID#", C1Dokumente.Columns("dokumentid").Value.ToString)
em.CreateOutlookMail("OUTLOOK", absender, empfaenger, betreff, inhalt, filename)
Else
MsgBox("Das Dokument konnte nicht aus der Datenbank geladen werden.")
End If
End Sub
Private Sub C1Dokumente_Click(sender As Object, e As EventArgs) Handles C1Dokumente.DoubleClick
MailSendenToolStripMenuItem_Click(sender, e)
End Sub
Private Sub C1Dokumente_MouseDown(sender As Object, e As Windows.Forms.MouseEventArgs) Handles C1Dokumente.MouseDown
Me.C1Dokumente.Bookmark = Me.C1Dokumente.RowContaining(e.Y)
End Sub
End Class

119
EDOKA_Toolset/Plugin_Covid/Klassen/DB.vb Normal file
View File

@@ -0,0 +1,119 @@
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_Dokumente()
Try
dsDaten.Clear()
sql = "Select * from View_Covid_Mail order by erstelltam desc"
dadaten = New SqlDataAdapter(sql, Globals.sConnectionstring)
dadaten.Fill(dsDaten, "Dokumente")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Public Function Get_From_DB(ByVal DokumentID As String, ByVal Filename As String) As Boolean
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("Select * From doks where DokumentID='" + DokumentID + "'", connection)
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
Dim ds As New DataSet()
Try
'Connectionstring zur Datenbank
connection.ConnectionString = Globals.sConnectionstring
connection.Open()
da.Fill(ds, "docs")
Dim myRow As DataRow
myRow = ds.Tables(0).Rows(0)
Dim MyData() As Byte
MyData = myRow.Item(1)
Dim K As Long
K = UBound(MyData)
Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Write)
fs.Write(MyData, 0, K)
fs.Close()
fs = Nothing
Catch ex As Exception
' MsgBox(ex.Message)
Return False
End Try
CB = Nothing
ds = Nothing
da = Nothing
connection.Close()
connection = Nothing
Return True
End Function
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

43
EDOKA_Toolset/Plugin_Covid/Klassen/clsMailClient.vb Normal file
View File

@@ -0,0 +1,43 @@
Public Class clsMailClient
Dim m_empfaenger As String
Public Sub CreateOutlookMail(mailclient As String, absender As String, empfaenger As String, betreff As String, inhalt As String, attachment As String)
Select Case mailclient
Case "OUTLOOK"
Dim Outl As Object
Outl = CreateObject("Outlook.Application")
If Outl IsNot Nothing Then
Dim omsg As Object
omsg = Outl.CreateItem(0)
omsg.sender = absender
omsg.SentOnBehalfOfName = absender
omsg.ReadReceiptRequested = True
omsg.To = empfaenger
omsg.bcc = ""
omsg.subject = betreff
omsg.body = inhalt
omsg.Attachments.Add(attachment)
omsg.Display(True)
End If
Case "MAPI"
Dim mapi As New MapiMail
mapi.AddAttachment(attachment)
mapi.AddRecipientTo(empfaenger)
mapi.SendMailPopup(betreff, inhalt)
Case Else
MsgBox("Kein Mail-Client verfügbar.")
End Select
End Sub
End Class

206
EDOKA_Toolset/Plugin_Covid/Klassen/clsMapiMail.vb Normal file
View File

@@ -0,0 +1,206 @@
Imports System
Imports System.Runtime.InteropServices
Imports System.IO
Imports System.Collections.Generic
Imports System.Windows.Forms
Public Class MapiMail
Public Function AddRecipientTo(ByVal email As String) As Boolean
Return AddRecipient(email, howTo.MAPI_TO)
End Function
Public Function AddRecipientCC(ByVal email As String) As Boolean
Return AddRecipient(email, howTo.MAPI_TO)
End Function
Public Function AddRecipientBCC(ByVal email As String) As Boolean
Return AddRecipient(email, howTo.MAPI_TO)
End Function
Public Sub AddAttachment(ByVal strAttachmentFileName As String)
m_attachments.Add(strAttachmentFileName)
End Sub
Public Function SendMailPopup(ByVal strSubject As String, ByVal strBody As String) As Integer
Return SendMail(strSubject, strBody, MAPI_LOGON_UI Or MAPI_DIALOG)
End Function
Public Function SendMailDirect(ByVal strSubject As String, ByVal strBody As String) As Integer
Return SendMail(strSubject, strBody, MAPI_LOGON_UI)
End Function
<DllImport("MAPI32.DLL")>
Private Shared Function MAPISendMail(ByVal sess As IntPtr, ByVal hwnd As IntPtr, ByVal message As MapiMessage, ByVal flg As Integer, ByVal rsv As Integer) As Integer
End Function
Private Function SendMail(ByVal strSubject As String, ByVal strBody As String, ByVal how As Integer) As Integer
Dim msg As MapiMessage = New MapiMessage()
msg.subject = strSubject
msg.noteText = strBody
msg.recips = GetRecipients(msg.recipCount)
msg.files = GetAttachments(msg.fileCount)
m_lastError = MAPISendMail(New IntPtr(0), New IntPtr(0), msg, how, 0)
If m_lastError > 1 Then
MessageBox.Show("MAPISendMail failed! " + GetLastError(), "MAPISendMail")
End If
Cleanup(msg)
Return m_lastError
End Function
Private Function AddRecipient(ByVal email As String, ByVal howTo As howTo) As Boolean
Dim recipient As MapiRecipDesc = New MapiRecipDesc()
recipient.recipClass = CType(howTo, Integer)
recipient.name = email
m_recipients.Add(recipient)
Return True
End Function
Private Function GetRecipients(ByRef recipCount As Integer) As IntPtr
recipCount = 0
If m_recipients.Count = 0 Then
Return 0
End If
Dim size As Integer = Marshal.SizeOf(GetType(MapiRecipDesc))
Dim intPtr As IntPtr = Marshal.AllocHGlobal(m_recipients.Count * size)
'Dim ptr As Integer = CType(intPtr, Integer)
Dim ptr As Long = intPtr.ToInt64()
Dim mapiDesc As MapiRecipDesc
For Each mapiDesc In m_recipients
Marshal.StructureToPtr(mapiDesc, CType(ptr, IntPtr), False)
ptr += size
Next
recipCount = m_recipients.Count
Return intPtr
End Function
Private Function GetAttachments(ByRef fileCount As Integer) As IntPtr
fileCount = 0
If m_attachments Is Nothing Then
Return 0
End If
If (m_attachments.Count <= 0) Or (m_attachments.Count > maxAttachments) Then
Return 0
End If
Dim size As Integer = Marshal.SizeOf(GetType(MapiFileDesc))
Dim intPtr As IntPtr = Marshal.AllocHGlobal(m_attachments.Count * size)
Dim mapiFileDesc As MapiFileDesc = New MapiFileDesc()
mapiFileDesc.position = -1
'Dim ptr As Integer = CType(intPtr, Integer)
Dim ptr As Long = intPtr.ToInt64()
Dim strAttachment As String
For Each strAttachment In m_attachments
mapiFileDesc.name = Path.GetFileName(strAttachment)
mapiFileDesc.path = strAttachment
Marshal.StructureToPtr(mapiFileDesc, CType(ptr, IntPtr), False)
ptr += size
Next
fileCount = m_attachments.Count
Return intPtr
End Function
Private Sub Cleanup(ByRef msg As MapiMessage)
Dim size As Integer = Marshal.SizeOf(GetType(MapiRecipDesc))
'Dim ptr As Integer = 0
Dim ptr As Long = 0
If msg.recips <> IntPtr.Zero Then
ptr = CType(msg.recips, Long)
Dim i As Integer
For i = 0 To msg.recipCount - 1 Step i + 1
Marshal.DestroyStructure(CType(ptr, IntPtr), GetType(MapiRecipDesc))
ptr += size
Next
Marshal.FreeHGlobal(msg.recips)
End If
If msg.files <> IntPtr.Zero Then
size = Marshal.SizeOf(GetType(MapiFileDesc))
ptr = CType(msg.files, Long)
Dim i As Integer
For i = 0 To msg.fileCount - 1 Step i + 1
Marshal.DestroyStructure(CType(ptr, IntPtr), GetType(MapiFileDesc))
ptr += size
Next
Marshal.FreeHGlobal(msg.files)
End If
m_recipients.Clear()
m_attachments.Clear()
m_lastError = 0
End Sub
Public Function GetLastError() As String
If m_lastError <= 26 Then
Return errors(m_lastError)
End If
Return "MAPI error [" + m_lastError.ToString() + "]"
End Function
ReadOnly errors() As String = New String() {"OK [0]", "User abort [1]", "General MAPI failure [2]", "MAPI login failure [3]", "Disk full [4]", "Insufficient memory [5]", "Access denied [6]", "-unknown- [7]", "Too many sessions [8]", "Too many files were specified [9]", "Too many recipients were specified [10]", "A specified attachment was not found [11]", "Attachment open failure [12]", "Attachment write failure [13]", "Unknown recipient [14]", "Bad recipient type [15]", "No messages [16]", "Invalid message [17]", "Text too large [18]", "Invalid session [19]", "Type not supported [20]", "A recipient was specified ambiguously [21]", "Message in use [22]", "Network failure [23]", "Invalid edit fields [24]", "Invalid recipients [25]", "Not supported [26]"}
Dim m_recipients As New List(Of MapiRecipDesc)
Dim m_attachments As New List(Of String)
Dim m_lastError As Integer = 0
Private Const MAPI_LOGON_UI As Integer = &H1
Private Const MAPI_DIALOG As Integer = &H8
Private Const maxAttachments As Integer = 20
Enum howTo
MAPI_ORIG = 0
MAPI_TO
MAPI_CC
MAPI_BCC
End Enum
End Class
<StructLayout(LayoutKind.Sequential)>
Public Class MapiMessage
Public reserved As Integer
Public subject As String
Public noteText As String
Public messageType As String
Public dateReceived As String
Public conversationID As String
Public flags As Integer
Public originator As IntPtr
Public recipCount As Integer
Public recips As IntPtr
Public fileCount As Integer
Public files As IntPtr
End Class
<StructLayout(LayoutKind.Sequential)>
Public Class MapiFileDesc
Public reserved As Integer
Public flags As Integer
Public position As Integer
Public path As String
Public name As String
Public type As IntPtr
End Class
<StructLayout(LayoutKind.Sequential)>
Public Class MapiRecipDesc
Public reserved As Integer
Public recipClass As Integer
Public name As String
Public address As String
Public eIDSize As Integer
Public enTryID As IntPtr
End Class

13
EDOKA_Toolset/Plugin_Covid/My Project/Application.Designer.vb generated Normal file
View File

@@ -0,0 +1,13 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On

10
EDOKA_Toolset/Plugin_Covid/My Project/Application.myapp Normal file
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>

35
EDOKA_Toolset/Plugin_Covid/My Project/AssemblyInfo.vb Normal file
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 einer Assembly zugeordnet sind.
' Werte der Assemblyattribute überprüfen
<Assembly: AssemblyTitle("Plugin_Covid")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("Plugin_Covid")>
<Assembly: AssemblyCopyright("Copyright © 2020")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'Die folgende GUID wird für die typelib-ID verwendet, wenn dieses Projekt für COM verfügbar gemacht wird.
<Assembly: Guid("c9a4b2a5-7bac-4d42-8604-d2db66fb9b80")>
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
'
' Hauptversion
' Nebenversion
' Buildnummer
' Revision
'
' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
' indem Sie "*" wie unten gezeigt eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

62
EDOKA_Toolset/Plugin_Covid/My Project/Resources.Designer.vb generated Normal file
View File

@@ -0,0 +1,62 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder
'class via a tool like ResGen or Visual Studio.
'To add or remove a member, edit your .ResX file then rerun ResGen
'with the /str option, or rebuild your VS project.
'''<summary>
''' A strongly-typed resource class, for looking up localized strings, etc.
'''</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>
''' Returns the cached ResourceManager instance used by this class.
'''</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_Covid.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Overrides the current thread's CurrentUICulture property for all
''' resource lookups using this strongly typed resource class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set(ByVal value As Global.System.Globalization.CultureInfo)
resourceCulture = value
End Set
End Property
End Module
End Namespace

117
EDOKA_Toolset/Plugin_Covid/My Project/Resources.resx Normal file
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>

146
EDOKA_Toolset/Plugin_Covid/My Project/Settings.Designer.vb generated Normal file
View File

@@ -0,0 +1,146 @@
'------------------------------------------------------------------------------
' <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", "16.4.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 "Automatische My.Settings-Speicherfunktion"
#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(sender As Global.System.Object, 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
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("info@shub.ch")> _
Public Property Empfaenger() As String
Get
Return CType(Me("Empfaenger"),String)
End Get
Set
Me("Empfaenger") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("hutter@shub.ch")> _
Public Property Absender() As String
Get
Return CType(Me("Absender"),String)
End Get
Set
Me("Absender") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("#BPNR# #DOKID#")> _
Public Property Betreff() As String
Get
Return CType(Me("Betreff"),String)
End Get
Set
Me("Betreff") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Guten Tag"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Anbei eine freigegebene Kreditvereinbarung"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Freundliche Grüsse"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Th"& _
"urgauer Kantonalbank")> _
Public Property Mailinhalt() As String
Get
Return CType(Me("Mailinhalt"),String)
End Get
Set
Me("Mailinhalt") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("326")> _
Public Property Dokumenttyp() As String
Get
Return CType(Me("Dokumenttyp"),String)
End Get
Set
Me("Dokumenttyp") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("k:\edoka\")> _
Public Property Temppath() As String
Get
Return CType(Me("Temppath"),String)
End Get
Set
Me("Temppath") = value
End Set
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_Covid.My.MySettings
Get
Return Global.Plugin_Covid.My.MySettings.Default
End Get
End Property
End Module
End Namespace

29
EDOKA_Toolset/Plugin_Covid/My Project/Settings.settings Normal file
View File

@@ -0,0 +1,29 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
<Profiles />
<Settings>
<Setting Name="Empfaenger" Type="System.String" Scope="User">
<Value Profile="(Default)">info@shub.ch</Value>
</Setting>
<Setting Name="Absender" Type="System.String" Scope="User">
<Value Profile="(Default)">hutter@shub.ch</Value>
</Setting>
<Setting Name="Betreff" Type="System.String" Scope="User">
<Value Profile="(Default)">#BPNR# #DOKID#</Value>
</Setting>
<Setting Name="Mailinhalt" Type="System.String" Scope="User">
<Value Profile="(Default)">Guten Tag
Anbei eine freigegebene Kreditvereinbarung
Freundliche Grüsse
Thurgauer Kantonalbank</Value>
</Setting>
<Setting Name="Dokumenttyp" Type="System.String" Scope="User">
<Value Profile="(Default)">326</Value>
</Setting>
<Setting Name="Temppath" Type="System.String" Scope="User">
<Value Profile="(Default)">k:\edoka\</Value>
</Setting>
</Settings>
</SettingsFile>

1
EDOKA_Toolset/Plugin_Covid/My Project/licenses.licx Normal file
View File

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

136
EDOKA_Toolset/Plugin_Covid/Plugin_Covid.vbproj Normal file
View File

@@ -0,0 +1,136 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="15.0" 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>{F0F33D33-F41F-4FCC-BCCF-A120DD8B0D90}</ProjectGuid>
<OutputType>Library</OutputType>
<RootNamespace>Plugin_Covid</RootNamespace>
<AssemblyName>Plugin_Covid</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>Windows</MyType>
<TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
<Deterministic>true</Deterministic>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>..\Bin\</OutputPath>
<DocumentationFile>Plugin_Covid.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</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_Covid.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</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>..\..\..\..\DPM\DPM2016\DPM2016\bin\Debug\C1.Win.C1TrueDBGrid.2.dll</HintPath>
</Reference>
<Reference Include="PluginContracts">
<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" />
<Reference Include="System.Net.Http" />
</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" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="Class1.vb" />
<Compile Include="Form1.Designer.vb">
<DependentUpon>Form1.vb</DependentUpon>
</Compile>
<Compile Include="Form1.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Klassen\clsMailClient.vb" />
<Compile Include="Klassen\clsMapiMail.vb" />
<Compile Include="Klassen\DB.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>
<Compile Include="Utils\Crypto.vb" />
<Compile Include="Utils\Globals.vb" />
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="Form1.resx">
<DependentUpon>Form1.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="app.config" />
<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>
<ItemGroup>
<Content Include="XMLFile1.xml" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project>

34
EDOKA_Toolset/Plugin_Covid/Utils/Crypto.vb Normal file
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

14
EDOKA_Toolset/Plugin_Covid/Utils/Globals.vb Normal file
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

1
EDOKA_Toolset/Plugin_Covid/XMLFile1.xml Normal file
View File

@@ -0,0 +1 @@
<?xml version="1.0" encoding="utf-8" ?>

57
EDOKA_Toolset/Plugin_Covid/app.config Normal file
View File

@@ -0,0 +1,57 @@
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="Plugin_Covid.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<system.diagnostics>
<sources>
<!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
<source name="DefaultSource" switchName="DefaultSwitch">
<listeners>
<add name="FileLog"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog"/>-->
</listeners>
</source>
</sources>
<switches>
<add name="DefaultSwitch" value="Information" />
</switches>
<sharedListeners>
<add name="FileLog"
type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL"
initializeData="FileLogWriter"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners>
</system.diagnostics>
<userSettings>
<Plugin_Covid.My.MySettings>
<setting name="Empfaenger" serializeAs="String">
<value>info@shub.ch</value>
</setting>
<setting name="Absender" serializeAs="String">
<value>hutter@shub.ch</value>
</setting>
<setting name="Betreff" serializeAs="String">
<value>#BPNR# #DOKID#</value>
</setting>
<setting name="Mailinhalt" serializeAs="String">
<value>Guten Tag
Anbei eine freigegebene Kreditvereinbarung
Freundliche Grüsse
Thurgauer Kantonalbank</value>
</setting>
<setting name="Dokumenttyp" serializeAs="String">
<value>326</value>
</setting>
<setting name="Temppath" serializeAs="String">
<value>k:\edoka\</value>
</setting>
</Plugin_Covid.My.MySettings>
</userSettings>
</configuration>

BIN
EDOKA_Toolset/Plugin_Covid/bin/Release/C1.Win.C1Command.2.dll Normal file
View File

Binary file not shown.

11102
EDOKA_Toolset/Plugin_Covid/bin/Release/C1.Win.C1Command.2.xml Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
EDOKA_Toolset/Plugin_Covid/bin/Release/C1.Win.C1TrueDBGrid.2.dll Normal file
View File

Binary file not shown.

BIN
EDOKA_Toolset/Plugin_Covid/bin/Release/PluginContracts.dll Normal file
View File

Binary file not shown.

BIN
EDOKA_Toolset/Plugin_Covid/bin/Release/PluginContracts.pdb Normal file
View File

Binary file not shown.

26
EDOKA_Toolset/Plugin_Covid/bin/Release/PluginContracts.xml Normal file
View File

@@ -0,0 +1,26 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
PluginContracts
</name>
</assembly>
<members>
<member name="T:PluginContracts.My.Resources.Resources">
<summary>
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
</summary>
</member>
<member name="P:PluginContracts.My.Resources.Resources.ResourceManager">
<summary>
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
</summary>
</member>
<member name="P:PluginContracts.My.Resources.Resources.Culture">
<summary>
Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
</summary>
</member>
</members>
</doc>

BIN
EDOKA_Toolset/Plugin_Covid/bin/Release/Plugin_Covid.dll Normal file
View File

Binary file not shown.

57
EDOKA_Toolset/Plugin_Covid/bin/Release/Plugin_Covid.dll.config Normal file
View File

@@ -0,0 +1,57 @@
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="Plugin_Covid.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<system.diagnostics>
<sources>
<!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
<source name="DefaultSource" switchName="DefaultSwitch">
<listeners>
<add name="FileLog"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog"/>-->
</listeners>
</source>
</sources>
<switches>
<add name="DefaultSwitch" value="Information" />
</switches>
<sharedListeners>
<add name="FileLog"
type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL"
initializeData="FileLogWriter"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners>
</system.diagnostics>
<userSettings>
<Plugin_Covid.My.MySettings>
<setting name="Empfaenger" serializeAs="String">
<value>info@shub.ch</value>
</setting>
<setting name="Absender" serializeAs="String">
<value>hutter@shub.ch</value>
</setting>
<setting name="Betreff" serializeAs="String">
<value>#BPNR# #DOKID#</value>
</setting>
<setting name="Mailinhalt" serializeAs="String">
<value>Guten Tag
Anbei eine freigegebene Kreditvereinbarung
Freundliche Grüsse
Thurgauer Kantonalbank</value>
</setting>
<setting name="Dokumenttyp" serializeAs="String">
<value>326</value>
</setting>
<setting name="Temppath" serializeAs="String">
<value>k:\edoka\</value>
</setting>
</Plugin_Covid.My.MySettings>
</userSettings>
</configuration>

BIN
EDOKA_Toolset/Plugin_Covid/bin/Release/Plugin_Covid.pdb Normal file
View File

Binary file not shown.

36
EDOKA_Toolset/Plugin_Covid/bin/Release/Plugin_Covid.xml Normal file
View File

@@ -0,0 +1,36 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
Plugin_Covid
</name>
</assembly>
<members>
<member name="T:Plugin_Covid.My.Resources.Resources">
<summary>
A strongly-typed resource class, for looking up localized strings, etc.
</summary>
</member>
<member name="P:Plugin_Covid.My.Resources.Resources.ResourceManager">
<summary>
Returns the cached ResourceManager instance used by this class.
</summary>
</member>
<member name="P:Plugin_Covid.My.Resources.Resources.Culture">
<summary>
Overrides the current thread's CurrentUICulture property for all
resource lookups using this strongly typed resource class.
</summary>
</member>
<member name="M:Plugin_Covid.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>

BIN
EDOKA_Toolset/Plugin_Covid/obj/Debug/DesignTimeResolveAssemblyReferences.cache Normal file
View File

Binary file not shown.

BIN
EDOKA_Toolset/Plugin_Covid/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache Normal file
View File

Binary file not shown.

BIN
EDOKA_Toolset/Plugin_Covid/obj/Debug/Plugin_Covid.Form1.resources Normal file
View File

Binary file not shown.

BIN
EDOKA_Toolset/Plugin_Covid/obj/Debug/Plugin_Covid.Resources.resources Normal file
View File

Binary file not shown.

BIN
EDOKA_Toolset/Plugin_Covid/obj/Debug/Plugin_Covid.dll Normal file
View File

Binary file not shown.

BIN
EDOKA_Toolset/Plugin_Covid/obj/Debug/Plugin_Covid.pdb Normal file
View File

Binary file not shown.

0
EDOKA_Toolset/Plugin_Covid/obj/Debug/Plugin_Covid.vbproj.CopyComplete Normal file
View File

13
EDOKA_Toolset/Plugin_Covid/obj/Debug/Plugin_Covid.vbproj.FileListAbsolute.txt Normal file
View File

@@ -0,0 +1,13 @@
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Bin\Plugin_Covid.dll.config
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Bin\Plugin_Covid.dll
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Bin\Plugin_Covid.pdb
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Bin\Plugin_Covid.xml
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Covid\obj\Debug\Plugin_Covid.Form1.resources
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Covid\obj\Debug\Plugin_Covid.Resources.resources
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Covid\obj\Debug\Plugin_Covid.vbproj.GenerateResource.cache
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Covid\obj\Debug\Plugin_Covid.dll.licenses
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Covid\obj\Debug\Plugin_Covid.vbproj.CopyComplete
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Covid\obj\Debug\Plugin_Covid.dll
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Covid\obj\Debug\Plugin_Covid.xml
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Covid\obj\Debug\Plugin_Covid.pdb
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Covid\obj\Debug\Plugin_Covid.vbprojAssemblyReference.cache

BIN
EDOKA_Toolset/Plugin_Covid/obj/Debug/Plugin_Covid.vbproj.GenerateResource.cache Normal file
View File

Binary file not shown.

BIN
EDOKA_Toolset/Plugin_Covid/obj/Debug/Plugin_Covid.vbprojAssemblyReference.cache Normal file
View File

Binary file not shown.

36
EDOKA_Toolset/Plugin_Covid/obj/Debug/Plugin_Covid.xml Normal file
View File

@@ -0,0 +1,36 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
Plugin_Covid
</name>
</assembly>
<members>
<member name="T:Plugin_Covid.My.Resources.Resources">
<summary>
A strongly-typed resource class, for looking up localized strings, etc.
</summary>
</member>
<member name="P:Plugin_Covid.My.Resources.Resources.ResourceManager">
<summary>
Returns the cached ResourceManager instance used by this class.
</summary>
</member>
<member name="P:Plugin_Covid.My.Resources.Resources.Culture">
<summary>
Overrides the current thread's CurrentUICulture property for all
resource lookups using this strongly typed resource class.
</summary>
</member>
<member name="M:Plugin_Covid.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>

BIN
EDOKA_Toolset/Plugin_Covid/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll Normal file
View File

Binary file not shown.

BIN
EDOKA_Toolset/Plugin_Covid/obj/Debug/plugin_covid.dll.licenses Normal file
View File

Binary file not shown.

BIN
EDOKA_Toolset/Plugin_Covid/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache Normal file
View File

Binary file not shown.

BIN
EDOKA_Toolset/Plugin_Covid/obj/Release/Plugin_Covid.Form1.resources Normal file
View File

Binary file not shown.

BIN
EDOKA_Toolset/Plugin_Covid/obj/Release/Plugin_Covid.Resources.resources Normal file
View File

Binary file not shown.

BIN
EDOKA_Toolset/Plugin_Covid/obj/Release/Plugin_Covid.dll Normal file
View File

Binary file not shown.

BIN
EDOKA_Toolset/Plugin_Covid/obj/Release/Plugin_Covid.pdb Normal file
View File

Binary file not shown.

0
EDOKA_Toolset/Plugin_Covid/obj/Release/Plugin_Covid.vbproj.CopyComplete Normal file
View File

19
EDOKA_Toolset/Plugin_Covid/obj/Release/Plugin_Covid.vbproj.FileListAbsolute.txt Normal file
View File

@@ -0,0 +1,19 @@
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Covid\obj\Release\Plugin_Covid.vbprojAssemblyReference.cache
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Covid\obj\Release\Plugin_Covid.Form1.resources
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Covid\obj\Release\Plugin_Covid.Resources.resources
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Covid\obj\Release\Plugin_Covid.vbproj.GenerateResource.cache
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Covid\obj\Release\Plugin_Covid.dll.licenses
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Covid\bin\Release\Plugin_Covid.dll.config
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Covid\bin\Release\Plugin_Covid.dll
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Covid\bin\Release\Plugin_Covid.pdb
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Covid\bin\Release\Plugin_Covid.xml
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Covid\bin\Release\C1.Win.C1Command.2.dll
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Covid\bin\Release\C1.Win.C1TrueDBGrid.2.dll
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Covid\bin\Release\PluginContracts.dll
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Covid\bin\Release\C1.Win.C1Command.2.xml
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Covid\bin\Release\PluginContracts.pdb
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Covid\bin\Release\PluginContracts.xml
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Covid\obj\Release\Plugin_Covid.vbproj.CopyComplete
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Covid\obj\Release\Plugin_Covid.dll
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Covid\obj\Release\Plugin_Covid.xml
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Covid\obj\Release\Plugin_Covid.pdb

BIN
EDOKA_Toolset/Plugin_Covid/obj/Release/Plugin_Covid.vbproj.GenerateResource.cache Normal file
View File

Binary file not shown.

BIN
EDOKA_Toolset/Plugin_Covid/obj/Release/Plugin_Covid.vbprojAssemblyReference.cache Normal file
View File

Binary file not shown.

36
EDOKA_Toolset/Plugin_Covid/obj/Release/Plugin_Covid.xml Normal file
View File

@@ -0,0 +1,36 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
Plugin_Covid
</name>
</assembly>
<members>
<member name="T:Plugin_Covid.My.Resources.Resources">
<summary>
A strongly-typed resource class, for looking up localized strings, etc.
</summary>
</member>
<member name="P:Plugin_Covid.My.Resources.Resources.ResourceManager">
<summary>
Returns the cached ResourceManager instance used by this class.
</summary>
</member>
<member name="P:Plugin_Covid.My.Resources.Resources.Culture">
<summary>
Overrides the current thread's CurrentUICulture property for all
resource lookups using this strongly typed resource class.
</summary>
</member>
<member name="M:Plugin_Covid.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>

BIN
EDOKA_Toolset/Plugin_Covid/obj/Release/TempPE/My Project.Resources.Designer.vb.dll Normal file
View File

Binary file not shown.

BIN
EDOKA_Toolset/Plugin_Covid/obj/Release/plugin_covid.dll.licenses Normal file
View File

Binary file not shown.