Initial commit

DPM2016/Finanzaen/Finanzen.Designer.vb

@@ -0,0 +1,321 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Finanzen
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Finanzen))
+        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
+        Me.GrpZahlung = New System.Windows.Forms.GroupBox()
+        Me.btnBuchen = New System.Windows.Forms.Button()
+        Me.chkVorauszahlung = New System.Windows.Forms.CheckBox()
+        Me.lblVorauszahlung = New System.Windows.Forms.Label()
+        Me.cbboxKonto = New DPM2016.MyCombobox()
+        Me.lblKonto = New System.Windows.Forms.Label()
+        Me.lblBetrag = New System.Windows.Forms.Label()
+        Me.diBetrag = New DevComponents.Editors.DoubleInput()
+        Me.lbldatum = New System.Windows.Forms.Label()
+        Me.dtdatum = New DevComponents.Editors.DateTimeAdv.DateTimeInput()
+        Me.txtRGNummer = New System.Windows.Forms.TextBox()
+        Me.lblRechnungsnummer = New System.Windows.Forms.Label()
+        Me.GrpZahlungen = New System.Windows.Forms.GroupBox()
+        Me.C1Zahlungen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
+        Me.GrpBehandlungen = New System.Windows.Forms.GroupBox()
+        Me.C1OffeneRechnungen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
+        Me.GrpZahlung.SuspendLayout()
+        CType(Me.diBetrag, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.dtdatum, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.GrpZahlungen.SuspendLayout()
+        CType(Me.C1Zahlungen, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.GrpBehandlungen.SuspendLayout()
+        CType(Me.C1OffeneRechnungen, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'ToolStrip1
+        '
+        Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.ToolStrip1.Name = "ToolStrip1"
+        Me.ToolStrip1.Size = New System.Drawing.Size(990, 25)
+        Me.ToolStrip1.TabIndex = 0
+        Me.ToolStrip1.Text = "ToolStrip1"
+        '
+        'GrpZahlung
+        '
+        Me.GrpZahlung.Controls.Add(Me.btnBuchen)
+        Me.GrpZahlung.Controls.Add(Me.chkVorauszahlung)
+        Me.GrpZahlung.Controls.Add(Me.lblVorauszahlung)
+        Me.GrpZahlung.Controls.Add(Me.cbboxKonto)
+        Me.GrpZahlung.Controls.Add(Me.lblKonto)
+        Me.GrpZahlung.Controls.Add(Me.lblBetrag)
+        Me.GrpZahlung.Controls.Add(Me.diBetrag)
+        Me.GrpZahlung.Controls.Add(Me.lbldatum)
+        Me.GrpZahlung.Controls.Add(Me.dtdatum)
+        Me.GrpZahlung.Controls.Add(Me.txtRGNummer)
+        Me.GrpZahlung.Controls.Add(Me.lblRechnungsnummer)
+        Me.GrpZahlung.Dock = System.Windows.Forms.DockStyle.Left
+        Me.GrpZahlung.Location = New System.Drawing.Point(0, 25)
+        Me.GrpZahlung.Name = "GrpZahlung"
+        Me.GrpZahlung.Size = New System.Drawing.Size(345, 562)
+        Me.GrpZahlung.TabIndex = 1
+        Me.GrpZahlung.TabStop = False
+        Me.GrpZahlung.Text = "Zahlung"
+        '
+        'btnBuchen
+        '
+        Me.btnBuchen.Location = New System.Drawing.Point(22, 165)
+        Me.btnBuchen.Name = "btnBuchen"
+        Me.btnBuchen.Size = New System.Drawing.Size(75, 23)
+        Me.btnBuchen.TabIndex = 19
+        Me.btnBuchen.Text = "Buchen"
+        Me.btnBuchen.UseVisualStyleBackColor = True
+        '
+        'chkVorauszahlung
+        '
+        Me.chkVorauszahlung.AutoSize = True
+        Me.chkVorauszahlung.Location = New System.Drawing.Point(147, 139)
+        Me.chkVorauszahlung.Name = "chkVorauszahlung"
+        Me.chkVorauszahlung.Size = New System.Drawing.Size(15, 14)
+        Me.chkVorauszahlung.TabIndex = 18
+        Me.chkVorauszahlung.UseVisualStyleBackColor = True
+        '
+        'lblVorauszahlung
+        '
+        Me.lblVorauszahlung.AutoSize = True
+        Me.lblVorauszahlung.Location = New System.Drawing.Point(20, 139)
+        Me.lblVorauszahlung.Name = "lblVorauszahlung"
+        Me.lblVorauszahlung.Size = New System.Drawing.Size(77, 13)
+        Me.lblVorauszahlung.TabIndex = 17
+        Me.lblVorauszahlung.Text = "Vorauszahlung"
+        '
+        'cbboxKonto
+        '
+        Me.cbboxKonto.Dataselection = Nothing
+        Me.cbboxKonto.Displaymember = Nothing
+        Me.cbboxKonto.Location = New System.Drawing.Point(147, 109)
+        Me.cbboxKonto.Name = "cbboxKonto"
+        Me.cbboxKonto.Size = New System.Drawing.Size(177, 21)
+        Me.cbboxKonto.TabIndex = 15
+        Me.cbboxKonto.Table = Nothing
+        Me.cbboxKonto.TableAlias = ""
+        Me.cbboxKonto.Valuemember = Nothing
+        '
+        'lblKonto
+        '
+        Me.lblKonto.AutoSize = True
+        Me.lblKonto.Location = New System.Drawing.Point(20, 112)
+        Me.lblKonto.Name = "lblKonto"
+        Me.lblKonto.Size = New System.Drawing.Size(55, 13)
+        Me.lblKonto.TabIndex = 16
+        Me.lblKonto.Text = "Behandler"
+        '
+        'lblBetrag
+        '
+        Me.lblBetrag.AutoSize = True
+        Me.lblBetrag.Location = New System.Drawing.Point(20, 87)
+        Me.lblBetrag.Name = "lblBetrag"
+        Me.lblBetrag.Size = New System.Drawing.Size(38, 13)
+        Me.lblBetrag.TabIndex = 11
+        Me.lblBetrag.Text = "Betrag"
+        '
+        'diBetrag
+        '
+        '
+        '
+        '
+        Me.diBetrag.BackgroundStyle.Class = "DateTimeInputBackground"
+        Me.diBetrag.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.diBetrag.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2
+        Me.diBetrag.Increment = 1.0R
+        Me.diBetrag.Location = New System.Drawing.Point(147, 81)
+        Me.diBetrag.Name = "diBetrag"
+        Me.diBetrag.ShowUpDown = True
+        Me.diBetrag.Size = New System.Drawing.Size(86, 20)
+        Me.diBetrag.TabIndex = 10
+        '
+        'lbldatum
+        '
+        Me.lbldatum.AutoSize = True
+        Me.lbldatum.Location = New System.Drawing.Point(20, 62)
+        Me.lbldatum.Name = "lbldatum"
+        Me.lbldatum.Size = New System.Drawing.Size(38, 13)
+        Me.lbldatum.TabIndex = 3
+        Me.lbldatum.Text = "Datum"
+        '
+        'dtdatum
+        '
+        '
+        '
+        '
+        Me.dtdatum.BackgroundStyle.Class = "DateTimeInputBackground"
+        Me.dtdatum.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.dtdatum.ButtonDropDown.Shortcut = DevComponents.DotNetBar.eShortcut.AltDown
+        Me.dtdatum.ButtonDropDown.Visible = True
+        Me.dtdatum.IsPopupCalendarOpen = False
+        Me.dtdatum.Location = New System.Drawing.Point(147, 55)
+        '
+        '
+        '
+        '
+        '
+        '
+        Me.dtdatum.MonthCalendar.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.dtdatum.MonthCalendar.CalendarDimensions = New System.Drawing.Size(1, 1)
+        Me.dtdatum.MonthCalendar.ClearButtonVisible = True
+        '
+        '
+        '
+        Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.BackColor2SchemePart = DevComponents.DotNetBar.eColorSchemePart.BarBackground2
+        Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.BackColorGradientAngle = 90
+        Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.BackColorSchemePart = DevComponents.DotNetBar.eColorSchemePart.BarBackground
+        Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.BorderTop = DevComponents.DotNetBar.eStyleBorderType.Solid
+        Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.BorderTopColorSchemePart = DevComponents.DotNetBar.eColorSchemePart.BarDockedBorder
+        Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.BorderTopWidth = 1
+        Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.dtdatum.MonthCalendar.DisplayMonth = New Date(2015, 6, 1, 0, 0, 0, 0)
+        Me.dtdatum.MonthCalendar.FirstDayOfWeek = System.DayOfWeek.Monday
+        '
+        '
+        '
+        Me.dtdatum.MonthCalendar.NavigationBackgroundStyle.BackColor2SchemePart = DevComponents.DotNetBar.eColorSchemePart.PanelBackground2
+        Me.dtdatum.MonthCalendar.NavigationBackgroundStyle.BackColorGradientAngle = 90
+        Me.dtdatum.MonthCalendar.NavigationBackgroundStyle.BackColorSchemePart = DevComponents.DotNetBar.eColorSchemePart.PanelBackground
+        Me.dtdatum.MonthCalendar.NavigationBackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.dtdatum.MonthCalendar.TodayButtonVisible = True
+        Me.dtdatum.Name = "dtdatum"
+        Me.dtdatum.Size = New System.Drawing.Size(177, 20)
+        Me.dtdatum.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
+        Me.dtdatum.TabIndex = 2
+        '
+        'txtRGNummer
+        '
+        Me.txtRGNummer.Location = New System.Drawing.Point(147, 32)
+        Me.txtRGNummer.Name = "txtRGNummer"
+        Me.txtRGNummer.Size = New System.Drawing.Size(177, 20)
+        Me.txtRGNummer.TabIndex = 1
+        '
+        'lblRechnungsnummer
+        '
+        Me.lblRechnungsnummer.AutoSize = True
+        Me.lblRechnungsnummer.Location = New System.Drawing.Point(20, 35)
+        Me.lblRechnungsnummer.Name = "lblRechnungsnummer"
+        Me.lblRechnungsnummer.Size = New System.Drawing.Size(99, 13)
+        Me.lblRechnungsnummer.TabIndex = 0
+        Me.lblRechnungsnummer.Text = "Rechnungsnummer"
+        '
+        'GrpZahlungen
+        '
+        Me.GrpZahlungen.Controls.Add(Me.C1Zahlungen)
+        Me.GrpZahlungen.Dock = System.Windows.Forms.DockStyle.Top
+        Me.GrpZahlungen.Location = New System.Drawing.Point(345, 25)
+        Me.GrpZahlungen.Name = "GrpZahlungen"
+        Me.GrpZahlungen.Size = New System.Drawing.Size(645, 249)
+        Me.GrpZahlungen.TabIndex = 2
+        Me.GrpZahlungen.TabStop = False
+        Me.GrpZahlungen.Text = "Verbuchte Zahlungen"
+        '
+        'C1Zahlungen
+        '
+        Me.C1Zahlungen.AlternatingRows = True
+        Me.C1Zahlungen.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.C1Zahlungen.FilterBar = True
+        Me.C1Zahlungen.GroupByCaption = "Drag a column header here to group by that column"
+        Me.C1Zahlungen.Images.Add(CType(resources.GetObject("C1Zahlungen.Images"), System.Drawing.Image))
+        Me.C1Zahlungen.Location = New System.Drawing.Point(3, 16)
+        Me.C1Zahlungen.Name = "C1Zahlungen"
+        Me.C1Zahlungen.PreviewInfo.Location = New System.Drawing.Point(0, 0)
+        Me.C1Zahlungen.PreviewInfo.Size = New System.Drawing.Size(0, 0)
+        Me.C1Zahlungen.PreviewInfo.ZoomFactor = 75.0R
+        Me.C1Zahlungen.PrintInfo.PageSettings = CType(resources.GetObject("C1Zahlungen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
+        Me.C1Zahlungen.Size = New System.Drawing.Size(639, 230)
+        Me.C1Zahlungen.TabIndex = 3
+        Me.C1Zahlungen.Text = "C1TrueDBGrid1"
+        Me.C1Zahlungen.PropBag = resources.GetString("C1Zahlungen.PropBag")
+        '
+        'GrpBehandlungen
+        '
+        Me.GrpBehandlungen.Controls.Add(Me.C1OffeneRechnungen)
+        Me.GrpBehandlungen.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.GrpBehandlungen.Location = New System.Drawing.Point(345, 274)
+        Me.GrpBehandlungen.Name = "GrpBehandlungen"
+        Me.GrpBehandlungen.Size = New System.Drawing.Size(645, 313)
+        Me.GrpBehandlungen.TabIndex = 3
+        Me.GrpBehandlungen.TabStop = False
+        Me.GrpBehandlungen.Text = "Offene Rechnungen"
+        '
+        'C1OffeneRechnungen
+        '
+        Me.C1OffeneRechnungen.AlternatingRows = True
+        Me.C1OffeneRechnungen.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.C1OffeneRechnungen.FilterBar = True
+        Me.C1OffeneRechnungen.GroupByCaption = "Drag a column header here to group by that column"
+        Me.C1OffeneRechnungen.Images.Add(CType(resources.GetObject("C1OffeneRechnungen.Images"), System.Drawing.Image))
+        Me.C1OffeneRechnungen.Location = New System.Drawing.Point(3, 16)
+        Me.C1OffeneRechnungen.Name = "C1OffeneRechnungen"
+        Me.C1OffeneRechnungen.PreviewInfo.Location = New System.Drawing.Point(0, 0)
+        Me.C1OffeneRechnungen.PreviewInfo.Size = New System.Drawing.Size(0, 0)
+        Me.C1OffeneRechnungen.PreviewInfo.ZoomFactor = 75.0R
+        Me.C1OffeneRechnungen.PrintInfo.PageSettings = CType(resources.GetObject("C1OffeneRechnungen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
+        Me.C1OffeneRechnungen.Size = New System.Drawing.Size(639, 294)
+        Me.C1OffeneRechnungen.TabIndex = 4
+        Me.C1OffeneRechnungen.Text = "C1OffeneRechnungen"
+        Me.C1OffeneRechnungen.PropBag = resources.GetString("C1OffeneRechnungen.PropBag")
+        '
+        'Finanzen
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.GrpBehandlungen)
+        Me.Controls.Add(Me.GrpZahlungen)
+        Me.Controls.Add(Me.GrpZahlung)
+        Me.Controls.Add(Me.ToolStrip1)
+        Me.Name = "Finanzen"
+        Me.Size = New System.Drawing.Size(990, 587)
+        Me.GrpZahlung.ResumeLayout(False)
+        Me.GrpZahlung.PerformLayout()
+        CType(Me.diBetrag, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.dtdatum, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.GrpZahlungen.ResumeLayout(False)
+        CType(Me.C1Zahlungen, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.GrpBehandlungen.ResumeLayout(False)
+        CType(Me.C1OffeneRechnungen, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
+    Friend WithEvents GrpZahlung As System.Windows.Forms.GroupBox
+    Friend WithEvents GrpZahlungen As System.Windows.Forms.GroupBox
+    Friend WithEvents GrpBehandlungen As System.Windows.Forms.GroupBox
+    Friend WithEvents C1Zahlungen As C1.Win.C1TrueDBGrid.C1TrueDBGrid
+    Friend WithEvents txtRGNummer As System.Windows.Forms.TextBox
+    Friend WithEvents lblRechnungsnummer As System.Windows.Forms.Label
+    Friend WithEvents C1OffeneRechnungen As C1.Win.C1TrueDBGrid.C1TrueDBGrid
+    Friend WithEvents lbldatum As System.Windows.Forms.Label
+    Friend WithEvents dtdatum As DevComponents.Editors.DateTimeAdv.DateTimeInput
+    Friend WithEvents lblBetrag As System.Windows.Forms.Label
+    Friend WithEvents diBetrag As DevComponents.Editors.DoubleInput
+    Friend WithEvents btnBuchen As System.Windows.Forms.Button
+    Friend WithEvents chkVorauszahlung As System.Windows.Forms.CheckBox
+    Friend WithEvents lblVorauszahlung As System.Windows.Forms.Label
+    Friend WithEvents cbboxKonto As DPM2016.MyCombobox
+    Friend WithEvents lblKonto As System.Windows.Forms.Label
+
+End Class

DPM2016/Finanzaen/Finanzen.resx

@@ -0,0 +1,202 @@
+<?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>
+  <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>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;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"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 637, 228&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 637, 228&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
+  </data>
+  <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>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{BackColor:Info;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;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"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 637, 292&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 637, 292&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
+  </data>
+</root>

DPM2016/Finanzaen/Finanzen.vb

@@ -0,0 +1,91 @@
+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
+            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)
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+
+    End Sub
+    Public Sub Refresh_Data()
+        refresh_konto()
+        Refresh_Zahlungen()
+    End Sub
+    Sub refresh_konto()
+        dbk.Get_Tabledata("Konto", "where aktiv=1")
+        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
+        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
+        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
+        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()
+        Me.Refresh_Zahlungen()
+    End Sub
+
+    Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
+
+    End Sub
+End Class