Initial commit
This commit is contained in:
1
.svn/entries
Normal file
1
.svn/entries
Normal file
@@ -0,0 +1 @@
|
||||
12
|
||||
1
.svn/format
Normal file
1
.svn/format
Normal file
@@ -0,0 +1 @@
|
||||
12
|
||||
@@ -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,127 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used forserialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="ServiceProcessInstaller.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ServiceProcessInstaller.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ServiceProcessInstaller.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</data>
|
||||
<data name="ServiceInstaller.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ServiceInstaller.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ServiceInstaller.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>188, 17</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>ProjectInstaller</value>
|
||||
</data>
|
||||
<data name="$this.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</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,42 @@
|
||||
<?xml version="1.0" encoding="utf-8" ?>
|
||||
<root>
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="ResMimeType">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="Version">
|
||||
<value>1.0.0.0</value>
|
||||
</resheader>
|
||||
<resheader name="Reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="Writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
2045
.svn/pristine/04/04acc1359a3dc7c043747be3081bd9c9d006f3c2.svn-base
Normal file
2045
.svn/pristine/04/04acc1359a3dc7c043747be3081bd9c9d006f3c2.svn-base
Normal file
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,11 @@
|
||||
C:\Data\Edoka_FW3\BMS\BMSDll\bin\BMS.dll
|
||||
C:\Data\Edoka_FW3\BMS\BMSDll\bin\BMS.xml
|
||||
C:\Data\Edoka_FW3\BMS\BMSDll\bin\Common.dll
|
||||
C:\Data\Edoka_FW3\BMS\BMSDll\bin\DataAccess.dll
|
||||
C:\Data\Edoka_FW3\BMS\BMSDll\bin\ZpCryptography.dll
|
||||
C:\Data\Edoka_FW3\BMS\BMSDll\bin\DataAccess.xml
|
||||
C:\Data\Edoka_FW3\BMS\BMSDll\bin\ZpCryptography.xml
|
||||
C:\Data\Edoka_FW3\BMS\BMSDll\bin\Common.xml
|
||||
C:\Data\Edoka_FW3\BMS\BMSDll\obj\Release\ResolveAssemblyReference.cache
|
||||
C:\Data\Edoka_FW3\BMS\BMSDll\obj\Release\BMS.dll
|
||||
C:\Data\Edoka_FW3\BMS\BMSDll\obj\Release\BMS.xml
|
||||
@@ -0,0 +1,352 @@
|
||||
#Region "Includes"
|
||||
|
||||
Imports System.ServiceProcess
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Xml
|
||||
|
||||
Imports Common.Common
|
||||
|
||||
#End Region
|
||||
|
||||
Public Class BMSService
|
||||
Inherits System.ServiceProcess.ServiceBase
|
||||
|
||||
#Region "Members"
|
||||
|
||||
Private m_TimerStarter As System.Threading.Timer
|
||||
Private m_TimerWatcher As System.Threading.Timer
|
||||
Private m_EventLog As EventLog
|
||||
Private m_StartJobs As DataSet
|
||||
Private m_WatchJobs As DataSet
|
||||
Private m_Common As Common.Common
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Component Designer generated code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
' This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
|
||||
' Add any initialization after the InitializeComponent() call
|
||||
|
||||
End Sub
|
||||
|
||||
'UserService overrides dispose to clean up the component list.
|
||||
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
|
||||
|
||||
' The main entry point for the process
|
||||
<MTAThread()> _
|
||||
Shared Sub Main()
|
||||
' Dim ServicesToRun() As System.ServiceProcess.ServiceBase
|
||||
|
||||
' More than one NT Service may run within the same process. To add
|
||||
' another service to this process, change the following line to
|
||||
' create a second service object. For example,
|
||||
'
|
||||
' ServicesToRun = New System.ServiceProcess.ServiceBase () {New Service1, New MySecondUserService}
|
||||
'
|
||||
' ServicesToRun = New System.ServiceProcess.ServiceBase() {New BMSService}
|
||||
|
||||
' System.ServiceProcess.ServiceBase.Run(ServicesToRun)
|
||||
|
||||
'-----------------
|
||||
'DEBUG check don't work in windows service manager...
|
||||
#If DEBUG Then
|
||||
Dim service As New BMSService
|
||||
service.StartService()
|
||||
System.Threading.Thread.Sleep(System.Threading.Timeout.Infinite)
|
||||
#Else
|
||||
Dim ServicesToRun() As System.ServiceProcess.ServiceBase
|
||||
ServicesToRun = New System.ServiceProcess.ServiceBase() {New BMSService}
|
||||
System.ServiceProcess.ServiceBase.Run(ServicesToRun)
|
||||
#End If
|
||||
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
' NOTE: The following procedure is required by the Component Designer
|
||||
' It can be modified using the Component Designer.
|
||||
' Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
'
|
||||
'BMSService
|
||||
'
|
||||
Me.ServiceName = "BMS Serivce"
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Service Start / Stopp"
|
||||
|
||||
Protected Overrides Sub OnStart(ByVal args() As String)
|
||||
StartService()
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub OnStop()
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Private Methods"
|
||||
|
||||
'Occures ever time the timer elapses
|
||||
Sub TimeElapsedStarter(ByVal stateInfo As Object)
|
||||
Try
|
||||
'Load and execute starter Jobs
|
||||
m_StartJobs.Clear()
|
||||
DataAccess.Job.LoadJobs(m_Common, JobType.StartJob, m_StartJobs)
|
||||
ExecuteStartJobs()
|
||||
Catch ex As Exception
|
||||
WriteEventLog("Fehler: " & ex.Message & Environment.NewLine & Environment.NewLine & ex.StackTrace, EventLogEntryType.Error)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Occures ever time the timer elapses
|
||||
Sub TimeElapsedWatcher(ByVal stateInfo As Object)
|
||||
Try
|
||||
'Load and execute starter Jobs
|
||||
m_WatchJobs.Clear()
|
||||
DataAccess.Job.LoadJobs(m_Common, JobType.WatchJob, m_WatchJobs)
|
||||
ExecuteWatchJobs()
|
||||
Catch ex As Exception
|
||||
WriteEventLog("Fehler: " & ex.Message & Environment.NewLine & Environment.NewLine & ex.StackTrace, EventLogEntryType.Error)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Initializes all the service start stuff...
|
||||
Private Sub StartService()
|
||||
Try
|
||||
m_EventLog = New EventLog
|
||||
m_Common = New Common.Common
|
||||
|
||||
'Cannot use System.Timers.Timer due a Bug (http://support.microsoft.com/default.aspx?scid=kb;en-us;842793)
|
||||
Dim autoEvent As New System.Threading.AutoResetEvent(False)
|
||||
Dim timerStarterDelegate As System.Threading.TimerCallback = AddressOf TimeElapsedStarter
|
||||
Dim timerWatcherDelegate As System.Threading.TimerCallback = AddressOf TimeElapsedWatcher
|
||||
|
||||
m_TimerStarter = New System.Threading.Timer(timerStarterDelegate, autoEvent, 1000, m_Common.StartJobInterval)
|
||||
m_TimerWatcher = New System.Threading.Timer(timerWatcherDelegate, autoEvent, m_Common.WatchJobInterval, m_Common.WatchJobInterval)
|
||||
|
||||
m_StartJobs = New DataSet
|
||||
m_WatchJobs = New DataSet
|
||||
|
||||
Catch ex As Exception
|
||||
WriteEventLog("Fehler: " & ex.Message & Environment.NewLine & Environment.NewLine & ex.StackTrace, EventLogEntryType.Error)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Executes all watch jobs
|
||||
Private Sub ExecuteWatchJobs()
|
||||
'Check if there are any jobs
|
||||
If m_WatchJobs.Tables.Count > 0 And m_WatchJobs.Tables.Item(0).Rows.Count > 0 Then
|
||||
Dim dt As DataTable
|
||||
Dim dsFailedJobs As New DataSet
|
||||
Dim startTime As New DateTime, endTime As New DateTime
|
||||
|
||||
dt = m_WatchJobs.Tables.Item(0)
|
||||
|
||||
Dim dr As DataRow
|
||||
|
||||
For Each dr In dt.Rows
|
||||
'Check if job is in valid date range
|
||||
If dr.Item("DatumStart") <= DateTime.Now And CType(dr.Item("DatumEnde"), Date).AddDays(1) >= DateTime.Now Then
|
||||
|
||||
ConvertToDateTime(dr.Item("ZeitVon"), dr.Item("ZeitBis"), startTime, endTime)
|
||||
|
||||
If startTime <= DateTime.Now And endTime >= DateTime.Now Then
|
||||
'job seems to be in his valid datetime range...
|
||||
Dim lastRunStart As DateTime
|
||||
If dr("LastRunStart") Is DBNull.Value Then
|
||||
'use dummy date if the job never run before
|
||||
lastRunStart = New DateTime(1)
|
||||
Else
|
||||
lastRunStart = CDate(dr("LastRunStart"))
|
||||
End If
|
||||
|
||||
'get all failed starter jobs
|
||||
dsFailedJobs.Clear()
|
||||
DataAccess.Job.GetFailedStartJobs(m_Common, dr("ProgrammId"), dsFailedJobs)
|
||||
SendNotifications(dsFailedJobs, "Das Programm ##PROG_NAME## hat nicht innerhalb der Zeitspanne von " & m_Common.MaximalStartDuration.ToString() & " Minuten die Start() Methode der BMS-Dll aufgerufen. Möglicherweise konnte das Programm nicht gestartet werden.", JobType.StartJob)
|
||||
|
||||
'check for failed execution jobs
|
||||
dsFailedJobs.Clear()
|
||||
DataAccess.Job.GetFailedExecJobs(m_Common, dr("ProgrammId"), dsFailedJobs)
|
||||
If dsFailedJobs.Tables.Count > 0 And dsFailedJobs.Tables(0).Rows.Count > 0 Then
|
||||
SendNotifications(dsFailedJobs, "Das Programm ##PROG_NAME## konnte nicht innerhalb der vordefinierten Laufzeit von " & dsFailedJobs.Tables(0).Rows(0)("MaxLaufzeit").ToString() & " Minuten ausgeführt werden.", JobType.WatchJob)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End Sub
|
||||
|
||||
'Executes all starter jobs
|
||||
Private Sub ExecuteStartJobs()
|
||||
'Check if there are any jobs
|
||||
If m_StartJobs.Tables.Count > 0 And m_StartJobs.Tables.Item(0).Rows.Count > 0 Then
|
||||
Dim dt As DataTable
|
||||
Dim startTime As New DateTime, endTime As New DateTime
|
||||
|
||||
dt = m_StartJobs.Tables.Item(0)
|
||||
|
||||
Dim dr As DataRow
|
||||
|
||||
For Each dr In dt.Rows
|
||||
If dr("RunJob") Then
|
||||
'RunJob has to run as fast as possible
|
||||
If Not dr("IsRunning") Then
|
||||
'job isn't already running
|
||||
Dim job As New Job(m_Common, dr("JobId"), dr("Beschreibung"), dr("ProgrammId"), CType(dr("JobTypId"), JobType), CType(dr("JobStartTypId"), JobStartType))
|
||||
If Not dr("ParentProgrammId") Is DBNull.Value Then
|
||||
Dim parentProgrammId As Integer = dr("ParentProgrammId")
|
||||
'job has a relation to another job, validate if parent job is currently executing...
|
||||
If Not DataAccess.Job.CheckIsRunning(m_Common.DSN, parentProgrammId) Then
|
||||
'parent job is not running, -> run job
|
||||
'NachLetzterAusfuerung False, cause no one cares about next start time on RunJobs
|
||||
job.Launch(True, False)
|
||||
End If
|
||||
Else
|
||||
'run job
|
||||
job.Launch(True, False)
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
'Check if job is in valid date range
|
||||
If dr.Item("DatumStart") <= DateTime.Now And CType(dr.Item("DatumEnde"), Date).AddDays(1) >= DateTime.Now Then
|
||||
|
||||
ConvertToDateTime(dr.Item("ZeitVon"), dr.Item("ZeitBis"), startTime, endTime)
|
||||
|
||||
If startTime <= DateTime.Now And endTime >= DateTime.Now Then
|
||||
If dr("NextStartDate") < DateTime.Now Then
|
||||
'interval has elapsed (should already be checked in GetJobs SP...)
|
||||
If Not dr("IsRunning") Then
|
||||
'job isn't already running
|
||||
Dim job As New Job(m_Common, dr("JobId"), dr("Beschreibung"), dr("ProgrammId"), CType(dr("JobTypId"), JobType), CType(dr("JobStartTypId"), JobStartType))
|
||||
If Not dr("ParentProgrammId") Is DBNull.Value Then
|
||||
Dim parentProgrammId As Integer = dr("ParentProgrammId")
|
||||
'job has a relation to another job, validate if parent job is currently executing...
|
||||
If Not DataAccess.Job.CheckIsRunning(m_Common.DSN, parentProgrammId) Then
|
||||
'parent job is not running, -> run job
|
||||
job.Launch(False, dr("NachLetzterAusfuerung"))
|
||||
End If
|
||||
Else
|
||||
'run job
|
||||
job.Launch(False, dr("NachLetzterAusfuerung"))
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End Sub
|
||||
|
||||
'Sends notifications to the pre-definied receivers (file or mail)
|
||||
Private Sub SendNotifications(ByVal ds As DataSet, ByVal message As String, ByVal jobType As JobType)
|
||||
Dim drFailed As DataRow
|
||||
Dim dsNotifications As New DataSet
|
||||
Dim hasNotiLimitReached As Boolean
|
||||
|
||||
hasNotiLimitReached = False
|
||||
|
||||
If ds.Tables.Count > 0 Then
|
||||
If ds.Tables(0).Rows.Count > 0 Then
|
||||
For Each drFailed In ds.Tables(0).Rows
|
||||
|
||||
'check if we already reached the limits for sending start/satch notifications
|
||||
If jobType = jobType.WatchJob Then
|
||||
If drFailed("NotiCounter") >= m_Common.MaxWatcherNotifications Then
|
||||
hasNotiLimitReached = True
|
||||
Else
|
||||
hasNotiLimitReached = False
|
||||
End If
|
||||
Else
|
||||
If drFailed("NotiCounter") >= m_Common.MaxStarterNotifications Then
|
||||
hasNotiLimitReached = True
|
||||
Else
|
||||
hasNotiLimitReached = False
|
||||
End If
|
||||
End If
|
||||
|
||||
If Not hasNotiLimitReached Then
|
||||
'get all notifications to a programm
|
||||
dsNotifications.Clear()
|
||||
DataAccess.Job.GetNotifications(m_Common, CInt(drFailed("ProgrammId")), dsNotifications)
|
||||
If dsNotifications.Tables.Count > 0 Then
|
||||
'seems to have rows in a table...
|
||||
DataAccess.Job.SendNotification(m_Common, CInt(drFailed("ProgrammId")), dsNotifications, message, drFailed("JobId"), jobType)
|
||||
End If
|
||||
End If
|
||||
|
||||
If drFailed("NachLetzterAusfuerung") Then
|
||||
DataAccess.Job.SetJobLastRun(m_Common.DSN, drFailed("JobId"), LastRun.End)
|
||||
If Not drFailed("RunJob") Then
|
||||
'calc next start exec time if its not a run job
|
||||
DataAccess.Job.SetNextExecDateTime(m_Common.DSN, drFailed("JobId"))
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Helper Methods"
|
||||
|
||||
'Converts the times from database to a datetime datatyp for better handling
|
||||
Private Sub ConvertToDateTime(ByVal startTime As String, ByVal endTime As String, ByRef startDateTime As DateTime, ByRef endDateTime As DateTime)
|
||||
Try
|
||||
Dim houres As Integer, minutes As Integer
|
||||
|
||||
'let's parse some time stuff to get start and end time in a better datatype...
|
||||
houres = Left(startTime, 2)
|
||||
minutes = Right(startTime, 2)
|
||||
|
||||
startDateTime = DateTime.Today.AddHours(houres)
|
||||
startDateTime = startDateTime.AddMinutes(minutes)
|
||||
|
||||
houres = Left(endTime, 2)
|
||||
minutes = Right(endTime, 2)
|
||||
|
||||
endDateTime = DateTime.Today.AddHours(houres)
|
||||
endDateTime = endDateTime.AddMinutes(minutes)
|
||||
|
||||
'if endtime is less, endtime is on next day
|
||||
'Ex: Start 23:15; End 02:45
|
||||
If endDateTime < startDateTime Then
|
||||
endTime = endDateTime.AddDays(1)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Writes an message to windows event log
|
||||
Private Sub WriteEventLog(ByVal errorMessage As String, ByVal eventLogType As EventLogEntryType)
|
||||
Try
|
||||
m_Common.Log(Common.Common.SERVICE_DISPLAY_NAME, "Quelle: " & SERVICE_DISPLAY_NAME & Environment.NewLine & "Meldung: " & errorMessage, eventLogType)
|
||||
Catch ex As Exception
|
||||
System.Diagnostics.EventLog.WriteEntry(SERVICE_DISPLAY_NAME, errorMessage, eventLogType)
|
||||
System.Diagnostics.EventLog.WriteEntry(SERVICE_DISPLAY_NAME, ex.Message + Environment.NewLine + ex.StackTrace, EventLogEntryType.Error)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,5 @@
|
||||
bin\ZpCryptography.dll
|
||||
bin\ZpCryptography.xml
|
||||
obj\Release\ResolveAssemblyReference.cache
|
||||
obj\Release\ZpCryptography.dll
|
||||
obj\Release\ZpCryptography.xml
|
||||
@@ -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
|
||||
@@ -0,0 +1,22 @@
|
||||
|
||||
Microsoft Visual Studio Solution File, Format Version 12.00
|
||||
# Visual Studio 14
|
||||
VisualStudioVersion = 14.0.25123.0
|
||||
MinimumVisualStudioVersion = 10.0.40219.1
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "AGB_Gen", "AGB_Gen\AGB_Gen.vbproj", "{8FE32CF9-E70B-47A4-A9B3-E7E87BE66F6C}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
Debug|Any CPU = Debug|Any CPU
|
||||
Release|Any CPU = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||
{8FE32CF9-E70B-47A4-A9B3-E7E87BE66F6C}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{8FE32CF9-E70B-47A4-A9B3-E7E87BE66F6C}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{8FE32CF9-E70B-47A4-A9B3-E7E87BE66F6C}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{8FE32CF9-E70B-47A4-A9B3-E7E87BE66F6C}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
EndGlobalSection
|
||||
EndGlobal
|
||||
@@ -0,0 +1,73 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:2.0.50727.5466
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "8.0.0.0"), _
|
||||
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Partial Friend NotInheritable Class MySettings
|
||||
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||
|
||||
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
|
||||
|
||||
#Region "My.Settings Auto-Save Functionality"
|
||||
#If _MyType = "WindowsForms" Then
|
||||
Private Shared addedHandler As Boolean
|
||||
|
||||
Private Shared addedHandlerLockObject As New Object
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
|
||||
If My.Application.SaveMySettingsOnExit Then
|
||||
My.Settings.Save()
|
||||
End If
|
||||
End Sub
|
||||
#End If
|
||||
#End Region
|
||||
|
||||
Public Shared ReadOnly Property [Default]() As MySettings
|
||||
Get
|
||||
|
||||
#If _MyType = "WindowsForms" Then
|
||||
If Not addedHandler Then
|
||||
SyncLock addedHandlerLockObject
|
||||
If Not addedHandler Then
|
||||
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||
addedHandler = True
|
||||
End If
|
||||
End SyncLock
|
||||
End If
|
||||
#End If
|
||||
Return defaultInstance
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
End Namespace
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||
Friend Module MySettingsProperty
|
||||
|
||||
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||
Friend ReadOnly Property Settings() As Global.ARSDDE.My.MySettings
|
||||
Get
|
||||
Return Global.ARSDDE.My.MySettings.Default
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
@@ -0,0 +1,46 @@
|
||||
<?xml version="1.0" encoding="utf-8" ?>
|
||||
<root>
|
||||
<config>
|
||||
<!-- The maximum duration a start job can take before a starter error occures -->
|
||||
<MaximumStartDuration>1</MaximumStartDuration>
|
||||
|
||||
<!-- Check interval in minutes for starter -->
|
||||
<StartJobInterval>2</StartJobInterval>
|
||||
|
||||
<!-- Check interval in minutes for watcher -->
|
||||
<WatchJobInterval>2</WatchJobInterval>
|
||||
|
||||
<!-- The number of Starter-Errors notifications should be activated until the job runs successful next time -->
|
||||
<MaxStarterNotifications>2</MaxStarterNotifications>
|
||||
|
||||
<!-- The number of Watch-Errors notifications should be activated until the job runs successful next time -->
|
||||
<MaxWatcherNotifications>3</MaxWatcherNotifications>
|
||||
|
||||
<!-- Name of the system event log where service should write his entries -->
|
||||
<EventLogName>BMS</EventLogName>
|
||||
|
||||
<!-- The target where messages should be written to.
|
||||
Valid log targets are:
|
||||
- 1: System EventLog
|
||||
- 2: Database EventLog table
|
||||
-->
|
||||
<LogTarget>1</LogTarget>
|
||||
|
||||
<!-- Mail Server to send eMails from BMS -->
|
||||
<MailServer>tkbdev01</MailServer>
|
||||
|
||||
<!-- Mail sender name -->
|
||||
<MailFrom>bms@tkb.ch</MailFrom>
|
||||
|
||||
<!-- Mail Server authentication method.
|
||||
Valid methods are:
|
||||
- 0: Anonymous
|
||||
- 1: Basic Authentication (clear text authentication!)
|
||||
-->
|
||||
<MailServerAuth>
|
||||
<Method>0</Method>
|
||||
<UserName>mailUser</UserName>
|
||||
<Password>mailPassword</Password>
|
||||
</MailServerAuth>
|
||||
</config>
|
||||
</root>
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,11 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
EDKB10
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
|
||||
</members>
|
||||
</doc>
|
||||
@@ -0,0 +1,21 @@
|
||||
|
||||
Eine transaktive Installation wird ausgeführt.
|
||||
|
||||
Die Installationsphase wird gestartet.
|
||||
Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\Tools\BMS\BMSService\bin\EDKB10.exe.
|
||||
Die Datei befindet sich in E:\Software-Projekte\EDOKA\Tools\BMS\BMSService\bin\EDKB10.InstallLog.
|
||||
|
||||
Die Installationsphase ist abgeschlossen, und die Commitphase beginnt.
|
||||
Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\Tools\BMS\BMSService\bin\EDKB10.exe.
|
||||
Die Datei befindet sich in E:\Software-Projekte\EDOKA\Tools\BMS\BMSService\bin\EDKB10.InstallLog.
|
||||
|
||||
Die Commitphase wurde erfolgreich abgeschlossen.
|
||||
|
||||
Die transaktive Installation ist abgeschlossen.
|
||||
|
||||
|
||||
Die Deinstallation wurde gestartet.
|
||||
Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\Tools\BMS\BMSService\bin\EDKB10.exe.
|
||||
Die Datei befindet sich in E:\Software-Projekte\EDOKA\Tools\BMS\BMSService\bin\EDKB10.InstallLog.
|
||||
|
||||
Die Deinstallation ist abgeschlossen.
|
||||
Binary file not shown.
@@ -0,0 +1,57 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<LastOpenVersion>7.10.3077</LastOpenVersion>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ReferencePath>C:\Documents and Settings\rsteimen\My Documents\Visual Studio Projects\BMS\;C:\D\EDOKA\</ReferencePath>
|
||||
<CopyProjectDestinationFolder>
|
||||
</CopyProjectDestinationFolder>
|
||||
<CopyProjectUncPath>
|
||||
</CopyProjectUncPath>
|
||||
<CopyProjectOption>0</CopyProjectOption>
|
||||
<ProjectView>ProjectFiles</ProjectView>
|
||||
<ProjectTrust>0</ProjectTrust>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<EnableASPDebugging>false</EnableASPDebugging>
|
||||
<EnableASPXDebugging>false</EnableASPXDebugging>
|
||||
<EnableUnmanagedDebugging>false</EnableUnmanagedDebugging>
|
||||
<EnableSQLServerDebugging>false</EnableSQLServerDebugging>
|
||||
<RemoteDebugEnabled>false</RemoteDebugEnabled>
|
||||
<RemoteDebugMachine>
|
||||
</RemoteDebugMachine>
|
||||
<StartAction>Project</StartAction>
|
||||
<StartArguments>
|
||||
</StartArguments>
|
||||
<StartPage>
|
||||
</StartPage>
|
||||
<StartProgram>
|
||||
</StartProgram>
|
||||
<StartURL>
|
||||
</StartURL>
|
||||
<StartWorkingDirectory>
|
||||
</StartWorkingDirectory>
|
||||
<StartWithIE>true</StartWithIE>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<EnableASPDebugging>false</EnableASPDebugging>
|
||||
<EnableASPXDebugging>false</EnableASPXDebugging>
|
||||
<EnableUnmanagedDebugging>false</EnableUnmanagedDebugging>
|
||||
<EnableSQLServerDebugging>false</EnableSQLServerDebugging>
|
||||
<RemoteDebugEnabled>false</RemoteDebugEnabled>
|
||||
<RemoteDebugMachine>
|
||||
</RemoteDebugMachine>
|
||||
<StartAction>Project</StartAction>
|
||||
<StartArguments>
|
||||
</StartArguments>
|
||||
<StartPage>
|
||||
</StartPage>
|
||||
<StartProgram>
|
||||
</StartProgram>
|
||||
<StartURL>
|
||||
</StartURL>
|
||||
<StartWorkingDirectory>
|
||||
</StartWorkingDirectory>
|
||||
<StartWithIE>true</StartWithIE>
|
||||
</PropertyGroup>
|
||||
</Project>
|
||||
@@ -0,0 +1,70 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<LastOpenVersion>7.10.3077</LastOpenVersion>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ReferencePath>
|
||||
</ReferencePath>
|
||||
<CopyProjectDestinationFolder>
|
||||
</CopyProjectDestinationFolder>
|
||||
<CopyProjectUncPath>
|
||||
</CopyProjectUncPath>
|
||||
<CopyProjectOption>0</CopyProjectOption>
|
||||
<ProjectView>ProjectFiles</ProjectView>
|
||||
<ProjectTrust>0</ProjectTrust>
|
||||
<PublishUrlHistory>publish\</PublishUrlHistory>
|
||||
<InstallUrlHistory>
|
||||
</InstallUrlHistory>
|
||||
<SupportUrlHistory>
|
||||
</SupportUrlHistory>
|
||||
<UpdateUrlHistory>
|
||||
</UpdateUrlHistory>
|
||||
<BootstrapperUrlHistory>
|
||||
</BootstrapperUrlHistory>
|
||||
<ApplicationRevision>0</ApplicationRevision>
|
||||
<FallbackCulture>de-DE</FallbackCulture>
|
||||
<VerifyUploadedFiles>false</VerifyUploadedFiles>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<EnableASPDebugging>false</EnableASPDebugging>
|
||||
<EnableASPXDebugging>false</EnableASPXDebugging>
|
||||
<EnableUnmanagedDebugging>false</EnableUnmanagedDebugging>
|
||||
<EnableSQLServerDebugging>false</EnableSQLServerDebugging>
|
||||
<RemoteDebugEnabled>false</RemoteDebugEnabled>
|
||||
<RemoteDebugMachine>
|
||||
</RemoteDebugMachine>
|
||||
<StartAction>Project</StartAction>
|
||||
<StartArguments>
|
||||
</StartArguments>
|
||||
<StartPage>
|
||||
</StartPage>
|
||||
<StartProgram>
|
||||
</StartProgram>
|
||||
<StartURL>
|
||||
</StartURL>
|
||||
<StartWorkingDirectory>
|
||||
</StartWorkingDirectory>
|
||||
<StartWithIE>false</StartWithIE>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<EnableASPDebugging>false</EnableASPDebugging>
|
||||
<EnableASPXDebugging>false</EnableASPXDebugging>
|
||||
<EnableUnmanagedDebugging>false</EnableUnmanagedDebugging>
|
||||
<EnableSQLServerDebugging>false</EnableSQLServerDebugging>
|
||||
<RemoteDebugEnabled>false</RemoteDebugEnabled>
|
||||
<RemoteDebugMachine>
|
||||
</RemoteDebugMachine>
|
||||
<StartAction>Project</StartAction>
|
||||
<StartArguments>
|
||||
</StartArguments>
|
||||
<StartPage>
|
||||
</StartPage>
|
||||
<StartProgram>
|
||||
</StartProgram>
|
||||
<StartURL>
|
||||
</StartURL>
|
||||
<StartWorkingDirectory>
|
||||
</StartWorkingDirectory>
|
||||
<StartWithIE>false</StartWithIE>
|
||||
</PropertyGroup>
|
||||
</Project>
|
||||
@@ -0,0 +1,104 @@
|
||||
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectType>Local</ProjectType>
|
||||
<ProductVersion>8.0.50727</ProductVersion>
|
||||
<SchemaVersion>2.0</SchemaVersion>
|
||||
<ProjectGuid>{290C31E0-49C7-4E85-A39F-CA496BE678B6}</ProjectGuid>
|
||||
<SccProjectName>SAK</SccProjectName>
|
||||
<SccLocalPath>SAK</SccLocalPath>
|
||||
<SccAuxPath>SAK</SccAuxPath>
|
||||
<SccProvider>SAK</SccProvider>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ApplicationIcon>
|
||||
</ApplicationIcon>
|
||||
<AssemblyKeyContainerName>
|
||||
</AssemblyKeyContainerName>
|
||||
<AssemblyName>ZpCryptography</AssemblyName>
|
||||
<AssemblyOriginatorKeyFile>
|
||||
</AssemblyOriginatorKeyFile>
|
||||
<AssemblyOriginatorKeyMode>None</AssemblyOriginatorKeyMode>
|
||||
<DefaultClientScript>JScript</DefaultClientScript>
|
||||
<DefaultHTMLPageLayout>Grid</DefaultHTMLPageLayout>
|
||||
<DefaultTargetSchema>IE50</DefaultTargetSchema>
|
||||
<DelaySign>false</DelaySign>
|
||||
<OutputType>Library</OutputType>
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
<RootNamespace>ZpCryptography</RootNamespace>
|
||||
<StartupObject>ZpCryptography.%28None%29</StartupObject>
|
||||
<FileUpgradeFlags>
|
||||
</FileUpgradeFlags>
|
||||
<MyType>Windows</MyType>
|
||||
<UpgradeBackupLocation>
|
||||
</UpgradeBackupLocation>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<OutputPath>bin\</OutputPath>
|
||||
<DocumentationFile>ZpCryptography.xml</DocumentationFile>
|
||||
<BaseAddress>285212672</BaseAddress>
|
||||
<ConfigurationOverrideFile>
|
||||
</ConfigurationOverrideFile>
|
||||
<DefineConstants>
|
||||
</DefineConstants>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<Optimize>false</Optimize>
|
||||
<RegisterForComInterop>false</RegisterForComInterop>
|
||||
<RemoveIntegerChecks>false</RemoveIntegerChecks>
|
||||
<TreatWarningsAsErrors>false</TreatWarningsAsErrors>
|
||||
<WarningLevel>1</WarningLevel>
|
||||
<NoWarn>42016,42017,42018,42019,42032</NoWarn>
|
||||
<DebugType>full</DebugType>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<OutputPath>bin\</OutputPath>
|
||||
<DocumentationFile>ZpCryptography.xml</DocumentationFile>
|
||||
<BaseAddress>285212672</BaseAddress>
|
||||
<ConfigurationOverrideFile>
|
||||
</ConfigurationOverrideFile>
|
||||
<DefineConstants>
|
||||
</DefineConstants>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<DebugSymbols>false</DebugSymbols>
|
||||
<Optimize>true</Optimize>
|
||||
<RegisterForComInterop>false</RegisterForComInterop>
|
||||
<RemoveIntegerChecks>false</RemoveIntegerChecks>
|
||||
<TreatWarningsAsErrors>false</TreatWarningsAsErrors>
|
||||
<WarningLevel>1</WarningLevel>
|
||||
<NoWarn>42016,42017,42018,42019,42032</NoWarn>
|
||||
<DebugType>none</DebugType>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="System">
|
||||
<Name>System</Name>
|
||||
</Reference>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Import Include="Microsoft.VisualBasic" />
|
||||
<Import Include="System" />
|
||||
<Import Include="System.Collections" />
|
||||
<Import Include="System.Diagnostics" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="AssemblyInfo.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DsnCrypto.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Folder Include="My Project\" />
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
|
||||
<PropertyGroup>
|
||||
<PreBuildEvent>
|
||||
</PreBuildEvent>
|
||||
<PostBuildEvent>
|
||||
</PostBuildEvent>
|
||||
</PropertyGroup>
|
||||
</Project>
|
||||
@@ -0,0 +1,32 @@
|
||||
Imports System
|
||||
Imports System.Reflection
|
||||
Imports System.Runtime.InteropServices
|
||||
|
||||
' General Information about an assembly is controlled through the following
|
||||
' set of attributes. Change these attribute values to modify the information
|
||||
' associated with an assembly.
|
||||
|
||||
' Review the values of the assembly attributes
|
||||
|
||||
<Assembly: AssemblyTitle("BMS Logging DLL")>
|
||||
<Assembly: AssemblyDescription("Writes journal entries to BMS database journal")>
|
||||
<Assembly: AssemblyCompany("Zubler & Partner")>
|
||||
<Assembly: AssemblyProduct("BMS Logging DLL")>
|
||||
<Assembly: AssemblyCopyright("")>
|
||||
<Assembly: AssemblyTrademark("")>
|
||||
<Assembly: CLSCompliant(True)>
|
||||
|
||||
'The following GUID is for the ID of the typelib if this project is exposed to COM
|
||||
<Assembly: Guid("2BBEB51D-23B1-4418-A844-9471B78A910B")>
|
||||
|
||||
' Version information for an assembly consists of the following four values:
|
||||
'
|
||||
' Major Version
|
||||
' Minor Version
|
||||
' Build Number
|
||||
' Revision
|
||||
'
|
||||
' You can specify all the values or you can default the Build and Revision Numbers
|
||||
' by using the '*' as shown below:
|
||||
|
||||
<Assembly: AssemblyVersion("1.0.*")>
|
||||
@@ -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,5 @@
|
||||
SCC = This is a Source Code Control file
|
||||
|
||||
[EDKB02WinUI.vbproj]
|
||||
SCC_Aux_Path = "\\SERVER01\DATEN\SourceSave\EDOKA4.0"
|
||||
SCC_Project_Name = "$/BMS/EDKB02WinUI", IUCAAAAA
|
||||
@@ -0,0 +1,232 @@
|
||||
<?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:key name="ProjectKey" match="Event" use="@Project"/>
|
||||
|
||||
<xsl:template match="Events" mode="createProjects">
|
||||
<projects>
|
||||
<xsl:for-each select="Event">
|
||||
<!--xsl:sort select="@Project" order="descending"/-->
|
||||
<xsl:if test="(1=position()) or (preceding-sibling::*[1]/@Project != @Project)">
|
||||
|
||||
<xsl:variable name="ProjectName" select="@Project"/>
|
||||
|
||||
<project>
|
||||
<xsl:attribute name="name">
|
||||
<xsl:value-of select="@Project"/>
|
||||
</xsl:attribute>
|
||||
|
||||
<xsl:if test="@Project=''">
|
||||
<xsl:attribute name="solution">
|
||||
<xsl:value-of select="@Solution"/>
|
||||
</xsl:attribute>
|
||||
</xsl:if>
|
||||
|
||||
<xsl:for-each select="key('ProjectKey', $ProjectName)">
|
||||
<!--xsl:sort select="@Source" /-->
|
||||
<xsl:if test="(1=position()) or (preceding-sibling::*[1]/@Source != @Source)">
|
||||
|
||||
<source>
|
||||
<xsl:attribute name="name">
|
||||
<xsl:value-of select="@Source"/>
|
||||
</xsl:attribute>
|
||||
|
||||
<xsl:variable name="Source">
|
||||
<xsl:value-of select="@Source"/>
|
||||
</xsl:variable>
|
||||
|
||||
<xsl:for-each select="key('ProjectKey', $ProjectName)[ @Source = $Source ]">
|
||||
|
||||
<event>
|
||||
<xsl:attribute name="error-level">
|
||||
<xsl:value-of select="@ErrorLevel"/>
|
||||
</xsl:attribute>
|
||||
<xsl:attribute name="description">
|
||||
<xsl:value-of select="@Description"/>
|
||||
</xsl:attribute>
|
||||
</event>
|
||||
</xsl:for-each>
|
||||
</source>
|
||||
</xsl:if>
|
||||
</xsl:for-each>
|
||||
|
||||
</project>
|
||||
</xsl:if>
|
||||
</xsl:for-each>
|
||||
</projects>
|
||||
</xsl:template>
|
||||
|
||||
<xsl:template match="projects">
|
||||
<xsl:for-each select="project">
|
||||
<xsl:sort select="@Name" order="ascending"/>
|
||||
<h2>
|
||||
<xsl:if test="@solution">Projektmappe: <xsl:value-of select="@solution"/></xsl:if>
|
||||
<xsl:if test="not(@solution)">Projekt: <xsl:value-of select="@name"/>
|
||||
<xsl:for-each select="source">
|
||||
<xsl:variable name="Hyperlink" select="@name"/>
|
||||
<xsl:for-each select="event[@error-level='4']">
|
||||
<A class="note"><xsl:attribute name="HREF"><xsl:value-of select="$Hyperlink"/></xsl:attribute><xsl:value-of select="@description"/></A>
|
||||
</xsl:for-each>
|
||||
</xsl:for-each>
|
||||
</xsl:if>
|
||||
</h2>
|
||||
|
||||
<table cellpadding="2" cellspacing="0" width="98%" border="1" bordercolor="white" class="infotable">
|
||||
<tr>
|
||||
<td nowrap="1" class="header" _locID="Filename">Dateiname</td>
|
||||
<td nowrap="1" class="header" _locID="Status">Status</td>
|
||||
<td nowrap="1" class="header" _locID="Errors">Fehler</td>
|
||||
<td nowrap="1" class="header" _locID="Warnings">Warnungen</td>
|
||||
</tr>
|
||||
|
||||
<xsl:for-each select="source">
|
||||
<xsl:sort select="@name" order="ascending"/>
|
||||
<xsl:variable name="source-id" select="generate-id(.)"/>
|
||||
|
||||
<xsl:if test="count(event)!=count(event[@error-level='4'])">
|
||||
|
||||
<tr class="row">
|
||||
<td class="content">
|
||||
<A HREF="javascript:"><xsl:attribute name="onClick">javascript:document.images['<xsl:value-of select="$source-id"/>'].click()</xsl:attribute><IMG border="0" alt="expand/collapse section" class="expandable" height="11" onclick="changepic()" src="_UpgradeReport_Files/UpgradeReport_Plus.gif" width="9"><xsl:attribute name="name"><xsl:value-of select="$source-id"/></xsl:attribute><xsl:attribute name="child">src<xsl:value-of select="$source-id"/></xsl:attribute></IMG></A> <xsl:value-of select="@name"/>
|
||||
</td>
|
||||
<td class="content">
|
||||
<xsl:if test="count(event[@error-level='3'])=1">
|
||||
<xsl:for-each select="event[@error-level='3']">
|
||||
<xsl:if test="@description='Converted'">Konvertiert</xsl:if>
|
||||
<xsl:if test="@description!='Converted'"><xsl:value-of select="@description"/></xsl:if>
|
||||
</xsl:for-each>
|
||||
</xsl:if>
|
||||
<xsl:if test="count(event[@error-level='3'])!=1 and count(event[@error-level='3' and @description='Converted'])!=0">Konvertiert
|
||||
</xsl:if>
|
||||
</td>
|
||||
<td class="content"><xsl:value-of select="count(event[@error-level='2'])"/></td>
|
||||
<td class="content"><xsl:value-of select="count(event[@error-level='1'])"/></td>
|
||||
</tr>
|
||||
|
||||
<tr class="collapsed" bgcolor="#ffffff">
|
||||
<xsl:attribute name="id">src<xsl:value-of select="$source-id"/></xsl:attribute>
|
||||
|
||||
<td colspan="7">
|
||||
<table width="97%" border="1" bordercolor="#dcdcdc" rules="cols" class="issuetable">
|
||||
<tr>
|
||||
<td colspan="7" class="issuetitle" _locID="ConversionIssues">Konvertierungsprobleme - <xsl:value-of select="@name"/>:</td>
|
||||
</tr>
|
||||
|
||||
<xsl:for-each select="event[@error-level!='3']">
|
||||
<xsl:if test="@error-level!='4'">
|
||||
<tr>
|
||||
<td class="issuenone" style="border-bottom:solid 1 lightgray">
|
||||
<xsl:value-of select="@description"/>
|
||||
</td>
|
||||
</tr>
|
||||
</xsl:if>
|
||||
</xsl:for-each>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
</xsl:if>
|
||||
</xsl:for-each>
|
||||
|
||||
<tr valign="top">
|
||||
<td class="foot">
|
||||
<xsl:if test="count(source)!=1">
|
||||
<xsl:value-of select="count(source)"/> Dateien
|
||||
</xsl:if>
|
||||
<xsl:if test="count(source)=1">
|
||||
1 Datei
|
||||
</xsl:if>
|
||||
</td>
|
||||
<td class="foot">
|
||||
Konvertiert: <xsl:value-of select="count(source/event[@error-level='3' and @description='Converted'])"/><BR/>
|
||||
Nicht konvertiert <xsl:value-of select="count(source) - count(source/event[@error-level='3' and @description='Converted'])"/>
|
||||
</td>
|
||||
<td class="foot"><xsl:value-of select="count(source/event[@error-level='2'])"/></td>
|
||||
<td class="foot"><xsl:value-of select="count(source/event[@error-level='1'])"/></td>
|
||||
</tr>
|
||||
</table>
|
||||
</xsl:for-each>
|
||||
</xsl:template>
|
||||
|
||||
<xsl:template match="Property">
|
||||
<xsl:if test="@Name!='Date' and @Name!='Time' and @Name!='LogNumber' and @Name!='Solution'">
|
||||
<tr><td nowrap="1"><b><xsl:value-of select="@Name"/>: </b><xsl:value-of select="@Value"/></td></tr>
|
||||
</xsl:if>
|
||||
</xsl:template>
|
||||
|
||||
<xsl:template match="UpgradeLog">
|
||||
<html>
|
||||
<head>
|
||||
<META HTTP-EQUIV="Content-Type" content="text/html; charset=utf-8"/>
|
||||
<link rel="stylesheet" href="_UpgradeReport_Files\UpgradeReport.css"/>
|
||||
<title>Konvertierungsbericht
|
||||
<xsl:if test="Properties/Property[@Name='LogNumber']">
|
||||
<xsl:value-of select="Properties/Property[@Name='LogNumber']/@Value"/>
|
||||
</xsl:if>
|
||||
</title>
|
||||
<script language="javascript">
|
||||
function outliner () {
|
||||
oMe = window.event.srcElement
|
||||
//get child element
|
||||
var child = document.all[event.srcElement.getAttribute("child",false)];
|
||||
//if child element exists, expand or collapse it.
|
||||
if (null != child)
|
||||
child.className = child.className == "collapsed" ? "expanded" : "collapsed";
|
||||
}
|
||||
|
||||
function changepic() {
|
||||
uMe = window.event.srcElement;
|
||||
var check = uMe.src.toLowerCase();
|
||||
if (check.lastIndexOf("upgradereport_plus.gif") != -1)
|
||||
{
|
||||
uMe.src = "_UpgradeReport_Files/UpgradeReport_Minus.gif"
|
||||
}
|
||||
else
|
||||
{
|
||||
uMe.src = "_UpgradeReport_Files/UpgradeReport_Plus.gif"
|
||||
}
|
||||
}
|
||||
</script>
|
||||
</head>
|
||||
<body topmargin="0" leftmargin="0" rightmargin="0" onclick="outliner();">
|
||||
<h1 _locID="ConversionReport">Konvertierungsbericht - <xsl:value-of select="Properties/Property[@Name='Solution']/@Value"/></h1>
|
||||
|
||||
<p><span class="note">
|
||||
<b>Konvertierungsdauer:</b> <xsl:value-of select="Properties/Property[@Name='Date']/@Value"/> <xsl:value-of select="Properties/Property[@Name='Time']/@Value"/><br/>
|
||||
</span></p>
|
||||
|
||||
<xsl:variable name="SortedEvents">
|
||||
<Events>
|
||||
<xsl:for-each select="Event">
|
||||
<xsl:sort select="@Project" order="ascending"/>
|
||||
<xsl:sort select="@Source" order="ascending"/>
|
||||
<xsl:sort select="@ErrorLevel" order="ascending"/>
|
||||
<Event>
|
||||
<xsl:attribute name="Project"><xsl:value-of select="@Project"/> </xsl:attribute>
|
||||
<xsl:attribute name="Solution"><xsl:value-of select="/UpgradeLog/Properties/Property[@Name='Solution']/@Value"/> </xsl:attribute>
|
||||
<xsl:attribute name="Source"><xsl:value-of select="@Source"/> </xsl:attribute>
|
||||
<xsl:attribute name="ErrorLevel"><xsl:value-of select="@ErrorLevel"/> </xsl:attribute>
|
||||
<xsl:attribute name="Description"><xsl:value-of select="@Description"/> </xsl:attribute>
|
||||
</Event>
|
||||
</xsl:for-each>
|
||||
</Events>
|
||||
</xsl:variable>
|
||||
|
||||
<xsl:variable name="Projects">
|
||||
<xsl:apply-templates select="msxsl:node-set($SortedEvents)/*" mode="createProjects"/>
|
||||
</xsl:variable>
|
||||
|
||||
<xsl:apply-templates select="msxsl:node-set($Projects)/*"/>
|
||||
|
||||
<p></p><p>
|
||||
<table class="note">
|
||||
<tr>
|
||||
<td nowrap="1">
|
||||
<b>Konvertierungseinstellungen</b>
|
||||
</td>
|
||||
</tr>
|
||||
<xsl:apply-templates select="Properties"/>
|
||||
</table></p>
|
||||
</body>
|
||||
</html>
|
||||
</xsl:template>
|
||||
</xsl:stylesheet>
|
||||
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,220 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used forserialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="start.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="start.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="start.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="stopp.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="stopp.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="stopp.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="TextBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="TextBox1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="TextBox1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="log.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="log.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="log.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="logerror.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="logerror.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="logerror.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="startTimer.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="startTimer.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</data>
|
||||
<data name="startTimer.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="stoppTimer.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="stoppTimer.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>120, 17</value>
|
||||
</data>
|
||||
<data name="stoppTimer.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="logTimer.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="logTimer.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>227, 17</value>
|
||||
</data>
|
||||
<data name="logTimer.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="lblError.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="lblError.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="lblError.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="btnSendAsMail.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="btnSendAsMail.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="btnSendAsMail.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="$this.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="$this.Language" type="System.Globalization.CultureInfo, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>(Default)</value>
|
||||
</data>
|
||||
<data name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="$this.Localizable" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="$this.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>8, 8</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>Form1</value>
|
||||
</data>
|
||||
<data name="$this.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</data>
|
||||
<data name="$this.TrayHeight" type="System.Int32, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>80</value>
|
||||
</data>
|
||||
<data name="$this.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</data>
|
||||
<data name="$this.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -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.
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,20 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?><?xml-stylesheet type='text/xsl' href='_UpgradeReport_Files/UpgradeReport.xslt'?><UpgradeLog>
|
||||
<Properties><Property Name="Solution" Value="BMSService">
|
||||
</Property><Property Name="Projektmappendatei" Value="C:\Data\Edoka_FW3\BMS\BMSDll\BMSService\BMSService.sln">
|
||||
</Property><Property Name="Date" Value="Mittwoch, 28. November 2007">
|
||||
</Property><Property Name="Time" Value="07:57:24">
|
||||
</Property></Properties><Event ErrorLevel="1" Project="C:\Data\Edoka_FW3\BMS\BMSDll\BMSService\BMSService.vbproj" Source="BMSService.vbproj" Description="MSB2013: Der projektübergreifende Verweis mit der GUID {A1E2756A-4E32-40BB-B449-9BDA1C15DE84} konnte nicht konvertiert werden, weil keine gültige SLN-Datei gefunden wurde, die alle Projekte enthält.">
|
||||
</Event><Event ErrorLevel="1" Project="C:\Data\Edoka_FW3\BMS\BMSDll\BMSService\BMSService.vbproj" Source="BMSService.vbproj" Description="MSB2013: Der projektübergreifende Verweis mit der GUID {21B54F51-D2B2-459E-895C-540AD4A8704F} konnte nicht konvertiert werden, weil keine gültige SLN-Datei gefunden wurde, die alle Projekte enthält.">
|
||||
</Event><Event ErrorLevel="0" Project="BMSService" Source="BMSService.vbproj" Description="Projektdatei erfolgreich gesichert als C:\Data\Edoka_FW3\BMS\BMSDll\BMSService\Backup\BMSService.vbproj">
|
||||
</Event><Event ErrorLevel="0" Project="BMSService" Source="AssemblyInfo.vb" Description="Datei erfolgreich gesichert als C:\Data\Edoka_FW3\BMS\BMSDll\BMSService\Backup\AssemblyInfo.vb">
|
||||
</Event><Event ErrorLevel="0" Project="BMSService" Source="BMSService.vb" Description="Datei erfolgreich gesichert als C:\Data\Edoka_FW3\BMS\BMSDll\BMSService\Backup\BMSService.vb">
|
||||
</Event><Event ErrorLevel="0" Project="BMSService" Source="Job.vb" Description="Datei erfolgreich gesichert als C:\Data\Edoka_FW3\BMS\BMSDll\BMSService\Backup\Job.vb">
|
||||
</Event><Event ErrorLevel="0" Project="BMSService" Source="ProjectInstaller.vb" Description="Datei erfolgreich gesichert als C:\Data\Edoka_FW3\BMS\BMSDll\BMSService\Backup\ProjectInstaller.vb">
|
||||
</Event><Event ErrorLevel="0" Project="BMSService" Source="bms_settings.xml" Description="Datei erfolgreich gesichert als C:\Data\Edoka_FW3\BMS\BMSDll\BMSService\Backup\bms_settings.xml">
|
||||
</Event><Event ErrorLevel="0" Project="BMSService" Source="BMSService.resx" Description="Datei erfolgreich gesichert als C:\Data\Edoka_FW3\BMS\BMSDll\BMSService\Backup\BMSService.resx">
|
||||
</Event><Event ErrorLevel="0" Project="BMSService" Source="Job.resx" Description="Datei erfolgreich gesichert als C:\Data\Edoka_FW3\BMS\BMSDll\BMSService\Backup\Job.resx">
|
||||
</Event><Event ErrorLevel="0" Project="BMSService" Source="ProjectInstaller.resx" Description="Datei erfolgreich gesichert als C:\Data\Edoka_FW3\BMS\BMSDll\BMSService\Backup\ProjectInstaller.resx">
|
||||
</Event><Event ErrorLevel="0" Project="BMSService" Source="BMSService.vbproj" Description="Projekt erfolgreich konvertiert">
|
||||
</Event><Event ErrorLevel="3" Project="BMSService" Source="BMSService.vbproj" Description="Converted">
|
||||
</Event><Event ErrorLevel="0" Project="BMSService" Source="BMSService.vbproj" Description="Überprüfung abgeschlossen: Aktualisierung von Projektdateien nicht erforderlich.">
|
||||
</Event></UpgradeLog>
|
||||
@@ -0,0 +1,5 @@
|
||||
SCC = This is a Source Code Control file
|
||||
|
||||
[Common.vbproj]
|
||||
SCC_Aux_Path = "\\SERVER01\DATEN\SourceSave\EDOKA4.0"
|
||||
SCC_Project_Name = "$/BMS/Common", LTCAAAAA
|
||||
@@ -0,0 +1,26 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
AGB_Gen
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
<member name="T:AGB_Gen.My.Resources.Resources">
|
||||
<summary>
|
||||
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:AGB_Gen.My.Resources.Resources.ResourceManager">
|
||||
<summary>
|
||||
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:AGB_Gen.My.Resources.Resources.Culture">
|
||||
<summary>
|
||||
Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
|
||||
Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
|
||||
</summary>
|
||||
</member>
|
||||
</members>
|
||||
</doc>
|
||||
Binary file not shown.
@@ -0,0 +1,179 @@
|
||||
|
||||
#Region "Includes"
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports Common.Common
|
||||
|
||||
#End Region
|
||||
|
||||
Public Class Job
|
||||
|
||||
#Region "Members"
|
||||
|
||||
Private m_JobId As Integer
|
||||
Private m_Description As String
|
||||
Private m_ProgrammId As Integer
|
||||
Private m_JobType As JobType
|
||||
Private m_JobStartType As JobStartType
|
||||
Private m_Common As Common.Common
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Constructor"
|
||||
|
||||
Public Sub New(ByVal common As Common.Common, ByVal jobId As Integer, ByVal description As String, ByVal programmId As Integer, ByVal jobType As JobType, ByVal jobStartType As JobStartType)
|
||||
m_Common = common
|
||||
|
||||
m_JobId = jobId
|
||||
m_Description = description
|
||||
m_ProgrammId = programmId
|
||||
m_JobType = jobType
|
||||
m_JobStartType = jobStartType
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Properties"
|
||||
|
||||
Public ReadOnly Property JobId() As Integer
|
||||
Get
|
||||
Return m_JobId
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property Description() As String
|
||||
Get
|
||||
Return m_Description
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property ProgrammId() As Integer
|
||||
Get
|
||||
Return m_ProgrammId
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property JobType() As JobType
|
||||
Get
|
||||
Return m_JobType
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property JobStartType() As JobStartType
|
||||
Get
|
||||
Return m_JobStartType
|
||||
End Get
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Public Methods"
|
||||
|
||||
'Launches a start or a watch job'
|
||||
Public Sub Launch(ByVal isRunJob As Boolean, ByVal isNachLetzterAusfuerung As Boolean)
|
||||
Try
|
||||
'insert start datetime into db, used to check, if the job really started
|
||||
'batch has to call bmsDll.Start() method...
|
||||
DataAccess.Job.SetJobLastRun(m_Common.DSN, m_JobId, LastRun.Start)
|
||||
|
||||
'log some infos into eventlog
|
||||
m_Common.Log(SERVICE_DISPLAY_NAME, "Starter launched Job " + m_JobId.ToString() + " (" + m_Description + ")")
|
||||
|
||||
'reset calculated bit
|
||||
DataAccess.Job.SetNextStartDateCalculated(m_Common.DSN, m_JobId, True)
|
||||
|
||||
If Not isRunJob And Not isNachLetzterAusfuerung Then
|
||||
'just calculate next start time if its not a runjob (job that has to execute as fast as possible)
|
||||
DataAccess.Job.SetNextExecDateTime(m_Common.DSN, m_JobId)
|
||||
End If
|
||||
|
||||
Select Case m_JobType
|
||||
Case JobType.StartJob
|
||||
Select Case m_JobStartType
|
||||
Case JobStartType.Executable
|
||||
StartExe()
|
||||
Case JobStartType.SqlQuery
|
||||
StartSqlQuery()
|
||||
Case JobStartType.WindowsService
|
||||
StartService()
|
||||
Case Else
|
||||
Throw New Exception("Unbekannter Job Start Typ """ & m_JobStartType.ToString() & """ ist unbekannt")
|
||||
End Select
|
||||
Case Else
|
||||
Throw New Exception("Unbekannter Job Typ """ & m_JobType.ToString() & """")
|
||||
End Select
|
||||
|
||||
Catch ex As Exception
|
||||
Dim exModified As New Exception("Der Job JobId: " + m_JobId.ToString() + " (" + m_Description + ") konnte nicht gestartet werden." + Environment.NewLine + ex.Message, ex)
|
||||
Throw exModified
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "private Methods"
|
||||
|
||||
'Starts an executable. But before, it gets all start parameters from db it needs
|
||||
Private Sub StartExe()
|
||||
Try
|
||||
Dim programmPath As String = ""
|
||||
|
||||
DataAccess.Job.GetStartParameter(m_Common.DSN, m_JobId, StartParameterType.FilePath, programmPath)
|
||||
process.Start(programmPath)
|
||||
|
||||
Catch ex As Exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Starts a service. But before, it gets all start parameters from db it needs
|
||||
Private Sub StartService()
|
||||
Try
|
||||
Dim serviceName As String = "", machineName As String = ""
|
||||
|
||||
DataAccess.Job.GetStartParameter(m_Common.DSN, m_JobId, StartParameterType.ServiceName, serviceName)
|
||||
DataAccess.Job.GetStartParameter(m_Common.DSN, m_JobId, StartParameterType.ServerName, machineName)
|
||||
|
||||
Dim serviceController As New System.ServiceProcess.ServiceController(serviceName, machineName)
|
||||
|
||||
If Not serviceController.Status = ServiceProcess.ServiceControllerStatus.Running Then
|
||||
serviceController.Start()
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Starts a sql query. But before, it gets all start parameters from db it needs
|
||||
Private Sub StartSqlQuery()
|
||||
Dim sqlConn As New SqlConnection
|
||||
Try
|
||||
Dim connectionString As String = "", sqlQuery As String = ""
|
||||
|
||||
DataAccess.Job.GetStartParameter(m_Common.DSN, m_JobId, StartParameterType.ConnectionString, connectionString)
|
||||
DataAccess.Job.GetStartParameter(m_Common.DSN, m_JobId, StartParameterType.SQLQuery, sqlQuery)
|
||||
|
||||
Dim sqlCom As New SqlCommand
|
||||
|
||||
sqlConn.ConnectionString = connectionString
|
||||
sqlConn.Open()
|
||||
|
||||
sqlCom.CommandType = CommandType.Text
|
||||
sqlCom.Connection = sqlConn
|
||||
|
||||
sqlCom.CommandText = sqlQuery
|
||||
sqlCom.ExecuteNonQuery()
|
||||
|
||||
sqlConn.Close()
|
||||
Catch ex As Exception
|
||||
If sqlConn.State = ConnectionState.Open Then
|
||||
sqlConn.Close()
|
||||
End If
|
||||
Throw ex
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
@@ -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,9 @@
|
||||
bin\DataAccess.dll
|
||||
bin\DataAccess.xml
|
||||
bin\Common.dll
|
||||
bin\ZpCryptography.dll
|
||||
bin\ZpCryptography.xml
|
||||
bin\Common.xml
|
||||
obj\Release\ResolveAssemblyReference.cache
|
||||
obj\Release\DataAccess.dll
|
||||
obj\Release\DataAccess.xml
|
||||
@@ -0,0 +1 @@
|
||||
data source=TGCEDOKADB01.TGCORP.CH\NM01,1434;initial catalog=edoka;persist security info=false;workstation id=;packet size=4096;user id=tgedoka;password=$tgedoka33c;
|
||||
Binary file not shown.
@@ -0,0 +1,58 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<LastOpenVersion>7.10.3077</LastOpenVersion>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ReferencePath>
|
||||
</ReferencePath>
|
||||
<CopyProjectDestinationFolder>
|
||||
</CopyProjectDestinationFolder>
|
||||
<CopyProjectUncPath>
|
||||
</CopyProjectUncPath>
|
||||
<CopyProjectOption>0</CopyProjectOption>
|
||||
<ProjectView>ProjectFiles</ProjectView>
|
||||
<ProjectTrust>0</ProjectTrust>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<EnableASPDebugging>false</EnableASPDebugging>
|
||||
<EnableASPXDebugging>false</EnableASPXDebugging>
|
||||
<EnableUnmanagedDebugging>false</EnableUnmanagedDebugging>
|
||||
<EnableSQLServerDebugging>false</EnableSQLServerDebugging>
|
||||
<RemoteDebugEnabled>false</RemoteDebugEnabled>
|
||||
<RemoteDebugMachine>
|
||||
</RemoteDebugMachine>
|
||||
<StartAction>Project</StartAction>
|
||||
<StartArguments>
|
||||
</StartArguments>
|
||||
<StartPage>
|
||||
</StartPage>
|
||||
<StartProgram>
|
||||
</StartProgram>
|
||||
<StartURL>
|
||||
</StartURL>
|
||||
<StartWorkingDirectory>
|
||||
</StartWorkingDirectory>
|
||||
<StartWithIE>false</StartWithIE>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<EnableASPDebugging>false</EnableASPDebugging>
|
||||
<EnableASPXDebugging>false</EnableASPXDebugging>
|
||||
<EnableUnmanagedDebugging>false</EnableUnmanagedDebugging>
|
||||
<EnableSQLServerDebugging>false</EnableSQLServerDebugging>
|
||||
<RemoteDebugEnabled>false</RemoteDebugEnabled>
|
||||
<RemoteDebugMachine>
|
||||
</RemoteDebugMachine>
|
||||
<StartAction>Project</StartAction>
|
||||
<StartArguments>
|
||||
</StartArguments>
|
||||
<StartPage>
|
||||
</StartPage>
|
||||
<StartProgram>
|
||||
</StartProgram>
|
||||
<StartURL>
|
||||
</StartURL>
|
||||
<StartWorkingDirectory>
|
||||
</StartWorkingDirectory>
|
||||
<StartWithIE>false</StartWithIE>
|
||||
</PropertyGroup>
|
||||
</Project>
|
||||
@@ -0,0 +1,46 @@
|
||||
<?xml version="1.0" encoding="utf-8" ?>
|
||||
<root>
|
||||
<config>
|
||||
<!-- The maximum duration a start job can take before a starter error occures -->
|
||||
<MaximumStartDuration>1</MaximumStartDuration>
|
||||
|
||||
<!-- Check interval in minutes for starter -->
|
||||
<StartJobInterval>2</StartJobInterval>
|
||||
|
||||
<!-- Check interval in minutes for watcher -->
|
||||
<WatchJobInterval>2</WatchJobInterval>
|
||||
|
||||
<!-- The number of Starter-Errors notifications should be activated until the job runs successful next time -->
|
||||
<MaxStarterNotifications>2</MaxStarterNotifications>
|
||||
|
||||
<!-- The number of Watch-Errors notifications should be activated until the job runs successful next time -->
|
||||
<MaxWatcherNotifications>3</MaxWatcherNotifications>
|
||||
|
||||
<!-- Name of the system event log where service should write his entries -->
|
||||
<EventLogName>BMS</EventLogName>
|
||||
|
||||
<!-- The target where messages should be written to.
|
||||
Valid log targets are:
|
||||
- 1: System EventLog
|
||||
- 2: Database EventLog table
|
||||
-->
|
||||
<LogTarget>1</LogTarget>
|
||||
|
||||
<!-- Mail Server to send eMails from BMS -->
|
||||
<MailServer>tkbdev01</MailServer>
|
||||
|
||||
<!-- Mail sender name -->
|
||||
<MailFrom>info@shub.ch</MailFrom>
|
||||
|
||||
<!-- Mail Server authentication method.
|
||||
Valid methods are:
|
||||
- 0: Anonymous
|
||||
- 1: Basic Authentication (clear text authentication!)
|
||||
-->
|
||||
<MailServerAuth>
|
||||
<Method>0</Method>
|
||||
<UserName>mailUser</UserName>
|
||||
<Password>mailPassword</Password>
|
||||
</MailServerAuth>
|
||||
</config>
|
||||
</root>
|
||||
@@ -0,0 +1,62 @@
|
||||
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
|
||||
E:\Software-Projekte\EDOKA\tools\BL_Aushaendigungen\DokSA\bin\Debug\DokSA.exe.config
|
||||
E:\Software-Projekte\EDOKA\tools\BL_Aushaendigungen\DokSA\obj\Debug\DokSA.exe
|
||||
E:\Software-Projekte\EDOKA\tools\BL_Aushaendigungen\DokSA\obj\Debug\DokSA.xml
|
||||
E:\Software-Projekte\EDOKA\tools\BL_Aushaendigungen\DokSA\obj\Debug\DokSA.pdb
|
||||
@@ -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>
|
||||
2089
.svn/pristine/29/29fb8e9c819ba7c1a7df50d6d2b8ca4962af0137.svn-base
Normal file
2089
.svn/pristine/29/29fb8e9c819ba7c1a7df50d6d2b8ca4962af0137.svn-base
Normal file
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,5 @@
|
||||
SCC = This is a Source Code Control file
|
||||
|
||||
[BMSDll.vbproj]
|
||||
SCC_Aux_Path = "\\SERVER01\DATEN\SourceSave\EDOKA4.0"
|
||||
SCC_Project_Name = "$/BMS/BMSDll", DSCAAAAA
|
||||
@@ -0,0 +1,2 @@
|
||||
E:\Software-Projekte\EDOKA\Tools\BMS\BMSService\obj\Release\EDKB10.exe
|
||||
E:\Software-Projekte\EDOKA\Tools\BMS\BMSService\obj\Release\EDKB10.xml
|
||||
Binary file not shown.
@@ -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
|
||||
|
||||
Binary file not shown.
@@ -0,0 +1,9 @@
|
||||
SCC = This is a Source Code Control file
|
||||
|
||||
[DataAccess.vbproj]
|
||||
SCC_Aux_Path = "\\SERVER01\DATEN\SourceSave\EDOKA4.0"
|
||||
SCC_Project_Name = "$/BMS/DebugHelper", YTCAAAAA
|
||||
|
||||
[DebugHelper.vbproj]
|
||||
SCC_Aux_Path = "\\SERVER01\DATEN\SourceSave\EDOKA4.0"
|
||||
SCC_Project_Name = "$/BMS/DebugHelper", YTCAAAAA
|
||||
Binary file not shown.
@@ -0,0 +1,232 @@
|
||||
<?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:key name="ProjectKey" match="Event" use="@Project"/>
|
||||
|
||||
<xsl:template match="Events" mode="createProjects">
|
||||
<projects>
|
||||
<xsl:for-each select="Event">
|
||||
<!--xsl:sort select="@Project" order="descending"/-->
|
||||
<xsl:if test="(1=position()) or (preceding-sibling::*[1]/@Project != @Project)">
|
||||
|
||||
<xsl:variable name="ProjectName" select="@Project"/>
|
||||
|
||||
<project>
|
||||
<xsl:attribute name="name">
|
||||
<xsl:value-of select="@Project"/>
|
||||
</xsl:attribute>
|
||||
|
||||
<xsl:if test="@Project=''">
|
||||
<xsl:attribute name="solution">
|
||||
<xsl:value-of select="@Solution"/>
|
||||
</xsl:attribute>
|
||||
</xsl:if>
|
||||
|
||||
<xsl:for-each select="key('ProjectKey', $ProjectName)">
|
||||
<!--xsl:sort select="@Source" /-->
|
||||
<xsl:if test="(1=position()) or (preceding-sibling::*[1]/@Source != @Source)">
|
||||
|
||||
<source>
|
||||
<xsl:attribute name="name">
|
||||
<xsl:value-of select="@Source"/>
|
||||
</xsl:attribute>
|
||||
|
||||
<xsl:variable name="Source">
|
||||
<xsl:value-of select="@Source"/>
|
||||
</xsl:variable>
|
||||
|
||||
<xsl:for-each select="key('ProjectKey', $ProjectName)[ @Source = $Source ]">
|
||||
|
||||
<event>
|
||||
<xsl:attribute name="error-level">
|
||||
<xsl:value-of select="@ErrorLevel"/>
|
||||
</xsl:attribute>
|
||||
<xsl:attribute name="description">
|
||||
<xsl:value-of select="@Description"/>
|
||||
</xsl:attribute>
|
||||
</event>
|
||||
</xsl:for-each>
|
||||
</source>
|
||||
</xsl:if>
|
||||
</xsl:for-each>
|
||||
|
||||
</project>
|
||||
</xsl:if>
|
||||
</xsl:for-each>
|
||||
</projects>
|
||||
</xsl:template>
|
||||
|
||||
<xsl:template match="projects">
|
||||
<xsl:for-each select="project">
|
||||
<xsl:sort select="@Name" order="ascending"/>
|
||||
<h2>
|
||||
<xsl:if test="@solution"><a _locID="Solution">Projektmappe</a>: <xsl:value-of select="@solution"/></xsl:if>
|
||||
<xsl:if test="not(@solution)"><a _locID="Project">Projekt</a>: <xsl:value-of select="@name"/>
|
||||
<xsl:for-each select="source">
|
||||
<xsl:variable name="Hyperlink" select="@name"/>
|
||||
<xsl:for-each select="event[@error-level='4']">
|
||||
<A class="note"><xsl:attribute name="HREF"><xsl:value-of select="$Hyperlink"/></xsl:attribute><xsl:value-of select="@description"/></A>
|
||||
</xsl:for-each>
|
||||
</xsl:for-each>
|
||||
</xsl:if>
|
||||
</h2>
|
||||
|
||||
<table cellpadding="2" cellspacing="0" width="98%" border="1" bordercolor="white" class="infotable">
|
||||
<tr>
|
||||
<td nowrap="1" class="header" _locID="Filename">Dateiname</td>
|
||||
<td nowrap="1" class="header" _locID="Status">Status</td>
|
||||
<td nowrap="1" class="header" _locID="Errors">Fehler</td>
|
||||
<td nowrap="1" class="header" _locID="Warnings">Warnungen</td>
|
||||
</tr>
|
||||
|
||||
<xsl:for-each select="source">
|
||||
<xsl:sort select="@name" order="ascending"/>
|
||||
<xsl:variable name="source-id" select="generate-id(.)"/>
|
||||
|
||||
<xsl:if test="count(event)!=count(event[@error-level='4'])">
|
||||
|
||||
<tr class="row">
|
||||
<td class="content">
|
||||
<A HREF="javascript:"><xsl:attribute name="onClick">javascript:document.images['<xsl:value-of select="$source-id"/>'].click()</xsl:attribute><IMG border="0" _locID="IMG.alt" _locAttrData="alt" alt="Bereich erweitern/reduzieren" class="expandable" height="11" onclick="changepic()" src="_UpgradeReport_Files/UpgradeReport_Plus.gif" width="9"><xsl:attribute name="name"><xsl:value-of select="$source-id"/></xsl:attribute><xsl:attribute name="child">src<xsl:value-of select="$source-id"/></xsl:attribute></IMG></A> <xsl:value-of select="@name"/>
|
||||
</td>
|
||||
<td class="content">
|
||||
<xsl:if test="count(event[@error-level='3'])=1">
|
||||
<xsl:for-each select="event[@error-level='3']">
|
||||
<xsl:if test="@description='Converted'"><a _locID="Converted1">Konvertiert</a></xsl:if>
|
||||
<xsl:if test="@description!='Converted'"><xsl:value-of select="@description"/></xsl:if>
|
||||
</xsl:for-each>
|
||||
</xsl:if>
|
||||
<xsl:if test="count(event[@error-level='3'])!=1 and count(event[@error-level='3' and @description='Converted'])!=0"><a _locID="Converted2">Konvertiert</a>
|
||||
</xsl:if>
|
||||
</td>
|
||||
<td class="content"><xsl:value-of select="count(event[@error-level='2'])"/></td>
|
||||
<td class="content"><xsl:value-of select="count(event[@error-level='1'])"/></td>
|
||||
</tr>
|
||||
|
||||
<tr class="collapsed" bgcolor="#ffffff">
|
||||
<xsl:attribute name="id">src<xsl:value-of select="$source-id"/></xsl:attribute>
|
||||
|
||||
<td colspan="7">
|
||||
<table width="97%" border="1" bordercolor="#dcdcdc" rules="cols" class="issuetable">
|
||||
<tr>
|
||||
<td colspan="7" class="issuetitle" _locID="ConversionIssues">Konvertierungsprobleme - <xsl:value-of select="@name"/>:</td>
|
||||
</tr>
|
||||
|
||||
<xsl:for-each select="event[@error-level!='3']">
|
||||
<xsl:if test="@error-level!='4'">
|
||||
<tr>
|
||||
<td class="issuenone" style="border-bottom:solid 1 lightgray">
|
||||
<xsl:value-of select="@description"/>
|
||||
</td>
|
||||
</tr>
|
||||
</xsl:if>
|
||||
</xsl:for-each>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
</xsl:if>
|
||||
</xsl:for-each>
|
||||
|
||||
<tr valign="top">
|
||||
<td class="foot">
|
||||
<xsl:if test="count(source)!=1">
|
||||
<xsl:value-of select="count(source)"/><a _locID="file1"> Dateien</a>
|
||||
</xsl:if>
|
||||
<xsl:if test="count(source)=1">
|
||||
<a _locID="file2">1 Datei</a>
|
||||
</xsl:if>
|
||||
</td>
|
||||
<td class="foot">
|
||||
<a _locID="Converted3">Konvertiert</a>: <xsl:value-of select="count(source/event[@error-level='3' and @description='Converted'])"/><BR/>
|
||||
<a _locID="NotConverted">Nicht konvertiert</a>: <xsl:value-of select="count(source) - count(source/event[@error-level='3' and @description='Converted'])"/>
|
||||
</td>
|
||||
<td class="foot"><xsl:value-of select="count(source/event[@error-level='2'])"/></td>
|
||||
<td class="foot"><xsl:value-of select="count(source/event[@error-level='1'])"/></td>
|
||||
</tr>
|
||||
</table>
|
||||
</xsl:for-each>
|
||||
</xsl:template>
|
||||
|
||||
<xsl:template match="Property">
|
||||
<xsl:if test="@Name!='Date' and @Name!='Time' and @Name!='LogNumber' and @Name!='Solution'">
|
||||
<tr><td nowrap="1"><b><xsl:value-of select="@Name"/>: </b><xsl:value-of select="@Value"/></td></tr>
|
||||
</xsl:if>
|
||||
</xsl:template>
|
||||
|
||||
<xsl:template match="UpgradeLog">
|
||||
<html>
|
||||
<head>
|
||||
<META HTTP-EQUIV="Content-Type" content="text/html; charset=utf-8"/>
|
||||
<link rel="stylesheet" href="_UpgradeReport_Files\UpgradeReport.css"/>
|
||||
<title _locID="ConversionReport0">Konvertierungsbericht
|
||||
<xsl:if test="Properties/Property[@Name='LogNumber']">
|
||||
<xsl:value-of select="Properties/Property[@Name='LogNumber']/@Value"/>
|
||||
</xsl:if>
|
||||
</title>
|
||||
<script language="javascript">
|
||||
function outliner () {
|
||||
oMe = window.event.srcElement
|
||||
//get child element
|
||||
var child = document.all[event.srcElement.getAttribute("child",false)];
|
||||
//if child element exists, expand or collapse it.
|
||||
if (null != child)
|
||||
child.className = child.className == "collapsed" ? "expanded" : "collapsed";
|
||||
}
|
||||
|
||||
function changepic() {
|
||||
uMe = window.event.srcElement;
|
||||
var check = uMe.src.toLowerCase();
|
||||
if (check.lastIndexOf("upgradereport_plus.gif") != -1)
|
||||
{
|
||||
uMe.src = "_UpgradeReport_Files/UpgradeReport_Minus.gif"
|
||||
}
|
||||
else
|
||||
{
|
||||
uMe.src = "_UpgradeReport_Files/UpgradeReport_Plus.gif"
|
||||
}
|
||||
}
|
||||
</script>
|
||||
</head>
|
||||
<body topmargin="0" leftmargin="0" rightmargin="0" onclick="outliner();">
|
||||
<h1 _locID="ConversionReport">Konvertierungsbericht - <xsl:value-of select="Properties/Property[@Name='Solution']/@Value"/></h1>
|
||||
|
||||
<p><span class="note">
|
||||
<b _locID="TimeOfConversion">Konvertierungsdauer:</b> <xsl:value-of select="Properties/Property[@Name='Date']/@Value"/> <xsl:value-of select="Properties/Property[@Name='Time']/@Value"/><br/>
|
||||
</span></p>
|
||||
|
||||
<xsl:variable name="SortedEvents">
|
||||
<Events>
|
||||
<xsl:for-each select="Event">
|
||||
<xsl:sort select="@Project" order="ascending"/>
|
||||
<xsl:sort select="@Source" order="ascending"/>
|
||||
<xsl:sort select="@ErrorLevel" order="ascending"/>
|
||||
<Event>
|
||||
<xsl:attribute name="Project"><xsl:value-of select="@Project"/> </xsl:attribute>
|
||||
<xsl:attribute name="Solution"><xsl:value-of select="/UpgradeLog/Properties/Property[@Name='Solution']/@Value"/> </xsl:attribute>
|
||||
<xsl:attribute name="Source"><xsl:value-of select="@Source"/> </xsl:attribute>
|
||||
<xsl:attribute name="ErrorLevel"><xsl:value-of select="@ErrorLevel"/> </xsl:attribute>
|
||||
<xsl:attribute name="Description"><xsl:value-of select="@Description"/> </xsl:attribute>
|
||||
</Event>
|
||||
</xsl:for-each>
|
||||
</Events>
|
||||
</xsl:variable>
|
||||
|
||||
<xsl:variable name="Projects">
|
||||
<xsl:apply-templates select="msxsl:node-set($SortedEvents)/*" mode="createProjects"/>
|
||||
</xsl:variable>
|
||||
|
||||
<xsl:apply-templates select="msxsl:node-set($Projects)/*"/>
|
||||
|
||||
<p></p><p>
|
||||
<table class="note">
|
||||
<tr>
|
||||
<td nowrap="1">
|
||||
<b _locID="ConversionSettings">Konvertierungseinstellungen</b>
|
||||
</td>
|
||||
</tr>
|
||||
<xsl:apply-templates select="Properties"/>
|
||||
</table></p>
|
||||
</body>
|
||||
</html>
|
||||
</xsl:template>
|
||||
</xsl:stylesheet>
|
||||
@@ -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,5 @@
|
||||
SCC = This is a Source Code Control file
|
||||
|
||||
[DataAccess.vbproj]
|
||||
SCC_Aux_Path = "\\SERVER01\DATEN\SourceSave\EDOKA4.0"
|
||||
SCC_Project_Name = "$/BMS/DataAccess", STCAAAAA
|
||||
Binary file not shown.
@@ -0,0 +1,5 @@
|
||||
SCC = This is a Source Code Control file
|
||||
|
||||
[BMSDll.vbproj]
|
||||
SCC_Aux_Path = "\\SERVER01\DATEN\SourceSave\EDOKA4.0"
|
||||
SCC_Project_Name = "$/BMS/BMSDll/bms", FSCAAAAA
|
||||
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,11 @@
|
||||
bin\BMS.dll
|
||||
bin\BMS.xml
|
||||
bin\Common.dll
|
||||
bin\DataAccess.dll
|
||||
bin\ZpCryptography.dll
|
||||
bin\DataAccess.xml
|
||||
bin\ZpCryptography.xml
|
||||
bin\Common.xml
|
||||
obj\Release\ResolveAssemblyReference.cache
|
||||
obj\Release\BMS.dll
|
||||
obj\Release\BMS.xml
|
||||
@@ -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
|
||||
@@ -0,0 +1,22 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
Common
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
<member name="M:Common.Settings.GetSettingValue(System.String)">
|
||||
<summary>Gets the first matching value of a property</summary>
|
||||
<param name="propertyName"></param>
|
||||
<returns></returns>
|
||||
</member><member name="M:Common.Settings.SetSettingsValue(System.String,System.String)">
|
||||
<summary>Sets the first matching value of a property</summary>
|
||||
<param name="xpath"></param>
|
||||
<param name="value"></param>
|
||||
</member><member name="M:Common.Settings.GetDecryptedDSN">
|
||||
<summary>Return the descripted dsn string</summary>
|
||||
<returns></returns>
|
||||
</member>
|
||||
</members>
|
||||
</doc>
|
||||
Binary file not shown.
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,112 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ProductVersion></ProductVersion>
|
||||
<SchemaVersion>2.0</SchemaVersion>
|
||||
<ProjectGuid>{49067c62-6ab1-464f-ab92-8063319374c9}</ProjectGuid>
|
||||
<OutputType>WinExe</OutputType>
|
||||
<StartupObject>ARSDDE.My.MyApplication</StartupObject>
|
||||
<RootNamespace>ARSDDE</RootNamespace>
|
||||
<AssemblyName>ARSDDE</AssemblyName>
|
||||
<MyType>WindowsForms</MyType>
|
||||
</PropertyGroup>
|
||||
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\Debug\</OutputPath>
|
||||
<DocumentationFile>ARSDDE.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
</PropertyGroup>
|
||||
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<DebugType>pdbonly</DebugType>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>bin\Release\</OutputPath>
|
||||
<DocumentationFile>ARSDDE.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
</PropertyGroup>
|
||||
|
||||
<ItemGroup>
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.Data" />
|
||||
<Reference Include="System.Deployment" />
|
||||
<Reference Include="System.Drawing" />
|
||||
<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.Windows.Forms" />
|
||||
</ItemGroup>
|
||||
|
||||
<ItemGroup>
|
||||
<Compile Include="Form1.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Form1.Designer.vb">
|
||||
<DependentUpon>Form1.vb</DependentUpon>
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="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="My Project\Resources.resx">
|
||||
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
</ItemGroup>
|
||||
|
||||
<ItemGroup>
|
||||
<None Include="My Project\Application.myapp">
|
||||
<Generator>MyApplicationCodeGenerator</Generator>
|
||||
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="My Project\Settings.settings">
|
||||
<Generator>SettingsSingleFileGenerator</Generator>
|
||||
<CustomToolNamespace>My</CustomToolNamespace>
|
||||
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
</ItemGroup>
|
||||
|
||||
<Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
|
||||
|
||||
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
|
||||
Other similar extension points exist, see Microsoft.Common.targets.
|
||||
<Target Name="BeforeBuild">
|
||||
</Target>
|
||||
<Target Name="AfterBuild">
|
||||
</Target>
|
||||
-->
|
||||
|
||||
</Project>
|
||||
Binary file not shown.
@@ -0,0 +1,21 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?><?xml-stylesheet type='text/xsl' href='_UpgradeReport_Files/UpgradeReport.xslt'?><UpgradeLog>
|
||||
<Properties><Property Name="Solution" Value="BinData">
|
||||
</Property><Property Name="Projektmappendatei" Value="E:\Software-Projekte\EDOKA\tools\BinData\BinData.sln">
|
||||
</Property><Property Name="Benutzeroptionendatei" Value="E:\Software-Projekte\EDOKA\tools\BinData\BinData.suo">
|
||||
</Property><Property Name="Date" Value="Samstag, 1. Dezember 2012">
|
||||
</Property><Property Name="Time" Value="10:27">
|
||||
</Property><Property Name="Protokollnummer" Value="3">
|
||||
</Property></Properties><Event ErrorLevel="0" Project="" Source="BinData.sln" Description="Datei wurde erfolgreich als "E:\Software-Projekte\EDOKA\tools\BinData\Backup1\BinData.sln" gesichert">
|
||||
</Event><Event ErrorLevel="0" Project="" Source="BinData.suo" Description="Datei wurde erfolgreich als "E:\Software-Projekte\EDOKA\tools\BinData\Backup1\BinData.suo" gesichert">
|
||||
</Event><Event ErrorLevel="0" Project="BinData" Source="BinData.vbproj" Description="Projektdatei erfolgreich gesichert als E:\Software-Projekte\EDOKA\tools\BinData\Backup1\BinData.vbproj">
|
||||
</Event><Event ErrorLevel="0" Project="BinData" Source="BinData.vbproj.user" Description="Die Projektbenutzerdatei wurde erfolgreich als "E:\Software-Projekte\EDOKA\tools\BinData\Backup1\BinData.vbproj.user" gesichert.">
|
||||
</Event><Event ErrorLevel="0" Project="BinData" Source="AssemblyInfo.vb" Description="Datei erfolgreich gesichert als E:\Software-Projekte\EDOKA\tools\BinData\Backup1\AssemblyInfo.vb">
|
||||
</Event><Event ErrorLevel="0" Project="BinData" Source="Form1.vb" Description="Datei erfolgreich gesichert als E:\Software-Projekte\EDOKA\tools\BinData\Backup1\Form1.vb">
|
||||
</Event><Event ErrorLevel="0" Project="BinData" Source="Form1.resx" Description="Datei erfolgreich gesichert als E:\Software-Projekte\EDOKA\tools\BinData\Backup1\Form1.resx">
|
||||
</Event><Event ErrorLevel="1" Project="BinData" Source="BinData.vbproj" Description="Das Projekt ist für .NET Framework 2.0 oder 3.0 konzipiert. Wenn für das Projekt Assemblys verwendet werden, die eine neuere Version von .NET Framework erfordern, kann das Projekt nicht erstellt werden. Sie können die .NET Framework-Version durch Klicken auf "Eigenschaften" im Projektmenü und durch anschließendes Auswählen einer neuen Version im Dropdownfeld ".NET Framework" ändern. (In Visual Basic befindet sich das Dropdownfeld auf der Registerkarte "Kompilieren". Klicken Sie auf die Schaltfläche "Erweitere Compileroptionen...").">
|
||||
</Event><Event ErrorLevel="0" Project="BinData" Source="BinData.vbproj" Description="Projekt erfolgreich konvertiert">
|
||||
</Event><Event ErrorLevel="3" Project="BinData" Source="BinData.vbproj" Description="Converted">
|
||||
</Event><Event ErrorLevel="0" Project="" Source="BinData.sln" Description="Die Projektmappe wurde erfolgreich konvertiert.">
|
||||
</Event><Event ErrorLevel="3" Project="" Source="BinData.sln" Description="Converted">
|
||||
</Event><Event ErrorLevel="0" Project="BinData" Source="BinData.vbproj" Description="Überprüfung abgeschlossen: Upgrade der Projektdateien nicht erforderlich.">
|
||||
</Event></UpgradeLog>
|
||||
@@ -0,0 +1,58 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<LastOpenVersion>7.10.3077</LastOpenVersion>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ReferencePath>
|
||||
</ReferencePath>
|
||||
<CopyProjectDestinationFolder>
|
||||
</CopyProjectDestinationFolder>
|
||||
<CopyProjectUncPath>
|
||||
</CopyProjectUncPath>
|
||||
<CopyProjectOption>0</CopyProjectOption>
|
||||
<ProjectView>ProjectFiles</ProjectView>
|
||||
<ProjectTrust>0</ProjectTrust>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<EnableASPDebugging>false</EnableASPDebugging>
|
||||
<EnableASPXDebugging>false</EnableASPXDebugging>
|
||||
<EnableUnmanagedDebugging>false</EnableUnmanagedDebugging>
|
||||
<EnableSQLServerDebugging>false</EnableSQLServerDebugging>
|
||||
<RemoteDebugEnabled>false</RemoteDebugEnabled>
|
||||
<RemoteDebugMachine>
|
||||
</RemoteDebugMachine>
|
||||
<StartAction>Project</StartAction>
|
||||
<StartArguments>
|
||||
</StartArguments>
|
||||
<StartPage>
|
||||
</StartPage>
|
||||
<StartProgram>
|
||||
</StartProgram>
|
||||
<StartURL>
|
||||
</StartURL>
|
||||
<StartWorkingDirectory>
|
||||
</StartWorkingDirectory>
|
||||
<StartWithIE>false</StartWithIE>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<EnableASPDebugging>false</EnableASPDebugging>
|
||||
<EnableASPXDebugging>false</EnableASPXDebugging>
|
||||
<EnableUnmanagedDebugging>false</EnableUnmanagedDebugging>
|
||||
<EnableSQLServerDebugging>false</EnableSQLServerDebugging>
|
||||
<RemoteDebugEnabled>false</RemoteDebugEnabled>
|
||||
<RemoteDebugMachine>
|
||||
</RemoteDebugMachine>
|
||||
<StartAction>Project</StartAction>
|
||||
<StartArguments>
|
||||
</StartArguments>
|
||||
<StartPage>
|
||||
</StartPage>
|
||||
<StartProgram>
|
||||
</StartProgram>
|
||||
<StartURL>
|
||||
</StartURL>
|
||||
<StartWorkingDirectory>
|
||||
</StartWorkingDirectory>
|
||||
<StartWithIE>true</StartWithIE>
|
||||
</PropertyGroup>
|
||||
</Project>
|
||||
@@ -0,0 +1,30 @@
|
||||
<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()
|
||||
components = New System.ComponentModel.Container()
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.Text = "Form1"
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,63 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.42000
|
||||
'
|
||||
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||
' der Code erneut generiert wird.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
Imports System
|
||||
|
||||
Namespace My.Resources
|
||||
|
||||
'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
|
||||
'-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
|
||||
'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
|
||||
'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
|
||||
'''<summary>
|
||||
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
|
||||
'''</summary>
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||
Friend Module Resources
|
||||
|
||||
Private resourceMan As Global.System.Resources.ResourceManager
|
||||
|
||||
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||
|
||||
'''<summary>
|
||||
''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
||||
Get
|
||||
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
||||
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("BLAushaendigungen.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,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
|
||||
@@ -0,0 +1,28 @@
|
||||
|
||||
Microsoft Visual Studio Solution File, Format Version 9.00
|
||||
# Visual Studio 2005
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "BMSService", "BMSService.vbproj", "{36BEB3BE-ABB4-4843-B6BB-588F5A9DF6C6}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SourceCodeControl) = preSolution
|
||||
SccNumberOfProjects = 1
|
||||
SccProjectUniqueName0 = BMSService.vbproj
|
||||
SccProjectName0 = \u0022$/BMS/BMSDll/BMSService\u0022,\u0020NSCAAAAA
|
||||
SccLocalPath0 = .
|
||||
SccProvider0 = MSSCCI:Microsoft\u0020Visual\u0020SourceSafe
|
||||
CanCheckoutShared = false
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
Debug|Any CPU = Debug|Any CPU
|
||||
Release|Any CPU = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||
{36BEB3BE-ABB4-4843-B6BB-588F5A9DF6C6}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{36BEB3BE-ABB4-4843-B6BB-588F5A9DF6C6}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{36BEB3BE-ABB4-4843-B6BB-588F5A9DF6C6}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{36BEB3BE-ABB4-4843-B6BB-588F5A9DF6C6}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
EndGlobalSection
|
||||
EndGlobal
|
||||
@@ -0,0 +1,145 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.42000
|
||||
'
|
||||
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||
' der Code erneut generiert wird.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "14.0.0.0"), _
|
||||
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Partial Friend NotInheritable Class MySettings
|
||||
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||
|
||||
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
|
||||
|
||||
#Region "Funktion zum automatischen Speichern von My.Settings"
|
||||
#If _MyType = "WindowsForms" Then
|
||||
Private Shared addedHandler As Boolean
|
||||
|
||||
Private Shared addedHandlerLockObject As New Object
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
|
||||
If My.Application.SaveMySettingsOnExit Then
|
||||
My.Settings.Save()
|
||||
End If
|
||||
End Sub
|
||||
#End If
|
||||
#End Region
|
||||
|
||||
Public Shared ReadOnly Property [Default]() As MySettings
|
||||
Get
|
||||
|
||||
#If _MyType = "WindowsForms" Then
|
||||
If Not addedHandler Then
|
||||
SyncLock addedHandlerLockObject
|
||||
If Not addedHandler Then
|
||||
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||
addedHandler = True
|
||||
End If
|
||||
End SyncLock
|
||||
End If
|
||||
#End If
|
||||
Return defaultInstance
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("k:\edoka\agb\in\bplist.csv")> _
|
||||
Public Property InputFile() As String
|
||||
Get
|
||||
Return CType(Me("InputFile"),String)
|
||||
End Get
|
||||
Set
|
||||
Me("InputFile") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("k:\edoka\agb\out\")> _
|
||||
Public Property OutputPath() As String
|
||||
Get
|
||||
Return CType(Me("OutputPath"),String)
|
||||
End Get
|
||||
Set
|
||||
Me("OutputPath") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("k:\edoka\agb\struktur.xml")> _
|
||||
Public Property Strukturfile() As String
|
||||
Get
|
||||
Return CType(Me("Strukturfile"),String)
|
||||
End Get
|
||||
Set
|
||||
Me("Strukturfile") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("2093")> _
|
||||
Public Property Doktype() As String
|
||||
Get
|
||||
Return CType(Me("Doktype"),String)
|
||||
End Get
|
||||
Set
|
||||
Me("Doktype") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("k:\edoka\agb\agb.pdf")> _
|
||||
Public Property AGBFile() As String
|
||||
Get
|
||||
Return CType(Me("AGBFile"),String)
|
||||
End Get
|
||||
Set
|
||||
Me("AGBFile") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("TGE4491")> _
|
||||
Public Property Ersteller() As String
|
||||
Get
|
||||
Return CType(Me("Ersteller"),String)
|
||||
End Get
|
||||
Set
|
||||
Me("Ersteller") = value
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
End Namespace
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||
Friend Module MySettingsProperty
|
||||
|
||||
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||
Friend ReadOnly Property Settings() As Global.AGB_Gen.My.MySettings
|
||||
Get
|
||||
Return Global.AGB_Gen.My.MySettings.Default
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
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.
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,9 @@
|
||||
E:\Software-Projekte\EDOKA\Tools\BinData\obj\Debug\BinData.exe
|
||||
E:\Software-Projekte\EDOKA\Tools\BinData\obj\Debug\BinData.xml
|
||||
E:\Software-Projekte\EDOKA\Tools\BinData\obj\Debug\BinData.pdb
|
||||
E:\Software-Projekte\EDOKA\Tools\BinData\bin\BinData.exe
|
||||
E:\Software-Projekte\EDOKA\Tools\BinData\bin\BinData.pdb
|
||||
E:\Software-Projekte\EDOKA\Tools\BinData\bin\BinData.xml
|
||||
E:\Software-Projekte\EDOKA\Tools\BinData\obj\Debug\ResolveAssemblyReference.cache
|
||||
E:\Software-Projekte\EDOKA\Tools\BinData\obj\Debug\BinData.Form1.resources
|
||||
E:\Software-Projekte\EDOKA\Tools\BinData\obj\Debug\BinData.vbproj.GenerateResource.Cache
|
||||
@@ -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,5 @@
|
||||
<?xml version="1.0" standalone="yes"?>
|
||||
<Configuration>
|
||||
<1>data source=shu00;initial catalog=edoka;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29;</1>
|
||||
</Configuration>
|
||||
|
||||
@@ -0,0 +1,145 @@
|
||||
<?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="OpenFileDialog1.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="Button1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAIhJREFUOE+1kgsO
|
||||
gCAMQzk6R9vNJot2fNY4SJTEoIvtymOlfLlqrbo+2/4mZMvqqQnEItI8is67hlRI6ca9+yrGd8z2JLvT
|
||||
vSfgpm7AwGU1O+ZkQOmRIkTGKBhwgDF+O7FDtfdjBuhMIcYr5ACRwhOMN7FjMnTvQ5aRJyNu4jClKJ7s
|
||||
6aT/+8MFg3zbUfLgpsoAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="Button2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAIhJREFUOE+1kgsO
|
||||
gCAMQzk6R9vNJot2fNY4SJTEoIvtymOlfLlqrbo+2/4mZMvqqQnEItI8is67hlRI6ca9+yrGd8z2JLvT
|
||||
vSfgpm7AwGU1O+ZkQOmRIkTGKBhwgDF+O7FDtfdjBuhMIcYr5ACRwhOMN7FjMnTvQ5aRJyNu4jClKJ7s
|
||||
6aT/+8MFg3zbUfLgpsoAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="MainMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>149, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
Binary file not shown.
@@ -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
|
||||
@@ -0,0 +1,7 @@
|
||||
bin\Common.dll
|
||||
bin\Common.xml
|
||||
bin\ZpCryptography.dll
|
||||
bin\ZpCryptography.xml
|
||||
obj\Release\ResolveAssemblyReference.cache
|
||||
obj\Release\Common.dll
|
||||
obj\Release\Common.xml
|
||||
@@ -0,0 +1,5 @@
|
||||
SCC = This is a Source Code Control file
|
||||
|
||||
[BMSService.vbproj]
|
||||
SCC_Aux_Path = "\\SERVER01\DATEN\SourceSave\EDOKA4.0"
|
||||
SCC_Project_Name = "$/BMS/BMSDll/BMSService", NSCAAAAA
|
||||
Binary file not shown.
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="14.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
|
||||
<PropertyGroup>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ProjectGuid>{8FE32CF9-E70B-47A4-A9B3-E7E87BE66F6C}</ProjectGuid>
|
||||
<OutputType>Exe</OutputType>
|
||||
<StartupObject>AGB_Gen.Module1</StartupObject>
|
||||
<RootNamespace>AGB_Gen</RootNamespace>
|
||||
<AssemblyName>AGB_Gen</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>Console</MyType>
|
||||
<TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
|
||||
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
|
||||
<TargetFrameworkProfile />
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\Debug\</OutputPath>
|
||||
<DocumentationFile>AGB_Gen.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
<Prefer32Bit>false</Prefer32Bit>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
<DebugType>pdbonly</DebugType>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>bin\Release\</OutputPath>
|
||||
<DocumentationFile>AGB_Gen.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
<Prefer32Bit>false</Prefer32Bit>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionInfer>On</OptionInfer>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.Data" />
|
||||
<Reference Include="System.Deployment" />
|
||||
<Reference Include="System.Xml" />
|
||||
<Reference Include="System.Core" />
|
||||
<Reference Include="System.Xml.Linq" />
|
||||
<Reference Include="System.Data.DataSetExtensions" />
|
||||
<Reference Include="System.Net.Http" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Import Include="Microsoft.VisualBasic" />
|
||||
<Import Include="System" />
|
||||
<Import Include="System.Collections" />
|
||||
<Import Include="System.Collections.Generic" />
|
||||
<Import Include="System.Data" />
|
||||
<Import Include="System.Diagnostics" />
|
||||
<Import Include="System.Linq" />
|
||||
<Import Include="System.Xml.Linq" />
|
||||
<Import Include="System.Threading.Tasks" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="Globals.vb" />
|
||||
<Compile Include="Module1.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="My Project\Resources.resx">
|
||||
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="My Project\Application.myapp">
|
||||
<Generator>MyApplicationCodeGenerator</Generator>
|
||||
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="My Project\Settings.settings">
|
||||
<Generator>SettingsSingleFileGenerator</Generator>
|
||||
<CustomToolNamespace>My</CustomToolNamespace>
|
||||
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="App.config" />
|
||||
</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>
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user