Initial commit
This commit is contained in:
1
DokSA/.svn/entries
Normal file
1
DokSA/.svn/entries
Normal file
@@ -0,0 +1 @@
|
||||
12
|
||||
1
DokSA/.svn/format
Normal file
1
DokSA/.svn/format
Normal file
@@ -0,0 +1 @@
|
||||
12
|
||||
@@ -0,0 +1,58 @@
|
||||
E:\Software-Projekte\VS2008\EDOKA\Tools\DokSA\DokSA\bin\Debug\DokSA.exe
|
||||
E:\Software-Projekte\VS2008\EDOKA\Tools\DokSA\DokSA\bin\Debug\DokSA.pdb
|
||||
E:\Software-Projekte\VS2008\EDOKA\Tools\DokSA\DokSA\bin\Debug\DokSA.xml
|
||||
E:\Software-Projekte\VS2008\EDOKA\Tools\DokSA\DokSA\bin\Debug\C1.Win.C1TrueDBGrid.2.dll
|
||||
E:\Software-Projekte\VS2008\EDOKA\Tools\DokSA\DokSA\bin\Debug\C1.Win.C1TrueDBGrid.2.xml
|
||||
E:\Software-Projekte\VS2008\EDOKA\Tools\DokSA\DokSA\obj\Debug\ResolveAssemblyReference.cache
|
||||
E:\Software-Projekte\VS2008\EDOKA\Tools\DokSA\DokSA\obj\Debug\DokSA.Form1.resources
|
||||
E:\Software-Projekte\VS2008\EDOKA\Tools\DokSA\DokSA\obj\Debug\DokSA.Resources.resources
|
||||
E:\Software-Projekte\VS2008\EDOKA\Tools\DokSA\DokSA\obj\Debug\DokSA.vbproj.GenerateResource.Cache
|
||||
E:\Software-Projekte\VS2008\EDOKA\Tools\DokSA\DokSA\obj\Debug\DokSA.exe.licenses
|
||||
E:\Software-Projekte\VS2008\EDOKA\Tools\DokSA\DokSA\obj\Debug\DokSA.exe
|
||||
E:\Software-Projekte\VS2008\EDOKA\Tools\DokSA\DokSA\obj\Debug\DokSA.xml
|
||||
E:\Software-Projekte\VS2008\EDOKA\Tools\DokSA\DokSA\obj\Debug\DokSA.pdb
|
||||
E:\Software-Projekte\VS2008\EDOKA\Tools\DokSA\DokSA\obj\Debug\DokSA.FrmMain.resources
|
||||
E:\Software-Projekte\VS2008\EDOKA\Tools\DokSA\DokSA\obj\Debug\DokSA.frmMehrfachdruck.resources
|
||||
E:\Software-Projekte\VS2008\EDOKA\Tools\DokSA\DokSA\bin\Debug\DokSA.exe.config
|
||||
E:\Software-Projekte\VS2008\EDOKA\Tools\DokSA\DokSA\bin\Debug\EDKB07Verarbeitung.dll
|
||||
E:\Software-Projekte\VS2008\EDOKA\Tools\DokSA\DokSA\obj\Debug\DokSA.FrmPartnersuche.resources
|
||||
E:\Software-Projekte\VS2008\EDOKA\Tools\DokSA\DokSA\obj\Debug\DokSA.frmFortschritt.resources
|
||||
E:\Software-Projekte\VS2008\EDOKA\Tools\DokSA\DokSA\obj\Debug\DokSA.frmBenutzer.resources
|
||||
E:\Software-Projekte\_archiv\VS2008\EDOKA\Tools\DokSA\DokSA\bin\Debug\DokSA.exe.config
|
||||
E:\Software-Projekte\_archiv\VS2008\EDOKA\Tools\DokSA\DokSA\obj\Debug\DokSA.exe
|
||||
E:\Software-Projekte\_archiv\VS2008\EDOKA\Tools\DokSA\DokSA\obj\Debug\DokSA.xml
|
||||
E:\Software-Projekte\_archiv\VS2008\EDOKA\Tools\DokSA\DokSA\obj\Debug\DokSA.pdb
|
||||
E:\Software-Projekte\_archiv\VS2008\EDOKA\Tools\DokSA\DokSA\bin\Debug\DokSA.exe
|
||||
E:\Software-Projekte\_archiv\VS2008\EDOKA\Tools\DokSA\DokSA\bin\Debug\DokSA.pdb
|
||||
E:\Software-Projekte\_archiv\VS2008\EDOKA\Tools\DokSA\DokSA\bin\Debug\DokSA.xml
|
||||
E:\Software-Projekte\_archiv\VS2008\EDOKA\Tools\DokSA\DokSA\bin\Debug\EDKB07Verarbeitung.dll
|
||||
E:\Software-Projekte\_archiv\VS2008\EDOKA\Tools\DokSA\DokSA\bin\Debug\C1.Win.C1TrueDBGrid.2.xml
|
||||
E:\Software-Projekte\_archiv\VS2008\EDOKA\Tools\DokSA\DokSA\obj\Debug\ResolveAssemblyReference.cache
|
||||
E:\Software-Projekte\_archiv\VS2008\EDOKA\Tools\DokSA\DokSA\obj\Debug\DokSA.Form1.resources
|
||||
E:\Software-Projekte\_archiv\VS2008\EDOKA\Tools\DokSA\DokSA\obj\Debug\DokSA.frmFortschritt.resources
|
||||
E:\Software-Projekte\_archiv\VS2008\EDOKA\Tools\DokSA\DokSA\obj\Debug\DokSA.FrmMain.resources
|
||||
E:\Software-Projekte\_archiv\VS2008\EDOKA\Tools\DokSA\DokSA\obj\Debug\DokSA.frmMehrfachdruck.resources
|
||||
E:\Software-Projekte\_archiv\VS2008\EDOKA\Tools\DokSA\DokSA\obj\Debug\DokSA.FrmPartnersuche.resources
|
||||
E:\Software-Projekte\_archiv\VS2008\EDOKA\Tools\DokSA\DokSA\obj\Debug\DokSA.frmBenutzer.resources
|
||||
E:\Software-Projekte\_archiv\VS2008\EDOKA\Tools\DokSA\DokSA\obj\Debug\DokSA.Resources.resources
|
||||
E:\Software-Projekte\_archiv\VS2008\EDOKA\Tools\DokSA\DokSA\obj\Debug\DokSA.vbproj.GenerateResource.Cache
|
||||
E:\Software-Projekte\_archiv\VS2008\EDOKA\Tools\DokSA\DokSA\obj\Debug\DokSA.exe.licenses
|
||||
E:\Software-Projekte\EDOKA\tools\DokSA\DokSA\bin\Debug\DokSA.exe.config
|
||||
E:\Software-Projekte\EDOKA\tools\DokSA\DokSA\obj\Debug\DokSA.exe
|
||||
E:\Software-Projekte\EDOKA\tools\DokSA\DokSA\obj\Debug\DokSA.xml
|
||||
E:\Software-Projekte\EDOKA\tools\DokSA\DokSA\obj\Debug\DokSA.pdb
|
||||
E:\Software-Projekte\EDOKA\tools\DokSA\DokSA\bin\Debug\DokSA.exe
|
||||
E:\Software-Projekte\EDOKA\tools\DokSA\DokSA\bin\Debug\DokSA.pdb
|
||||
E:\Software-Projekte\EDOKA\tools\DokSA\DokSA\bin\Debug\DokSA.xml
|
||||
E:\Software-Projekte\EDOKA\tools\DokSA\DokSA\bin\Debug\EDKB07Verarbeitung.dll
|
||||
E:\Software-Projekte\EDOKA\tools\DokSA\DokSA\bin\Debug\C1.Win.C1TrueDBGrid.2.xml
|
||||
E:\Software-Projekte\EDOKA\tools\DokSA\DokSA\obj\Debug\DokSA.vbprojResolveAssemblyReference.cache
|
||||
E:\Software-Projekte\EDOKA\tools\DokSA\DokSA\obj\Debug\DokSA.Form1.resources
|
||||
E:\Software-Projekte\EDOKA\tools\DokSA\DokSA\obj\Debug\DokSA.frmFortschritt.resources
|
||||
E:\Software-Projekte\EDOKA\tools\DokSA\DokSA\obj\Debug\DokSA.FrmMain.resources
|
||||
E:\Software-Projekte\EDOKA\tools\DokSA\DokSA\obj\Debug\DokSA.frmMehrfachdruck.resources
|
||||
E:\Software-Projekte\EDOKA\tools\DokSA\DokSA\obj\Debug\DokSA.FrmPartnersuche.resources
|
||||
E:\Software-Projekte\EDOKA\tools\DokSA\DokSA\obj\Debug\DokSA.frmBenutzer.resources
|
||||
E:\Software-Projekte\EDOKA\tools\DokSA\DokSA\obj\Debug\DokSA.Resources.resources
|
||||
E:\Software-Projekte\EDOKA\tools\DokSA\DokSA\obj\Debug\DokSA.vbproj.GenerateResource.Cache
|
||||
E:\Software-Projekte\EDOKA\tools\DokSA\DokSA\obj\Debug\DokSA.exe.licenses
|
||||
@@ -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
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAzISURBVGhD7Zl5XJTlFsdVFlkGhmEGhkVWWWefeWfYEdkF
|
||||
FXdJzTVXRKXc0upmt+Xm1a5663O7ZYXiliWuiSJCguICoiSIiqMzLiGKsZQpfG71u+cdQZlKBRv7q/l8
|
||||
vp934Xnf9/zOOc/znOehR4+/fn954M/1AMMwApkm9J9ShtkgVjLZLMEKZbaEYbIV6pBs2e/BqLNl3aH9
|
||||
HXJGkyNjQlfJZOHOJlMpDwtzV4VGFEfFxl6NiovTRcbG6tTh4TomLEyniYig8wgdY7gO0alCCI1Gp2DU
|
||||
BKOTEVKVSidRKnVihUInksl0/mKxzl/UCboOlsp0QUSwTHFFrgk5rlQqvUwmIFAu9ybDr275chMKiw9g
|
||||
d94O5GzKxsLF8zEqfSQGpw1E6qAUpKQmIyk5EfEJsYjp3w+R0ZEIiwhDSIgGKkYJuUIOf38/WFlbw9zC
|
||||
wgjL3r3BIvThQqSUNyhCQ/1NJiCYvBGdkKAtLi1Ca+uP+P77ZrR834TGxtuoqvoG69Z9hjff+jsWv7yI
|
||||
WIiFi+bjpflZmDsvE7MzZ2LGrGmYmTENk6ZMhEqlhJmZGci439KrBwLibSDWSL4VKcP8TCqgX2KC9uCh
|
||||
fPzwQ7PBcJampu8M3GqoR0VFObblfoHVa1bhH8vfwdvvvIU33nwdf1v2Cl557WW8+rcldO9NxMXFwtzc
|
||||
/L7xPR/Sk87NLHogOMkOkj9LACvi9u1bqLtxHdevX4H2Ui1OlB3Fzt25WPvpR/jgP2tI0HtYuWo5Vq1Z
|
||||
ic1bNmLYiKGUKhboSd42M+/1AHOLXrC06QlRCitA+mwiUFhsHIHOAvT6S7iovYBzF6pReaYCR44ewq49
|
||||
udi4ZT0+zf4I6zZ8iv35eRj7/BhY2VrCzLInLKzMHmBpbQYru16QpNpDEvJMBCRq2Q7cOYV+LaD24nlU
|
||||
15zBqcpylJ08itJjxSgo2o+de7ZhD3X8U6dPYvrMqeBwrcnb5rDiWBph42AB6WAHSEKfgYCYxO4JOFFe
|
||||
isOlX+Pg1/nYX/AVHfdTdGowe84scAU2sOZawJbX+yHc3rBzsoRsyDMQ4MswnlEDkmoLS7oegc4C9h3Y
|
||||
Q5HYh5rzZw0CHIS2sHW0hJ3A6iF8K3BdekM+jGf6CIzxCggaFR3VUFBaSCnU8mAUelwK/a6AcyRgbgb4
|
||||
7vawF1rDwdX2ISTK0cMGqpF8SMJkpu3EHzs6hn3I5aFo9Uo0t95FU8v9OeBpBGSSACdPLnjuNuB7cB7S
|
||||
hwMnH1swo/mQmlrAahcXzXq+ALtc3PDNxx+h5cc7D0R0DKPsKNS5E/9+BKqROS+DZlsH8L1syWA7I4T+
|
||||
HKifE0AabuIILOfz1V96e6MuKhr5nt4oW74czXda0EQzcncFzMnKgJufI5x97eHi52CEWxAXoeOcIYuU
|
||||
mzaF3uK7qD/39MLP6aNxZ8gQHKDzI4sXo6m5EY2UTnV11/C4COQf3Hu/E5+rBiugTyAfrgFcuAfyjPAQ
|
||||
OyBs/DMQ8J6zs3Sztw9ahw0DBgzA3eHDUeTTF1/PmIHbN+tR39jwSAEHCvchd+dWFFIZco5GIVaAp1gA
|
||||
dzLWQ+xohJech/AJXRSQzeU65Njb+2225Yk3cBxFj2KTnZ1/tq39c9s9PHFv1CiAYYD4eLSNGYPDAUEo
|
||||
eG4Mrl2+iKtUTvy6D5QeK8Gur7bj1WVLaTb+2CBg7kuz4SMXwlPOh7fCyQhftQBRk10gj+pCCm22543Z
|
||||
zHU4to0nuJ4rcNbnCoQEe/w1wktf8AT1BT6+uDduHBAWBiopgaRE/DRxIo5LZdibPAC1pyugvaZ7MBOz
|
||||
nfjYicPYs3cnZmRMh1QqQXn5Ccx5MQN9GRd4qwTwZZyN8At1QvRU164JWGfDmb6V63ijLS0NP02YYDDm
|
||||
SWDSJCAyEggPB0JDSUQSMGUKTqnV2B0RiaqSIpzTXTSUEqyAo8dL8K/VKxBF6wI/WgecpIqVFeCvcUXf
|
||||
ECf4hQqNCIh0RvQ0N8ijuxCBHBvOC1sd+fqfSQCb12xaICHh8bBtoqMfwopJTgaoL5ylEWo3CSn7aie+
|
||||
uVBlqIUOHMxDbFx/LFj0Ij5bvxZna2gYzZqFwDB3BIQLERjhakRwjAv6zXSHvF+XBQj0/2MNIG/+EhOD
|
||||
X2Jj79O//6PpaNNxpOcMDsicDW1iEnaIpTi8cR3KqypQfKQIGzatw7Ydn9NKLp8EVBkEiKI8ENzPFaIY
|
||||
dyMk8W6Ind0Hin6KJw+jbAQ+5wv0d+Pi0NqnD1o9PdFKud1KXm0l49oSE+9DUWkjz7d2gr023GehNq0k
|
||||
oo2e+Zk69kWKwnYasQreX4PSyjKUUFl9oDDPMIxWnz1DKTQLkv4eEMe5QRLfxwhZsjviMj26J6CJPt4k
|
||||
FKLR1haNHA4a+Xw0eXmhOSAAzVIpWsiglpAQtFDnbYmIQAvlfwtFjL3fLJOhOTDQ0L7R0RGNPB7uUFut
|
||||
TI5dNOHlLXsNhSUH0VHMsQIyX8qALM4LssQ+kCd5GqFM9UD8XE+oYroRgZtk1A36eB0tqOtosV1nZYU6
|
||||
S0vU0aLbcE6i6uztcYOFyzXAXhvud7Rl27PP01LxJkWzOSEehwTO2NjHAwW0OtvXPpFVV1MEXpoFZZIP
|
||||
lKlkaKq3Eeo0LyS96NU9AVfJYzoy5lLPnrhEi+3OaHv1wgPo79oOOt1n22tZaI171c0N1+h9xUIX5GpC
|
||||
ULgh2zgCBgEZYFJ8wZCx6jQfI0KGeyN5PomKUXWxDzgK9JcpFWrJk+fJgD/CZQ8PaNUM9vEcsSMlBaX5
|
||||
X+FIxTHDguZBCpGAufMzoB7sh5DhPggd3teI8NG+SFlE4rojQM/mLEWglrz4SMzv/+08ef43Iikqej8/
|
||||
nFcosZtK7rzJk1FBQ2jZmXIcplGos4CqdgGhQ/0RNsoP4aP8jYgc44fUJX3B9O9CBDbacKdtceBfv0AC
|
||||
2JHjoop5DCpoqZ2eOnBnEReon1wRiVAlkWA7lduHli5BdW0NKmsqDRNZx5KyIwIGAQsyED4yABFj/RE5
|
||||
NsCI6An+GLi0iwI22zk8v8Xe4cwuJ+cmouEx3Nrp5NxywMsbWhqJaqmjslGotbHBFYUCJwMCkUt1UtkH
|
||||
7+MSW0qcr34wE3cIyMvfbRhKa2rOImthJiLTgxA9PhD9xgcZ0X9yIAa/6gcmlnlyH2CLObZQ28DhiDZx
|
||||
OEGPYqudXeAnXO6oHBdXQ6RqyXgtjUR6KuqO0Cizk2qh6p3bcf27W6ilbZWOXYnjZUdQfLgIRcUFhln5
|
||||
EpUYFRUVeGHmRMSMk6D/pGDEThIZET81GGmvB0DdFQHd2bZbIRRK1ru5Q8uooXN1hV6jwUGBE/b2i4G+
|
||||
7ARu0W6d/splQzVadfYbnDx9AhWny6j6rIaO7ldWnsKWLZsxc840DJ2QgISpUsRPFRFiIxJnijD0DRIQ
|
||||
14UIdEfAchcXdY6rG3SUQpdpEsvjO6Fg5EjU005c453vDTtzep0WF2rP4cLFc7h6TU+LnOsoP1mGnA05
|
||||
yFqcgeFTEpA6XYPEWWIkzZL+LgPmSDD8zQBoTC6AVmQ5FIGqoGDsIc+XUN3DLiVb7t5BQ8NN3CAB9fXf
|
||||
ouF2A27dummoOj+h+n/h6/MwYnYcBmaqkUzGJc+RImWO/JEMfFGGEe8EQROvfnIf6E4E1gqFIZ/x+Mh1
|
||||
EqLsrbfRRFsrBmhj9w5F4M6PPxgMr6ysxCfrPsTLb89D+vwEpMxTICWLjM6SITVL8UQGLZBj5LvPQMA0
|
||||
a7vQtTS7Fq14By20rdLc0owfaWeira0VN2/dwGlazKzf+gkWvDsD419JxsD5cgwiBi9QIa0bDH1ZidHL
|
||||
RQhJ1nzr5OHRtztOfmxbix4W4skD4xuKTx3GvdZ7aGttw3ff3UZZxQls2vEpst6diPSlMRi0UIGBC2QY
|
||||
soh5KoYtVSF9pQhhA0KpFLMVm0KAGb2kN+3na5JHD9YfPVmCpsZGlJ8+hpwd/8W8Fc9j6KKQ+x6n8Kct
|
||||
JMP/AMOW3BdAEai3suJE07dtCcunFdKLHuQSQjOz3gmDRg++vvdQLrJ3r8a8VekYvFiGQYukGLpESahM
|
||||
wvDXlEh/T4TQJE2DpaXdIPq2G8EnzJ9GBKuc/U+hp6WldVp4fGTDuCXJGLaMRoqVvhizSkSITcrYf4uR
|
||||
vkIMTaLmBysL29H0bbYfsCJsnkYAq1pAeNjY2CRLVMzpYKWiXqJR3VREMISq3uREMvWKcKZeqtbUWFtb
|
||||
D6Fv+xIuhPXTCGCfYR8UEoH29o6JHC53GDHK1p73HHs0NVyu4wgWOx4vxcLCQkLfdSfsCTadn/rHppJD
|
||||
ezRYb3i2h9abjqbGo91oNnUd21On51Nb3ulB9iUW7S/ktAtiO7ipsaN3siNP7z/qdVOI/usdj/LA/wGD
|
||||
64pjkCipnAAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABeSURBVDhPYzhw4MB/SjADSDMDAwNZGKwXZkBDA8QQQq6B
|
||||
qYHT5BgAczHZLkB2LVleGMQGwJyGL1pBanB6ASZJDI01GolxAUgjXhfgcj4sgQ1SA8jNUPCkTCgD4ZMH
|
||||
ADk0Kh+zxKF0AAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="DokList.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA3SURBVChTY2DABP+xiIGFkCVwsVEUwhThNREkiaEAJoiP
|
||||
RnEmskKs7kd3C1YrYTrx+g6bIrAYAKCqHOQvFu6BAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="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
|
||||
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMEAAAABGxlZnQFcmlnaHQDdG9w
|
||||
BmJvdHRvbQAAAAAICAgIAgAAAGQAAABkAAAAZAAAAGQAAAABCgAAAAEAAAAJAwAAAAHz/////P///wAK
|
||||
CgoB8v////z///8ACQ8AAAABDwAAAAYAAABkAAAAZAAAAGQAAABkAAAACw==
|
||||
</value>
|
||||
</data>
|
||||
<data name="DokList.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{}Style5{}Style1{}RecordSelector{AlignImage:Center;}Style6{}Style8{}Footer{}Style13{}Style3{}Style12{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Editor{}Style4{}FilterBar{BackColor:255, 255, 192;}EvenRow{BackColor:224, 224, 224;}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style11{}Style16{}Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}Caption{AlignHorz:Center;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style9{}Style2{}Style14{}Normal{}Style7{}Heading{Wrap:True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;}Style10{AlignHorz:Near;}Style15{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style16" /><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, 350, 235</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="Caption" me="Group" /><Style parent="FilterBar" me="FilterWatermark" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 350, 235</ClientArea><PrintPageHeaderStyle parent="" me="Style14" /><PrintPageFooterStyle parent="" me="Style15" /></Blob></value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<MySubMain>false</MySubMain>
|
||||
<MainForm>FrmMain</MainForm>
|
||||
<SingleInstance>false</SingleInstance>
|
||||
<ShutdownMode>0</ShutdownMode>
|
||||
<EnableVisualStyles>true</EnableVisualStyles>
|
||||
<AuthenticationMode>0</AuthenticationMode>
|
||||
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||
</MyApplicationData>
|
||||
@@ -0,0 +1,108 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmFortschritt
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.ProgressBar1 = New System.Windows.Forms.ProgressBar
|
||||
Me.Label1 = New System.Windows.Forms.Label
|
||||
Me.Label2 = New System.Windows.Forms.Label
|
||||
Me.Label3 = New System.Windows.Forms.Label
|
||||
Me.Label4 = New System.Windows.Forms.Label
|
||||
Me.Label5 = New System.Windows.Forms.Label
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'ProgressBar1
|
||||
'
|
||||
Me.ProgressBar1.Location = New System.Drawing.Point(12, 48)
|
||||
Me.ProgressBar1.Name = "ProgressBar1"
|
||||
Me.ProgressBar1.Size = New System.Drawing.Size(498, 23)
|
||||
Me.ProgressBar1.TabIndex = 0
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(9, 32)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(13, 13)
|
||||
Me.Label1.TabIndex = 1
|
||||
Me.Label1.Text = "0"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(253, 35)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(19, 13)
|
||||
Me.Label2.TabIndex = 2
|
||||
Me.Label2.Text = "50"
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Location = New System.Drawing.Point(252, 35)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(19, 13)
|
||||
Me.Label3.TabIndex = 3
|
||||
Me.Label3.Text = "50"
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Location = New System.Drawing.Point(488, 32)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(25, 13)
|
||||
Me.Label4.TabIndex = 4
|
||||
Me.Label4.Text = "100"
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Location = New System.Drawing.Point(12, 13)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(69, 13)
|
||||
Me.Label5.TabIndex = 5
|
||||
Me.Label5.Text = "Druckauftrag"
|
||||
'
|
||||
'frmFortschritt
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(522, 83)
|
||||
Me.Controls.Add(Me.Label5)
|
||||
Me.Controls.Add(Me.Label4)
|
||||
Me.Controls.Add(Me.Label3)
|
||||
Me.Controls.Add(Me.Label2)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.ProgressBar1)
|
||||
Me.Name = "frmFortschritt"
|
||||
Me.Text = "Aufbereitung Druckstapel"
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||
End Class
|
||||
Binary file not shown.
@@ -0,0 +1,172 @@
|
||||
'*
|
||||
' Object MyspaltenTitel
|
||||
'
|
||||
' Dieses Objekt liest die Daten aus der Tabelle Spalten und speichert diese in spaltendaten
|
||||
' Die Daten werden für die Spaltenbezeichnung der C1Datagrids verwendet
|
||||
'
|
||||
' Autor: Stefan Hutter
|
||||
' Datum: 2.12.2002
|
||||
'*
|
||||
Namespace EDOKA
|
||||
Public Class Tabellenspalte
|
||||
Private m_table As String
|
||||
Private m_field As String
|
||||
Private m_spaltenname As String
|
||||
Private m_locked As Boolean
|
||||
Private m_Width As Integer
|
||||
Private m_Order As Integer
|
||||
Private m_alsHacken As Boolean
|
||||
Private m_tiptext As String
|
||||
|
||||
Property ColWith() As Integer
|
||||
Get
|
||||
Return m_Width
|
||||
End Get
|
||||
Set(ByVal Value As Integer)
|
||||
m_Width = Value
|
||||
End Set
|
||||
End Property
|
||||
Property Order() As Integer
|
||||
Get
|
||||
Return m_Order
|
||||
End Get
|
||||
Set(ByVal Value As Integer)
|
||||
m_Order = Value
|
||||
End Set
|
||||
End Property
|
||||
Property Tabelle() As String
|
||||
Get
|
||||
Return m_table
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_table = Value
|
||||
End Set
|
||||
End Property
|
||||
Property Feld() As String
|
||||
Get
|
||||
Return m_field
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_field = Value
|
||||
End Set
|
||||
End Property
|
||||
Property spaltenname() As String
|
||||
Get
|
||||
Return m_spaltenname
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_spaltenname = Value
|
||||
End Set
|
||||
End Property
|
||||
Property locked() As Boolean
|
||||
Get
|
||||
Return m_locked
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_locked = Value
|
||||
End Set
|
||||
End Property
|
||||
Property AlsHacken() As Boolean
|
||||
Get
|
||||
Return m_alsHacken
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_alsHacken = Value
|
||||
End Set
|
||||
End Property
|
||||
Property TipText() As String
|
||||
Get
|
||||
Return m_tiptext
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_tiptext = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
|
||||
Public Function getspalte()
|
||||
Try
|
||||
Dim myspalten As New MySpaltenTitel()
|
||||
Me.spaltenname = myspalten.getspalte(Me.Tabelle, Me.Feld)
|
||||
Me.locked = myspalten.getlock(Me.Tabelle, Me.Feld)
|
||||
Me.ColWith = myspalten.getColWidth(Me.Tabelle, Me.Feld)
|
||||
Me.Order = myspalten.getOrder(Me.Tabelle, Me.Feld)
|
||||
Me.AlsHacken = myspalten.gethacken(Me.Tabelle, Me.Feld)
|
||||
Me.TipText = myspalten.gettiptext(Me.Tabelle, Me.Feld)
|
||||
Catch
|
||||
End Try
|
||||
End Function
|
||||
End Class
|
||||
|
||||
Public Class MySpaltenTitel
|
||||
|
||||
|
||||
Public Function getspalte(ByVal tabelle As String, ByVal feld As String) As String
|
||||
Dim i As Integer
|
||||
If Globals.Spalten.Rows.Count = 0 Then load_data()
|
||||
For i = 0 To Globals.Spalten.Rows.Count - 1
|
||||
If Globals.Spalten.Rows(i).Item(1) = tabelle And Globals.Spalten.Rows(i).Item(2) = feld Then
|
||||
getspalte = Globals.Spalten.Rows(i).Item(3)
|
||||
End If
|
||||
Next
|
||||
End Function
|
||||
|
||||
Public Function getlock(ByVal tabelle As String, ByVal feld As String) As Boolean
|
||||
Dim i As Integer
|
||||
If Globals.Spalten.Rows.Count = 0 Then load_data()
|
||||
For i = 0 To Globals.Spalten.Rows.Count - 1
|
||||
If Globals.Spalten.Rows(i).Item(1) = tabelle And Globals.Spalten.Rows(i).Item(2) = feld Then
|
||||
getlock = Globals.Spalten.Rows(i).Item(4)
|
||||
End If
|
||||
Next
|
||||
End Function
|
||||
|
||||
Public Function getColWidth(ByVal tabelle As String, ByVal feld As String) As Integer
|
||||
Dim i As Integer
|
||||
If Globals.Spalten.Rows.Count = 0 Then load_data()
|
||||
For i = 0 To Globals.Spalten.Rows.Count - 1
|
||||
If Globals.Spalten.Rows(i).Item(1) = tabelle And Globals.Spalten.Rows(i).Item(2) = feld Then
|
||||
getColWidth = Globals.Spalten.Rows(i).Item(6)
|
||||
End If
|
||||
Next
|
||||
End Function
|
||||
|
||||
Public Function getOrder(ByVal tabelle As String, ByVal feld As String) As Integer
|
||||
Dim i As Integer
|
||||
If Globals.Spalten.Rows.Count = 0 Then load_data()
|
||||
For i = 0 To Globals.Spalten.Rows.Count - 1
|
||||
If Globals.Spalten.Rows(i).Item(1) = tabelle And Globals.Spalten.Rows(i).Item(2) = feld Then
|
||||
getOrder = Globals.Spalten.Rows(i).Item(7)
|
||||
End If
|
||||
Next
|
||||
End Function
|
||||
|
||||
Public Function gethacken(ByVal tabelle As String, ByVal feld As String) As Integer
|
||||
Dim i As Integer
|
||||
If Globals.Spalten.Rows.Count = 0 Then load_data()
|
||||
For i = 0 To Globals.Spalten.Rows.Count - 1
|
||||
If Globals.Spalten.Rows(i).Item(1) = tabelle And Globals.Spalten.Rows(i).Item(2) = feld Then
|
||||
gethacken = Globals.Spalten.Rows(i).Item(5)
|
||||
End If
|
||||
Next
|
||||
End Function
|
||||
|
||||
Public Function gettiptext(ByVal tabelle As String, ByVal feld As String) As String
|
||||
Dim i As Integer
|
||||
If Globals.Spalten.Rows.Count = 0 Then load_data()
|
||||
For i = 0 To Globals.Spalten.Rows.Count - 1
|
||||
If Globals.Spalten.Rows(i).Item(1) = tabelle And Globals.Spalten.Rows(i).Item(2) = feld Then
|
||||
gettiptext = Globals.Spalten.Rows(i).Item(8)
|
||||
End If
|
||||
Next
|
||||
End Function
|
||||
|
||||
Public Sub load_data()
|
||||
Dim spalten As New edokadb.clsSpalten()
|
||||
Globals.Spalten.Rows.Clear()
|
||||
spalten.cpMainConnectionProvider = conn
|
||||
Globals.Spalten = spalten.SelectAll
|
||||
End Sub
|
||||
End Class
|
||||
End Namespace
|
||||
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>
|
||||
Binary file not shown.
@@ -0,0 +1,104 @@
|
||||
Public Class clsMehrfachdruck_Data
|
||||
|
||||
Public Enum Enum_Typ
|
||||
EDOKA = 1
|
||||
HOST = 2
|
||||
ZV = 3
|
||||
End Enum
|
||||
|
||||
Dim m_DokumentId As String
|
||||
Property DokumentId() As String
|
||||
Get
|
||||
Return m_DokumentId
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_DokumentId = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_PartnerNr As String
|
||||
Property PartnerNr() As String
|
||||
Get
|
||||
Return m_PartnerNr
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_PartnerNr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_Typ As Enum_Typ
|
||||
Property Typ() As Enum_Typ
|
||||
Get
|
||||
Return m_Typ
|
||||
End Get
|
||||
Set(ByVal Value As Enum_Typ)
|
||||
m_Typ = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_OfficeDokument As Boolean
|
||||
Property OfficeDokument() As Boolean
|
||||
Get
|
||||
Return m_OfficeDokument
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_OfficeDokument = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_DokumentTyp As String
|
||||
Property DokumentTyp() As String
|
||||
Get
|
||||
Return m_DokumentTyp
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_DokumentTyp = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_Auftragnr As String
|
||||
Property Auftragnr() As String
|
||||
Get
|
||||
Return m_Auftragnr
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_Auftragnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_PartnerName As String
|
||||
Property PartnerName() As String
|
||||
Get
|
||||
Return m_PartnerName
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_PartnerName = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_Erstellungsdatum As String
|
||||
Property Erstellungsdatum() As String
|
||||
Get
|
||||
Return m_Erstellungsdatum
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_Erstellungsdatum = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Sub New(ByVal DokID As String, ByVal iPartnerNr As String, ByVal sTyp As Enum_Typ, _
|
||||
ByVal bOfficeDokument As Boolean, ByVal sDokTyp As String, ByVal sAuftragnr As String, ByVal sPartnerName As String, _
|
||||
ByVal sErstellungsdatum As String)
|
||||
|
||||
m_DokumentId = DokID
|
||||
m_PartnerNr = iPartnerNr
|
||||
m_Typ = sTyp
|
||||
m_OfficeDokument = bOfficeDokument
|
||||
m_DokumentTyp = sDokTyp
|
||||
m_Auftragnr = sAuftragnr
|
||||
m_PartnerName = sPartnerName
|
||||
m_Erstellungsdatum = sErstellungsdatum
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,62 @@
|
||||
Public Class clsPDF_print_show
|
||||
|
||||
Public Enum Enum_Art
|
||||
Drucken = 0
|
||||
Anzeigen = 1
|
||||
End Enum
|
||||
|
||||
Public Function PrintPDF(ByVal sFilename As String, ByVal Art As Enum_Art) As Boolean
|
||||
PrintPDF = True
|
||||
Dim myProcess As New Process()
|
||||
Try
|
||||
'Point the process to our Acrobat file
|
||||
myProcess.StartInfo.FileName = sFilename
|
||||
myProcess.StartInfo.WorkingDirectory = New IO.FileInfo(sFilename).DirectoryName
|
||||
|
||||
'Since we don't want to see Acrobat's UI (we just want the report printed)
|
||||
'then suppress the UI and pass the "Print" verb to force Acrobat to only print
|
||||
myProcess.StartInfo.CreateNoWindow = True
|
||||
|
||||
If Art = Enum_Art.Anzeigen Then
|
||||
myProcess.StartInfo.Verb = "Open"
|
||||
myProcess.StartInfo.WindowStyle = ProcessWindowStyle.Normal
|
||||
Else
|
||||
myProcess.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
|
||||
myProcess.StartInfo.Verb = "Print"
|
||||
End If
|
||||
myProcess.Start()
|
||||
|
||||
'Wait until Acrobat has finished heavy processing, or 10 seconds whichever comes first
|
||||
If Not myProcess.HasExited Then myProcess.WaitForInputIdle(10000)
|
||||
'Attempt to close Acrobat so it's UI doesn't sit on the user's task bar
|
||||
'loop until we suceed or until we timeout. If we timeout, kill Adobe
|
||||
Dim i As Integer = 1
|
||||
Dim lbRunning As Boolean = True
|
||||
'Da keine Kill Rechte auf den Vista Maschinen vorhanden sind, wird der Prozess nicht gekillt.
|
||||
lbRunning = False
|
||||
'While lbRunning And i <= 20
|
||||
' 'sleep for 1/2 of a second
|
||||
' System.Threading.Thread.Sleep(500)
|
||||
|
||||
' 'See if the Adobe will exit gracefully
|
||||
' Select Case myProcess.HasExited
|
||||
' Case True : lbRunning = False
|
||||
' Case False : lbRunning = Not myProcess.CloseMainWindow
|
||||
' End Select
|
||||
|
||||
' i += 1
|
||||
'End While
|
||||
|
||||
'If it never closed gracefuly, force it out of memory
|
||||
If lbRunning AndAlso Not myProcess.HasExited Then myProcess.Kill()
|
||||
myProcess.Dispose()
|
||||
|
||||
Catch ex As System.ComponentModel.Win32Exception
|
||||
PrintPDF = False
|
||||
Catch ex As Exception
|
||||
PrintPDF = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,558 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:msxsl="urn:schemas-microsoft-com:xslt">
|
||||
<xsl:output omit-xml-declaration="yes"/>
|
||||
|
||||
<!-- Keys -->
|
||||
<xsl:key name="ProjectKey" match="Event" use="@Project"/>
|
||||
|
||||
<!-- String split template -->
|
||||
<xsl:template name="SplitString">
|
||||
<xsl:param name="source" select="''"/>
|
||||
<xsl:param name="separator" select="','"/>
|
||||
<xsl:if test="not($source = '' or $separator = '')">
|
||||
<xsl:variable name="head" select="substring-before(concat($source, $separator), $separator)"/>
|
||||
<xsl:variable name="tail" select="substring-after($source, $separator)"/>
|
||||
<part>
|
||||
<xsl:value-of select="$head"/>
|
||||
</part>
|
||||
<xsl:call-template name="SplitString">
|
||||
<xsl:with-param name="source" select="$tail"/>
|
||||
<xsl:with-param name="separator" select="$separator"/>
|
||||
</xsl:call-template>
|
||||
</xsl:if>
|
||||
</xsl:template>
|
||||
|
||||
<!-- Intermediate Templates -->
|
||||
<xsl:template match="UpgradeReport" mode="ProjectOverviewXML">
|
||||
<Projects>
|
||||
<xsl:for-each select="Event[generate-id(.) = generate-id(key('ProjectKey', @Project))]">
|
||||
<Project>
|
||||
<xsl:variable name="pNode" select="current()"/>
|
||||
<xsl:variable name="errorCount" select="count(../Event[@Project = current()/@Project and @ErrorLevel=2])"/>
|
||||
<xsl:variable name="warningCount" select="count(../Event[@Project = current()/@Project and @ErrorLevel=1])"/>
|
||||
<xsl:variable name="messageCount" select="count(../Event[@Project = current()/@Project and @ErrorLevel=0])"/>
|
||||
<xsl:variable name="pathSplitSeparator">
|
||||
<xsl:text>\</xsl:text>
|
||||
</xsl:variable>
|
||||
<xsl:variable name="projectName">
|
||||
<xsl:choose>
|
||||
<xsl:when test="@Project = ''">Solution</xsl:when>
|
||||
<xsl:otherwise>
|
||||
<xsl:value-of select="@Project"/>
|
||||
</xsl:otherwise>
|
||||
</xsl:choose>
|
||||
</xsl:variable>
|
||||
<xsl:attribute name="IsSolution">
|
||||
<xsl:value-of select="@Project = ''"/>
|
||||
</xsl:attribute>
|
||||
<xsl:attribute name="Project">
|
||||
<xsl:value-of select="$projectName"/>
|
||||
</xsl:attribute>
|
||||
<xsl:attribute name="ProjectDisplayName">
|
||||
|
||||
<xsl:variable name="localProjectName" select="@Project"/>
|
||||
|
||||
<!-- Sometimes it is possible to have project name set to a path over a real project name,
|
||||
we split the string on '\' and if we end up with >1 part in the resulting tokens set
|
||||
we format the ProjectDisplayName as ..\prior\last -->
|
||||
<xsl:variable name="pathTokens">
|
||||
<xsl:call-template name="SplitString">
|
||||
<xsl:with-param name="source" select="$localProjectName"/>
|
||||
<xsl:with-param name="separator" select="$pathSplitSeparator"/>
|
||||
</xsl:call-template>
|
||||
</xsl:variable>
|
||||
|
||||
<xsl:choose>
|
||||
<xsl:when test="count(msxsl:node-set($pathTokens)/part) > 1">
|
||||
<xsl:value-of select="concat('..', $pathSplitSeparator, msxsl:node-set($pathTokens)/part[last() - 1], $pathSplitSeparator, msxsl:node-set($pathTokens)/part[last()])"/>
|
||||
</xsl:when>
|
||||
<xsl:otherwise>
|
||||
<xsl:value-of select="$localProjectName"/>
|
||||
</xsl:otherwise>
|
||||
</xsl:choose>
|
||||
|
||||
</xsl:attribute>
|
||||
<xsl:attribute name="ProjectSafeName">
|
||||
<xsl:value-of select="translate($projectName, '\', '-')"/>
|
||||
</xsl:attribute>
|
||||
<xsl:attribute name="Solution">
|
||||
<xsl:value-of select="/UpgradeReport/Properties/Property[@Name='Solution']/@Value"/>
|
||||
</xsl:attribute>
|
||||
<xsl:attribute name="Source">
|
||||
<xsl:value-of select="@Source"/>
|
||||
</xsl:attribute>
|
||||
<xsl:attribute name="Status">
|
||||
<xsl:choose>
|
||||
<xsl:when test="$errorCount > 0">Error</xsl:when>
|
||||
<xsl:when test="$warningCount > 0">Warning</xsl:when>
|
||||
<xsl:otherwise>Success</xsl:otherwise>
|
||||
</xsl:choose>
|
||||
</xsl:attribute>
|
||||
<xsl:attribute name="ErrorCount">
|
||||
<xsl:value-of select="$errorCount"/>
|
||||
</xsl:attribute>
|
||||
<xsl:attribute name="WarningCount">
|
||||
<xsl:value-of select="$warningCount"/>
|
||||
</xsl:attribute>
|
||||
<xsl:attribute name="MessageCount">
|
||||
<xsl:value-of select="$messageCount"/>
|
||||
</xsl:attribute>
|
||||
<xsl:attribute name="TotalCount">
|
||||
<xsl:value-of select="$errorCount + $warningCount + $messageCount"/>
|
||||
</xsl:attribute>
|
||||
<xsl:for-each select="../Event[@Project = $pNode/@Project and @ErrorLevel=3]">
|
||||
<ConversionStatus>
|
||||
<xsl:value-of select="@Description"/>
|
||||
</ConversionStatus>
|
||||
</xsl:for-each>
|
||||
<Messages>
|
||||
<xsl:for-each select="../Event[@Project = $pNode/@Project and @ErrorLevel<3]">
|
||||
<Message>
|
||||
<xsl:attribute name="Level">
|
||||
<xsl:value-of select="@ErrorLevel"/>
|
||||
</xsl:attribute>
|
||||
<xsl:attribute name="Status">
|
||||
<xsl:choose>
|
||||
<xsl:when test="@ErrorLevel = 0">Message</xsl:when>
|
||||
<xsl:when test="@ErrorLevel = 1">Warning</xsl:when>
|
||||
<xsl:when test="@ErrorLevel = 2">Error</xsl:when>
|
||||
<xsl:otherwise>Message</xsl:otherwise>
|
||||
</xsl:choose>
|
||||
</xsl:attribute>
|
||||
<xsl:attribute name="Source">
|
||||
<xsl:value-of select="@Source"/>
|
||||
</xsl:attribute>
|
||||
<xsl:attribute name="Message">
|
||||
<xsl:value-of select="@Description"/>
|
||||
</xsl:attribute>
|
||||
</Message>
|
||||
</xsl:for-each>
|
||||
</Messages>
|
||||
</Project>
|
||||
</xsl:for-each>
|
||||
</Projects>
|
||||
</xsl:template>
|
||||
|
||||
|
||||
|
||||
<!-- Project Overview template -->
|
||||
<xsl:template match="Projects" mode="ProjectOverview">
|
||||
|
||||
<table>
|
||||
<tr>
|
||||
<th></th>
|
||||
<th _locID="ProjectTableHeader">Projekt</th>
|
||||
<th _locID="PathTableHeader">Pfad</th>
|
||||
<th _locID="ErrorsTableHeader">Fehler</th>
|
||||
<th _locID="WarningsTableHeader">Warnungen</th>
|
||||
<th _locID="MessagesTableHeader">Meldungen</th>
|
||||
</tr>
|
||||
|
||||
<xsl:for-each select="Project">
|
||||
|
||||
<xsl:sort select="@ErrorCount" order="descending"/>
|
||||
<xsl:sort select="@WarningCount" order="descending"/>
|
||||
<!-- Always make solution last within a group -->
|
||||
<xsl:sort select="@IsSolution" order="ascending"/>
|
||||
<xsl:sort select="@ProjectSafeName" order="ascending"/>
|
||||
|
||||
<tr>
|
||||
<td>
|
||||
<img width="16" height="16">
|
||||
<xsl:attribute name="src">
|
||||
<xsl:choose>
|
||||
<xsl:when test="@Status = 'Error'">_UpgradeReport_Files\UpgradeReport_Error.png</xsl:when>
|
||||
<xsl:when test="@Status = 'Warning'">_UpgradeReport_Files\UpgradeReport_Warning.png</xsl:when>
|
||||
<xsl:when test="@Status = 'Success'">_UpgradeReport_Files\UpgradeReport_Success.png</xsl:when>
|
||||
</xsl:choose>
|
||||
</xsl:attribute>
|
||||
<xsl:attribute name="alt">
|
||||
<xsl:value-of select="@Status"/>
|
||||
</xsl:attribute>
|
||||
</img>
|
||||
</td>
|
||||
<td>
|
||||
<strong>
|
||||
<a>
|
||||
<xsl:attribute name="href">
|
||||
<xsl:value-of select="concat('#', @ProjectSafeName)"/>
|
||||
</xsl:attribute>
|
||||
<xsl:choose>
|
||||
<xsl:when test="@ProjectDisplayName = ''">
|
||||
<span _locID="OverviewSolutionSpan">Projektmappe</span>
|
||||
</xsl:when>
|
||||
<xsl:otherwise>
|
||||
<xsl:value-of select="@ProjectDisplayName"/>
|
||||
</xsl:otherwise>
|
||||
</xsl:choose>
|
||||
</a>
|
||||
</strong>
|
||||
</td>
|
||||
<td>
|
||||
<xsl:value-of select="@Source"/>
|
||||
</td>
|
||||
<td class="textCentered">
|
||||
<a>
|
||||
<xsl:if test="@ErrorCount > 0">
|
||||
<xsl:attribute name="href">
|
||||
<xsl:value-of select="concat('#', @ProjectSafeName, 'Error')"/>
|
||||
</xsl:attribute>
|
||||
</xsl:if>
|
||||
<xsl:value-of select="@ErrorCount"/>
|
||||
</a>
|
||||
</td>
|
||||
<td class="textCentered">
|
||||
<a>
|
||||
<xsl:if test="@WarningCount > 0">
|
||||
<xsl:attribute name="href">
|
||||
<xsl:value-of select="concat('#', @ProjectSafeName, 'Warning')"/>
|
||||
</xsl:attribute>
|
||||
</xsl:if>
|
||||
<xsl:value-of select="@WarningCount"/>
|
||||
</a>
|
||||
</td>
|
||||
<td class="textCentered">
|
||||
<a href="#">
|
||||
<xsl:if test="@MessageCount > 0">
|
||||
<xsl:attribute name="onclick">
|
||||
<xsl:variable name="apos">
|
||||
<xsl:text>'</xsl:text>
|
||||
</xsl:variable>
|
||||
<xsl:variable name="JS" select="concat('ScrollToFirstVisibleMessage(', $apos, @ProjectSafeName, $apos, ')')"/>
|
||||
<xsl:value-of select="concat($JS, '; return false;')"/>
|
||||
</xsl:attribute>
|
||||
</xsl:if>
|
||||
<xsl:value-of select="@MessageCount"/>
|
||||
</a>
|
||||
</td>
|
||||
</tr>
|
||||
</xsl:for-each>
|
||||
</table>
|
||||
</xsl:template>
|
||||
|
||||
<!-- Show messages row -->
|
||||
<xsl:template match="Project" mode="ProjectShowMessages">
|
||||
<tr>
|
||||
<xsl:attribute name="name">
|
||||
<xsl:value-of select="concat('MessageRowHeaderShow', @ProjectSafeName)"/>
|
||||
</xsl:attribute>
|
||||
<td>
|
||||
<img width="16" height="16" src="_UpgradeReport_Files\UpgradeReport_Information.png"/>
|
||||
</td>
|
||||
<td class="messageCell">
|
||||
<xsl:variable name="apos">
|
||||
<xsl:text>'</xsl:text>
|
||||
</xsl:variable>
|
||||
<xsl:variable name="toggleRowsJS" select="concat('ToggleMessageVisibility(', $apos, @ProjectSafeName, $apos, ')')"/>
|
||||
|
||||
<a _locID="ShowAdditionalMessages" href="#">
|
||||
<xsl:attribute name="name">
|
||||
<xsl:value-of select="concat(@ProjectSafeName, 'Message')"/>
|
||||
</xsl:attribute>
|
||||
<xsl:attribute name="onclick">
|
||||
<xsl:value-of select="concat($toggleRowsJS, '; return false;')"/>
|
||||
</xsl:attribute>
|
||||
Anzeigen <xsl:value-of select="@MessageCount"/> Weitere Meldungen
|
||||
</a>
|
||||
</td>
|
||||
</tr>
|
||||
</xsl:template>
|
||||
|
||||
<!-- Hide messages row -->
|
||||
<xsl:template match="Project" mode="ProjectHideMessages">
|
||||
<tr style="display: none">
|
||||
<xsl:attribute name="name">
|
||||
<xsl:value-of select="concat('MessageRowHeaderHide', @ProjectSafeName)"/>
|
||||
</xsl:attribute>
|
||||
<td>
|
||||
<img width="16" height="16" src="_UpgradeReport_Files\UpgradeReport_Information.png"/>
|
||||
</td>
|
||||
<td class="messageCell">
|
||||
<xsl:variable name="apos">
|
||||
<xsl:text>'</xsl:text>
|
||||
</xsl:variable>
|
||||
<xsl:variable name="toggleRowsJS" select="concat('ToggleMessageVisibility(', $apos, @ProjectSafeName, $apos, ')')"/>
|
||||
|
||||
<a _locID="HideAdditionalMessages" href="#">
|
||||
<xsl:attribute name="name">
|
||||
<xsl:value-of select="concat(@ProjectSafeName, 'Message')"/>
|
||||
</xsl:attribute>
|
||||
<xsl:attribute name="onclick">
|
||||
<xsl:value-of select="concat($toggleRowsJS, '; return false;')"/>
|
||||
</xsl:attribute>
|
||||
Ausblenden <xsl:value-of select="@MessageCount"/> Weitere Meldungen
|
||||
</a>
|
||||
</td>
|
||||
</tr>
|
||||
</xsl:template>
|
||||
|
||||
<!-- Message row templates -->
|
||||
<xsl:template match="Message">
|
||||
<tr>
|
||||
<xsl:attribute name="name">
|
||||
<xsl:value-of select="concat(@Status, 'RowClass', ../../@ProjectSafeName)"/>
|
||||
</xsl:attribute>
|
||||
|
||||
<xsl:if test="@Level = 0">
|
||||
<xsl:attribute name="style">display: none</xsl:attribute>
|
||||
</xsl:if>
|
||||
<td>
|
||||
<a>
|
||||
<xsl:attribute name="name">
|
||||
<xsl:value-of select="concat(../../@ProjectSafeName, @Status)"/>
|
||||
</xsl:attribute>
|
||||
</a>
|
||||
<img width="16" height="16">
|
||||
<xsl:attribute name="src">
|
||||
<xsl:choose>
|
||||
<xsl:when test="@Status = 'Error'">_UpgradeReport_Files\UpgradeReport_Error.png</xsl:when>
|
||||
<xsl:when test="@Status = 'Warning'">_UpgradeReport_Files\UpgradeReport_Warning.png</xsl:when>
|
||||
<xsl:when test="@Status = 'Message'">_UpgradeReport_Files\UpgradeReport_Information.png</xsl:when>
|
||||
</xsl:choose>
|
||||
</xsl:attribute>
|
||||
<xsl:attribute name="alt">
|
||||
<xsl:value-of select="@Status"/>
|
||||
</xsl:attribute>
|
||||
</img>
|
||||
</td>
|
||||
<td class="messageCell">
|
||||
<strong>
|
||||
<xsl:value-of select="@Source"/>:
|
||||
</strong>
|
||||
<span>
|
||||
<xsl:value-of select="@Message"/>
|
||||
</span>
|
||||
</td>
|
||||
</tr>
|
||||
</xsl:template>
|
||||
|
||||
<!-- Project Details Template -->
|
||||
<xsl:template match="Projects" mode="ProjectDetails">
|
||||
|
||||
<xsl:for-each select="Project">
|
||||
<xsl:sort select="@ErrorCount" order="descending"/>
|
||||
<xsl:sort select="@WarningCount" order="descending"/>
|
||||
<!-- Always make solution last within a group -->
|
||||
<xsl:sort select="@IsSolution" order="ascending"/>
|
||||
<xsl:sort select="@ProjectSafeName" order="ascending"/>
|
||||
|
||||
<a>
|
||||
<xsl:attribute name="name">
|
||||
<xsl:value-of select="@ProjectSafeName"/>
|
||||
</xsl:attribute>
|
||||
</a>
|
||||
<xsl:choose>
|
||||
<xsl:when test="@ProjectDisplayName = ''">
|
||||
<h3 _locID="ProjectDisplayNameHeader">Projektmappe</h3>
|
||||
</xsl:when>
|
||||
<xsl:otherwise>
|
||||
<h3>
|
||||
<xsl:value-of select="@ProjectDisplayName"/>
|
||||
</h3>
|
||||
</xsl:otherwise>
|
||||
</xsl:choose>
|
||||
|
||||
<table>
|
||||
<tr>
|
||||
<xsl:attribute name="id">
|
||||
<xsl:value-of select="concat(@ProjectSafeName, 'HeaderRow')"/>
|
||||
</xsl:attribute>
|
||||
<th></th>
|
||||
<th class="messageCell" _locID="MessageTableHeader">Meldung</th>
|
||||
</tr>
|
||||
|
||||
<!-- Errors and warnings -->
|
||||
<xsl:for-each select="Messages/Message[@Level > 0]">
|
||||
<xsl:sort select="@Level" order="descending"/>
|
||||
<xsl:apply-templates select="."/>
|
||||
</xsl:for-each>
|
||||
|
||||
<xsl:if test="@MessageCount > 0">
|
||||
<xsl:apply-templates select="." mode="ProjectShowMessages"/>
|
||||
</xsl:if>
|
||||
|
||||
<!-- Messages -->
|
||||
<xsl:for-each select="Messages/Message[@Level = 0]">
|
||||
<xsl:apply-templates select="."/>
|
||||
</xsl:for-each>
|
||||
|
||||
<xsl:choose>
|
||||
<!-- Additional row as a 'place holder' for 'Show/Hide' additional messages -->
|
||||
<xsl:when test="@MessageCount > 0">
|
||||
<xsl:apply-templates select="." mode="ProjectHideMessages"/>
|
||||
</xsl:when>
|
||||
<!-- No messages at all, show blank row -->
|
||||
<xsl:when test="@TotalCount = 0">
|
||||
<tr>
|
||||
<td>
|
||||
<img width="16" height="16" src="_UpgradeReport_Files\UpgradeReport_Information.png"/>
|
||||
</td>
|
||||
<xsl:choose>
|
||||
<xsl:when test="@ProjectDisplayName = ''">
|
||||
<td class="messageCell" _locID="NoMessagesRow2">
|
||||
Die Projektmappe hat keine Meldungen protokolliert.
|
||||
</td>
|
||||
</xsl:when>
|
||||
<xsl:otherwise>
|
||||
<td class="messageCell" _locID="NoMessagesRow">
|
||||
<xsl:value-of select="@ProjectDisplayName"/> Keine Meldungen protokolliert.
|
||||
</td>
|
||||
</xsl:otherwise>
|
||||
</xsl:choose>
|
||||
</tr>
|
||||
</xsl:when>
|
||||
</xsl:choose>
|
||||
</table>
|
||||
</xsl:for-each>
|
||||
</xsl:template>
|
||||
|
||||
<!-- Document, matches "UpgradeReport" -->
|
||||
<xsl:template match="UpgradeReport">
|
||||
<!-- Output doc type the 'Mark of the web' which disabled prompting to run JavaScript from local HTML Files in IE -->
|
||||
<!-- NOTE: The whitespace around the 'Mark of the web' is important it must be exact -->
|
||||
<xsl:text disable-output-escaping="yes"><![CDATA[<!DOCTYPE html>
|
||||
<!-- saved from url=(0014)about:internet -->
|
||||
]]>
|
||||
</xsl:text>
|
||||
<html>
|
||||
<head>
|
||||
<meta content="en-us" http-equiv="Content-Language"/>
|
||||
<meta content="text/html; charset=utf-16" http-equiv="Content-Type"/>
|
||||
<link type="text/css" rel="stylesheet" href="_UpgradeReport_Files\UpgradeReport.css"/>
|
||||
<title _locID="ConversionReport0">
|
||||
Migrationsbericht
|
||||
</title>
|
||||
|
||||
<script type="text/javascript" language="javascript">
|
||||
<xsl:text disable-output-escaping="yes">
|
||||
<![CDATA[
|
||||
|
||||
// Startup
|
||||
// Hook up the the loaded event for the document/window, to linkify the document content
|
||||
var startupFunction = function() { linkifyElement("messages"); };
|
||||
|
||||
if(window.attachEvent)
|
||||
{
|
||||
window.attachEvent('onload', startupFunction);
|
||||
}
|
||||
else if (window.addEventListener)
|
||||
{
|
||||
window.addEventListener('load', startupFunction, false);
|
||||
}
|
||||
else
|
||||
{
|
||||
document.addEventListener('load', startupFunction, false);
|
||||
}
|
||||
|
||||
// Toggles the visibility of table rows with the specified name
|
||||
function toggleTableRowsByName(name)
|
||||
{
|
||||
var allRows = document.getElementsByTagName('tr');
|
||||
for (i=0; i < allRows.length; i++)
|
||||
{
|
||||
var currentName = allRows[i].getAttribute('name');
|
||||
if(!!currentName && currentName.indexOf(name) == 0)
|
||||
{
|
||||
var isVisible = allRows[i].style.display == '';
|
||||
isVisible ? allRows[i].style.display = 'none' : allRows[i].style.display = '';
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
function scrollToFirstVisibleRow(name)
|
||||
{
|
||||
var allRows = document.getElementsByTagName('tr');
|
||||
for (i=0; i < allRows.length; i++)
|
||||
{
|
||||
var currentName = allRows[i].getAttribute('name');
|
||||
var isVisible = allRows[i].style.display == '';
|
||||
if(!!currentName && currentName.indexOf(name) == 0 && isVisible)
|
||||
{
|
||||
allRows[i].scrollIntoView(true);
|
||||
return true;
|
||||
}
|
||||
}
|
||||
|
||||
return false;
|
||||
}
|
||||
|
||||
// Linkifies the specified text content, replaces candidate links with html links
|
||||
function linkify(text)
|
||||
{
|
||||
if(!text || 0 === text.length)
|
||||
{
|
||||
return text;
|
||||
}
|
||||
|
||||
// Find http, https and ftp links and replace them with hyper links
|
||||
var urlLink = /(http|https|ftp)\:\/\/[a-zA-Z0-9\-\.]+(:[a-zA-Z0-9]*)?\/?([a-zA-Z0-9\-\._\?\,\/\\\+&%\$#\=~;\{\}])*/gi;
|
||||
|
||||
return text.replace(urlLink, '<a href="$&">$&</a>') ;
|
||||
}
|
||||
|
||||
// Linkifies the specified element by ID
|
||||
function linkifyElement(id)
|
||||
{
|
||||
var element = document.getElementById(id);
|
||||
if(!!element)
|
||||
{
|
||||
element.innerHTML = linkify(element.innerHTML);
|
||||
}
|
||||
}
|
||||
|
||||
function ToggleMessageVisibility(projectName)
|
||||
{
|
||||
if(!projectName || 0 === projectName.length)
|
||||
{
|
||||
return;
|
||||
}
|
||||
|
||||
toggleTableRowsByName("MessageRowClass" + projectName);
|
||||
toggleTableRowsByName('MessageRowHeaderShow' + projectName);
|
||||
toggleTableRowsByName('MessageRowHeaderHide' + projectName);
|
||||
}
|
||||
|
||||
function ScrollToFirstVisibleMessage(projectName)
|
||||
{
|
||||
if(!projectName || 0 === projectName.length)
|
||||
{
|
||||
return;
|
||||
}
|
||||
|
||||
// First try the 'Show messages' row
|
||||
if(!scrollToFirstVisibleRow('MessageRowHeaderShow' + projectName))
|
||||
{
|
||||
// Failed to find a visible row for 'Show messages', try an actual message row
|
||||
scrollToFirstVisibleRow('MessageRowClass' + projectName);
|
||||
}
|
||||
}
|
||||
]]>
|
||||
</xsl:text>
|
||||
</script>
|
||||
</head>
|
||||
<body>
|
||||
<h1 _locID="ConversionReport">
|
||||
Migrationsbericht - <xsl:value-of select="Properties/Property[@Name='Solution']/@Value"/>
|
||||
</h1>
|
||||
|
||||
<div id="content">
|
||||
<h2 _locID="OverviewTitle">Übersicht</h2>
|
||||
<xsl:variable name="projectOverview">
|
||||
<xsl:apply-templates select="self::node()" mode="ProjectOverviewXML"/>
|
||||
</xsl:variable>
|
||||
|
||||
<div id="overview">
|
||||
<xsl:apply-templates select="msxsl:node-set($projectOverview)/*" mode="ProjectOverview"/>
|
||||
</div>
|
||||
|
||||
<h2 _locID="SolutionAndProjectsTitle">Projektmappen und Projekte</h2>
|
||||
|
||||
<div id="messages">
|
||||
<xsl:apply-templates select="msxsl:node-set($projectOverview)/*" mode="ProjectDetails"/>
|
||||
</div>
|
||||
</div>
|
||||
</body>
|
||||
</html>
|
||||
</xsl:template>
|
||||
|
||||
</xsl:stylesheet>
|
||||
@@ -0,0 +1,18 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="4.0">
|
||||
<PropertyGroup>
|
||||
<PublishUrlHistory>publish\</PublishUrlHistory>
|
||||
<InstallUrlHistory>
|
||||
</InstallUrlHistory>
|
||||
<SupportUrlHistory>
|
||||
</SupportUrlHistory>
|
||||
<UpdateUrlHistory>
|
||||
</UpdateUrlHistory>
|
||||
<BootstrapperUrlHistory>
|
||||
</BootstrapperUrlHistory>
|
||||
<ErrorReportUrlHistory>
|
||||
</ErrorReportUrlHistory>
|
||||
<FallbackCulture>de-DE</FallbackCulture>
|
||||
<VerifyUploadedFiles>false</VerifyUploadedFiles>
|
||||
</PropertyGroup>
|
||||
</Project>
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,13 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:2.0.50727.5456
|
||||
'
|
||||
' Ä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
|
||||
|
||||
@@ -0,0 +1,139 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmBenutzer
|
||||
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(frmBenutzer))
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip
|
||||
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton
|
||||
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton
|
||||
Me.DokList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Me.Label1 = New System.Windows.Forms.Label
|
||||
Me.Label2 = New System.Windows.Forms.Label
|
||||
Me.Label3 = New System.Windows.Forms.Label
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
CType(Me.DokList, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'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(466, 25)
|
||||
Me.ToolStrip1.TabIndex = 0
|
||||
Me.ToolStrip1.Text = "ToolStrip1"
|
||||
'
|
||||
'ToolStripButton1
|
||||
'
|
||||
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
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(23, 22)
|
||||
Me.ToolStripButton1.Text = "Fenster schliessen"
|
||||
'
|
||||
'ToolStripButton2
|
||||
'
|
||||
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
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(23, 22)
|
||||
Me.ToolStripButton2.Text = "Daten speichern"
|
||||
'
|
||||
'DokList
|
||||
'
|
||||
Me.DokList.AllowAddNew = True
|
||||
Me.DokList.AllowDelete = True
|
||||
Me.DokList.AlternatingRows = True
|
||||
Me.DokList.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.DokList.FetchRowStyles = True
|
||||
Me.DokList.FilterBar = True
|
||||
Me.DokList.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.DokList.Images.Add(CType(resources.GetObject("DokList.Images"), System.Drawing.Image))
|
||||
Me.DokList.Location = New System.Drawing.Point(0, 25)
|
||||
Me.DokList.Name = "DokList"
|
||||
Me.DokList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.DokList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.DokList.PreviewInfo.ZoomFactor = 75
|
||||
Me.DokList.PrintInfo.PageSettings = CType(resources.GetObject("DokList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||
Me.DokList.ScrollTips = True
|
||||
Me.DokList.Size = New System.Drawing.Size(352, 237)
|
||||
Me.DokList.TabIndex = 13
|
||||
Me.DokList.Text = "C1TrueDBGrid2"
|
||||
Me.DokList.PropBag = resources.GetString("DokList.PropBag")
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(367, 25)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(40, 13)
|
||||
Me.Label1.TabIndex = 14
|
||||
Me.Label1.Text = "Rollen:"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(367, 38)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(79, 13)
|
||||
Me.Label2.TabIndex = 15
|
||||
Me.Label2.Text = "1: Administrator"
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Location = New System.Drawing.Point(367, 51)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(86, 13)
|
||||
Me.Label3.TabIndex = 16
|
||||
Me.Label3.Text = "0: Normaler User"
|
||||
'
|
||||
'frmBenutzer
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(466, 262)
|
||||
Me.Controls.Add(Me.Label3)
|
||||
Me.Controls.Add(Me.Label2)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.DokList)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Name = "frmBenutzer"
|
||||
Me.Text = "Benutzerverwaltung"
|
||||
Me.ToolStrip1.ResumeLayout(False)
|
||||
Me.ToolStrip1.PerformLayout()
|
||||
CType(Me.DokList, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
|
||||
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents DokList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
End Class
|
||||
Binary file not shown.
@@ -0,0 +1,292 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
|
||||
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
|
||||
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABi
|
||||
CAAAAk1TRnQBSQFMAgEBAgEAASwBAAEsAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
|
||||
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
|
||||
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
|
||||
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
|
||||
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
|
||||
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
|
||||
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
|
||||
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
|
||||
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
|
||||
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
|
||||
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
|
||||
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
|
||||
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
|
||||
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
|
||||
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
|
||||
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
|
||||
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
|
||||
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
|
||||
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
|
||||
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
|
||||
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
|
||||
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
|
||||
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
|
||||
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
|
||||
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
|
||||
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
|
||||
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
|
||||
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/wEAEP8QByAAEP8QByAA
|
||||
Bv8CPwISAQAF/wYHAe0C7AHvBgcgAAX/BPkBAAESBf8EBwHvAYYDoQGGAa4BugQHIAAF/wEfA/kBAAb/
|
||||
BAcDoQI3A6EBugMHIAAG/wIAARIBAAb/AgcBvAGnA6ECNwOhAa4DByAAB/8B+QISBv8CBwG8BKEB6gES
|
||||
A6EBhgHvAgcgAAf/AfkBPwQSA/8CBwEJBKEB+wE3BKEB7AIHIAAD/wQSAQAD+QEAAhIC/wIHAQkEoQFK
|
||||
AfsBUQOhAewCByAAAv8D+QIAAf8E+QELARIBAAH/AgcBvAKhAoYBoQFRAfsBUQKhAe0CByAAAv8D+QIS
|
||||
Av8E+QESAv8CBwHwAacBoQE3AfsCUQH7AVEBoQGGAwcgAAL/A/kBAAISBPkCAAL/AwcBoAGnAaEBWAL7
|
||||
AVECoQHvAwcgAAL/AQAI+QEABP8EBwGgAacEoQGnBQcgAAT/AgACFwIABv8FBwHwAbwCCQK8BQcgABD/
|
||||
EAcgABD/EAcgAAFCAU0BPgcAAT4DAAEoAwABQAMAARADAAEBAQABAQUAAYAXAAP/gQAL
|
||||
</value>
|
||||
</data>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="Button1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAGhJREFUOE/NU0EK
|
||||
ACAI8+k+zZ9ZCEapiyCIAg/pWJsa0W9Hu6A5XB/KJ/3KzCUByGeCGwUqIhYTybCwqRkmejy9Dwv2cvCZ
|
||||
SArMTwSgD2gP3N5qoeh+nDOaEsFCYMAEYIGSgkPcwy/aAP5wqQPBfWzxAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="ContextMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>123, 17</value>
|
||||
</metadata>
|
||||
<data name="PartnerList.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA3SURBVChTY2DABP+xiIGFkCVwsVEUwhThNREkiaEAJoiP
|
||||
RnEmskKs7kd3C1YrYTrx+g6bIrAYAKCqHOQvFu6BAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="PartnerList.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0
|
||||
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMEAAAABGxlZnQFcmlnaHQDdG9w
|
||||
BmJvdHRvbQAAAAAICAgIAgAAAGQAAABkAAAAZAAAAGQAAAABCgAAAAEAAAAJAwAAAAHz/////P///wAK
|
||||
CgoB8v////z///8ACQ8AAAABDwAAAAYAAABkAAAAZAAAAGQAAABkAAAACw==
|
||||
</value>
|
||||
</data>
|
||||
<data name="PartnerList.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:224, 224, 224;}Style5{}Style1{}RecordSelector{AlignImage:Center;}Style6{}Style8{}Footer{}Style13{}Style3{}Style12{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Editor{}Style4{}FilterBar{BackColor:255, 255, 192;}EvenRow{BackColor:White;}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style11{}Style16{}Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}Caption{AlignHorz:Center;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style9{}Style2{}Style14{}Normal{}Style7{}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert:Center;}Style10{AlignHorz:Near;}Style15{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style16" /><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, 564, 212</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="Caption" me="Group" /><Style parent="FilterBar" me="FilterWatermark" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 566, 214</ClientArea><PrintPageHeaderStyle parent="" me="Style14" /><PrintPageFooterStyle parent="" me="Style15" /></Blob></value>
|
||||
</data>
|
||||
<data name="Button6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAHxJREFUOE/Nk0sO
|
||||
wCAIRDmdx+0VqdqQ0pEZu+iiJCQmOo+PYEbtcLPs/CXcXKLW/OE3TIJW4QqyHqC0VezJMqjLEVJHZoAB
|
||||
A8g+dVGKTj2yQEDKgkdXJfwKMP7041/IteM5mvl6FkT3q3Hcz0MRGUFsmeb4sj0olyMEUngCOZ7aAP9S
|
||||
UJcAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>246, 17</value>
|
||||
</metadata>
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAIAEBAAAAEACABoBQAAJgAAACAgAAABAAgAqAgAAI4FAAAoAAAAEAAAACAAAAABAAgAAAAAAEAB
|
||||
AAAAAAAAAAAAAAAAAAAAAAAA////AOfn5wAAAAAAODg4ADAwMADSwMwA/+f+APHT5gDqzuAA9tXqAEBA
|
||||
QACHh4cAf39/AIeRiwCJYXoAuISlAP+65wBoSFwAKSsqAMeywACIiIgA/a7fACgdJADLpLwAgICAAOi0
|
||||
1ABcQlMA39/fAIOJhQD73+8A357HAGtPYQCgoKAAeG10AOOnzQBdRVUAICAgAGlLXwDWnsEA97bfABoT
|
||||
GAA1JzAAwY+vAF1FVABrT2AA/8XxAP/A6wB4WGwALiIqALSFowDqrNMA8LHZAGRKWgBkSlsAoHaRANyi
|
||||
xwD/z/0AcVNnAHBQZQD+u+UAu4qpAH9dcgBFTEcAcFBkAHFTZgCFYngAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAICAgICAgICAgIfIiYmJiYCPj8sLCwsQEECHyImJiYmAjozIiIi
|
||||
Ozw9Ah8iJiYmJgIfIiYmJygCAgIfIiYmJiYCHyImIjUCLDgCOTMiNyYmAh8iJjICNTMzAhY0NDY3JgIf
|
||||
IiYmMjMiMys0LwIfMiYCHyImJicrLCstLi8CMDEiAiUiJicoAgICAikCAgICKgIhHiIjAiQAGwICJAAb
|
||||
AgICHB0eHwIAAgACAgAKACACAhgAGRoCGwAbAgIYAAACAgIUAAAVFgICAgICAgICAhcCCgsMDQ4CAgIP
|
||||
EBECEhMAAgICAgICAgUGBwgJAAAAAAABAgADBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKAAAACAAAABAAAAAAQAIAAAA
|
||||
AACABAAAAAAAAAAAAAAAAAAAAAAAAP///wAAAAAA/9SOAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AADWnsEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAQEBAQEBAQEBAQEBAQEBAQEBAQEKCgoKCgoKCgoKCgEB
|
||||
AQEBAQEBAQEBAQEBAQEBAQEBAQoKCgoKCgoKCgoKAQEBAQEBAQEBAQEBAQEBAQEBAQEBCgoKCgoKCgoK
|
||||
CgoBAQEBCgoKCgoKCgoKCgoKCgoBAQEKCgoKCgoKCgoKCgEBAQoKCgoKCgoKCgoKCgoKCgEBAQoKCgoK
|
||||
CgoKCgoKAQEBCgoKCgoKCgoKCgoKAQEBAQEBCgoKCgoKCgoKCgoBAQEKCgoKCgoKCgoKAQEBAQEBAQEK
|
||||
CgoKCgoKCgoKCgEBAQoKCgoKCgoKCgEBAQEBAQEBAQoKCgoKCgoKCgoKAQEBCgoKCgoKCgoBAQEBAQoK
|
||||
AQEBCgoKCgoKCgoKCgoBAQEKCgoKCgoKCgEBAQoKCgoBAQEKCgoKCgoKCgoKCgEBAQoKCgoKCgoBAQEK
|
||||
CgoKCgEBAQoKCgoKCgoKCgoKAQEBCgoKCgoKCgoBAQoKCgoKAQEBAQEBAQEBCgoKCgoBAQEKCgoKCgoK
|
||||
CgoKCgoKCgoBAQEBAQEBAQEKCgoKCgEBAQoKCgoKCgoKCgoKCgoKCgoKCgoKCgEBAQoKCgoKAQEBCgoK
|
||||
CgoKCgoKCgoKCgoKCgoKCgoKAQEBCgoKCgoBAQEKCgoKCgoKCgoBAQEBAQEKCgoKAQEBAQEBAQoKCgEB
|
||||
AQoKCgoKCgoKAQEBAQEBAQEBCgEBAQEBAQEBAQoKAQEBCgoKCgoKCgEBAQEBAQEBAQEBAQEBAQEBAQEB
|
||||
AQoBAQEKCgoKCgoBAQEBAQAAAAEBAQEBAQEAAAABAQEBAQEBAQAKCgoKCgEBAQEAAAAAAAEBAQEBAAAA
|
||||
AAABAQEBAQEBAAAKCgoKAQEBAAAAAQAAAQEBAQAAAAEAAAABAQEBAQEAAAoKCgoBAQEAAAEBAAABAQEB
|
||||
AAAAAQAAAAEBAQEBAQAAAAoKCgEBAQAAAAAAAAEBAQEBAAAAAAABAQEBAQEBAAAAAAoKAQEBAQAAAAAB
|
||||
AQEBAQEAAAAAAAEBAQEBAQEAAAAAAAoKAQEBAQEBAQEBAQEBAQEBAQEBAQEBCgEBAQAAAAAACgoKAQEB
|
||||
AQEBAQEBAQEBAQEBAQEBAQoAAQEBAAAAAAAAAAoKAQEBAQEBAQoKCgEBAQEBAQEKAAABAQEBAQEBAQEB
|
||||
AQEBAQEBAQEKCgoKCgoBAQEAAAAAAAEBAQEBAQEBAQEBAQEBAQoKCgoKCgoKCgoAAAAAAAAAAQEBAQEB
|
||||
AQEBAQEBAQEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQEBAAABAQEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAEBAQAAAQEBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,883 @@
|
||||
Imports System.IO
|
||||
Imports System.Data
|
||||
Imports System.Threading
|
||||
Imports System.Drawing
|
||||
Imports System.Windows.Forms
|
||||
|
||||
|
||||
Public Class frmMehrfachdruck
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
#Region " Vom Windows Form Designer generierter Code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
||||
|
||||
End Sub
|
||||
|
||||
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
If Not (components Is Nothing) Then
|
||||
components.Dispose()
|
||||
End If
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
' Für Windows Form-Designer erforderlich
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
||||
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
||||
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
||||
Friend WithEvents lvDruckauftraege As System.Windows.Forms.ListView
|
||||
Friend WithEvents StatusBar1 As System.Windows.Forms.StatusBar
|
||||
Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
|
||||
Friend WithEvents nmuDelete As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents nmuRefresh As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents mnuDurck As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents lvid_JobID As System.Windows.Forms.ColumnHeader
|
||||
Friend WithEvents lvid_Auftrag As System.Windows.Forms.ColumnHeader
|
||||
Friend WithEvents lvid_Typ As System.Windows.Forms.ColumnHeader
|
||||
Friend WithEvents lvid_Anzahl As System.Windows.Forms.ColumnHeader
|
||||
Friend WithEvents lvid_Status As System.Windows.Forms.ColumnHeader
|
||||
Friend WithEvents mnuAnzeige As System.Windows.Forms.MenuItem
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.lvDruckauftraege = New System.Windows.Forms.ListView
|
||||
Me.lvid_JobID = New System.Windows.Forms.ColumnHeader
|
||||
Me.lvid_Auftrag = New System.Windows.Forms.ColumnHeader
|
||||
Me.lvid_Typ = New System.Windows.Forms.ColumnHeader
|
||||
Me.lvid_Anzahl = New System.Windows.Forms.ColumnHeader
|
||||
Me.lvid_Status = New System.Windows.Forms.ColumnHeader
|
||||
Me.ContextMenu1 = New System.Windows.Forms.ContextMenu
|
||||
Me.mnuAnzeige = New System.Windows.Forms.MenuItem
|
||||
Me.mnuDurck = New System.Windows.Forms.MenuItem
|
||||
Me.MenuItem2 = New System.Windows.Forms.MenuItem
|
||||
Me.nmuDelete = New System.Windows.Forms.MenuItem
|
||||
Me.nmuRefresh = New System.Windows.Forms.MenuItem
|
||||
Me.StatusBar1 = New System.Windows.Forms.StatusBar
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'lvDruckauftraege
|
||||
'
|
||||
Me.lvDruckauftraege.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.lvid_JobID, Me.lvid_Auftrag, Me.lvid_Typ, Me.lvid_Anzahl, Me.lvid_Status})
|
||||
Me.lvDruckauftraege.ContextMenu = Me.ContextMenu1
|
||||
Me.lvDruckauftraege.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.lvDruckauftraege.FullRowSelect = True
|
||||
Me.lvDruckauftraege.GridLines = True
|
||||
Me.lvDruckauftraege.Location = New System.Drawing.Point(0, 0)
|
||||
Me.lvDruckauftraege.MultiSelect = False
|
||||
Me.lvDruckauftraege.Name = "lvDruckauftraege"
|
||||
Me.lvDruckauftraege.Size = New System.Drawing.Size(527, 134)
|
||||
Me.lvDruckauftraege.TabIndex = 2
|
||||
Me.lvDruckauftraege.UseCompatibleStateImageBehavior = False
|
||||
Me.lvDruckauftraege.View = System.Windows.Forms.View.Details
|
||||
'
|
||||
'lvid_JobID
|
||||
'
|
||||
Me.lvid_JobID.Text = "JobID"
|
||||
Me.lvid_JobID.Width = 0
|
||||
'
|
||||
'lvid_Auftrag
|
||||
'
|
||||
Me.lvid_Auftrag.Text = "Auftrag"
|
||||
Me.lvid_Auftrag.Width = 120
|
||||
'
|
||||
'lvid_Typ
|
||||
'
|
||||
Me.lvid_Typ.Text = "Typ"
|
||||
Me.lvid_Typ.Width = 90
|
||||
'
|
||||
'lvid_Anzahl
|
||||
'
|
||||
Me.lvid_Anzahl.Text = "Anzahl"
|
||||
Me.lvid_Anzahl.Width = 70
|
||||
'
|
||||
'lvid_Status
|
||||
'
|
||||
Me.lvid_Status.Text = "Status"
|
||||
Me.lvid_Status.Width = 180
|
||||
'
|
||||
'ContextMenu1
|
||||
'
|
||||
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuAnzeige, Me.mnuDurck, Me.MenuItem2, Me.nmuDelete, Me.nmuRefresh})
|
||||
'
|
||||
'mnuAnzeige
|
||||
'
|
||||
Me.mnuAnzeige.Index = 0
|
||||
Me.mnuAnzeige.Text = "Dokument Anzeigen"
|
||||
'
|
||||
'mnuDurck
|
||||
'
|
||||
Me.mnuDurck.Index = 1
|
||||
Me.mnuDurck.Text = "Drucken"
|
||||
'
|
||||
'MenuItem2
|
||||
'
|
||||
Me.MenuItem2.Index = 2
|
||||
Me.MenuItem2.Text = "-"
|
||||
'
|
||||
'nmuDelete
|
||||
'
|
||||
Me.nmuDelete.Index = 3
|
||||
Me.nmuDelete.Text = "Auftrag löschen"
|
||||
'
|
||||
'nmuRefresh
|
||||
'
|
||||
Me.nmuRefresh.Index = 4
|
||||
Me.nmuRefresh.Text = "Auftrag erneut anfordern"
|
||||
'
|
||||
'StatusBar1
|
||||
'
|
||||
Me.StatusBar1.Location = New System.Drawing.Point(0, 112)
|
||||
Me.StatusBar1.Name = "StatusBar1"
|
||||
Me.StatusBar1.Size = New System.Drawing.Size(527, 22)
|
||||
Me.StatusBar1.TabIndex = 3
|
||||
'
|
||||
'frmMehrfachdruck
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(527, 134)
|
||||
Me.ControlBox = False
|
||||
Me.Controls.Add(Me.StatusBar1)
|
||||
Me.Controls.Add(Me.lvDruckauftraege)
|
||||
Me.MaximizeBox = False
|
||||
Me.MinimizeBox = False
|
||||
Me.Name = "frmMehrfachdruck"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
|
||||
Me.Text = "Druckaufträge"
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Deklarationen "
|
||||
|
||||
|
||||
|
||||
'Dim _HashThreads As New Hashtable()
|
||||
'Dim _HashDruckanzeige As New Hashtable()
|
||||
|
||||
Dim tmpColColdData As Collection
|
||||
Dim tmpColOfficeData As Collection
|
||||
|
||||
Dim sAuftraNR As String
|
||||
|
||||
'PDF Drucken
|
||||
Dim printthread As Thread
|
||||
Dim printfilename As String
|
||||
|
||||
Dim m_MenuEintrag As Integer
|
||||
|
||||
Dim iJobCounter As Integer = 0
|
||||
Dim iJobID(1) As Integer 'Job ID's für den Office und Cold Thread
|
||||
|
||||
'Dim colDruckanzeige As New Collection()
|
||||
|
||||
|
||||
Private Enum enum_MehrfachdruckFeld
|
||||
Anzahl = 0
|
||||
Status = 1
|
||||
End Enum
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Formular "
|
||||
|
||||
Public Sub InitForm()
|
||||
Try
|
||||
Me.Visible = False
|
||||
StatusBar1.Text = "Druckspooler initialisieren"
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub InitAnzeige()
|
||||
If iMerker = 1 Then
|
||||
Exit Sub
|
||||
End If
|
||||
Try
|
||||
iMerker = 1
|
||||
|
||||
Dim ColTrans As ColorTranslator
|
||||
Thread.Sleep(1000)
|
||||
If lvDruckauftraege.Items.Count = 0 Then
|
||||
StatusBar1.Text = "keine Druckaufträge"
|
||||
If Me.Visible = True Then
|
||||
Me.Visible = False
|
||||
End If
|
||||
End If
|
||||
|
||||
'Anzeige aktualisieren
|
||||
'Dim coltmp As Collection
|
||||
Dim coltmp As Hashtable
|
||||
|
||||
coltmp = _HashDruckanzeige
|
||||
|
||||
Dim i As Integer
|
||||
i = 0
|
||||
|
||||
GenAnzeige(coltmp, i)
|
||||
'Try
|
||||
|
||||
' lvDruckauftraege.Items.Clear()
|
||||
' lvDruckauftraege.BeginUpdate()
|
||||
' Dim element As DictionaryEntry
|
||||
' For Each element In coltmp
|
||||
' 'For i = 1 To coltmp.Count
|
||||
' colSpooler = element.Value
|
||||
' 'colSpooler = coltmp(i)
|
||||
' lvDruckauftraege.Items.Add(colSpooler.JobID)
|
||||
' lvDruckauftraege.Items(i).SubItems.Add(colSpooler.AuftragNr)
|
||||
' lvDruckauftraege.Items(i).SubItems.Add(colSpooler.Typ)
|
||||
' lvDruckauftraege.Items(i).SubItems.Add(colSpooler.Anzahl)
|
||||
' lvDruckauftraege.Items(i).SubItems.Add(colSpooler.Status)
|
||||
' If colSpooler.Status = "Dokument bereit zum drucken" Then
|
||||
' 'grün
|
||||
' lvDruckauftraege.Items(i).BackColor = Color.FromArgb(255, 164, 253, 143)
|
||||
' End If
|
||||
' If colSpooler.Status = "Fehler beim Drucken" Then
|
||||
' 'rot
|
||||
' lvDruckauftraege.Items(i).BackColor = Color.FromArgb(255, 255, 174, 165)
|
||||
' End If
|
||||
' i &= 1
|
||||
' Next
|
||||
' lvDruckauftraege.EndUpdate()
|
||||
'Catch ex As Exception
|
||||
' MsgBox("Fehler4: " & ex.Message)
|
||||
'End Try
|
||||
Try
|
||||
'Statusbar aktualisieren
|
||||
If i > 0 Then
|
||||
Me.StatusBar1.Text = "Anzahl Druckaufträge " + i.ToString.Trim
|
||||
If Me.Visible = False Then
|
||||
Me.Top = Me.ParentForm.ClientSize.Height - Me.Height - 50
|
||||
Me.Left = Me.ParentForm.ClientSize.Width - Me.Width - 30
|
||||
minimize_all_childs()
|
||||
Me.Visible = True
|
||||
Else
|
||||
minimize_all_childs()
|
||||
End If
|
||||
Else
|
||||
StatusBar1.Text = "keine Druckaufträge"
|
||||
If Me.Visible = True Then
|
||||
Me.Visible = False
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler1: " & ex.Message)
|
||||
End Try
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler3: " & ex.Message)
|
||||
Finally
|
||||
iMerker = 0
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Delegate Sub GenCallBack(ByVal coltmp As Hashtable, ByRef i As Integer)
|
||||
Private Sub GenAnzeige(ByVal coltmp As Hashtable, ByRef i As Integer)
|
||||
Try
|
||||
'If Me.lvDruckauftraege.InvokeRequired = True Then
|
||||
' Dim dd As New GenCallBack(AddressOf GenAnzeige)
|
||||
' dd.Invoke(coltmp, i)
|
||||
'End If
|
||||
Dim colSpooler As clsSpooler_Data
|
||||
'lvDruckauftraege = New ListView()
|
||||
lvDruckauftraege.BeginUpdate()
|
||||
Try
|
||||
lvDruckauftraege.Items.Clear()
|
||||
Catch
|
||||
lvDruckauftraege = New ListView()
|
||||
Me.lvDruckauftraege.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.lvid_JobID, Me.lvid_Auftrag, Me.lvid_Typ, Me.lvid_Anzahl, Me.lvid_Status})
|
||||
Me.lvDruckauftraege.ContextMenu = Me.ContextMenu1
|
||||
Me.lvDruckauftraege.FullRowSelect = True
|
||||
Me.lvDruckauftraege.GridLines = True
|
||||
Me.lvDruckauftraege.MultiSelect = False
|
||||
Me.lvDruckauftraege.Name = "lvDruckauftraege"
|
||||
Me.lvDruckauftraege.Size = New System.Drawing.Size(480, 88)
|
||||
Me.lvDruckauftraege.TabIndex = 2
|
||||
Me.lvDruckauftraege.View = System.Windows.Forms.View.Details
|
||||
End Try
|
||||
|
||||
lvDruckauftraege.Sorting = SortOrder.None
|
||||
|
||||
Dim element As DictionaryEntry
|
||||
|
||||
For Each element In coltmp
|
||||
colSpooler = element.Value
|
||||
lvDruckauftraege.Items.Add(colSpooler.JobID.ToString.Trim)
|
||||
lvDruckauftraege.Items(i).SubItems.Add(colSpooler.AuftragNr)
|
||||
lvDruckauftraege.Items(i).SubItems.Add(colSpooler.Typ)
|
||||
lvDruckauftraege.Items(i).SubItems.Add(colSpooler.Anzahl)
|
||||
lvDruckauftraege.Items(i).SubItems.Add(colSpooler.Status)
|
||||
lvDruckauftraege.Items(i).ForeColor = Color.Black
|
||||
If colSpooler.Status = "Dokument bereit zum drucken" Then
|
||||
'grün
|
||||
lvDruckauftraege.Items(i).BackColor = Color.FromArgb(255, 164, 253, 143)
|
||||
End If
|
||||
If colSpooler.Status = "Fehler beim Drucken" Then
|
||||
'rot
|
||||
lvDruckauftraege.Items(i).BackColor = Color.FromArgb(255, 255, 174, 165)
|
||||
End If
|
||||
i = i + 1
|
||||
Next
|
||||
|
||||
lvDruckauftraege.EndUpdate()
|
||||
|
||||
'Dim Sorter As New clsListViewItemComparer(0)
|
||||
'lvDruckauftraege.ListViewItemSorter = Sorter
|
||||
'lvDruckauftraege.Sort()
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler GenAnzeige: " & ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub AnzeigePopup()
|
||||
Try
|
||||
minimize_all_childs()
|
||||
Me.Focus()
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Druck Funktionen "
|
||||
|
||||
Public Function DruckAnfrage(ByVal colColdData As Collection, ByVal colOfficeData As Collection)
|
||||
Try
|
||||
'Auftragsnummer generieren
|
||||
sAuftraNR = Now().ToString.Trim
|
||||
'JobID's zuweisen
|
||||
iJobCounter = iJobCounter + 1
|
||||
iJobID(0) = iJobCounter 'JobID Cold
|
||||
iJobCounter = iJobCounter + 1
|
||||
iJobID(1) = iJobCounter 'JobID Office
|
||||
|
||||
If colColdData.Count > 0 Then
|
||||
Dim MehrfachDruckColdThread As Thread
|
||||
tmpColColdData = colColdData
|
||||
MehrfachDruckColdThread = New Thread(AddressOf StartColdDruckJob)
|
||||
MehrfachDruckColdThread.IsBackground = True
|
||||
MehrfachDruckColdThread.Name = "EDOKA_MehrfachDruck_" + (iJobCounter - 1).ToString.Trim
|
||||
MehrfachDruckColdThread.Start()
|
||||
_HashThreads.Add(iJobCounter - 1, MehrfachDruckColdThread)
|
||||
End If
|
||||
|
||||
If colOfficeData.Count > 0 Then
|
||||
Dim MehrfachDruckEdokaThread As Thread
|
||||
tmpColOfficeData = colOfficeData
|
||||
MehrfachDruckEdokaThread = New Thread(AddressOf StartEdokaDruckJob)
|
||||
MehrfachDruckEdokaThread.IsBackground = True
|
||||
MehrfachDruckEdokaThread.Name = "EDOKA_MehrfachDruck_" + iJobCounter.ToString.Trim
|
||||
MehrfachDruckEdokaThread.Start()
|
||||
_HashThreads.Add(iJobCounter, MehrfachDruckEdokaThread)
|
||||
|
||||
End If
|
||||
Thread.Sleep(1500)
|
||||
InitAnzeige()
|
||||
AnzeigePopup()
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Sub StartColdDruckJob()
|
||||
Dim sThreadName As String
|
||||
Dim iColdJobID As Integer = iJobID(0)
|
||||
sThreadName = "EDOKA_MehrfachDruck_" + iColdJobID.ToString.Trim
|
||||
Try
|
||||
Dim tmpData As Collection
|
||||
Dim gendok As clsMehrfachdruck_Data
|
||||
Dim rReturn As Object
|
||||
|
||||
Dim timestamp As String
|
||||
Dim pdfFileName As String
|
||||
Dim sJobNummer As String
|
||||
|
||||
timestamp = Format(Now, "yyyyMMddHHmmss")
|
||||
sJobNummer = iColdJobID.ToString.Trim
|
||||
Do While Len(sJobNummer) < 4
|
||||
sJobNummer = "0" & sJobNummer
|
||||
Loop
|
||||
pdfFileName = timestamp + "_" + sJobNummer + ".pdf"
|
||||
tmpData = tmpColColdData
|
||||
|
||||
'colDruckanzeige.Add(New clsSpooler_Data(iColdJobID, sAuftraNR, "Cold-Druck", "Daten Aufbereitung", tmpData.Count.ToString.Trim, tmpData, Now(), 1, pdfFileName))
|
||||
Dim newDruckRow As New clsSpooler_Data(iColdJobID, sAuftraNR, "Cold-Druck", "Daten Aufbereitung", tmpData.Count.ToString.Trim, tmpData, Now(), 1, pdfFileName)
|
||||
_HashDruckanzeige.Add(iColdJobID, newDruckRow)
|
||||
|
||||
Console.WriteLine("StartColdDruckJob - JobID=" & iColdJobID.ToString)
|
||||
|
||||
'Wenn mehrere Dokumente gedruckt werden sollen
|
||||
Dim i As Integer
|
||||
Dim tmp1 As New DataTable()
|
||||
|
||||
tmp1.Columns.Add("DokumentId")
|
||||
tmp1.Columns.Add("PartnerNr")
|
||||
tmp1.Columns.Add("Typ")
|
||||
tmp1.Columns.Add("OfficeDokument")
|
||||
tmp1.Columns.Add("DokumentTyp")
|
||||
tmp1.Columns.Add("Auftragnr")
|
||||
tmp1.Columns.Add("PartnerName")
|
||||
tmp1.Columns.Add("Erstellungsdatum")
|
||||
|
||||
Dim row As DataRow
|
||||
|
||||
For i = 1 To tmpData.Count
|
||||
gendok = tmpData(i)
|
||||
row = tmp1.NewRow
|
||||
row.Item("Auftragnr") = gendok.Auftragnr
|
||||
row.Item("DokumentId") = gendok.DokumentId
|
||||
row.Item("DokumentTyp") = gendok.DokumentTyp
|
||||
row.Item("Erstellungsdatum") = gendok.Erstellungsdatum
|
||||
row.Item("OfficeDokument") = gendok.OfficeDokument
|
||||
row.Item("PartnerName") = gendok.PartnerName
|
||||
row.Item("PartnerNr") = gendok.PartnerNr
|
||||
Select Case gendok.Typ
|
||||
Case clsMehrfachdruck_Data.Enum_Typ.EDOKA
|
||||
row.Item("Typ") = 1
|
||||
Case clsMehrfachdruck_Data.Enum_Typ.HOST
|
||||
row.Item("Typ") = 2
|
||||
Case clsMehrfachdruck_Data.Enum_Typ.ZV
|
||||
row.Item("Typ") = 3
|
||||
End Select
|
||||
|
||||
tmp1.Rows.Add(row)
|
||||
Next
|
||||
|
||||
'Cold Dokumente
|
||||
For i = 1 To tmpData.Count
|
||||
gendok = tmpData(i)
|
||||
If gendok.OfficeDokument = False Then
|
||||
Try
|
||||
Journal_Dokumentzugriff(gendok.DokumentId, "COLD-Print (SA)", 1, Globals.Partnernr, Globals.PartnerKurzbezeichnung, gendok.DokumentTyp)
|
||||
Catch
|
||||
End Try
|
||||
End If
|
||||
Next
|
||||
|
||||
'Dokumente anfordern
|
||||
UpdateCollection(iColdJobID, enum_MehrfachdruckFeld.Status, "Cold-Dokument anfordern")
|
||||
Dim remoteObj As EDKB07Verarbeitung.EDKB07Verarbeitung.IEDKB07
|
||||
Dim Obj As New Object()
|
||||
Obj = Activator.GetObject( _
|
||||
GetType(EDKB07Verarbeitung.EDKB07Verarbeitung.IEDKB07), _
|
||||
System.Configuration.ConfigurationSettings.AppSettings("RemoteObjUrl"))
|
||||
|
||||
' Auf das Remote-Objekt durch die Schnittstelle zugreifen.
|
||||
remoteObj = CType(Obj, EDKB07Verarbeitung.EDKB07Verarbeitung.IEDKB07)
|
||||
Try
|
||||
remoteObj.GetColdMehrfachDruck(Globals.TGNummer, iColdJobID, tmp1, rReturn)
|
||||
'remoteObj = Nothing
|
||||
|
||||
'Dokument erhalten
|
||||
UpdateCollection(iColdJobID, enum_MehrfachdruckFeld.Status, "Cold-Dokument empfangen und speichern")
|
||||
|
||||
Try
|
||||
If rReturn.Length > 1 Then
|
||||
Dim fs As New FileStream(Globals.temppfad & pdfFileName, FileMode.OpenOrCreate, FileAccess.Write)
|
||||
fs.Write(rReturn, 0, rReturn.Length)
|
||||
fs.Close()
|
||||
fs = Nothing
|
||||
Dim s As String
|
||||
UpdateCollection(iColdJobID, enum_MehrfachdruckFeld.Status, "Dokument bereit zum drucken")
|
||||
Else
|
||||
UpdateCollection(iColdJobID, enum_MehrfachdruckFeld.Status, "Fehler beim Drucken")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Console.WriteLine("StartColdDruckJob - JobID=" & iColdJobID.ToString & " Fehler 1: " & ex.Message)
|
||||
UpdateCollection(iColdJobID, enum_MehrfachdruckFeld.Status, "Fehler beim Drucken")
|
||||
Finally
|
||||
InitAnzeige()
|
||||
AnzeigePopup()
|
||||
End Try
|
||||
|
||||
Catch ex As Exception
|
||||
Console.WriteLine("StartColdDruckJob - JobID=" & iColdJobID.ToString & " Fehler 2: " & ex.Message)
|
||||
UpdateCollection(iColdJobID, enum_MehrfachdruckFeld.Status, "Fehler beim Drucken")
|
||||
InitAnzeige()
|
||||
AnzeigePopup()
|
||||
End Try
|
||||
|
||||
Catch ex As Exception
|
||||
Console.WriteLine("StartColdDruckJob - JobID=" & iColdJobID.ToString & " Fehler 3: " & ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub StartEdokaDruckJob()
|
||||
Try
|
||||
Dim tmpData As Collection
|
||||
Dim iOfficeJobID As Integer = iJobID(1)
|
||||
Dim gendok As clsMehrfachdruck_Data
|
||||
tmpData = tmpColOfficeData
|
||||
|
||||
Console.WriteLine("StartEdokaDruckJob - JobID=" & iOfficeJobID.ToString)
|
||||
|
||||
'colDruckanzeige.Add(New clsSpooler_Data(iOfficeJobID, sAuftraNR, "Office-Druck", "am drucken", tmpData.Count.ToString.Trim, tmpData, Now(), 1, ""))
|
||||
Dim newDruckRow As New clsSpooler_Data(iOfficeJobID, sAuftraNR, "Office-Druck", "am drucken", tmpData.Count.ToString.Trim, tmpData, Now(), 1, "")
|
||||
_HashDruckanzeige.Add(iOfficeJobID, newDruckRow)
|
||||
|
||||
|
||||
Thread.Sleep(2000)
|
||||
|
||||
'Office Dokumente
|
||||
Dim i As Integer
|
||||
For i = 1 To tmpData.Count
|
||||
gendok = tmpData(i)
|
||||
If gendok.OfficeDokument = True Then
|
||||
Console.WriteLine("StartEdokaDruckJob - Vor Drucken=" & iOfficeJobID.ToString)
|
||||
'DivFnkt.print_office(gendok.DokumentId, Nothing, False)
|
||||
Console.WriteLine("StartEdokaDruckJob - Nach Drucken=" & iOfficeJobID.ToString)
|
||||
'Druckauftrag anpassen
|
||||
UpdateCollection(iOfficeJobID, enum_MehrfachdruckFeld.Anzahl, i.ToString.Trim + " von " + tmpData.Count.ToString.Trim)
|
||||
If i = tmpData.Count Then
|
||||
UpdateCollection(iOfficeJobID, enum_MehrfachdruckFeld.Status, "gedruckt")
|
||||
End If
|
||||
InitAnzeige()
|
||||
End If
|
||||
Next
|
||||
'Eintrag Löschen
|
||||
DeleteEntryCollection(iOfficeJobID)
|
||||
Catch ex As Exception
|
||||
Console.WriteLine("StartEdokaDruckJob - Fehler =" & ex.Message)
|
||||
'MsgBox(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " PDF Drucken"
|
||||
'Designd by SHU
|
||||
|
||||
'Private Sub print_pdf(ByVal spfad As String)
|
||||
' 'Druckt ein PDF in einem neuen Thread
|
||||
' printfilename = New String(spfad)
|
||||
' printthread = New Thread(AddressOf start_print_pdf)
|
||||
' printthread.Start()
|
||||
'End Sub
|
||||
|
||||
|
||||
''Dim WithEvents pdfprinter As frmPDF_Printer
|
||||
''Dim Print_Active As Boolean
|
||||
'Private Sub start_print_pdf()
|
||||
' Dim objpdf As New clsPDF_print_show()
|
||||
' objpdf.PrintPDF(printfilename, clsPDF_print_show.Enum_Art.Drucken)
|
||||
' 'pdfprinter = New frmPDF_Printer(printfilename, False) '0
|
||||
' 'pdfprinter.Prepare_Form()
|
||||
' 'Application.DoEvents()
|
||||
' 'Print_Active = True
|
||||
' 'pdfprinter.PrintPDF()
|
||||
' delay(5)
|
||||
'End Sub
|
||||
|
||||
'Private Sub delay(ByVal seconds As Integer)
|
||||
' Me.Cursor = Cursors.WaitCursor
|
||||
' Dim starttime As DateTime = DateTime.Now
|
||||
' Do
|
||||
' Application.DoEvents()
|
||||
' Loop While DateTime.Now.Subtract(starttime).TotalSeconds < seconds
|
||||
' Me.Cursor = Cursors.Default
|
||||
'End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Collection Funktionen"
|
||||
|
||||
Private Sub UpdateCollection(ByVal iJobID As Integer, ByVal iTyp As enum_MehrfachdruckFeld, ByVal sWert As String)
|
||||
'Wert in der Collection updaten
|
||||
Try
|
||||
Dim i As Integer
|
||||
Dim colSpooler As clsSpooler_Data
|
||||
Dim element As DictionaryEntry
|
||||
For Each element In _HashDruckanzeige
|
||||
colSpooler = element.Value
|
||||
If colSpooler.JobID = iJobID Then
|
||||
Select Case iTyp
|
||||
Case enum_MehrfachdruckFeld.Anzahl
|
||||
colSpooler.Anzahl = sWert
|
||||
Case enum_MehrfachdruckFeld.Status
|
||||
colSpooler.Status = sWert
|
||||
End Select
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub DeleteEntryCollection(ByVal iJobID As Integer)
|
||||
'Eintrag aus der Collection entfernen
|
||||
Try
|
||||
Dim i As Integer
|
||||
Dim colSpooler As clsSpooler_Data
|
||||
Dim element As DictionaryEntry
|
||||
For Each element In _HashDruckanzeige
|
||||
colSpooler = element.Value
|
||||
If colSpooler.JobID = iJobID Then
|
||||
_HashDruckanzeige.Remove(iJobID)
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
Thread.Sleep(1000)
|
||||
InitAnzeige()
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Function GetDataFromColl(ByVal OrgColl As Hashtable, ByVal JobID As Integer) As Collection
|
||||
Try
|
||||
Dim tmpData As Hashtable
|
||||
Dim i As Integer
|
||||
Dim gendok As clsSpooler_Data
|
||||
|
||||
tmpData = OrgColl
|
||||
Dim element As DictionaryEntry
|
||||
For Each element In _HashDruckanzeige
|
||||
gendok = element.Value
|
||||
If gendok.JobID = JobID Then
|
||||
'JobID gefunden
|
||||
GetDataFromColl = gendok.Data
|
||||
Exit Try
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Function GetDateiNameFromColl(ByVal OrgColl As Hashtable, ByVal JobID As Integer) As String
|
||||
Try
|
||||
Dim tmpData As Hashtable
|
||||
Dim i As Integer
|
||||
Dim gendok As clsSpooler_Data
|
||||
|
||||
tmpData = OrgColl
|
||||
Dim element As DictionaryEntry
|
||||
For Each element In _HashDruckanzeige
|
||||
gendok = element.Value
|
||||
If gendok.JobID = JobID Then
|
||||
'JobID gefunden
|
||||
GetDateiNameFromColl = gendok.DateiName
|
||||
Exit Try
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Menufunktionen"
|
||||
|
||||
Private Sub nmuDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nmuDelete.Click
|
||||
Try
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Dim iJobID As Integer
|
||||
iJobID = lvDruckauftraege.Items(m_MenuEintrag).SubItems(0).Text
|
||||
|
||||
Console.WriteLine("nmuDelete_Click =" & m_MenuEintrag.ToString & " JobID " & iJobID.ToString)
|
||||
|
||||
Try
|
||||
Dim MehrfachDruckThread As Thread
|
||||
MehrfachDruckThread = _HashThreads.Item(iJobID)
|
||||
MehrfachDruckThread.Abort()
|
||||
Catch ex As Exception
|
||||
Console.WriteLine("nmuDelete_Click 1=" & m_MenuEintrag.ToString & ex.Message)
|
||||
End Try
|
||||
DeleteEntryCollection(iJobID)
|
||||
Catch ex As Exception
|
||||
Console.WriteLine("nmuDelete_Click 2=" & m_MenuEintrag.ToString & ex.Message)
|
||||
Finally
|
||||
Me.Cursor = Cursors.Default
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub nmuRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nmuRefresh.Click
|
||||
Try
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Dim tmpCollData As New Collection()
|
||||
Dim tmpCollLeer As New Collection()
|
||||
'tmpCollData = GetDataFromColl(colDruckanzeige, lvDruckauftraege.Items(m_MenuEintrag).SubItems(0).Text)
|
||||
tmpCollData = GetDataFromColl(_HashDruckanzeige, lvDruckauftraege.Items(m_MenuEintrag).SubItems(0).Text)
|
||||
|
||||
If lvDruckauftraege.Items(m_MenuEintrag).SubItems(2).Text = "Cold-Druck" Then
|
||||
DruckAnfrage(tmpCollData, tmpCollLeer)
|
||||
Else
|
||||
DruckAnfrage(tmpCollLeer, tmpCollData)
|
||||
End If
|
||||
|
||||
If lvDruckauftraege.Items(m_MenuEintrag).SubItems(4).Text = "Fehler beim Drucken" Then
|
||||
DeleteEntryCollection(lvDruckauftraege.Items(m_MenuEintrag).SubItems(0).Text())
|
||||
Else
|
||||
InitAnzeige()
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
Finally
|
||||
Me.Cursor = Cursors.Default
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub mnuAnzeige_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuAnzeige.Click
|
||||
Dim iJobID As Integer
|
||||
Try
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Dim tmpCollData As New Collection()
|
||||
Dim tmpCollLeer As New Collection()
|
||||
Dim sDateiName As String
|
||||
|
||||
iJobID = lvDruckauftraege.Items(m_MenuEintrag).SubItems(0).Text
|
||||
|
||||
sDateiName = GetDateiNameFromColl(_HashDruckanzeige, iJobID)
|
||||
sDateiName = Globals.temppfad & sDateiName
|
||||
|
||||
'Dokument Drucken
|
||||
UpdateCollection(iJobID, enum_MehrfachdruckFeld.Status, "Cold-Dokument drucken")
|
||||
|
||||
Dim objpdf As New clsPDF_print_show()
|
||||
objpdf.PrintPDF(sDateiName, clsPDF_print_show.Enum_Art.Anzeigen)
|
||||
'print_pdf(sDateiName)
|
||||
|
||||
'Abgeschlossen
|
||||
UpdateCollection(iJobID, enum_MehrfachdruckFeld.Status, "gedruckt")
|
||||
|
||||
'Eintrag Löschen
|
||||
DeleteEntryCollection(iJobID)
|
||||
|
||||
Catch ex As Exception
|
||||
UpdateCollection(iJobID, enum_MehrfachdruckFeld.Status, "Fehler beim ausdrucken")
|
||||
Finally
|
||||
Me.Cursor = Cursors.Default
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub mnuDurck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuDurck.Click
|
||||
Dim iJobID As Integer
|
||||
Try
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Dim tmpCollData As New Collection()
|
||||
Dim tmpCollLeer As New Collection()
|
||||
Dim sDateiName As String
|
||||
|
||||
iJobID = lvDruckauftraege.Items(m_MenuEintrag).SubItems(0).Text
|
||||
|
||||
sDateiName = GetDateiNameFromColl(_HashDruckanzeige, iJobID)
|
||||
sDateiName = Globals.temppfad & sDateiName
|
||||
|
||||
'Dokument Drucken
|
||||
UpdateCollection(iJobID, enum_MehrfachdruckFeld.Status, "Cold-Dokument drucken")
|
||||
|
||||
Dim objpdf As New clsPDF_print_show()
|
||||
objpdf.PrintPDF(sDateiName, clsPDF_print_show.Enum_Art.Drucken)
|
||||
'print_pdf(sDateiName)
|
||||
|
||||
'Abgeschlossen
|
||||
UpdateCollection(iJobID, enum_MehrfachdruckFeld.Status, "gedruckt")
|
||||
|
||||
'Eintrag Löschen
|
||||
DeleteEntryCollection(iJobID)
|
||||
|
||||
Catch ex As Exception
|
||||
UpdateCollection(iJobID, enum_MehrfachdruckFeld.Status, "Fehler beim ausdrucken")
|
||||
Finally
|
||||
Me.Cursor = Cursors.Default
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub ContextMenu1_Popup(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextMenu1.Popup
|
||||
Try
|
||||
|
||||
m_MenuEintrag = lvDruckauftraege.SelectedItems.Item(0).Index
|
||||
Console.WriteLine("ContextMenu1_Popup =" & m_MenuEintrag.ToString)
|
||||
If lvDruckauftraege.Items(m_MenuEintrag).SubItems(2).Text = "Cold-Druck" Then
|
||||
If lvDruckauftraege.Items(m_MenuEintrag).SubItems(4).Text = "Dokument bereit zum drucken" Or _
|
||||
lvDruckauftraege.Items(m_MenuEintrag).SubItems(4).Text = "Fehler beim ausdrucken" Then
|
||||
mnuAnzeige.Enabled = True
|
||||
mnuDurck.Enabled = True
|
||||
Else
|
||||
mnuAnzeige.Enabled = False
|
||||
mnuDurck.Enabled = False
|
||||
End If
|
||||
Else
|
||||
mnuAnzeige.Enabled = False
|
||||
mnuDurck.Enabled = False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Diverse Funktionen"
|
||||
|
||||
Private Sub minimize_all_childs()
|
||||
Dim c As Form
|
||||
For Each c In Me.ParentForm.MdiChildren
|
||||
c.WindowState = FormWindowState.Normal
|
||||
Next
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Private Function Journal_Dokumentzugriff(ByVal dokumentid As String, ByVal zugriffsart As String, ByVal host As Integer, ByVal partnernr As Integer, ByVal partner_kurzbezeichnung As String, ByVal dokumenttyp As String)
|
||||
Dim scmCmdToExecute As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand()
|
||||
Dim i As Integer
|
||||
Dim connopen As Boolean = False
|
||||
scmCmdToExecute.CommandText = "dbo.sp_journal_dokzugriffe"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
'If host = 0 Then
|
||||
' 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("@zugriffsart", SqlDbType.VarChar, 25, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, zugriffsart))
|
||||
' scmCmdToExecute.Parameters.Add(New SqlParameter("@host", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
||||
' scmCmdToExecute.Parameters.Add(New SqlParameter("@partnernr", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
||||
' scmCmdToExecute.Parameters.Add(New SqlParameter("@partnerkbez", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 35, 0, "", DataRowVersion.Proposed, ""))
|
||||
' scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttyp", SqlDbType.VarChar, 128, ParameterDirection.Input, True, 35, 0, "", DataRowVersion.Proposed, ""))
|
||||
'Else
|
||||
scmCmdToExecute.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
|
||||
scmCmdToExecute.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.Mitarbeiternr))
|
||||
scmCmdToExecute.Parameters.Add(New System.Data.SqlClient.SqlParameter("@zugriffsart", SqlDbType.VarChar, 25, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, zugriffsart))
|
||||
scmCmdToExecute.Parameters.Add(New System.Data.SqlClient.SqlParameter("@host", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
|
||||
scmCmdToExecute.Parameters.Add(New System.Data.SqlClient.SqlParameter("@partnernr", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, partnernr))
|
||||
scmCmdToExecute.Parameters.Add(New System.Data.SqlClient.SqlParameter("@partnerkbez", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 35, 0, "", DataRowVersion.Proposed, partner_kurzbezeichnung))
|
||||
scmCmdToExecute.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumenttyp", SqlDbType.VarChar, 128, ParameterDirection.Input, True, 35, 0, "", DataRowVersion.Proposed, dokumenttyp))
|
||||
'End If
|
||||
Try
|
||||
scmCmdToExecute.Connection.Open()
|
||||
connopen = True
|
||||
Catch
|
||||
End Try
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
If connopen Then
|
||||
Try
|
||||
scmCmdToExecute.Connection.Close()
|
||||
Catch
|
||||
End Try
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
Finally
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Sub frmMehrfachdruck_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,202 @@
|
||||
' //////////////////////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Base class for Database Interaction.
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Dienstag, 26. November 2002, 22:32:48
|
||||
' // Because this class implements IDisposable, derived classes shouldn't do so.
|
||||
' //////////////////////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Configuration
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Data.SqlTypes
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Error Enums used by this LLBL library.
|
||||
' /// </summary>
|
||||
Public Enum LLBLError
|
||||
AllOk
|
||||
' // Add more here (check the comma's!)
|
||||
End Enum
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: General interface of the API generated. Contains only common methods of all classes.
|
||||
' /// </summary>
|
||||
Public Interface ICommonDBAccess
|
||||
Function Insert() As Boolean
|
||||
Function Update() As Boolean
|
||||
Function Delete() As Boolean
|
||||
Function SelectOne() As DataTable
|
||||
Function SelectAll() As DataTable
|
||||
End Interface
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Abstract base class for Database Interaction classes.
|
||||
' /// </summary>
|
||||
Public MustInherit Class clsDBInteractionBase
|
||||
Implements IDisposable
|
||||
Implements ICommonDBAccess
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Protected m_scoMainConnection As SqlConnection
|
||||
Protected m_iErrorCode As SqlInt32
|
||||
Protected m_bMainConnectionIsCreatedLocal As Boolean
|
||||
Protected m_cpMainConnectionProvider As clsConnectionProvider
|
||||
Private m_sConnectionString As String
|
||||
Private m_bIsDisposed As Boolean
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Initialize the class' members.
|
||||
InitClass()
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Initializes class members.
|
||||
' /// </summary>
|
||||
Private Sub InitClass()
|
||||
' // create all the objects and initialize other members.
|
||||
m_scoMainConnection = new SqlConnection()
|
||||
m_bMainConnectionIsCreatedLocal = True
|
||||
m_cpMainConnectionProvider = Nothing
|
||||
m_iErrorCode = New SqlInt32(LLBLError.AllOk)
|
||||
m_bIsDisposed = False
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the IDispose' method Dispose.
|
||||
' /// </summary>
|
||||
Overloads Public Sub Dispose() Implements IDisposable.Dispose
|
||||
Dispose(True)
|
||||
GC.SuppressFinalize(Me)
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the Dispose functionality.
|
||||
' /// </summary>
|
||||
Overridable Overloads Protected Sub Dispose(ByVal bIsDisposing As Boolean)
|
||||
' // Check to see if Dispose has already been called.
|
||||
If Not m_bIsDisposed Then
|
||||
If bIsDisposing Then
|
||||
' // Dispose managed resources.
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Object is created in this class, so destroy it here.
|
||||
m_scoMainConnection.Close()
|
||||
m_scoMainConnection.Dispose()
|
||||
m_bMainConnectionIsCreatedLocal = True
|
||||
End If
|
||||
m_cpMainConnectionProvider = Nothing
|
||||
m_scoMainConnection = Nothing
|
||||
End If
|
||||
End If
|
||||
m_bIsDisposed = True
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.Insert() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function Insert() As Boolean Implements ICommonDBAccess.Insert
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.Delete() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function Delete() As Boolean Implements ICommonDBAccess.Delete
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.Update() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function Update() As Boolean Implements ICommonDBAccess.Update
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.SelectOne() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function SelectOne() As DataTable Implements ICommonDBAccess.SelectOne
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.SelectAll() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function SelectAll() As DataTable Implements ICommonDBAccess.SelectAll
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public WriteOnly Property cpMainConnectionProvider() As clsConnectionProvider
|
||||
Set(ByVal Value As clsConnectionProvider)
|
||||
If Value Is Nothing Then
|
||||
' // Invalid value
|
||||
Throw New ArgumentNullException("cpMainConnectionProvider", "Nothing passed as value to this property which is not allowed.")
|
||||
End If
|
||||
|
||||
' // A connection provider object is passed to this class.
|
||||
' // Retrieve the SqlConnection object, if present and create a
|
||||
' // reference to it. If there is already a MainConnection object
|
||||
' // referenced by the membervar, destroy that one or simply
|
||||
' // remove the reference, based on the flag.
|
||||
If Not (m_scoMainConnection Is Nothing) Then
|
||||
' // First get rid of current connection object. Caller is responsible
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Is local created object, close it and dispose it.
|
||||
m_scoMainConnection.Close()
|
||||
m_scoMainConnection.Dispose()
|
||||
End If
|
||||
' // Remove reference.
|
||||
m_scoMainConnection = Nothing
|
||||
End If
|
||||
m_cpMainConnectionProvider = CType(Value, clsConnectionProvider)
|
||||
m_scoMainConnection = m_cpMainConnectionProvider.scoDBConnection
|
||||
m_bMainConnectionIsCreatedLocal = False
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public ReadOnly Property iErrorCode() As SqlInt32
|
||||
Get
|
||||
Return m_iErrorCode
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
Public Property sConnectionString() As String
|
||||
Get
|
||||
Return m_sConnectionString
|
||||
End Get
|
||||
Set (ByVal Value As String)
|
||||
m_sConnectionString = Value
|
||||
m_scoMainConnection.ConnectionString = m_sConnectionString
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 338 B |
@@ -0,0 +1,5 @@
|
||||
<?xml version="1.0" standalone="yes"?>
|
||||
<Configuration>
|
||||
<Packagegroesse>100</Packagegroesse>
|
||||
<DelayTime>30</DelayTime>
|
||||
</Configuration>
|
||||
Binary file not shown.
@@ -0,0 +1,174 @@
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace edokadb
|
||||
Public Class clsMyPartner
|
||||
Public Function search_partner(ByVal query As String, ByVal anzahl As String, ByVal fnkt As Integer) As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim table As String = "dbo.partner"
|
||||
scmCmdToExecute.CommandText = "dbo.[sp_partner_search]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = New DataTable("partner")
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@query", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, query))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@table", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, table))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@anz", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, anzahl))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, fnkt))
|
||||
scmCmdToExecute.Connection.Open()
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsMyPartner::sp_partner_search::Error occured." + ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Connection.Close()
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function search_doppelte_partner(ByVal query As String, ByVal table As String, ByVal fnkt As Integer) As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[sp_partner_search]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = New DataTable("partner")
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@query", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, query))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@table", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, table))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@anz", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 4))
|
||||
scmCmdToExecute.Connection.Open()
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsMyPartner::sp_partner_search::Error occured." + ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Connection.Close()
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
Public Function Partner_Detail(ByVal nrpar00 As String) As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim table As String = "dbo.partner"
|
||||
scmCmdToExecute.CommandText = "dbo.[sp_partner_detail]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = New DataTable("partner")
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
|
||||
scmCmdToExecute.Connection.Open()
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsMyPartner::sp_partner_detail::Error occured." + ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Connection.Close()
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function Partner_VV(ByVal nrpar00 As String) As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim table As String = "dbo.partner"
|
||||
scmCmdToExecute.CommandText = "dbo.[sp_partner_vv]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = New DataTable("partner")
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
|
||||
scmCmdToExecute.Connection.Open()
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsMyPartner::sp_partner_vv::Error occured." + ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Connection.Close()
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function Partner_Gebdat(ByVal nrpar00 As String) As String
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim table As String = "dbo.partner"
|
||||
scmCmdToExecute.CommandText = "dbo.[sp_partner_gebdat]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = New DataTable("partner")
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@gebdat", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
||||
scmCmdToExecute.Connection.Open()
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
|
||||
Return scmCmdToExecute.Parameters("@gebdat").Value
|
||||
Catch ex As Exception
|
||||
' MsgBox(ex.Message)
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
' Throw New Exception("clsMyPartner::sp_partner_vv::Error occured." + ex.Message, ex)
|
||||
Return ""
|
||||
Finally
|
||||
scmCmdToExecute.Connection.Close()
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function Partner_Betreuer(ByVal nrpar00 As String) As String
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim table As String = "dbo.partner"
|
||||
scmCmdToExecute.CommandText = "dbo.[sp_partner_betreuer]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = New DataTable("partner")
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@betreuer", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
||||
scmCmdToExecute.Connection.Open()
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Return scmCmdToExecute.Parameters("@betreuer").Value
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsMyPartner::sp_partner_vv::Error occured." + ex.Message, ex)
|
||||
Return ""
|
||||
Finally
|
||||
scmCmdToExecute.Connection.Close()
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
dtToReturn.Dispose()
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 397 B |
@@ -0,0 +1,117 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
Binary file not shown.
@@ -0,0 +1,289 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Connection Provider class for Database connection sharing
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Dienstag, 26. November 2002, 22:32:48
|
||||
' // This class implements IDisposable.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Configuration
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Collections
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: provides a SqlConnection object which can be shared among data-access tier objects
|
||||
' /// to provide a way to do ADO.NET transaction coding without the hassling with SqlConnection objects
|
||||
' /// on a high level.
|
||||
' /// </summary>
|
||||
Public Class clsConnectionProvider
|
||||
Implements IDisposable
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_scoDBConnection As SqlConnection
|
||||
Private m_bIsTransactionPending, m_bIsDisposed As Boolean
|
||||
Private m_stCurrentTransaction As SqlTransaction
|
||||
Private m_alSavePoints As ArrayList
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Public Sub New()
|
||||
' // Init the class
|
||||
InitClass()
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the IDispose' method Dispose.
|
||||
' /// </summary>
|
||||
Overloads Public Sub Dispose() Implements IDisposable.Dispose
|
||||
Dispose(True)
|
||||
GC.SuppressFinalize(Me)
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the Dispose functionality.
|
||||
' /// </summary>
|
||||
Overridable Overloads Protected Sub Dispose(ByVal bIsDisposing As Boolean)
|
||||
' // Check to see if Dispose has already been called.
|
||||
If Not m_bIsDisposed Then
|
||||
If bIsDisposing Then
|
||||
' // Dispose managed resources.
|
||||
If Not (m_stCurrentTransaction Is Nothing) Then
|
||||
m_stCurrentTransaction.Dispose()
|
||||
m_stCurrentTransaction = Nothing
|
||||
End If
|
||||
If Not (m_scoDBConnection Is Nothing) Then
|
||||
' // closing the connection will abort (rollback) any pending transactions
|
||||
m_scoDBConnection.Close()
|
||||
m_scoDBConnection.Dispose()
|
||||
m_scoDBConnection = Nothing
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
m_bIsDisposed = True
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Initializes class members.
|
||||
' /// </summary>
|
||||
Private Sub InitClass()
|
||||
' // Create all the objects and initialize other members.
|
||||
m_scoDBConnection = new SqlConnection()
|
||||
m_bIsDisposed = False
|
||||
m_stCurrentTransaction = Nothing
|
||||
m_bIsTransactionPending = False
|
||||
m_alSavePoints = new ArrayList()
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Opens the connection object.
|
||||
' /// </summary>
|
||||
' /// <returns>True, if succeeded, otherwise an Exception exception is thrown.</returns>
|
||||
Public Function OpenConnection() As Boolean
|
||||
Try
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) > 0 Then
|
||||
' // It's already open.
|
||||
Throw New Exception("OpenConnection::Connection is already open.")
|
||||
End If
|
||||
m_scoDBConnection.Open()
|
||||
m_bIsTransactionPending = False
|
||||
m_alSavePoints.Clear()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Starts a new ADO.NET transaction using the open connection object of this class.
|
||||
' /// </summary>
|
||||
' /// <param name="sTransactionName">Name of the transaction to start</param>
|
||||
' /// <returns>True, if transaction is started correctly, otherwise an Exception exception is thrown</returns>
|
||||
Public Function BeginTransaction(sTransactionName As String) As Boolean
|
||||
Try
|
||||
If m_bIsTransactionPending Then
|
||||
' // no nested transactions allowed.
|
||||
Throw New Exception("BeginTransaction::Already transaction pending. Nesting not allowed")
|
||||
End If
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // no open connection
|
||||
Throw New Exception("BeginTransaction::Connection is not open.")
|
||||
End If
|
||||
' // begin the transaction and store the transaction object.
|
||||
m_stCurrentTransaction = m_scoDBConnection.BeginTransaction(IsolationLevel.ReadCommitted, sTransactionName)
|
||||
m_bIsTransactionPending = True
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Commits a pending transaction on the open connection object of this class.
|
||||
' /// </summary>
|
||||
' /// <returns>True, if commit was succesful, or an Exception exception is thrown</returns>
|
||||
Public Function CommitTransaction() As Boolean
|
||||
Try
|
||||
If Not m_bIsTransactionPending Then
|
||||
' // no transaction pending
|
||||
Throw New Exception("CommitTransaction::No transaction pending.")
|
||||
End If
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // no open connection
|
||||
Throw New Exception("CommitTransaction::Connection is not open.")
|
||||
End if
|
||||
' // commit the transaction
|
||||
m_stCurrentTransaction.Commit()
|
||||
m_bIsTransactionPending = False
|
||||
m_stCurrentTransaction.Dispose()
|
||||
m_stCurrentTransaction = Nothing
|
||||
m_alSavePoints.Clear()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Rolls back a pending transaction on the open connection object of this class,
|
||||
' /// or rolls back to the savepoint with the given name. Savepoints are created with SaveTransaction().
|
||||
' /// </summary>
|
||||
' /// <param name="sTransactionToRollback">Name of transaction to roll back. Can be name of savepoint</param>
|
||||
' /// <returns>True, if rollback was succesful, or an Exception exception is thrown</returns>
|
||||
Public Function RollbackTransaction(sTransactionToRollback As String) As Boolean
|
||||
Try
|
||||
If Not m_bIsTransactionPending Then
|
||||
' // no transaction pending
|
||||
Throw New Exception("RollbackTransaction::No transaction pending.")
|
||||
End If
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // no open connection
|
||||
Throw New Exception("RollbackTransaction::Connection is not open.")
|
||||
End If
|
||||
' // rollback the transaction
|
||||
m_stCurrentTransaction.Rollback(sTransactionToRollback)
|
||||
' // if this wasn't a savepoint, we've rolled back the complete transaction, so we
|
||||
' // can clean it up.
|
||||
If Not m_alSavePoints.Contains(sTransactionToRollback) Then
|
||||
' // it's not a savepoint
|
||||
m_bIsTransactionPending = False
|
||||
m_stCurrentTransaction.Dispose()
|
||||
m_stCurrentTransaction = Nothing
|
||||
m_alSavePoints.Clear()
|
||||
End If
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Saves a pending transaction on the open connection object of this class to a 'savepoint'
|
||||
' /// with the given name.
|
||||
' /// When a rollback is issued, the caller can rollback to this savepoint or roll back the complete transaction.
|
||||
' /// </summary>
|
||||
' /// <param name="sSavePointName">Name of the savepoint to store the current transaction under.</param>
|
||||
' /// <returns>True, if save was succesful, or an Exception exception is thrown</returns>
|
||||
Public Function SaveTransaction(sSavePointName As String) As Boolean
|
||||
Try
|
||||
If Not m_bIsTransactionPending Then
|
||||
' // no transaction pending
|
||||
Throw New Exception("SaveTransaction::No transaction pending.")
|
||||
End If
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // no open connection
|
||||
Throw New Exception("SaveTransaction::Connection is not open.")
|
||||
End If
|
||||
' // save the transaction
|
||||
m_stCurrentTransaction.Save(sSavePointName)
|
||||
' // Store the savepoint in the list.
|
||||
m_alSavePoints.Add(sSavePointName)
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Closes the open connection. Depending on bCommitPendingTransactions, a pending
|
||||
' /// transaction is commited, or aborted.
|
||||
' /// </summary>
|
||||
' /// <param name="bCommitPendingTransaction">Flag for what to do when a transaction is still pending. True
|
||||
' /// will commit the current transaction, False will abort (rollback) the complete current transaction.</param>
|
||||
' /// <returns>True, if close was succesful, False if connection was already closed, or an Exception exception is thrown when
|
||||
' /// an error occurs</returns>
|
||||
Public Function CloseConnection(bCommitPendingTransaction As Boolean) As Boolean
|
||||
Try
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // No open connection
|
||||
Return False
|
||||
End If
|
||||
If m_bIsTransactionPending Then
|
||||
If bCommitPendingTransaction Then
|
||||
' // Commit the pending transaction
|
||||
m_stCurrentTransaction.Commit()
|
||||
Else
|
||||
' // Rollback the pending transaction
|
||||
m_stCurrentTransaction.Rollback()
|
||||
End If
|
||||
m_bIsTransactionPending = False
|
||||
m_stCurrentTransaction.Dispose()
|
||||
m_stCurrentTransaction = Nothing
|
||||
m_alSavePoints.Clear()
|
||||
End If
|
||||
' // close the connection
|
||||
m_scoDBConnection.Close()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public ReadOnly Property stCurrentTransaction() As SqlTransaction
|
||||
Get
|
||||
Return m_stCurrentTransaction
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
Public ReadOnly Property bIsTransactionPending() As Boolean
|
||||
Get
|
||||
Return m_bIsTransactionPending
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
Public ReadOnly Property scoDBConnection() As SqlConnection
|
||||
Get
|
||||
Return m_scoDBConnection
|
||||
End Get
|
||||
End Property
|
||||
Public WriteOnly Property sConnectionString() As String
|
||||
Set (ByVal Value As String)
|
||||
m_scoDBConnection.ConnectionString = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
@@ -0,0 +1,853 @@
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.ComponentModel
|
||||
|
||||
Public Class FrmPartnersuche
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
#Region " Vom Windows Form Designer generierter Code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
||||
|
||||
End Sub
|
||||
|
||||
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
If Not (components Is Nothing) Then
|
||||
components.Dispose()
|
||||
End If
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
' Für Windows Form-Designer erforderlich
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
||||
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
||||
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
||||
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button2 As System.Windows.Forms.Button
|
||||
Friend WithEvents BUtton3 As System.Windows.Forms.Button
|
||||
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
||||
Friend WithEvents PartnerList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
|
||||
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||
Friend WithEvents TextBox5 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents Label6 As System.Windows.Forms.Label
|
||||
Friend WithEvents Button6 As System.Windows.Forms.Button
|
||||
Friend WithEvents Label7 As System.Windows.Forms.Label
|
||||
Friend WithEvents Timer1 As System.Windows.Forms.Timer
|
||||
Friend WithEvents Label8 As System.Windows.Forms.Label
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmPartnersuche))
|
||||
Me.TextBox1 = New System.Windows.Forms.TextBox
|
||||
Me.Label1 = New System.Windows.Forms.Label
|
||||
Me.Label2 = New System.Windows.Forms.Label
|
||||
Me.TextBox2 = New System.Windows.Forms.TextBox
|
||||
Me.Label3 = New System.Windows.Forms.Label
|
||||
Me.TextBox3 = New System.Windows.Forms.TextBox
|
||||
Me.Label4 = New System.Windows.Forms.Label
|
||||
Me.TextBox4 = New System.Windows.Forms.TextBox
|
||||
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||||
Me.Button1 = New System.Windows.Forms.Button
|
||||
Me.Button2 = New System.Windows.Forms.Button
|
||||
Me.BUtton3 = New System.Windows.Forms.Button
|
||||
Me.PartnerList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Me.ContextMenu1 = New System.Windows.Forms.ContextMenu
|
||||
Me.MenuItem1 = New System.Windows.Forms.MenuItem
|
||||
Me.MenuItem2 = New System.Windows.Forms.MenuItem
|
||||
Me.MenuItem3 = New System.Windows.Forms.MenuItem
|
||||
Me.MenuItem4 = New System.Windows.Forms.MenuItem
|
||||
Me.Label5 = New System.Windows.Forms.Label
|
||||
Me.TextBox5 = New System.Windows.Forms.TextBox
|
||||
Me.CheckBox1 = New System.Windows.Forms.CheckBox
|
||||
Me.Label6 = New System.Windows.Forms.Label
|
||||
Me.Button6 = New System.Windows.Forms.Button
|
||||
Me.Label7 = New System.Windows.Forms.Label
|
||||
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.Label8 = New System.Windows.Forms.Label
|
||||
CType(Me.PartnerList, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'TextBox1
|
||||
'
|
||||
Me.TextBox1.Location = New System.Drawing.Point(96, 16)
|
||||
Me.TextBox1.Name = "TextBox1"
|
||||
Me.TextBox1.Size = New System.Drawing.Size(176, 20)
|
||||
Me.TextBox1.TabIndex = 0
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.Location = New System.Drawing.Point(16, 16)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(72, 23)
|
||||
Me.Label1.TabIndex = 1
|
||||
Me.Label1.Text = "Partner-Nr."
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.Location = New System.Drawing.Point(16, 40)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(72, 23)
|
||||
Me.Label2.TabIndex = 3
|
||||
Me.Label2.Text = "Kurzname"
|
||||
'
|
||||
'TextBox2
|
||||
'
|
||||
Me.TextBox2.Location = New System.Drawing.Point(96, 40)
|
||||
Me.TextBox2.Name = "TextBox2"
|
||||
Me.TextBox2.Size = New System.Drawing.Size(176, 20)
|
||||
Me.TextBox2.TabIndex = 2
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.Location = New System.Drawing.Point(16, 64)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(72, 23)
|
||||
Me.Label3.TabIndex = 5
|
||||
Me.Label3.Text = "Freitext"
|
||||
'
|
||||
'TextBox3
|
||||
'
|
||||
Me.TextBox3.Location = New System.Drawing.Point(96, 64)
|
||||
Me.TextBox3.Name = "TextBox3"
|
||||
Me.TextBox3.Size = New System.Drawing.Size(176, 20)
|
||||
Me.TextBox3.TabIndex = 4
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.Location = New System.Drawing.Point(424, 16)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(80, 40)
|
||||
Me.Label4.TabIndex = 7
|
||||
Me.Label4.Text = "Maximale Anzahl Treffer"
|
||||
'
|
||||
'TextBox4
|
||||
'
|
||||
Me.TextBox4.Location = New System.Drawing.Point(520, 16)
|
||||
Me.TextBox4.Name = "TextBox4"
|
||||
Me.TextBox4.Size = New System.Drawing.Size(64, 20)
|
||||
Me.TextBox4.TabIndex = 6
|
||||
Me.TextBox4.Text = "50"
|
||||
'
|
||||
'ImageList1
|
||||
'
|
||||
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
||||
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
||||
Me.ImageList1.Images.SetKeyName(0, "")
|
||||
Me.ImageList1.Images.SetKeyName(1, "")
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
|
||||
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button1.Location = New System.Drawing.Point(280, 16)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(88, 24)
|
||||
Me.Button1.TabIndex = 9
|
||||
Me.Button1.Text = "&Suchen"
|
||||
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.Enabled = False
|
||||
Me.Button2.Location = New System.Drawing.Point(496, 336)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(88, 23)
|
||||
Me.Button2.TabIndex = 11
|
||||
Me.Button2.Text = "Übernehmen"
|
||||
'
|
||||
'BUtton3
|
||||
'
|
||||
Me.BUtton3.Location = New System.Drawing.Point(16, 337)
|
||||
Me.BUtton3.Name = "BUtton3"
|
||||
Me.BUtton3.Size = New System.Drawing.Size(80, 24)
|
||||
Me.BUtton3.TabIndex = 10
|
||||
Me.BUtton3.Text = "Schliessen"
|
||||
'
|
||||
'PartnerList
|
||||
'
|
||||
Me.PartnerList.AllowUpdate = False
|
||||
Me.PartnerList.AllowUpdateOnBlur = False
|
||||
Me.PartnerList.AlternatingRows = True
|
||||
Me.PartnerList.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
|
||||
Me.PartnerList.ContextMenu = Me.ContextMenu1
|
||||
Me.PartnerList.FetchRowStyles = True
|
||||
Me.PartnerList.FilterBar = True
|
||||
Me.PartnerList.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.PartnerList.Images.Add(CType(resources.GetObject("PartnerList.Images"), System.Drawing.Image))
|
||||
Me.PartnerList.Location = New System.Drawing.Point(16, 112)
|
||||
Me.PartnerList.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
|
||||
Me.PartnerList.Name = "PartnerList"
|
||||
Me.PartnerList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.PartnerList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.PartnerList.PreviewInfo.ZoomFactor = 75
|
||||
Me.PartnerList.PrintInfo.PageSettings = CType(resources.GetObject("PartnerList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||
Me.PartnerList.ScrollTips = True
|
||||
Me.PartnerList.Size = New System.Drawing.Size(568, 216)
|
||||
Me.PartnerList.TabIndex = 13
|
||||
Me.PartnerList.Text = "C1TrueDBGrid1"
|
||||
Me.PartnerList.PropBag = resources.GetString("PartnerList.PropBag")
|
||||
'
|
||||
'ContextMenu1
|
||||
'
|
||||
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem2, Me.MenuItem3, Me.MenuItem4})
|
||||
'
|
||||
'MenuItem1
|
||||
'
|
||||
Me.MenuItem1.Index = 0
|
||||
Me.MenuItem1.Text = "&Partner übernehmen"
|
||||
'
|
||||
'MenuItem2
|
||||
'
|
||||
Me.MenuItem2.Index = 1
|
||||
Me.MenuItem2.Text = "&Detailinformationen"
|
||||
'
|
||||
'MenuItem3
|
||||
'
|
||||
Me.MenuItem3.Index = 2
|
||||
Me.MenuItem3.Text = "-"
|
||||
'
|
||||
'MenuItem4
|
||||
'
|
||||
Me.MenuItem4.Index = 3
|
||||
Me.MenuItem4.Text = "Partner erfassen / bearbeiten"
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.Location = New System.Drawing.Point(16, 88)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(72, 23)
|
||||
Me.Label5.TabIndex = 17
|
||||
Me.Label5.Text = "VV-Suche"
|
||||
'
|
||||
'TextBox5
|
||||
'
|
||||
Me.TextBox5.Location = New System.Drawing.Point(96, 88)
|
||||
Me.TextBox5.Name = "TextBox5"
|
||||
Me.TextBox5.Size = New System.Drawing.Size(176, 20)
|
||||
Me.TextBox5.TabIndex = 16
|
||||
'
|
||||
'CheckBox1
|
||||
'
|
||||
Me.CheckBox1.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.CheckBox1.Location = New System.Drawing.Point(568, 56)
|
||||
Me.CheckBox1.Name = "CheckBox1"
|
||||
Me.CheckBox1.Size = New System.Drawing.Size(16, 16)
|
||||
Me.CheckBox1.TabIndex = 18
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.Location = New System.Drawing.Point(424, 56)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(152, 32)
|
||||
Me.Label6.TabIndex = 19
|
||||
Me.Label6.Text = "Trefferliste immer anzeigen"
|
||||
'
|
||||
'Button6
|
||||
'
|
||||
Me.Button6.Image = CType(resources.GetObject("Button6.Image"), System.Drawing.Image)
|
||||
Me.Button6.Location = New System.Drawing.Point(368, 16)
|
||||
Me.Button6.Name = "Button6"
|
||||
Me.Button6.Size = New System.Drawing.Size(24, 24)
|
||||
Me.Button6.TabIndex = 20
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label7.ForeColor = System.Drawing.Color.Red
|
||||
Me.Label7.Location = New System.Drawing.Point(136, 336)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(344, 32)
|
||||
Me.Label7.TabIndex = 21
|
||||
Me.Label7.Text = "Partner wurde direkt übernommen"
|
||||
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
Me.Label7.Visible = False
|
||||
'
|
||||
'Timer1
|
||||
'
|
||||
Me.Timer1.Interval = 2000
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
Me.Label8.Location = New System.Drawing.Point(408, 72)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.Label8.Size = New System.Drawing.Size(184, 16)
|
||||
Me.Label8.TabIndex = 22
|
||||
Me.Label8.Text = "(z.B. für EDOKA-Partner-Mutation)"
|
||||
Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
'
|
||||
'FrmPartnersuche
|
||||
'
|
||||
Me.AcceptButton = Me.Button1
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(592, 373)
|
||||
Me.Controls.Add(Me.Label8)
|
||||
Me.Controls.Add(Me.Label7)
|
||||
Me.Controls.Add(Me.Button6)
|
||||
Me.Controls.Add(Me.CheckBox1)
|
||||
Me.Controls.Add(Me.Label5)
|
||||
Me.Controls.Add(Me.TextBox5)
|
||||
Me.Controls.Add(Me.PartnerList)
|
||||
Me.Controls.Add(Me.BUtton3)
|
||||
Me.Controls.Add(Me.Button2)
|
||||
Me.Controls.Add(Me.Button1)
|
||||
Me.Controls.Add(Me.Label4)
|
||||
Me.Controls.Add(Me.TextBox4)
|
||||
Me.Controls.Add(Me.Label3)
|
||||
Me.Controls.Add(Me.TextBox3)
|
||||
Me.Controls.Add(Me.Label2)
|
||||
Me.Controls.Add(Me.TextBox2)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.TextBox1)
|
||||
Me.Controls.Add(Me.Label6)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.MaximizeBox = False
|
||||
Me.MinimizeBox = False
|
||||
Me.Name = "FrmPartnersuche"
|
||||
Me.Text = "Partnersuche"
|
||||
CType(Me.PartnerList, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Deklarationen"
|
||||
Public Event partner_selected()
|
||||
Dim m_noclose As Boolean = False
|
||||
Property NoClose() As Boolean
|
||||
Get
|
||||
Return m_noclose
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_noclose = Value
|
||||
End Set
|
||||
End Property
|
||||
Dim m_meldung_doppelter_partner As Boolean = False
|
||||
Property Meldung_Doppelter_Partner() As Boolean
|
||||
Get
|
||||
Return m_meldung_doppelter_partner
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_meldung_doppelter_partner = Value
|
||||
End Set
|
||||
End Property
|
||||
Dim Partner As DataTable
|
||||
Dim m_zustelladresse As String
|
||||
Dim m_anrede As String
|
||||
|
||||
Dim mypartner As New edokadb.clsMyPartner()
|
||||
|
||||
Dim m_partnernr As Long
|
||||
Property PartnerNr() As Long
|
||||
Get
|
||||
Return m_partnernr
|
||||
End Get
|
||||
Set(ByVal Value As Long)
|
||||
m_partnernr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_PartnerKurzbezeichnung As String
|
||||
Property PartnerKurzbezeichnnung() As String
|
||||
Get
|
||||
Return m_PartnerKurzbezeichnung
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_PartnerKurzbezeichnung = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property zustelladresse() As String
|
||||
Get
|
||||
Return m_zustelladresse
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_zustelladresse = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property Anrede() As String
|
||||
Get
|
||||
Return m_anrede
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_anrede = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_dokumenterstellen As Boolean = False
|
||||
Property Dokumenterstellen() As Boolean
|
||||
Get
|
||||
Return m_dokumenterstellen
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_dokumenterstellen = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_profilnr As Integer
|
||||
Property profilnr() As Integer
|
||||
Get
|
||||
Return m_profilnr
|
||||
End Get
|
||||
Set(ByVal Value As Integer)
|
||||
m_profilnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_erfassung As Boolean = False
|
||||
Property AusPartnererfassung() As Boolean
|
||||
Get
|
||||
Return m_erfassung
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_erfassung = Value
|
||||
End Set
|
||||
End Property
|
||||
Dim m_retrieval As Boolean
|
||||
Property NurAbfrage() As Boolean
|
||||
Get
|
||||
Return m_retrieval
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_retrieval = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_vibeachten As Boolean
|
||||
Property VIBeachten() As Boolean
|
||||
Get
|
||||
Return m_vibeachten
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_vibeachten = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_dokumenttypnr As Integer = 0
|
||||
Property Dokumenttypnrnr() As Integer
|
||||
Get
|
||||
Return m_dokumenttypnr
|
||||
End Get
|
||||
Set(ByVal Value As Integer)
|
||||
m_dokumenttypnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Private Sub Buton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
||||
Me.PartnerList.DataSource = Nothing
|
||||
Me.PartnerList.DataMember = Nothing
|
||||
Dim iii As Double
|
||||
If Me.TextBox1.Text <> "" Then
|
||||
Try
|
||||
Dim d As Double
|
||||
d = Val(Me.TextBox1.Text)
|
||||
If d = 0 Then
|
||||
MsgBox("Die eingegebene Partner-Nr ist ungültig.", MsgBoxStyle.Critical)
|
||||
Me.TextBox1.Focus()
|
||||
Exit Sub
|
||||
End If
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Partner = mypartner.search_partner(d, Me.TextBox4.Text, 0)
|
||||
Me.Cursor = Cursors.Default
|
||||
Catch
|
||||
MsgBox("Die eingegebene Partner-Nr ist ungültig.", MsgBoxStyle.Critical)
|
||||
Me.TextBox1.Focus()
|
||||
Exit Sub
|
||||
End Try
|
||||
Else
|
||||
If Me.TextBox2.Text <> "" Then
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Partner = mypartner.search_partner(Me.TextBox2.Text, Me.TextBox4.Text, 1)
|
||||
Me.Cursor = Cursors.Default
|
||||
Else
|
||||
If Me.TextBox3.Text <> "" Then
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Partner = mypartner.search_partner(Me.TextBox3.Text, Me.TextBox4.Text, 2)
|
||||
Me.Cursor = Cursors.Default
|
||||
Else
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Partner = mypartner.search_partner(Me.TextBox5.Text, Me.TextBox4.Text, 3)
|
||||
Me.Cursor = Cursors.Default
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
If Partner.Rows.Count = 0 Then
|
||||
MsgBox("Ihre Suche ergab keine Treffer.", MsgBoxStyle.Exclamation)
|
||||
Else
|
||||
|
||||
Me.PartnerList.DataSource = Partner
|
||||
Me.PartnerList.DataMember = "Partner"
|
||||
SpaltenTitel_Aktualisieren()
|
||||
Dim i As Long
|
||||
Dim ii As Long
|
||||
If Me.PartnerList.Splits(0).Rows.Count = 1 And Me.CheckBox1.Checked <> True Then
|
||||
If Me.NoClose Then
|
||||
Me.Timer1.Enabled = True
|
||||
Me.Label7.Visible = True
|
||||
End If
|
||||
Button2_Click(sender, e)
|
||||
End If
|
||||
End If
|
||||
If Me.PartnerList.Splits(0).Rows.Count > 0 Then
|
||||
Me.Button2.Enabled = True
|
||||
Me.PartnerList.Focus()
|
||||
Else
|
||||
Me.Button2.Enabled = False
|
||||
Me.TextBox1.Focus()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub PartnerList_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles PartnerList.FetchRowStyle
|
||||
If Microsoft.VisualBasic.Left(Me.PartnerList.Columns(0).CellValue(e.Row), 1) = "9" Then
|
||||
e.CellStyle.BackColor = System.Drawing.Color.CadetBlue
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub BUtton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BUtton3.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Public Sub SpaltenTitel_Aktualisieren()
|
||||
'Spaltentitel setzen
|
||||
Dim titel As New EDOKA.MySpaltenTitel()
|
||||
Dim ts As New EDOKA.Tabellenspalte()
|
||||
Dim i As Integer
|
||||
Dim t As New DataTable()
|
||||
Dim dc As C1.Win.C1TrueDBGrid.C1DisplayColumn
|
||||
Dim s As String
|
||||
|
||||
t = Partner
|
||||
ts.Tabelle = "Partner"
|
||||
For i = 0 To Me.PartnerList.Columns.Count - 1
|
||||
s = Me.PartnerList.Columns(i).DataField
|
||||
ts.Feld = s
|
||||
ts.getspalte()
|
||||
Me.PartnerList.Columns(i).Caption = ts.spaltenname
|
||||
If Me.PartnerList.Columns(i).Caption = "" Then
|
||||
Me.PartnerList.Splits(0).DisplayColumns(i).Width = 0
|
||||
Else
|
||||
Me.PartnerList.Splits(0).DisplayColumns(i).Width = ts.ColWith
|
||||
End If
|
||||
' If Me.PartnerList.Columns(i).Caption = "" Then Me.PartnerList.Splits(0).DisplayColumns(i).Width = 0
|
||||
If ts.locked Then
|
||||
Me.PartnerList.Splits(0).DisplayColumns(i).Locked = True
|
||||
End If
|
||||
|
||||
If ts.AlsHacken Then
|
||||
Me.PartnerList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
End If
|
||||
|
||||
'Präsentation von aktiv
|
||||
If Me.PartnerList.Columns(i).DataField = "aktiv" Then
|
||||
Me.PartnerList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
Me.PartnerList.Columns(i).ValueItems.DefaultItem = True
|
||||
Me.PartnerList.Columns(i).DefaultValue = True
|
||||
Me.PartnerList.Columns(i).FilterText = True
|
||||
End If
|
||||
If Me.PartnerList.Columns(i).DataField = "erstellt_am" Then
|
||||
Me.PartnerList.Columns(i).DefaultValue = Now
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
|
||||
Partner_Suche(Me.PartnerList.Columns(0).Value)
|
||||
If Me.NoClose Then
|
||||
RaiseEvent partner_selected()
|
||||
Me.Timer1.Enabled = True
|
||||
Me.Label7.Visible = True
|
||||
Exit Sub
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub Partner_Suche(ByVal nrpar00 As String, Optional Addrtyp As Integer = 1)
|
||||
|
||||
Dim dt As New DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[sp_partner_search_details]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@addrtyp", SqlDbType.Int, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
|
||||
scmCmdToExecute.Connection.Open()
|
||||
sdaAdapter.Fill(dt)
|
||||
Catch ex As Exception
|
||||
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsMyPartner::sp_partner_search::Error occured." + ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Connection.Close()
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
|
||||
' ObjPerson
|
||||
'Dim p As New edokadb.clsPartner()
|
||||
'Dim ph As New edokadb.clsPartner_Hauptadresse()
|
||||
'p.sConnectionString = Globals.sConnectionString
|
||||
'p.iNRPAR00 = New SqlInt32(CType(nrpar00, Int32))
|
||||
'p.SelectOne()
|
||||
'ph.sConnectionString = Globals.sConnectionString
|
||||
'ph.iNRPAR00 = New SqlInt32(CType(nrpar00, Int32))
|
||||
'ph.SelectOne()
|
||||
|
||||
|
||||
Dim s As String
|
||||
s = ""
|
||||
Try
|
||||
If dt.Rows(0).Item("vibeachten") = 1 Then Me.VIBeachten = True Else Me.VIBeachten = False
|
||||
If dt.Rows(0).Item("Zeile1").ToString <> "" Then s = s + dt.Rows(0).Item("Zeile1").ToString + vbCrLf
|
||||
If dt.Rows(0).Item("Zeile2").ToString <> "" Then s = s + dt.Rows(0).Item("Zeile2").ToString + vbCrLf
|
||||
If dt.Rows(0).Item("Zeile3").ToString <> "" Then s = s + dt.Rows(0).Item("Zeile3").ToString + vbCrLf
|
||||
If dt.Rows(0).Item("Zeile4").ToString <> "" Then s = s + dt.Rows(0).Item("Zeile4").ToString + vbCrLf
|
||||
If dt.Rows(0).Item("Zeile5").ToString <> "" Then s = s + dt.Rows(0).Item("Zeile5").ToString + vbCrLf
|
||||
If dt.Rows(0).Item("Zeile6").ToString <> "" Then s = s + dt.Rows(0).Item("Zeile6").ToString + vbCrLf
|
||||
If dt.Rows(0).Item("Zeile7").ToString <> "" Then s = s + dt.Rows(0).Item("Zeile7").ToString + vbCrLf
|
||||
If dt.Rows(0).Item("Anrede").ToString <> "keine Anrede" Then Me.Anrede = dt.Rows(0).Item("Anrede").ToString
|
||||
Me.zustelladresse = s
|
||||
Me.PartnerNr = dt.Rows(0).Item("nrpar00")
|
||||
Me.PartnerKurzbezeichnnung = dt.Rows(0).Item("bkpar00").ToString
|
||||
If Me.NoClose = True Then
|
||||
Exit Sub
|
||||
End If
|
||||
Me.PartnerNr = nrpar00
|
||||
Me.PartnerKurzbezeichnnung = Me.PartnerKurzbezeichnnung
|
||||
Try
|
||||
Me.mypartner = Nothing
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
Try
|
||||
Me.Close()
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
Catch
|
||||
End Try
|
||||
|
||||
|
||||
' If p.sCDVIG00.Value = "Y" Or p.iAZEPL00.Value > 1 Or p.bCDVSA00.Value = True Then Me.VIBeachten = True Else Me.VIBeachten = False
|
||||
' If p.sTXADZ011.Value <> "" Then s = s + p.sTXADZ011.Value + vbCrLf
|
||||
' If p.sTXADZ021.Value <> "" Then s = s + p.sTXADZ021.Value + vbCrLf
|
||||
' If p.sTXADZ031.Value <> "" Then s = s + p.sTXADZ031.Value + vbCrLf
|
||||
' If p.sTXADZ041.Value <> "" Then s = s + p.sTXADZ041.Value + vbCrLf
|
||||
' If p.sTXADZ051.Value <> "" Then s = s + p.sTXADZ051.Value + vbCrLf
|
||||
' If p.sTXADZ061.Value <> "" Then s = s + p.sTXADZ061.Value + vbCrLf
|
||||
' If p.sTXADZ071.Value <> "" Then s = s + p.sTXADZ071.Value + vbCrLf
|
||||
' Me.zustelladresse = s
|
||||
' 'ObjPers
|
||||
' If DivFnkt.PartnerTyp(p.iNRPAR00) = EDOKA.clsDivFnkt.ENUM_Partnertyp.EDOKA_Interessent Then
|
||||
' 'If p.iNRPAR00.Value > 91000000 Then
|
||||
' Me.Anrede = p.sBEBAN011.Value
|
||||
' Else
|
||||
' Me.Anrede = ph.sBEBAN01.Value
|
||||
' End If
|
||||
' Me.PartnerNr = nrpar00
|
||||
' Me.PartnerKurzbezeichnnung = p.sBKPAR00.Value
|
||||
' If Me.NoClose = True Then
|
||||
' Exit Sub
|
||||
' End If
|
||||
' Try
|
||||
' Me.Partner.Dispose()
|
||||
' Catch
|
||||
' End Try
|
||||
' Try
|
||||
' Me.Close()
|
||||
' Catch
|
||||
' End Try
|
||||
' Me.mypartner = Nothing
|
||||
'Catch ex As Exception
|
||||
' MsgBox(ex.Message)
|
||||
'Finally
|
||||
' Try
|
||||
' p.Dispose()
|
||||
' ph.Dispose()
|
||||
' Catch
|
||||
' End Try
|
||||
'End Try
|
||||
End Sub
|
||||
Public Sub Partner_Suche_Falsch(ByVal nrpar00 As String)
|
||||
Dim p As New edokadb.clsPartner()
|
||||
Dim ph As New edokadb.clsPartner_Hauptadresse()
|
||||
p.sConnectionString = Globals.sConnectionString
|
||||
p.iNRPAR00 = New SqlInt32(CType(nrpar00, Int32))
|
||||
p.SelectOne()
|
||||
ph.sConnectionString = Globals.sConnectionString
|
||||
ph.iNRPAR00 = New SqlInt32(CType(nrpar00, Int32))
|
||||
ph.SelectOne()
|
||||
|
||||
|
||||
Dim s As String
|
||||
s = ""
|
||||
Try
|
||||
If p.sCDVIG00.Value = "Y" Or p.iAZEPL00.Value > 1 Or p.bCDVSA00.Value = True Then Me.VIBeachten = True Else Me.VIBeachten = False
|
||||
If p.sTXADZ011.Value <> "" Then s = s + p.sTXADZ011.Value + vbCrLf
|
||||
If p.sTXADZ021.Value <> "" Then s = s + p.sTXADZ021.Value + vbCrLf
|
||||
If p.sTXADZ031.Value <> "" Then s = s + p.sTXADZ031.Value + vbCrLf
|
||||
If p.sTXADZ041.Value <> "" Then s = s + p.sTXADZ041.Value + vbCrLf
|
||||
If p.sTXADZ051.Value <> "" Then s = s + p.sTXADZ051.Value + vbCrLf
|
||||
If p.sTXADZ061.Value <> "" Then s = s + p.sTXADZ061.Value + vbCrLf
|
||||
If p.sTXADZ071.Value <> "" Then s = s + p.sTXADZ071.Value + vbCrLf
|
||||
Me.zustelladresse = s
|
||||
If p.iNRPAR00.Value > 91000000 Then
|
||||
Me.Anrede = p.sBEBAN011.Value
|
||||
Else
|
||||
Me.Anrede = ph.sBEBAN01.Value
|
||||
End If
|
||||
Me.PartnerNr = nrpar00
|
||||
Me.PartnerKurzbezeichnnung = p.sBKPAR00.Value
|
||||
If Me.NoClose = True Then
|
||||
Exit Sub
|
||||
End If
|
||||
Try
|
||||
Me.Partner.Dispose()
|
||||
Catch
|
||||
End Try
|
||||
Try
|
||||
Me.Close()
|
||||
Catch
|
||||
End Try
|
||||
Me.mypartner = Nothing
|
||||
Catch ex As Exception
|
||||
' MsgBox(ex.Message)
|
||||
Finally
|
||||
Try
|
||||
p.Dispose()
|
||||
ph.Dispose()
|
||||
Catch
|
||||
End Try
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
|
||||
Button2_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown, TextBox2.KeyDown, TextBox3.KeyDown
|
||||
If e.KeyCode = Keys.Return Then Buton1_Click(sender, e)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub PartnerList_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PartnerList.DoubleClick
|
||||
Button2_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub FrmPartnersuche_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TextBox1.Focus()
|
||||
Me.TextBox1.Select()
|
||||
Dim p As Process
|
||||
Dim Ret As Int32
|
||||
Dim hWndMain As IntPtr
|
||||
|
||||
Dim MyProcesses() As Process = _
|
||||
Process.GetProcessesByName( _
|
||||
Process.GetCurrentProcess().ProcessName)
|
||||
End Sub
|
||||
|
||||
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
MsgBox("Diese Funktion ist nicht mehr aktiv")
|
||||
'NOVA RGL 20071010
|
||||
'Dim nrpar00 As Integer
|
||||
'Dim host As New frmHostTransfer()
|
||||
'If Me.TextBox1.Text <> "" Then
|
||||
' Try
|
||||
' Dim d As Double
|
||||
' d = Val(Me.TextBox1.Text)
|
||||
' If d = 0 Then
|
||||
' MyMsg.show_standardmessage(22, MsgBoxStyle.Critical)
|
||||
' Me.TextBox1.Focus()
|
||||
' Exit Sub
|
||||
' End If
|
||||
' host.Nrpar00 = d
|
||||
' Me.Hide()
|
||||
' host.ShowDialog()
|
||||
' If host.DialogResult = DialogResult.Abort Then
|
||||
' Me.Show()
|
||||
' Else
|
||||
' Me.TextBox1.Text = host.Nrpar00
|
||||
' Me.Buton1_Click(sender, e)
|
||||
' Me.Show()
|
||||
' End If
|
||||
' host.Dispose()
|
||||
' Catch
|
||||
' MyMsg.show_standardmessage(22, MsgBoxStyle.Critical)
|
||||
' Me.TextBox1.Focus()
|
||||
' End Try
|
||||
'Else
|
||||
' MyMsg.show_standardmessage(22, MsgBoxStyle.Critical)
|
||||
' Me.TextBox1.Focus()
|
||||
'End If
|
||||
End Sub
|
||||
|
||||
Private Sub PartnerList_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles PartnerList.KeyDown
|
||||
If e.KeyCode = Keys.Enter Then
|
||||
If Me.PartnerList.Splits(0).Rows.Count > 0 Then
|
||||
Try
|
||||
Partner_Suche(Me.PartnerList.Columns(0).Value)
|
||||
Catch
|
||||
End Try
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
|
||||
Me.Label7.Visible = False
|
||||
Me.Timer1.Enabled = False
|
||||
End Sub
|
||||
|
||||
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ContextMenu1_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu1.Popup
|
||||
Try
|
||||
If Me.PartnerList.Columns(0).Value < 91000000 Then
|
||||
Me.MenuItem3.Visible = False
|
||||
Me.MenuItem4.Visible = False
|
||||
Else
|
||||
Me.MenuItem3.Visible = True
|
||||
Me.MenuItem4.Visible = True
|
||||
End If
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub FrmPartnersuche_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LostFocus
|
||||
Me.TopMost = True
|
||||
End Sub
|
||||
End Class
|
||||
Binary file not shown.
@@ -0,0 +1,147 @@
|
||||
Imports System.Xml
|
||||
Imports System.Security.Principal
|
||||
|
||||
Public Class FrmMain
|
||||
Implements mMain.SingleInstance.ISingleInstanceForm
|
||||
|
||||
Public ReadOnly Property hWnd() As System.IntPtr Implements DokSA.mMain.SingleInstance.ISingleInstanceForm.Handle
|
||||
Get
|
||||
Return Handle
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Dim users As New DataSet
|
||||
Dim userrechte As Integer
|
||||
|
||||
Public Event WndProc2(ByVal m As System.Windows.Forms.Message, ByRef Cancel As Boolean) Implements mMain.SingleInstance.ISingleInstanceForm.WndProc
|
||||
|
||||
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
|
||||
Dim bCancel As Boolean = False
|
||||
|
||||
RaiseEvent WndProc2(m, bCancel)
|
||||
If Not bCancel Then MyBase.WndProc(m)
|
||||
End Sub
|
||||
|
||||
Public Sub HandleCommand(ByVal strCmd As String) Implements DokSA.mMain.SingleInstance.ISingleInstanceForm.HandleCommand
|
||||
Dim arrCmd() As String
|
||||
Me.BringToFront()
|
||||
Try
|
||||
'arrCmd = SerialHelper.DeserializeFromBase64String(strCmd)
|
||||
'TKBLib.Errorhandling.TraceHelper.Msg("Schnittstelle", "Agrument übergeben: " + arrCmd(0), TraceLevel.Info)
|
||||
'HandleCommand(arrCmd)
|
||||
Catch ex As Exception
|
||||
' HandleCommand(New String() {strCmd})
|
||||
Finally
|
||||
Erase arrCmd
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub FrmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Dim c As New EDOKA.DB_Connection
|
||||
Globals.conn.scoDBConnection.ConnectionString = Globals.sConnectionString
|
||||
Globals.fMehrfachdruck = New frmMehrfachdruck()
|
||||
Globals.fMehrfachdruck.MdiParent = Me
|
||||
Globals.fMehrfachdruck.Visible = False
|
||||
Globals.fMehrfachdruck.Hide()
|
||||
Globals.fMehrfachdruck.InitForm()
|
||||
|
||||
If check_user() = False Then
|
||||
Me.Close()
|
||||
Exit Sub
|
||||
End If
|
||||
If userrechte = 1 Then Me.BenutzerverwaltungToolStripMenuItem.Visible = True Else Me.BenutzerverwaltungToolStripMenuItem.Visible = False
|
||||
|
||||
Get_Params()
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Dim f As New Form1
|
||||
f.MdiParent = Me
|
||||
f.Show()
|
||||
End Sub
|
||||
Function check_user() As Boolean
|
||||
Dim user As String = Get_Username()
|
||||
If Not System.IO.File.Exists(Application.StartupPath + "\users.xml") Then
|
||||
MsgBox("User-Datenbank ist nicht vorhanden und wird neu erstellt", MsgBoxStyle.Critical)
|
||||
Dim s As String = InputBox("Geben Sie das Passwort ein:")
|
||||
If s <> "selbstanzeigen" Then
|
||||
Return False
|
||||
End If
|
||||
create_usertable(user)
|
||||
Return False
|
||||
End If
|
||||
|
||||
Globals.Userdata.ReadXml(Application.StartupPath + "\users.xml")
|
||||
For Each dr As DataRow In Globals.Userdata.Tables(0).Rows
|
||||
dr.Item(0) = Crypto.DecryptText(dr.Item(0).ToString, "Selbstanzeigen")
|
||||
Next
|
||||
|
||||
userrechte = -1
|
||||
For Each dr As DataRow In Globals.Userdata.Tables(0).Rows
|
||||
If UCase(user) = UCase(dr.Item(0)) Then
|
||||
If dr.Item(1) = 1 Then userrechte = 1 Else userrechte = 0
|
||||
Globals.Mitarbeiternr = dr.Item(2)
|
||||
Globals.tgnummer = user
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
If userrechte = -1 Then
|
||||
MsgBox("Sie sind nicht berechtig, die Applikation zu verwenden.", MsgBoxStyle.Exclamation)
|
||||
Return False
|
||||
End If
|
||||
Return True
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
Dim ouser As New WindowsPrincipal(WindowsIdentity.GetCurrent)
|
||||
Private Function Get_Username() As String
|
||||
With ouser.Identity.Name
|
||||
Return (.Substring(.IndexOf("\") + 1))
|
||||
End With
|
||||
End Function
|
||||
Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Sub Get_Params()
|
||||
Dim xmldoc As New XmlDocument
|
||||
xmldoc.Load(Application.StartupPath + "\Parameters.XML")
|
||||
Globals.Packagegroesse = xmldoc.SelectSingleNode("/Configuration/Packagegroesse").InnerText
|
||||
Globals.DelayTime = xmldoc.SelectSingleNode("/Configuration/DelayTime").InnerText
|
||||
|
||||
End Sub
|
||||
Sub create_usertable(ByVal username As String)
|
||||
Dim ds As New DataSet
|
||||
ds.Tables.Add("Users")
|
||||
ds.Tables(0).Columns.Add("TGNummer")
|
||||
ds.Tables(0).Columns.Add("Rolle")
|
||||
ds.Tables(0).Columns.Add("EDOKA_MA_Nr")
|
||||
Dim dr As DataRow = ds.Tables(0).NewRow
|
||||
dr.Item(0) = Crypto.EncryptText(username, "Selbstanzeigen")
|
||||
dr.Item(1) = 1
|
||||
dr.Item(2) = 0
|
||||
ds.Tables(0).Rows.Add(dr)
|
||||
ds.WriteXml(Application.StartupPath + "\users.xml")
|
||||
End Sub
|
||||
Private Sub BenutzerverwaltungToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BenutzerverwaltungToolStripMenuItem.Click
|
||||
Dim f As New frmBenutzer
|
||||
f.MdiParent = Me
|
||||
f.Show()
|
||||
End Sub
|
||||
|
||||
Private Sub NeuesDetailfensterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NeuesDetailfensterToolStripMenuItem.Click
|
||||
Dim f As New Form1
|
||||
f.MdiParent = Me
|
||||
f.Show()
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,118 @@
|
||||
/* Body style, for the entire document */
|
||||
body
|
||||
{
|
||||
background: #F3F3F4;
|
||||
color: #1E1E1F;
|
||||
font-family: "Segoe UI", Tahoma, Geneva, Verdana, sans-serif;
|
||||
padding: 0;
|
||||
margin: 0;
|
||||
}
|
||||
|
||||
/* Header1 style, used for the main title */
|
||||
h1
|
||||
{
|
||||
padding: 10px 0px 10px 10px;
|
||||
font-size: 21pt;
|
||||
background-color: #E2E2E2;
|
||||
border-bottom: 1px #C1C1C2 solid;
|
||||
color: #201F20;
|
||||
margin: 0;
|
||||
font-weight: normal;
|
||||
}
|
||||
|
||||
/* Header2 style, used for "Overview" and other sections */
|
||||
h2
|
||||
{
|
||||
font-size: 18pt;
|
||||
font-weight: normal;
|
||||
padding: 15px 0 5px 0;
|
||||
margin: 0;
|
||||
}
|
||||
|
||||
/* Header3 style, used for sub-sections, such as project name */
|
||||
h3
|
||||
{
|
||||
font-weight: normal;
|
||||
font-size: 15pt;
|
||||
margin: 0;
|
||||
padding: 15px 0 5px 0;
|
||||
background-color: transparent;
|
||||
}
|
||||
|
||||
/* Color all hyperlinks one color */
|
||||
a
|
||||
{
|
||||
color: #1382CE;
|
||||
}
|
||||
|
||||
/* Table styles */
|
||||
table
|
||||
{
|
||||
border-spacing: 0 0;
|
||||
border-collapse: collapse;
|
||||
font-size: 10pt;
|
||||
}
|
||||
|
||||
table th
|
||||
{
|
||||
background: #E7E7E8;
|
||||
text-align: left;
|
||||
text-decoration: none;
|
||||
font-weight: normal;
|
||||
padding: 3px 6px 3px 6px;
|
||||
}
|
||||
|
||||
table td
|
||||
{
|
||||
vertical-align: top;
|
||||
padding: 3px 6px 5px 5px;
|
||||
margin: 0px;
|
||||
border: 1px solid #E7E7E8;
|
||||
background: #F7F7F8;
|
||||
}
|
||||
|
||||
/* Local link is a style for hyperlinks that link to file:/// content, there are lots so color them as 'normal' text until the user mouse overs */
|
||||
.localLink
|
||||
{
|
||||
color: #1E1E1F;
|
||||
background: #EEEEED;
|
||||
text-decoration: none;
|
||||
}
|
||||
|
||||
.localLink:hover
|
||||
{
|
||||
color: #1382CE;
|
||||
background: #FFFF99;
|
||||
text-decoration: none;
|
||||
}
|
||||
|
||||
/* Center text, used in the over views cells that contain message level counts */
|
||||
.textCentered
|
||||
{
|
||||
text-align: center;
|
||||
}
|
||||
|
||||
/* The message cells in message tables should take up all avaliable space */
|
||||
.messageCell
|
||||
{
|
||||
width: 100%;
|
||||
}
|
||||
|
||||
/* Padding around the content after the h1 */
|
||||
#content
|
||||
{
|
||||
padding: 0px 12px 12px 12px;
|
||||
}
|
||||
|
||||
/* The overview table expands to width, with a max width of 97% */
|
||||
#overview table
|
||||
{
|
||||
width: auto;
|
||||
max-width: 75%;
|
||||
}
|
||||
|
||||
/* The messages tables are always 97% width */
|
||||
#messages table
|
||||
{
|
||||
width: 97%;
|
||||
}
|
||||
@@ -0,0 +1,73 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.18051
|
||||
'
|
||||
' Ä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", "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 "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.DokSA.My.MySettings
|
||||
Get
|
||||
Return Global.DokSA.My.MySettings.Default
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
@@ -0,0 +1,7 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<configuration>
|
||||
<!-- VSdocman config file for current project/solution.-->
|
||||
<activeProfile>default</activeProfile>
|
||||
<appSettings>
|
||||
</appSettings>
|
||||
</configuration>
|
||||
File diff suppressed because it is too large
Load Diff
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 mit einer Assembly verknüpft sind.
|
||||
|
||||
' Die Werte der Assemblyattribute überprüfen
|
||||
|
||||
<Assembly: AssemblyTitle("DokSA")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("")>
|
||||
<Assembly: AssemblyProduct("DokSA")>
|
||||
<Assembly: AssemblyCopyright("Copyright © 2012")>
|
||||
<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("4eadd5fc-af3d-48dd-b376-fe4d3e459ead")>
|
||||
|
||||
' 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.
|
After Width: | Height: | Size: 381 B |
@@ -0,0 +1,8 @@
|
||||
<?xml version="1.0" standalone="yes"?>
|
||||
<NewDataSet>
|
||||
<Users>
|
||||
<TGNummer>˜À§¹µ¯n¢º½»ªÀ</TGNummer>
|
||||
<Rolle>1</Rolle>
|
||||
<EDOKA_MA_Nr>1</EDOKA_MA_Nr>
|
||||
</Users>
|
||||
</NewDataSet>
|
||||
@@ -0,0 +1,109 @@
|
||||
Public Class clsSpooler_Data
|
||||
|
||||
Dim m_JobID As Integer
|
||||
Property JobID() As Integer
|
||||
Get
|
||||
Return m_JobID
|
||||
End Get
|
||||
Set(ByVal Value As Integer)
|
||||
m_JobID = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_AuftragNR As String
|
||||
Property AuftragNr() As String
|
||||
Get
|
||||
Return m_AuftragNR
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_AuftragNR = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_Typ As String
|
||||
Property Typ() As String
|
||||
Get
|
||||
Return m_Typ
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_Typ = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_Status As String
|
||||
Property Status() As String
|
||||
Get
|
||||
Return m_Status
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_Status = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_StatusID As Integer
|
||||
Property StatusID() As Integer
|
||||
Get
|
||||
Return m_StatusID
|
||||
End Get
|
||||
Set(ByVal Value As Integer)
|
||||
m_StatusID = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_Anzahl As String
|
||||
Property Anzahl() As String
|
||||
Get
|
||||
Return m_Anzahl
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_Anzahl = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_Data As Collection
|
||||
Property Data() As Collection
|
||||
Get
|
||||
Return m_Data
|
||||
End Get
|
||||
Set(ByVal Value As Collection)
|
||||
m_Data = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_ErstelltAm As Date
|
||||
Property ErstelltAm() As Date
|
||||
Get
|
||||
Return m_ErstelltAm
|
||||
End Get
|
||||
Set(ByVal Value As Date)
|
||||
m_ErstelltAm = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_DateiName As String
|
||||
Property DateiName() As String
|
||||
Get
|
||||
Return m_DateiName
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_DateiName = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Sub New(ByVal JobID As Integer, ByVal sAuftragNr As String, ByVal sTyp As String, _
|
||||
ByVal sStatus As String, ByVal sAnzahl As String, ByVal sData As Collection, _
|
||||
ByVal sErstellungsdatum As String, ByVal iStatusID As Integer, ByVal sDateiName As String)
|
||||
|
||||
m_JobID = JobID
|
||||
m_AuftragNR = sAuftragNr
|
||||
m_Typ = sTyp
|
||||
m_Status = sStatus
|
||||
m_Anzahl = sAnzahl
|
||||
m_Data = sData
|
||||
m_ErstelltAm = sErstellungsdatum
|
||||
m_StatusID = iStatusID
|
||||
m_DateiName = sDateiName
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,495 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
DokSA
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
<member name="P:DokSA.My.Resources.Resources.ResourceManager">
|
||||
<summary>
|
||||
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
|
||||
</summary>
|
||||
</member><member name="P:DokSA.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="T:DokSA.My.Resources.Resources">
|
||||
<summary>
|
||||
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
|
||||
</summary>
|
||||
</member><member name="M:DokSA.edokadb.clsPartner_Hauptadresse.#ctor">
|
||||
<summary>
|
||||
Purpose: Class constructor.
|
||||
</summary>
|
||||
</member><member name="M:DokSA.edokadb.clsPartner_Hauptadresse.Insert">
|
||||
<summary>
|
||||
Purpose: Insert method. This method will insert one new row into the database.
|
||||
</summary>
|
||||
<returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
<remarks>
|
||||
Properties needed for this method:
|
||||
<UL>
|
||||
<LI>iNRPAR00</LI>
|
||||
<LI>siNRADR00. May be SqlInt16.Null</LI>
|
||||
<LI>siNRVRN00. May be SqlInt16.Null</LI>
|
||||
<LI>siNRAAT00. May be SqlInt16.Null</LI>
|
||||
<LI>sNRPARVO. May be SqlString.Null</LI>
|
||||
<LI>siNRVAZ00. May be SqlInt16.Null</LI>
|
||||
<LI>siNRARD00. May be SqlInt16.Null</LI>
|
||||
<LI>siNRTTV00. May be SqlInt16.Null</LI>
|
||||
<LI>sBEVNM01. May be SqlString.Null</LI>
|
||||
<LI>sBEVNM02. May be SqlString.Null</LI>
|
||||
<LI>sBEVNM03. May be SqlString.Null</LI>
|
||||
<LI>sBEVNM04. May be SqlString.Null</LI>
|
||||
<LI>siNRTTZ00. May be SqlInt16.Null</LI>
|
||||
<LI>sBENNM01. May be SqlString.Null</LI>
|
||||
<LI>sBETRZNN. May be SqlString.Null</LI>
|
||||
<LI>sBENNM02. May be SqlString.Null</LI>
|
||||
<LI>siNRNZU00. May be SqlInt16.Null</LI>
|
||||
<LI>sBETTN00. May be SqlString.Null</LI>
|
||||
<LI>sBENAM01. May be SqlString.Null</LI>
|
||||
<LI>sBENAM02. May be SqlString.Null</LI>
|
||||
<LI>sBENAM03. May be SqlString.Null</LI>
|
||||
<LI>sBECOT01. May be SqlString.Null</LI>
|
||||
<LI>sBECOT02. May be SqlString.Null</LI>
|
||||
<LI>siNRZHK00. May be SqlInt16.Null</LI>
|
||||
<LI>siNRARDZH. May be SqlInt16.Null</LI>
|
||||
<LI>siNRTTVZH. May be SqlInt16.Null</LI>
|
||||
<LI>sBEVNMZH. May be SqlString.Null</LI>
|
||||
<LI>siNRTTZZH. May be SqlInt16.Null</LI>
|
||||
<LI>sBENNMZ1. May be SqlString.Null</LI>
|
||||
<LI>sBETRZZH. May be SqlString.Null</LI>
|
||||
<LI>sBENNMZ2. May be SqlString.Null</LI>
|
||||
<LI>siNRNZUZH. May be SqlInt16.Null</LI>
|
||||
<LI>sBEORTZS. May be SqlString.Null</LI>
|
||||
<LI>sBEWEI00. May be SqlString.Null</LI>
|
||||
<LI>sBEFCHPT. May be SqlString.Null</LI>
|
||||
<LI>sNRFCHPT. May be SqlString.Null</LI>
|
||||
<LI>sBESTR00. May be SqlString.Null</LI>
|
||||
<LI>sNRHAU00. May be SqlString.Null</LI>
|
||||
<LI>sNRSTC00. May be SqlString.Null</LI>
|
||||
<LI>siNRLND00. May be SqlInt16.Null</LI>
|
||||
<LI>sCDPLZ00. May be SqlString.Null</LI>
|
||||
<LI>sBEORTPT. May be SqlString.Null</LI>
|
||||
<LI>sBEDIS00. May be SqlString.Null</LI>
|
||||
<LI>iCDORTPT. May be SqlInt32.Null</LI>
|
||||
<LI>iCDSTRPT. May be SqlInt32.Null</LI>
|
||||
<LI>sSAVRS00. May be SqlString.Null</LI>
|
||||
<LI>siNRUZG00. May be SqlInt16.Null</LI>
|
||||
<LI>siNRNGR00. May be SqlInt16.Null</LI>
|
||||
<LI>siNRFOG01. May be SqlInt16.Null</LI>
|
||||
<LI>sBEBAN01. May be SqlString.Null</LI>
|
||||
<LI>siNRFOG02. May be SqlInt16.Null</LI>
|
||||
<LI>sBEBAN02. May be SqlString.Null</LI>
|
||||
<LI>siNRVRNRI. May be SqlInt16.Null</LI>
|
||||
<LI>sCDMUTER. May be SqlString.Null</LI>
|
||||
<LI>daTSMUT00. May be SqlDateTime.Null</LI>
|
||||
<LI>dcAZVRNHI. May be SqlDecimal.Null</LI>
|
||||
<LI>daDMERF00. May be SqlDateTime.Null</LI>
|
||||
<LI>sSAREC00. May be SqlString.Null</LI>
|
||||
<LI>daDMKTRNA. May be SqlDateTime.Null</LI>
|
||||
<LI>sCDKTRNA. May be SqlString.Null</LI>
|
||||
<LI>sSAKTRNA. May be SqlString.Null</LI>
|
||||
<LI>sCDPAW00. May be SqlString.Null</LI>
|
||||
<LI>sSAREC01. May be SqlString.Null</LI>
|
||||
<LI>daValidto. May be SqlDateTime.Null</LI>
|
||||
</UL>
|
||||
Properties set after a succesful call of this method:
|
||||
<UL>
|
||||
<LI>iErrorCode</LI>
|
||||
</UL>
|
||||
</remarks>
|
||||
</member><member name="M:DokSA.edokadb.clsPartner_Hauptadresse.Update">
|
||||
<summary>
|
||||
Purpose: Update method. This method will Update one existing row in the database.
|
||||
</summary>
|
||||
<returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
<remarks>
|
||||
Properties needed for this method:
|
||||
<UL>
|
||||
<LI>iNRPAR00</LI>
|
||||
<LI>siNRADR00. May be SqlInt16.Null</LI>
|
||||
<LI>siNRVRN00. May be SqlInt16.Null</LI>
|
||||
<LI>siNRAAT00. May be SqlInt16.Null</LI>
|
||||
<LI>sNRPARVO. May be SqlString.Null</LI>
|
||||
<LI>siNRVAZ00. May be SqlInt16.Null</LI>
|
||||
<LI>siNRARD00. May be SqlInt16.Null</LI>
|
||||
<LI>siNRTTV00. May be SqlInt16.Null</LI>
|
||||
<LI>sBEVNM01. May be SqlString.Null</LI>
|
||||
<LI>sBEVNM02. May be SqlString.Null</LI>
|
||||
<LI>sBEVNM03. May be SqlString.Null</LI>
|
||||
<LI>sBEVNM04. May be SqlString.Null</LI>
|
||||
<LI>siNRTTZ00. May be SqlInt16.Null</LI>
|
||||
<LI>sBENNM01. May be SqlString.Null</LI>
|
||||
<LI>sBETRZNN. May be SqlString.Null</LI>
|
||||
<LI>sBENNM02. May be SqlString.Null</LI>
|
||||
<LI>siNRNZU00. May be SqlInt16.Null</LI>
|
||||
<LI>sBETTN00. May be SqlString.Null</LI>
|
||||
<LI>sBENAM01. May be SqlString.Null</LI>
|
||||
<LI>sBENAM02. May be SqlString.Null</LI>
|
||||
<LI>sBENAM03. May be SqlString.Null</LI>
|
||||
<LI>sBECOT01. May be SqlString.Null</LI>
|
||||
<LI>sBECOT02. May be SqlString.Null</LI>
|
||||
<LI>siNRZHK00. May be SqlInt16.Null</LI>
|
||||
<LI>siNRARDZH. May be SqlInt16.Null</LI>
|
||||
<LI>siNRTTVZH. May be SqlInt16.Null</LI>
|
||||
<LI>sBEVNMZH. May be SqlString.Null</LI>
|
||||
<LI>siNRTTZZH. May be SqlInt16.Null</LI>
|
||||
<LI>sBENNMZ1. May be SqlString.Null</LI>
|
||||
<LI>sBETRZZH. May be SqlString.Null</LI>
|
||||
<LI>sBENNMZ2. May be SqlString.Null</LI>
|
||||
<LI>siNRNZUZH. May be SqlInt16.Null</LI>
|
||||
<LI>sBEORTZS. May be SqlString.Null</LI>
|
||||
<LI>sBEWEI00. May be SqlString.Null</LI>
|
||||
<LI>sBEFCHPT. May be SqlString.Null</LI>
|
||||
<LI>sNRFCHPT. May be SqlString.Null</LI>
|
||||
<LI>sBESTR00. May be SqlString.Null</LI>
|
||||
<LI>sNRHAU00. May be SqlString.Null</LI>
|
||||
<LI>sNRSTC00. May be SqlString.Null</LI>
|
||||
<LI>siNRLND00. May be SqlInt16.Null</LI>
|
||||
<LI>sCDPLZ00. May be SqlString.Null</LI>
|
||||
<LI>sBEORTPT. May be SqlString.Null</LI>
|
||||
<LI>sBEDIS00. May be SqlString.Null</LI>
|
||||
<LI>iCDORTPT. May be SqlInt32.Null</LI>
|
||||
<LI>iCDSTRPT. May be SqlInt32.Null</LI>
|
||||
<LI>sSAVRS00. May be SqlString.Null</LI>
|
||||
<LI>siNRUZG00. May be SqlInt16.Null</LI>
|
||||
<LI>siNRNGR00. May be SqlInt16.Null</LI>
|
||||
<LI>siNRFOG01. May be SqlInt16.Null</LI>
|
||||
<LI>sBEBAN01. May be SqlString.Null</LI>
|
||||
<LI>siNRFOG02. May be SqlInt16.Null</LI>
|
||||
<LI>sBEBAN02. May be SqlString.Null</LI>
|
||||
<LI>siNRVRNRI. May be SqlInt16.Null</LI>
|
||||
<LI>sCDMUTER. May be SqlString.Null</LI>
|
||||
<LI>daTSMUT00. May be SqlDateTime.Null</LI>
|
||||
<LI>dcAZVRNHI. May be SqlDecimal.Null</LI>
|
||||
<LI>daDMERF00. May be SqlDateTime.Null</LI>
|
||||
<LI>sSAREC00. May be SqlString.Null</LI>
|
||||
<LI>daDMKTRNA. May be SqlDateTime.Null</LI>
|
||||
<LI>sCDKTRNA. May be SqlString.Null</LI>
|
||||
<LI>sSAKTRNA. May be SqlString.Null</LI>
|
||||
<LI>sCDPAW00. May be SqlString.Null</LI>
|
||||
<LI>sSAREC01. May be SqlString.Null</LI>
|
||||
<LI>daValidto. May be SqlDateTime.Null</LI>
|
||||
</UL>
|
||||
Properties set after a succesful call of this method:
|
||||
<UL>
|
||||
<LI>iErrorCode</LI>
|
||||
</UL>
|
||||
</remarks>
|
||||
</member><member name="M:DokSA.edokadb.clsPartner_Hauptadresse.Delete">
|
||||
<summary>
|
||||
Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||
</summary>
|
||||
<returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
<remarks>
|
||||
Properties needed for this method:
|
||||
<UL>
|
||||
<LI>iNRPAR00</LI>
|
||||
</UL>
|
||||
Properties set after a succesful call of this method:
|
||||
<UL>
|
||||
<LI>iErrorCode</LI>
|
||||
</UL>
|
||||
</remarks>
|
||||
</member><member name="M:DokSA.edokadb.clsPartner_Hauptadresse.SelectOne">
|
||||
<summary>
|
||||
Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||
</summary>
|
||||
<returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
<remarks>
|
||||
Properties needed for this method:
|
||||
<UL>
|
||||
<LI>iNRPAR00</LI>
|
||||
</UL>
|
||||
Properties set after a succesful call of this method:
|
||||
<UL>
|
||||
<LI>iErrorCode</LI>
|
||||
<LI>iNRPAR00</LI>
|
||||
<LI>siNRADR00</LI>
|
||||
<LI>siNRVRN00</LI>
|
||||
<LI>siNRAAT00</LI>
|
||||
<LI>sNRPARVO</LI>
|
||||
<LI>siNRVAZ00</LI>
|
||||
<LI>siNRARD00</LI>
|
||||
<LI>siNRTTV00</LI>
|
||||
<LI>sBEVNM01</LI>
|
||||
<LI>sBEVNM02</LI>
|
||||
<LI>sBEVNM03</LI>
|
||||
<LI>sBEVNM04</LI>
|
||||
<LI>siNRTTZ00</LI>
|
||||
<LI>sBENNM01</LI>
|
||||
<LI>sBETRZNN</LI>
|
||||
<LI>sBENNM02</LI>
|
||||
<LI>siNRNZU00</LI>
|
||||
<LI>sBETTN00</LI>
|
||||
<LI>sBENAM01</LI>
|
||||
<LI>sBENAM02</LI>
|
||||
<LI>sBENAM03</LI>
|
||||
<LI>sBECOT01</LI>
|
||||
<LI>sBECOT02</LI>
|
||||
<LI>siNRZHK00</LI>
|
||||
<LI>siNRARDZH</LI>
|
||||
<LI>siNRTTVZH</LI>
|
||||
<LI>sBEVNMZH</LI>
|
||||
<LI>siNRTTZZH</LI>
|
||||
<LI>sBENNMZ1</LI>
|
||||
<LI>sBETRZZH</LI>
|
||||
<LI>sBENNMZ2</LI>
|
||||
<LI>siNRNZUZH</LI>
|
||||
<LI>sBEORTZS</LI>
|
||||
<LI>sBEWEI00</LI>
|
||||
<LI>sBEFCHPT</LI>
|
||||
<LI>sNRFCHPT</LI>
|
||||
<LI>sBESTR00</LI>
|
||||
<LI>sNRHAU00</LI>
|
||||
<LI>sNRSTC00</LI>
|
||||
<LI>siNRLND00</LI>
|
||||
<LI>sCDPLZ00</LI>
|
||||
<LI>sBEORTPT</LI>
|
||||
<LI>sBEDIS00</LI>
|
||||
<LI>iCDORTPT</LI>
|
||||
<LI>iCDSTRPT</LI>
|
||||
<LI>sSAVRS00</LI>
|
||||
<LI>siNRUZG00</LI>
|
||||
<LI>siNRNGR00</LI>
|
||||
<LI>siNRFOG01</LI>
|
||||
<LI>sBEBAN01</LI>
|
||||
<LI>siNRFOG02</LI>
|
||||
<LI>sBEBAN02</LI>
|
||||
<LI>siNRVRNRI</LI>
|
||||
<LI>sCDMUTER</LI>
|
||||
<LI>daTSMUT00</LI>
|
||||
<LI>dcAZVRNHI</LI>
|
||||
<LI>daDMERF00</LI>
|
||||
<LI>sSAREC00</LI>
|
||||
<LI>daDMKTRNA</LI>
|
||||
<LI>sCDKTRNA</LI>
|
||||
<LI>sSAKTRNA</LI>
|
||||
<LI>sCDPAW00</LI>
|
||||
<LI>sSAREC01</LI>
|
||||
<LI>daValidto</LI>
|
||||
</UL>
|
||||
Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
</remarks>
|
||||
</member><member name="M:DokSA.edokadb.clsPartner_Hauptadresse.SelectAll">
|
||||
<summary>
|
||||
Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
</summary>
|
||||
<returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
<remarks>
|
||||
Properties set after a succesful call of this method:
|
||||
<UL>
|
||||
<LI>iErrorCode</LI>
|
||||
</UL>
|
||||
</remarks>
|
||||
</member><member name="T:DokSA.edokadb.clsPartner_Hauptadresse">
|
||||
<summary>
|
||||
Purpose: Data Access class for the table 'Partner_Hauptadresse'.
|
||||
</summary>
|
||||
</member><member name="M:DokSA.edokadb.clsPartner.#ctor">
|
||||
<summary>
|
||||
Purpose: Class constructor.
|
||||
</summary>
|
||||
</member><member name="M:DokSA.edokadb.clsPartner.Insert">
|
||||
<summary>
|
||||
Purpose: Insert method. This method will insert one new row into the database.
|
||||
</summary>
|
||||
<returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
<remarks>
|
||||
Properties needed for this method:
|
||||
<UL>
|
||||
<LI>sIDMSG00. May be SqlString.Null</LI>
|
||||
<LI>sDMMSG00. May be SqlString.Null</LI>
|
||||
<LI>sZTMSG00. May be SqlString.Null</LI>
|
||||
<LI>sBEPGM00. May be SqlString.Null</LI>
|
||||
<LI>sCDBNK00. May be SqlString.Null</LI>
|
||||
<LI>iNRPAR00</LI>
|
||||
<LI>sBKPAR00. May be SqlString.Null</LI>
|
||||
<LI>iNRFOG012. May be SqlInt32.Null</LI>
|
||||
<LI>sBEBAN012. May be SqlString.Null</LI>
|
||||
<LI>sNRFOG022. May be SqlString.Null</LI>
|
||||
<LI>sBEBAN022. May be SqlString.Null</LI>
|
||||
<LI>sTXADZ012. May be SqlString.Null</LI>
|
||||
<LI>sTXADZ022. May be SqlString.Null</LI>
|
||||
<LI>sTXADZ032. May be SqlString.Null</LI>
|
||||
<LI>sTXADZ042. May be SqlString.Null</LI>
|
||||
<LI>sTXADZ052. May be SqlString.Null</LI>
|
||||
<LI>sTXADZ062. May be SqlString.Null</LI>
|
||||
<LI>sTXADZ072. May be SqlString.Null</LI>
|
||||
<LI>sNRPARAD. May be SqlString.Null</LI>
|
||||
<LI>sNRADR00. May be SqlString.Null</LI>
|
||||
<LI>sNRFOG011. May be SqlString.Null</LI>
|
||||
<LI>sBEBAN011. May be SqlString.Null</LI>
|
||||
<LI>sNRFOG21. May be SqlString.Null</LI>
|
||||
<LI>sBEBAN21. May be SqlString.Null</LI>
|
||||
<LI>sTXADZ011. May be SqlString.Null</LI>
|
||||
<LI>sTXADZ021. May be SqlString.Null</LI>
|
||||
<LI>sTXADZ031. May be SqlString.Null</LI>
|
||||
<LI>sTXADZ041. May be SqlString.Null</LI>
|
||||
<LI>sTXADZ051. May be SqlString.Null</LI>
|
||||
<LI>sTXADZ061. May be SqlString.Null</LI>
|
||||
<LI>sTXADZ071. May be SqlString.Null</LI>
|
||||
<LI>sCDBAL00. May be SqlString.Null</LI>
|
||||
<LI>sCDVIG00. May be SqlString.Null</LI>
|
||||
<LI>sSAVRS00. May be SqlString.Null</LI>
|
||||
<LI>sTSMUT00. May be SqlString.Null</LI>
|
||||
<LI>sVDMUTER. May be SqlString.Null</LI>
|
||||
<LI>sTXRes00. May be SqlString.Null</LI>
|
||||
<LI>bSaldiert</LI>
|
||||
<LI>iAZEPL00. May be SqlInt32.Null</LI>
|
||||
<LI>bCDVSA00</LI>
|
||||
<LI>daValidto. May be SqlDateTime.Null</LI>
|
||||
</UL>
|
||||
Properties set after a succesful call of this method:
|
||||
<UL>
|
||||
<LI>iErrorCode</LI>
|
||||
</UL>
|
||||
</remarks>
|
||||
</member><member name="M:DokSA.edokadb.clsPartner.Update">
|
||||
<summary>
|
||||
Purpose: Update method. This method will Update one existing row in the database.
|
||||
</summary>
|
||||
<returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
<remarks>
|
||||
Properties needed for this method:
|
||||
<UL>
|
||||
<LI>sIDMSG00. May be SqlString.Null</LI>
|
||||
<LI>sDMMSG00. May be SqlString.Null</LI>
|
||||
<LI>sZTMSG00. May be SqlString.Null</LI>
|
||||
<LI>sBEPGM00. May be SqlString.Null</LI>
|
||||
<LI>sCDBNK00. May be SqlString.Null</LI>
|
||||
<LI>iNRPAR00</LI>
|
||||
<LI>sBKPAR00. May be SqlString.Null</LI>
|
||||
<LI>iNRFOG012. May be SqlInt32.Null</LI>
|
||||
<LI>sBEBAN012. May be SqlString.Null</LI>
|
||||
<LI>sNRFOG022. May be SqlString.Null</LI>
|
||||
<LI>sBEBAN022. May be SqlString.Null</LI>
|
||||
<LI>sTXADZ012. May be SqlString.Null</LI>
|
||||
<LI>sTXADZ022. May be SqlString.Null</LI>
|
||||
<LI>sTXADZ032. May be SqlString.Null</LI>
|
||||
<LI>sTXADZ042. May be SqlString.Null</LI>
|
||||
<LI>sTXADZ052. May be SqlString.Null</LI>
|
||||
<LI>sTXADZ062. May be SqlString.Null</LI>
|
||||
<LI>sTXADZ072. May be SqlString.Null</LI>
|
||||
<LI>sNRPARAD. May be SqlString.Null</LI>
|
||||
<LI>sNRADR00. May be SqlString.Null</LI>
|
||||
<LI>sNRFOG011. May be SqlString.Null</LI>
|
||||
<LI>sBEBAN011. May be SqlString.Null</LI>
|
||||
<LI>sNRFOG21. May be SqlString.Null</LI>
|
||||
<LI>sBEBAN21. May be SqlString.Null</LI>
|
||||
<LI>sTXADZ011. May be SqlString.Null</LI>
|
||||
<LI>sTXADZ021. May be SqlString.Null</LI>
|
||||
<LI>sTXADZ031. May be SqlString.Null</LI>
|
||||
<LI>sTXADZ041. May be SqlString.Null</LI>
|
||||
<LI>sTXADZ051. May be SqlString.Null</LI>
|
||||
<LI>sTXADZ061. May be SqlString.Null</LI>
|
||||
<LI>sTXADZ071. May be SqlString.Null</LI>
|
||||
<LI>sCDBAL00. May be SqlString.Null</LI>
|
||||
<LI>sCDVIG00. May be SqlString.Null</LI>
|
||||
<LI>sSAVRS00. May be SqlString.Null</LI>
|
||||
<LI>sTSMUT00. May be SqlString.Null</LI>
|
||||
<LI>sVDMUTER. May be SqlString.Null</LI>
|
||||
<LI>sTXRes00. May be SqlString.Null</LI>
|
||||
<LI>bSaldiert</LI>
|
||||
<LI>iAZEPL00. May be SqlInt32.Null</LI>
|
||||
<LI>bCDVSA00</LI>
|
||||
<LI>daValidto. May be SqlDateTime.Null</LI>
|
||||
</UL>
|
||||
Properties set after a succesful call of this method:
|
||||
<UL>
|
||||
<LI>iErrorCode</LI>
|
||||
</UL>
|
||||
</remarks>
|
||||
</member><member name="M:DokSA.edokadb.clsPartner.Delete">
|
||||
<summary>
|
||||
Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||
</summary>
|
||||
<returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
<remarks>
|
||||
Properties needed for this method:
|
||||
<UL>
|
||||
<LI>iNRPAR00</LI>
|
||||
</UL>
|
||||
Properties set after a succesful call of this method:
|
||||
<UL>
|
||||
<LI>iErrorCode</LI>
|
||||
</UL>
|
||||
</remarks>
|
||||
</member><member name="M:DokSA.edokadb.clsPartner.SelectOne">
|
||||
<summary>
|
||||
Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||
</summary>
|
||||
<returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
<remarks>
|
||||
Properties needed for this method:
|
||||
<UL>
|
||||
<LI>iNRPAR00</LI>
|
||||
</UL>
|
||||
Properties set after a succesful call of this method:
|
||||
<UL>
|
||||
<LI>iErrorCode</LI>
|
||||
<LI>sIDMSG00</LI>
|
||||
<LI>sDMMSG00</LI>
|
||||
<LI>sZTMSG00</LI>
|
||||
<LI>sBEPGM00</LI>
|
||||
<LI>sCDBNK00</LI>
|
||||
<LI>iNRPAR00</LI>
|
||||
<LI>sBKPAR00</LI>
|
||||
<LI>iNRFOG012</LI>
|
||||
<LI>sBEBAN012</LI>
|
||||
<LI>sNRFOG022</LI>
|
||||
<LI>sBEBAN022</LI>
|
||||
<LI>sTXADZ012</LI>
|
||||
<LI>sTXADZ022</LI>
|
||||
<LI>sTXADZ032</LI>
|
||||
<LI>sTXADZ042</LI>
|
||||
<LI>sTXADZ052</LI>
|
||||
<LI>sTXADZ062</LI>
|
||||
<LI>sTXADZ072</LI>
|
||||
<LI>sNRPARAD</LI>
|
||||
<LI>sNRADR00</LI>
|
||||
<LI>sNRFOG011</LI>
|
||||
<LI>sBEBAN011</LI>
|
||||
<LI>sNRFOG21</LI>
|
||||
<LI>sBEBAN21</LI>
|
||||
<LI>sTXADZ011</LI>
|
||||
<LI>sTXADZ021</LI>
|
||||
<LI>sTXADZ031</LI>
|
||||
<LI>sTXADZ041</LI>
|
||||
<LI>sTXADZ051</LI>
|
||||
<LI>sTXADZ061</LI>
|
||||
<LI>sTXADZ071</LI>
|
||||
<LI>sCDBAL00</LI>
|
||||
<LI>sCDVIG00</LI>
|
||||
<LI>sSAVRS00</LI>
|
||||
<LI>sTSMUT00</LI>
|
||||
<LI>sVDMUTER</LI>
|
||||
<LI>sTXRes00</LI>
|
||||
<LI>bSaldiert</LI>
|
||||
<LI>iAZEPL00</LI>
|
||||
<LI>bCDVSA00</LI>
|
||||
<LI>daValidto</LI>
|
||||
</UL>
|
||||
Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
</remarks>
|
||||
</member><member name="M:DokSA.edokadb.clsPartner.SelectAll">
|
||||
<summary>
|
||||
Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
</summary>
|
||||
<returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
<remarks>
|
||||
Properties set after a succesful call of this method:
|
||||
<UL>
|
||||
<LI>iErrorCode</LI>
|
||||
</UL>
|
||||
</remarks>
|
||||
</member><member name="T:DokSA.edokadb.clsPartner">
|
||||
<summary>
|
||||
Purpose: Data Access class for the table 'Partner'.
|
||||
</summary>
|
||||
</member>
|
||||
</members>
|
||||
</doc>
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,123 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="ContextMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>103, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
30140
DokSA/.svn/pristine/7d/7d0ce2129d4897d1039429cfe490e8b0f32a78f6.svn-base
Normal file
30140
DokSA/.svn/pristine/7d/7d0ce2129d4897d1039429cfe490e8b0f32a78f6.svn-base
Normal file
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,34 @@
|
||||
Module Crypto
|
||||
Public Function EncryptText(ByVal strText As String, ByVal strPwd As String)
|
||||
Dim i As Integer, c As Integer
|
||||
Dim strBuff As String
|
||||
|
||||
strPwd = UCase$(strPwd)
|
||||
If Len(strPwd) Then
|
||||
For i = 1 To Len(strText)
|
||||
c = Asc(Mid$(strText, i, 1))
|
||||
c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
|
||||
strBuff = strBuff & Chr(c And &HFF)
|
||||
Next i
|
||||
Else
|
||||
strBuff = strText
|
||||
End If
|
||||
EncryptText = strBuff
|
||||
End Function
|
||||
|
||||
Public Function DecryptText(ByVal strText As String, ByVal strPwd As String)
|
||||
Dim i As Integer, c As Integer
|
||||
Dim strBuff As String
|
||||
strPwd = UCase$(strPwd)
|
||||
If Len(strPwd) Then
|
||||
For i = 1 To Len(strText)
|
||||
c = Asc(Mid$(strText, i, 1))
|
||||
c = c - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
|
||||
strBuff = strBuff & Chr(c And &HFF)
|
||||
Next i
|
||||
Else
|
||||
strBuff = strText
|
||||
End If
|
||||
DecryptText = strBuff
|
||||
End Function
|
||||
End Module
|
||||
@@ -0,0 +1,11 @@
|
||||
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
|
||||
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
|
||||
<assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
|
||||
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
|
||||
<security>
|
||||
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
|
||||
<requestedExecutionLevel level="asInvoker" uiAccess="false"/>
|
||||
</requestedPrivileges>
|
||||
</security>
|
||||
</trustInfo>
|
||||
</assembly>
|
||||
Binary file not shown.
Binary file not shown.
|
After Width: | Height: | Size: 109 KiB |
@@ -0,0 +1,237 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ProductVersion>9.0.30729</ProductVersion>
|
||||
<SchemaVersion>2.0</SchemaVersion>
|
||||
<ProjectGuid>{5D5DBAC1-C1A1-4381-8A0B-A51B2D977DFF}</ProjectGuid>
|
||||
<OutputType>WinExe</OutputType>
|
||||
<StartupObject>DokSA.FrmMain</StartupObject>
|
||||
<RootNamespace>DokSA</RootNamespace>
|
||||
<AssemblyName>DokSA</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>WindowsFormsWithCustomSubMain</MyType>
|
||||
<TargetFrameworkVersion>v3.5</TargetFrameworkVersion>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
<OptionInfer>Off</OptionInfer>
|
||||
<PublishUrl>publish\</PublishUrl>
|
||||
<Install>true</Install>
|
||||
<InstallFrom>Disk</InstallFrom>
|
||||
<UpdateEnabled>false</UpdateEnabled>
|
||||
<UpdateMode>Foreground</UpdateMode>
|
||||
<UpdateInterval>7</UpdateInterval>
|
||||
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
|
||||
<UpdatePeriodically>false</UpdatePeriodically>
|
||||
<UpdateRequired>false</UpdateRequired>
|
||||
<MapFileExtensions>true</MapFileExtensions>
|
||||
<ApplicationRevision>0</ApplicationRevision>
|
||||
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
|
||||
<IsWebBootstrapper>false</IsWebBootstrapper>
|
||||
<UseApplicationTrust>false</UseApplicationTrust>
|
||||
<BootstrapperEnabled>true</BootstrapperEnabled>
|
||||
<ApplicationIcon>reports.ico</ApplicationIcon>
|
||||
<FileUpgradeFlags>
|
||||
</FileUpgradeFlags>
|
||||
<UpgradeBackupLocation>
|
||||
</UpgradeBackupLocation>
|
||||
<OldToolsVersion>3.5</OldToolsVersion>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\Debug\</OutputPath>
|
||||
<DocumentationFile>DokSA.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
|
||||
<PlatformTarget>x86</PlatformTarget>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<DebugType>pdbonly</DebugType>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>bin\Release\</OutputPath>
|
||||
<DocumentationFile>DokSA.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="C1.Win.C1TrueDBGrid.2, Version=2.0.20112.61226, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da, processorArchitecture=MSIL" />
|
||||
<Reference Include="EDKB07Verarbeitung, Version=2.0.3225.14669, Culture=neutral, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\..\..\Client\EDOKA\bin\EDKB07Verarbeitung.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.Configuration" />
|
||||
<Reference Include="System.Core">
|
||||
<RequiredTargetFramework>3.5</RequiredTargetFramework>
|
||||
</Reference>
|
||||
<Reference Include="System.Data" />
|
||||
<Reference Include="System.Deployment" />
|
||||
<Reference Include="System.Design" />
|
||||
<Reference Include="System.Drawing" />
|
||||
<Reference Include="System.Web.Extensions">
|
||||
<RequiredTargetFramework>3.5</RequiredTargetFramework>
|
||||
</Reference>
|
||||
<Reference Include="System.Windows.Forms" />
|
||||
<Reference Include="System.Xml" />
|
||||
</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.Linq" />
|
||||
<Import Include="System.Windows.Forms" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="clsMehrfachdruck_Data.vb" />
|
||||
<Compile Include="clsPDF_print_show.vb" />
|
||||
<Compile Include="clsSpooler_Data.vb" />
|
||||
<Compile Include="Form1.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Form1.Designer.vb">
|
||||
<DependentUpon>Form1.vb</DependentUpon>
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmFortschritt.Designer.vb">
|
||||
<DependentUpon>frmFortschritt.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="frmFortschritt.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FrmMain.Designer.vb">
|
||||
<DependentUpon>FrmMain.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FrmMain.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmMehrfachdruck.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmPartnersuche.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Globals.vb" />
|
||||
<Compile Include="Klassen\clsConnectionProvider.vb" />
|
||||
<Compile Include="Klassen\clsDBInteractionBase.vb" />
|
||||
<Compile Include="Klassen\clsMyPartner.vb" />
|
||||
<Compile Include="Klassen\clsPartner.vb" />
|
||||
<Compile Include="Klassen\clsPartner_Hauptadresse.vb" />
|
||||
<Compile Include="Klassen\clsSpalten.vb" />
|
||||
<Compile Include="Klassen\Crypto.vb" />
|
||||
<Compile Include="Klassen\db_connection.vb" />
|
||||
<Compile Include="Klassen\frmBenutzer.Designer.vb">
|
||||
<DependentUpon>frmBenutzer.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Klassen\frmBenutzer.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Klassen\mMain.vb" />
|
||||
<Compile Include="Klassen\MySpalten.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="frmFortschritt.resx">
|
||||
<DependentUpon>frmFortschritt.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FrmMain.resx">
|
||||
<DependentUpon>FrmMain.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmMehrfachdruck.resx">
|
||||
<DependentUpon>frmMehrfachdruck.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmPartnersuche.resx">
|
||||
<DependentUpon>frmPartnersuche.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Klassen\frmBenutzer.resx">
|
||||
<DependentUpon>frmBenutzer.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="My Project\licenses.licx" />
|
||||
<EmbeddedResource Include="My Project\Resources.resx">
|
||||
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="app.config" />
|
||||
<None Include="My Project\Application.myapp">
|
||||
<Generator>MyApplicationCodeGenerator</Generator>
|
||||
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="My Project\Settings.settings">
|
||||
<Generator>SettingsSingleFileGenerator</Generator>
|
||||
<CustomToolNamespace>My</CustomToolNamespace>
|
||||
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Client.3.5">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework Client Profile</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.2.0">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 2.0 %28x86%29</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.3.0">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 3.0 %28x86%29</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 3.5</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 3.5 SP1</ProductName>
|
||||
<Install>true</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Windows.Installer.3.1">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>Windows Installer 3.1</ProductName>
|
||||
<Install>true</Install>
|
||||
</BootstrapperPackage>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Content Include="reports.ico" />
|
||||
</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,192 @@
|
||||
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
|
||||
|
||||
|
||||
Public Class Form1
|
||||
|
||||
|
||||
Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Function Generic_Select() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim dbconn As New SqlConnection(Globals.sConnectionString)
|
||||
|
||||
scmCmdToExecute.Connection = dbconn
|
||||
scmCmdToExecute.CommandText = "sp_selbstanzeigen"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim jvon As Integer
|
||||
Dim jbis As Integer
|
||||
If Trim(Me.txtJahrvon.Text) = "" Then jvon = 0 Else jvon = Me.txtJahrvon.Text
|
||||
If Trim(Me.txtJahrbis.Text) = "" Then jbis = 0 Else jbis = Me.txtJahrbis.Text
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bpnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtBPNr.Text))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@jvon", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, jvon))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@jbis", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, jbis))
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = New DataTable()
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
Try
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
||||
Try
|
||||
Dim dt As New DataTable
|
||||
dt = Generic_Select()
|
||||
Me.DokList.DataSource = Nothing
|
||||
Me.DokList.DataSource = dt
|
||||
Me.DokList.DataMember = dt.TableName
|
||||
Me.Button2.Enabled = True
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Me.Button2.Enabled = False
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
|
||||
Globals.Partnernr = Me.txtBPNr.Text
|
||||
Globals.PartnerKurzbezeichnung = Me.Label5.Text
|
||||
Dim gendokCold As New Collection()
|
||||
Dim gendokOffice As New Collection
|
||||
Dim i As Integer
|
||||
Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection
|
||||
|
||||
colRows = Me.DokList.SelectedRows
|
||||
If colRows.Count = 0 Then
|
||||
For i = 0 To Me.DokList.Splits(0).Rows.Count - 1
|
||||
colRows.Add(i)
|
||||
Next
|
||||
End If
|
||||
'Wenn mehr als ein Dokument selektiert ist dann Meldung zum Fragen anzeigen
|
||||
If colRows.Count > 1 Then
|
||||
If MsgBox("Alle markierten Dokumente (" + LTrim(Str(colRows.Count)) + ") drucken?", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
|
||||
Dim packagenr As Integer
|
||||
|
||||
packagenr = CInt(Math.Truncate(colRows.Count / Globals.Packagegroesse))
|
||||
packagenr = packagenr + 1
|
||||
Dim f As New frmFortschritt
|
||||
f.MdiParent = Me.MdiParent
|
||||
f.Show()
|
||||
f.ProgressBar1.Value = 0
|
||||
f.ProgressBar1.Maximum = packagenr
|
||||
|
||||
'Loop über die Selektierten Dokumente und die Werte je nach Typ in eine Collection abspeichern
|
||||
Dim RowCunter As Integer = 0
|
||||
For i = 0 To colRows.Count - 1
|
||||
Try
|
||||
'Host Daten abfüllen
|
||||
gendokCold.Add(New clsMehrfachdruck_Data(Me.DokList.Columns("dokumentid").CellValue(colRows(i)), _
|
||||
Me.DokList.Columns("partnernr_inhaber").CellValue(colRows(i)), clsMehrfachdruck_Data.Enum_Typ.HOST, False, _
|
||||
Me.DokList.Columns("dokumenttypnr").CellValue(colRows(i)), "", _
|
||||
Me.DokList.Columns("partnername_inhaber").CellValue(colRows(i)), _
|
||||
Me.DokList.Columns("valutadatum").CellValue(colRows(i))))
|
||||
RowCunter = RowCunter + 1
|
||||
Exit Try
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
If RowCunter > Globals.Packagegroesse - 1 Then
|
||||
f.ProgressBar1.Value = f.ProgressBar1.Value + 1
|
||||
f.Label5.Text = "Druckauftrag " + f.ProgressBar1.Value.ToString + " von " + f.ProgressBar1.Maximum.ToString
|
||||
f.Label5.Text = f.Label5.Text + " - " + Globals.DelayTime.ToString + " Sekunden Wartezeit"
|
||||
Application.DoEvents()
|
||||
f.Refresh()
|
||||
f.BringToFront()
|
||||
f.Refresh()
|
||||
RowCunter = 0
|
||||
fMehrfachdruck.DruckAnfrage(gendokCold, gendokOffice)
|
||||
f.Refresh()
|
||||
Application.DoEvents()
|
||||
gendokCold.Clear()
|
||||
Application.DoEvents()
|
||||
f.Refresh()
|
||||
Dim t1 As DateTime
|
||||
Dim t2 As DateTime
|
||||
Threading.Thread.CurrentThread.Sleep(Globals.DelayTime * 1000)
|
||||
gendokCold.Clear()
|
||||
End If
|
||||
Next
|
||||
|
||||
Try
|
||||
If gendokCold.Count > 0 Then fMehrfachdruck.DruckAnfrage(gendokCold, gendokOffice)
|
||||
Application.DoEvents()
|
||||
Catch ex As Exception
|
||||
Finally
|
||||
Me.Cursor = Cursors.Default
|
||||
End Try
|
||||
f.Close()
|
||||
f.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
|
||||
Dim f As New FrmPartnersuche
|
||||
f.ShowDialog()
|
||||
If f.PartnerNr <> 0 Then
|
||||
Me.txtBPNr.Text = f.PartnerNr
|
||||
Update_BP()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub txtBPNr_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtBPNr.KeyDown
|
||||
If e.KeyCode = Keys.Enter Then
|
||||
Update_BP()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub txtBPNr_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtBPNr.Leave
|
||||
Update_BP()
|
||||
End Sub
|
||||
|
||||
Private Sub Update_BP()
|
||||
Try
|
||||
Dim f As New FrmPartnersuche
|
||||
f.Partner_Suche(Me.txtBPNr.Text)
|
||||
If f.PartnerKurzbezeichnnung = "" Then
|
||||
MsgBox("Eingegebener Parter ist nicht vorhanden", MsgBoxStyle.Critical)
|
||||
Me.Label5.Text = "[Kein Partner ausgwählt]"
|
||||
Me.Button1.Enabled = False
|
||||
Me.Button2.Enabled = False
|
||||
Else
|
||||
Me.Label5.Text = f.PartnerKurzbezeichnnung
|
||||
Me.Button1.Enabled = True
|
||||
Me.Button2.Enabled = False
|
||||
End If
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub txtBPNr_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBPNr.TextChanged
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Binary file not shown.
@@ -0,0 +1,20 @@
|
||||
|
||||
Microsoft Visual Studio Solution File, Format Version 12.00
|
||||
# Visual Studio 2012
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DokSA", "DokSA\DokSA.vbproj", "{5D5DBAC1-C1A1-4381-8A0B-A51B2D977DFF}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
Debug|Any CPU = Debug|Any CPU
|
||||
Release|Any CPU = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||
{5D5DBAC1-C1A1-4381-8A0B-A51B2D977DFF}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{5D5DBAC1-C1A1-4381-8A0B-A51B2D977DFF}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{5D5DBAC1-C1A1-4381-8A0B-A51B2D977DFF}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{5D5DBAC1-C1A1-4381-8A0B-A51B2D977DFF}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
EndGlobalSection
|
||||
EndGlobal
|
||||
Binary file not shown.
@@ -0,0 +1,21 @@
|
||||
Imports System.IO
|
||||
Namespace EDOKA
|
||||
Public Class DB_Connection
|
||||
|
||||
Shared Sub New()
|
||||
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(Application.StartupPath + "\" + 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
|
||||
|
||||
|
||||
End Namespace
|
||||
@@ -0,0 +1,13 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.18051
|
||||
'
|
||||
' Ä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
|
||||
|
||||
@@ -0,0 +1,7 @@
|
||||
<?xml version='1.0' encoding='utf-8'?>
|
||||
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
|
||||
<Profiles>
|
||||
<Profile Name="(Default)" />
|
||||
</Profiles>
|
||||
<Settings />
|
||||
</SettingsFile>
|
||||
@@ -0,0 +1,63 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:2.0.50727.5456
|
||||
'
|
||||
' Ä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", "2.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("DokSA.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
|
||||
@@ -0,0 +1,116 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class FrmMain
|
||||
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(FrmMain))
|
||||
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip
|
||||
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
|
||||
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
|
||||
Me.NeuesDetailfensterToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
|
||||
Me.BenutzerverwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip
|
||||
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton
|
||||
Me.MenuStrip1.SuspendLayout()
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'MenuStrip1
|
||||
'
|
||||
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem, Me.NeuesDetailfensterToolStripMenuItem, Me.BenutzerverwaltungToolStripMenuItem})
|
||||
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MenuStrip1.Name = "MenuStrip1"
|
||||
Me.MenuStrip1.Size = New System.Drawing.Size(1024, 24)
|
||||
Me.MenuStrip1.TabIndex = 1
|
||||
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"
|
||||
'
|
||||
'NeuesDetailfensterToolStripMenuItem
|
||||
'
|
||||
Me.NeuesDetailfensterToolStripMenuItem.Name = "NeuesDetailfensterToolStripMenuItem"
|
||||
Me.NeuesDetailfensterToolStripMenuItem.Size = New System.Drawing.Size(117, 20)
|
||||
Me.NeuesDetailfensterToolStripMenuItem.Text = "Neues Suchfenster"
|
||||
'
|
||||
'BenutzerverwaltungToolStripMenuItem
|
||||
'
|
||||
Me.BenutzerverwaltungToolStripMenuItem.Name = "BenutzerverwaltungToolStripMenuItem"
|
||||
Me.BenutzerverwaltungToolStripMenuItem.Size = New System.Drawing.Size(124, 20)
|
||||
Me.BenutzerverwaltungToolStripMenuItem.Text = "&Benutzerverwaltung"
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(1024, 25)
|
||||
Me.ToolStrip1.TabIndex = 3
|
||||
Me.ToolStrip1.Text = "ToolStrip1"
|
||||
'
|
||||
'ToolStripButton1
|
||||
'
|
||||
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
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(23, 22)
|
||||
Me.ToolStripButton1.Text = "Applikation schliessen"
|
||||
'
|
||||
'FrmMain
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(1024, 542)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Controls.Add(Me.MenuStrip1)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.IsMdiContainer = True
|
||||
Me.MainMenuStrip = Me.MenuStrip1
|
||||
Me.Name = "FrmMain"
|
||||
Me.Text = "Dokumentaufbereitung Selbstanzeigen"
|
||||
Me.MenuStrip1.ResumeLayout(False)
|
||||
Me.MenuStrip1.PerformLayout()
|
||||
Me.ToolStrip1.ResumeLayout(False)
|
||||
Me.ToolStrip1.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
|
||||
Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents BeendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents BenutzerverwaltungToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents NeuesDetailfensterToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
|
||||
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
|
||||
End Class
|
||||
@@ -0,0 +1,20 @@
|
||||
|
||||
Microsoft Visual Studio Solution File, Format Version 10.00
|
||||
# Visual Studio 2008
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DokSA", "DokSA\DokSA.vbproj", "{5D5DBAC1-C1A1-4381-8A0B-A51B2D977DFF}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
Debug|Any CPU = Debug|Any CPU
|
||||
Release|Any CPU = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||
{5D5DBAC1-C1A1-4381-8A0B-A51B2D977DFF}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{5D5DBAC1-C1A1-4381-8A0B-A51B2D977DFF}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{5D5DBAC1-C1A1-4381-8A0B-A51B2D977DFF}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{5D5DBAC1-C1A1-4381-8A0B-A51B2D977DFF}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
EndGlobalSection
|
||||
EndGlobal
|
||||
Binary file not shown.
@@ -0,0 +1 @@
|
||||
C1.Win.C1TrueDBGrid.C1TrueDBGrid, C1.Win.C1TrueDBGrid.2, Version=2.0.20112.61226, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da
|
||||
@@ -0,0 +1,17 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<PublishUrlHistory>publish\</PublishUrlHistory>
|
||||
<InstallUrlHistory>
|
||||
</InstallUrlHistory>
|
||||
<SupportUrlHistory>
|
||||
</SupportUrlHistory>
|
||||
<UpdateUrlHistory>
|
||||
</UpdateUrlHistory>
|
||||
<BootstrapperUrlHistory>
|
||||
</BootstrapperUrlHistory>
|
||||
<ErrorReportUrlHistory>
|
||||
</ErrorReportUrlHistory>
|
||||
<FallbackCulture>de-DE</FallbackCulture>
|
||||
<VerifyUploadedFiles>false</VerifyUploadedFiles>
|
||||
</PropertyGroup>
|
||||
</Project>
|
||||
Binary file not shown.
@@ -0,0 +1,232 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="3.5" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ProductVersion>9.0.30729</ProductVersion>
|
||||
<SchemaVersion>2.0</SchemaVersion>
|
||||
<ProjectGuid>{5D5DBAC1-C1A1-4381-8A0B-A51B2D977DFF}</ProjectGuid>
|
||||
<OutputType>WinExe</OutputType>
|
||||
<StartupObject>DokSA.FrmMain</StartupObject>
|
||||
<RootNamespace>DokSA</RootNamespace>
|
||||
<AssemblyName>DokSA</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>WindowsFormsWithCustomSubMain</MyType>
|
||||
<TargetFrameworkVersion>v3.5</TargetFrameworkVersion>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
<OptionInfer>Off</OptionInfer>
|
||||
<PublishUrl>publish\</PublishUrl>
|
||||
<Install>true</Install>
|
||||
<InstallFrom>Disk</InstallFrom>
|
||||
<UpdateEnabled>false</UpdateEnabled>
|
||||
<UpdateMode>Foreground</UpdateMode>
|
||||
<UpdateInterval>7</UpdateInterval>
|
||||
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
|
||||
<UpdatePeriodically>false</UpdatePeriodically>
|
||||
<UpdateRequired>false</UpdateRequired>
|
||||
<MapFileExtensions>true</MapFileExtensions>
|
||||
<ApplicationRevision>0</ApplicationRevision>
|
||||
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
|
||||
<IsWebBootstrapper>false</IsWebBootstrapper>
|
||||
<UseApplicationTrust>false</UseApplicationTrust>
|
||||
<BootstrapperEnabled>true</BootstrapperEnabled>
|
||||
<ApplicationIcon>reports.ico</ApplicationIcon>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\Debug\</OutputPath>
|
||||
<DocumentationFile>DokSA.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
<PlatformTarget>x86</PlatformTarget>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<DebugType>pdbonly</DebugType>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>bin\Release\</OutputPath>
|
||||
<DocumentationFile>DokSA.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="C1.Win.C1TrueDBGrid.2, Version=2.0.20112.61226, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da, processorArchitecture=MSIL" />
|
||||
<Reference Include="EDKB07Verarbeitung, Version=2.0.3225.14669, Culture=neutral, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\..\..\Client\EDOKA\bin\EDKB07Verarbeitung.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.Configuration" />
|
||||
<Reference Include="System.Core">
|
||||
<RequiredTargetFramework>3.5</RequiredTargetFramework>
|
||||
</Reference>
|
||||
<Reference Include="System.Data" />
|
||||
<Reference Include="System.Deployment" />
|
||||
<Reference Include="System.Design" />
|
||||
<Reference Include="System.Drawing" />
|
||||
<Reference Include="System.Web.Extensions">
|
||||
<RequiredTargetFramework>3.5</RequiredTargetFramework>
|
||||
</Reference>
|
||||
<Reference Include="System.Windows.Forms" />
|
||||
<Reference Include="System.Xml" />
|
||||
</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.Linq" />
|
||||
<Import Include="System.Windows.Forms" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="clsMehrfachdruck_Data.vb" />
|
||||
<Compile Include="clsPDF_print_show.vb" />
|
||||
<Compile Include="clsSpooler_Data.vb" />
|
||||
<Compile Include="Form1.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Form1.Designer.vb">
|
||||
<DependentUpon>Form1.vb</DependentUpon>
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmFortschritt.Designer.vb">
|
||||
<DependentUpon>frmFortschritt.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="frmFortschritt.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FrmMain.Designer.vb">
|
||||
<DependentUpon>FrmMain.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FrmMain.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmMehrfachdruck.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmPartnersuche.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Globals.vb" />
|
||||
<Compile Include="Klassen\clsConnectionProvider.vb" />
|
||||
<Compile Include="Klassen\clsDBInteractionBase.vb" />
|
||||
<Compile Include="Klassen\clsMyPartner.vb" />
|
||||
<Compile Include="Klassen\clsPartner.vb" />
|
||||
<Compile Include="Klassen\clsPartner_Hauptadresse.vb" />
|
||||
<Compile Include="Klassen\clsSpalten.vb" />
|
||||
<Compile Include="Klassen\Crypto.vb" />
|
||||
<Compile Include="Klassen\db_connection.vb" />
|
||||
<Compile Include="Klassen\frmBenutzer.Designer.vb">
|
||||
<DependentUpon>frmBenutzer.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Klassen\frmBenutzer.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Klassen\mMain.vb" />
|
||||
<Compile Include="Klassen\MySpalten.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="frmFortschritt.resx">
|
||||
<DependentUpon>frmFortschritt.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FrmMain.resx">
|
||||
<DependentUpon>FrmMain.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmMehrfachdruck.resx">
|
||||
<DependentUpon>frmMehrfachdruck.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmPartnersuche.resx">
|
||||
<DependentUpon>frmPartnersuche.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Klassen\frmBenutzer.resx">
|
||||
<DependentUpon>frmBenutzer.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="My Project\licenses.licx" />
|
||||
<EmbeddedResource Include="My Project\Resources.resx">
|
||||
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="app.config" />
|
||||
<None Include="My Project\Application.myapp">
|
||||
<Generator>MyApplicationCodeGenerator</Generator>
|
||||
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="My Project\Settings.settings">
|
||||
<Generator>SettingsSingleFileGenerator</Generator>
|
||||
<CustomToolNamespace>My</CustomToolNamespace>
|
||||
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Client.3.5">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework Client Profile</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.2.0">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 2.0 %28x86%29</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.3.0">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 3.0 %28x86%29</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 3.5</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 3.5 SP1</ProductName>
|
||||
<Install>true</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Windows.Installer.3.1">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>Windows Installer 3.1</ProductName>
|
||||
<Install>true</Install>
|
||||
</BootstrapperPackage>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Content Include="reports.ico" />
|
||||
</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,237 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Form1
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
|
||||
Me.Panel1 = New System.Windows.Forms.Panel
|
||||
Me.Label5 = New System.Windows.Forms.Label
|
||||
Me.Label4 = New System.Windows.Forms.Label
|
||||
Me.Button3 = New System.Windows.Forms.Button
|
||||
Me.Button2 = New System.Windows.Forms.Button
|
||||
Me.Button1 = New System.Windows.Forms.Button
|
||||
Me.txtJahrbis = New System.Windows.Forms.TextBox
|
||||
Me.Label3 = New System.Windows.Forms.Label
|
||||
Me.txtJahrvon = New System.Windows.Forms.TextBox
|
||||
Me.Label2 = New System.Windows.Forms.Label
|
||||
Me.txtBPNr = New System.Windows.Forms.TextBox
|
||||
Me.Label1 = New System.Windows.Forms.Label
|
||||
Me.DokList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip
|
||||
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton
|
||||
Me.Panel1.SuspendLayout()
|
||||
CType(Me.DokList, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.Controls.Add(Me.Label5)
|
||||
Me.Panel1.Controls.Add(Me.Label4)
|
||||
Me.Panel1.Controls.Add(Me.Button3)
|
||||
Me.Panel1.Controls.Add(Me.Button2)
|
||||
Me.Panel1.Controls.Add(Me.Button1)
|
||||
Me.Panel1.Controls.Add(Me.txtJahrbis)
|
||||
Me.Panel1.Controls.Add(Me.Label3)
|
||||
Me.Panel1.Controls.Add(Me.txtJahrvon)
|
||||
Me.Panel1.Controls.Add(Me.Label2)
|
||||
Me.Panel1.Controls.Add(Me.txtBPNr)
|
||||
Me.Panel1.Controls.Add(Me.Label1)
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.Panel1.Location = New System.Drawing.Point(0, 25)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(859, 84)
|
||||
Me.Panel1.TabIndex = 1
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Location = New System.Drawing.Point(368, 13)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(0, 13)
|
||||
Me.Label5.TabIndex = 10
|
||||
Me.Label5.Tag = "[Kein Partner ausgwählt]"
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Location = New System.Drawing.Point(253, 13)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(109, 13)
|
||||
Me.Label4.TabIndex = 9
|
||||
Me.Label4.Text = "BP-Kurzbezeichnung:"
|
||||
'
|
||||
'Button3
|
||||
'
|
||||
Me.Button3.Image = CType(resources.GetObject("Button3.Image"), System.Drawing.Image)
|
||||
Me.Button3.Location = New System.Drawing.Point(198, 4)
|
||||
Me.Button3.Name = "Button3"
|
||||
Me.Button3.Size = New System.Drawing.Size(34, 30)
|
||||
Me.Button3.TabIndex = 8
|
||||
Me.Button3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.Enabled = False
|
||||
Me.Button2.Location = New System.Drawing.Point(728, 38)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(107, 23)
|
||||
Me.Button2.TabIndex = 7
|
||||
Me.Button2.Text = "Daten aufbereiten"
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Enabled = False
|
||||
Me.Button1.Location = New System.Drawing.Point(728, 8)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(107, 23)
|
||||
Me.Button1.TabIndex = 6
|
||||
Me.Button1.Text = "Daten auselsen"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtJahrbis
|
||||
'
|
||||
Me.txtJahrbis.Location = New System.Drawing.Point(95, 61)
|
||||
Me.txtJahrbis.Name = "txtJahrbis"
|
||||
Me.txtJahrbis.Size = New System.Drawing.Size(54, 20)
|
||||
Me.txtJahrbis.TabIndex = 5
|
||||
Me.txtJahrbis.Text = "2011"
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Location = New System.Drawing.Point(13, 64)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(43, 13)
|
||||
Me.Label3.TabIndex = 4
|
||||
Me.Label3.Text = "Jahr bis"
|
||||
'
|
||||
'txtJahrvon
|
||||
'
|
||||
Me.txtJahrvon.Location = New System.Drawing.Point(95, 35)
|
||||
Me.txtJahrvon.Name = "txtJahrvon"
|
||||
Me.txtJahrvon.Size = New System.Drawing.Size(54, 20)
|
||||
Me.txtJahrvon.TabIndex = 3
|
||||
Me.txtJahrvon.Text = "2002"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(13, 38)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(48, 13)
|
||||
Me.Label2.TabIndex = 2
|
||||
Me.Label2.Text = "Jahr von"
|
||||
'
|
||||
'txtBPNr
|
||||
'
|
||||
Me.txtBPNr.Location = New System.Drawing.Point(95, 9)
|
||||
Me.txtBPNr.Name = "txtBPNr"
|
||||
Me.txtBPNr.Size = New System.Drawing.Size(100, 20)
|
||||
Me.txtBPNr.TabIndex = 1
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(13, 12)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(38, 13)
|
||||
Me.Label1.TabIndex = 0
|
||||
Me.Label1.Text = "BP-Nr."
|
||||
'
|
||||
'DokList
|
||||
'
|
||||
Me.DokList.AllowSort = False
|
||||
Me.DokList.AlternatingRows = True
|
||||
Me.DokList.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.DokList.FetchRowStyles = True
|
||||
Me.DokList.FilterBar = True
|
||||
Me.DokList.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.DokList.Images.Add(CType(resources.GetObject("DokList.Images"), System.Drawing.Image))
|
||||
Me.DokList.Location = New System.Drawing.Point(0, 109)
|
||||
Me.DokList.Name = "DokList"
|
||||
Me.DokList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.DokList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.DokList.PreviewInfo.ZoomFactor = 75
|
||||
Me.DokList.PrintInfo.PageSettings = CType(resources.GetObject("DokList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||
Me.DokList.ScrollTips = True
|
||||
Me.DokList.Size = New System.Drawing.Size(859, 239)
|
||||
Me.DokList.TabIndex = 11
|
||||
Me.DokList.Text = "C1TrueDBGrid2"
|
||||
Me.DokList.PropBag = resources.GetString("DokList.PropBag")
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(859, 25)
|
||||
Me.ToolStrip1.TabIndex = 12
|
||||
Me.ToolStrip1.Text = "ToolStrip1"
|
||||
'
|
||||
'ToolStripButton1
|
||||
'
|
||||
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
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(23, 22)
|
||||
Me.ToolStripButton1.Text = "Fenster schliessen"
|
||||
'
|
||||
'Form1
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(859, 348)
|
||||
Me.Controls.Add(Me.DokList)
|
||||
Me.Controls.Add(Me.Panel1)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "Form1"
|
||||
Me.Text = "Dokumentaufbereitung"
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.Panel1.PerformLayout()
|
||||
CType(Me.DokList, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ToolStrip1.ResumeLayout(False)
|
||||
Me.ToolStrip1.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents txtJahrbis As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents txtJahrvon As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents txtBPNr As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents DokList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents Button2 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button3 As System.Windows.Forms.Button
|
||||
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
|
||||
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
|
||||
|
||||
End Class
|
||||
Binary file not shown.
Binary file not shown.
@@ -0,0 +1 @@
|
||||
¹µÈ¦rȽ¹¿¸ª‰¿Çx…½³»É·¥¹u¨À¦¾·¼‘¹©ÁÀ¯½º·¿µ¸Æhȹ·ºÄ¾Â½m¾³²»‚¸©Áǹ€ÉÄÀ¯ÀɦÀµ´Àh¾¸‘€Â¶±¯²Ée¿µ¿·…‰„{ÊÁ©¿u®°‰¸³ƒÅµÇ¸ÉÄÀ¨Š¸´Áw‹ƒ
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,295 @@
|
||||
Imports System.Windows.Forms
|
||||
Imports System.Diagnostics
|
||||
Imports System.Runtime.InteropServices
|
||||
Imports System.Text
|
||||
Imports System.Runtime.Serialization.Formatters.Binary
|
||||
|
||||
Imports System.IO
|
||||
|
||||
Imports EDOKALib.Common
|
||||
|
||||
Public Module mMain
|
||||
Public Class SerialHelper
|
||||
'///Class mercilessly ripped-off from Dr GUI.Net #3 :)
|
||||
Public Shared Function SerializeToBase64String(ByVal o As Object) As String
|
||||
Dim formatter As New Runtime.Serialization.Formatters.Binary.BinaryFormatter()
|
||||
Dim serialMemoryStream As New MemoryStream()
|
||||
formatter.Serialize(serialMemoryStream, o)
|
||||
Dim bytes() As Byte = serialMemoryStream.ToArray()
|
||||
Return Convert.ToBase64String(bytes).Trim()
|
||||
End Function
|
||||
|
||||
Public Shared Function DeserializeFromBase64String(ByVal base64String As String) As Object
|
||||
Dim formatter As New Runtime.Serialization.Formatters.Binary.BinaryFormatter()
|
||||
base64String = base64String.Trim(ControlChars.NullChar)
|
||||
Dim bytes() As Byte = Convert.FromBase64String(base64String)
|
||||
Dim serialMemoryStream As New MemoryStream(bytes)
|
||||
Return formatter.Deserialize(serialMemoryStream)
|
||||
End Function
|
||||
End Class
|
||||
|
||||
Public Class SingleInstance
|
||||
Public Interface ISingleInstanceForm
|
||||
Delegate Sub _WndProc(ByVal m As Message, ByRef Cancel As Boolean)
|
||||
Event WndProc As _WndProc
|
||||
ReadOnly Property Handle() As IntPtr
|
||||
Sub HandleCommand(ByVal strCmd As String)
|
||||
End Interface
|
||||
#Region "API"
|
||||
Private Const WM_COPYDATA As Integer = &H4A
|
||||
|
||||
<StructLayout(LayoutKind.Sequential)> _
|
||||
Public Structure COPYDATASTRUCT
|
||||
Public dwData As Integer
|
||||
Public cbData As Integer
|
||||
Public lpData As Integer
|
||||
End Structure
|
||||
|
||||
Private Declare Auto Function GetProp Lib "user32" (ByVal hWnd As Integer, ByVal lpString As String) As Integer
|
||||
Private Declare Auto Function SetProp Lib "user32" (ByVal hWnd As Integer, ByVal lpString As String, ByVal hData As Integer) As Integer
|
||||
|
||||
Private Delegate Function EnumWindowsProc(ByVal hWnd As Integer, ByVal lParam As Integer) As Integer
|
||||
Private Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As EnumWindowsProc, ByVal lParam As Integer) As Integer
|
||||
|
||||
Private Declare Auto Function SendMessage Lib "user32" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As IntPtr) As Integer
|
||||
|
||||
Public Declare Function SendMessageTimeout Lib "user32" Alias "SendMessageTimeoutA" _
|
||||
(ByVal windowHandle As IntPtr, _
|
||||
ByVal Msg As UInt16, _
|
||||
ByVal wParam As IntPtr, _
|
||||
ByRef lParam As COPYDATASTRUCT, _
|
||||
ByVal flags As SendMessageTimeoutFlags, _
|
||||
ByVal timeout As UInt16, _
|
||||
ByVal result As IntPtr) As IntPtr
|
||||
|
||||
<Flags()> _
|
||||
Public Enum SendMessageTimeoutFlags As Short
|
||||
SMTO_NORMAL = &H0 '0x0000
|
||||
SMTO_BLOCK = &H1 ''0x0001
|
||||
SMTO_ABORTIFHUNG = &H2 '0x0002
|
||||
SMTO_NOTIMEOUTIFNOTHUNG = &H8 '0x0008
|
||||
End Enum
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "EnumWindows"
|
||||
Private Shared _EWP As New EnumWindowsProc(AddressOf EWP)
|
||||
Private Shared Function EWP(ByVal hWnd As Integer, ByVal lParam As Integer) As Integer
|
||||
' Customised windows enumeration procedure. Stops
|
||||
' when it finds another application with the Window
|
||||
' property set, or when all windows are exhausted.
|
||||
Try
|
||||
If IsThisApp(hWnd) Then
|
||||
_hWnd = hWnd
|
||||
Return 0
|
||||
Else
|
||||
Return 1
|
||||
End If
|
||||
Catch
|
||||
Return 0
|
||||
End Try
|
||||
End Function
|
||||
Private Shared Function IsThisApp(ByVal hWnd As Long) As Boolean
|
||||
' Check if the windows property is set for this
|
||||
' window handle:
|
||||
If GetProp(hWnd, _mcThisAppID & "_APPLICATION") = 1 Then
|
||||
Return True
|
||||
End If
|
||||
End Function
|
||||
|
||||
Private Shared Function FindWindow() As Boolean
|
||||
If _hWnd = -1 Then
|
||||
EnumWindows(_EWP, 0)
|
||||
If _hWnd = -1 Then
|
||||
Return False
|
||||
Else
|
||||
Return True
|
||||
End If
|
||||
Else
|
||||
Return True
|
||||
End If
|
||||
End Function
|
||||
|
||||
Private Shared Function SendCDSToWindow(ByVal CD As COPYDATASTRUCT) As Boolean
|
||||
Try
|
||||
Dim lpCD As IntPtr = Marshal.AllocHGlobal(Len(CD))
|
||||
Marshal.StructureToPtr(CD, lpCD, False)
|
||||
'SendMessage(_hWnd, WM_COPYDATA, _hWnd, lpCD)
|
||||
Dim result As IntPtr
|
||||
Dim retVal As IntPtr
|
||||
|
||||
Dim handle As New IntPtr(_hWnd)
|
||||
|
||||
retVal = SendMessageTimeout(handle, Convert.ToUInt16(WM_COPYDATA), handle, CD, SendMessageTimeoutFlags.SMTO_NORMAL, Convert.ToUInt16(2000), result)
|
||||
|
||||
Marshal.FreeHGlobal(lpCD)
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
'TKBLib.Errorhandling.TraceHelper.Msg("EdokaApp.mMain.SendCDSToWindow", ex.Message & ex.StackTrace, TraceLevel.Error)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Shared Function SendMessageToWindow(ByVal strCmd As String) As Boolean
|
||||
If _hWnd = -1 Then Return False
|
||||
If Len(strCmd) = 0 Then
|
||||
Try
|
||||
Dim CD As COPYDATASTRUCT
|
||||
With CD
|
||||
.dwData = 0
|
||||
.cbData = 0
|
||||
.lpData = 0
|
||||
End With
|
||||
Return SendCDSToWindow(CD)
|
||||
Catch
|
||||
Return False
|
||||
End Try
|
||||
Else
|
||||
Try
|
||||
Dim B() As Byte = Encoding.Default.GetBytes(strCmd)
|
||||
Dim lpB As IntPtr = Marshal.AllocHGlobal(B.Length)
|
||||
Marshal.Copy(B, 0, lpB, B.Length)
|
||||
|
||||
Dim CD As COPYDATASTRUCT
|
||||
With CD
|
||||
.dwData = 0
|
||||
.cbData = B.Length
|
||||
.lpData = lpB.ToInt32
|
||||
End With
|
||||
Erase B
|
||||
|
||||
Try
|
||||
If SendCDSToWindow(CD) Then
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
Catch
|
||||
Return False
|
||||
Finally
|
||||
Marshal.FreeHGlobal(lpB)
|
||||
End Try
|
||||
|
||||
Catch
|
||||
Return False
|
||||
End Try
|
||||
End If
|
||||
End Function
|
||||
Private Shared Function SendMessageToWindow(ByVal oCmd As Object) As Boolean
|
||||
Try
|
||||
Dim strCmd As String = SerialHelper.SerializeToBase64String(oCmd)
|
||||
Return SendMessageToWindow(strCmd)
|
||||
Catch
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
Private Shared _hWnd As Integer = -1
|
||||
Private Shared _mcThisAppID As String
|
||||
Private Shared oMutex As Threading.Mutex
|
||||
Private Shared _MutexOwned As Boolean = False
|
||||
Private Shared WithEvents MainForm As ISingleInstanceForm
|
||||
|
||||
Shared Sub New()
|
||||
_mcThisAppID = Reflection.Assembly.GetExecutingAssembly().FullName
|
||||
oMutex = New Threading.Mutex(True, _mcThisAppID & "_APPLICATION_MUTEX", _MutexOwned)
|
||||
If Not _MutexOwned Then
|
||||
If Not FindWindow() Then
|
||||
_MutexOwned = True
|
||||
End If
|
||||
End If
|
||||
AddHandler AppDomain.CurrentDomain.ProcessExit, AddressOf OnExit
|
||||
End Sub
|
||||
Private Shared Sub OnExit(ByVal sender As Object, ByVal e As EventArgs)
|
||||
Try
|
||||
If Not oMutex Is Nothing Then
|
||||
oMutex.ReleaseMutex()
|
||||
CType(oMutex, IDisposable).Dispose()
|
||||
oMutex = Nothing
|
||||
End If
|
||||
Catch
|
||||
'Do Nothing
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Shared ReadOnly Property IsFirstInstance() As Boolean
|
||||
Get
|
||||
Return _MutexOwned
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public Shared Function NotifyPreviousWindow() As Boolean
|
||||
Return SendMessageToWindow(vbNullString)
|
||||
End Function
|
||||
Public Shared Function NotifyPreviousWindow(ByVal strText As String) As Boolean
|
||||
Return SendMessageToWindow(strText)
|
||||
End Function
|
||||
Public Shared Function NotifyPreviousWindow(ByVal oCmd As Object) As Boolean
|
||||
Return SendMessageToWindow(oCmd)
|
||||
End Function
|
||||
|
||||
Public Shared Sub SetMainForm(ByVal frm As ISingleInstanceForm)
|
||||
MainForm = frm
|
||||
Try
|
||||
Dim hWnd As Integer = frm.Handle.ToInt32
|
||||
SetProp(hWnd, _mcThisAppID & "_APPLICATION", 1)
|
||||
Catch
|
||||
MainForm = Nothing
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Shared Sub MainForm_WndProc(ByVal m As System.Windows.Forms.Message, ByRef Cancel As Boolean) Handles MainForm.WndProc
|
||||
Select Case m.Msg
|
||||
Case WM_COPYDATA
|
||||
Dim B() As Byte
|
||||
Try
|
||||
Dim CD As COPYDATASTRUCT = m.GetLParam(GetType(COPYDATASTRUCT))
|
||||
ReDim B(CD.cbData)
|
||||
Dim lpData As IntPtr = New IntPtr(CD.lpData)
|
||||
Marshal.Copy(lpData, B, 0, CD.cbData)
|
||||
Dim strData As String = Encoding.Default.GetString(B)
|
||||
'TKBLib.Errorhandling.TraceHelper.Msg("EdokaApp.mMain.SingleeInstance.MainForm_WndProc", "Received Windows Msg " & strData, TraceLevel.Info)
|
||||
MainForm.HandleCommand(strData)
|
||||
|
||||
Cancel = True
|
||||
|
||||
Catch
|
||||
Cancel = False
|
||||
Finally
|
||||
Erase B
|
||||
End Try
|
||||
|
||||
Case Else
|
||||
Cancel = False
|
||||
End Select
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Private MainForm As FrmMain
|
||||
|
||||
<STAThread()> Public Function Main(ByVal CmdArgs() As String) As Integer
|
||||
If SingleInstance.IsFirstInstance Then
|
||||
Try
|
||||
g_bRun = True
|
||||
MainForm = New FrmMain
|
||||
|
||||
'MainForm.CmdArgsSimulated = CmdArgs
|
||||
|
||||
SingleInstance.SetMainForm(MainForm)
|
||||
Application.Run(MainForm)
|
||||
Catch ex As Exception
|
||||
'If Not Force_Exit Then
|
||||
' MsgBox(ex.Message)
|
||||
' End If
|
||||
End Try
|
||||
Else
|
||||
g_bRun = True
|
||||
SingleInstance.NotifyPreviousWindow(CmdArgs)
|
||||
End If
|
||||
|
||||
End Function
|
||||
End Module
|
||||
|
||||
@@ -0,0 +1,9 @@
|
||||
Public Class frmFortschritt
|
||||
|
||||
|
||||
Private Sub frmFortschritt_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,25 @@
|
||||
Module Globals
|
||||
Public fMehrfachdruck As frmMehrfachdruck
|
||||
Public iMerker As Integer = 0
|
||||
Public g_bRun As Boolean
|
||||
Public _HashThreads As New Hashtable()
|
||||
Public _HashDruckanzeige As New Hashtable()
|
||||
|
||||
Public tgnummer As String = "tg9831"
|
||||
Public temppfad As String = "h:\tssettings\edoka\"
|
||||
'Public connectionString As String = "Data Source=shu00;Initial Catalog=edoka_host;User ID=sa;Password=*shu29"
|
||||
|
||||
Public sConnectionString As String
|
||||
Public conn As New edokadb.clsConnectionProvider()
|
||||
Public ConnectionFileName As String = ""
|
||||
Public Spalten As New DataTable()
|
||||
|
||||
Public Packagegroesse As Integer
|
||||
Public DelayTime As Integer
|
||||
Public Userdata As New DataSet
|
||||
Public Mitarbeiternr As Integer
|
||||
|
||||
Public Partnernr As String
|
||||
Public PartnerKurzbezeichnung As String
|
||||
|
||||
End Module
|
||||
@@ -0,0 +1,610 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'spalten'
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Montag, 20. Januar 2003, 22:51:23
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'spalten'.
|
||||
' /// </summary>
|
||||
Public Class clsSpalten
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_bReadonly, m_bAlsHacken, m_bAktiv As SqlBoolean
|
||||
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
|
||||
Private m_iMandantnr, m_iMutierer, m_iReihenfolge, m_iBreite, m_iEintragnr As SqlInt32
|
||||
Private m_sTabelle, m_sTabellenspalte, m_sTiptext, m_sSpalte As SqlString
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iEintragnr</LI>
|
||||
' /// <LI>sTabelle. May be SqlString.Null</LI>
|
||||
' /// <LI>sTabellenspalte. May be SqlString.Null</LI>
|
||||
' /// <LI>sSpalte. May be SqlString.Null</LI>
|
||||
' /// <LI>bReadonly. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>bAlsHacken. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>iBreite. May be SqlInt32.Null</LI>
|
||||
' /// <LI>iReihenfolge. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sTiptext. May be SqlString.Null</LI>
|
||||
' /// <LI>bAktiv</LI>
|
||||
' /// <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
' /// <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_spalten_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ieintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEintragnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@stabelle", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTabelle))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@stabellenspalte", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTabellenspalte))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sspalte", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSpalte))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bReadonly", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bReadonly))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@balsHacken", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAlsHacken))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iBreite", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBreite))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iReihenfolge", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iReihenfolge))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@stiptext", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTiptext))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_spalten_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsSpalten::Insert::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Update method. This method will Update one existing row in the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iEintragnr</LI>
|
||||
' /// <LI>sTabelle. May be SqlString.Null</LI>
|
||||
' /// <LI>sTabellenspalte. May be SqlString.Null</LI>
|
||||
' /// <LI>sSpalte. May be SqlString.Null</LI>
|
||||
' /// <LI>bReadonly. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>bAlsHacken. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>iBreite. May be SqlInt32.Null</LI>
|
||||
' /// <LI>iReihenfolge. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sTiptext. May be SqlString.Null</LI>
|
||||
' /// <LI>bAktiv</LI>
|
||||
' /// <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
' /// <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_spalten_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ieintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEintragnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@stabelle", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTabelle))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@stabellenspalte", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTabellenspalte))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sspalte", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSpalte))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bReadonly", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bReadonly))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@balsHacken", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAlsHacken))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iBreite", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBreite))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iReihenfolge", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iReihenfolge))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@stiptext", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTiptext))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_spalten_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsSpalten::Update::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iEintragnr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Public Overrides Function Delete() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_spalten_Delete]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ieintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEintragnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_spalten_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsSpalten::Delete::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iEintragnr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// <LI>iEintragnr</LI>
|
||||
' /// <LI>sTabelle</LI>
|
||||
' /// <LI>sTabellenspalte</LI>
|
||||
' /// <LI>sSpalte</LI>
|
||||
' /// <LI>bReadonly</LI>
|
||||
' /// <LI>bAlsHacken</LI>
|
||||
' /// <LI>iBreite</LI>
|
||||
' /// <LI>iReihenfolge</LI>
|
||||
' /// <LI>sTiptext</LI>
|
||||
' /// <LI>bAktiv</LI>
|
||||
' /// <LI>daErstellt_am</LI>
|
||||
' /// <LI>daMutiert_am</LI>
|
||||
' /// <LI>iMutierer</LI>
|
||||
' /// <LI>iMandantnr</LI>
|
||||
' /// </UL>
|
||||
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectOne() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_spalten_SelectOne]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("spalten")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@ieintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEintragnr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_spalten_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
If dtToReturn.Rows.Count > 0 Then
|
||||
m_iEintragnr = New SqlInt32(CType(dtToReturn.Rows(0)("eintragnr"), Integer))
|
||||
If dtToReturn.Rows(0)("tabelle") Is System.DBNull.Value Then
|
||||
m_sTabelle = SqlString.Null
|
||||
Else
|
||||
m_sTabelle = New SqlString(CType(dtToReturn.Rows(0)("tabelle"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("tabellenspalte") Is System.DBNull.Value Then
|
||||
m_sTabellenspalte = SqlString.Null
|
||||
Else
|
||||
m_sTabellenspalte = New SqlString(CType(dtToReturn.Rows(0)("tabellenspalte"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("spalte") Is System.DBNull.Value Then
|
||||
m_sSpalte = SqlString.Null
|
||||
Else
|
||||
m_sSpalte = New SqlString(CType(dtToReturn.Rows(0)("spalte"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Readonly") Is System.DBNull.Value Then
|
||||
m_bReadonly = SqlBoolean.Null
|
||||
Else
|
||||
m_bReadonly = New SqlBoolean(CType(dtToReturn.Rows(0)("Readonly"), Boolean))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("alsHacken") Is System.DBNull.Value Then
|
||||
m_bAlsHacken = SqlBoolean.Null
|
||||
Else
|
||||
m_bAlsHacken = New SqlBoolean(CType(dtToReturn.Rows(0)("alsHacken"), Boolean))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Breite") Is System.DBNull.Value Then
|
||||
m_iBreite = SqlInt32.Null
|
||||
Else
|
||||
m_iBreite = New SqlInt32(CType(dtToReturn.Rows(0)("Breite"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Reihenfolge") Is System.DBNull.Value Then
|
||||
m_iReihenfolge = SqlInt32.Null
|
||||
Else
|
||||
m_iReihenfolge = New SqlInt32(CType(dtToReturn.Rows(0)("Reihenfolge"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("tiptext") Is System.DBNull.Value Then
|
||||
m_sTiptext = SqlString.Null
|
||||
Else
|
||||
m_sTiptext = New SqlString(CType(dtToReturn.Rows(0)("tiptext"), String))
|
||||
End If
|
||||
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
|
||||
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
|
||||
m_daErstellt_am = SqlDateTime.Null
|
||||
Else
|
||||
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
|
||||
m_daMutiert_am = SqlDateTime.Null
|
||||
Else
|
||||
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
|
||||
m_iMutierer = SqlInt32.Null
|
||||
Else
|
||||
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
|
||||
m_iMandantnr = SqlInt32.Null
|
||||
Else
|
||||
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
|
||||
End If
|
||||
End If
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsSpalten::SelectOne::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Public Overrides Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_spalten_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = New DataTable("spalten")
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_spalten_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsSpalten::SelectAll::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public Property [iEintragnr]() As SqlInt32
|
||||
Get
|
||||
Return m_iEintragnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
Dim iEintragnrTmp As SqlInt32 = Value
|
||||
If iEintragnrTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("iEintragnr", "iEintragnr can't be NULL")
|
||||
End If
|
||||
m_iEintragnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sTabelle]() As SqlString
|
||||
Get
|
||||
Return m_sTabelle
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sTabelle = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sTabellenspalte]() As SqlString
|
||||
Get
|
||||
Return m_sTabellenspalte
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sTabellenspalte = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sSpalte]() As SqlString
|
||||
Get
|
||||
Return m_sSpalte
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sSpalte = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [bReadonly]() As SqlBoolean
|
||||
Get
|
||||
Return m_bReadonly
|
||||
End Get
|
||||
Set(ByVal Value As SqlBoolean)
|
||||
m_bReadonly = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [bAlsHacken]() As SqlBoolean
|
||||
Get
|
||||
Return m_bAlsHacken
|
||||
End Get
|
||||
Set(ByVal Value As SqlBoolean)
|
||||
m_bAlsHacken = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iBreite]() As SqlInt32
|
||||
Get
|
||||
Return m_iBreite
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iBreite = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iReihenfolge]() As SqlInt32
|
||||
Get
|
||||
Return m_iReihenfolge
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iReihenfolge = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sTiptext]() As SqlString
|
||||
Get
|
||||
Return m_sTiptext
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sTiptext = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [bAktiv]() As SqlBoolean
|
||||
Get
|
||||
Return m_bAktiv
|
||||
End Get
|
||||
Set(ByVal Value As SqlBoolean)
|
||||
Dim bAktivTmp As SqlBoolean = Value
|
||||
If bAktivTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("bAktiv", "bAktiv can't be NULL")
|
||||
End If
|
||||
m_bAktiv = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daErstellt_am]() As SqlDateTime
|
||||
Get
|
||||
Return m_daErstellt_am
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daErstellt_am = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daMutiert_am]() As SqlDateTime
|
||||
Get
|
||||
Return m_daMutiert_am
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daMutiert_am = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iMutierer]() As SqlInt32
|
||||
Get
|
||||
Return m_iMutierer
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iMutierer = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iMandantnr]() As SqlInt32
|
||||
Get
|
||||
Return m_iMandantnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iMandantnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
@@ -0,0 +1,879 @@
|
||||
Imports System.IO
|
||||
Imports System.Data
|
||||
Imports System.Threading
|
||||
Imports System.Drawing
|
||||
Imports System.Windows.Forms
|
||||
|
||||
Public Class frmMehrfachdruck
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
#Region " Vom Windows Form Designer generierter Code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
||||
|
||||
End Sub
|
||||
|
||||
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
If Not (components Is Nothing) Then
|
||||
components.Dispose()
|
||||
End If
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
' Für Windows Form-Designer erforderlich
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
||||
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
||||
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
||||
Friend WithEvents lvDruckauftraege As System.Windows.Forms.ListView
|
||||
Friend WithEvents StatusBar1 As System.Windows.Forms.StatusBar
|
||||
Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
|
||||
Friend WithEvents nmuDelete As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents nmuRefresh As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents mnuDurck As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents lvid_JobID As System.Windows.Forms.ColumnHeader
|
||||
Friend WithEvents lvid_Auftrag As System.Windows.Forms.ColumnHeader
|
||||
Friend WithEvents lvid_Typ As System.Windows.Forms.ColumnHeader
|
||||
Friend WithEvents lvid_Anzahl As System.Windows.Forms.ColumnHeader
|
||||
Friend WithEvents lvid_Status As System.Windows.Forms.ColumnHeader
|
||||
Friend WithEvents mnuAnzeige As System.Windows.Forms.MenuItem
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.lvDruckauftraege = New System.Windows.Forms.ListView
|
||||
Me.lvid_JobID = New System.Windows.Forms.ColumnHeader
|
||||
Me.lvid_Auftrag = New System.Windows.Forms.ColumnHeader
|
||||
Me.lvid_Typ = New System.Windows.Forms.ColumnHeader
|
||||
Me.lvid_Anzahl = New System.Windows.Forms.ColumnHeader
|
||||
Me.lvid_Status = New System.Windows.Forms.ColumnHeader
|
||||
Me.ContextMenu1 = New System.Windows.Forms.ContextMenu
|
||||
Me.mnuAnzeige = New System.Windows.Forms.MenuItem
|
||||
Me.mnuDurck = New System.Windows.Forms.MenuItem
|
||||
Me.MenuItem2 = New System.Windows.Forms.MenuItem
|
||||
Me.nmuDelete = New System.Windows.Forms.MenuItem
|
||||
Me.nmuRefresh = New System.Windows.Forms.MenuItem
|
||||
Me.StatusBar1 = New System.Windows.Forms.StatusBar
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'lvDruckauftraege
|
||||
'
|
||||
Me.lvDruckauftraege.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.lvid_JobID, Me.lvid_Auftrag, Me.lvid_Typ, Me.lvid_Anzahl, Me.lvid_Status})
|
||||
Me.lvDruckauftraege.ContextMenu = Me.ContextMenu1
|
||||
Me.lvDruckauftraege.FullRowSelect = True
|
||||
Me.lvDruckauftraege.GridLines = True
|
||||
Me.lvDruckauftraege.Location = New System.Drawing.Point(0, 0)
|
||||
Me.lvDruckauftraege.MultiSelect = False
|
||||
Me.lvDruckauftraege.Name = "lvDruckauftraege"
|
||||
Me.lvDruckauftraege.Size = New System.Drawing.Size(480, 88)
|
||||
Me.lvDruckauftraege.TabIndex = 2
|
||||
Me.lvDruckauftraege.UseCompatibleStateImageBehavior = False
|
||||
Me.lvDruckauftraege.View = System.Windows.Forms.View.Details
|
||||
'
|
||||
'lvid_JobID
|
||||
'
|
||||
Me.lvid_JobID.Text = "JobID"
|
||||
Me.lvid_JobID.Width = 0
|
||||
'
|
||||
'lvid_Auftrag
|
||||
'
|
||||
Me.lvid_Auftrag.Text = "Auftrag"
|
||||
Me.lvid_Auftrag.Width = 120
|
||||
'
|
||||
'lvid_Typ
|
||||
'
|
||||
Me.lvid_Typ.Text = "Typ"
|
||||
Me.lvid_Typ.Width = 90
|
||||
'
|
||||
'lvid_Anzahl
|
||||
'
|
||||
Me.lvid_Anzahl.Text = "Anzahl"
|
||||
Me.lvid_Anzahl.Width = 70
|
||||
'
|
||||
'lvid_Status
|
||||
'
|
||||
Me.lvid_Status.Text = "Status"
|
||||
Me.lvid_Status.Width = 180
|
||||
'
|
||||
'ContextMenu1
|
||||
'
|
||||
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuAnzeige, Me.mnuDurck, Me.MenuItem2, Me.nmuDelete, Me.nmuRefresh})
|
||||
'
|
||||
'mnuAnzeige
|
||||
'
|
||||
Me.mnuAnzeige.Index = 0
|
||||
Me.mnuAnzeige.Text = "Dokument Anzeigen"
|
||||
'
|
||||
'mnuDurck
|
||||
'
|
||||
Me.mnuDurck.Index = 1
|
||||
Me.mnuDurck.Text = "Drucken"
|
||||
'
|
||||
'MenuItem2
|
||||
'
|
||||
Me.MenuItem2.Index = 2
|
||||
Me.MenuItem2.Text = "-"
|
||||
'
|
||||
'nmuDelete
|
||||
'
|
||||
Me.nmuDelete.Index = 3
|
||||
Me.nmuDelete.Text = "Auftrag löschen"
|
||||
'
|
||||
'nmuRefresh
|
||||
'
|
||||
Me.nmuRefresh.Index = 4
|
||||
Me.nmuRefresh.Text = "Auftrag erneut anfordern"
|
||||
'
|
||||
'StatusBar1
|
||||
'
|
||||
Me.StatusBar1.Location = New System.Drawing.Point(0, 88)
|
||||
Me.StatusBar1.Name = "StatusBar1"
|
||||
Me.StatusBar1.Size = New System.Drawing.Size(482, 22)
|
||||
Me.StatusBar1.TabIndex = 3
|
||||
'
|
||||
'frmMehrfachdruck
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(482, 110)
|
||||
Me.ControlBox = False
|
||||
Me.Controls.Add(Me.StatusBar1)
|
||||
Me.Controls.Add(Me.lvDruckauftraege)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
|
||||
Me.MaximizeBox = False
|
||||
Me.MinimizeBox = False
|
||||
Me.Name = "frmMehrfachdruck"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
|
||||
Me.Text = "Druckaufträge"
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Deklarationen "
|
||||
|
||||
|
||||
|
||||
'Dim _HashThreads As New Hashtable()
|
||||
'Dim _HashDruckanzeige As New Hashtable()
|
||||
|
||||
Dim tmpColColdData As Collection
|
||||
Dim tmpColOfficeData As Collection
|
||||
|
||||
Dim sAuftraNR As String
|
||||
|
||||
'PDF Drucken
|
||||
Dim printthread As Thread
|
||||
Dim printfilename As String
|
||||
|
||||
Dim m_MenuEintrag As Integer
|
||||
|
||||
Dim iJobCounter As Integer = 0
|
||||
Dim iJobID(1) As Integer 'Job ID's für den Office und Cold Thread
|
||||
|
||||
'Dim colDruckanzeige As New Collection()
|
||||
|
||||
|
||||
Private Enum enum_MehrfachdruckFeld
|
||||
Anzahl = 0
|
||||
Status = 1
|
||||
End Enum
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Formular "
|
||||
|
||||
Public Sub InitForm()
|
||||
Try
|
||||
Me.Visible = False
|
||||
StatusBar1.Text = "Druckspooler initialisieren"
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub InitAnzeige()
|
||||
If iMerker = 1 Then
|
||||
Exit Sub
|
||||
End If
|
||||
Try
|
||||
iMerker = 1
|
||||
|
||||
Dim ColTrans As ColorTranslator
|
||||
Thread.Sleep(1000)
|
||||
If lvDruckauftraege.Items.Count = 0 Then
|
||||
StatusBar1.Text = "keine Druckaufträge"
|
||||
If Me.Visible = True Then
|
||||
Me.Visible = False
|
||||
End If
|
||||
End If
|
||||
|
||||
'Anzeige aktualisieren
|
||||
'Dim coltmp As Collection
|
||||
Dim coltmp As Hashtable
|
||||
|
||||
coltmp = _HashDruckanzeige
|
||||
|
||||
Dim i As Integer
|
||||
i = 0
|
||||
|
||||
GenAnzeige(coltmp, i)
|
||||
'Try
|
||||
|
||||
' lvDruckauftraege.Items.Clear()
|
||||
' lvDruckauftraege.BeginUpdate()
|
||||
' Dim element As DictionaryEntry
|
||||
' For Each element In coltmp
|
||||
' 'For i = 1 To coltmp.Count
|
||||
' colSpooler = element.Value
|
||||
' 'colSpooler = coltmp(i)
|
||||
' lvDruckauftraege.Items.Add(colSpooler.JobID)
|
||||
' lvDruckauftraege.Items(i).SubItems.Add(colSpooler.AuftragNr)
|
||||
' lvDruckauftraege.Items(i).SubItems.Add(colSpooler.Typ)
|
||||
' lvDruckauftraege.Items(i).SubItems.Add(colSpooler.Anzahl)
|
||||
' lvDruckauftraege.Items(i).SubItems.Add(colSpooler.Status)
|
||||
' If colSpooler.Status = "Dokument bereit zum drucken" Then
|
||||
' 'grün
|
||||
' lvDruckauftraege.Items(i).BackColor = Color.FromArgb(255, 164, 253, 143)
|
||||
' End If
|
||||
' If colSpooler.Status = "Fehler beim Drucken" Then
|
||||
' 'rot
|
||||
' lvDruckauftraege.Items(i).BackColor = Color.FromArgb(255, 255, 174, 165)
|
||||
' End If
|
||||
' i &= 1
|
||||
' Next
|
||||
' lvDruckauftraege.EndUpdate()
|
||||
'Catch ex As Exception
|
||||
' MsgBox("Fehler4: " & ex.Message)
|
||||
'End Try
|
||||
Try
|
||||
'Statusbar aktualisieren
|
||||
If i > 0 Then
|
||||
Me.StatusBar1.Text = "Anzahl Druckaufträge " + i.ToString.Trim
|
||||
If Me.Visible = False Then
|
||||
Me.Top = Me.ParentForm.ClientSize.Height - Me.Height - 50
|
||||
Me.Left = Me.ParentForm.ClientSize.Width - Me.Width - 30
|
||||
minimize_all_childs()
|
||||
Me.Visible = True
|
||||
Else
|
||||
minimize_all_childs()
|
||||
End If
|
||||
Else
|
||||
StatusBar1.Text = "keine Druckaufträge"
|
||||
If Me.Visible = True Then
|
||||
Me.Visible = False
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler1: " & ex.Message)
|
||||
End Try
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler3: " & ex.Message)
|
||||
Finally
|
||||
iMerker = 0
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Delegate Sub GenCallBack(ByVal coltmp As Hashtable, ByRef i As Integer)
|
||||
Private Sub GenAnzeige(ByVal coltmp As Hashtable, ByRef i As Integer)
|
||||
Try
|
||||
'If Me.lvDruckauftraege.InvokeRequired = True Then
|
||||
' Dim dd As New GenCallBack(AddressOf GenAnzeige)
|
||||
' dd.Invoke(coltmp, i)
|
||||
'End If
|
||||
Dim colSpooler As clsSpooler_Data
|
||||
'lvDruckauftraege = New ListView()
|
||||
lvDruckauftraege.BeginUpdate()
|
||||
Try
|
||||
lvDruckauftraege.Items.Clear()
|
||||
Catch
|
||||
lvDruckauftraege = New ListView()
|
||||
Me.lvDruckauftraege.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.lvid_JobID, Me.lvid_Auftrag, Me.lvid_Typ, Me.lvid_Anzahl, Me.lvid_Status})
|
||||
Me.lvDruckauftraege.ContextMenu = Me.ContextMenu1
|
||||
Me.lvDruckauftraege.FullRowSelect = True
|
||||
Me.lvDruckauftraege.GridLines = True
|
||||
Me.lvDruckauftraege.MultiSelect = False
|
||||
Me.lvDruckauftraege.Name = "lvDruckauftraege"
|
||||
Me.lvDruckauftraege.Size = New System.Drawing.Size(480, 88)
|
||||
Me.lvDruckauftraege.TabIndex = 2
|
||||
Me.lvDruckauftraege.View = System.Windows.Forms.View.Details
|
||||
End Try
|
||||
|
||||
lvDruckauftraege.Sorting = SortOrder.None
|
||||
|
||||
Dim element As DictionaryEntry
|
||||
|
||||
For Each element In coltmp
|
||||
colSpooler = element.Value
|
||||
lvDruckauftraege.Items.Add(colSpooler.JobID.ToString.Trim)
|
||||
lvDruckauftraege.Items(i).SubItems.Add(colSpooler.AuftragNr)
|
||||
lvDruckauftraege.Items(i).SubItems.Add(colSpooler.Typ)
|
||||
lvDruckauftraege.Items(i).SubItems.Add(colSpooler.Anzahl)
|
||||
lvDruckauftraege.Items(i).SubItems.Add(colSpooler.Status)
|
||||
lvDruckauftraege.Items(i).ForeColor = Color.Black
|
||||
If colSpooler.Status = "Dokument bereit zum drucken" Then
|
||||
'grün
|
||||
lvDruckauftraege.Items(i).BackColor = Color.FromArgb(255, 164, 253, 143)
|
||||
End If
|
||||
If colSpooler.Status = "Fehler beim Drucken" Then
|
||||
'rot
|
||||
lvDruckauftraege.Items(i).BackColor = Color.FromArgb(255, 255, 174, 165)
|
||||
End If
|
||||
i = i + 1
|
||||
Next
|
||||
|
||||
lvDruckauftraege.EndUpdate()
|
||||
|
||||
'Dim Sorter As New clsListViewItemComparer(0)
|
||||
'lvDruckauftraege.ListViewItemSorter = Sorter
|
||||
'lvDruckauftraege.Sort()
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler GenAnzeige: " & ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub AnzeigePopup()
|
||||
Try
|
||||
minimize_all_childs()
|
||||
Me.Focus()
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Druck Funktionen "
|
||||
|
||||
Public Function DruckAnfrage(ByVal colColdData As Collection, ByVal colOfficeData As Collection)
|
||||
Try
|
||||
'Auftragsnummer generieren
|
||||
sAuftraNR = Now().ToString.Trim
|
||||
'JobID's zuweisen
|
||||
iJobCounter = iJobCounter + 1
|
||||
iJobID(0) = iJobCounter 'JobID Cold
|
||||
iJobCounter = iJobCounter + 1
|
||||
iJobID(1) = iJobCounter 'JobID Office
|
||||
|
||||
If colColdData.Count > 0 Then
|
||||
Dim MehrfachDruckColdThread As Thread
|
||||
tmpColColdData = colColdData
|
||||
MehrfachDruckColdThread = New Thread(AddressOf StartColdDruckJob)
|
||||
MehrfachDruckColdThread.IsBackground = True
|
||||
MehrfachDruckColdThread.Name = "EDOKA_MehrfachDruck_" + (iJobCounter - 1).ToString.Trim
|
||||
MehrfachDruckColdThread.Start()
|
||||
_HashThreads.Add(iJobCounter - 1, MehrfachDruckColdThread)
|
||||
End If
|
||||
|
||||
If colOfficeData.Count > 0 Then
|
||||
Dim MehrfachDruckEdokaThread As Thread
|
||||
tmpColOfficeData = colOfficeData
|
||||
MehrfachDruckEdokaThread = New Thread(AddressOf StartEdokaDruckJob)
|
||||
MehrfachDruckEdokaThread.IsBackground = True
|
||||
MehrfachDruckEdokaThread.Name = "EDOKA_MehrfachDruck_" + iJobCounter.ToString.Trim
|
||||
MehrfachDruckEdokaThread.Start()
|
||||
_HashThreads.Add(iJobCounter, MehrfachDruckEdokaThread)
|
||||
|
||||
End If
|
||||
Thread.Sleep(1500)
|
||||
InitAnzeige()
|
||||
AnzeigePopup()
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Sub StartColdDruckJob()
|
||||
Dim sThreadName As String
|
||||
Dim iColdJobID As Integer = iJobID(0)
|
||||
sThreadName = "EDOKA_MehrfachDruck_" + iColdJobID.ToString.Trim
|
||||
Try
|
||||
Dim tmpData As Collection
|
||||
Dim gendok As clsMehrfachdruck_Data
|
||||
Dim rReturn As Object
|
||||
|
||||
Dim timestamp As String
|
||||
Dim pdfFileName As String
|
||||
Dim sJobNummer As String
|
||||
|
||||
timestamp = Format(Now, "yyyyMMddHHmmss")
|
||||
sJobNummer = iColdJobID.ToString.Trim
|
||||
Do While Len(sJobNummer) < 4
|
||||
sJobNummer = "0" & sJobNummer
|
||||
Loop
|
||||
pdfFileName = timestamp + "_" + sJobNummer + ".pdf"
|
||||
tmpData = tmpColColdData
|
||||
|
||||
'colDruckanzeige.Add(New clsSpooler_Data(iColdJobID, sAuftraNR, "Cold-Druck", "Daten Aufbereitung", tmpData.Count.ToString.Trim, tmpData, Now(), 1, pdfFileName))
|
||||
Dim newDruckRow As New clsSpooler_Data(iColdJobID, sAuftraNR, "Cold-Druck", "Daten Aufbereitung", tmpData.Count.ToString.Trim, tmpData, Now(), 1, pdfFileName)
|
||||
_HashDruckanzeige.Add(iColdJobID, newDruckRow)
|
||||
|
||||
Console.WriteLine("StartColdDruckJob - JobID=" & iColdJobID.ToString)
|
||||
|
||||
'Wenn mehrere Dokumente gedruckt werden sollen
|
||||
Dim i As Integer
|
||||
Dim tmp1 As New DataTable()
|
||||
|
||||
tmp1.Columns.Add("DokumentId")
|
||||
tmp1.Columns.Add("PartnerNr")
|
||||
tmp1.Columns.Add("Typ")
|
||||
tmp1.Columns.Add("OfficeDokument")
|
||||
tmp1.Columns.Add("DokumentTyp")
|
||||
tmp1.Columns.Add("Auftragnr")
|
||||
tmp1.Columns.Add("PartnerName")
|
||||
tmp1.Columns.Add("Erstellungsdatum")
|
||||
|
||||
Dim row As DataRow
|
||||
|
||||
For i = 1 To tmpData.Count
|
||||
gendok = tmpData(i)
|
||||
row = tmp1.NewRow
|
||||
row.Item("Auftragnr") = gendok.Auftragnr
|
||||
row.Item("DokumentId") = gendok.DokumentId
|
||||
row.Item("DokumentTyp") = gendok.DokumentTyp
|
||||
row.Item("Erstellungsdatum") = gendok.Erstellungsdatum
|
||||
row.Item("OfficeDokument") = gendok.OfficeDokument
|
||||
row.Item("PartnerName") = gendok.PartnerName
|
||||
row.Item("PartnerNr") = gendok.PartnerNr
|
||||
Select Case gendok.Typ
|
||||
Case clsMehrfachdruck_Data.Enum_Typ.EDOKA
|
||||
row.Item("Typ") = 1
|
||||
Case clsMehrfachdruck_Data.Enum_Typ.HOST
|
||||
row.Item("Typ") = 2
|
||||
Case clsMehrfachdruck_Data.Enum_Typ.ZV
|
||||
row.Item("Typ") = 3
|
||||
End Select
|
||||
|
||||
tmp1.Rows.Add(row)
|
||||
Next
|
||||
|
||||
'Cold Dokumente
|
||||
For i = 1 To tmpData.Count
|
||||
gendok = tmpData(i)
|
||||
If gendok.OfficeDokument = False Then
|
||||
Journal_Dokumentzugriff(gendok.DokumentId, "COLD-Print (SA)", 1, Globals.Partnernr, Globals.PartnerKurzbezeichnung, "")
|
||||
End If
|
||||
Next
|
||||
|
||||
'Dokumente anfordern
|
||||
UpdateCollection(iColdJobID, enum_MehrfachdruckFeld.Status, "Cold-Dokument anfordern")
|
||||
Dim remoteObj As EDKB07Verarbeitung.EDKB07Verarbeitung.IEDKB07
|
||||
Dim Obj As New Object()
|
||||
Obj = Activator.GetObject( _
|
||||
GetType(EDKB07Verarbeitung.EDKB07Verarbeitung.IEDKB07), _
|
||||
System.Configuration.ConfigurationSettings.AppSettings("RemoteObjUrl"))
|
||||
|
||||
' Auf das Remote-Objekt durch die Schnittstelle zugreifen.
|
||||
remoteObj = CType(Obj, EDKB07Verarbeitung.EDKB07Verarbeitung.IEDKB07)
|
||||
Try
|
||||
remoteObj.GetColdMehrfachDruck(Globals.TGNummer, iColdJobID, tmp1, rReturn)
|
||||
'remoteObj = Nothing
|
||||
|
||||
'Dokument erhalten
|
||||
UpdateCollection(iColdJobID, enum_MehrfachdruckFeld.Status, "Cold-Dokument empfangen und speichern")
|
||||
|
||||
Try
|
||||
If rReturn.Length > 1 Then
|
||||
Dim fs As New FileStream(Globals.temppfad & pdfFileName, FileMode.OpenOrCreate, FileAccess.Write)
|
||||
fs.Write(rReturn, 0, rReturn.Length)
|
||||
fs.Close()
|
||||
fs = Nothing
|
||||
Dim s As String
|
||||
UpdateCollection(iColdJobID, enum_MehrfachdruckFeld.Status, "Dokument bereit zum drucken")
|
||||
Else
|
||||
UpdateCollection(iColdJobID, enum_MehrfachdruckFeld.Status, "Fehler beim Drucken")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Console.WriteLine("StartColdDruckJob - JobID=" & iColdJobID.ToString & " Fehler 1: " & ex.Message)
|
||||
UpdateCollection(iColdJobID, enum_MehrfachdruckFeld.Status, "Fehler beim Drucken")
|
||||
Finally
|
||||
InitAnzeige()
|
||||
AnzeigePopup()
|
||||
End Try
|
||||
|
||||
Catch ex As Exception
|
||||
Console.WriteLine("StartColdDruckJob - JobID=" & iColdJobID.ToString & " Fehler 2: " & ex.Message)
|
||||
UpdateCollection(iColdJobID, enum_MehrfachdruckFeld.Status, "Fehler beim Drucken")
|
||||
InitAnzeige()
|
||||
AnzeigePopup()
|
||||
End Try
|
||||
|
||||
Catch ex As Exception
|
||||
Console.WriteLine("StartColdDruckJob - JobID=" & iColdJobID.ToString & " Fehler 3: " & ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub StartEdokaDruckJob()
|
||||
Try
|
||||
Dim tmpData As Collection
|
||||
Dim iOfficeJobID As Integer = iJobID(1)
|
||||
Dim gendok As clsMehrfachdruck_Data
|
||||
tmpData = tmpColOfficeData
|
||||
|
||||
Console.WriteLine("StartEdokaDruckJob - JobID=" & iOfficeJobID.ToString)
|
||||
|
||||
'colDruckanzeige.Add(New clsSpooler_Data(iOfficeJobID, sAuftraNR, "Office-Druck", "am drucken", tmpData.Count.ToString.Trim, tmpData, Now(), 1, ""))
|
||||
Dim newDruckRow As New clsSpooler_Data(iOfficeJobID, sAuftraNR, "Office-Druck", "am drucken", tmpData.Count.ToString.Trim, tmpData, Now(), 1, "")
|
||||
_HashDruckanzeige.Add(iOfficeJobID, newDruckRow)
|
||||
|
||||
|
||||
Thread.Sleep(2000)
|
||||
|
||||
'Office Dokumente
|
||||
Dim i As Integer
|
||||
For i = 1 To tmpData.Count
|
||||
gendok = tmpData(i)
|
||||
If gendok.OfficeDokument = True Then
|
||||
Console.WriteLine("StartEdokaDruckJob - Vor Drucken=" & iOfficeJobID.ToString)
|
||||
'DivFnkt.print_office(gendok.DokumentId, Nothing, False)
|
||||
Console.WriteLine("StartEdokaDruckJob - Nach Drucken=" & iOfficeJobID.ToString)
|
||||
'Druckauftrag anpassen
|
||||
UpdateCollection(iOfficeJobID, enum_MehrfachdruckFeld.Anzahl, i.ToString.Trim + " von " + tmpData.Count.ToString.Trim)
|
||||
If i = tmpData.Count Then
|
||||
UpdateCollection(iOfficeJobID, enum_MehrfachdruckFeld.Status, "gedruckt")
|
||||
End If
|
||||
InitAnzeige()
|
||||
End If
|
||||
Next
|
||||
'Eintrag Löschen
|
||||
DeleteEntryCollection(iOfficeJobID)
|
||||
Catch ex As Exception
|
||||
Console.WriteLine("StartEdokaDruckJob - Fehler =" & ex.Message)
|
||||
'MsgBox(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " PDF Drucken"
|
||||
'Designd by SHU
|
||||
|
||||
'Private Sub print_pdf(ByVal spfad As String)
|
||||
' 'Druckt ein PDF in einem neuen Thread
|
||||
' printfilename = New String(spfad)
|
||||
' printthread = New Thread(AddressOf start_print_pdf)
|
||||
' printthread.Start()
|
||||
'End Sub
|
||||
|
||||
|
||||
''Dim WithEvents pdfprinter As frmPDF_Printer
|
||||
''Dim Print_Active As Boolean
|
||||
'Private Sub start_print_pdf()
|
||||
' Dim objpdf As New clsPDF_print_show()
|
||||
' objpdf.PrintPDF(printfilename, clsPDF_print_show.Enum_Art.Drucken)
|
||||
' 'pdfprinter = New frmPDF_Printer(printfilename, False) '0
|
||||
' 'pdfprinter.Prepare_Form()
|
||||
' 'Application.DoEvents()
|
||||
' 'Print_Active = True
|
||||
' 'pdfprinter.PrintPDF()
|
||||
' delay(5)
|
||||
'End Sub
|
||||
|
||||
'Private Sub delay(ByVal seconds As Integer)
|
||||
' Me.Cursor = Cursors.WaitCursor
|
||||
' Dim starttime As DateTime = DateTime.Now
|
||||
' Do
|
||||
' Application.DoEvents()
|
||||
' Loop While DateTime.Now.Subtract(starttime).TotalSeconds < seconds
|
||||
' Me.Cursor = Cursors.Default
|
||||
'End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Collection Funktionen"
|
||||
|
||||
Private Sub UpdateCollection(ByVal iJobID As Integer, ByVal iTyp As enum_MehrfachdruckFeld, ByVal sWert As String)
|
||||
'Wert in der Collection updaten
|
||||
Try
|
||||
Dim i As Integer
|
||||
Dim colSpooler As clsSpooler_Data
|
||||
Dim element As DictionaryEntry
|
||||
For Each element In _HashDruckanzeige
|
||||
colSpooler = element.Value
|
||||
If colSpooler.JobID = iJobID Then
|
||||
Select Case iTyp
|
||||
Case enum_MehrfachdruckFeld.Anzahl
|
||||
colSpooler.Anzahl = sWert
|
||||
Case enum_MehrfachdruckFeld.Status
|
||||
colSpooler.Status = sWert
|
||||
End Select
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub DeleteEntryCollection(ByVal iJobID As Integer)
|
||||
'Eintrag aus der Collection entfernen
|
||||
Try
|
||||
Dim i As Integer
|
||||
Dim colSpooler As clsSpooler_Data
|
||||
Dim element As DictionaryEntry
|
||||
For Each element In _HashDruckanzeige
|
||||
colSpooler = element.Value
|
||||
If colSpooler.JobID = iJobID Then
|
||||
_HashDruckanzeige.Remove(iJobID)
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
Thread.Sleep(1000)
|
||||
InitAnzeige()
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Function GetDataFromColl(ByVal OrgColl As Hashtable, ByVal JobID As Integer) As Collection
|
||||
Try
|
||||
Dim tmpData As Hashtable
|
||||
Dim i As Integer
|
||||
Dim gendok As clsSpooler_Data
|
||||
|
||||
tmpData = OrgColl
|
||||
Dim element As DictionaryEntry
|
||||
For Each element In _HashDruckanzeige
|
||||
gendok = element.Value
|
||||
If gendok.JobID = JobID Then
|
||||
'JobID gefunden
|
||||
GetDataFromColl = gendok.Data
|
||||
Exit Try
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Function GetDateiNameFromColl(ByVal OrgColl As Hashtable, ByVal JobID As Integer) As String
|
||||
Try
|
||||
Dim tmpData As Hashtable
|
||||
Dim i As Integer
|
||||
Dim gendok As clsSpooler_Data
|
||||
|
||||
tmpData = OrgColl
|
||||
Dim element As DictionaryEntry
|
||||
For Each element In _HashDruckanzeige
|
||||
gendok = element.Value
|
||||
If gendok.JobID = JobID Then
|
||||
'JobID gefunden
|
||||
GetDateiNameFromColl = gendok.DateiName
|
||||
Exit Try
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Menufunktionen"
|
||||
|
||||
Private Sub nmuDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nmuDelete.Click
|
||||
Try
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Dim iJobID As Integer
|
||||
iJobID = lvDruckauftraege.Items(m_MenuEintrag).SubItems(0).Text
|
||||
|
||||
Console.WriteLine("nmuDelete_Click =" & m_MenuEintrag.ToString & " JobID " & iJobID.ToString)
|
||||
|
||||
Try
|
||||
Dim MehrfachDruckThread As Thread
|
||||
MehrfachDruckThread = _HashThreads.Item(iJobID)
|
||||
MehrfachDruckThread.Abort()
|
||||
Catch ex As Exception
|
||||
Console.WriteLine("nmuDelete_Click 1=" & m_MenuEintrag.ToString & ex.Message)
|
||||
End Try
|
||||
DeleteEntryCollection(iJobID)
|
||||
Catch ex As Exception
|
||||
Console.WriteLine("nmuDelete_Click 2=" & m_MenuEintrag.ToString & ex.Message)
|
||||
Finally
|
||||
Me.Cursor = Cursors.Default
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub nmuRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nmuRefresh.Click
|
||||
Try
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Dim tmpCollData As New Collection()
|
||||
Dim tmpCollLeer As New Collection()
|
||||
'tmpCollData = GetDataFromColl(colDruckanzeige, lvDruckauftraege.Items(m_MenuEintrag).SubItems(0).Text)
|
||||
tmpCollData = GetDataFromColl(_HashDruckanzeige, lvDruckauftraege.Items(m_MenuEintrag).SubItems(0).Text)
|
||||
|
||||
If lvDruckauftraege.Items(m_MenuEintrag).SubItems(2).Text = "Cold-Druck" Then
|
||||
DruckAnfrage(tmpCollData, tmpCollLeer)
|
||||
Else
|
||||
DruckAnfrage(tmpCollLeer, tmpCollData)
|
||||
End If
|
||||
|
||||
If lvDruckauftraege.Items(m_MenuEintrag).SubItems(4).Text = "Fehler beim Drucken" Then
|
||||
DeleteEntryCollection(lvDruckauftraege.Items(m_MenuEintrag).SubItems(0).Text())
|
||||
Else
|
||||
InitAnzeige()
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
Finally
|
||||
Me.Cursor = Cursors.Default
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub mnuAnzeige_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuAnzeige.Click
|
||||
Dim iJobID As Integer
|
||||
Try
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Dim tmpCollData As New Collection()
|
||||
Dim tmpCollLeer As New Collection()
|
||||
Dim sDateiName As String
|
||||
|
||||
iJobID = lvDruckauftraege.Items(m_MenuEintrag).SubItems(0).Text
|
||||
|
||||
sDateiName = GetDateiNameFromColl(_HashDruckanzeige, iJobID)
|
||||
sDateiName = Globals.temppfad & sDateiName
|
||||
|
||||
'Dokument Drucken
|
||||
UpdateCollection(iJobID, enum_MehrfachdruckFeld.Status, "Cold-Dokument drucken")
|
||||
|
||||
Dim objpdf As New clsPDF_print_show()
|
||||
objpdf.PrintPDF(sDateiName, clsPDF_print_show.Enum_Art.Anzeigen)
|
||||
'print_pdf(sDateiName)
|
||||
|
||||
'Abgeschlossen
|
||||
UpdateCollection(iJobID, enum_MehrfachdruckFeld.Status, "gedruckt")
|
||||
|
||||
'Eintrag Löschen
|
||||
DeleteEntryCollection(iJobID)
|
||||
|
||||
Catch ex As Exception
|
||||
UpdateCollection(iJobID, enum_MehrfachdruckFeld.Status, "Fehler beim ausdrucken")
|
||||
Finally
|
||||
Me.Cursor = Cursors.Default
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub mnuDurck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuDurck.Click
|
||||
Dim iJobID As Integer
|
||||
Try
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Dim tmpCollData As New Collection()
|
||||
Dim tmpCollLeer As New Collection()
|
||||
Dim sDateiName As String
|
||||
|
||||
iJobID = lvDruckauftraege.Items(m_MenuEintrag).SubItems(0).Text
|
||||
|
||||
sDateiName = GetDateiNameFromColl(_HashDruckanzeige, iJobID)
|
||||
sDateiName = Globals.temppfad & sDateiName
|
||||
|
||||
'Dokument Drucken
|
||||
UpdateCollection(iJobID, enum_MehrfachdruckFeld.Status, "Cold-Dokument drucken")
|
||||
|
||||
Dim objpdf As New clsPDF_print_show()
|
||||
objpdf.PrintPDF(sDateiName, clsPDF_print_show.Enum_Art.Drucken)
|
||||
'print_pdf(sDateiName)
|
||||
|
||||
'Abgeschlossen
|
||||
UpdateCollection(iJobID, enum_MehrfachdruckFeld.Status, "gedruckt")
|
||||
|
||||
'Eintrag Löschen
|
||||
DeleteEntryCollection(iJobID)
|
||||
|
||||
Catch ex As Exception
|
||||
UpdateCollection(iJobID, enum_MehrfachdruckFeld.Status, "Fehler beim ausdrucken")
|
||||
Finally
|
||||
Me.Cursor = Cursors.Default
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub ContextMenu1_Popup(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextMenu1.Popup
|
||||
Try
|
||||
|
||||
m_MenuEintrag = lvDruckauftraege.SelectedItems.Item(0).Index
|
||||
Console.WriteLine("ContextMenu1_Popup =" & m_MenuEintrag.ToString)
|
||||
If lvDruckauftraege.Items(m_MenuEintrag).SubItems(2).Text = "Cold-Druck" Then
|
||||
If lvDruckauftraege.Items(m_MenuEintrag).SubItems(4).Text = "Dokument bereit zum drucken" Or _
|
||||
lvDruckauftraege.Items(m_MenuEintrag).SubItems(4).Text = "Fehler beim ausdrucken" Then
|
||||
mnuAnzeige.Enabled = True
|
||||
mnuDurck.Enabled = True
|
||||
Else
|
||||
mnuAnzeige.Enabled = False
|
||||
mnuDurck.Enabled = False
|
||||
End If
|
||||
Else
|
||||
mnuAnzeige.Enabled = False
|
||||
mnuDurck.Enabled = False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Diverse Funktionen"
|
||||
|
||||
Private Sub minimize_all_childs()
|
||||
Dim c As Form
|
||||
For Each c In Me.ParentForm.MdiChildren
|
||||
c.WindowState = FormWindowState.Normal
|
||||
Next
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Private Function Journal_Dokumentzugriff(ByVal dokumentid As String, ByVal zugriffsart As String, ByVal host As Integer, ByVal partnernr As Integer, ByVal partner_kurzbezeichnung As String, ByVal dokumenttyp As String)
|
||||
'Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
'Dim i As Integer
|
||||
'Dim connopen As Boolean = False
|
||||
'scmCmdToExecute.CommandText = "dbo.sp_journal_dokzugriffe"
|
||||
'scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
'scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
'Try
|
||||
' 'If host = 0 Then
|
||||
' ' 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("@zugriffsart", SqlDbType.VarChar, 25, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, zugriffsart))
|
||||
' ' scmCmdToExecute.Parameters.Add(New SqlParameter("@host", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
||||
' ' scmCmdToExecute.Parameters.Add(New SqlParameter("@partnernr", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
||||
' ' scmCmdToExecute.Parameters.Add(New SqlParameter("@partnerkbez", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 35, 0, "", DataRowVersion.Proposed, ""))
|
||||
' ' scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttyp", SqlDbType.VarChar, 128, ParameterDirection.Input, True, 35, 0, "", DataRowVersion.Proposed, ""))
|
||||
' 'Else
|
||||
' 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("@zugriffsart", SqlDbType.VarChar, 25, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, zugriffsart))
|
||||
' scmCmdToExecute.Parameters.Add(New SqlParameter("@host", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
|
||||
' scmCmdToExecute.Parameters.Add(New SqlParameter("@partnernr", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, partnernr))
|
||||
' scmCmdToExecute.Parameters.Add(New SqlParameter("@partnerkbez", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 35, 0, "", DataRowVersion.Proposed, partner_kurzbezeichnung))
|
||||
' scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttyp", SqlDbType.VarChar, 128, ParameterDirection.Input, True, 35, 0, "", DataRowVersion.Proposed, dokumenttyp))
|
||||
' 'End If
|
||||
' Try
|
||||
' scmCmdToExecute.Connection.Open()
|
||||
' connopen = True
|
||||
' Catch
|
||||
' End Try
|
||||
' scmCmdToExecute.ExecuteNonQuery()
|
||||
' If connopen Then
|
||||
' Try
|
||||
' scmCmdToExecute.Connection.Close()
|
||||
' Catch
|
||||
' End Try
|
||||
' End If
|
||||
'Catch ex As Exception
|
||||
|
||||
'Finally
|
||||
' scmCmdToExecute.Dispose()
|
||||
'End Try
|
||||
End Function
|
||||
|
||||
Private Sub frmMehrfachdruck_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,27 @@
|
||||
Public Class frmBenutzer
|
||||
|
||||
Private Sub frmBenutzer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.DokList.DataSource = Globals.Userdata.Tables(0)
|
||||
Me.DokList.DataMember = Globals.Userdata.Tables(0).TableName
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
|
||||
For Each dr As DataRow In Globals.Userdata.Tables(0).Rows
|
||||
dr.Item(0) = Crypto.EncryptText(dr.Item(0).ToString, "Selbstanzeigen")
|
||||
Next
|
||||
Globals.Userdata.WriteXml(Application.StartupPath + "\users.xml")
|
||||
Globals.Userdata.Tables.Clear()
|
||||
Globals.Userdata.ReadXml(Application.StartupPath + "\users.xml")
|
||||
For Each dr As DataRow In Globals.Userdata.Tables(0).Rows
|
||||
dr.Item(0) = Crypto.DecryptText(dr.Item(0).ToString, "Selbstanzeigen")
|
||||
Next
|
||||
Me.DokList.DataSource = Nothing
|
||||
Me.DokList.DataSource = Globals.Userdata.Tables(0)
|
||||
Me.DokList.DataMember = Globals.Userdata.Tables(0).TableName
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
End Class
|
||||
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,61 @@
|
||||
<?xml version="1.0"?>
|
||||
<configuration>
|
||||
<system.diagnostics>
|
||||
<sources>
|
||||
<!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
|
||||
<source name="DefaultSource" switchName="DefaultSwitch">
|
||||
<listeners>
|
||||
<add name="FileLog" />
|
||||
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
|
||||
<!--<add name="EventLog"/>-->
|
||||
</listeners>
|
||||
</source>
|
||||
</sources>
|
||||
<switches>
|
||||
<add name="DefaultSwitch" value="Information" />
|
||||
</switches>
|
||||
<sharedListeners>
|
||||
<add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter" />
|
||||
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
|
||||
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
|
||||
</sharedListeners>
|
||||
</system.diagnostics>
|
||||
<appSettings>
|
||||
<add key="RemoteObjUrl" value="tcp://192.168.111.35:8000/RCEDKB07WS.rem" />
|
||||
<add key="ClientSettingsProvider.ServiceUri" value="" />
|
||||
</appSettings>
|
||||
<system.runtime.remoting>
|
||||
<application>
|
||||
<!-- Define the protocol used for network access.
|
||||
The protocol must match the component host, but any port is valid.
|
||||
A port of 0 simply means "dynamically choose an available port." -->
|
||||
<channels>
|
||||
<channel ref="tcp" port="0">
|
||||
<serverProviders>
|
||||
<formatter ref="binary" typeFilterLevel="Full" />
|
||||
</serverProviders>
|
||||
</channel>
|
||||
</channels>
|
||||
</application>
|
||||
</system.runtime.remoting>
|
||||
<runtime>
|
||||
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="C1.Common" publicKeyToken="E272BB32D11B1948" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-1.0.20031.116" newVersion="1.0.20031.116" />
|
||||
</dependentAssembly>
|
||||
</assemblyBinding>
|
||||
</runtime>
|
||||
<system.web>
|
||||
<membership defaultProvider="ClientAuthenticationMembershipProvider">
|
||||
<providers>
|
||||
<add name="ClientAuthenticationMembershipProvider" type="System.Web.ClientServices.Providers.ClientFormsAuthenticationMembershipProvider, System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" serviceUri="" />
|
||||
</providers>
|
||||
</membership>
|
||||
<roleManager defaultProvider="ClientRoleProvider" enabled="true">
|
||||
<providers>
|
||||
<add name="ClientRoleProvider" type="System.Web.ClientServices.Providers.ClientRoleProvider, System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" serviceUri="" cacheTimeout="86400" />
|
||||
</providers>
|
||||
</roleManager>
|
||||
</system.web>
|
||||
</configuration>
|
||||
Binary file not shown.
@@ -0,0 +1,73 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:2.0.50727.5456
|
||||
'
|
||||
' Ä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", "9.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.DokSA.My.MySettings
|
||||
Get
|
||||
Return Global.DokSA.My.MySettings.Default
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
Binary file not shown.
@@ -0,0 +1,746 @@
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.ComponentModel
|
||||
|
||||
Public Class FrmPartnersuche
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
#Region " Vom Windows Form Designer generierter Code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
||||
|
||||
End Sub
|
||||
|
||||
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
If Not (components Is Nothing) Then
|
||||
components.Dispose()
|
||||
End If
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
' Für Windows Form-Designer erforderlich
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
||||
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
||||
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
||||
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button2 As System.Windows.Forms.Button
|
||||
Friend WithEvents BUtton3 As System.Windows.Forms.Button
|
||||
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
||||
Friend WithEvents PartnerList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
|
||||
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||
Friend WithEvents TextBox5 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents Label6 As System.Windows.Forms.Label
|
||||
Friend WithEvents Button6 As System.Windows.Forms.Button
|
||||
Friend WithEvents Label7 As System.Windows.Forms.Label
|
||||
Friend WithEvents Timer1 As System.Windows.Forms.Timer
|
||||
Friend WithEvents Label8 As System.Windows.Forms.Label
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmPartnersuche))
|
||||
Me.TextBox1 = New System.Windows.Forms.TextBox
|
||||
Me.Label1 = New System.Windows.Forms.Label
|
||||
Me.Label2 = New System.Windows.Forms.Label
|
||||
Me.TextBox2 = New System.Windows.Forms.TextBox
|
||||
Me.Label3 = New System.Windows.Forms.Label
|
||||
Me.TextBox3 = New System.Windows.Forms.TextBox
|
||||
Me.Label4 = New System.Windows.Forms.Label
|
||||
Me.TextBox4 = New System.Windows.Forms.TextBox
|
||||
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||||
Me.Button1 = New System.Windows.Forms.Button
|
||||
Me.Button2 = New System.Windows.Forms.Button
|
||||
Me.BUtton3 = New System.Windows.Forms.Button
|
||||
Me.PartnerList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Me.ContextMenu1 = New System.Windows.Forms.ContextMenu
|
||||
Me.MenuItem1 = New System.Windows.Forms.MenuItem
|
||||
Me.MenuItem2 = New System.Windows.Forms.MenuItem
|
||||
Me.MenuItem3 = New System.Windows.Forms.MenuItem
|
||||
Me.MenuItem4 = New System.Windows.Forms.MenuItem
|
||||
Me.Label5 = New System.Windows.Forms.Label
|
||||
Me.TextBox5 = New System.Windows.Forms.TextBox
|
||||
Me.CheckBox1 = New System.Windows.Forms.CheckBox
|
||||
Me.Label6 = New System.Windows.Forms.Label
|
||||
Me.Button6 = New System.Windows.Forms.Button
|
||||
Me.Label7 = New System.Windows.Forms.Label
|
||||
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.Label8 = New System.Windows.Forms.Label
|
||||
CType(Me.PartnerList, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'TextBox1
|
||||
'
|
||||
Me.TextBox1.Location = New System.Drawing.Point(96, 16)
|
||||
Me.TextBox1.Name = "TextBox1"
|
||||
Me.TextBox1.Size = New System.Drawing.Size(176, 20)
|
||||
Me.TextBox1.TabIndex = 0
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.Location = New System.Drawing.Point(16, 16)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(72, 23)
|
||||
Me.Label1.TabIndex = 1
|
||||
Me.Label1.Text = "Partner-Nr."
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.Location = New System.Drawing.Point(16, 40)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(72, 23)
|
||||
Me.Label2.TabIndex = 3
|
||||
Me.Label2.Text = "Kurzname"
|
||||
'
|
||||
'TextBox2
|
||||
'
|
||||
Me.TextBox2.Location = New System.Drawing.Point(96, 40)
|
||||
Me.TextBox2.Name = "TextBox2"
|
||||
Me.TextBox2.Size = New System.Drawing.Size(176, 20)
|
||||
Me.TextBox2.TabIndex = 2
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.Location = New System.Drawing.Point(16, 64)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(72, 23)
|
||||
Me.Label3.TabIndex = 5
|
||||
Me.Label3.Text = "Freitext"
|
||||
'
|
||||
'TextBox3
|
||||
'
|
||||
Me.TextBox3.Location = New System.Drawing.Point(96, 64)
|
||||
Me.TextBox3.Name = "TextBox3"
|
||||
Me.TextBox3.Size = New System.Drawing.Size(176, 20)
|
||||
Me.TextBox3.TabIndex = 4
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.Location = New System.Drawing.Point(424, 16)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(80, 40)
|
||||
Me.Label4.TabIndex = 7
|
||||
Me.Label4.Text = "Maximale Anzahl Treffer"
|
||||
'
|
||||
'TextBox4
|
||||
'
|
||||
Me.TextBox4.Location = New System.Drawing.Point(520, 16)
|
||||
Me.TextBox4.Name = "TextBox4"
|
||||
Me.TextBox4.Size = New System.Drawing.Size(64, 20)
|
||||
Me.TextBox4.TabIndex = 6
|
||||
Me.TextBox4.Text = "50"
|
||||
'
|
||||
'ImageList1
|
||||
'
|
||||
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
||||
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
||||
Me.ImageList1.Images.SetKeyName(0, "")
|
||||
Me.ImageList1.Images.SetKeyName(1, "")
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
|
||||
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button1.Location = New System.Drawing.Point(280, 16)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(88, 24)
|
||||
Me.Button1.TabIndex = 9
|
||||
Me.Button1.Text = "&Suchen"
|
||||
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.Enabled = False
|
||||
Me.Button2.Location = New System.Drawing.Point(496, 336)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(88, 23)
|
||||
Me.Button2.TabIndex = 11
|
||||
Me.Button2.Text = "Übernehmen"
|
||||
'
|
||||
'BUtton3
|
||||
'
|
||||
Me.BUtton3.Location = New System.Drawing.Point(16, 337)
|
||||
Me.BUtton3.Name = "BUtton3"
|
||||
Me.BUtton3.Size = New System.Drawing.Size(80, 24)
|
||||
Me.BUtton3.TabIndex = 10
|
||||
Me.BUtton3.Text = "Schliessen"
|
||||
'
|
||||
'PartnerList
|
||||
'
|
||||
Me.PartnerList.AllowUpdate = False
|
||||
Me.PartnerList.AllowUpdateOnBlur = False
|
||||
Me.PartnerList.AlternatingRows = True
|
||||
Me.PartnerList.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
|
||||
Me.PartnerList.ContextMenu = Me.ContextMenu1
|
||||
Me.PartnerList.FetchRowStyles = True
|
||||
Me.PartnerList.FilterBar = True
|
||||
Me.PartnerList.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.PartnerList.Images.Add(CType(resources.GetObject("PartnerList.Images"), System.Drawing.Image))
|
||||
Me.PartnerList.Location = New System.Drawing.Point(16, 112)
|
||||
Me.PartnerList.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
|
||||
Me.PartnerList.Name = "PartnerList"
|
||||
Me.PartnerList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.PartnerList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.PartnerList.PreviewInfo.ZoomFactor = 75
|
||||
Me.PartnerList.PrintInfo.PageSettings = CType(resources.GetObject("PartnerList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||
Me.PartnerList.ScrollTips = True
|
||||
Me.PartnerList.Size = New System.Drawing.Size(568, 216)
|
||||
Me.PartnerList.TabIndex = 13
|
||||
Me.PartnerList.Text = "C1TrueDBGrid1"
|
||||
Me.PartnerList.PropBag = resources.GetString("PartnerList.PropBag")
|
||||
'
|
||||
'ContextMenu1
|
||||
'
|
||||
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem2, Me.MenuItem3, Me.MenuItem4})
|
||||
'
|
||||
'MenuItem1
|
||||
'
|
||||
Me.MenuItem1.Index = 0
|
||||
Me.MenuItem1.Text = "&Partner übernehmen"
|
||||
'
|
||||
'MenuItem2
|
||||
'
|
||||
Me.MenuItem2.Index = 1
|
||||
Me.MenuItem2.Text = "&Detailinformationen"
|
||||
'
|
||||
'MenuItem3
|
||||
'
|
||||
Me.MenuItem3.Index = 2
|
||||
Me.MenuItem3.Text = "-"
|
||||
'
|
||||
'MenuItem4
|
||||
'
|
||||
Me.MenuItem4.Index = 3
|
||||
Me.MenuItem4.Text = "Partner erfassen / bearbeiten"
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.Location = New System.Drawing.Point(16, 88)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(72, 23)
|
||||
Me.Label5.TabIndex = 17
|
||||
Me.Label5.Text = "VV-Suche"
|
||||
'
|
||||
'TextBox5
|
||||
'
|
||||
Me.TextBox5.Location = New System.Drawing.Point(96, 88)
|
||||
Me.TextBox5.Name = "TextBox5"
|
||||
Me.TextBox5.Size = New System.Drawing.Size(176, 20)
|
||||
Me.TextBox5.TabIndex = 16
|
||||
'
|
||||
'CheckBox1
|
||||
'
|
||||
Me.CheckBox1.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.CheckBox1.Location = New System.Drawing.Point(568, 56)
|
||||
Me.CheckBox1.Name = "CheckBox1"
|
||||
Me.CheckBox1.Size = New System.Drawing.Size(16, 16)
|
||||
Me.CheckBox1.TabIndex = 18
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.Location = New System.Drawing.Point(424, 56)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(152, 32)
|
||||
Me.Label6.TabIndex = 19
|
||||
Me.Label6.Text = "Trefferliste immer anzeigen"
|
||||
'
|
||||
'Button6
|
||||
'
|
||||
Me.Button6.Image = CType(resources.GetObject("Button6.Image"), System.Drawing.Image)
|
||||
Me.Button6.Location = New System.Drawing.Point(368, 16)
|
||||
Me.Button6.Name = "Button6"
|
||||
Me.Button6.Size = New System.Drawing.Size(24, 24)
|
||||
Me.Button6.TabIndex = 20
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label7.ForeColor = System.Drawing.Color.Red
|
||||
Me.Label7.Location = New System.Drawing.Point(136, 336)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(344, 32)
|
||||
Me.Label7.TabIndex = 21
|
||||
Me.Label7.Text = "Partner wurde direkt übernommen"
|
||||
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
Me.Label7.Visible = False
|
||||
'
|
||||
'Timer1
|
||||
'
|
||||
Me.Timer1.Interval = 2000
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
Me.Label8.Location = New System.Drawing.Point(408, 72)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.Label8.Size = New System.Drawing.Size(184, 16)
|
||||
Me.Label8.TabIndex = 22
|
||||
Me.Label8.Text = "(z.B. für EDOKA-Partner-Mutation)"
|
||||
Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
'
|
||||
'FrmPartnersuche
|
||||
'
|
||||
Me.AcceptButton = Me.Button1
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(592, 373)
|
||||
Me.Controls.Add(Me.Label8)
|
||||
Me.Controls.Add(Me.Label7)
|
||||
Me.Controls.Add(Me.Button6)
|
||||
Me.Controls.Add(Me.CheckBox1)
|
||||
Me.Controls.Add(Me.Label5)
|
||||
Me.Controls.Add(Me.TextBox5)
|
||||
Me.Controls.Add(Me.PartnerList)
|
||||
Me.Controls.Add(Me.BUtton3)
|
||||
Me.Controls.Add(Me.Button2)
|
||||
Me.Controls.Add(Me.Button1)
|
||||
Me.Controls.Add(Me.Label4)
|
||||
Me.Controls.Add(Me.TextBox4)
|
||||
Me.Controls.Add(Me.Label3)
|
||||
Me.Controls.Add(Me.TextBox3)
|
||||
Me.Controls.Add(Me.Label2)
|
||||
Me.Controls.Add(Me.TextBox2)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.TextBox1)
|
||||
Me.Controls.Add(Me.Label6)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.MaximizeBox = False
|
||||
Me.MinimizeBox = False
|
||||
Me.Name = "FrmPartnersuche"
|
||||
Me.Text = "Partnersuche"
|
||||
CType(Me.PartnerList, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Deklarationen"
|
||||
Public Event partner_selected()
|
||||
Dim m_noclose As Boolean = False
|
||||
Property NoClose() As Boolean
|
||||
Get
|
||||
Return m_noclose
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_noclose = Value
|
||||
End Set
|
||||
End Property
|
||||
Dim m_meldung_doppelter_partner As Boolean = False
|
||||
Property Meldung_Doppelter_Partner() As Boolean
|
||||
Get
|
||||
Return m_meldung_doppelter_partner
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_meldung_doppelter_partner = Value
|
||||
End Set
|
||||
End Property
|
||||
Dim Partner As DataTable
|
||||
Dim m_zustelladresse As String
|
||||
Dim m_anrede As String
|
||||
|
||||
Dim mypartner As New edokadb.clsMyPartner()
|
||||
|
||||
Dim m_partnernr As Long
|
||||
Property PartnerNr() As Long
|
||||
Get
|
||||
Return m_partnernr
|
||||
End Get
|
||||
Set(ByVal Value As Long)
|
||||
m_partnernr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_PartnerKurzbezeichnung As String
|
||||
Property PartnerKurzbezeichnnung() As String
|
||||
Get
|
||||
Return m_PartnerKurzbezeichnung
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_PartnerKurzbezeichnung = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property zustelladresse() As String
|
||||
Get
|
||||
Return m_zustelladresse
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_zustelladresse = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property Anrede() As String
|
||||
Get
|
||||
Return m_anrede
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_anrede = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_dokumenterstellen As Boolean = False
|
||||
Property Dokumenterstellen() As Boolean
|
||||
Get
|
||||
Return m_dokumenterstellen
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_dokumenterstellen = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_profilnr As Integer
|
||||
Property profilnr() As Integer
|
||||
Get
|
||||
Return m_profilnr
|
||||
End Get
|
||||
Set(ByVal Value As Integer)
|
||||
m_profilnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_erfassung As Boolean = False
|
||||
Property AusPartnererfassung() As Boolean
|
||||
Get
|
||||
Return m_erfassung
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_erfassung = Value
|
||||
End Set
|
||||
End Property
|
||||
Dim m_retrieval As Boolean
|
||||
Property NurAbfrage() As Boolean
|
||||
Get
|
||||
Return m_retrieval
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_retrieval = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_vibeachten As Boolean
|
||||
Property VIBeachten() As Boolean
|
||||
Get
|
||||
Return m_vibeachten
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_vibeachten = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_dokumenttypnr As Integer = 0
|
||||
Property Dokumenttypnrnr() As Integer
|
||||
Get
|
||||
Return m_dokumenttypnr
|
||||
End Get
|
||||
Set(ByVal Value As Integer)
|
||||
m_dokumenttypnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Private Sub Buton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
||||
Me.PartnerList.DataSource = Nothing
|
||||
Me.PartnerList.DataMember = Nothing
|
||||
Dim iii As Double
|
||||
If Me.TextBox1.Text <> "" Then
|
||||
Try
|
||||
Dim d As Double
|
||||
d = Val(Me.TextBox1.Text)
|
||||
If d = 0 Then
|
||||
MsgBox("Die eingegebene Partner-Nr ist ungültig.", MsgBoxStyle.Critical)
|
||||
Me.TextBox1.Focus()
|
||||
Exit Sub
|
||||
End If
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Partner = mypartner.search_partner(d, Me.TextBox4.Text, 0)
|
||||
Me.Cursor = Cursors.Default
|
||||
Catch
|
||||
MsgBox("Die eingegebene Partner-Nr ist ungültig.", MsgBoxStyle.Critical)
|
||||
Me.TextBox1.Focus()
|
||||
Exit Sub
|
||||
End Try
|
||||
Else
|
||||
If Me.TextBox2.Text <> "" Then
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Partner = mypartner.search_partner(Me.TextBox2.Text, Me.TextBox4.Text, 1)
|
||||
Me.Cursor = Cursors.Default
|
||||
Else
|
||||
If Me.TextBox3.Text <> "" Then
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Partner = mypartner.search_partner(Me.TextBox3.Text, Me.TextBox4.Text, 2)
|
||||
Me.Cursor = Cursors.Default
|
||||
Else
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Partner = mypartner.search_partner(Me.TextBox5.Text, Me.TextBox4.Text, 3)
|
||||
Me.Cursor = Cursors.Default
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
If Partner.Rows.Count = 0 Then
|
||||
MsgBox("Ihre Suche ergab keine Treffer.", MsgBoxStyle.Exclamation)
|
||||
Else
|
||||
|
||||
Me.PartnerList.DataSource = Partner
|
||||
Me.PartnerList.DataMember = "Partner"
|
||||
SpaltenTitel_Aktualisieren()
|
||||
Dim i As Long
|
||||
Dim ii As Long
|
||||
If Me.PartnerList.Splits(0).Rows.Count = 1 And Me.CheckBox1.Checked <> True Then
|
||||
If Me.NoClose Then
|
||||
Me.Timer1.Enabled = True
|
||||
Me.Label7.Visible = True
|
||||
End If
|
||||
Button2_Click(sender, e)
|
||||
End If
|
||||
End If
|
||||
If Me.PartnerList.Splits(0).Rows.Count > 0 Then
|
||||
Me.Button2.Enabled = True
|
||||
Me.PartnerList.Focus()
|
||||
Else
|
||||
Me.Button2.Enabled = False
|
||||
Me.TextBox1.Focus()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub PartnerList_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles PartnerList.FetchRowStyle
|
||||
If Microsoft.VisualBasic.Left(Me.PartnerList.Columns(0).CellValue(e.Row), 1) = "9" Then
|
||||
e.CellStyle.BackColor = System.Drawing.Color.CadetBlue
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub BUtton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BUtton3.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Public Sub SpaltenTitel_Aktualisieren()
|
||||
'Spaltentitel setzen
|
||||
Dim titel As New EDOKA.MySpaltenTitel()
|
||||
Dim ts As New EDOKA.Tabellenspalte()
|
||||
Dim i As Integer
|
||||
Dim t As New DataTable()
|
||||
Dim dc As C1.Win.C1TrueDBGrid.C1DisplayColumn
|
||||
Dim s As String
|
||||
|
||||
t = Partner
|
||||
ts.Tabelle = "Partner"
|
||||
For i = 0 To Me.PartnerList.Columns.Count - 1
|
||||
s = Me.PartnerList.Columns(i).DataField
|
||||
ts.Feld = s
|
||||
ts.getspalte()
|
||||
Me.PartnerList.Columns(i).Caption = ts.spaltenname
|
||||
If Me.PartnerList.Columns(i).Caption = "" Then
|
||||
Me.PartnerList.Splits(0).DisplayColumns(i).Width = 0
|
||||
Else
|
||||
Me.PartnerList.Splits(0).DisplayColumns(i).Width = ts.ColWith
|
||||
End If
|
||||
' If Me.PartnerList.Columns(i).Caption = "" Then Me.PartnerList.Splits(0).DisplayColumns(i).Width = 0
|
||||
If ts.locked Then
|
||||
Me.PartnerList.Splits(0).DisplayColumns(i).Locked = True
|
||||
End If
|
||||
|
||||
If ts.AlsHacken Then
|
||||
Me.PartnerList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
End If
|
||||
|
||||
'Präsentation von aktiv
|
||||
If Me.PartnerList.Columns(i).DataField = "aktiv" Then
|
||||
Me.PartnerList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
Me.PartnerList.Columns(i).ValueItems.DefaultItem = True
|
||||
Me.PartnerList.Columns(i).DefaultValue = True
|
||||
Me.PartnerList.Columns(i).FilterText = True
|
||||
End If
|
||||
If Me.PartnerList.Columns(i).DataField = "erstellt_am" Then
|
||||
Me.PartnerList.Columns(i).DefaultValue = Now
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
|
||||
Partner_Suche(Me.PartnerList.Columns(0).Value)
|
||||
If Me.NoClose Then
|
||||
RaiseEvent partner_selected()
|
||||
Me.Timer1.Enabled = True
|
||||
Me.Label7.Visible = True
|
||||
Exit Sub
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub Partner_Suche(ByVal nrpar00 As String)
|
||||
Dim p As New edokadb.clsPartner()
|
||||
Dim ph As New edokadb.clsPartner_Hauptadresse()
|
||||
p.sConnectionString = Globals.sConnectionString
|
||||
p.iNRPAR00 = New SqlInt32(CType(nrpar00, Int32))
|
||||
p.SelectOne()
|
||||
ph.sConnectionString = Globals.sConnectionString
|
||||
ph.iNRPAR00 = New SqlInt32(CType(nrpar00, Int32))
|
||||
ph.SelectOne()
|
||||
|
||||
|
||||
Dim s As String
|
||||
s = ""
|
||||
Try
|
||||
If p.sCDVIG00.Value = "Y" Or p.iAZEPL00.Value > 1 Or p.bCDVSA00.Value = True Then Me.VIBeachten = True Else Me.VIBeachten = False
|
||||
If p.sTXADZ011.Value <> "" Then s = s + p.sTXADZ011.Value + vbCrLf
|
||||
If p.sTXADZ021.Value <> "" Then s = s + p.sTXADZ021.Value + vbCrLf
|
||||
If p.sTXADZ031.Value <> "" Then s = s + p.sTXADZ031.Value + vbCrLf
|
||||
If p.sTXADZ041.Value <> "" Then s = s + p.sTXADZ041.Value + vbCrLf
|
||||
If p.sTXADZ051.Value <> "" Then s = s + p.sTXADZ051.Value + vbCrLf
|
||||
If p.sTXADZ061.Value <> "" Then s = s + p.sTXADZ061.Value + vbCrLf
|
||||
If p.sTXADZ071.Value <> "" Then s = s + p.sTXADZ071.Value + vbCrLf
|
||||
Me.zustelladresse = s
|
||||
If p.iNRPAR00.Value > 91000000 Then
|
||||
Me.Anrede = p.sBEBAN011.Value
|
||||
Else
|
||||
Me.Anrede = ph.sBEBAN01.Value
|
||||
End If
|
||||
Me.PartnerNr = nrpar00
|
||||
Me.PartnerKurzbezeichnnung = p.sBKPAR00.Value
|
||||
If Me.NoClose = True Then
|
||||
Exit Sub
|
||||
End If
|
||||
Try
|
||||
Me.Partner.Dispose()
|
||||
Catch
|
||||
End Try
|
||||
Try
|
||||
Me.Close()
|
||||
Catch
|
||||
End Try
|
||||
Me.mypartner = Nothing
|
||||
Catch ex As Exception
|
||||
' MsgBox(ex.Message)
|
||||
Finally
|
||||
Try
|
||||
p.Dispose()
|
||||
ph.Dispose()
|
||||
Catch
|
||||
End Try
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
|
||||
Button2_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown, TextBox2.KeyDown, TextBox3.KeyDown
|
||||
If e.KeyCode = Keys.Return Then Buton1_Click(sender, e)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub PartnerList_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PartnerList.DoubleClick
|
||||
Button2_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub FrmPartnersuche_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TextBox1.Focus()
|
||||
Me.TextBox1.Select()
|
||||
Dim p As Process
|
||||
Dim Ret As Int32
|
||||
Dim hWndMain As IntPtr
|
||||
|
||||
Dim MyProcesses() As Process = _
|
||||
Process.GetProcessesByName( _
|
||||
Process.GetCurrentProcess().ProcessName)
|
||||
End Sub
|
||||
|
||||
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
MsgBox("Diese Funktion ist nicht mehr aktiv")
|
||||
'NOVA RGL 20071010
|
||||
'Dim nrpar00 As Integer
|
||||
'Dim host As New frmHostTransfer()
|
||||
'If Me.TextBox1.Text <> "" Then
|
||||
' Try
|
||||
' Dim d As Double
|
||||
' d = Val(Me.TextBox1.Text)
|
||||
' If d = 0 Then
|
||||
' MyMsg.show_standardmessage(22, MsgBoxStyle.Critical)
|
||||
' Me.TextBox1.Focus()
|
||||
' Exit Sub
|
||||
' End If
|
||||
' host.Nrpar00 = d
|
||||
' Me.Hide()
|
||||
' host.ShowDialog()
|
||||
' If host.DialogResult = DialogResult.Abort Then
|
||||
' Me.Show()
|
||||
' Else
|
||||
' Me.TextBox1.Text = host.Nrpar00
|
||||
' Me.Buton1_Click(sender, e)
|
||||
' Me.Show()
|
||||
' End If
|
||||
' host.Dispose()
|
||||
' Catch
|
||||
' MyMsg.show_standardmessage(22, MsgBoxStyle.Critical)
|
||||
' Me.TextBox1.Focus()
|
||||
' End Try
|
||||
'Else
|
||||
' MyMsg.show_standardmessage(22, MsgBoxStyle.Critical)
|
||||
' Me.TextBox1.Focus()
|
||||
'End If
|
||||
End Sub
|
||||
|
||||
Private Sub PartnerList_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles PartnerList.KeyDown
|
||||
If e.KeyCode = Keys.Enter Then
|
||||
If Me.PartnerList.Splits(0).Rows.Count > 0 Then
|
||||
Try
|
||||
Partner_Suche(Me.PartnerList.Columns(0).Value)
|
||||
Catch
|
||||
End Try
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
|
||||
Me.Label7.Visible = False
|
||||
Me.Timer1.Enabled = False
|
||||
End Sub
|
||||
|
||||
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ContextMenu1_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu1.Popup
|
||||
Try
|
||||
If Me.PartnerList.Columns(0).Value < 91000000 Then
|
||||
Me.MenuItem3.Visible = False
|
||||
Me.MenuItem4.Visible = False
|
||||
Else
|
||||
Me.MenuItem3.Visible = True
|
||||
Me.MenuItem4.Visible = True
|
||||
End If
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub FrmPartnersuche_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LostFocus
|
||||
Me.TopMost = True
|
||||
End Sub
|
||||
End Class
|
||||
Binary file not shown.
Binary file not shown.
|
After Width: | Height: | Size: 292 B |
Binary file not shown.
@@ -0,0 +1,63 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.18051
|
||||
'
|
||||
' Ä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("DokSA.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
|
||||
BIN
DokSA/.svn/wc.db
Normal file
BIN
DokSA/.svn/wc.db
Normal file
Binary file not shown.
0
DokSA/.svn/wc.db-journal
Normal file
0
DokSA/.svn/wc.db-journal
Normal file
BIN
DokSA/.vs/DokSA/v15/.suo
Normal file
BIN
DokSA/.vs/DokSA/v15/.suo
Normal file
Binary file not shown.
20
DokSA/Backup/DokSA.sln
Normal file
20
DokSA/Backup/DokSA.sln
Normal file
@@ -0,0 +1,20 @@
|
||||
|
||||
Microsoft Visual Studio Solution File, Format Version 10.00
|
||||
# Visual Studio 2008
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DokSA", "DokSA\DokSA.vbproj", "{5D5DBAC1-C1A1-4381-8A0B-A51B2D977DFF}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
Debug|Any CPU = Debug|Any CPU
|
||||
Release|Any CPU = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||
{5D5DBAC1-C1A1-4381-8A0B-A51B2D977DFF}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{5D5DBAC1-C1A1-4381-8A0B-A51B2D977DFF}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{5D5DBAC1-C1A1-4381-8A0B-A51B2D977DFF}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{5D5DBAC1-C1A1-4381-8A0B-A51B2D977DFF}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
EndGlobalSection
|
||||
EndGlobal
|
||||
BIN
DokSA/Backup/DokSA.v11.suo
Normal file
BIN
DokSA/Backup/DokSA.v11.suo
Normal file
Binary file not shown.
232
DokSA/Backup/DokSA/DokSA.vbproj
Normal file
232
DokSA/Backup/DokSA/DokSA.vbproj
Normal file
@@ -0,0 +1,232 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="3.5" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ProductVersion>9.0.30729</ProductVersion>
|
||||
<SchemaVersion>2.0</SchemaVersion>
|
||||
<ProjectGuid>{5D5DBAC1-C1A1-4381-8A0B-A51B2D977DFF}</ProjectGuid>
|
||||
<OutputType>WinExe</OutputType>
|
||||
<StartupObject>DokSA.FrmMain</StartupObject>
|
||||
<RootNamespace>DokSA</RootNamespace>
|
||||
<AssemblyName>DokSA</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>WindowsFormsWithCustomSubMain</MyType>
|
||||
<TargetFrameworkVersion>v3.5</TargetFrameworkVersion>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
<OptionInfer>Off</OptionInfer>
|
||||
<PublishUrl>publish\</PublishUrl>
|
||||
<Install>true</Install>
|
||||
<InstallFrom>Disk</InstallFrom>
|
||||
<UpdateEnabled>false</UpdateEnabled>
|
||||
<UpdateMode>Foreground</UpdateMode>
|
||||
<UpdateInterval>7</UpdateInterval>
|
||||
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
|
||||
<UpdatePeriodically>false</UpdatePeriodically>
|
||||
<UpdateRequired>false</UpdateRequired>
|
||||
<MapFileExtensions>true</MapFileExtensions>
|
||||
<ApplicationRevision>0</ApplicationRevision>
|
||||
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
|
||||
<IsWebBootstrapper>false</IsWebBootstrapper>
|
||||
<UseApplicationTrust>false</UseApplicationTrust>
|
||||
<BootstrapperEnabled>true</BootstrapperEnabled>
|
||||
<ApplicationIcon>reports.ico</ApplicationIcon>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\Debug\</OutputPath>
|
||||
<DocumentationFile>DokSA.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
<PlatformTarget>x86</PlatformTarget>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<DebugType>pdbonly</DebugType>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>bin\Release\</OutputPath>
|
||||
<DocumentationFile>DokSA.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="C1.Win.C1TrueDBGrid.2, Version=2.0.20112.61226, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da, processorArchitecture=MSIL" />
|
||||
<Reference Include="EDKB07Verarbeitung, Version=2.0.3225.14669, Culture=neutral, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\..\..\Client\EDOKA\bin\EDKB07Verarbeitung.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.Configuration" />
|
||||
<Reference Include="System.Core">
|
||||
<RequiredTargetFramework>3.5</RequiredTargetFramework>
|
||||
</Reference>
|
||||
<Reference Include="System.Data" />
|
||||
<Reference Include="System.Deployment" />
|
||||
<Reference Include="System.Design" />
|
||||
<Reference Include="System.Drawing" />
|
||||
<Reference Include="System.Web.Extensions">
|
||||
<RequiredTargetFramework>3.5</RequiredTargetFramework>
|
||||
</Reference>
|
||||
<Reference Include="System.Windows.Forms" />
|
||||
<Reference Include="System.Xml" />
|
||||
</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.Linq" />
|
||||
<Import Include="System.Windows.Forms" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="clsMehrfachdruck_Data.vb" />
|
||||
<Compile Include="clsPDF_print_show.vb" />
|
||||
<Compile Include="clsSpooler_Data.vb" />
|
||||
<Compile Include="Form1.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Form1.Designer.vb">
|
||||
<DependentUpon>Form1.vb</DependentUpon>
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmFortschritt.Designer.vb">
|
||||
<DependentUpon>frmFortschritt.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="frmFortschritt.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FrmMain.Designer.vb">
|
||||
<DependentUpon>FrmMain.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FrmMain.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmMehrfachdruck.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmPartnersuche.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Globals.vb" />
|
||||
<Compile Include="Klassen\clsConnectionProvider.vb" />
|
||||
<Compile Include="Klassen\clsDBInteractionBase.vb" />
|
||||
<Compile Include="Klassen\clsMyPartner.vb" />
|
||||
<Compile Include="Klassen\clsPartner.vb" />
|
||||
<Compile Include="Klassen\clsPartner_Hauptadresse.vb" />
|
||||
<Compile Include="Klassen\clsSpalten.vb" />
|
||||
<Compile Include="Klassen\Crypto.vb" />
|
||||
<Compile Include="Klassen\db_connection.vb" />
|
||||
<Compile Include="Klassen\frmBenutzer.Designer.vb">
|
||||
<DependentUpon>frmBenutzer.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Klassen\frmBenutzer.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Klassen\mMain.vb" />
|
||||
<Compile Include="Klassen\MySpalten.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="frmFortschritt.resx">
|
||||
<DependentUpon>frmFortschritt.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FrmMain.resx">
|
||||
<DependentUpon>FrmMain.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmMehrfachdruck.resx">
|
||||
<DependentUpon>frmMehrfachdruck.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmPartnersuche.resx">
|
||||
<DependentUpon>frmPartnersuche.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Klassen\frmBenutzer.resx">
|
||||
<DependentUpon>frmBenutzer.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="My Project\licenses.licx" />
|
||||
<EmbeddedResource Include="My Project\Resources.resx">
|
||||
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="app.config" />
|
||||
<None Include="My Project\Application.myapp">
|
||||
<Generator>MyApplicationCodeGenerator</Generator>
|
||||
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="My Project\Settings.settings">
|
||||
<Generator>SettingsSingleFileGenerator</Generator>
|
||||
<CustomToolNamespace>My</CustomToolNamespace>
|
||||
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Client.3.5">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework Client Profile</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.2.0">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 2.0 %28x86%29</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.3.0">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 3.0 %28x86%29</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 3.5</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 3.5 SP1</ProductName>
|
||||
<Install>true</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Windows.Installer.3.1">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>Windows Installer 3.1</ProductName>
|
||||
<Install>true</Install>
|
||||
</BootstrapperPackage>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Content Include="reports.ico" />
|
||||
</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>
|
||||
17
DokSA/Backup/DokSA/DokSA.vbproj.user
Normal file
17
DokSA/Backup/DokSA/DokSA.vbproj.user
Normal file
@@ -0,0 +1,17 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<PublishUrlHistory>publish\</PublishUrlHistory>
|
||||
<InstallUrlHistory>
|
||||
</InstallUrlHistory>
|
||||
<SupportUrlHistory>
|
||||
</SupportUrlHistory>
|
||||
<UpdateUrlHistory>
|
||||
</UpdateUrlHistory>
|
||||
<BootstrapperUrlHistory>
|
||||
</BootstrapperUrlHistory>
|
||||
<ErrorReportUrlHistory>
|
||||
</ErrorReportUrlHistory>
|
||||
<FallbackCulture>de-DE</FallbackCulture>
|
||||
<VerifyUploadedFiles>false</VerifyUploadedFiles>
|
||||
</PropertyGroup>
|
||||
</Project>
|
||||
237
DokSA/Backup/DokSA/Form1.Designer.vb
generated
Normal file
237
DokSA/Backup/DokSA/Form1.Designer.vb
generated
Normal file
@@ -0,0 +1,237 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Form1
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
|
||||
Me.Panel1 = New System.Windows.Forms.Panel
|
||||
Me.Label5 = New System.Windows.Forms.Label
|
||||
Me.Label4 = New System.Windows.Forms.Label
|
||||
Me.Button3 = New System.Windows.Forms.Button
|
||||
Me.Button2 = New System.Windows.Forms.Button
|
||||
Me.Button1 = New System.Windows.Forms.Button
|
||||
Me.txtJahrbis = New System.Windows.Forms.TextBox
|
||||
Me.Label3 = New System.Windows.Forms.Label
|
||||
Me.txtJahrvon = New System.Windows.Forms.TextBox
|
||||
Me.Label2 = New System.Windows.Forms.Label
|
||||
Me.txtBPNr = New System.Windows.Forms.TextBox
|
||||
Me.Label1 = New System.Windows.Forms.Label
|
||||
Me.DokList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip
|
||||
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton
|
||||
Me.Panel1.SuspendLayout()
|
||||
CType(Me.DokList, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.Controls.Add(Me.Label5)
|
||||
Me.Panel1.Controls.Add(Me.Label4)
|
||||
Me.Panel1.Controls.Add(Me.Button3)
|
||||
Me.Panel1.Controls.Add(Me.Button2)
|
||||
Me.Panel1.Controls.Add(Me.Button1)
|
||||
Me.Panel1.Controls.Add(Me.txtJahrbis)
|
||||
Me.Panel1.Controls.Add(Me.Label3)
|
||||
Me.Panel1.Controls.Add(Me.txtJahrvon)
|
||||
Me.Panel1.Controls.Add(Me.Label2)
|
||||
Me.Panel1.Controls.Add(Me.txtBPNr)
|
||||
Me.Panel1.Controls.Add(Me.Label1)
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.Panel1.Location = New System.Drawing.Point(0, 25)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(859, 84)
|
||||
Me.Panel1.TabIndex = 1
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Location = New System.Drawing.Point(368, 13)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(0, 13)
|
||||
Me.Label5.TabIndex = 10
|
||||
Me.Label5.Tag = "[Kein Partner ausgwählt]"
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Location = New System.Drawing.Point(253, 13)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(109, 13)
|
||||
Me.Label4.TabIndex = 9
|
||||
Me.Label4.Text = "BP-Kurzbezeichnung:"
|
||||
'
|
||||
'Button3
|
||||
'
|
||||
Me.Button3.Image = CType(resources.GetObject("Button3.Image"), System.Drawing.Image)
|
||||
Me.Button3.Location = New System.Drawing.Point(198, 4)
|
||||
Me.Button3.Name = "Button3"
|
||||
Me.Button3.Size = New System.Drawing.Size(34, 30)
|
||||
Me.Button3.TabIndex = 8
|
||||
Me.Button3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.Enabled = False
|
||||
Me.Button2.Location = New System.Drawing.Point(728, 38)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(107, 23)
|
||||
Me.Button2.TabIndex = 7
|
||||
Me.Button2.Text = "Daten aufbereiten"
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Enabled = False
|
||||
Me.Button1.Location = New System.Drawing.Point(728, 8)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(107, 23)
|
||||
Me.Button1.TabIndex = 6
|
||||
Me.Button1.Text = "Daten auselsen"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtJahrbis
|
||||
'
|
||||
Me.txtJahrbis.Location = New System.Drawing.Point(95, 61)
|
||||
Me.txtJahrbis.Name = "txtJahrbis"
|
||||
Me.txtJahrbis.Size = New System.Drawing.Size(54, 20)
|
||||
Me.txtJahrbis.TabIndex = 5
|
||||
Me.txtJahrbis.Text = "2011"
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Location = New System.Drawing.Point(13, 64)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(43, 13)
|
||||
Me.Label3.TabIndex = 4
|
||||
Me.Label3.Text = "Jahr bis"
|
||||
'
|
||||
'txtJahrvon
|
||||
'
|
||||
Me.txtJahrvon.Location = New System.Drawing.Point(95, 35)
|
||||
Me.txtJahrvon.Name = "txtJahrvon"
|
||||
Me.txtJahrvon.Size = New System.Drawing.Size(54, 20)
|
||||
Me.txtJahrvon.TabIndex = 3
|
||||
Me.txtJahrvon.Text = "2002"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(13, 38)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(48, 13)
|
||||
Me.Label2.TabIndex = 2
|
||||
Me.Label2.Text = "Jahr von"
|
||||
'
|
||||
'txtBPNr
|
||||
'
|
||||
Me.txtBPNr.Location = New System.Drawing.Point(95, 9)
|
||||
Me.txtBPNr.Name = "txtBPNr"
|
||||
Me.txtBPNr.Size = New System.Drawing.Size(100, 20)
|
||||
Me.txtBPNr.TabIndex = 1
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(13, 12)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(38, 13)
|
||||
Me.Label1.TabIndex = 0
|
||||
Me.Label1.Text = "BP-Nr."
|
||||
'
|
||||
'DokList
|
||||
'
|
||||
Me.DokList.AllowSort = False
|
||||
Me.DokList.AlternatingRows = True
|
||||
Me.DokList.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.DokList.FetchRowStyles = True
|
||||
Me.DokList.FilterBar = True
|
||||
Me.DokList.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.DokList.Images.Add(CType(resources.GetObject("DokList.Images"), System.Drawing.Image))
|
||||
Me.DokList.Location = New System.Drawing.Point(0, 109)
|
||||
Me.DokList.Name = "DokList"
|
||||
Me.DokList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.DokList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.DokList.PreviewInfo.ZoomFactor = 75
|
||||
Me.DokList.PrintInfo.PageSettings = CType(resources.GetObject("DokList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||
Me.DokList.ScrollTips = True
|
||||
Me.DokList.Size = New System.Drawing.Size(859, 239)
|
||||
Me.DokList.TabIndex = 11
|
||||
Me.DokList.Text = "C1TrueDBGrid2"
|
||||
Me.DokList.PropBag = resources.GetString("DokList.PropBag")
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(859, 25)
|
||||
Me.ToolStrip1.TabIndex = 12
|
||||
Me.ToolStrip1.Text = "ToolStrip1"
|
||||
'
|
||||
'ToolStripButton1
|
||||
'
|
||||
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
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(23, 22)
|
||||
Me.ToolStripButton1.Text = "Fenster schliessen"
|
||||
'
|
||||
'Form1
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(859, 348)
|
||||
Me.Controls.Add(Me.DokList)
|
||||
Me.Controls.Add(Me.Panel1)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "Form1"
|
||||
Me.Text = "Dokumentaufbereitung"
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.Panel1.PerformLayout()
|
||||
CType(Me.DokList, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ToolStrip1.ResumeLayout(False)
|
||||
Me.ToolStrip1.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents txtJahrbis As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents txtJahrvon As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents txtBPNr As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents DokList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents Button2 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button3 As System.Windows.Forms.Button
|
||||
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
|
||||
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
|
||||
|
||||
End Class
|
||||
2089
DokSA/Backup/DokSA/Form1.resx
Normal file
2089
DokSA/Backup/DokSA/Form1.resx
Normal file
File diff suppressed because it is too large
Load Diff
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user