Update 20230215
This commit is contained in:
1364
DPM2016/Finanzaen/Finanzen.Designer.vb
generated
1364
DPM2016/Finanzaen/Finanzen.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
@@ -1,208 +1,208 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>281, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="C1Zahlungen.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
|
||||
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="C1Zahlungen.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
|
||||
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
||||
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
||||
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
||||
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
||||
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
||||
</value>
|
||||
</data>
|
||||
<data name="C1Zahlungen.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>Style11{}Style10{}Style13{}Style12{}Footer{}Style2{}Style3{}FilterBar{BackColor:Info;}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Caption{AlignHorz:Center;}Style14{}Style4{}EvenRow{BackColor:White;}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style1{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Style9{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style5{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style8{}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style6{}Style7{}Editor{}Style15{}Normal{}Style16{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" 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="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 551, 226</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 551, 226</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||
</data>
|
||||
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>124, 17</value>
|
||||
</metadata>
|
||||
<data name="C1OffeneRechnungen.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
|
||||
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="C1OffeneRechnungen.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
|
||||
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
||||
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
||||
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
||||
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
||||
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
||||
</value>
|
||||
</data>
|
||||
<data name="C1OffeneRechnungen.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>Style11{}Style10{}Style13{}Style12{}Footer{}Style2{}Style3{}FilterBar{BackColor:Info;}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Caption{AlignHorz:Center;}Style14{}Style4{}EvenRow{BackColor:White;}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style1{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Style9{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style5{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style8{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style6{}Style7{}Editor{}Style15{}Normal{}Style16{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" 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="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 551, 153</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 551, 153</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||
</data>
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>281, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="C1Zahlungen.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
|
||||
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="C1Zahlungen.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
|
||||
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
||||
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
||||
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
||||
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
||||
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
||||
</value>
|
||||
</data>
|
||||
<data name="C1Zahlungen.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>Style16{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style14{}Footer{}Style5{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style6{}Editor{}Style10{}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style2{}FilterBar{BackColor:Info;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="21" DefRecSelWidth="21" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 735, 279</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>21</DefaultRecSelWidth><ClientArea>0, 0, 735, 279</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||
</data>
|
||||
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>124, 17</value>
|
||||
</metadata>
|
||||
<data name="C1OffeneRechnungen.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
|
||||
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="C1OffeneRechnungen.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
|
||||
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
||||
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
||||
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
||||
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
||||
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
||||
</value>
|
||||
</data>
|
||||
<data name="C1OffeneRechnungen.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>Style16{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style14{}Footer{}Style5{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style6{}Editor{}Style10{}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style2{}FilterBar{BackColor:Info;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="21" DefRecSelWidth="21" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 735, 189</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>21</DefaultRecSelWidth><ClientArea>0, 0, 735, 189</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -1,371 +1,371 @@
|
||||
Imports C1.Win.C1TrueDBGrid
|
||||
|
||||
Public Class Finanzen
|
||||
|
||||
Dim dbz As New clsDB
|
||||
Dim dbk As New clsDB
|
||||
Dim spalten As New Tabellenspalte
|
||||
Dim m_patientnr As Integer
|
||||
Property Patientnr As Integer
|
||||
Get
|
||||
Return m_patientnr
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
m_patientnr = value
|
||||
refresh_konto()
|
||||
Refresh_Zahlungen()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim Zahlungen As New DataTable
|
||||
Dim Offene_Rechnungen As New DataTable
|
||||
Sub Refresh_Zahlungen()
|
||||
Try
|
||||
dbz.Get_Tabledata("Zahlung", "", dbz.Get_SQL(19), Me.Patientnr.ToString)
|
||||
Zahlungen = dbz.dsDaten.Tables(0).Copy
|
||||
Me.C1Zahlungen.DataSource = Nothing
|
||||
Me.C1Zahlungen.DataSource = Zahlungen
|
||||
Me.C1Zahlungen.DataMember = dbz.dsDaten.Tables(0).TableName
|
||||
spalten.Spaltentitel_aktualisieren(Me.C1Zahlungen, "Zahlungen", Zahlungen)
|
||||
dbz.Get_Tabledata("OffeneRechnungen", "", dbz.Get_SQL(22), Me.Patientnr.ToString)
|
||||
Offene_Rechnungen = dbz.dsDaten.Tables(0).Copy
|
||||
Me.C1OffeneRechnungen.DataSource = Nothing
|
||||
Me.C1OffeneRechnungen.DataSource = Offene_Rechnungen
|
||||
Me.C1OffeneRechnungen.DataMember = Offene_Rechnungen.TableName
|
||||
spalten.Spaltentitel_aktualisieren(Me.C1OffeneRechnungen, "Offene_Rechnungen", Offene_Rechnungen)
|
||||
|
||||
Me.Mahndatum1.Text = ""
|
||||
Me.Mahndatum2.Text = ""
|
||||
Me.Mahndatum3.Text = ""
|
||||
Me.Mahnfaelligkeit1.Text = ""
|
||||
Me.Mahnfaelligkeit2.Text = ""
|
||||
Me.Mahnfaelligkeit3.Text = ""
|
||||
Me.Mahngebühr1.Text = ""
|
||||
Me.Mahngebühr2.Text = ""
|
||||
Me.Mahngebühr3.Text = ""
|
||||
|
||||
Me.btnZurücksetzen1.Visible = False
|
||||
Me.btnzurücksetzen2.Visible = False
|
||||
Me.btnzurücksetzen3.Visible = False
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
Public Sub Refresh_Data()
|
||||
refresh_konto()
|
||||
Refresh_Zahlungen()
|
||||
Get_Mahndaten()
|
||||
End Sub
|
||||
Sub refresh_konto()
|
||||
dbk.Get_Tabledata("Konto", "where aktiv=1 order by reihenfolge")
|
||||
Me.cbboxKonto.DataSource = dbk.dsDaten.Tables(0)
|
||||
Me.cbboxKonto.Displaymember = "Konto"
|
||||
Me.cbboxKonto.Valuemember = "nrkonto"
|
||||
End Sub
|
||||
|
||||
Private Sub txtRGNummer_TextChanged(sender As Object, e As EventArgs) Handles txtRGNummer.TextChanged
|
||||
If Me.txtRGNummer.Text <> "" Then
|
||||
Me.chkVorauszahlung.Checked = False
|
||||
Me.chkVorauszahlung.Enabled = False
|
||||
Else
|
||||
Me.chkVorauszahlung.Enabled = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnBuchen_Click(sender As Object, e As EventArgs) Handles btnBuchen.Click
|
||||
Dim db5 As New clsDB
|
||||
Dim vz As String = ""
|
||||
Dim Storno As String = ""
|
||||
Dim Debitor As Integer = 0
|
||||
If chkVorauszahlung.Checked = False And Me.txtRGNummer.Text = "" Then
|
||||
MsgBox("Zahlung kann nicht verbucht werden. Entweder als Vorauszahlung oder mit gültiger Rechnungsnummer.", MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
Dim newkey As Integer = dbz.Get_DBKey("Zahlung")
|
||||
dbz.Get_Tabledata("Zahlung", "where nrzahlung=0")
|
||||
Dim r As DataRow = dbz.dsDaten.Tables(0).NewRow
|
||||
r("nrzahlung") = newkey
|
||||
If Me.chkVorauszahlung.Checked = True Then r("nrfaktura") = 0 Else r("nrfaktura") = txtRGNummer.Text
|
||||
r("vorauszahlung") = chkVorauszahlung.Checked
|
||||
r("mandant") = 1
|
||||
If r("nrfaktura") <> 0 Then
|
||||
Try
|
||||
db5.Get_Tabledata("Fakt", "", "Select * from faktura where nrfaktura='" + r("nrfaktura").ToString + "'")
|
||||
Debitor = db5.dsDaten.Tables(0).Rows(0).Item("nrdebitor")
|
||||
Catch
|
||||
Debitor = 0
|
||||
End Try
|
||||
|
||||
End If
|
||||
If Me.Patientnr <> Debitor And Debitor > 0 Then
|
||||
r("nrdebotir") = Debitor
|
||||
Else
|
||||
r("nrdebitor") = Me.Patientnr
|
||||
End If
|
||||
r("nrdebitor") = Me.Patientnr
|
||||
r("betrag") = Me.diBetrag.Value
|
||||
r("nrkonto") = cbboxKonto.SelectedValue
|
||||
r("valuta") = Me.dtdatum.Value
|
||||
r("nrbehandlung") = 0
|
||||
r("status") = 0
|
||||
If chkVorauszahlung.Checked Then
|
||||
r("status") = 1
|
||||
vz = "J"
|
||||
End If
|
||||
r("statusdatum") = Now
|
||||
r("erstellt_am") = Now
|
||||
r("mutiert_am") = Now
|
||||
r("mutierer") = Globals.ActUser
|
||||
r("aktiv") = True
|
||||
dbz.dsDaten.Tables(0).Rows.Add(r)
|
||||
dbz.Update_Data()
|
||||
|
||||
db5.Insert_ZJournal(r("nrfaktura"), r("nrdebitor"), db5.Get_Datavalue("Select dbo.get_name(" + r.Item("nrdebitor").ToString + ")"), r.Item("Betrag"), db5.Get_Datavalue("Select Konto from konto where nrkonto=" + r.Item("nrkonto").ToString), vz, "")
|
||||
db5.Exec_SQL("Update debitor set mutiert_am=getdate(),betrag=betrag-" + r("betrag").ToString + "where nrfaktura=" + r("nrfaktura").ToString)
|
||||
Me.Refresh_Zahlungen()
|
||||
If vz = "J" Then
|
||||
If MsgBox("Vorauszahlung einer Behandlung zuweisen?", vbYesNo + vbQuestion) Then
|
||||
VorauszahlungAnBehandlungZuweisenToolStripMenuItem_Click(sender, e)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub C1OffeneRechnungen_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1OffeneRechnungen.RowColChange
|
||||
Try
|
||||
Me.dtdatum.Value = Now
|
||||
Me.txtRGNummer.Text = Me.C1OffeneRechnungen.Columns("nrfaktura").Value
|
||||
Me.diBetrag.Value = Me.C1OffeneRechnungen.Columns("Betrag").Value
|
||||
get_mahndaten
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
Sub Get_Mahndaten()
|
||||
Me.Mahndatum1.Text = ""
|
||||
Me.Mahndatum2.Text = ""
|
||||
Me.Mahndatum3.Text = ""
|
||||
Me.Mahnfaelligkeit1.Text = ""
|
||||
Me.Mahnfaelligkeit2.Text = ""
|
||||
Me.Mahnfaelligkeit3.Text = ""
|
||||
Me.Mahngebühr1.Text = ""
|
||||
Me.Mahngebühr2.Text = ""
|
||||
Me.Mahngebühr3.Text = ""
|
||||
Me.btnZurücksetzen1.Visible = False
|
||||
Me.btnzurücksetzen2.Visible = False
|
||||
Me.btnzurücksetzen3.Visible = False
|
||||
Dim dd As Date
|
||||
Try
|
||||
Me.Mahndatum1.Text = ShortDate(Me.C1OffeneRechnungen.Columns("Mahndatum1").Value.ToString)
|
||||
Me.Mahndatum2.Text = ShortDate(Me.C1OffeneRechnungen.Columns("Mahndatum2").Value.ToString)
|
||||
Me.Mahndatum3.Text = ShortDate(Me.C1OffeneRechnungen.Columns("Mahndatum3").Value.ToString)
|
||||
|
||||
Me.Mahnfaelligkeit1.Text = ShortDate(Me.C1OffeneRechnungen.Columns("mahnfaelligkeit1").Value.ToString)
|
||||
Me.Mahnfaelligkeit2.Text = ShortDate(Me.C1OffeneRechnungen.Columns("mahnfaelligkeit2").Value.ToString)
|
||||
Me.Mahnfaelligkeit3.Text = ShortDate(Me.C1OffeneRechnungen.Columns("mahnfaelligkeit3").Value.ToString)
|
||||
|
||||
Me.Mahngebühr1.Text = Me.C1OffeneRechnungen.Columns("mahngebuehr1").Value.ToString
|
||||
Me.Mahngebühr2.Text = Me.C1OffeneRechnungen.Columns("mahngebuehr2").Value.ToString
|
||||
Me.Mahngebühr3.Text = Me.C1OffeneRechnungen.Columns("mahngebuehr3").Value.ToString
|
||||
|
||||
If Me.Mahndatum3.Text <> "" Then
|
||||
Me.btnzurücksetzen3.Visible = True
|
||||
Else
|
||||
If Me.Mahndatum2.Text <> "" Then
|
||||
Me.btnzurücksetzen2.Visible = True
|
||||
Else
|
||||
If Me.Mahndatum1.Text <> "" Then
|
||||
Me.btnZurücksetzen1.Visible = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Function ShortDate(ByVal dd As String) As String
|
||||
Try
|
||||
Dim d As Date
|
||||
d = dd
|
||||
Return d
|
||||
Catch
|
||||
Return ""
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub ZahlungBuchenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZahlungBuchenToolStripMenuItem.Click
|
||||
btnBuchen_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub ZahlungStornierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZahlungStornierenToolStripMenuItem.Click
|
||||
If MsgBox("Zahlung stornieren?", vbYesNo + vbQuestion) <> vbYes Then Exit Sub
|
||||
Dim fakt As New clsFakturierung
|
||||
fakt.Storno_Zahlung(Me.C1Zahlungen.Columns("nrzahlung").Value)
|
||||
Me.Refresh_Zahlungen()
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Me.txtRGNummer.Text = ""
|
||||
End Sub
|
||||
|
||||
Private Sub ContextMenuStrip2_CursorChanged(sender As Object, e As EventArgs) Handles ContextMenuStrip2.Opening
|
||||
If Me.C1Zahlungen.Columns("Zahlungsstatus").Value = "Vorauszahlung" Then
|
||||
If Me.C1Zahlungen.Columns("nrbehandlung").Value = 0 Then
|
||||
|
||||
VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Enabled = True
|
||||
VorauszahlungVonBehandlungLösenToolStripMenuItem.Enabled = False
|
||||
|
||||
Exit Sub
|
||||
Else
|
||||
VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Enabled = False
|
||||
VorauszahlungVonBehandlungLösenToolStripMenuItem.Enabled = True
|
||||
Exit Sub
|
||||
End If
|
||||
Else
|
||||
If Me.C1Zahlungen.Columns("Status").Value = 9 Then
|
||||
ZahlungStornierenToolStripMenuItem.Enabled = False
|
||||
Else
|
||||
ZahlungStornierenToolStripMenuItem.Enabled = True
|
||||
End If
|
||||
VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Enabled = False
|
||||
VorauszahlungVonBehandlungLösenToolStripMenuItem.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub VorauszahlungAnBehandlungZuweisenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Click
|
||||
Dim f As New frmOffeneBehandlungen
|
||||
f.NrPatient = Me.Patientnr
|
||||
f.ShowDialog()
|
||||
If f.DialogResult = DialogResult.OK Then
|
||||
Dim db As New clsDB
|
||||
db.Exec_SQL("Update zahlung set nrbehandlung=" + f.NrBehandlung.ToString + ", mutiert_am=getdate() where nrzahlung=" + Me.C1Zahlungen.Columns("nrzahlung").Value.ToString)
|
||||
Me.Refresh_Zahlungen()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub VorauszahlungVonBehandlungLösenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorauszahlungVonBehandlungLösenToolStripMenuItem.Click
|
||||
If MsgBox("Vorauszahlung von Behandlung entfernen?", vbYesNo + vbQuestion) = vbYes Then
|
||||
Dim db As New clsDB
|
||||
db.Exec_SQL("Update zahlung set nrbehandlung=0, mutiert_am=getdate() where nrzahlung=" + Me.C1Zahlungen.Columns("nrzahlung").Value.ToString)
|
||||
Me.Refresh_Zahlungen()
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub dtdatum_Click(sender As Object, e As EventArgs) Handles dtdatum.Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub dtdatum_KeyDown(sender As Object, e As KeyEventArgs) Handles dtdatum.KeyDown
|
||||
|
||||
If e.KeyCode = Keys.Escape Then delete_date(sender)
|
||||
If e.KeyCode = Keys.Decimal Then SendKeys.SendWait("{TAB}")
|
||||
|
||||
End Sub
|
||||
Sub delete_date(sender)
|
||||
sender.value = Nothing
|
||||
End Sub
|
||||
|
||||
Private Sub btnZurücksetzen1_Click(sender As Object, e As EventArgs) Handles btnZurücksetzen1.Click
|
||||
If MsgBox("Mahnstufe 1 zurückseten?", vbYesNo + vbQuestion) = vbYes Then
|
||||
Mahnstufe_Zurücksetzen(1)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub btnzurücksetzen2_Click(sender As Object, e As EventArgs) Handles btnzurücksetzen2.Click
|
||||
If MsgBox("Mahnstufe 2 zurückseten?", vbYesNo + vbQuestion) = vbYes Then
|
||||
Mahnstufe_Zurücksetzen(2)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnzurücksetzen3_Click(sender As Object, e As EventArgs) Handles btnzurücksetzen3.Click
|
||||
If MsgBox("Mahnstufe 3 zurückseten?", vbYesNo + vbQuestion) = vbYes Then
|
||||
Mahnstufe_Zurücksetzen(3)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub Mahnstufe_Zurücksetzen(ByVal typ As Integer)
|
||||
Dim db As New clsDB
|
||||
Dim sql As String
|
||||
|
||||
Select Case typ
|
||||
Case 1
|
||||
sql = "Exec sp_reset_mahnstufe 1," + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
db.Exec_SQL(sql)
|
||||
Case 2
|
||||
sql = "Exec sp_reset_mahnstufe 2," + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
db.Exec_SQL(sql)
|
||||
Case 3
|
||||
sql = "Exec sp_reset_mahnstufe 3," + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
db.Exec_SQL(sql)
|
||||
|
||||
End Select
|
||||
Refresh_Zahlungen()
|
||||
Get_Mahndaten()
|
||||
End Sub
|
||||
|
||||
Private Sub C1Zahlungen_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Zahlungen.MouseDown
|
||||
Me.C1Zahlungen.Bookmark = Me.C1Zahlungen.RowContaining(e.Y)
|
||||
End Sub
|
||||
|
||||
Private Sub C1OffeneRechnungen_MouseDown(sender As Object, e As MouseEventArgs) Handles C1OffeneRechnungen.MouseDown
|
||||
Me.C1OffeneRechnungen.Bookmark = Me.C1OffeneRechnungen.RowContaining(e.Y)
|
||||
End Sub
|
||||
|
||||
Private Sub ContextMenuStrip1_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
|
||||
Me.ErsteMahnungMenuItem.Visible = False
|
||||
Me.ZweiteMahnungMenuItem.Visible = False
|
||||
Me.LetzteMahnungMenuItem.Visible = False
|
||||
Dim db As New clsDB
|
||||
Try
|
||||
db.Get_Tabledata("Mahnung", "", "Select * from View_Offene_Mahnungen where nrfaktura=" + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString, "", False)
|
||||
If DB.dsDaten.Tables(0).Rows.Count > 0 Then
|
||||
Select Case DB.dsDaten.Tables(0).Rows(0).Item("Mahnstufe")
|
||||
Case 1
|
||||
ErsteMahnungMenuItem.Visible = True
|
||||
Case 2
|
||||
ZweiteMahnungMenuItem.Visible = True
|
||||
Case 3
|
||||
LetzteMahnungMenuItem.Visible = True
|
||||
End Select
|
||||
Else
|
||||
|
||||
End If
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub DruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ErsteMahnungMenuItem.Click, ZweiteMahnungMenuItem.Click, LetzteMahnungMenuItem.Click
|
||||
Try
|
||||
Select Case sender.name
|
||||
Case "ErsteMahnungMenuItem"
|
||||
Dim s As String = Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
Globals.Rg_Funktionen.Mahnung(s, 1, False, False)
|
||||
Refresh_Data()
|
||||
Case "ZweiteMahnungMenuItem"
|
||||
Dim s As String = Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
Globals.Rg_Funktionen.Mahnung(s, 2, False, False)
|
||||
Refresh_Data()
|
||||
Case "LetzteMahnungMenuItem"
|
||||
Dim s As String = Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
Globals.Rg_Funktionen.Mahnung(s, 3, False, False)
|
||||
Refresh_Data()
|
||||
End Select
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Imports C1.Win.C1TrueDBGrid
|
||||
|
||||
Public Class Finanzen
|
||||
|
||||
Dim dbz As New clsDB
|
||||
Dim dbk As New clsDB
|
||||
Dim spalten As New Tabellenspalte
|
||||
Dim m_patientnr As Integer
|
||||
Property Patientnr As Integer
|
||||
Get
|
||||
Return m_patientnr
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
m_patientnr = value
|
||||
refresh_konto()
|
||||
Refresh_Zahlungen()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim Zahlungen As New DataTable
|
||||
Dim Offene_Rechnungen As New DataTable
|
||||
Sub Refresh_Zahlungen()
|
||||
Try
|
||||
dbz.Get_Tabledata("Zahlung", "", dbz.Get_SQL(19), Me.Patientnr.ToString)
|
||||
Zahlungen = dbz.dsDaten.Tables(0).Copy
|
||||
Me.C1Zahlungen.DataSource = Nothing
|
||||
Me.C1Zahlungen.DataSource = Zahlungen
|
||||
Me.C1Zahlungen.DataMember = dbz.dsDaten.Tables(0).TableName
|
||||
spalten.Spaltentitel_aktualisieren(Me.C1Zahlungen, "Zahlungen", Zahlungen)
|
||||
dbz.Get_Tabledata("OffeneRechnungen", "", dbz.Get_SQL(22), Me.Patientnr.ToString)
|
||||
Offene_Rechnungen = dbz.dsDaten.Tables(0).Copy
|
||||
Me.C1OffeneRechnungen.DataSource = Nothing
|
||||
Me.C1OffeneRechnungen.DataSource = Offene_Rechnungen
|
||||
Me.C1OffeneRechnungen.DataMember = Offene_Rechnungen.TableName
|
||||
spalten.Spaltentitel_aktualisieren(Me.C1OffeneRechnungen, "Offene_Rechnungen", Offene_Rechnungen)
|
||||
|
||||
Me.Mahndatum1.Text = ""
|
||||
Me.Mahndatum2.Text = ""
|
||||
Me.Mahndatum3.Text = ""
|
||||
Me.Mahnfaelligkeit1.Text = ""
|
||||
Me.Mahnfaelligkeit2.Text = ""
|
||||
Me.Mahnfaelligkeit3.Text = ""
|
||||
Me.Mahngebühr1.Text = ""
|
||||
Me.Mahngebühr2.Text = ""
|
||||
Me.Mahngebühr3.Text = ""
|
||||
|
||||
Me.btnZurücksetzen1.Visible = False
|
||||
Me.btnzurücksetzen2.Visible = False
|
||||
Me.btnzurücksetzen3.Visible = False
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
Public Sub Refresh_Data()
|
||||
refresh_konto()
|
||||
Refresh_Zahlungen()
|
||||
Get_Mahndaten()
|
||||
End Sub
|
||||
Sub refresh_konto()
|
||||
dbk.Get_Tabledata("Konto", "where aktiv=1 order by reihenfolge")
|
||||
Me.cbboxKonto.DataSource = dbk.dsDaten.Tables(0)
|
||||
Me.cbboxKonto.Displaymember = "Konto"
|
||||
Me.cbboxKonto.Valuemember = "nrkonto"
|
||||
End Sub
|
||||
|
||||
Private Sub txtRGNummer_TextChanged(sender As Object, e As EventArgs) Handles txtRGNummer.TextChanged
|
||||
If Me.txtRGNummer.Text <> "" Then
|
||||
Me.chkVorauszahlung.Checked = False
|
||||
Me.chkVorauszahlung.Enabled = False
|
||||
Else
|
||||
Me.chkVorauszahlung.Enabled = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnBuchen_Click(sender As Object, e As EventArgs) Handles btnBuchen.Click
|
||||
Dim db5 As New clsDB
|
||||
Dim vz As String = ""
|
||||
Dim Storno As String = ""
|
||||
Dim Debitor As Integer = 0
|
||||
If chkVorauszahlung.Checked = False And Me.txtRGNummer.Text = "" Then
|
||||
MsgBox("Zahlung kann nicht verbucht werden. Entweder als Vorauszahlung oder mit gültiger Rechnungsnummer.", MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
Dim newkey As Integer = dbz.Get_DBKey("Zahlung")
|
||||
dbz.Get_Tabledata("Zahlung", "where nrzahlung=0")
|
||||
Dim r As DataRow = dbz.dsDaten.Tables(0).NewRow
|
||||
r("nrzahlung") = newkey
|
||||
If Me.chkVorauszahlung.Checked = True Then r("nrfaktura") = 0 Else r("nrfaktura") = txtRGNummer.Text
|
||||
r("vorauszahlung") = chkVorauszahlung.Checked
|
||||
r("mandant") = 1
|
||||
If r("nrfaktura") <> 0 Then
|
||||
Try
|
||||
db5.Get_Tabledata("Fakt", "", "Select * from faktura where nrfaktura='" + r("nrfaktura").ToString + "'")
|
||||
Debitor = db5.dsDaten.Tables(0).Rows(0).Item("nrdebitor")
|
||||
Catch
|
||||
Debitor = 0
|
||||
End Try
|
||||
|
||||
End If
|
||||
If Me.Patientnr <> Debitor And Debitor > 0 Then
|
||||
r("nrdebotir") = Debitor
|
||||
Else
|
||||
r("nrdebitor") = Me.Patientnr
|
||||
End If
|
||||
r("nrdebitor") = Me.Patientnr
|
||||
r("betrag") = Me.diBetrag.Value
|
||||
r("nrkonto") = cbboxKonto.SelectedValue
|
||||
r("valuta") = Me.dtdatum.Value
|
||||
r("nrbehandlung") = 0
|
||||
r("status") = 0
|
||||
If chkVorauszahlung.Checked Then
|
||||
r("status") = 1
|
||||
vz = "J"
|
||||
End If
|
||||
r("statusdatum") = Now
|
||||
r("erstellt_am") = Now
|
||||
r("mutiert_am") = Now
|
||||
r("mutierer") = Globals.ActUser
|
||||
r("aktiv") = True
|
||||
dbz.dsDaten.Tables(0).Rows.Add(r)
|
||||
dbz.Update_Data()
|
||||
|
||||
db5.Insert_ZJournal(r("nrfaktura"), r("nrdebitor"), db5.Get_Datavalue("Select dbo.get_name(" + r.Item("nrdebitor").ToString + ")"), r.Item("Betrag"), db5.Get_Datavalue("Select Konto from konto where nrkonto=" + r.Item("nrkonto").ToString), vz, "")
|
||||
db5.Exec_SQL("Update debitor set mutiert_am=getdate(),betrag=betrag-" + r("betrag").ToString + "where nrfaktura=" + r("nrfaktura").ToString)
|
||||
Me.Refresh_Zahlungen()
|
||||
If vz = "J" Then
|
||||
If MsgBox("Vorauszahlung einer Behandlung zuweisen?", vbYesNo + vbQuestion) Then
|
||||
VorauszahlungAnBehandlungZuweisenToolStripMenuItem_Click(sender, e)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub C1OffeneRechnungen_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1OffeneRechnungen.RowColChange
|
||||
Try
|
||||
Me.dtdatum.Value = Now
|
||||
Me.txtRGNummer.Text = Me.C1OffeneRechnungen.Columns("nrfaktura").Value
|
||||
Me.diBetrag.Value = Me.C1OffeneRechnungen.Columns("Betrag").Value
|
||||
Get_Mahndaten()
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
Sub Get_Mahndaten()
|
||||
Me.Mahndatum1.Text = ""
|
||||
Me.Mahndatum2.Text = ""
|
||||
Me.Mahndatum3.Text = ""
|
||||
Me.Mahnfaelligkeit1.Text = ""
|
||||
Me.Mahnfaelligkeit2.Text = ""
|
||||
Me.Mahnfaelligkeit3.Text = ""
|
||||
Me.Mahngebühr1.Text = ""
|
||||
Me.Mahngebühr2.Text = ""
|
||||
Me.Mahngebühr3.Text = ""
|
||||
Me.btnZurücksetzen1.Visible = False
|
||||
Me.btnzurücksetzen2.Visible = False
|
||||
Me.btnzurücksetzen3.Visible = False
|
||||
Dim dd As Date
|
||||
Try
|
||||
Me.Mahndatum1.Text = ShortDate(Me.C1OffeneRechnungen.Columns("Mahndatum1").Value.ToString)
|
||||
Me.Mahndatum2.Text = ShortDate(Me.C1OffeneRechnungen.Columns("Mahndatum2").Value.ToString)
|
||||
Me.Mahndatum3.Text = ShortDate(Me.C1OffeneRechnungen.Columns("Mahndatum3").Value.ToString)
|
||||
|
||||
Me.Mahnfaelligkeit1.Text = ShortDate(Me.C1OffeneRechnungen.Columns("mahnfaelligkeit1").Value.ToString)
|
||||
Me.Mahnfaelligkeit2.Text = ShortDate(Me.C1OffeneRechnungen.Columns("mahnfaelligkeit2").Value.ToString)
|
||||
Me.Mahnfaelligkeit3.Text = ShortDate(Me.C1OffeneRechnungen.Columns("mahnfaelligkeit3").Value.ToString)
|
||||
|
||||
Me.Mahngebühr1.Text = Me.C1OffeneRechnungen.Columns("mahngebuehr1").Value.ToString
|
||||
Me.Mahngebühr2.Text = Me.C1OffeneRechnungen.Columns("mahngebuehr2").Value.ToString
|
||||
Me.Mahngebühr3.Text = Me.C1OffeneRechnungen.Columns("mahngebuehr3").Value.ToString
|
||||
|
||||
If Me.Mahndatum3.Text <> "" Then
|
||||
Me.btnzurücksetzen3.Visible = True
|
||||
Else
|
||||
If Me.Mahndatum2.Text <> "" Then
|
||||
Me.btnzurücksetzen2.Visible = True
|
||||
Else
|
||||
If Me.Mahndatum1.Text <> "" Then
|
||||
Me.btnZurücksetzen1.Visible = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Function ShortDate(ByVal dd As String) As String
|
||||
Try
|
||||
Dim d As Date
|
||||
d = dd
|
||||
Return d
|
||||
Catch
|
||||
Return ""
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub ZahlungBuchenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZahlungBuchenToolStripMenuItem.Click
|
||||
btnBuchen_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub ZahlungStornierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZahlungStornierenToolStripMenuItem.Click
|
||||
If MsgBox("Zahlung stornieren?", vbYesNo + vbQuestion) <> vbYes Then Exit Sub
|
||||
Dim fakt As New clsFakturierung
|
||||
fakt.Storno_Zahlung(Me.C1Zahlungen.Columns("nrzahlung").Value)
|
||||
Me.Refresh_Zahlungen()
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Me.txtRGNummer.Text = ""
|
||||
End Sub
|
||||
|
||||
Private Sub ContextMenuStrip2_CursorChanged(sender As Object, e As EventArgs) Handles ContextMenuStrip2.Opening
|
||||
If Me.C1Zahlungen.Columns("Zahlungsstatus").Value = "Vorauszahlung" Then
|
||||
If Me.C1Zahlungen.Columns("nrbehandlung").Value = 0 Then
|
||||
|
||||
VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Enabled = True
|
||||
VorauszahlungVonBehandlungLösenToolStripMenuItem.Enabled = False
|
||||
|
||||
Exit Sub
|
||||
Else
|
||||
VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Enabled = False
|
||||
VorauszahlungVonBehandlungLösenToolStripMenuItem.Enabled = True
|
||||
Exit Sub
|
||||
End If
|
||||
Else
|
||||
If Me.C1Zahlungen.Columns("Status").Value = 9 Then
|
||||
ZahlungStornierenToolStripMenuItem.Enabled = False
|
||||
Else
|
||||
ZahlungStornierenToolStripMenuItem.Enabled = True
|
||||
End If
|
||||
VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Enabled = False
|
||||
VorauszahlungVonBehandlungLösenToolStripMenuItem.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub VorauszahlungAnBehandlungZuweisenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Click
|
||||
Dim f As New frmOffeneBehandlungen
|
||||
f.NrPatient = Me.Patientnr
|
||||
f.ShowDialog()
|
||||
If f.DialogResult = DialogResult.OK Then
|
||||
Dim db As New clsDB
|
||||
db.Exec_SQL("Update zahlung set nrbehandlung=" + f.NrBehandlung.ToString + ", mutiert_am=getdate() where nrzahlung=" + Me.C1Zahlungen.Columns("nrzahlung").Value.ToString)
|
||||
Me.Refresh_Zahlungen()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub VorauszahlungVonBehandlungLösenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorauszahlungVonBehandlungLösenToolStripMenuItem.Click
|
||||
If MsgBox("Vorauszahlung von Behandlung entfernen?", vbYesNo + vbQuestion) = vbYes Then
|
||||
Dim db As New clsDB
|
||||
db.Exec_SQL("Update zahlung set nrbehandlung=0, mutiert_am=getdate() where nrzahlung=" + Me.C1Zahlungen.Columns("nrzahlung").Value.ToString)
|
||||
Me.Refresh_Zahlungen()
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub dtdatum_Click(sender As Object, e As EventArgs) Handles dtdatum.Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub dtdatum_KeyDown(sender As Object, e As KeyEventArgs) Handles dtdatum.KeyDown
|
||||
|
||||
If e.KeyCode = Keys.Escape Then delete_date(sender)
|
||||
If e.KeyCode = Keys.Decimal Then SendKeys.SendWait("{TAB}")
|
||||
|
||||
End Sub
|
||||
Sub delete_date(sender)
|
||||
sender.value = Nothing
|
||||
End Sub
|
||||
|
||||
Private Sub btnZurücksetzen1_Click(sender As Object, e As EventArgs) Handles btnZurücksetzen1.Click
|
||||
If MsgBox("Mahnstufe 1 zurückseten?", vbYesNo + vbQuestion) = vbYes Then
|
||||
Mahnstufe_Zurücksetzen(1)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub btnzurücksetzen2_Click(sender As Object, e As EventArgs) Handles btnzurücksetzen2.Click
|
||||
If MsgBox("Mahnstufe 2 zurückseten?", vbYesNo + vbQuestion) = vbYes Then
|
||||
Mahnstufe_Zurücksetzen(2)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnzurücksetzen3_Click(sender As Object, e As EventArgs) Handles btnzurücksetzen3.Click
|
||||
If MsgBox("Mahnstufe 3 zurückseten?", vbYesNo + vbQuestion) = vbYes Then
|
||||
Mahnstufe_Zurücksetzen(3)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub Mahnstufe_Zurücksetzen(ByVal typ As Integer)
|
||||
Dim db As New clsDB
|
||||
Dim sql As String
|
||||
|
||||
Select Case typ
|
||||
Case 1
|
||||
sql = "Exec sp_reset_mahnstufe 1," + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
db.Exec_SQL(sql)
|
||||
Case 2
|
||||
sql = "Exec sp_reset_mahnstufe 2," + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
db.Exec_SQL(sql)
|
||||
Case 3
|
||||
sql = "Exec sp_reset_mahnstufe 3," + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
db.Exec_SQL(sql)
|
||||
|
||||
End Select
|
||||
Refresh_Zahlungen()
|
||||
Get_Mahndaten()
|
||||
End Sub
|
||||
|
||||
Private Sub C1Zahlungen_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Zahlungen.MouseDown
|
||||
Me.C1Zahlungen.Bookmark = Me.C1Zahlungen.RowContaining(e.Y)
|
||||
End Sub
|
||||
|
||||
Private Sub C1OffeneRechnungen_MouseDown(sender As Object, e As MouseEventArgs) Handles C1OffeneRechnungen.MouseDown
|
||||
Me.C1OffeneRechnungen.Bookmark = Me.C1OffeneRechnungen.RowContaining(e.Y)
|
||||
End Sub
|
||||
|
||||
Private Sub ContextMenuStrip1_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
|
||||
Me.ErsteMahnungMenuItem.Visible = False
|
||||
Me.ZweiteMahnungMenuItem.Visible = False
|
||||
Me.LetzteMahnungMenuItem.Visible = False
|
||||
Dim db As New clsDB
|
||||
Try
|
||||
db.Get_Tabledata("Mahnung", "", "Select * from View_Offene_Mahnungen where nrfaktura=" + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString, "", False)
|
||||
If db.dsDaten.Tables(0).Rows.Count > 0 Then
|
||||
Select Case db.dsDaten.Tables(0).Rows(0).Item("Mahnstufe")
|
||||
Case 1
|
||||
ErsteMahnungMenuItem.Visible = True
|
||||
Case 2
|
||||
ZweiteMahnungMenuItem.Visible = True
|
||||
Case 3
|
||||
LetzteMahnungMenuItem.Visible = True
|
||||
End Select
|
||||
Else
|
||||
|
||||
End If
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub DruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ErsteMahnungMenuItem.Click, ZweiteMahnungMenuItem.Click, LetzteMahnungMenuItem.Click
|
||||
Try
|
||||
Select Case sender.name
|
||||
Case "ErsteMahnungMenuItem"
|
||||
Dim s As String = Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
Globals.Rg_Funktionen.Mahnung(s, 1, False, False, True)
|
||||
Refresh_Data()
|
||||
Case "ZweiteMahnungMenuItem"
|
||||
Dim s As String = Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
Globals.Rg_Funktionen.Mahnung(s, 2, False, False, True)
|
||||
Refresh_Data()
|
||||
Case "LetzteMahnungMenuItem"
|
||||
Dim s As String = Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
Globals.Rg_Funktionen.Mahnung(s, 3, False, False, True)
|
||||
Refresh_Data()
|
||||
End Select
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user