Initial commit
This commit is contained in:
1
EDOKA_Toolset/.svn/entries
Normal file
1
EDOKA_Toolset/.svn/entries
Normal file
@@ -0,0 +1 @@
|
||||
12
|
||||
1
EDOKA_Toolset/.svn/format
Normal file
1
EDOKA_Toolset/.svn/format
Normal file
@@ -0,0 +1 @@
|
||||
12
|
||||
@@ -0,0 +1,130 @@
|
||||
<?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>
|
||||
<data name="PdfViewerPrinterSettings2.PrintLocation" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
|
||||
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAABVTeXN0ZW0uRHJh
|
||||
d2luZy5Qb2ludEYCAAAAAXgBeQAACwsCAAAAAAAAAAAAAAAL
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,252 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
PDFView
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
<member name="F:PDFView.ConvertPDF.PDFConvert.useSimpleAnsiConversion">
|
||||
<summary>Use to check for default transformation</summary>
|
||||
</member><member name="F:PDFView.ConvertPDF.PDFConvert.GS_OutputFileFormat">
|
||||
<summary>Thanks to tchu_2000 to remind that u should never hardcode strings! :)</summary>
|
||||
</member><member name="M:PDFView.ConvertPDF.PDFConvert.CopyMemory(System.IntPtr,System.IntPtr,System.UInt32)">
|
||||
<summary>Needed to copy memory from one location to another, used to fill the struct</summary>
|
||||
<param name="Destination"></param>
|
||||
<param name="Source"></param>
|
||||
<param name="Length"></param>
|
||||
</member><member name="M:PDFView.ConvertPDF.PDFConvert.gsapi_new_instance(System.IntPtr@,System.IntPtr)">
|
||||
<summary>Create a new instance of Ghostscript. This instance is passed to most other gsapi functions. The caller_handle will be provided to callback functions.
|
||||
At this stage, Ghostscript supports only one instance. </summary>
|
||||
<param name="pinstance"></param>
|
||||
<param name="caller_handle"></param>
|
||||
<returns></returns>
|
||||
</member><member name="M:PDFView.ConvertPDF.PDFConvert.gsapi_init_with_args(System.IntPtr,System.Int32,System.IntPtr)">
|
||||
<summary>This is the important function that will perform the conversion</summary>
|
||||
<param name="instance"></param>
|
||||
<param name="argc"></param>
|
||||
<param name="argv"></param>
|
||||
<returns></returns>
|
||||
</member><member name="M:PDFView.ConvertPDF.PDFConvert.gsapi_exit(System.IntPtr)">
|
||||
<summary>
|
||||
Exit the interpreter. This must be called on shutdown if gsapi_init_with_args() has been called, and just before gsapi_delete_instance().
|
||||
</summary>
|
||||
<param name="instance"></param>
|
||||
<returns></returns>
|
||||
</member><member name="M:PDFView.ConvertPDF.PDFConvert.gsapi_delete_instance(System.IntPtr)">
|
||||
<summary>
|
||||
Destroy an instance of Ghostscript. Before you call this, Ghostscript must have finished. If Ghostscript has been initialised, you must call gsapi_exit before gsapi_delete_instance.
|
||||
</summary>
|
||||
<param name="instance"></param>
|
||||
</member><member name="M:PDFView.ConvertPDF.PDFConvert.gsapi_revision(PDFView.ConvertPDF.GS_Revision@,System.Int32)">
|
||||
<summary>Get info about the version of Ghostscript i'm using</summary>
|
||||
<param name="pGSRevisionInfo"></param>
|
||||
<param name="intLen"></param>
|
||||
<returns></returns>
|
||||
</member><member name="M:PDFView.ConvertPDF.PDFConvert.gsapi_set_stdio(System.IntPtr,PDFView.ConvertPDF.StdioCallBack,PDFView.ConvertPDF.StdioCallBack,PDFView.ConvertPDF.StdioCallBack)">
|
||||
<summary>Use a different I/O</summary>
|
||||
<param name="lngGSInstance"></param>
|
||||
<param name="gsdll_stdin">Function that menage the Standard INPUT</param>
|
||||
<param name="gsdll_stdout">Function that menage the Standard OUTPUT</param>
|
||||
<param name="gsdll_stderr">Function that menage the Standard ERROR output</param>
|
||||
<returns></returns>
|
||||
</member><member name="F:PDFView.ConvertPDF.PDFConvert._iFirstPageToConvert">
|
||||
<summary>The first page to convert in image</summary>
|
||||
</member><member name="F:PDFView.ConvertPDF.PDFConvert._iLastPageToConvert">
|
||||
<summary>The last page to conver in an image</summary>
|
||||
</member><member name="F:PDFView.ConvertPDF.PDFConvert._iGraphicsAlphaBit">
|
||||
<summary>This parameter is used to control subsample antialiasing of graphics</summary>
|
||||
</member><member name="F:PDFView.ConvertPDF.PDFConvert._iTextAlphaBit">
|
||||
<summary>This parameter is used to control subsample antialiasing of text</summary>
|
||||
</member><member name="F:PDFView.ConvertPDF.PDFConvert._iRenderingThreads">
|
||||
<summary>In how many thread i should perform the conversion</summary>
|
||||
<remarks>This is a Major innovation since 8.63 NEVER use it with previous version!</remarks>
|
||||
</member><member name="P:PDFView.ConvertPDF.PDFConvert.RenderingThreads">
|
||||
<summary>In how many thread i should perform the conversion</summary>
|
||||
<remarks>This is a Major innovation since 8.63 NEVER use it with previous version!</remarks>
|
||||
<value>Set it to 0 made the program set it to Environment.ProcessorCount HT machine could want to perform a check for this..</value>
|
||||
</member><member name="F:PDFView.ConvertPDF.PDFConvert._sDefaultPageSize">
|
||||
<summary>The pagesize of the output</summary>
|
||||
</member><member name="F:PDFView.ConvertPDF.PDFConvert._didOutputToMultipleFile">
|
||||
<summary>If true i will try to output everypage to a different file!</summary>
|
||||
</member><member name="P:PDFView.ConvertPDF.PDFConvert.OutputFormat">
|
||||
<summary>
|
||||
What format to use to convert
|
||||
is suggested to use png256 instead of jpeg for document!
|
||||
they are smaller and better suited!
|
||||
</summary>
|
||||
</member><member name="P:PDFView.ConvertPDF.PDFConvert.DefaultPageSize">
|
||||
<summary>The pagesize of the output</summary>
|
||||
<remarks>Without this parameter the output should be letter, complain to USA for this :) if the document specify a different size it will take precedece over this!</remarks>
|
||||
</member><member name="P:PDFView.ConvertPDF.PDFConvert.ForcePageSize">
|
||||
<summary>If set to true and page default page size will force the rendering in that output format</summary>
|
||||
</member><member name="P:PDFView.ConvertPDF.PDFConvert.GraphicsAlphaBit">
|
||||
<summary>This parameter is used to control subsample antialiasing of graphics</summary>
|
||||
<value>Value MUST BE below or equal 0 if not set, or 1,2,or 4 NO OTHER VALUES!</value>
|
||||
</member><member name="P:PDFView.ConvertPDF.PDFConvert.TextAlphaBit">
|
||||
<summary>This parameter is used to control subsample antialiasing of text</summary>
|
||||
<value>Value MUST BE below or equal 0 if not set, or 1,2,or 4 NO OTHER VALUES!</value>
|
||||
</member><member name="P:PDFView.ConvertPDF.PDFConvert.JPEGQuality">
|
||||
<summary>Quality of compression of JPG</summary>
|
||||
</member><member name="P:PDFView.ConvertPDF.PDFConvert.FirstPageToConvert">
|
||||
<summary>The first page to convert in image</summary>
|
||||
</member><member name="P:PDFView.ConvertPDF.PDFConvert.LastPageToConvert">
|
||||
<summary>The last page to conver in an image</summary>
|
||||
</member><member name="P:PDFView.ConvertPDF.PDFConvert.ThrowOnlyException">
|
||||
<summary>Set to True if u want the program to never display Messagebox
|
||||
but otherwise throw exception</summary>
|
||||
</member><member name="P:PDFView.ConvertPDF.PDFConvert.RedirectIO">
|
||||
<summary>If i should redirect the Output of Ghostscript library somewhere</summary>
|
||||
</member><member name="P:PDFView.ConvertPDF.PDFConvert.OutputToMultipleFile">
|
||||
<summary>If true i will try to output everypage to a different file!</summary>
|
||||
</member><member name="M:PDFView.ConvertPDF.PDFConvert.Convert(System.String,System.String)">
|
||||
<summary>Convert a single file!</summary>
|
||||
<param name="inputFile">The file PDf to convert</param>
|
||||
<param name="outputFile">The image file that will be created</param>
|
||||
<remarks>You must pass all the parameter for the conversion
|
||||
as Proprieties of this class</remarks>
|
||||
<returns>True if the conversion succed!</returns>
|
||||
</member><member name="M:PDFView.ConvertPDF.PDFConvert.Convert(System.String,System.String,System.String)">
|
||||
<summary>Convert a single file!</summary>
|
||||
<param name="inputFile">The file PDf to convert</param>
|
||||
<param name="outputFile">The image file that will be created</param>
|
||||
<param name="parameters">You must pass all the parameter for the conversion here</param>
|
||||
<remarks>Thanks to tchu_2000 for the help!</remarks>
|
||||
<returns>True if the conversion succed!</returns>
|
||||
</member><member name="M:PDFView.ConvertPDF.PDFConvert.Convert(System.String,System.String,System.Boolean,System.String)">
|
||||
<summary>Convert a single file!</summary>
|
||||
<param name="inputFile">The file PDf to convert</param>
|
||||
<param name="outputFile">The image file that will be created</param>
|
||||
<param name="throwException">if the function should throw an exception
|
||||
or display a message box</param>
|
||||
<remarks>You must pass all the parameter for the conversion
|
||||
as Proprieties of this class</remarks>
|
||||
<returns>True if the conversion succed!</returns>
|
||||
</member><member name="M:PDFView.ConvertPDF.PDFConvert.ClearParameters(System.Runtime.InteropServices.GCHandle[]@,System.Runtime.InteropServices.GCHandle@)">
|
||||
<summary>Remove the memory allocated</summary>
|
||||
<param name="aGCHandle"></param>
|
||||
<param name="gchandleArgs"></param>
|
||||
</member><member name="M:PDFView.ConvertPDF.PDFConvert.GetGeneratedArgs(System.String,System.String,System.String)">
|
||||
<summary>This function create the list of parameters to pass to the dll with parameters given directly from the program</summary>
|
||||
<param name="inputFile"></param>
|
||||
<param name="outputFile"></param>
|
||||
<param name="otherParameters">The other parameters i could be interested</param>
|
||||
<remarks>Be very Cautious using this! code provided and modified from tchu_2000</remarks>
|
||||
<returns></returns>
|
||||
</member><member name="M:PDFView.ConvertPDF.PDFConvert.GetGeneratedArgs(System.String,System.String,System.String[])">
|
||||
<summary>This function create the list of parameters to pass to the dll</summary>
|
||||
<param name="inputFile">the file to convert</param>
|
||||
<param name="outputFile">where to write the image</param>
|
||||
<returns>the list of the arguments</returns>
|
||||
</member><member name="M:PDFView.ConvertPDF.PDFConvert.StringToAnsiZ(System.String)">
|
||||
<summary>
|
||||
Convert a Unicode string to a null terminated Ansi string for Ghostscript.
|
||||
The result is stored in a byte array
|
||||
</summary>
|
||||
<param name="str">The parameter i want to convert</param>
|
||||
<returns>the byte array that contain the string</returns>
|
||||
</member><member name="M:PDFView.ConvertPDF.PDFConvert.AnsiZtoString(System.IntPtr)">
|
||||
<summary>Convert a Pointer to a string to a real string</summary>
|
||||
<param name="strz">the pointer to the string in memory</param>
|
||||
<returns>The string</returns>
|
||||
</member><member name="T:PDFView.ConvertPDF.PDFConvert">
|
||||
<summary>
|
||||
Create by : TaGoH
|
||||
URL of the last version: http://www.codeproject.com/KB/cs/GhostScriptUseWithCSharp.aspx
|
||||
Description:
|
||||
Class to convert a pdf to an image using GhostScript DLL
|
||||
A big Credit for this code go to:Rangel Avulso
|
||||
I mainly create a better interface and refactor it to made it ready to use!
|
||||
</summary>
|
||||
</member><member name="T:PDFView.ConvertPDF.StdioCallBack">
|
||||
<summary>Delegate used by Ghostscript to perform I/O operations</summary>
|
||||
<param name="handle"></param>
|
||||
<param name="strptr"></param>
|
||||
<param name="count"></param>
|
||||
<returns></returns>
|
||||
</member><member name="T:PDFView.ConvertPDF.GS_Revision">
|
||||
<summary>This struct is filled with the information of the version of this ghostscript</summary>
|
||||
<remarks>Have the layout defined cuz i will fill it with a kernel copy memory</remarks>
|
||||
</member><member name="P:PDFView.My.Resources.Resources.ResourceManager">
|
||||
<summary>
|
||||
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
|
||||
</summary>
|
||||
</member><member name="P:PDFView.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="P:PDFView.My.Resources.Resources.BookmarkHtml">
|
||||
<summary>
|
||||
Sucht eine lokalisierte Zeichenfolge, die <HTML>
|
||||
<HEAD>
|
||||
<TITLE>PageIndex</TITLE>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function changeImage(filename)
|
||||
{
|
||||
parent.pageviewer.document.images['mainimage'].src = filename;
|
||||
}
|
||||
</script>
|
||||
</HEAD>
|
||||
<BODY bgcolor="#DDDDDD">{Body}</BODY>
|
||||
</HTML> ähnelt.
|
||||
</summary>
|
||||
</member><member name="P:PDFView.My.Resources.Resources.FrameHtml">
|
||||
<summary>
|
||||
Sucht eine lokalisierte Zeichenfolge, die <HTML>
|
||||
<HEAD>
|
||||
<TITLE>PDF to Image Html</TITLE>
|
||||
</HEAD>
|
||||
<FRAMESET ROWS="50,*" FRAMEBORDER=0 BORDER=0 >
|
||||
<FRAME NAME="top" SRC="content/top.html" MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE>
|
||||
<FRAMESET COLS="20%,80%" FRAMEBORDER=0 BORDER=0>
|
||||
<FRAME NAME="left" SRC="content/bookmark.html" MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=AUTO NORESIZE>
|
||||
<FRAMESET ROWS="*,25" FRAMEBORDER=0 BORDER=0 >
|
||||
<FRAME NAME="pa [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt.
|
||||
</summary>
|
||||
</member><member name="P:PDFView.My.Resources.Resources.PageHtml">
|
||||
<summary>
|
||||
Sucht eine lokalisierte Zeichenfolge, die <HTML>
|
||||
<HEAD>
|
||||
<TITLE>PageViewer</TITLE>
|
||||
</HEAD>
|
||||
<BODY bgcolor="#999999"><center><img id="mainimage" src="images/page1.png" width="100%"></center></BODY>
|
||||
</HTML> ähnelt.
|
||||
</summary>
|
||||
</member><member name="P:PDFView.My.Resources.Resources.PagesizeHtml">
|
||||
<summary>
|
||||
Sucht eine lokalisierte Zeichenfolge, die <HTML>
|
||||
<HEAD>
|
||||
<TITLE>PageSize</TITLE>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fitScreen()
|
||||
{
|
||||
parent.pageviewer.document.images['mainimage'].style.height = '100%';
|
||||
parent.pageviewer.document.images['mainimage'].style.width = 'auto';
|
||||
}
|
||||
function fitWidth()
|
||||
{
|
||||
parent.pageviewer.document.images['mainimage'].style.height = 'auto';
|
||||
parent.pageviewer.document.images['mainimage'].style.width = '100%';
|
||||
}
|
||||
function fitActual()
|
||||
{
|
||||
parent.pageviewer.document.images['mainimage'].style.height = 'auto';
|
||||
parent [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt.
|
||||
</summary>
|
||||
</member><member name="P:PDFView.My.Resources.Resources.TopHtml">
|
||||
<summary>
|
||||
Sucht eine lokalisierte Zeichenfolge, die <HTML>
|
||||
<HEAD>
|
||||
<TITLE>DocumentName</TITLE>
|
||||
</HEAD>
|
||||
<BODY bgcolor="#BBBBBB">{DocumentName}</BODY>
|
||||
</HTML> ähnelt.
|
||||
</summary>
|
||||
</member><member name="T:PDFView.My.Resources.Resources">
|
||||
<summary>
|
||||
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
|
||||
</summary>
|
||||
</member>
|
||||
</members>
|
||||
</doc>
|
||||
@@ -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_DokTypExportImport")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("")>
|
||||
<Assembly: AssemblyProduct("Plugin_DokTypExportImport")>
|
||||
<Assembly: AssemblyCopyright("Copyright © 2017")>
|
||||
<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("6da22c14-d7dc-46c5-b457-1dd722df5e9f")>
|
||||
|
||||
' 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,
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("1.0.0.0")>
|
||||
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
||||
@@ -0,0 +1,13 @@
|
||||
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\EDOKA_Toolset\obj\Debug\EDOKA_Toolset.vbprojResolveAssemblyReference.cache
|
||||
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\Bin\EDOKA_Toolset.exe.config
|
||||
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.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
|
||||
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,150 @@
|
||||
<?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>{5592C2F0-6A1C-4E55-851A-86C8277356C2}</ProjectGuid>
|
||||
<OutputType>Library</OutputType>
|
||||
<StartupObject>
|
||||
</StartupObject>
|
||||
<RootNamespace>Plugin_Outlook_Blacklist</RootNamespace>
|
||||
<AssemblyName>Plugin_Outlook_Blacklist</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>Windows</MyType>
|
||||
<TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
|
||||
<TargetFrameworkProfile />
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>..\Bin\</OutputPath>
|
||||
<DocumentationFile>Plugin_Outlook_Blacklist.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
<Prefer32Bit>false</Prefer32Bit>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
<DebugType>pdbonly</DebugType>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>bin\Release\</OutputPath>
|
||||
<DocumentationFile>Plugin_Outlook_Blacklist.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.20141.19617, 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.20141.61347, 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="Syncfusion.OCRProcessor.Base, Version=15.1450.0.33, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>C:\Program Files (x86)\Syncfusion\Essential Studio\15.1.0.33\Assemblies\3.5\Syncfusion.OCRProcessor.Base.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.Data" />
|
||||
<Reference Include="System.Deployment" />
|
||||
<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.Drawing" />
|
||||
<Import Include="System.Diagnostics" />
|
||||
<Import Include="System.Windows.Forms" />
|
||||
<Import Include="System.Linq" />
|
||||
<Import Include="System.Xml.Linq" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="Form1.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Form1.Designer.vb">
|
||||
<DependentUpon>Form1.vb</DependentUpon>
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Klassen\Class1.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="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>
|
||||
Binary file not shown.
@@ -0,0 +1,73 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <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
|
||||
|
||||
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.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 "My.Settings Auto-Save Functionality"
|
||||
#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_Doktyp_Owner_Wechsel.My.MySettings
|
||||
Get
|
||||
Return Global.Plugin_Doktyp_Owner_Wechsel.My.MySettings.Default
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
@@ -0,0 +1,82 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <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", "15.0.1.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.ApplicationScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("h:\scan\")> _
|
||||
Public ReadOnly Property SourcePath() As String
|
||||
Get
|
||||
Return CType(Me("SourcePath"),String)
|
||||
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_ScanToEDOKA.My.MySettings
|
||||
Get
|
||||
Return Global.Plugin_ScanToEDOKA.My.MySettings.Default
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
Binary file not shown.
@@ -0,0 +1,183 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="14.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>{871D232B-E4BC-4595-B7FD-FB4FB7343918}</ProjectGuid>
|
||||
<OutputType>Library</OutputType>
|
||||
<RootNamespace>Plugin_DokTyp_FV_Wechsel</RootNamespace>
|
||||
<AssemblyName>Plugin_DokTyp_FV_Wechsel</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_DokTyp_FV_Wechsel.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_DokTyp_FV_Wechsel.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.C1TrueDBGrid.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da, processorArchitecture=MSIL" />
|
||||
<Reference Include="FlexCel, Version=5.5.1.0, Culture=neutral, PublicKeyToken=cb8f6080e6d5a4d6, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\..\..\..\ITSM\Vertragsverwaltung\bin\Debug\FlexCel.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.Design" />
|
||||
<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" />
|
||||
<Reference Include="XLSLib, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\..\..\..\ITSM\Vertragsverwaltung\bin\Debug\XLSLib.dll</HintPath>
|
||||
</Reference>
|
||||
</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="Crypto.vb" />
|
||||
<Compile Include="DB.vb" />
|
||||
<Compile Include="DB\clsConnectionProvider.vb" />
|
||||
<Compile Include="DB\clsDBInteractionBase.vb" />
|
||||
<Compile Include="Form1.Designer.vb">
|
||||
<DependentUpon>Form1.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Form1.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmExcelSheets.designer.vb">
|
||||
<DependentUpon>frmExcelSheets.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="frmExcelSheets.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="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="Form1.resx">
|
||||
<DependentUpon>Form1.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmExcelSheets.resx">
|
||||
<DependentUpon>frmExcelSheets.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>
|
||||
<ItemGroup>
|
||||
<WCFMetadata Include="Service References\" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<COMReference Include="Microsoft.Office.Core">
|
||||
<Guid>{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}</Guid>
|
||||
<VersionMajor>2</VersionMajor>
|
||||
<VersionMinor>8</VersionMinor>
|
||||
<Lcid>0</Lcid>
|
||||
<WrapperTool>primary</WrapperTool>
|
||||
<Isolated>False</Isolated>
|
||||
<EmbedInteropTypes>True</EmbedInteropTypes>
|
||||
</COMReference>
|
||||
<COMReference Include="Microsoft.Office.Interop.Excel">
|
||||
<Guid>{00020813-0000-0000-C000-000000000046}</Guid>
|
||||
<VersionMajor>1</VersionMajor>
|
||||
<VersionMinor>9</VersionMinor>
|
||||
<Lcid>0</Lcid>
|
||||
<WrapperTool>primary</WrapperTool>
|
||||
<Isolated>False</Isolated>
|
||||
<EmbedInteropTypes>True</EmbedInteropTypes>
|
||||
</COMReference>
|
||||
<COMReference Include="VBIDE">
|
||||
<Guid>{0002E157-0000-0000-C000-000000000046}</Guid>
|
||||
<VersionMajor>5</VersionMajor>
|
||||
<VersionMinor>3</VersionMinor>
|
||||
<Lcid>0</Lcid>
|
||||
<WrapperTool>primary</WrapperTool>
|
||||
<Isolated>False</Isolated>
|
||||
<EmbedInteropTypes>True</EmbedInteropTypes>
|
||||
</COMReference>
|
||||
</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>
|
||||
Binary file not shown.
File diff suppressed because it is too large
Load Diff
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,107 @@
|
||||
Public Class FrmDocmSettings
|
||||
|
||||
Dim dbconn As New DB_Connection
|
||||
Dim db 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)
|
||||
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 = ""
|
||||
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"
|
||||
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
|
||||
|
||||
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
|
||||
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
|
||||
End Class
|
||||
Binary file not shown.
@@ -0,0 +1,325 @@
|
||||
<?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>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="Button7.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACrElEQVQ4T7WT3U9SYRzHTy+r5bqp1VUX
|
||||
3XTR/AdaV7W1uuyue5V4kRdJ1GVhsSzXumjTyYwXQd4VxQUHOBxefBkkg81AMbWlKZBaCbqBJEyIXw/w
|
||||
zOZFddVn++08e77f7+8857fnEP+VcCL9Qzwe4FWqwzx9l2+kr3KlU2ex/G8s0U+lz7vZ/M5+oZjYzaWU
|
||||
gZhFZJ4WsfVUPbb8nV7vLES+ZyGynYVENg/b+QMgF+Nf2sxTWqbKcQ3b/gxf525lqamf6LnXZQ0WzbEk
|
||||
rGQKqMl6UWjwerhK+gq2/kZCztbh5SEtOt9todFnFA77UiOxBERTeyAhZ9J8g7cLW2p0T8ZY0tDHcn94
|
||||
OY+3jsDV0NKO8UDelUiDIrgEPC0dwhJBiJ2zzFcTUdjMFcC2lIQeb2QfS4ewBl3XuVr3jml5C3ToJJwh
|
||||
V6oqiJ1hppgMQuhbBsJoaNF0DnTz69D59l0eAI5VTQhBH3WaraJKg/NJUEbjwFa7MkQbFarn6z0gNPmq
|
||||
NbKSAtnCJgiN3rJA7ymjAZZxvnoCjobOKWIb8HJqAThqao1oNQfPCMz+iy0m3+tKg2eeORj4sIW6U1DR
|
||||
JBI4jvMER+t2PLbOlOWLX0E05i81a90GLNVga+hCN+osnd8ANGFoG5seeTgWuMnTe4Q8g3fukcVfJFe3
|
||||
oS+aQC+gM81azw0crcFSUQqe3lt6OrkAve/j0G7xVwYFD0wT0OOJgH0tDf3RJAiGJ/fZQ1QPjh0FXRwd
|
||||
Eoud9jDI0LDI1RQ411KgW9yqfjdryFlgqp0D2P6be6OjJ1hysg7VBYbS/oShJDfQdS2yVM5ype6rHAcM
|
||||
hS3eJCfbGUr6fOWnQplTOF5DIpk6WRGbBh2Xm2TkrUa5tbVBZnvR+Mb2vEFmFaG9O2yN/VKz0XGuFiaI
|
||||
X5PSraNl1YanAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="Button6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACrElEQVQ4T7WT3U9SYRzHTy+r5bqp1VUX
|
||||
3XTR/AdaV7W1uuyue5V4kRdJ1GVhsSzXumjTyYwXQd4VxQUHOBxefBkkg81AMbWlKZBaCbqBJEyIXw/w
|
||||
zOZFddVn++08e77f7+8857fnEP+VcCL9Qzwe4FWqwzx9l2+kr3KlU2ex/G8s0U+lz7vZ/M5+oZjYzaWU
|
||||
gZhFZJ4WsfVUPbb8nV7vLES+ZyGynYVENg/b+QMgF+Nf2sxTWqbKcQ3b/gxf525lqamf6LnXZQ0WzbEk
|
||||
rGQKqMl6UWjwerhK+gq2/kZCztbh5SEtOt9todFnFA77UiOxBERTeyAhZ9J8g7cLW2p0T8ZY0tDHcn94
|
||||
OY+3jsDV0NKO8UDelUiDIrgEPC0dwhJBiJ2zzFcTUdjMFcC2lIQeb2QfS4ewBl3XuVr3jml5C3ToJJwh
|
||||
V6oqiJ1hppgMQuhbBsJoaNF0DnTz69D59l0eAI5VTQhBH3WaraJKg/NJUEbjwFa7MkQbFarn6z0gNPmq
|
||||
NbKSAtnCJgiN3rJA7ymjAZZxvnoCjobOKWIb8HJqAThqao1oNQfPCMz+iy0m3+tKg2eeORj4sIW6U1DR
|
||||
JBI4jvMER+t2PLbOlOWLX0E05i81a90GLNVga+hCN+osnd8ANGFoG5seeTgWuMnTe4Q8g3fukcVfJFe3
|
||||
oS+aQC+gM81azw0crcFSUQqe3lt6OrkAve/j0G7xVwYFD0wT0OOJgH0tDf3RJAiGJ/fZQ1QPjh0FXRwd
|
||||
Eoud9jDI0LDI1RQ411KgW9yqfjdryFlgqp0D2P6be6OjJ1hysg7VBYbS/oShJDfQdS2yVM5ype6rHAcM
|
||||
hS3eJCfbGUr6fOWnQplTOF5DIpk6WRGbBh2Xm2TkrUa5tbVBZnvR+Mb2vEFmFaG9O2yN/VKz0XGuFiaI
|
||||
X5PSraNl1YanAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="Button2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACrElEQVQ4T7WT3U9SYRzHTy+r5bqp1VUX
|
||||
3XTR/AdaV7W1uuyue5V4kRdJ1GVhsSzXumjTyYwXQd4VxQUHOBxefBkkg81AMbWlKZBaCbqBJEyIXw/w
|
||||
zOZFddVn++08e77f7+8857fnEP+VcCL9Qzwe4FWqwzx9l2+kr3KlU2ex/G8s0U+lz7vZ/M5+oZjYzaWU
|
||||
gZhFZJ4WsfVUPbb8nV7vLES+ZyGynYVENg/b+QMgF+Nf2sxTWqbKcQ3b/gxf525lqamf6LnXZQ0WzbEk
|
||||
rGQKqMl6UWjwerhK+gq2/kZCztbh5SEtOt9todFnFA77UiOxBERTeyAhZ9J8g7cLW2p0T8ZY0tDHcn94
|
||||
OY+3jsDV0NKO8UDelUiDIrgEPC0dwhJBiJ2zzFcTUdjMFcC2lIQeb2QfS4ewBl3XuVr3jml5C3ToJJwh
|
||||
V6oqiJ1hppgMQuhbBsJoaNF0DnTz69D59l0eAI5VTQhBH3WaraJKg/NJUEbjwFa7MkQbFarn6z0gNPmq
|
||||
NbKSAtnCJgiN3rJA7ymjAZZxvnoCjobOKWIb8HJqAThqao1oNQfPCMz+iy0m3+tKg2eeORj4sIW6U1DR
|
||||
JBI4jvMER+t2PLbOlOWLX0E05i81a90GLNVga+hCN+osnd8ANGFoG5seeTgWuMnTe4Q8g3fukcVfJFe3
|
||||
oS+aQC+gM81azw0crcFSUQqe3lt6OrkAve/j0G7xVwYFD0wT0OOJgH0tDf3RJAiGJ/fZQ1QPjh0FXRwd
|
||||
Eoud9jDI0LDI1RQ411KgW9yqfjdryFlgqp0D2P6be6OjJ1hysg7VBYbS/oShJDfQdS2yVM5ype6rHAcM
|
||||
hS3eJCfbGUr6fOWnQplTOF5DIpk6WRGbBh2Xm2TkrUa5tbVBZnvR+Mb2vEFmFaG9O2yN/VKz0XGuFiaI
|
||||
X5PSraNl1YanAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="Button1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACrElEQVQ4T7WT3U9SYRzHTy+r5bqp1VUX
|
||||
3XTR/AdaV7W1uuyue5V4kRdJ1GVhsSzXumjTyYwXQd4VxQUHOBxefBkkg81AMbWlKZBaCbqBJEyIXw/w
|
||||
zOZFddVn++08e77f7+8857fnEP+VcCL9Qzwe4FWqwzx9l2+kr3KlU2ex/G8s0U+lz7vZ/M5+oZjYzaWU
|
||||
gZhFZJ4WsfVUPbb8nV7vLES+ZyGynYVENg/b+QMgF+Nf2sxTWqbKcQ3b/gxf525lqamf6LnXZQ0WzbEk
|
||||
rGQKqMl6UWjwerhK+gq2/kZCztbh5SEtOt9todFnFA77UiOxBERTeyAhZ9J8g7cLW2p0T8ZY0tDHcn94
|
||||
OY+3jsDV0NKO8UDelUiDIrgEPC0dwhJBiJ2zzFcTUdjMFcC2lIQeb2QfS4ewBl3XuVr3jml5C3ToJJwh
|
||||
V6oqiJ1hppgMQuhbBsJoaNF0DnTz69D59l0eAI5VTQhBH3WaraJKg/NJUEbjwFa7MkQbFarn6z0gNPmq
|
||||
NbKSAtnCJgiN3rJA7ymjAZZxvnoCjobOKWIb8HJqAThqao1oNQfPCMz+iy0m3+tKg2eeORj4sIW6U1DR
|
||||
JBI4jvMER+t2PLbOlOWLX0E05i81a90GLNVga+hCN+osnd8ANGFoG5seeTgWuMnTe4Q8g3fukcVfJFe3
|
||||
oS+aQC+gM81azw0crcFSUQqe3lt6OrkAve/j0G7xVwYFD0wT0OOJgH0tDf3RJAiGJ/fZQ1QPjh0FXRwd
|
||||
Eoud9jDI0LDI1RQ411KgW9yqfjdryFlgqp0D2P6be6OjJ1hysg7VBYbS/oShJDfQdS2yVM5ype6rHAcM
|
||||
hS3eJCfbGUr6fOWnQplTOF5DIpk6WRGbBh2Xm2TkrUa5tbVBZnvR+Mb2vEFmFaG9O2yN/VKz0XGuFiaI
|
||||
X5PSraNl1YanAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="Button5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACrElEQVQ4T7WT3U9SYRzHTy+r5bqp1VUX
|
||||
3XTR/AdaV7W1uuyue5V4kRdJ1GVhsSzXumjTyYwXQd4VxQUHOBxefBkkg81AMbWlKZBaCbqBJEyIXw/w
|
||||
zOZFddVn++08e77f7+8857fnEP+VcCL9Qzwe4FWqwzx9l2+kr3KlU2ex/G8s0U+lz7vZ/M5+oZjYzaWU
|
||||
gZhFZJ4WsfVUPbb8nV7vLES+ZyGynYVENg/b+QMgF+Nf2sxTWqbKcQ3b/gxf525lqamf6LnXZQ0WzbEk
|
||||
rGQKqMl6UWjwerhK+gq2/kZCztbh5SEtOt9todFnFA77UiOxBERTeyAhZ9J8g7cLW2p0T8ZY0tDHcn94
|
||||
OY+3jsDV0NKO8UDelUiDIrgEPC0dwhJBiJ2zzFcTUdjMFcC2lIQeb2QfS4ewBl3XuVr3jml5C3ToJJwh
|
||||
V6oqiJ1hppgMQuhbBsJoaNF0DnTz69D59l0eAI5VTQhBH3WaraJKg/NJUEbjwFa7MkQbFarn6z0gNPmq
|
||||
NbKSAtnCJgiN3rJA7ymjAZZxvnoCjobOKWIb8HJqAThqao1oNQfPCMz+iy0m3+tKg2eeORj4sIW6U1DR
|
||||
JBI4jvMER+t2PLbOlOWLX0E05i81a90GLNVga+hCN+osnd8ANGFoG5seeTgWuMnTe4Q8g3fukcVfJFe3
|
||||
oS+aQC+gM81azw0crcFSUQqe3lt6OrkAve/j0G7xVwYFD0wT0OOJgH0tDf3RJAiGJ/fZQ1QPjh0FXRwd
|
||||
Eoud9jDI0LDI1RQ411KgW9yqfjdryFlgqp0D2P6be6OjJ1hysg7VBYbS/oShJDfQdS2yVM5ype6rHAcM
|
||||
hS3eJCfbGUr6fOWnQplTOF5DIpk6WRGbBh2Xm2TkrUa5tbVBZnvR+Mb2vEFmFaG9O2yN/VKz0XGuFiaI
|
||||
X5PSraNl1YanAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="Button4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACrElEQVQ4T7WT3U9SYRzHTy+r5bqp1VUX
|
||||
3XTR/AdaV7W1uuyue5V4kRdJ1GVhsSzXumjTyYwXQd4VxQUHOBxefBkkg81AMbWlKZBaCbqBJEyIXw/w
|
||||
zOZFddVn++08e77f7+8857fnEP+VcCL9Qzwe4FWqwzx9l2+kr3KlU2ex/G8s0U+lz7vZ/M5+oZjYzaWU
|
||||
gZhFZJ4WsfVUPbb8nV7vLES+ZyGynYVENg/b+QMgF+Nf2sxTWqbKcQ3b/gxf525lqamf6LnXZQ0WzbEk
|
||||
rGQKqMl6UWjwerhK+gq2/kZCztbh5SEtOt9todFnFA77UiOxBERTeyAhZ9J8g7cLW2p0T8ZY0tDHcn94
|
||||
OY+3jsDV0NKO8UDelUiDIrgEPC0dwhJBiJ2zzFcTUdjMFcC2lIQeb2QfS4ewBl3XuVr3jml5C3ToJJwh
|
||||
V6oqiJ1hppgMQuhbBsJoaNF0DnTz69D59l0eAI5VTQhBH3WaraJKg/NJUEbjwFa7MkQbFarn6z0gNPmq
|
||||
NbKSAtnCJgiN3rJA7ymjAZZxvnoCjobOKWIb8HJqAThqao1oNQfPCMz+iy0m3+tKg2eeORj4sIW6U1DR
|
||||
JBI4jvMER+t2PLbOlOWLX0E05i81a90GLNVga+hCN+osnd8ANGFoG5seeTgWuMnTe4Q8g3fukcVfJFe3
|
||||
oS+aQC+gM81azw0crcFSUQqe3lt6OrkAve/j0G7xVwYFD0wT0OOJgH0tDf3RJAiGJ/fZQ1QPjh0FXRwd
|
||||
Eoud9jDI0LDI1RQ411KgW9yqfjdryFlgqp0D2P6be6OjJ1hysg7VBYbS/oShJDfQdS2yVM5ype6rHAcM
|
||||
hS3eJCfbGUr6fOWnQplTOF5DIpk6WRGbBh2Xm2TkrUa5tbVBZnvR+Mb2vEFmFaG9O2yN/VKz0XGuFiaI
|
||||
X5PSraNl1YanAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="Button3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACrElEQVQ4T7WT3U9SYRzHTy+r5bqp1VUX
|
||||
3XTR/AdaV7W1uuyue5V4kRdJ1GVhsSzXumjTyYwXQd4VxQUHOBxefBkkg81AMbWlKZBaCbqBJEyIXw/w
|
||||
zOZFddVn++08e77f7+8857fnEP+VcCL9Qzwe4FWqwzx9l2+kr3KlU2ex/G8s0U+lz7vZ/M5+oZjYzaWU
|
||||
gZhFZJ4WsfVUPbb8nV7vLES+ZyGynYVENg/b+QMgF+Nf2sxTWqbKcQ3b/gxf525lqamf6LnXZQ0WzbEk
|
||||
rGQKqMl6UWjwerhK+gq2/kZCztbh5SEtOt9todFnFA77UiOxBERTeyAhZ9J8g7cLW2p0T8ZY0tDHcn94
|
||||
OY+3jsDV0NKO8UDelUiDIrgEPC0dwhJBiJ2zzFcTUdjMFcC2lIQeb2QfS4ewBl3XuVr3jml5C3ToJJwh
|
||||
V6oqiJ1hppgMQuhbBsJoaNF0DnTz69D59l0eAI5VTQhBH3WaraJKg/NJUEbjwFa7MkQbFarn6z0gNPmq
|
||||
NbKSAtnCJgiN3rJA7ymjAZZxvnoCjobOKWIb8HJqAThqao1oNQfPCMz+iy0m3+tKg2eeORj4sIW6U1DR
|
||||
JBI4jvMER+t2PLbOlOWLX0E05i81a90GLNVga+hCN+osnd8ANGFoG5seeTgWuMnTe4Q8g3fukcVfJFe3
|
||||
oS+aQC+gM81azw0crcFSUQqe3lt6OrkAve/j0G7xVwYFD0wT0OOJgH0tDf3RJAiGJ/fZQ1QPjh0FXRwd
|
||||
Eoud9jDI0LDI1RQ411KgW9yqfjdryFlgqp0D2P6be6OjJ1hysg7VBYbS/oShJDfQdS2yVM5ype6rHAcM
|
||||
hS3eJCfbGUr6fOWnQplTOF5DIpk6WRGbBh2Xm2TkrUa5tbVBZnvR+Mb2vEFmFaG9O2yN/VKz0XGuFiaI
|
||||
X5PSraNl1YanAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>132, 17</value>
|
||||
</metadata>
|
||||
<data name="C1Daten.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="C1Daten.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="C1Daten.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>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{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;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;}Style1{}Caption{Wrap:True;Trimming:Character;AlignHorz:Center;}Style6{}FilterBar{ForeColor:Black;BackColor:255, 255, 192;}</Data></Styles><Splits><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"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 811, 279</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 811, 279</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||
</data>
|
||||
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
|
||||
YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
|
||||
0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
|
||||
bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
|
||||
VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
|
||||
c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
|
||||
Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
|
||||
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
|
||||
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
|
||||
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
|
||||
YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
|
||||
0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
|
||||
bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
|
||||
VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
|
||||
c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
|
||||
Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
|
||||
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
|
||||
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
|
||||
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>239, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
@@ -0,0 +1,73 @@
|
||||
Imports MyNameSpace.CSVDataAdapter
|
||||
Imports System.IO
|
||||
Public Class form1
|
||||
|
||||
Dim dsdaten As New DataSet
|
||||
Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchliessenToolStripMenuItem.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub DokumentlisteLadenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentlisteLadenToolStripMenuItem.Click
|
||||
dsdaten.Tables.Clear()
|
||||
Me.OpenFileDialog1.Filter = "CSV-Dateien (*.csv)|*.csv|Text-Dateien (*.txt)|*.txt|Alle Dateien (*.*)|*.*"
|
||||
Me.OpenFileDialog1.FileName = ""
|
||||
Me.OpenFileDialog1.ShowDialog()
|
||||
If Me.OpenFileDialog1.FileName = "" Then Exit Sub
|
||||
|
||||
FillDataTableFromText(Me.OpenFileDialog1.FileName)
|
||||
Try
|
||||
Me.c1daten.DataSource = Nothing
|
||||
Me.c1daten.DataSource = dsdaten.Tables(0)
|
||||
Me.c1daten.DataMember = dsdaten.Tables(0).TableName
|
||||
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Function FillDataTableFromText(ByVal file As String) As DataTable
|
||||
Select Case UCase(Microsoft.VisualBasic.Right(file, 3))
|
||||
Case "CSV"
|
||||
Dim csv As New MyNameSpace.CSVDataAdapter(file, True, ";")
|
||||
csv.Fill(Me.dsdaten)
|
||||
End Select
|
||||
'Rel. Office Migration
|
||||
|
||||
Dim dv As DataRow
|
||||
|
||||
End Function
|
||||
|
||||
Private Sub NotizLadenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NotizLadenToolStripMenuItem.Click
|
||||
Me.OpenFileDialog1.Filter = "Text-Dateien (*.txt)|*.txt|Alle Dateien (*.*)|*.*"
|
||||
Me.OpenFileDialog1.FileName = ""
|
||||
Me.OpenFileDialog1.ShowDialog()
|
||||
If Me.OpenFileDialog1.FileName = "" Then Exit Sub
|
||||
Dim read As IO.StreamReader
|
||||
read = IO.File.OpenText(Me.OpenFileDialog1.FileName)
|
||||
TextBox1.Text = read.ReadToEnd()
|
||||
read.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub UpdateDurchführenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UpdateDurchführenToolStripMenuItem.Click
|
||||
Dim f As New frmProgress
|
||||
f.Show()
|
||||
f.ProgressBar1.Minimum = 1
|
||||
f.ProgressBar1.Maximum = Me.dsdaten.Tables(0).Rows.Count
|
||||
Dim db As New DB
|
||||
Dim dbconn As New DB_Connection
|
||||
|
||||
Dim i As Integer = 0
|
||||
For Each r As DataRow In dsdaten.Tables(0).Rows
|
||||
db.insert_data(r(2), Me.TextBox1.Text)
|
||||
i = i + 1
|
||||
f.ProgressBar1.Value = i
|
||||
f.Refresh()
|
||||
|
||||
Next
|
||||
f.Close()
|
||||
MsgBox("Updates seitens EDOKA sind durchgeführt.", vbInformation)
|
||||
End Sub
|
||||
|
||||
Private Sub form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
@@ -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_DokTyp_FV_Wechsel")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("")>
|
||||
<Assembly: AssemblyProduct("Plugin_DokTyp_FV_Wechsel")>
|
||||
<Assembly: AssemblyCopyright("Copyright © 2016")>
|
||||
<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("09e722a4-72b4-4e44-91f6-cb943208e59f")>
|
||||
|
||||
' 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")>
|
||||
Binary file not shown.
@@ -0,0 +1,100 @@
|
||||
|
||||
Microsoft Visual Studio Solution File, Format Version 12.00
|
||||
# Visual Studio 15
|
||||
VisualStudioVersion = 15.0.26228.4
|
||||
MinimumVisualStudioVersion = 10.0.40219.1
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EDOKA_Toolset", "EDOKA_Toolset\EDOKA_Toolset.vbproj", "{1210CA67-4D06-4344-81F4-E7EBB72D4816}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Plugin_Aufhebung", "Plugin_Aufhebung\Plugin_Aufhebung.vbproj", "{5ECF705D-AC6F-4EC6-8C48-08298EC6FFB0}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "PluginContracts", "PluginContracts\PluginContracts.vbproj", "{B481F785-83E5-420B-A2F4-6C194A5A9177}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Plugin_Docm_Settings", "Plugin_Docm_Settings\Plugin_Docm_Settings.vbproj", "{8FC1F3C3-1CBB-4CB2-89A1-2E5B0A110692}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Plugin_Outlook_Blacklist", "Plugin_Outlook_Blacklist\Plugin_Outlook_Blacklist.vbproj", "{5592C2F0-6A1C-4E55-851A-86C8277356C2}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Plugin_DokTyp_FV_Wechsel", "Plugin_DokTyp_FV_Wechsel\Plugin_DokTyp_FV_Wechsel.vbproj", "{871D232B-E4BC-4595-B7FD-FB4FB7343918}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Plugin_HostNotiz", "Plugin_HostNotiz\Plugin_HostNotiz.vbproj", "{5FD514CC-8A85-4C40-A67D-1714B77E067C}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Plugin_EDKTester", "Plugin_EDKTester\Plugin_EDKTester.vbproj", "{87129578-592E-4CA4-B54E-E347D58C43B6}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Plugin_Kube_Berechtigungen", "Plugin_Kube_Berechtigungen\Plugin_Kube_Berechtigungen.vbproj", "{C2D36C55-96AE-466E-8E04-2F9A58EC293F}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Plugin_Dokument_Berechtigung", "Plugin_Dokument_Berechtigung\Plugin_Dokument_Berechtigung.vbproj", "{6165970A-2DDC-4B98-B0FC-BC28FB52BF32}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Plugin_FiVo", "Plugin_FiVo\Plugin_FiVo.vbproj", "{78C278FC-9B94-4AE9-9FD6-AD3B2A0D0E6D}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Plugin_Doktyp_Owner_Wechsel", "Plugin_Doktyp_Owner_Wechsel\Plugin_Doktyp_Owner_Wechsel.vbproj", "{2B23755B-7073-4C57-92D5-92ECB8746845}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Plugin_EDK", "Plugin_EDK\Plugin_EDK.vbproj", "{7E1AA04C-DF46-4BE4-B588-3CD9D2B4162C}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Plugin_DokTypExportImport", "Plugin_DokTypExportImport\Plugin_DokTypExportImport.vbproj", "{87307F38-72A3-42E8-B837-BD5AD8132158}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
Debug|Any CPU = Debug|Any CPU
|
||||
Release|Any CPU = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||
{1210CA67-4D06-4344-81F4-E7EBB72D4816}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{1210CA67-4D06-4344-81F4-E7EBB72D4816}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{1210CA67-4D06-4344-81F4-E7EBB72D4816}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{1210CA67-4D06-4344-81F4-E7EBB72D4816}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{5ECF705D-AC6F-4EC6-8C48-08298EC6FFB0}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{5ECF705D-AC6F-4EC6-8C48-08298EC6FFB0}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{5ECF705D-AC6F-4EC6-8C48-08298EC6FFB0}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{5ECF705D-AC6F-4EC6-8C48-08298EC6FFB0}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{B481F785-83E5-420B-A2F4-6C194A5A9177}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{B481F785-83E5-420B-A2F4-6C194A5A9177}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{B481F785-83E5-420B-A2F4-6C194A5A9177}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{B481F785-83E5-420B-A2F4-6C194A5A9177}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{8FC1F3C3-1CBB-4CB2-89A1-2E5B0A110692}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{8FC1F3C3-1CBB-4CB2-89A1-2E5B0A110692}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{8FC1F3C3-1CBB-4CB2-89A1-2E5B0A110692}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{8FC1F3C3-1CBB-4CB2-89A1-2E5B0A110692}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{5592C2F0-6A1C-4E55-851A-86C8277356C2}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{5592C2F0-6A1C-4E55-851A-86C8277356C2}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{5592C2F0-6A1C-4E55-851A-86C8277356C2}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{5592C2F0-6A1C-4E55-851A-86C8277356C2}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{871D232B-E4BC-4595-B7FD-FB4FB7343918}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{871D232B-E4BC-4595-B7FD-FB4FB7343918}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{871D232B-E4BC-4595-B7FD-FB4FB7343918}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{871D232B-E4BC-4595-B7FD-FB4FB7343918}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{5FD514CC-8A85-4C40-A67D-1714B77E067C}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{5FD514CC-8A85-4C40-A67D-1714B77E067C}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{5FD514CC-8A85-4C40-A67D-1714B77E067C}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{5FD514CC-8A85-4C40-A67D-1714B77E067C}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{87129578-592E-4CA4-B54E-E347D58C43B6}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{87129578-592E-4CA4-B54E-E347D58C43B6}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{87129578-592E-4CA4-B54E-E347D58C43B6}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{87129578-592E-4CA4-B54E-E347D58C43B6}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{C2D36C55-96AE-466E-8E04-2F9A58EC293F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{C2D36C55-96AE-466E-8E04-2F9A58EC293F}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{C2D36C55-96AE-466E-8E04-2F9A58EC293F}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{C2D36C55-96AE-466E-8E04-2F9A58EC293F}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{6165970A-2DDC-4B98-B0FC-BC28FB52BF32}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{6165970A-2DDC-4B98-B0FC-BC28FB52BF32}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{6165970A-2DDC-4B98-B0FC-BC28FB52BF32}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{6165970A-2DDC-4B98-B0FC-BC28FB52BF32}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{78C278FC-9B94-4AE9-9FD6-AD3B2A0D0E6D}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{78C278FC-9B94-4AE9-9FD6-AD3B2A0D0E6D}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{78C278FC-9B94-4AE9-9FD6-AD3B2A0D0E6D}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{78C278FC-9B94-4AE9-9FD6-AD3B2A0D0E6D}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{2B23755B-7073-4C57-92D5-92ECB8746845}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{2B23755B-7073-4C57-92D5-92ECB8746845}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{2B23755B-7073-4C57-92D5-92ECB8746845}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{2B23755B-7073-4C57-92D5-92ECB8746845}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{7E1AA04C-DF46-4BE4-B588-3CD9D2B4162C}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{7E1AA04C-DF46-4BE4-B588-3CD9D2B4162C}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{7E1AA04C-DF46-4BE4-B588-3CD9D2B4162C}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{7E1AA04C-DF46-4BE4-B588-3CD9D2B4162C}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{87307F38-72A3-42E8-B837-BD5AD8132158}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{87307F38-72A3-42E8-B837-BD5AD8132158}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{87307F38-72A3-42E8-B837-BD5AD8132158}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{87307F38-72A3-42E8-B837-BD5AD8132158}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
EndGlobalSection
|
||||
EndGlobal
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 1.2 KiB |
@@ -0,0 +1,71 @@
|
||||
Public Class frmImportExport
|
||||
Dim db As New clsdb
|
||||
Private Sub btnExport_Click(sender As Object, e As EventArgs) Handles btnExport.Click
|
||||
Me.GrpExport.Visible = True
|
||||
db.Get_Dokumenttypen
|
||||
For Each r As DataRow In db.dsDaten.Tables(0).Rows
|
||||
Me.ComboBox1.Items.Add(r.Item(1))
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub btnDoExport_Click(sender As Object, e As EventArgs) Handles btnDoExport.Click
|
||||
Dim s As String
|
||||
s = Trim(Me.ComboBox1.Text)
|
||||
Dim splitter() As String
|
||||
|
||||
splitter = s.Split(" ")
|
||||
Dim dokumenttypnr As Integer = splitter(0)
|
||||
|
||||
Dim exporttables As New DataTable
|
||||
Dim ExportDataset As New DataSet
|
||||
Dim JoinTalbename As String = ""
|
||||
db.Get_Tabledata("Select * from admin_doktypexport", "Admin_DoktypExport")
|
||||
exporttables = db.dsDaten.Tables(0).Copy
|
||||
For Each r As DataRow In exporttables.Rows
|
||||
If r.Item(3) = "" Then
|
||||
db.Get_Tabledata("Select * from " + r.Item(1) + " where dokumenttypnr=" + dokumenttypnr.ToString + " and aktiv=1", r.Item(1))
|
||||
ExportDataset.Tables.Add(db.dsDaten.Tables(0).Copy)
|
||||
Else
|
||||
Dim sql As String
|
||||
sql = r.Item(3)
|
||||
sql = sql.Replace("&&doktype&&", dokumenttypnr.ToString)
|
||||
db.Get_Tabledata(sql, r.Item(1))
|
||||
ExportDataset.Tables.Add(db.dsDaten.Tables(0).Copy)
|
||||
End If
|
||||
Next
|
||||
SaveFileDialog1.Filter = "XML-Dateien (*.xml)|*.xml|Alle Dateien (*.*)|*.*"
|
||||
SaveFileDialog1.DefaultExt = "xml"
|
||||
If SaveFileDialog1.ShowDialog = DialogResult.OK Then
|
||||
|
||||
ExportDataset.WriteXml(SaveFileDialog1.FileName)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnImport_Click(sender As Object, e As EventArgs) Handles btnImport.Click
|
||||
GrpImport.Visible = True
|
||||
OpenFileDialog1.Filter = "XML-Dateien (*.xml)|*.xml|Alle Dateien (*.*)|*.*"
|
||||
OpenFileDialog1.DefaultExt = "xml"
|
||||
If OpenFileDialog1.ShowDialog = DialogResult.OK Then
|
||||
Me.txtImportDatei.Text = Me.OpenFileDialog1.FileName
|
||||
Check_Doktype()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Dim importds As New DataSet
|
||||
Dim dokumenttypnr As Integer
|
||||
Dim dokumenttypbezeichnung As String
|
||||
Sub Check_Doktype()
|
||||
importds.ReadXml(Me.txtImportDatei.Text)
|
||||
dokumenttypnr = importds.Tables(0).Rows(0).Item("Dokumenttypnr")
|
||||
dokumenttypbezeichnung = importds.Tables(0).Rows(0).Item("Bezeichnung")
|
||||
|
||||
Dim db As New clsdb
|
||||
db.checkdoktype(dokumenttypnr)
|
||||
db.checkdoktype(dokumenttypbezeichnung)
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
btnImport_Click(sender, e)
|
||||
End Sub
|
||||
End Class
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,36 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
Plugin_HostNotiz
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
<member name="T:Plugin_HostNotiz.My.Resources.Resources">
|
||||
<summary>
|
||||
A strongly-typed resource class, for looking up localized strings, etc.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:Plugin_HostNotiz.My.Resources.Resources.ResourceManager">
|
||||
<summary>
|
||||
Returns the cached ResourceManager instance used by this class.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:Plugin_HostNotiz.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_HostNotiz.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>
|
||||
@@ -0,0 +1,29 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class clspdfview
|
||||
Inherits System.Windows.Forms.UserControl
|
||||
|
||||
'UserControl ü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()
|
||||
components = New System.ComponentModel.Container()
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1 @@
|
||||
444bdf32c8e948998beed8240460bc00db28ba02
|
||||
@@ -0,0 +1,63 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.34209
|
||||
'
|
||||
' Ä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("EDOKA_PluginLib.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
|
||||
Binary file not shown.
@@ -0,0 +1,256 @@
|
||||
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 dsdatenma As New DataSet
|
||||
Public dadaten As SqlDataAdapter
|
||||
Public dadatenma As SqlDataAdapter
|
||||
Public dadaten1 As SqlDataAdapter
|
||||
Dim sql As String
|
||||
Public subject As String
|
||||
Public body As String
|
||||
|
||||
Public Function Check_Dok(ByVal Dokumentid As String) As Boolean
|
||||
Dim selectcommand As New SqlCommand
|
||||
Dim connection As New SqlConnection()
|
||||
Dim da As New SqlDataAdapter("", connection)
|
||||
Dim ds As New DataSet
|
||||
selectcommand.CommandText = "sp_plugin_berechtigung_checkdok"
|
||||
selectcommand.Parameters.Add("@Dokumentid", SqlDbType.VarChar, 255)
|
||||
|
||||
selectcommand.Parameters(0).Value = Dokumentid
|
||||
|
||||
selectcommand.CommandType = CommandType.StoredProcedure
|
||||
selectcommand.Connection = connection
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionstring
|
||||
connection.Open()
|
||||
da.SelectCommand = selectcommand
|
||||
|
||||
da.Fill(ds)
|
||||
If ds.Tables(0).Rows(0).Item(0) = "NOK" Then
|
||||
Return False
|
||||
Else
|
||||
subject = ds.Tables(0).Rows(0).Item("subject")
|
||||
body = ds.Tables(0).Rows(0).Item("Body")
|
||||
Return True
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Finally
|
||||
connection.Close()
|
||||
da.Dispose()
|
||||
ds.Dispose()
|
||||
selectcommand.Dispose()
|
||||
End Try
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
Public Sub Insert_Row(ByVal Dokumentid As String, Mitarbeiternr As String, bemerkung As String, usernr As Integer)
|
||||
Dim selectcommand As New SqlCommand
|
||||
Dim connection As New SqlConnection()
|
||||
Dim da As New SqlDataAdapter("", connection)
|
||||
Dim ds As New DataSet
|
||||
selectcommand.CommandText = "sp_plugin_berechtigung_insertrow"
|
||||
selectcommand.Parameters.Add("@Dokumentid", SqlDbType.VarChar, 255)
|
||||
selectcommand.Parameters.Add("@mitarbeiternr", SqlDbType.VarChar, 255)
|
||||
selectcommand.Parameters.Add("@bemerkung", SqlDbType.VarChar, 255)
|
||||
selectcommand.Parameters.Add("@usernr", SqlDbType.VarChar, 255)
|
||||
|
||||
selectcommand.Parameters(0).Value = Dokumentid
|
||||
selectcommand.Parameters(1).Value = Mitarbeiternr
|
||||
selectcommand.Parameters(2).Value = bemerkung
|
||||
selectcommand.Parameters(3).Value = usernr
|
||||
|
||||
selectcommand.CommandType = CommandType.StoredProcedure
|
||||
selectcommand.Connection = connection
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionstring
|
||||
connection.Open()
|
||||
selectcommand.ExecuteNonQuery()
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Finally
|
||||
connection.Close()
|
||||
da.Dispose()
|
||||
ds.Dispose()
|
||||
selectcommand.Dispose()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Sub sendmail(ByVal empfaenger As String, subject As String, body As String)
|
||||
Dim selectcommand As New SqlCommand
|
||||
Dim connection As New SqlConnection()
|
||||
Dim da As New SqlDataAdapter("", connection)
|
||||
Dim ds As New DataSet
|
||||
selectcommand.CommandText = "sp_plugin_berechtigung_sendmail"
|
||||
selectcommand.Parameters.Add("@empfaenger", SqlDbType.VarChar, 255)
|
||||
selectcommand.Parameters.Add("@subject", SqlDbType.VarChar, 255)
|
||||
selectcommand.Parameters.Add("@body", SqlDbType.VarChar, 255)
|
||||
|
||||
selectcommand.Parameters(0).Value = empfaenger
|
||||
selectcommand.Parameters(1).Value = subject
|
||||
selectcommand.Parameters(2).Value = body
|
||||
|
||||
selectcommand.CommandType = CommandType.StoredProcedure
|
||||
selectcommand.Connection = connection
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionstring
|
||||
connection.Open()
|
||||
selectcommand.ExecuteNonQuery()
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Finally
|
||||
connection.Close()
|
||||
da.Dispose()
|
||||
ds.Dispose()
|
||||
selectcommand.Dispose()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Sub deleteentry(ByVal mutierer As String, eintrag As String)
|
||||
Dim selectcommand As New SqlCommand
|
||||
Dim connection As New SqlConnection()
|
||||
Dim da As New SqlDataAdapter("", connection)
|
||||
Dim ds As New DataSet
|
||||
selectcommand.CommandText = "sp_plugin_berechtigung_deleteentry"
|
||||
selectcommand.Parameters.Add("@mutierer", SqlDbType.VarChar, 255)
|
||||
selectcommand.Parameters.Add("@eintrag", SqlDbType.VarChar, 255)
|
||||
|
||||
selectcommand.Parameters(0).Value = mutierer
|
||||
selectcommand.Parameters(1).Value = eintrag
|
||||
|
||||
|
||||
selectcommand.CommandType = CommandType.StoredProcedure
|
||||
selectcommand.Connection = connection
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionstring
|
||||
connection.Open()
|
||||
selectcommand.ExecuteNonQuery()
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Finally
|
||||
connection.Close()
|
||||
da.Dispose()
|
||||
ds.Dispose()
|
||||
selectcommand.Dispose()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub Get_MA_Daten()
|
||||
dsdatenma.Clear()
|
||||
sql = "Select mitarbeiternr, name+' '+vorname+', '+tgnummer as Mitarbeiter from Mitarbeiter where klassifizierung=1 and aktiv=1 order by name, vorname"
|
||||
dadatenma = New SqlDataAdapter(sql, Globals.sConnectionstring)
|
||||
dadatenma.Fill(dsdatenma, "MaData")
|
||||
|
||||
End Sub
|
||||
Public Sub Get_data()
|
||||
Try
|
||||
dsDaten.Clear()
|
||||
|
||||
|
||||
Dim selectcommand As New SqlCommand
|
||||
Dim connection As New SqlConnection()
|
||||
selectcommand.CommandText = "sp_plugin_berechtigung_getdata"
|
||||
selectcommand.Parameters.Add("@mitarbeiternr", SqlDbType.VarChar, 255)
|
||||
|
||||
selectcommand.Parameters(0).Value = Globals.Mitarbeiternr
|
||||
|
||||
selectcommand.CommandType = CommandType.StoredProcedure
|
||||
selectcommand.Connection = connection
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionstring
|
||||
connection.Open()
|
||||
dadaten = New SqlDataAdapter(sql, Globals.sConnectionstring)
|
||||
dadaten.SelectCommand = selectcommand
|
||||
dadaten.Fill(dsDaten, "Dokumente")
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Finally
|
||||
connection.Close()
|
||||
selectcommand.Dispose()
|
||||
End Try
|
||||
|
||||
|
||||
|
||||
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Sub Update_Daten()
|
||||
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>
|
||||
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
|
||||
|
||||
@@ -0,0 +1,151 @@
|
||||
<?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>{1210CA67-4D06-4344-81F4-E7EBB72D4816}</ProjectGuid>
|
||||
<OutputType>WinExe</OutputType>
|
||||
<StartupObject>EDOKA_Toolset.My.MyApplication</StartupObject>
|
||||
<RootNamespace>EDOKA_Toolset</RootNamespace>
|
||||
<AssemblyName>EDOKA_Toolset</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>WindowsForms</MyType>
|
||||
<TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
|
||||
<TargetFrameworkProfile />
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>..\Bin\</OutputPath>
|
||||
<DocumentationFile>EDOKA_Toolset.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
<Prefer32Bit>false</Prefer32Bit>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
<DebugType>pdbonly</DebugType>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>bin\Release\</OutputPath>
|
||||
<DocumentationFile>EDOKA_Toolset.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.20141.19617, 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" />
|
||||
<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.Deployment" />
|
||||
<Reference Include="System.Design" />
|
||||
<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.Drawing" />
|
||||
<Import Include="System.Diagnostics" />
|
||||
<Import Include="System.Windows.Forms" />
|
||||
<Import Include="System.Linq" />
|
||||
<Import Include="System.Xml.Linq" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="Crypto.vb" />
|
||||
<Compile Include="frmBenutzer.Designer.vb">
|
||||
<DependentUpon>frmBenutzer.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="frmBenutzer.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmMain1.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmMain1.Designer.vb">
|
||||
<DependentUpon>frmMain1.vb</DependentUpon>
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="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="frmBenutzer.resx">
|
||||
<DependentUpon>frmBenutzer.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmMain1.resx">
|
||||
<DependentUpon>frmMain1.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>
|
||||
<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>
|
||||
@@ -0,0 +1,13 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.34209
|
||||
'
|
||||
' Ä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
|
||||
|
||||
Binary file not shown.
@@ -0,0 +1,669 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class frmData
|
||||
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(frmData))
|
||||
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
|
||||
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||
Me.gpEDKData = New System.Windows.Forms.GroupBox()
|
||||
Me.Button5 = New System.Windows.Forms.Button()
|
||||
Me.TextBox4 = New System.Windows.Forms.TextBox()
|
||||
Me.ComboBox6 = New System.Windows.Forms.ComboBox()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.gpEDKLog = New System.Windows.Forms.GroupBox()
|
||||
Me.Button4 = New System.Windows.Forms.Button()
|
||||
Me.TextBox3 = New System.Windows.Forms.TextBox()
|
||||
Me.ComboBox5 = New System.Windows.Forms.ComboBox()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.Button3 = New System.Windows.Forms.Button()
|
||||
Me.TextBox2 = New System.Windows.Forms.TextBox()
|
||||
Me.ComboBox4 = New System.Windows.Forms.ComboBox()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
|
||||
Me.Button6 = New System.Windows.Forms.Button()
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.DateTimePicker3 = New System.Windows.Forms.DateTimePicker()
|
||||
Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
|
||||
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.ComboBox3 = New System.Windows.Forms.ComboBox()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.TextBox1 = New System.Windows.Forms.TextBox()
|
||||
Me.ComboBox2 = New System.Windows.Forms.ComboBox()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
|
||||
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
|
||||
Me.RadioButton2 = New System.Windows.Forms.RadioButton()
|
||||
Me.RadioButton1 = New System.Windows.Forms.RadioButton()
|
||||
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
|
||||
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
|
||||
Me.C1Daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||
Me.WebBrowser1 = New System.Windows.Forms.WebBrowser()
|
||||
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
|
||||
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
|
||||
Me.Button7 = New System.Windows.Forms.Button()
|
||||
Me.MenuStrip1.SuspendLayout()
|
||||
Me.GroupBox1.SuspendLayout()
|
||||
Me.gpEDKData.SuspendLayout()
|
||||
Me.gpEDKLog.SuspendLayout()
|
||||
Me.GroupBox5.SuspendLayout()
|
||||
Me.GroupBox4.SuspendLayout()
|
||||
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer1.Panel1.SuspendLayout()
|
||||
Me.SplitContainer1.Panel2.SuspendLayout()
|
||||
Me.SplitContainer1.SuspendLayout()
|
||||
Me.GroupBox3.SuspendLayout()
|
||||
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'MenuStrip1
|
||||
'
|
||||
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
|
||||
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MenuStrip1.Name = "MenuStrip1"
|
||||
Me.MenuStrip1.Size = New System.Drawing.Size(1151, 24)
|
||||
Me.MenuStrip1.TabIndex = 0
|
||||
Me.MenuStrip1.Text = "MenuStrip1"
|
||||
'
|
||||
'DateiToolStripMenuItem
|
||||
'
|
||||
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem})
|
||||
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
|
||||
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
|
||||
Me.DateiToolStripMenuItem.Text = "&Datei"
|
||||
'
|
||||
'BeendenToolStripMenuItem
|
||||
'
|
||||
Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
|
||||
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(120, 22)
|
||||
Me.BeendenToolStripMenuItem.Text = "&Beenden"
|
||||
'
|
||||
'GroupBox1
|
||||
'
|
||||
Me.GroupBox1.Controls.Add(Me.gpEDKData)
|
||||
Me.GroupBox1.Controls.Add(Me.gpEDKLog)
|
||||
Me.GroupBox1.Controls.Add(Me.GroupBox5)
|
||||
Me.GroupBox1.Controls.Add(Me.GroupBox4)
|
||||
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(332, 698)
|
||||
Me.GroupBox1.TabIndex = 1
|
||||
Me.GroupBox1.TabStop = False
|
||||
Me.GroupBox1.Text = "Selektoin"
|
||||
'
|
||||
'gpEDKData
|
||||
'
|
||||
Me.gpEDKData.Controls.Add(Me.Button5)
|
||||
Me.gpEDKData.Controls.Add(Me.TextBox4)
|
||||
Me.gpEDKData.Controls.Add(Me.ComboBox6)
|
||||
Me.gpEDKData.Controls.Add(Me.Label6)
|
||||
Me.gpEDKData.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.gpEDKData.Enabled = False
|
||||
Me.gpEDKData.Location = New System.Drawing.Point(3, 312)
|
||||
Me.gpEDKData.Name = "gpEDKData"
|
||||
Me.gpEDKData.Size = New System.Drawing.Size(326, 83)
|
||||
Me.gpEDKData.TabIndex = 3
|
||||
Me.gpEDKData.TabStop = False
|
||||
Me.gpEDKData.Text = "EDK_Data"
|
||||
'
|
||||
'Button5
|
||||
'
|
||||
Me.Button5.Image = CType(resources.GetObject("Button5.Image"), System.Drawing.Image)
|
||||
Me.Button5.Location = New System.Drawing.Point(248, 16)
|
||||
Me.Button5.Name = "Button5"
|
||||
Me.Button5.Size = New System.Drawing.Size(32, 24)
|
||||
Me.Button5.TabIndex = 17
|
||||
Me.Button5.UseVisualStyleBackColor = True
|
||||
'
|
||||
'TextBox4
|
||||
'
|
||||
Me.TextBox4.Location = New System.Drawing.Point(145, 19)
|
||||
Me.TextBox4.Name = "TextBox4"
|
||||
Me.TextBox4.Size = New System.Drawing.Size(100, 20)
|
||||
Me.TextBox4.TabIndex = 16
|
||||
'
|
||||
'ComboBox6
|
||||
'
|
||||
Me.ComboBox6.FormattingEnabled = True
|
||||
Me.ComboBox6.Items.AddRange(New Object() {"= ", "<>"})
|
||||
Me.ComboBox6.Location = New System.Drawing.Point(88, 18)
|
||||
Me.ComboBox6.Name = "ComboBox6"
|
||||
Me.ComboBox6.Size = New System.Drawing.Size(51, 21)
|
||||
Me.ComboBox6.TabIndex = 15
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Location = New System.Drawing.Point(8, 22)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(64, 13)
|
||||
Me.Label6.TabIndex = 14
|
||||
Me.Label6.Text = "TG-Nummer"
|
||||
'
|
||||
'gpEDKLog
|
||||
'
|
||||
Me.gpEDKLog.Controls.Add(Me.Button4)
|
||||
Me.gpEDKLog.Controls.Add(Me.TextBox3)
|
||||
Me.gpEDKLog.Controls.Add(Me.ComboBox5)
|
||||
Me.gpEDKLog.Controls.Add(Me.Label5)
|
||||
Me.gpEDKLog.Controls.Add(Me.Button3)
|
||||
Me.gpEDKLog.Controls.Add(Me.TextBox2)
|
||||
Me.gpEDKLog.Controls.Add(Me.ComboBox4)
|
||||
Me.gpEDKLog.Controls.Add(Me.Label4)
|
||||
Me.gpEDKLog.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.gpEDKLog.Location = New System.Drawing.Point(3, 229)
|
||||
Me.gpEDKLog.Name = "gpEDKLog"
|
||||
Me.gpEDKLog.Size = New System.Drawing.Size(326, 83)
|
||||
Me.gpEDKLog.TabIndex = 2
|
||||
Me.gpEDKLog.TabStop = False
|
||||
Me.gpEDKLog.Text = "EDK_Log"
|
||||
'
|
||||
'Button4
|
||||
'
|
||||
Me.Button4.Image = CType(resources.GetObject("Button4.Image"), System.Drawing.Image)
|
||||
Me.Button4.Location = New System.Drawing.Point(248, 42)
|
||||
Me.Button4.Name = "Button4"
|
||||
Me.Button4.Size = New System.Drawing.Size(32, 24)
|
||||
Me.Button4.TabIndex = 13
|
||||
Me.Button4.UseVisualStyleBackColor = True
|
||||
'
|
||||
'TextBox3
|
||||
'
|
||||
Me.TextBox3.Location = New System.Drawing.Point(145, 45)
|
||||
Me.TextBox3.Name = "TextBox3"
|
||||
Me.TextBox3.Size = New System.Drawing.Size(100, 20)
|
||||
Me.TextBox3.TabIndex = 12
|
||||
'
|
||||
'ComboBox5
|
||||
'
|
||||
Me.ComboBox5.FormattingEnabled = True
|
||||
Me.ComboBox5.Items.AddRange(New Object() {"=", "Like"})
|
||||
Me.ComboBox5.Location = New System.Drawing.Point(87, 44)
|
||||
Me.ComboBox5.Name = "ComboBox5"
|
||||
Me.ComboBox5.Size = New System.Drawing.Size(52, 21)
|
||||
Me.ComboBox5.TabIndex = 11
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Location = New System.Drawing.Point(8, 48)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(49, 13)
|
||||
Me.Label5.TabIndex = 10
|
||||
Me.Label5.Text = "Filename"
|
||||
'
|
||||
'Button3
|
||||
'
|
||||
Me.Button3.Image = CType(resources.GetObject("Button3.Image"), System.Drawing.Image)
|
||||
Me.Button3.Location = New System.Drawing.Point(247, 16)
|
||||
Me.Button3.Name = "Button3"
|
||||
Me.Button3.Size = New System.Drawing.Size(32, 24)
|
||||
Me.Button3.TabIndex = 9
|
||||
Me.Button3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'TextBox2
|
||||
'
|
||||
Me.TextBox2.Location = New System.Drawing.Point(144, 19)
|
||||
Me.TextBox2.Name = "TextBox2"
|
||||
Me.TextBox2.Size = New System.Drawing.Size(100, 20)
|
||||
Me.TextBox2.TabIndex = 8
|
||||
'
|
||||
'ComboBox4
|
||||
'
|
||||
Me.ComboBox4.FormattingEnabled = True
|
||||
Me.ComboBox4.Items.AddRange(New Object() {"=", ">", "<"})
|
||||
Me.ComboBox4.Location = New System.Drawing.Point(87, 18)
|
||||
Me.ComboBox4.Name = "ComboBox4"
|
||||
Me.ComboBox4.Size = New System.Drawing.Size(51, 21)
|
||||
Me.ComboBox4.TabIndex = 7
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Location = New System.Drawing.Point(7, 22)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(70, 13)
|
||||
Me.Label4.TabIndex = 6
|
||||
Me.Label4.Text = "Mitarbeiter-Nr"
|
||||
'
|
||||
'GroupBox5
|
||||
'
|
||||
Me.GroupBox5.Controls.Add(Me.Button7)
|
||||
Me.GroupBox5.Controls.Add(Me.Button6)
|
||||
Me.GroupBox5.Controls.Add(Me.Label9)
|
||||
Me.GroupBox5.Controls.Add(Me.Label8)
|
||||
Me.GroupBox5.Controls.Add(Me.Label7)
|
||||
Me.GroupBox5.Controls.Add(Me.DateTimePicker3)
|
||||
Me.GroupBox5.Controls.Add(Me.DateTimePicker2)
|
||||
Me.GroupBox5.Controls.Add(Me.DateTimePicker1)
|
||||
Me.GroupBox5.Controls.Add(Me.Button2)
|
||||
Me.GroupBox5.Controls.Add(Me.ComboBox3)
|
||||
Me.GroupBox5.Controls.Add(Me.Label3)
|
||||
Me.GroupBox5.Controls.Add(Me.Button1)
|
||||
Me.GroupBox5.Controls.Add(Me.TextBox1)
|
||||
Me.GroupBox5.Controls.Add(Me.ComboBox2)
|
||||
Me.GroupBox5.Controls.Add(Me.Label2)
|
||||
Me.GroupBox5.Controls.Add(Me.Label1)
|
||||
Me.GroupBox5.Controls.Add(Me.ComboBox1)
|
||||
Me.GroupBox5.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.GroupBox5.Location = New System.Drawing.Point(3, 71)
|
||||
Me.GroupBox5.Name = "GroupBox5"
|
||||
Me.GroupBox5.Size = New System.Drawing.Size(326, 158)
|
||||
Me.GroupBox5.TabIndex = 1
|
||||
Me.GroupBox5.TabStop = False
|
||||
Me.GroupBox5.Text = "Selektion"
|
||||
'
|
||||
'Button6
|
||||
'
|
||||
Me.Button6.Image = CType(resources.GetObject("Button6.Image"), System.Drawing.Image)
|
||||
Me.Button6.Location = New System.Drawing.Point(294, 113)
|
||||
Me.Button6.Name = "Button6"
|
||||
Me.Button6.Size = New System.Drawing.Size(32, 24)
|
||||
Me.Button6.TabIndex = 18
|
||||
Me.Button6.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label9
|
||||
'
|
||||
Me.Label9.AutoSize = True
|
||||
Me.Label9.Location = New System.Drawing.Point(98, 132)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(21, 13)
|
||||
Me.Label9.TabIndex = 17
|
||||
Me.Label9.Text = "Bis"
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
Me.Label8.AutoSize = True
|
||||
Me.Label8.Location = New System.Drawing.Point(98, 113)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Size = New System.Drawing.Size(26, 13)
|
||||
Me.Label8.TabIndex = 16
|
||||
Me.Label8.Text = "Von"
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.Location = New System.Drawing.Point(9, 113)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(87, 13)
|
||||
Me.Label7.TabIndex = 15
|
||||
Me.Label7.Text = "Insert-Timestamp"
|
||||
'
|
||||
'DateTimePicker3
|
||||
'
|
||||
Me.DateTimePicker3.CustomFormat = "yyy-MM-dd HH:mm:ss"
|
||||
Me.DateTimePicker3.Format = System.Windows.Forms.DateTimePickerFormat.Custom
|
||||
Me.DateTimePicker3.Location = New System.Drawing.Point(143, 132)
|
||||
Me.DateTimePicker3.Name = "DateTimePicker3"
|
||||
Me.DateTimePicker3.Size = New System.Drawing.Size(150, 20)
|
||||
Me.DateTimePicker3.TabIndex = 14
|
||||
'
|
||||
'DateTimePicker2
|
||||
'
|
||||
Me.DateTimePicker2.CustomFormat = "yyy-MM-dd HH:mm:ss"
|
||||
Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Custom
|
||||
Me.DateTimePicker2.Location = New System.Drawing.Point(143, 113)
|
||||
Me.DateTimePicker2.Name = "DateTimePicker2"
|
||||
Me.DateTimePicker2.Size = New System.Drawing.Size(150, 20)
|
||||
Me.DateTimePicker2.TabIndex = 13
|
||||
'
|
||||
'DateTimePicker1
|
||||
'
|
||||
Me.DateTimePicker1.CustomFormat = "yyy-MM-dd HH:mm:ss"
|
||||
Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom
|
||||
Me.DateTimePicker1.Location = New System.Drawing.Point(143, 78)
|
||||
Me.DateTimePicker1.Name = "DateTimePicker1"
|
||||
Me.DateTimePicker1.Size = New System.Drawing.Size(150, 20)
|
||||
Me.DateTimePicker1.TabIndex = 12
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.Image = CType(resources.GetObject("Button2.Image"), System.Drawing.Image)
|
||||
Me.Button2.Location = New System.Drawing.Point(294, 78)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(32, 24)
|
||||
Me.Button2.TabIndex = 9
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'ComboBox3
|
||||
'
|
||||
Me.ComboBox3.FormattingEnabled = True
|
||||
Me.ComboBox3.Items.AddRange(New Object() {"=", ">", "<"})
|
||||
Me.ComboBox3.Location = New System.Drawing.Point(101, 78)
|
||||
Me.ComboBox3.Name = "ComboBox3"
|
||||
Me.ComboBox3.Size = New System.Drawing.Size(37, 21)
|
||||
Me.ComboBox3.TabIndex = 7
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Location = New System.Drawing.Point(8, 81)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(87, 13)
|
||||
Me.Label3.TabIndex = 6
|
||||
Me.Label3.Text = "Insert-Timestamp"
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
|
||||
Me.Button1.Location = New System.Drawing.Point(247, 46)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(32, 24)
|
||||
Me.Button1.TabIndex = 5
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'TextBox1
|
||||
'
|
||||
Me.TextBox1.Location = New System.Drawing.Point(144, 49)
|
||||
Me.TextBox1.Name = "TextBox1"
|
||||
Me.TextBox1.Size = New System.Drawing.Size(100, 20)
|
||||
Me.TextBox1.TabIndex = 4
|
||||
'
|
||||
'ComboBox2
|
||||
'
|
||||
Me.ComboBox2.FormattingEnabled = True
|
||||
Me.ComboBox2.Items.AddRange(New Object() {"=", ">", "<"})
|
||||
Me.ComboBox2.Location = New System.Drawing.Point(101, 48)
|
||||
Me.ComboBox2.Name = "ComboBox2"
|
||||
Me.ComboBox2.Size = New System.Drawing.Size(37, 21)
|
||||
Me.ComboBox2.TabIndex = 3
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(7, 52)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(43, 13)
|
||||
Me.Label2.TabIndex = 2
|
||||
Me.Label2.Text = "Row-ID"
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(8, 22)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(124, 13)
|
||||
Me.Label1.TabIndex = 1
|
||||
Me.Label1.Text = "Anzahl letzte Datensätze"
|
||||
'
|
||||
'ComboBox1
|
||||
'
|
||||
Me.ComboBox1.FormattingEnabled = True
|
||||
Me.ComboBox1.Items.AddRange(New Object() {"100", "200", "500", "1000", "2000", "10000"})
|
||||
Me.ComboBox1.Location = New System.Drawing.Point(144, 19)
|
||||
Me.ComboBox1.Name = "ComboBox1"
|
||||
Me.ComboBox1.Size = New System.Drawing.Size(101, 21)
|
||||
Me.ComboBox1.TabIndex = 0
|
||||
'
|
||||
'GroupBox4
|
||||
'
|
||||
Me.GroupBox4.Controls.Add(Me.RadioButton2)
|
||||
Me.GroupBox4.Controls.Add(Me.RadioButton1)
|
||||
Me.GroupBox4.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.GroupBox4.Location = New System.Drawing.Point(3, 16)
|
||||
Me.GroupBox4.Name = "GroupBox4"
|
||||
Me.GroupBox4.Size = New System.Drawing.Size(326, 55)
|
||||
Me.GroupBox4.TabIndex = 0
|
||||
Me.GroupBox4.TabStop = False
|
||||
Me.GroupBox4.Text = "Tabelle"
|
||||
'
|
||||
'RadioButton2
|
||||
'
|
||||
Me.RadioButton2.AutoSize = True
|
||||
Me.RadioButton2.Location = New System.Drawing.Point(87, 20)
|
||||
Me.RadioButton2.Name = "RadioButton2"
|
||||
Me.RadioButton2.Size = New System.Drawing.Size(76, 17)
|
||||
Me.RadioButton2.TabIndex = 1
|
||||
Me.RadioButton2.Text = "EDK_Data"
|
||||
Me.RadioButton2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'RadioButton1
|
||||
'
|
||||
Me.RadioButton1.AutoSize = True
|
||||
Me.RadioButton1.Checked = True
|
||||
Me.RadioButton1.Location = New System.Drawing.Point(10, 20)
|
||||
Me.RadioButton1.Name = "RadioButton1"
|
||||
Me.RadioButton1.Size = New System.Drawing.Size(71, 17)
|
||||
Me.RadioButton1.TabIndex = 0
|
||||
Me.RadioButton1.TabStop = True
|
||||
Me.RadioButton1.Text = "EDK_Log"
|
||||
Me.RadioButton1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'SplitContainer1
|
||||
'
|
||||
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainer1.Location = New System.Drawing.Point(332, 24)
|
||||
Me.SplitContainer1.Name = "SplitContainer1"
|
||||
Me.SplitContainer1.Orientation = System.Windows.Forms.Orientation.Horizontal
|
||||
'
|
||||
'SplitContainer1.Panel1
|
||||
'
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.GroupBox3)
|
||||
'
|
||||
'SplitContainer1.Panel2
|
||||
'
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.WebBrowser1)
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.RichTextBox1)
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.CheckBox1)
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.ToolStrip1)
|
||||
Me.SplitContainer1.Size = New System.Drawing.Size(819, 698)
|
||||
Me.SplitContainer1.SplitterDistance = 300
|
||||
Me.SplitContainer1.TabIndex = 2
|
||||
'
|
||||
'GroupBox3
|
||||
'
|
||||
Me.GroupBox3.Controls.Add(Me.C1Daten)
|
||||
Me.GroupBox3.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.GroupBox3.Location = New System.Drawing.Point(0, 0)
|
||||
Me.GroupBox3.Name = "GroupBox3"
|
||||
Me.GroupBox3.Size = New System.Drawing.Size(819, 300)
|
||||
Me.GroupBox3.TabIndex = 4
|
||||
Me.GroupBox3.TabStop = False
|
||||
Me.GroupBox3.Text = "Datensätze"
|
||||
'
|
||||
'C1Daten
|
||||
'
|
||||
Me.C1Daten.AlternatingRows = True
|
||||
Me.C1Daten.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.C1Daten.FetchRowStyles = True
|
||||
Me.C1Daten.FilterBar = True
|
||||
Me.C1Daten.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.C1Daten.Images.Add(CType(resources.GetObject("C1Daten.Images"), System.Drawing.Image))
|
||||
Me.C1Daten.Location = New System.Drawing.Point(3, 16)
|
||||
Me.C1Daten.Name = "C1Daten"
|
||||
Me.C1Daten.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.C1Daten.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.C1Daten.PreviewInfo.ZoomFactor = 75.0R
|
||||
Me.C1Daten.PrintInfo.PageSettings = CType(resources.GetObject("C1Daten.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||
Me.C1Daten.RecordSelectorWidth = 16
|
||||
Me.C1Daten.Size = New System.Drawing.Size(813, 281)
|
||||
Me.C1Daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
|
||||
Me.C1Daten.TabIndex = 17
|
||||
Me.C1Daten.Text = "C1TrueDBGrid2"
|
||||
Me.C1Daten.PropBag = resources.GetString("C1Daten.PropBag")
|
||||
'
|
||||
'WebBrowser1
|
||||
'
|
||||
Me.WebBrowser1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.WebBrowser1.Location = New System.Drawing.Point(0, 25)
|
||||
Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
|
||||
Me.WebBrowser1.Name = "WebBrowser1"
|
||||
Me.WebBrowser1.Size = New System.Drawing.Size(819, 369)
|
||||
Me.WebBrowser1.TabIndex = 3
|
||||
'
|
||||
'RichTextBox1
|
||||
'
|
||||
Me.RichTextBox1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.RichTextBox1.Font = New System.Drawing.Font("Courier New", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.RichTextBox1.Location = New System.Drawing.Point(0, 25)
|
||||
Me.RichTextBox1.Name = "RichTextBox1"
|
||||
Me.RichTextBox1.Size = New System.Drawing.Size(819, 369)
|
||||
Me.RichTextBox1.TabIndex = 2
|
||||
Me.RichTextBox1.Text = ""
|
||||
'
|
||||
'CheckBox1
|
||||
'
|
||||
Me.CheckBox1.AutoSize = True
|
||||
Me.CheckBox1.Checked = True
|
||||
Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked
|
||||
Me.CheckBox1.Location = New System.Drawing.Point(148, 3)
|
||||
Me.CheckBox1.Name = "CheckBox1"
|
||||
Me.CheckBox1.Size = New System.Drawing.Size(94, 17)
|
||||
Me.CheckBox1.TabIndex = 1
|
||||
Me.CheckBox1.Text = "XML anzeigen"
|
||||
Me.CheckBox1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripButton2})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(819, 25)
|
||||
Me.ToolStrip1.TabIndex = 0
|
||||
Me.ToolStrip1.Text = "ToolStrip1"
|
||||
'
|
||||
'ToolStripButton1
|
||||
'
|
||||
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
|
||||
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton1.Name = "ToolStripButton1"
|
||||
Me.ToolStripButton1.Size = New System.Drawing.Size(71, 22)
|
||||
Me.ToolStripButton1.Text = "Check XML"
|
||||
'
|
||||
'ToolStripButton2
|
||||
'
|
||||
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
|
||||
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton2.Name = "ToolStripButton2"
|
||||
Me.ToolStripButton2.Size = New System.Drawing.Size(63, 22)
|
||||
Me.ToolStripButton2.Text = "Speichern"
|
||||
'
|
||||
'Button7
|
||||
'
|
||||
Me.Button7.Image = CType(resources.GetObject("Button7.Image"), System.Drawing.Image)
|
||||
Me.Button7.Location = New System.Drawing.Point(247, 19)
|
||||
Me.Button7.Name = "Button7"
|
||||
Me.Button7.Size = New System.Drawing.Size(32, 24)
|
||||
Me.Button7.TabIndex = 19
|
||||
Me.Button7.UseVisualStyleBackColor = True
|
||||
'
|
||||
'frmData
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(1151, 722)
|
||||
Me.Controls.Add(Me.SplitContainer1)
|
||||
Me.Controls.Add(Me.GroupBox1)
|
||||
Me.Controls.Add(Me.MenuStrip1)
|
||||
Me.MainMenuStrip = Me.MenuStrip1
|
||||
Me.Name = "frmData"
|
||||
Me.Text = "EDK_Analyzer"
|
||||
Me.MenuStrip1.ResumeLayout(False)
|
||||
Me.MenuStrip1.PerformLayout()
|
||||
Me.GroupBox1.ResumeLayout(False)
|
||||
Me.gpEDKData.ResumeLayout(False)
|
||||
Me.gpEDKData.PerformLayout()
|
||||
Me.gpEDKLog.ResumeLayout(False)
|
||||
Me.gpEDKLog.PerformLayout()
|
||||
Me.GroupBox5.ResumeLayout(False)
|
||||
Me.GroupBox5.PerformLayout()
|
||||
Me.GroupBox4.ResumeLayout(False)
|
||||
Me.GroupBox4.PerformLayout()
|
||||
Me.SplitContainer1.Panel1.ResumeLayout(False)
|
||||
Me.SplitContainer1.Panel2.ResumeLayout(False)
|
||||
Me.SplitContainer1.Panel2.PerformLayout()
|
||||
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer1.ResumeLayout(False)
|
||||
Me.GroupBox3.ResumeLayout(False)
|
||||
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ToolStrip1.ResumeLayout(False)
|
||||
Me.ToolStrip1.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents MenuStrip1 As Windows.Forms.MenuStrip
|
||||
Friend WithEvents DateiToolStripMenuItem As Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents BeendenToolStripMenuItem As Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents GroupBox1 As Windows.Forms.GroupBox
|
||||
Friend WithEvents GroupBox5 As Windows.Forms.GroupBox
|
||||
Friend WithEvents Label1 As Windows.Forms.Label
|
||||
Friend WithEvents ComboBox1 As Windows.Forms.ComboBox
|
||||
Friend WithEvents GroupBox4 As Windows.Forms.GroupBox
|
||||
Friend WithEvents RadioButton2 As Windows.Forms.RadioButton
|
||||
Friend WithEvents RadioButton1 As Windows.Forms.RadioButton
|
||||
Friend WithEvents SplitContainer1 As Windows.Forms.SplitContainer
|
||||
Friend WithEvents GroupBox3 As Windows.Forms.GroupBox
|
||||
Friend WithEvents C1Daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents CheckBox1 As Windows.Forms.CheckBox
|
||||
Friend WithEvents ToolStrip1 As Windows.Forms.ToolStrip
|
||||
Friend WithEvents RichTextBox1 As Windows.Forms.RichTextBox
|
||||
Friend WithEvents ToolStripButton1 As Windows.Forms.ToolStripButton
|
||||
Friend WithEvents ToolStripButton2 As Windows.Forms.ToolStripButton
|
||||
Friend WithEvents SaveFileDialog1 As Windows.Forms.SaveFileDialog
|
||||
Friend WithEvents WebBrowser1 As Windows.Forms.WebBrowser
|
||||
Friend WithEvents Button1 As Windows.Forms.Button
|
||||
Friend WithEvents TextBox1 As Windows.Forms.TextBox
|
||||
Friend WithEvents ComboBox2 As Windows.Forms.ComboBox
|
||||
Friend WithEvents Label2 As Windows.Forms.Label
|
||||
Friend WithEvents Button2 As Windows.Forms.Button
|
||||
Friend WithEvents ComboBox3 As Windows.Forms.ComboBox
|
||||
Friend WithEvents Label3 As Windows.Forms.Label
|
||||
Friend WithEvents gpEDKLog As Windows.Forms.GroupBox
|
||||
Friend WithEvents gpEDKData As Windows.Forms.GroupBox
|
||||
Friend WithEvents Button5 As Windows.Forms.Button
|
||||
Friend WithEvents TextBox4 As Windows.Forms.TextBox
|
||||
Friend WithEvents ComboBox6 As Windows.Forms.ComboBox
|
||||
Friend WithEvents Label6 As Windows.Forms.Label
|
||||
Friend WithEvents Button4 As Windows.Forms.Button
|
||||
Friend WithEvents TextBox3 As Windows.Forms.TextBox
|
||||
Friend WithEvents ComboBox5 As Windows.Forms.ComboBox
|
||||
Friend WithEvents Label5 As Windows.Forms.Label
|
||||
Friend WithEvents Button3 As Windows.Forms.Button
|
||||
Friend WithEvents TextBox2 As Windows.Forms.TextBox
|
||||
Friend WithEvents ComboBox4 As Windows.Forms.ComboBox
|
||||
Friend WithEvents Label4 As Windows.Forms.Label
|
||||
Friend WithEvents DateTimePicker1 As Windows.Forms.DateTimePicker
|
||||
Friend WithEvents Button6 As Windows.Forms.Button
|
||||
Friend WithEvents Label9 As Windows.Forms.Label
|
||||
Friend WithEvents Label8 As Windows.Forms.Label
|
||||
Friend WithEvents Label7 As Windows.Forms.Label
|
||||
Friend WithEvents DateTimePicker3 As Windows.Forms.DateTimePicker
|
||||
Friend WithEvents DateTimePicker2 As Windows.Forms.DateTimePicker
|
||||
Friend WithEvents Button7 As Windows.Forms.Button
|
||||
End Class
|
||||
@@ -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_Aufhebung")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("")>
|
||||
<Assembly: AssemblyProduct("Plugin_Aufhebung")>
|
||||
<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("2e624677-f093-47d3-b208-ffd40dc48a7c")>
|
||||
|
||||
' 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")>
|
||||
Binary file not shown.
@@ -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_ScanToEDOKA")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("")>
|
||||
<Assembly: AssemblyProduct("Plugin_ScanToEDOKA")>
|
||||
<Assembly: AssemblyCopyright("Copyright © 2017")>
|
||||
<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("f1b2317a-484e-4cf5-9432-c76a64059255")>
|
||||
|
||||
' 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,
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("1.0.0.0")>
|
||||
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
||||
Binary file not shown.
@@ -0,0 +1 @@
|
||||
C1.Win.C1TrueDBGrid.C1TrueDBGrid, C1.Win.C1TrueDBGrid.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da
|
||||
Binary file not shown.
@@ -0,0 +1,129 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="14.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>{87129578-592E-4CA4-B54E-E347D58C43B6}</ProjectGuid>
|
||||
<OutputType>Library</OutputType>
|
||||
<RootNamespace>Plugin_EDKTester</RootNamespace>
|
||||
<AssemblyName>Plugin_EDKTester</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_EDKTester.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_EDKTester.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="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" />
|
||||
<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="Form1.Designer.vb">
|
||||
<DependentUpon>Form1.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Form1.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Klassen\Class1.vb" />
|
||||
<Compile Include="Klassen\clsdb.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\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>
|
||||
@@ -0,0 +1,11 @@
|
||||
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Kube_Berechtigungen\obj\Debug\Plugin_Kube_Berechtigungen.FrmData.resources
|
||||
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Kube_Berechtigungen\obj\Debug\Plugin_Kube_Berechtigungen.Resources.resources
|
||||
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Kube_Berechtigungen\obj\Debug\Plugin_Kube_Berechtigungen.vbproj.GenerateResource.Cache
|
||||
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Kube_Berechtigungen\obj\Debug\Plugin_Kube_Berechtigungen.dll.licenses
|
||||
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Bin\Plugin_Kube_Berechtigungen.dll
|
||||
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Bin\Plugin_Kube_Berechtigungen.pdb
|
||||
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Bin\Plugin_Kube_Berechtigungen.xml
|
||||
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Kube_Berechtigungen\obj\Debug\Plugin_Kube_Berechtigungen.vbprojResolveAssemblyReference.cache
|
||||
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Kube_Berechtigungen\obj\Debug\Plugin_Kube_Berechtigungen.dll
|
||||
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Kube_Berechtigungen\obj\Debug\Plugin_Kube_Berechtigungen.xml
|
||||
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Kube_Berechtigungen\obj\Debug\Plugin_Kube_Berechtigungen.pdb
|
||||
@@ -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_EDKTester")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("")>
|
||||
<Assembly: AssemblyProduct("Plugin_EDKTester")>
|
||||
<Assembly: AssemblyCopyright("Copyright © 2016")>
|
||||
<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("fbecde62-f55f-4a66-8919-1f62ec6f8a99")>
|
||||
|
||||
' 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")>
|
||||
Binary file not shown.
@@ -0,0 +1,166 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>132, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="C1Daten.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="C1Daten.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0
|
||||
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
||||
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
||||
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
||||
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
||||
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
||||
</value>
|
||||
</data>
|
||||
<data name="C1Daten.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>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{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;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;}Style1{}Caption{Wrap:True;Trimming:Character;AlignHorz:Center;}Style6{}FilterBar{ForeColor:Black;BackColor:255, 255, 192;}</Data></Styles><Splits><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"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 723, 221</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 723, 221</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,2 @@
|
||||
C1.Win.C1TrueDBGrid.C1TrueDBGrid, C1.Win.C1TrueDBGrid.2, Version=2.0.20123.61277, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da
|
||||
C1.Win.C1TrueDBGrid.C1TrueDBGrid, C1.Win.C1TrueDBGrid.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da
|
||||
@@ -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_FiVo")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("")>
|
||||
<Assembly: AssemblyProduct("Plugin_FiVo")>
|
||||
<Assembly: AssemblyCopyright("Copyright © 2016")>
|
||||
<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("ae4c7af3-9626-46a5-9240-f602661467dd")>
|
||||
|
||||
' 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")>
|
||||
@@ -0,0 +1 @@
|
||||
8d39e00f4206a3df74063df43ae77d1d95a33aec
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,37 @@
|
||||
Public Class frmData
|
||||
Dim dbc As New DB_Connection
|
||||
Dim daten As New DB
|
||||
Private Sub frmData_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Globals.conn.sConnectionString = Globals.sConnectionstring
|
||||
daten.Get_Applikationsdaten()
|
||||
Globals.AppldataRow = 1
|
||||
|
||||
|
||||
daten.Get_data()
|
||||
Me.C1Daten.DataSource = daten.dsDaten.Tables(0)
|
||||
Me.C1Daten.DataMember = daten.dsDaten.Tables(0).TableName
|
||||
Try
|
||||
Me.C1Daten.Columns("aktiv").FilterText = True
|
||||
Me.C1Daten.Splits(0).DisplayColumns(0).Width = 0
|
||||
For i As Integer = 1 To C1Daten.Splits(0).DisplayColumns.Count - 1
|
||||
Me.C1Daten.Splits(0).DisplayColumns(i).AutoSize()
|
||||
Next
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub DokumentAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentAnzeigenToolStripMenuItem.Click
|
||||
DivFnkt.show_office(Me.C1Daten.Columns("Dokumentid").Value, Me)
|
||||
End Sub
|
||||
|
||||
Private Sub DokumentBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentBearbeitenToolStripMenuItem.Click
|
||||
Dim doc As New edokadb.clsDokument
|
||||
doc.cpMainConnectionProvider = Globals.conn
|
||||
doc.sDokumentid = New SqlTypes.SqlString(CType(Me.C1Daten.Columns("Dokumentid").Value, String))
|
||||
doc.SelectOne()
|
||||
Dim wl As New WordLib
|
||||
wl.DokumentID = doc.sDokumentid.Value
|
||||
wl.Open_Excel(DivFnkt.Get_Filename(doc.sDokumentname.ToString, ""), doc.sDokumentid.ToString)
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
@@ -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_FiVo.My.MySettings
|
||||
Get
|
||||
Return Global.Plugin_FiVo.My.MySettings.Default
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
@@ -0,0 +1,131 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="14.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>{C2D36C55-96AE-466E-8E04-2F9A58EC293F}</ProjectGuid>
|
||||
<OutputType>Library</OutputType>
|
||||
<RootNamespace>Plugin_Kube_Berechtigungen</RootNamespace>
|
||||
<AssemblyName>Plugin_Kube_Berechtigungen</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_Kube_Berechtigungen.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_Kube_Berechtigungen.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.C1TrueDBGrid.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da, processorArchitecture=MSIL" />
|
||||
<Reference Include="PluginContracts">
|
||||
<HintPath>..\Bin\PluginContracts.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.Data" />
|
||||
<Reference Include="System.Design" />
|
||||
<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="Crypto.vb" />
|
||||
<Compile Include="FrmData.Designer.vb">
|
||||
<DependentUpon>FrmData.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FrmData.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Globals.vb" />
|
||||
<Compile Include="Klassen\Class1.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>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="FrmData.resx">
|
||||
<DependentUpon>FrmData.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>
|
||||
@@ -0,0 +1,230 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAxRSURBVGhD7Zl3VFRnGodFOgwzMAMMRarUmWFgGlVEuqCi
|
||||
YsESa6yIir0k2ZjVuHE1q25yNpuoQVE0ReyigBBBsYAoCqIgOKgEUZSiaOBskt++dyDqbIIBgZz9I985
|
||||
z5mZy733e5+vvt+hz5/lz/IHF5lMZipW+PzdQybbLZTIkhjcvSRJQpksyUvmnST+TWRdpO05T6kiWSzz
|
||||
2SwW+5m3V9/94unray318c/xCw6+GxASogwIDlbK/PyUMl9fpczfn74zML9lSqmsDa92SFIplEqVQolE
|
||||
KfTyUgqEQmV/BsEr0G93wo1wEYvveCoUFyQSiV179d0vrp6e9kzw+75NQVZOBo6kHURyShKWrViCMXGj
|
||||
MSxmCKKHRiEqOhIRkeEIDQtG0KCBCAgMgK+/L7y9FZDKJPD08oSzsxP09PWhpa2tho6urgq+AwcCD1Gd
|
||||
l4+Pc3v13S/u1BqBYWEVOXnZaGl5hidPGtH0pAH19Y9QXHwVO3d+ibXr/ooVK5cTy7Bs+RIsXpKIBQsT
|
||||
MC9hDmbPnYk58TMxdfoUSKUSaGpqgl77a/r2gUuoAYQK0fcCia8TXeuZohIID6s4dTodT582qgJnaGh4
|
||||
rOJhXS0KCwuwP/UbbNm6GX/bsB4frl+HD9a+j7+seQfvvLcS7/5lFV1bi5CQYGhpabUFrPESDUJTuw/c
|
||||
I4wg+qMEGB49eoia+9Worr6DispyXMw/h0NHUrFtx+f49F9bSehjbNq8AZu3bsLefXswctQIGira0KDW
|
||||
1tTq+wIt7b7QMdCAIKoXBbJyOhaoqqrErYoy3CgrQdG1Qpw9dxqHj6Ziz75d2JH0OXbu3oGT6WmY8NZ4
|
||||
6BnqQFNHA9p6mi/Q0deEnlFfiKLZvSUQTgIZrxUov3UTJaXXcLmoAPmXziHvfA4ys0/i0NH9OEoT//KV
|
||||
S5g1ZwZYHH1qbS3osXTUMDDWhscw4/8PgYsFeTiT9x1OfZeOk5nH6PMk9U4p5s2fC46pAfQ52jA00X0J
|
||||
RxdGZjoQD+8FAUeZzNZ/cER5Vu6bCZzIOEo9cQKlN6+rBIz5hjDk6sDIVO8lPD1wLHThOdKk5wXG27m4
|
||||
xfr51WXmZZFA05sL3CCBBfHgWbPB5uvD2NLwJSTFtTGAdDSv5wW+4HJ9P+OYIHvLJjS2PEdDU9se8CYC
|
||||
CSRgZsuBibUBeDasl/RjwczBELKxvSCwxcJCsYtnisMWVrj6xedoetb8QqJrAiVIWBhPu60xeHaGFLCR
|
||||
GnxnFuTjTHteYAOPJ//W3h41AwKRbmuP/A0b0NjchAbakbsqMD8xHlZOXJg7smHhZKyGlRsHPhPNIQro
|
||||
YYF1PAv5V7Z2+CluLJqHD0cGfT+7YgUaGutRTz1RU3PvtQLpp46rCfRz5cHShQNrVxM1bITG8J3UCwIf
|
||||
m5t77LV3QMvIkcDgwXgeG4tsh/74bvZsPHpQi9r6ug4FMrJOIPXQ18iiXfwGrUKMgK3QFNYUrI2Qq4ad
|
||||
pwn8JndSIInDMU5ms532GpoId7O4go5IMTJyTjJkjztgY4sfxowBZDIgNBSt48fjjIsbMseNx73bt3CX
|
||||
htH/CuSdz8XhYwfw7prVtBt/oRJYsHgeHDz5sPXkwd7LTA1HuSkGTLOAaEAnBPayTcbv5XDO72ebVqea
|
||||
mlZ1CJdf+Y2xcW2mgyN+mDgR8PUFpZRARDh+nDIFFzzEOB45GOVXClFxT6kmcP7iGRw9fgiz42fBw0OE
|
||||
goKLmL8oHv1lFrCXmsJRZq6Gk48ZAmdYdk5gpwFrVgqHc781JgY/Tp6sCub3wNSpQEAA4OcH+PiQRAQw
|
||||
fTouy+U44h+A4txs3FDeeiFw7kIu/rFlIwbQucCJzgGXKGNlBJwVlujvbUYB89VwCTBH4EwriAI7IZBs
|
||||
wHr7Ky6v6icSYMY1MywQFvZ6mHsCA1/CyERGAjQXrtMKdYRE8o8dwtWyYlUulHEqDcEhg7B0+SJ8uWsb
|
||||
rpfSMpo4F66+1nDx48PV31IN9yALDJxjDdHATguYVv2HCYBa8+egIPwcHNzGoEEd88s9v0DPqRogYR4q
|
||||
wiNwUOiBM3t2oqC4EDlns7E7ZSf2H/yKTnLpJFCsEhAMsIH7QEsIgqzVEIVaIXhevy4I8EyrnoeEoKVf
|
||||
P7TY2qKFxnYLtWoLBdYaHt4GtXwrtXzLKzC/VdcZ6J4WkmilZ36iiX2LeuEArViZn2xFXlE+cimtzshK
|
||||
Uy2jJdev0RCaC9EgGwhDaKiEUrCvII60RkiCTdcEGqjyBj4f9YaGqGexUM/jocHODo0uLmj08EATBdTk
|
||||
7Y0mmrxN/v5oovHfRD3GXG8Ui9Ho6qq6v57LRb2JCZrp3gqxJw7Thpe25j1k5Z56sZExAgmL4yEOsYM4
|
||||
vB88I2zVkETbIHSBLaRBXRB4QEHdp8pr6EBdQ4ftGj091OjooIYO2qrvJFXDZuM+A4ejgvmtuv7LvQzM
|
||||
83RUfEC92RgWitOm5tjTzwaZdDo70b6RlZRQDyyeC0mEAwVLgUbbqyGPsUPEIruuCdylFlNSMJUaGqik
|
||||
w/arVPTt+xL6+wteua66j4HOuHetrHCP3pfDt0CqwhtZu5PUe0AlEA9ZlCNkFKw8xkEN71h7RC4hmSBp
|
||||
5yfxbRoK5dSSNymA7nDbxgYVchlOmHBxMCoKeenHcLbwvFouxAgsWBIP+TAnCtYBPrH91fAb64io5STX
|
||||
FYEqZsxSD5RTK3aIVtvnTWrxXwVPPVLl5ISbXhIcoZQ7bdo0FNISmn+tAGdoFXpVoLhdwGeEM3zHOMFv
|
||||
jLMaAeOdEL2qf+cE9hhwZqawedVlJMCsHLekstcgRQXdV0UT+FWJMpondwQCFItEOEDp9unVq1BSXoqi
|
||||
0iK1ZE5NYGk8/Ea7wH8CBTzBRY3Ayc4YsrqTAnuNjN/ax2ZfO2xm3pDK49V1xCEu92GqmXlThp09Kmgl
|
||||
KqeJygRfbmCAO15euOTiilTKk/I//QSVTCpxs+RX2Wha+hHVUlpaeh2JyxIQEOeGwEmuGDjJTY1B01wx
|
||||
7F0nEpD9vgCTzDGJ2m4WS5DCYrl1xNdGRq7bOZwxyRaWqp4qp+AraCWqoqTuLK0yhygXKjl0ANWPH6K8
|
||||
ouxFLnQh/yxyzmQjOydTtStXUopRWFiIt+dMQdBEEQZNdUfwVIEaoTPcEfO+C+SdEehK2cjni3ZZWaNC
|
||||
JofS0hJVCgVOmZrh+MAgVOVfxEM66Ffdua3KRouvX8WlKxdReCWfss8SKOl6UdFl7Nu3F3Pmz8SIyWEI
|
||||
m+FBwTIBC9UInyPAiA96QWCDhYU82dIKShpCt2kTS+OZIXP0aNRWlqO++UnbiUxZgbLyGyi7dQN371XR
|
||||
IacaBZfykbw7GYkr4hE7PQzRsxQInytExFyP32TwfBFi17pA0eMCdCJLph4odnPHUWr5XMp7mKNk0/Nm
|
||||
1NU9wH0SqK39HnWP6vDw4QNV1rmd8v9l7y/EqHkhGJIgRyQFFznfA1HzPTtkyCIxRq13IwF5zwps4/O9
|
||||
vzThIdWMj/x1H6LhKZ2HGRoeo5l6oPnZU1XgRUVF2L7zM6z8cCHiloQhaqEXohIp6EQxohO9fpehSz0x
|
||||
+qNeEJipb+SzjXbX7I3r0dTyHI1NjXj2rBmtrS148PA+rtBhZtfX27H0o9mY9E4khizxxFBi2FIpYrrA
|
||||
iJUSjN0ggCJS8b2ZjU3/9uq7X7T7aAunRIbW5Vw+gx9afkBrSyseP36E/MKLSDm4A4kfTUHc6iAMXeaF
|
||||
IUvFGL5c9kaMXC1F3CYBfAf7UCpmKGyvvltFk9DV0tJShI8dVnXuUi4a6utRcOU8kg/+Gws3voURy73b
|
||||
Wpy6P2YZBdINRq5qE5BGSmr19FiBVLchocME8ialL8Eh+JqaumFDxw6rPn46FUlHtmDh5jgMWyHG0OUe
|
||||
GLFKQlD39wCx70kQ97EAPhGKOh0do6FUtxXBI7SILhfGnPlPoa2Ojn6MX6hf3cRVkRi5hlaKTY4Yv1lA
|
||||
CHuUCf8UIm6jEIpwxVM9bcOxVDczDxgJA6LLhbE2JWwMDAwiRVLpFReJV62bXPrAy19GSGp7nADCT1Lr
|
||||
IZeX6uvrD6e6HQkLQp94o8I8yCdc2WxuOIvDGUmMMWSbjGM+exoOhzuKwcjEJEpbW1tE9VoTbIIZzm9c
|
||||
mKFkTDC9wbSGLcF0rX0vYEMwQTNDl0swQ0eD6HZhXqJNMC9kEYwQM8F7GiOCWXl0iW61+p+l90qfPv8F
|
||||
/zqI2Zapf/AAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABSSURBVDhP3YxbCgAgCAQ9ukfzZkXBlkIv7Sf6GNB1HRKR
|
||||
dEMVEFEII2Du4Yr2eCMAdUfoEejubwIcVujeUHDKVFDmHSFB6ekuskcEOHgxghiSMjk0Kh+omBHQAAAA
|
||||
AElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="DokList.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="DokList.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0
|
||||
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
||||
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
||||
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
||||
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
||||
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
||||
</value>
|
||||
</data>
|
||||
<data name="DokList.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>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;}</Data></Styles><Splits><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"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 415, 275</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 415, 275</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,252 @@
|
||||
Imports System
|
||||
Imports System.Text
|
||||
Imports System.Runtime.InteropServices
|
||||
Imports System.Threading
|
||||
Imports System.IO
|
||||
|
||||
Public Class ApplicationFileWatcher
|
||||
|
||||
#Region "Deklarationen"
|
||||
Private m_isActive As Boolean
|
||||
Public Event DocumentClosed()
|
||||
|
||||
Private m_Filename As String
|
||||
Property Filename() As String
|
||||
Get
|
||||
Return m_Filename
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_Filename = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private m_ApplicationType As Integer
|
||||
Property ApplicationType()
|
||||
Get
|
||||
Return m_ApplicationType
|
||||
End Get
|
||||
Set(ByVal Value)
|
||||
m_ApplicationType = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private m_Applicationname As String
|
||||
Property Appname() As String
|
||||
Get
|
||||
Return m_Applicationname
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_Applicationname = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private m_WindowNameDC As String
|
||||
Property WindowNameDC() As String
|
||||
Get
|
||||
Return m_WindowNameDC
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_WindowNameDC = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Private m_WindowName As String
|
||||
Property WindowName() As String
|
||||
Get
|
||||
Return m_WindowName
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_WindowName = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'Rel. Office 2010
|
||||
Private m_WindowNameKomp As String
|
||||
Property WindowNameKompatibilitaet() As String
|
||||
Get
|
||||
Return m_WindowNameKomp
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
m_WindowNameKomp = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private m_WindowNamePreview As String
|
||||
Property WindowNamePreview() As String
|
||||
Get
|
||||
Return m_WindowNamePreview
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_WindowNamePreview = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Const STRING_BUFFER_LENGTH As Integer = 255
|
||||
Dim WindowArray As New ArrayList()
|
||||
Dim WithEvents MyTimer As New System.Timers.Timer(1000)
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Öffentliche Methoden"
|
||||
Public Sub New()
|
||||
End Sub
|
||||
|
||||
Public Sub New(ByVal typ As Integer, ByVal DocFileName As String)
|
||||
MyBase.new()
|
||||
End Sub
|
||||
|
||||
Public Sub Dispose()
|
||||
Me.WindowArray = Nothing
|
||||
End Sub
|
||||
|
||||
Public Sub Start()
|
||||
AddHandler MyTimer.Elapsed, AddressOf TimerFired
|
||||
SetWindowName()
|
||||
MyTimer.Start()
|
||||
End Sub
|
||||
|
||||
Public Sub Stopp()
|
||||
Me.MyTimer.Stop()
|
||||
End Sub
|
||||
|
||||
Public Sub BringWindowToTop()
|
||||
Dim i As Integer
|
||||
SetWindowName()
|
||||
i = Win32API.FindWindow(vbNullString, Me.WindowName)
|
||||
|
||||
If i <> 0 Then
|
||||
i = Win32API.SetForegroundWindow(i)
|
||||
i = Win32API.ShowWindow(i, Win32API.SW_RESTORE)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Public Function doc_is_active() As Boolean
|
||||
Dim I As Integer
|
||||
Search_List()
|
||||
For I = 0 To Me.WindowArray.Count - 1
|
||||
If Me.WindowArray.Item(I) = Me.WindowName Then doc_is_active = True
|
||||
Next
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Private Methoden"
|
||||
|
||||
Public Sub SetWindowName()
|
||||
Select Case Me.ApplicationType
|
||||
Case 1 'Word
|
||||
Me.WindowName = Me.Filename + " - Microsoft Word"
|
||||
Me.WindowNameKompatibilitaet = Me.Filename + " [Kompatibilitätsmodus] - Microsoft Word"
|
||||
Me.WindowNamePreview = Me.Filename + " (Seitenansicht) - Microsoft Word"
|
||||
Me.WindowNameDC = Me.Filename + " - DC"
|
||||
Case 2 'Excel
|
||||
Me.WindowName = "Microsoft Excel - " & Me.Filename
|
||||
Me.WindowNameKompatibilitaet = "Microsoft Excel - " & Me.Filename + " [Kompatibilitätsmodus]"
|
||||
Me.WindowNamePreview = "Microsoft Excel - " & Me.Filename
|
||||
Me.WindowNameDC = Me.Filename + " - Excel"
|
||||
Case 3
|
||||
Me.WindowName = Me.Filename + " - Adobe Reader"
|
||||
Me.WindowNameKompatibilitaet = Me.Filename + " - Adobe Reader"
|
||||
Me.WindowNamePreview = Me.Filename + " - Adobe Reader"
|
||||
Me.WindowNameDC = Me.Filename + ""
|
||||
Case 4
|
||||
Me.WindowName = Me.WindowName
|
||||
Me.WindowNamePreview = Me.WindowNamePreview
|
||||
Me.WindowNameDC = Me.Filename + ""
|
||||
Case Else
|
||||
'MsgBox("Hallo")
|
||||
End Select
|
||||
End Sub
|
||||
Public Function getWindowName() As String
|
||||
Return Me.WindowName
|
||||
End Function
|
||||
|
||||
Public Sub TimerFired(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles MyTimer.Elapsed
|
||||
MyTimer.Stop()
|
||||
'Dim sW As New StreamWriter("D:\TRACE.LOG", True)
|
||||
'sW.WriteLine(Now)
|
||||
Dim DocFound As Boolean = False
|
||||
Dim i As Integer
|
||||
Dim zz As Integer = 0
|
||||
'While zz < 3 And DocFound = False
|
||||
Me.WindowArray.Clear()
|
||||
Search_List()
|
||||
For i = 0 To Me.WindowArray.Count - 1
|
||||
'sW.WriteLine(Me.WindowName + ":" + Me.WindowArray.Item(i))
|
||||
'If Me.WindowArray.Item(i) = Me.WindowName Then MsgBox("Ist aktiv")
|
||||
If Me.WindowArray.Item(i) = Me.WindowName Then DocFound = True
|
||||
If Me.WindowArray.Item(i) = Me.WindowNamePreview Then DocFound = True
|
||||
If Me.WindowArray.Item(i) = Me.WindowNameDC Then DocFound = True
|
||||
If Me.WindowArray.Item(i) = Me.WindowNameKompatibilitaet Then DocFound = True
|
||||
Next
|
||||
'zz = zz + 1
|
||||
' Thread.Sleep(300)
|
||||
' 'End While
|
||||
' Thread.Sleep(300)
|
||||
If Not DocFound Then
|
||||
Dim fn As String = Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente") + "~$" + Microsoft.VisualBasic.Right(Me.Filename, Len(Me.Filename) - 2)
|
||||
Dim fc As New FileInfo(fn)
|
||||
If fc.Exists Then DocFound = True
|
||||
If Not DocFound Then
|
||||
' sW.WriteLine("Stop:" + Me.WindowName)
|
||||
MyTimer.Stop()
|
||||
RaiseEvent DocumentClosed()
|
||||
Else
|
||||
MyTimer.Start()
|
||||
End If
|
||||
Else
|
||||
MyTimer.Start()
|
||||
End If
|
||||
DocFound = Nothing
|
||||
' sW.WriteLine(Now)
|
||||
' sW.Flush()
|
||||
' sW.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub Search_List()
|
||||
Win32API.EnumWindowsDllImport(New Win32API.EnumWindowsCallback(AddressOf _
|
||||
FillActiveWindowsList), 0)
|
||||
End Sub
|
||||
|
||||
Function FillActiveWindowsList(ByVal hWnd As Integer, ByVal lParam As Integer) As Boolean
|
||||
Dim windowText As New StringBuilder(STRING_BUFFER_LENGTH)
|
||||
Win32API.GetWindowText(hWnd, windowText, STRING_BUFFER_LENGTH)
|
||||
If ProcessIsActiveWindow(hWnd) Then
|
||||
Me.WindowArray.Add(windowText.ToString)
|
||||
End If
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Function ProcessIsActiveWindow(ByVal hWnd As Integer) As Boolean
|
||||
Dim windowText As New StringBuilder(STRING_BUFFER_LENGTH)
|
||||
Dim windowIsOwned As Boolean
|
||||
Dim windowStyle As Integer
|
||||
Win32API.GetWindowText(hWnd, windowText, STRING_BUFFER_LENGTH)
|
||||
windowIsOwned = Win32API.GetWindow(hWnd, Win32API.GW_OWNER) <> 0
|
||||
windowStyle = Win32API.GetWindowLong(hWnd, Win32API.GWL_EXSTYLE)
|
||||
Return True
|
||||
|
||||
If Not Win32API.IsWindowVisible(hWnd) Then
|
||||
Return False
|
||||
End If
|
||||
If windowText.ToString.Equals("") Then
|
||||
Return False
|
||||
End If
|
||||
If Win32API.GetParent(hWnd) <> 0 Then
|
||||
Return False
|
||||
End If
|
||||
If (windowStyle And Win32API.WS_EX_TOOLWINDOW) <> 0 And Not windowIsOwned Then
|
||||
Return False
|
||||
End If
|
||||
If (windowStyle And Win32API.WS_EX_APPWINDOW) = 0 And windowIsOwned Then
|
||||
Return False
|
||||
End If
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
Binary file not shown.
@@ -0,0 +1,33 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
EDOKA_Toolset
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
<member name="T:EDOKA_Toolset.My.Resources.Resources">
|
||||
<summary>
|
||||
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:EDOKA_Toolset.My.Resources.Resources.ResourceManager">
|
||||
<summary>
|
||||
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:EDOKA_Toolset.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:EDOKA_Toolset.frmMain1.Get_Username">
|
||||
<summary>
|
||||
Windows-User auslesen
|
||||
</summary>
|
||||
<returns></returns>
|
||||
<remarks></remarks>
|
||||
</member>
|
||||
</members>
|
||||
</doc>
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,342 @@
|
||||
Imports System.Windows.Forms
|
||||
Imports Gnostice.Documents.Controls.WinForms
|
||||
Imports Gnostice.Documents
|
||||
|
||||
Public Class frmScan
|
||||
|
||||
Dim licenseKey As String = "530B-ED36-D5D0-CB1D-DD48-B443-AE22-6E19-0264-3D59-FA7A-9FAD"
|
||||
Dim barcode As SoftekBarcodeNet.BarcodeReader
|
||||
Dim nBarCodes As Integer
|
||||
|
||||
Sub New()
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
Try
|
||||
Framework.ActivateLicense(licenseKey)
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
initBarcode()
|
||||
End Sub
|
||||
|
||||
Private Sub frmScan_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Me.ListBox1.Items.Clear()
|
||||
Dim di As New IO.DirectoryInfo("E:\Software-Projekte\EDOKA\__Barcode\DOcs")
|
||||
Dim diar1 As IO.FileInfo() = di.GetFiles()
|
||||
Dim dra As IO.FileInfo
|
||||
|
||||
'list the names of all files in the specified directory
|
||||
For Each dra In diar1
|
||||
If UCase(dra.Extension) = ".PDF" Then ListBox1.Items.Add(dra.Name)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
|
||||
Me.DocumentViewer1.LoadDocument("E:\Software-Projekte\EDOKA\__Barcode\DOcs\" + Me.ListBox1.SelectedItem)
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub TSBtnLast_Click(sender As Object, e As EventArgs) Handles TSBtnLast.Click
|
||||
If DocumentViewer1.IsDocumentLoaded Then DocumentViewer1.LastPage()
|
||||
End Sub
|
||||
|
||||
Private Sub TSBtnPrevious_Click(sender As Object, e As EventArgs) Handles TSBtnPrevious.Click
|
||||
If DocumentViewer1.IsDocumentLoaded Then DocumentViewer1.PreviousPage()
|
||||
End Sub
|
||||
|
||||
Private Sub TSBtnNext_Click(sender As Object, e As EventArgs) Handles TSBtnNext.Click
|
||||
If DocumentViewer1.IsDocumentLoaded Then DocumentViewer1.NextPage()
|
||||
End Sub
|
||||
|
||||
Private Sub TSBtnFirst_Click(sender As Object, e As EventArgs) Handles TSBtnFirst.Click
|
||||
If DocumentViewer1.IsDocumentLoaded Then DocumentViewer1.FirstPage()
|
||||
End Sub
|
||||
|
||||
Private Sub tsZoomOut_Click(sender As Object, e As EventArgs) Handles tsZoomOut.Click
|
||||
If DocumentViewer1.IsDocumentLoaded Then
|
||||
DocumentViewer1.ZoomOut()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub tsZoomIn_Click(sender As Object, e As EventArgs) Handles tsZoomIn.Click
|
||||
If DocumentViewer1.IsDocumentLoaded Then
|
||||
DocumentViewer1.ZoomIn()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub txtZoom_Click(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub tsFitPage_Click(sender As Object, e As EventArgs) Handles tsFitPage.Click
|
||||
If DocumentViewer1.IsDocumentLoaded Then
|
||||
Me.DocumentViewer1.Zoom.ZoomMode = ZoomMode.FitPage
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnFirstPage_Click(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub tsFitWidth_Click(sender As Object, e As EventArgs) Handles tsFitWidth.Click
|
||||
If DocumentViewer1.IsDocumentLoaded Then
|
||||
DocumentViewer1.Zoom.ZoomMode = ZoomMode.FitWidth
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
|
||||
Results.Text = ""
|
||||
'DocumentViewer1.CloseDocument()
|
||||
nBarCodes = barcode.ScanBarCode("E:\Software-Projekte\EDOKA\__Barcode\DOcs\" + ListBox1.SelectedItem)
|
||||
getResults()
|
||||
End Sub
|
||||
|
||||
Private Sub getResults()
|
||||
Dim i As Integer
|
||||
Dim nDirection As Integer
|
||||
Dim nPage As Integer
|
||||
Dim rect As System.Drawing.Rectangle
|
||||
|
||||
If nBarCodes <= -6 Then
|
||||
SetText("License key error: either an evaluation key has expired or the license key is not valid for processing pdf documents")
|
||||
ElseIf nBarCodes < 0 Then
|
||||
SetText("ScanBarCode returned error number " & nBarCodes)
|
||||
SetText("Last Softek Error Number = " & barcode.GetLastError())
|
||||
SetText("Last Windows Error Number = " & barcode.GetLastWinError())
|
||||
End If
|
||||
|
||||
If nBarCodes = 0 Then
|
||||
SetText("Sorry - no barcodes were found in this image")
|
||||
End If
|
||||
|
||||
For i = 1 To nBarCodes
|
||||
SetText("Barcode " & i & ":")
|
||||
|
||||
SetText("Value = " & barcode.GetBarString(i))
|
||||
|
||||
SetText("Type = " & barcode.GetBarStringType(i))
|
||||
|
||||
nDirection = barcode.GetBarStringDirection(i)
|
||||
If nDirection = 1 Then
|
||||
SetText("Direction = Left to Right")
|
||||
Else
|
||||
If nDirection = 2 Then
|
||||
SetText("Direction = Top to Bottom")
|
||||
Else
|
||||
If nDirection = 4 Then
|
||||
SetText("Direction = Right to Left")
|
||||
Else
|
||||
If nDirection = 8 Then
|
||||
SetText("Direction = Bottom to Top")
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
nPage = barcode.GetBarStringPage(i)
|
||||
rect = barcode.GetBarStringRect(i)
|
||||
SetText("Page = " & nPage)
|
||||
SetText("Top Left = (" & rect.X & "," & rect.Y & ")")
|
||||
SetText("Bottom Right = (" & (rect.X + rect.Width) & "," & (rect.Y + rect.Height) & ")")
|
||||
SetText("")
|
||||
|
||||
Next i
|
||||
|
||||
GC.Collect()
|
||||
End Sub
|
||||
|
||||
Delegate Sub SetTextCallback(ByVal [text] As String)
|
||||
|
||||
Private Sub SetText(ByVal [text] As String)
|
||||
|
||||
' InvokeRequired required compares the thread ID of the
|
||||
' calling thread to the thread ID of the creating thread.
|
||||
' If these threads are different, it returns true.
|
||||
If Me.Results.InvokeRequired Then
|
||||
Dim d As New SetTextCallback(AddressOf SetText)
|
||||
Me.Invoke(d, New Object() {[text]})
|
||||
Else
|
||||
Me.Results.Text += [text] + vbNewLine
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub initBarcode()
|
||||
' For the purposes of this demo we first give a path to the installation folder
|
||||
' and the class adds either x86 or x64 to the end and tries to load the other dll files.
|
||||
' If that fails (perhaps this project has been moved) then we give no path and the class
|
||||
' assumes that the dll files will be somewhere on the PATH.
|
||||
'
|
||||
' In this project we give the path to the Softek DLL files when we create the BarcodeReader class
|
||||
' Another way is to include the following files with your project:
|
||||
' SoftekBarcodeDLL.dll
|
||||
' SoftekBarcode64DLL.dll
|
||||
' DebenuPDFLibraryDLLXXXX.dll
|
||||
' DebenuPDFLibrary64DLLXXXX.dll
|
||||
|
||||
barcode = New SoftekBarcodeNet.BarcodeReader("E:\Software-Projekte\EDOKA\__Barcode\Barcode.com\bin")
|
||||
|
||||
' Enter your license key here
|
||||
' You can get a trial license key from sales@bardecode.com
|
||||
' Example:
|
||||
' barcode.LicenseKey = "MY LICENSE KEY"
|
||||
|
||||
' Turn on the barcode types you want to read.
|
||||
' Turn off the barcode types you don't want to read (this will increase the speed of your application)
|
||||
barcode.ReadCode128 = True
|
||||
barcode.ReadCode39 = True
|
||||
barcode.ReadCode25 = True
|
||||
barcode.ReadEAN13 = True
|
||||
barcode.ReadEAN8 = True
|
||||
barcode.ReadUPCA = True
|
||||
barcode.ReadUPCE = True
|
||||
barcode.ReadCodabar = True
|
||||
barcode.ReadPDF417 = True
|
||||
barcode.ReadDataMatrix = True
|
||||
barcode.ReadDatabar = True
|
||||
barcode.ReadMicroPDF417 = False
|
||||
barcode.ReadQRCode = True
|
||||
|
||||
' Databar Options is a mask that controls which type of databar barcodes will be read and whether or not
|
||||
' the software will look for a quiet zone around the barcode.
|
||||
' 1 = 2D-Linkage flag (handle micro-PDf417 barcodes as supplementary data - requires ReadMicroPDF417 to be true).
|
||||
' 2 = Read RSS14
|
||||
' 4 = Read RSS14 Stacked
|
||||
' 8 = Read Limited
|
||||
' 16 = Read Expanded
|
||||
' 32 = Read Expanded Stacked
|
||||
' 64 = Require quiet zone
|
||||
barcode.DatabarOptions = 255
|
||||
|
||||
' If you want to read more than one barcode then set Multiple Read to 1
|
||||
' Setting MutlipleRead to False will make the recognition faster
|
||||
barcode.MultipleRead = True
|
||||
|
||||
' If you know the max number of barcodes for a single page then increase speed by setting MaxBarcodesPerPage
|
||||
barcode.MaxBarcodesPerPage = 0
|
||||
|
||||
' In certain conditions (MultipleRead = false or MaxBarcodesPerPage = 1) the SDK can make fast scan of an image before performing the normal scan. This is useful if only 1 bar code is expected per page.
|
||||
barcode.UseFastScan = True
|
||||
|
||||
' If MultipleRead = false or MaxBarcodesPerPage = 1 and the bar code is always closer to the top of a page then set BarcodesAtTopOfPage to True to increase speed.
|
||||
barcode.BarcodesAtTopOfPage = False
|
||||
|
||||
|
||||
' Noise reduction takes longer but can make it possible to read some difficult barcodes
|
||||
' When using noise reduction a typical value is 10 - the smaller the value the more effect it has.
|
||||
' A zero value turns off noise reduction.
|
||||
' barcode.NoiseReduction = 0
|
||||
|
||||
' You may need to set a small quiet zone if your barcodes are close to text and pictures in the image.
|
||||
' A value of zero uses the default.
|
||||
barcode.QuietZoneSize = 0
|
||||
|
||||
' LineJump controls the frequency at which scan lines in an image are sampled.
|
||||
' The default is 1.
|
||||
barcode.LineJump = 1
|
||||
|
||||
' You can restrict your search to a particular area of the image if you wish.
|
||||
' This example limits the search to the upper half of the page
|
||||
' Dim scanArea As System.Drawing.Rectangle
|
||||
' scanArea = New System.Drawing.Rectangle(0, 0, 100, 50)
|
||||
' barcode.SetScanRect(scanArea, 1)
|
||||
|
||||
' Set the direction that the barcode reader should scan for barcodes
|
||||
' The value is a mask where 1 = Left to Right, 2 = Top to Bottom, 4 = Right To Left, 8 = Bottom to Top
|
||||
barcode.ScanDirection = 15
|
||||
|
||||
' Set the page number to read from in a multi-page TIF file. The default is 0, which will make the
|
||||
' toolkit check every page.
|
||||
' barcode.PageNo = 1
|
||||
|
||||
' SkewTolerance controls the angle of skew that the barcode toolkit will tolerate and ranges from 0 to 5 (45 degrees)
|
||||
' Note that from version 7.6.1 the SDK is able to read some skewed barcodes with this setting. See below.
|
||||
barcode.SkewTolerance = 0
|
||||
|
||||
' Read most skewed linear barcodes without the need to set SkewTolerance. Currently applies to Codabar, Code 25, Code 39 and Code 128 barcodes only.
|
||||
barcode.SkewedLinear = True
|
||||
|
||||
' Read most skewed datamatrix barcodes without the need to set SkewTolerance
|
||||
barcode.SkewedDatamatrix = True
|
||||
|
||||
|
||||
' ColorProcessingLevel controls how much time the toolkit will searching a color image for a barcode.
|
||||
' The default value is 2 and the range of values is 0 to 5. If ColorThreshold is non-zero then
|
||||
' ColorProcessingLevel is effectively set to 0.
|
||||
barcode.ColorProcessingLevel = 2
|
||||
|
||||
' MaxLength and MinLength can be used to specify the number of characters you expect to
|
||||
' find in a barcode. This can be useful to increase accuracy or if you wish to ignore some
|
||||
' barcodes in an image.
|
||||
barcode.MinLength = 4
|
||||
barcode.MaxLength = 999
|
||||
|
||||
' When the toolkit scans an image it records the number of hits it gets for each barcode that
|
||||
' MIGHT be in the image. If the hits recorded for any of the barcodes are >= PrefOccurrence
|
||||
' then only these barcodes are returned. Otherwise, any barcode whose hits are >= MinOccurrence
|
||||
' are reported. If you have a very poor quality image then try setting MinOccurrence to 1, but you
|
||||
' may find that some false positive results are returned.
|
||||
' barcode.MinOccurrence = 2
|
||||
' barcode.PrefOccurrence = 4
|
||||
|
||||
' Read Code 39 barcodes in extended mode
|
||||
' barcode.ExtendedCode39 = True
|
||||
|
||||
' Barcode string is numeric
|
||||
' barcode.ReadNumeric = True
|
||||
|
||||
' Set a regular expression for the barcode
|
||||
' barcode.Pattern = "^[A-Z]{2}[0-9]{5}$"
|
||||
|
||||
' If you are scanning at a high resolution and the spaces between bars are
|
||||
' larger than 1 pixel then set MinSpaceBarWidth to 2 and increase your read rate.
|
||||
' barcode.MinSpaceBarWidth = 2
|
||||
|
||||
' MedianFilter is a useful way to clean up higher resolution images where the black bars contain white dots
|
||||
' and the spaces contain black dots. It does not work if the space between bars is only 1 pixel wide.
|
||||
barcode.MedianFilter = False
|
||||
|
||||
' ReportUnreadBarcodes can be used to warn of the presence of a barcode on a page that the SDK has not been able to decode.
|
||||
' It currently has the following important limitations:
|
||||
' 1. An unread linear barcode will only be reported if no other barcode was found in the same page.
|
||||
' 2. The height of the area for an unread linear barcode will only cover a portion of the barcode.
|
||||
' 3. Only 2-D barcodes that fail to error correct will be reported.
|
||||
' 4. The barcode type and value will both be set to UNREAD for all unread barcodes.
|
||||
' 5. The reporting of unread linear barcodes takes no account of settings for individual barcode types. For example, if ReadCode39 is True and
|
||||
' an image contains a single Code 39 barcode then this will be reported as an unread barcode.
|
||||
' 6. 2-D barcodes are only reported as unread if the correct barcode types have been enabled.
|
||||
' 7. Not all unread barcodes will be detected.
|
||||
'
|
||||
' The value is a mask with the following values: 1 = linear barcodes, 2 = Datamatrix, 4 = QR-Code, 8 = PDF-417
|
||||
barcode.ReportUnreadBarcodes = 0
|
||||
|
||||
' Time out for reading a barcode from a page in ms. Note that this does not include the time to load the page.
|
||||
' 0 means no time out.
|
||||
barcode.TimeOut = 5000
|
||||
|
||||
|
||||
|
||||
' Flags for handling PDF files
|
||||
' PdfImageOnly defaults to true and indicates that the PDF documents are simple images.
|
||||
barcode.PdfImageOnly = True
|
||||
|
||||
' PdfImageExtractOptions is no longer required in version 8 of the SDK but is retained for future possible use.
|
||||
' barcode.PdfImageExtractOptions = 0
|
||||
|
||||
' The PdfImageRasterOptions mask controls how images are rasterized when PdfImageOnly is false or when image extraction fails
|
||||
' 0 = Use Debenu to render image
|
||||
' 4 = Use VeryPDF to render image (x86 only)
|
||||
barcode.PdfImageRasterOptions = 0
|
||||
|
||||
' PdfDpi and PdfBpp control what sort of image the PDF document is rasterized into
|
||||
barcode.PdfDpi = 300
|
||||
barcode.PdfBpp = 8
|
||||
|
||||
' Or you can load the settings from a xml format file
|
||||
' See the manual for more details.
|
||||
' barcode.LoadXMLSettings("settings.xml")
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,73 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <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
|
||||
|
||||
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.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 "My.Settings Auto-Save Functionality"
|
||||
#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_DokTypExportImport.My.MySettings
|
||||
Get
|
||||
Return Global.Plugin_DokTypExportImport.My.MySettings.Default
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
Binary file not shown.
Binary file not shown.
@@ -0,0 +1 @@
|
||||
<?xml version="1.0" encoding="utf-8"?><Configuration xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"><DontShowAgainInSolution>false</DontShowAgainInSolution></Configuration>
|
||||
@@ -0,0 +1,18 @@
|
||||
Imports System.IO
|
||||
Imports System.Reflection
|
||||
|
||||
Module Globals
|
||||
Public ConnectionFilename As String
|
||||
Public sConnectionstring As String
|
||||
Public Mitarbeiternr As Integer
|
||||
Public Vorlagendata_vollstaendig As New DataTable
|
||||
Public Vorlagendata As New DataTable()
|
||||
Public conn As New edokadb.clsConnectionProvider()
|
||||
Public hasmessage As Integer
|
||||
|
||||
Public Function ApplicationPath() As String
|
||||
Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
|
||||
End Function
|
||||
|
||||
|
||||
End Module
|
||||
Binary file not shown.
@@ -0,0 +1,17 @@
|
||||
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_FiVo\bin\Debug\Plugin_FiVo.dll
|
||||
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_FiVo\bin\Debug\Plugin_FiVo.pdb
|
||||
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_FiVo\bin\Debug\Plugin_FiVo.xml
|
||||
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_FiVo\bin\Debug\PluginContracts.dll
|
||||
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_FiVo\bin\Debug\PluginContracts.pdb
|
||||
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_FiVo\bin\Debug\PluginContracts.xml
|
||||
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_FiVo\obj\Debug\Plugin_FiVo.Resources.resources
|
||||
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_FiVo\obj\Debug\Plugin_FiVo.vbproj.GenerateResource.Cache
|
||||
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Bin\Plugin_FiVo.dll
|
||||
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Bin\Plugin_FiVo.pdb
|
||||
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Bin\Plugin_FiVo.xml
|
||||
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_FiVo\obj\Debug\Plugin_FiVo.dll
|
||||
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_FiVo\obj\Debug\Plugin_FiVo.xml
|
||||
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_FiVo\obj\Debug\Plugin_FiVo.pdb
|
||||
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_FiVo\obj\Debug\Plugin_FiVo.frmData.resources
|
||||
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_FiVo\obj\Debug\Plugin_FiVo.dll.licenses
|
||||
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_FiVo\obj\Debug\Plugin_FiVo.vbprojResolveAssemblyReference.cache
|
||||
@@ -0,0 +1,73 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <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
|
||||
|
||||
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.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 "My.Settings Auto-Save Functionality"
|
||||
#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.clspdf.My.MySettings
|
||||
Get
|
||||
Return Global.clspdf.My.MySettings.Default
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,73 @@
|
||||
Public Class Form1
|
||||
Dim dbconn As New DB_Connection
|
||||
Dim db As New DB
|
||||
|
||||
Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchliessenToolStripMenuItem.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub Form1_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
|
||||
For i = 0 To Me.C1Dokumenttypen.Splits(0).DisplayColumns.Count - 1
|
||||
Me.C1Dokumenttypen.Splits(0).DisplayColumns(i).Locked = True
|
||||
Next
|
||||
|
||||
Refresh_Blacklist()
|
||||
End Sub
|
||||
|
||||
Sub Refresh_Blacklist(Optional marker As Integer = 0)
|
||||
db.Get_Blacklist()
|
||||
Me.C1Blacklist.DataSource = Nothing
|
||||
Me.C1Blacklist.DataSource = db.dsdatenblacklist.Tables("Blacklist")
|
||||
Me.C1Blacklist.DataMember = db.dsdatenblacklist.Tables(0).TableName
|
||||
Me.C1Blacklist.Splits(0).DisplayColumns(0).Width = 0
|
||||
Me.C1Blacklist.Splits(0).DisplayColumns(1).Width = 60
|
||||
Me.C1Blacklist.Splits(0).DisplayColumns(2).Width = 200
|
||||
Me.C1Blacklist.Splits(0).DisplayColumns(3).Width = 50
|
||||
Me.C1Blacklist.Splits(0).DisplayColumns(4).Width = 70
|
||||
Me.C1Blacklist.Splits(0).DisplayColumns(5).Width = 50
|
||||
Me.C1Blacklist.Splits(0).DisplayColumns(6).Width = 70
|
||||
Me.C1Blacklist.Splits(0).DisplayColumns(7).Width = 50
|
||||
Me.C1Blacklist.Splits(0).DisplayColumns(1).Locked = True
|
||||
Me.C1Blacklist.Splits(0).DisplayColumns(4).Locked = True
|
||||
Me.C1Blacklist.Splits(0).DisplayColumns(4).Locked = True
|
||||
Me.C1Blacklist.Splits(0).DisplayColumns(5).Locked = True
|
||||
Me.C1Blacklist.Splits(0).DisplayColumns(6).Locked = True
|
||||
Me.C1Blacklist.Splits(0).DisplayColumns(7).Locked = True
|
||||
Dim bm As Integer = 0
|
||||
If marker <> 0 Then
|
||||
For i = 0 To db.dsdatenblacklist.Tables(0).Rows.Count - 1
|
||||
If db.dsdatenblacklist.Tables(0).Rows(i).Item("DokTypNr") = marker Then Me.C1Blacklist.Bookmark = bm
|
||||
bm = bm + 1
|
||||
Next
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub C1Dokumenttypen_DoubleClick(sender As Object, e As EventArgs) Handles C1Dokumenttypen.DoubleClick
|
||||
Dim row As DataRow = db.dsdatenblacklist.Tables(0).NewRow
|
||||
row.Item(1) = Me.C1Dokumenttypen.Columns("Dokumenttypnr").Value
|
||||
row.Item(2) = ""
|
||||
row.Item(3) = True
|
||||
row.Item(4) = Now
|
||||
row.Item(5) = Globals.Mitarbeiternr
|
||||
row.Item(6) = Now
|
||||
row.Item(7) = Globals.Mitarbeiternr
|
||||
db.dsdatenblacklist.Tables(0).Rows.Add(row)
|
||||
db.Update_Daten()
|
||||
Refresh_Blacklist(Me.C1Dokumenttypen.Columns("Dokumenttypnr").Value)
|
||||
End Sub
|
||||
|
||||
Private Sub C1Blacklist_AfterUpdate(sender As Object, e As EventArgs) Handles C1Blacklist.AfterUpdate
|
||||
db.Update_Daten()
|
||||
End Sub
|
||||
|
||||
Private Sub C1Blacklist_BeforeColUpdate(sender As Object, e As C1.Win.C1TrueDBGrid.BeforeColUpdateEventArgs) Handles C1Blacklist.BeforeColUpdate
|
||||
Me.C1Blacklist.Columns("Mutiert_am").Value = Now
|
||||
Me.C1Blacklist.Columns("Mutierer").Value = Globals.Mitarbeiternr
|
||||
End Sub
|
||||
End Class
|
||||
Binary file not shown.
@@ -0,0 +1,292 @@
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.ComponentModel
|
||||
Imports System.Drawing
|
||||
Imports System.Drawing.Color
|
||||
Imports System.IO
|
||||
Imports System.Threading
|
||||
Imports System.Windows.Forms
|
||||
Imports System.Data.OleDb
|
||||
Public Class Form1
|
||||
|
||||
Dim dsdaten As New DataSet
|
||||
Dim HasErrors As Boolean = False
|
||||
Dim HasError As Boolean = False
|
||||
Dim db As New DB
|
||||
Dim Resulttext As String = ""
|
||||
Dim dbconn As New DB_Connection
|
||||
Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchliessenToolStripMenuItem.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub ExcelImportToolStripMenuItem_Click(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Function FillDataTableFromText(ByVal file As String) As DataTable
|
||||
Select Case UCase(Microsoft.VisualBasic.Right(file, 3))
|
||||
|
||||
Case "XLS"
|
||||
If oledbimport(file, "XLS") Then
|
||||
Me.dsdaten.Tables(0).TableName = "empfdatatable"
|
||||
End If
|
||||
Case "XLSX"
|
||||
If oledbimport(file, "XLSX") Then
|
||||
Me.dsdaten.Tables(0).TableName = "empfdatatable"
|
||||
End If
|
||||
End Select
|
||||
'Rel. Office Migration
|
||||
If UCase(Microsoft.VisualBasic.Right(file, 5)) = ".XLSX" Then
|
||||
If oledbimport(file, "XLSX") Then
|
||||
Me.dsdaten.Tables(0).TableName = "empfdatatable"
|
||||
End If
|
||||
|
||||
End If
|
||||
Dim dv As DataRow
|
||||
|
||||
End Function
|
||||
Private Function oledbimport(ByVal file As String, ByVal filetype As String) As Boolean
|
||||
Dim dt As New DataTable()
|
||||
Dim conn As OleDbConnection
|
||||
Dim sql As String
|
||||
Dim FileConnection As String
|
||||
Dim oda As New OleDbDataAdapter()
|
||||
Dim msg As String
|
||||
|
||||
Select Case filetype
|
||||
Case "XLS"
|
||||
Try
|
||||
Dim xls As New XLSLib.clsXLSLib
|
||||
dt = xls.Get_Excel(file)
|
||||
Me.dsdaten.Tables.Add(dt)
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
Case "XLSX"
|
||||
Try
|
||||
Dim xls As New XLSLib.clsXLSLib
|
||||
dt = xls.Get_Excel(file)
|
||||
Me.dsdaten.Tables.Add(dt)
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End Select
|
||||
|
||||
Try
|
||||
Try
|
||||
conn = New OleDbConnection()
|
||||
conn.ConnectionString = FileConnection
|
||||
conn.Open()
|
||||
Catch ex As Exception
|
||||
msg = ex.Message
|
||||
End Try
|
||||
oda = New OleDbDataAdapter(sql, conn)
|
||||
oda.Fill(dt)
|
||||
'Rel 4.03 4: Sofern die erste Spalte der importierten Daten keine Partnernummer ist, Meldung ausgeben
|
||||
Me.dsdaten.Tables.Add(dt)
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
Finally
|
||||
oda.Dispose()
|
||||
conn.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Function Get_Sheetname(ByVal excelfile As String) As String
|
||||
Dim f As New frmExcelSheets
|
||||
f.ExcelFile = excelfile
|
||||
f.ShowDialog()
|
||||
If f.DialogResult = DialogResult.OK Then
|
||||
Return f.ExcelSheet
|
||||
Else
|
||||
Return ""
|
||||
End If
|
||||
End Function
|
||||
|
||||
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub VerarbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Sub check_doktyp(ByVal doktypnr As Integer)
|
||||
If db.Get_DokumentTYP(doktypnr) = False Then
|
||||
Resulttext = Resulttext + vbCrLf + "Dokumenttyp Nr: " + doktypnr.ToString + " nicht vorhanden"
|
||||
HasError = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub Check_Ma(ByVal Manr As Integer)
|
||||
If db.Get_Mitarbeiter(Manr) = False Then
|
||||
Resulttext = Resulttext + vbCrLf + "Mitarbeiter Nr: " + Manr.ToString + " nicht vorhanden order inaktiv"
|
||||
HasError = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Sub update_doktyp_ma(ByVal doktypnr As Integer, ByVal manr As Integer)
|
||||
If db.Update_Doktype(doktypnr, manr) = False Then
|
||||
Resulttext = Resulttext + vbCrLf + "Update Dokumenttyp Nr: " + doktypnr.ToString + " fehlerhaft"
|
||||
HasError = True
|
||||
Else
|
||||
Resulttext = Resulttext + vbCrLf + "Update Dokumenttyp Nr: " + doktypnr.ToString + " durchgeführt"
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub check_office_vorlage(ByVal ovnr As Integer)
|
||||
If db.Get_ov(ovnr) = False Then
|
||||
Resulttext = Resulttext + vbCrLf + "Office-Vorlage Nr: " + ovnr.ToString + " nicht vorhanden"
|
||||
HasError = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub Update_Office_Vorlage(ByVal ovnr As Integer, ByVal manr As Integer)
|
||||
If db.Update_Officevorlage(ovnr, manr) = False Then
|
||||
Resulttext = Resulttext + vbCrLf + "Update Office-Vorlage Nr: " + ovnr.ToString + " fehlerhaft"
|
||||
HasError = True
|
||||
Else
|
||||
Resulttext = Resulttext + vbCrLf + "Update Office-Vorlage Nr: " + ovnr.ToString + " durchgeführt"
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ExcelImportToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ExcelImportToolStripMenuItem1.Click
|
||||
get_exceldata()
|
||||
Me.OfficeVoralgeOwnerToolStripMenuItem.Enabled = False
|
||||
If Me.C1Daten.Splits(0).Rows.Count > 0 Then Me.VerarbeitenToolStripMenuItem1.Enabled = True
|
||||
|
||||
End Sub
|
||||
Sub get_exceldata()
|
||||
dsdaten.Tables.Clear()
|
||||
Me.OpenFileDialog1.Filter = "Excel-Dateien (*.xlsx)|*.xlsx|Excel-Dateien (*.xls)|*.xls|CSV-Dateien (*.csv)|*.csv|Text-Dateien (*.txt)|*.txt|Alle Dateien (*.*)|*.*"
|
||||
Me.OpenFileDialog1.FileName = ""
|
||||
Me.OpenFileDialog1.ShowDialog()
|
||||
If Me.OpenFileDialog1.FileName = "" Then Exit Sub
|
||||
|
||||
FillDataTableFromText(Me.OpenFileDialog1.FileName)
|
||||
Try
|
||||
Me.C1Daten.DataSource = Nothing
|
||||
Me.C1Daten.DataSource = dsdaten.Tables(0)
|
||||
Me.C1Daten.DataMember = dsdaten.Tables(0).TableName
|
||||
Me.HasErrors = False
|
||||
Me.HasError = False
|
||||
Me.txtResultat.Text = ""
|
||||
Me.Resulttext = ""
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub VerarbeitenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles VerarbeitenToolStripMenuItem1.Click
|
||||
For Each r As DataRow In Me.dsdaten.Tables(0).Rows
|
||||
check_doktyp(r.Item(0))
|
||||
Check_Ma(r.Item(1))
|
||||
'Check_Ma(r.Item(2))
|
||||
If HasError Then
|
||||
HasErrors = True
|
||||
HasError = False
|
||||
End If
|
||||
Next
|
||||
If HasErrors Then
|
||||
Me.Resulttext = Me.Resulttext + vbCrLf + vbCrLf + "Verarbeitung aufgrund von Fehlern nicht durchgeführt."
|
||||
Me.txtResultat.Text = Me.Resulttext
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
'For Each r As DataRow In Me.dsdaten.Tables(0).Rows
|
||||
' check_doktyp_ma(r.Item(0), r.Item(1))
|
||||
' If HasError Then
|
||||
' HasErrors = True
|
||||
' HasError = False
|
||||
' End If
|
||||
'Next
|
||||
|
||||
'If HasErrors Then
|
||||
' Me.Resulttext = Me.Resulttext + vbCrLf + vbCrLf + "Verarbeitung aufgrund von Fehlern nicht durchgeführt."
|
||||
' Me.txtResultat.Text = Me.Resulttext
|
||||
' Exit Sub
|
||||
'End If
|
||||
|
||||
For Each r As DataRow In Me.dsdaten.Tables(0).Rows
|
||||
update_doktyp_ma(r.Item(0), r.Item(1))
|
||||
If HasError Then
|
||||
HasErrors = True
|
||||
HasError = False
|
||||
End If
|
||||
Next
|
||||
|
||||
If HasErrors Then
|
||||
Me.Resulttext = Me.Resulttext + vbCrLf + vbCrLf + "Verarbeitung aufgrund von Fehlern nicht durchgeführt."
|
||||
Me.txtResultat.Text = Me.Resulttext
|
||||
Exit Sub
|
||||
End If
|
||||
Me.Resulttext = Me.Resulttext + vbCrLf + vbCrLf + "Verarbeitung durchgeführt."
|
||||
Me.txtResultat.Text = Me.Resulttext
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub ExcelImportToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles ExcelImportToolStripMenuItem.Click
|
||||
get_exceldata()
|
||||
DokumenttypOwnerToolStripMenuItem.Enabled = False
|
||||
If Me.C1Daten.Splits(0).Rows.Count > 0 Then Me.VerarbeitenToolStripMenuItem2.Enabled = True
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub VerarbeitenToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles VerarbeitenToolStripMenuItem2.Click
|
||||
For Each r As DataRow In Me.dsdaten.Tables(0).Rows
|
||||
check_Office_Vorlage(r.Item(0))
|
||||
Check_Ma(r.Item(1))
|
||||
'Check_Ma(r.Item(2))
|
||||
If HasError Then
|
||||
HasErrors = True
|
||||
HasError = False
|
||||
End If
|
||||
Next
|
||||
If HasErrors Then
|
||||
Me.Resulttext = Me.Resulttext + vbCrLf + vbCrLf + "Verarbeitung aufgrund von Fehlern nicht durchgeführt."
|
||||
Me.txtResultat.Text = Me.Resulttext
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
'For Each r As DataRow In Me.dsdaten.Tables(0).Rows
|
||||
' check_doktyp_ma(r.Item(0), r.Item(1))
|
||||
' If HasError Then
|
||||
' HasErrors = True
|
||||
' HasError = False
|
||||
' End If
|
||||
'Next
|
||||
|
||||
'If HasErrors Then
|
||||
' Me.Resulttext = Me.Resulttext + vbCrLf + vbCrLf + "Verarbeitung aufgrund von Fehlern nicht durchgeführt."
|
||||
' Me.txtResultat.Text = Me.Resulttext
|
||||
' Exit Sub
|
||||
'End If
|
||||
|
||||
For Each r As DataRow In Me.dsdaten.Tables(0).Rows
|
||||
Update_Office_Vorlage(r.Item(0), r.Item(1))
|
||||
If HasError Then
|
||||
HasErrors = True
|
||||
HasError = False
|
||||
End If
|
||||
Next
|
||||
|
||||
If HasErrors Then
|
||||
Me.Resulttext = Me.Resulttext + vbCrLf + vbCrLf + "Verarbeitung aufgrund von Fehlern nicht durchgeführt."
|
||||
Me.txtResultat.Text = Me.Resulttext
|
||||
Exit Sub
|
||||
End If
|
||||
Me.Resulttext = Me.Resulttext + vbCrLf + vbCrLf + "Verarbeitung durchgeführt."
|
||||
Me.txtResultat.Text = Me.Resulttext
|
||||
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
@@ -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_Outlook_Blacklist.My.MySettings
|
||||
Get
|
||||
Return Global.Plugin_Outlook_Blacklist.My.MySettings.Default
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
@@ -0,0 +1,35 @@
|
||||
Imports System
|
||||
Imports System.Reflection
|
||||
Imports System.Runtime.InteropServices
|
||||
|
||||
' General Information about an assembly is controlled through the following
|
||||
' set of attributes. Change these attribute values to modify the information
|
||||
' associated with an assembly.
|
||||
|
||||
' Review the values of the assembly attributes
|
||||
|
||||
<Assembly: AssemblyTitle("PluginContracts")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("")>
|
||||
<Assembly: AssemblyProduct("PluginContracts")>
|
||||
<Assembly: AssemblyCopyright("Copyright © 2014")>
|
||||
<Assembly: AssemblyTrademark("")>
|
||||
|
||||
<Assembly: ComVisible(False)>
|
||||
|
||||
'The following GUID is for the ID of the typelib if this project is exposed to COM
|
||||
<Assembly: Guid("42955359-874d-4a4e-8245-42d8bbed5857")>
|
||||
|
||||
' Version information for an assembly consists of the following four values:
|
||||
'
|
||||
' Major Version
|
||||
' Minor Version
|
||||
' Build Number
|
||||
' Revision
|
||||
'
|
||||
' You can specify all the values or you can default the Build and Revision Numbers
|
||||
' by using the '*' as shown below:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("1.0.0.0")>
|
||||
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
||||
@@ -0,0 +1,20 @@
|
||||
Imports PluginContracts
|
||||
Public Class Class1
|
||||
Implements PluginContracts.IPlugin
|
||||
|
||||
Public ReadOnly Property Name() As String Implements IPlugin.Name
|
||||
Get
|
||||
Return "EDOKA_Owner-Wechsel_DokTyp_OV"
|
||||
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 Form1
|
||||
f.MdiParent = Parentform
|
||||
f.Show()
|
||||
|
||||
End Function
|
||||
End Class
|
||||
|
||||
|
||||
@@ -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_EDK")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("")>
|
||||
<Assembly: AssemblyProduct("Plugin_EDK")>
|
||||
<Assembly: AssemblyCopyright("Copyright © 2017")>
|
||||
<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("bb9b6b5d-95ce-4383-9d20-07d17dca32f2")>
|
||||
|
||||
' 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")>
|
||||
@@ -0,0 +1 @@
|
||||
b04dd45ccbe14e338817b3d94758b458770a1bd1
|
||||
Binary file not shown.
Binary file not shown.
@@ -0,0 +1 @@
|
||||
45499d45fc48ed694a96852978d424d501217f27
|
||||
Binary file not shown.
@@ -0,0 +1,19 @@
|
||||
Imports PluginContracts
|
||||
Public Class Class1
|
||||
Implements PluginContracts.IPlugin
|
||||
|
||||
Public ReadOnly Property Name() As String Implements IPlugin.Name
|
||||
Get
|
||||
Return "EDOKA-Outlook Blacklist"
|
||||
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 Form1
|
||||
f.MdiParent = Parentform
|
||||
f.Show()
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
Binary file not shown.
@@ -0,0 +1,510 @@
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.ComponentModel
|
||||
Imports UtilityLibrary.Win32
|
||||
|
||||
Public Class Statushandling
|
||||
|
||||
#Region "Deklarationen"
|
||||
|
||||
Dim m_aktuellerstatus As Integer
|
||||
Dim m_neuerstatus As Integer
|
||||
Dim m_abgeschlossen As Boolean
|
||||
Dim m_ausgangsarchivierung As Boolean
|
||||
Dim m_eingangsarchivierung As Boolean
|
||||
Dim m_folgestatus As Boolean
|
||||
Dim m_dokumentid As String
|
||||
|
||||
Dim m_bemerkungverantwortlicher As String
|
||||
Property BemerkungVerantwortlicher() As String
|
||||
Get
|
||||
Return m_bemerkungverantwortlicher
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_bemerkungverantwortlicher = Value
|
||||
End Set
|
||||
End Property
|
||||
Property Dokumentid() As String
|
||||
Get
|
||||
Return m_dokumentid
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_dokumentid = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property AktullerStatus() As Integer
|
||||
Get
|
||||
Return m_aktuellerstatus
|
||||
End Get
|
||||
Set(ByVal Value As Integer)
|
||||
m_aktuellerstatus = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property NeuerStatus() As Integer
|
||||
Get
|
||||
Return m_neuerstatus
|
||||
End Get
|
||||
Set(ByVal Value As Integer)
|
||||
m_neuerstatus = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property Ablgeschossen() As Boolean
|
||||
Get
|
||||
Return m_abgeschlossen
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_abgeschlossen = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property Ausgangsarchivierung() As Boolean
|
||||
Get
|
||||
Return m_ausgangsarchivierung
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_ausgangsarchivierung = Value
|
||||
End Set
|
||||
End Property
|
||||
Property Eingangsarchivierung() As Boolean
|
||||
Get
|
||||
Return m_eingangsarchivierung
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_eingangsarchivierung = Value
|
||||
End Set
|
||||
End Property
|
||||
Property Folgestatus() As Boolean
|
||||
Get
|
||||
Return m_folgestatus
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_folgestatus = Value
|
||||
End Set
|
||||
End Property
|
||||
#End Region
|
||||
Dim dokumentwerte As DataTable
|
||||
|
||||
#Region "Meldungen"
|
||||
|
||||
Public Function Meldung_Verantwortlicher(ByVal dokumentid As String, ByVal verantwortlicher As Integer)
|
||||
Try
|
||||
dokumentwerte = GetDokumentwerte(dokumentid, 100, 0)
|
||||
insert_Message(1, dokumentid, Meldungstext_aufbereiten, parstext(dokumentwerte.Rows(0).Item("betreff")), Globals.MitarbeiterNr, verantwortlicher, 0)
|
||||
Catch
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function Meldung_Status(ByVal dokumentid As String, ByVal status As String)
|
||||
Try
|
||||
dokumentwerte = GetDokumentwerte(dokumentid, 102, status)
|
||||
insert_Message(0, dokumentid, Meldungstext_aufbereiten, parstext(dokumentwerte.Rows(0).Item("betreff")), Globals.MitarbeiterNr, 0, status)
|
||||
Catch
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function Meldung_Aufhebung(ByVal dokumentid As String, ByVal verantwortlicher As Integer)
|
||||
dokumentwerte = GetDokumentwerte(dokumentid, 110, 0)
|
||||
insert_Message(0, dokumentid, Meldungstext_aufbereiten, parstext(dokumentwerte.Rows(0).Item("betreff")), Globals.MitarbeiterNr, 0, 0)
|
||||
End Function
|
||||
|
||||
Public Function Meldungstext_aufbereiten() As String
|
||||
Dim s As String
|
||||
s = ""
|
||||
Try
|
||||
s = dokumentwerte.Rows(0).Item("meldung") + vbCrLf + dokumentwerte.Rows(0).Item("idvmeldung") + vbCrLf + dokumentwerte.Rows(0).Item("footer")
|
||||
If Me.BemerkungVerantwortlicher <> "" Then
|
||||
s = Me.BemerkungVerantwortlicher + vbCrLf + "------------------------" + vbCrLf + s
|
||||
' s = s + vbCrLf + vbCrLf + Me.BemerkungVerantwortlicher
|
||||
Me.BemerkungVerantwortlicher = ""
|
||||
End If
|
||||
s = parstext(s)
|
||||
Catch
|
||||
End Try
|
||||
Meldungstext_aufbereiten = s
|
||||
End Function
|
||||
|
||||
Public Function parstext(ByVal s As String) As String
|
||||
s = s.Replace("&dokumentid&", dokumentwerte.Rows(0).Item("dokumentid"))
|
||||
s = s.Replace("&nrpar00&", dokumentwerte.Rows(0).Item("nrpar00"))
|
||||
s = s.Replace("&bkpar00&", dokumentwerte.Rows(0).Item("bkpar00"))
|
||||
s = s.Replace("&dokumenttyp&", dokumentwerte.Rows(0).Item("bezeichnung"))
|
||||
s = s.Replace("&status&", dokumentwerte.Rows(0).Item("status"))
|
||||
s = s.Replace("&statusdatum&", Today)
|
||||
s = s.Replace("&verantwortlich&", dokumentwerte.Rows(0).Item("verantwortlich"))
|
||||
s = s.Replace("&absender&", dokumentwerte.Rows(0).Item("absender"))
|
||||
s = s.Replace("&empfaenger&", dokumentwerte.Rows(0).Item("empfaenger"))
|
||||
Return s
|
||||
End Function
|
||||
|
||||
Public Function GetDokumentwerte(ByVal Dokumentid As String, ByVal typ As Integer, ByVal status As Integer) As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim dtToReturn As DataTable = New DataTable()
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
scmCmdToExecute.CommandText = "dbo.SP_message_getdokumentwerte"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@typ", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, typ))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@status", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, status))
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function insert_Message(ByVal typ As Integer, ByVal Dokumentid As String, ByVal message As String, ByVal betreff As String, _
|
||||
ByVal absender As Integer, ByVal empfaenger As Integer, ByVal status As Integer)
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim dtToReturn As DataTable = New DataTable()
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
scmCmdToExecute.CommandText = "dbo.SP_message_insert"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@absender", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, absender))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@empfaenger", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, empfaenger))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@betreff", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, betreff))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@meldung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, message))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@status", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, status))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@weiterleiten", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@typ", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, typ))
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Datenzugriffe"
|
||||
Private Function Generic_Select(ByVal typ As Integer) As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Select Case typ
|
||||
Case 1
|
||||
scmCmdToExecute.CommandText = "dbo.SP_Dokumentstatus_statushandling_Select"
|
||||
Case Else
|
||||
End Select
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = New DataTable()
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
Select Case typ
|
||||
Case 1
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
|
||||
Case Else
|
||||
End Select
|
||||
If typ = 1 Then
|
||||
End If
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Archivierung"
|
||||
Public Function Set_Ausgangsarchiviert(ByVal dokumentid As String) As Integer
|
||||
Dim da As DataTable
|
||||
Dim currentstatus As Integer
|
||||
Dim i, i1 As Integer
|
||||
Me.Dokumentid = dokumentid
|
||||
da = Generic_Select(1)
|
||||
currentstatus = da.Rows(0).Item("dokument_statusnr")
|
||||
For i = 0 To da.Rows.Count - 1
|
||||
If da.Rows(i).Item("status_bezeichnungnr") = 3 Then
|
||||
For i1 = 0 To da.Rows.Count - 1
|
||||
If da.Rows(i1).Item("status_bezeichnungnr") = 4 Or _
|
||||
da.Rows(i1).Item("status_bezeichnungnr") = 5 Then
|
||||
Me.insert_history_status(da.Rows(i1).Item("dokument_statusnr"), dokumentid, Globals.MitarbeiterNr)
|
||||
Return da.Rows(i1).Item("dokument_statusnr")
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Next
|
||||
da.Dispose()
|
||||
End Function
|
||||
|
||||
Public Function Set_Eingangsarchiviert(ByVal dokumentid As String) As Integer
|
||||
Dim da As DataTable
|
||||
Dim currentstatus As Integer
|
||||
Dim i, i1 As Integer
|
||||
Me.Dokumentid = dokumentid
|
||||
da = Generic_Select(1)
|
||||
currentstatus = da.Rows(0).Item("dokument_statusnr")
|
||||
For i1 = 0 To da.Rows.Count - 1
|
||||
If da.Rows(i1).Item("status_bezeichnungnr") = 6 Or _
|
||||
da.Rows(i1).Item("status_bezeichnungnr") = 7 Or _
|
||||
da.Rows(i1).Item("status_bezeichnungnr") = 11 Then
|
||||
Me.insert_history_status(da.Rows(i1).Item("dokument_statusnr"), dokumentid, Globals.MitarbeiterNr)
|
||||
MsgBox(da.Rows(i1).Item("dokument_statusnr"))
|
||||
Return da.Rows(i1).Item("dokument_statusnr")
|
||||
End If
|
||||
Next
|
||||
da.Dispose()
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
Dim ds As New edokadb.clsDokument_status()
|
||||
|
||||
Public Sub Dispose()
|
||||
ds.Dispose()
|
||||
End Sub
|
||||
|
||||
Public Function Check_Neuer_Status()
|
||||
ds.cpMainConnectionProvider = conn
|
||||
ds.iDokument_statusnr = New SqlInt32(CType(Me.NeuerStatus, Int32))
|
||||
ds.SelectOne()
|
||||
|
||||
If ds.bFolgestatus_durch_anderen_verantwortlichen.Value = True Then
|
||||
Me.Folgestatus = True
|
||||
End If
|
||||
Me.Ausgangsarchivierung = False
|
||||
If ds.iStatus_bezeichnungnr.Value = 3 Or ds.bDokument_ausgangsarchivierung.Value = True Then
|
||||
Me.Ausgangsarchivierung = True
|
||||
End If
|
||||
If ds.bDokument_bearbeitung_abgeschlossen.Value = True Then
|
||||
Me.Ablgeschossen = True
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Function insert_history_status(ByVal statusnr As Integer, ByVal dokumentid As String, ByVal Verantwortlicher As Integer)
|
||||
Dim sh As New edokadb.clsStatushistory()
|
||||
sh.cpMainConnectionProvider = conn
|
||||
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
||||
Dim key As Long
|
||||
dbkey.cpMainConnectionProvider = conn
|
||||
conn.OpenConnection()
|
||||
key = dbkey.get_dbkey("statushistory")
|
||||
sh.iStatushistorynr = New SqlInt32(CType(key, Int32))
|
||||
sh.iStatus = New SqlInt32(CType(statusnr, Int32))
|
||||
sh.iMandantnr = New SqlInt32(CType(1, Int32))
|
||||
sh.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
||||
sh.bAktiv = New SqlBoolean(True)
|
||||
sh.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||
sh.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||
sh.sDokumentid = New SqlString(CType(dokumentid, String))
|
||||
sh.iVerantwortlich = New SqlInt32(CType(Verantwortlicher, Int32))
|
||||
conn.OpenConnection()
|
||||
sh.Insert()
|
||||
conn.CloseConnection(True)
|
||||
dbkey.Dispose()
|
||||
sh.Dispose()
|
||||
End Function
|
||||
|
||||
Public Function insert_history_status_abschluss(ByVal statusnr As Integer, ByVal dokumentid As String, ByVal Verantwortlicher As Integer)
|
||||
Dim sh As New edokadb.clsStatushistory()
|
||||
sh.cpMainConnectionProvider = conn
|
||||
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
||||
Dim key As Long
|
||||
dbkey.cpMainConnectionProvider = conn
|
||||
conn.OpenConnection()
|
||||
key = dbkey.get_dbkey("statushistory")
|
||||
sh.iStatushistorynr = New SqlInt32(CType(key, Int32))
|
||||
sh.iStatus = New SqlInt32(CType(statusnr, Int32))
|
||||
sh.iMandantnr = New SqlInt32(CType(1, Int32))
|
||||
sh.iMutierer = New SqlInt32(CType(9998, Int32))
|
||||
sh.bAktiv = New SqlBoolean(True)
|
||||
sh.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||
sh.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||
sh.sDokumentid = New SqlString(CType(dokumentid, String))
|
||||
sh.iVerantwortlich = New SqlInt32(CType(Verantwortlicher, Int32))
|
||||
conn.OpenConnection()
|
||||
sh.Insert()
|
||||
conn.CloseConnection(True)
|
||||
dbkey.Dispose()
|
||||
sh.Dispose()
|
||||
End Function
|
||||
|
||||
Public Function Alle_Status(ByVal Dokumentid As String) As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim dtToReturn As DataTable = New DataTable()
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
scmCmdToExecute.CommandText = "dbo.SP_Trefferliste_Select_Status"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
Public Function Status_Erstellen(ByVal dokumentid As String, ByVal blsequenz As Boolean)
|
||||
'Status_Erstellen_Overwrite(dokumentid, 0)
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim dtToReturn As DataTable = New DataTable()
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
scmCmdToExecute.CommandText = "dbo.sp_dokumentberabeigung_status_erstellen"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bck", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
||||
If blsequenz = False Then
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@blsequenz", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
||||
Else
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@blsequenz", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
|
||||
End If
|
||||
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function Status_Erstellen_Overwrite(ByVal dokumentid As String, ByVal blsequenz As Boolean)
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim dtToReturn As DataTable = New DataTable()
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
scmCmdToExecute.CommandText = "dbo.sp_dokument_status_import_erstellen"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Statustyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 7))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
||||
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub Insert_Note(ByVal dokumentid As String, ByVal meldung As String)
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.SP_Dokument_Notizen"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
scmCmdToExecute.Connection.Open()
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@notiznr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@betreff", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, meldung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@value", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, meldung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@aktiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@mutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.Mitarbeiternr))
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
Catch ex As Exception
|
||||
'MsgBox(ex.Message)
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Connection.Close()
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Function loeschart(ByVal dokid As String)
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.SP_check_aufhebung_loeschung"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
conn.OpenConnection()
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokid))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@res", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
Return scmCmdToExecute.Parameters("@res").Value
|
||||
Catch ex As Exception
|
||||
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Dispose()
|
||||
conn.CloseConnection(True)
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function get_coldindex_and_statusnr(ByVal dokumentid As String, ByVal aufheben As Boolean, ByVal reaktivieren As Boolean) As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim i As Integer
|
||||
Dim dtToReturn As DataTable = New DataTable()
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
scmCmdToExecute.CommandText = "dbo.sp_get_coldindex_and_aufhebungsstatus"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@reaktivieren", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, reaktivieren))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@aufhebungsstatus", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
i = scmCmdToExecute.Parameters.Item("@aufhebungsstatus").Value
|
||||
If (i <> 0 And aufheben) Or (i <> 0 And reaktivieren) Then
|
||||
insert_history_status(i, dokumentid, MitarbeiterNr)
|
||||
Dim d As New edokadb.clsDokument()
|
||||
d.cpMainConnectionProvider = conn
|
||||
d.sDokumentid = New SqlString(CType(dokumentid, String))
|
||||
d.SelectOne()
|
||||
d.iStatusnr = New SqlInt32(CType(i, Int32))
|
||||
'Rel. 3.6
|
||||
d.daMutiertam = New SqlDateTime(CType(Now(), DateTime))
|
||||
d.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
||||
|
||||
conn.OpenConnection()
|
||||
d.Update()
|
||||
conn.CloseConnection(True)
|
||||
d.Dispose()
|
||||
End If
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,20 @@
|
||||
Imports PluginContracts
|
||||
Public Class Class1
|
||||
Implements PluginContracts.IPlugin
|
||||
|
||||
Public ReadOnly Property Name() As String Implements IPlugin.Name
|
||||
Get
|
||||
Return "EDOKA_FiVo"
|
||||
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 FrmData
|
||||
f.Text = Me.Name
|
||||
f.MdiParent = Parentform
|
||||
f.Show()
|
||||
|
||||
End Function
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,17 @@
|
||||
Imports System.IO
|
||||
Imports System.Reflection
|
||||
|
||||
|
||||
Module Globals
|
||||
Public Userdata As New DataSet
|
||||
Public UserRechte As Integer = -1
|
||||
Public Mitarbeiternr As String
|
||||
Public tgnummer As String
|
||||
Public DefaultExtension As Integer = 0
|
||||
|
||||
|
||||
Public Function ApplicationPath() As String
|
||||
Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
|
||||
End Function
|
||||
|
||||
End Module
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user