shu/DPM2016
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Version 2018-05-25

Browse Source
This commit is contained in:
Stefan Hutter
2018-05-25 09:16:37 +02:00
parent 482a2ae3ce
commit 7c22a2e6d1
76 changed files with 3035 additions and 1105 deletions
Download Patch File Download Diff File Expand all files Collapse all files

286
DPM2016/Finanzaen/Finanzen.Designer.vb generated
View File

@@ -30,7 +30,6 @@ Partial Class Finanzen
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()
@@ -48,6 +47,27 @@ Partial Class Finanzen
Me.C1OffeneRechnungen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ZahlungBuchenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Mahndatum1 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Mahnfaelligkeit1 = New System.Windows.Forms.Label()
Me.Mahngebühr1 = New System.Windows.Forms.Label()
Me.Mahngebühr2 = New System.Windows.Forms.Label()
Me.Mahnfaelligkeit2 = New System.Windows.Forms.Label()
Me.Mahndatum2 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.Mahngebühr3 = New System.Windows.Forms.Label()
Me.Mahnfaelligkeit3 = New System.Windows.Forms.Label()
Me.Mahndatum3 = New System.Windows.Forms.Label()
Me.btnZurücksetzen1 = New System.Windows.Forms.Button()
Me.btnzurücksetzen2 = New System.Windows.Forms.Button()
Me.btnzurücksetzen3 = New System.Windows.Forms.Button()
Me.cbboxKonto = New DPM2016.MyCombobox()
Me.GrpZahlung.SuspendLayout()
CType(Me.diBetrag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dtdatum, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -57,6 +77,7 @@ Partial Class Finanzen
Me.GrpBehandlungen.SuspendLayout()
CType(Me.C1OffeneRechnungen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
'
'ToolStrip1
@@ -124,18 +145,6 @@ Partial Class Finanzen
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
@@ -245,7 +254,7 @@ Partial Class Finanzen
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, 401)
Me.GrpZahlungen.Size = New System.Drawing.Size(645, 302)
Me.GrpZahlungen.TabIndex = 2
Me.GrpZahlungen.TabStop = False
Me.GrpZahlungen.Text = "Verbuchte Zahlungen"
@@ -264,7 +273,7 @@ Partial Class Finanzen
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, 382)
Me.C1Zahlungen.Size = New System.Drawing.Size(639, 283)
Me.C1Zahlungen.TabIndex = 3
Me.C1Zahlungen.Text = "C1TrueDBGrid1"
Me.C1Zahlungen.PropBag = resources.GetString("C1Zahlungen.PropBag")
@@ -296,10 +305,10 @@ Partial Class Finanzen
'GrpBehandlungen
'
Me.GrpBehandlungen.Controls.Add(Me.C1OffeneRechnungen)
Me.GrpBehandlungen.Dock = System.Windows.Forms.DockStyle.Fill
Me.GrpBehandlungen.Location = New System.Drawing.Point(345, 426)
Me.GrpBehandlungen.Dock = System.Windows.Forms.DockStyle.Top
Me.GrpBehandlungen.Location = New System.Drawing.Point(345, 327)
Me.GrpBehandlungen.Name = "GrpBehandlungen"
Me.GrpBehandlungen.Size = New System.Drawing.Size(645, 161)
Me.GrpBehandlungen.Size = New System.Drawing.Size(645, 139)
Me.GrpBehandlungen.TabIndex = 3
Me.GrpBehandlungen.TabStop = False
Me.GrpBehandlungen.Text = "Offene Rechnungen"
@@ -318,7 +327,7 @@ Partial Class Finanzen
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, 142)
Me.C1OffeneRechnungen.Size = New System.Drawing.Size(639, 120)
Me.C1OffeneRechnungen.TabIndex = 4
Me.C1OffeneRechnungen.Text = "C1OffeneRechnungen"
Me.C1OffeneRechnungen.PropBag = resources.GetString("C1OffeneRechnungen.PropBag")
@@ -335,10 +344,227 @@ Partial Class Finanzen
Me.ZahlungBuchenToolStripMenuItem.Size = New System.Drawing.Size(161, 22)
Me.ZahlungBuchenToolStripMenuItem.Text = "&Zahlung buchen"
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.btnzurücksetzen3)
Me.GroupBox1.Controls.Add(Me.btnzurücksetzen2)
Me.GroupBox1.Controls.Add(Me.btnZurücksetzen1)
Me.GroupBox1.Controls.Add(Me.Label10)
Me.GroupBox1.Controls.Add(Me.Mahngebühr3)
Me.GroupBox1.Controls.Add(Me.Mahnfaelligkeit3)
Me.GroupBox1.Controls.Add(Me.Mahndatum3)
Me.GroupBox1.Controls.Add(Me.Label9)
Me.GroupBox1.Controls.Add(Me.Mahngebühr2)
Me.GroupBox1.Controls.Add(Me.Mahnfaelligkeit2)
Me.GroupBox1.Controls.Add(Me.Mahndatum2)
Me.GroupBox1.Controls.Add(Me.Mahngebühr1)
Me.GroupBox1.Controls.Add(Me.Mahnfaelligkeit1)
Me.GroupBox1.Controls.Add(Me.Label6)
Me.GroupBox1.Controls.Add(Me.Mahndatum1)
Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Fill
Me.GroupBox1.Location = New System.Drawing.Point(345, 466)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(645, 121)
Me.GroupBox1.TabIndex = 4
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Mahnungen"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(77, 16)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(72, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Mahndatum"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(175, 16)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(86, 13)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Mahnfälligkeit"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(292, 16)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(77, 13)
Me.Label3.TabIndex = 2
Me.Label3.Text = "Mahngebühr"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(7, 16)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(37, 13)
Me.Label4.TabIndex = 3
Me.Label4.Text = "Stufe"
'
'Mahndatum1
'
Me.Mahndatum1.AutoSize = True
Me.Mahndatum1.Location = New System.Drawing.Point(77, 44)
Me.Mahndatum1.Name = "Mahndatum1"
Me.Mahndatum1.Size = New System.Drawing.Size(39, 13)
Me.Mahndatum1.TabIndex = 4
Me.Mahndatum1.Text = "Label5"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(7, 44)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(13, 13)
Me.Label6.TabIndex = 5
Me.Label6.Text = "1"
'
'Mahnfaelligkeit1
'
Me.Mahnfaelligkeit1.AutoSize = True
Me.Mahnfaelligkeit1.Location = New System.Drawing.Point(175, 44)
Me.Mahnfaelligkeit1.Name = "Mahnfaelligkeit1"
Me.Mahnfaelligkeit1.Size = New System.Drawing.Size(39, 13)
Me.Mahnfaelligkeit1.TabIndex = 6
Me.Mahnfaelligkeit1.Text = "Label7"
'
'Mahngebühr1
'
Me.Mahngebühr1.AutoSize = True
Me.Mahngebühr1.Location = New System.Drawing.Point(292, 44)
Me.Mahngebühr1.Name = "Mahngebühr1"
Me.Mahngebühr1.Size = New System.Drawing.Size(39, 13)
Me.Mahngebühr1.TabIndex = 7
Me.Mahngebühr1.Text = "Label8"
'
'Mahngebühr2
'
Me.Mahngebühr2.AutoSize = True
Me.Mahngebühr2.Location = New System.Drawing.Point(292, 67)
Me.Mahngebühr2.Name = "Mahngebühr2"
Me.Mahngebühr2.Size = New System.Drawing.Size(39, 13)
Me.Mahngebühr2.TabIndex = 10
Me.Mahngebühr2.Text = "Label8"
'
'Mahnfaelligkeit2
'
Me.Mahnfaelligkeit2.AutoSize = True
Me.Mahnfaelligkeit2.Location = New System.Drawing.Point(175, 66)
Me.Mahnfaelligkeit2.Name = "Mahnfaelligkeit2"
Me.Mahnfaelligkeit2.Size = New System.Drawing.Size(39, 13)
Me.Mahnfaelligkeit2.TabIndex = 9
Me.Mahnfaelligkeit2.Text = "Label7"
'
'Mahndatum2
'
Me.Mahndatum2.AutoSize = True
Me.Mahndatum2.Location = New System.Drawing.Point(77, 66)
Me.Mahndatum2.Name = "Mahndatum2"
Me.Mahndatum2.Size = New System.Drawing.Size(39, 13)
Me.Mahndatum2.TabIndex = 8
Me.Mahndatum2.Text = "Label5"
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(7, 67)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(13, 13)
Me.Label9.TabIndex = 11
Me.Label9.Text = "2"
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(7, 90)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(13, 13)
Me.Label10.TabIndex = 15
Me.Label10.Text = "3"
'
'Mahngebühr3
'
Me.Mahngebühr3.AutoSize = True
Me.Mahngebühr3.Location = New System.Drawing.Point(292, 90)
Me.Mahngebühr3.Name = "Mahngebühr3"
Me.Mahngebühr3.Size = New System.Drawing.Size(39, 13)
Me.Mahngebühr3.TabIndex = 14
Me.Mahngebühr3.Text = "Label8"
'
'Mahnfaelligkeit3
'
Me.Mahnfaelligkeit3.AutoSize = True
Me.Mahnfaelligkeit3.Location = New System.Drawing.Point(175, 89)
Me.Mahnfaelligkeit3.Name = "Mahnfaelligkeit3"
Me.Mahnfaelligkeit3.Size = New System.Drawing.Size(45, 13)
Me.Mahnfaelligkeit3.TabIndex = 13
Me.Mahnfaelligkeit3.Text = "Label12"
'
'Mahndatum3
'
Me.Mahndatum3.AutoSize = True
Me.Mahndatum3.Location = New System.Drawing.Point(77, 89)
Me.Mahndatum3.Name = "Mahndatum3"
Me.Mahndatum3.Size = New System.Drawing.Size(39, 13)
Me.Mahndatum3.TabIndex = 12
Me.Mahndatum3.Text = "Label5"
'
'btnZurücksetzen1
'
Me.btnZurücksetzen1.Location = New System.Drawing.Point(379, 39)
Me.btnZurücksetzen1.Name = "btnZurücksetzen1"
Me.btnZurücksetzen1.Size = New System.Drawing.Size(98, 23)
Me.btnZurücksetzen1.TabIndex = 16
Me.btnZurücksetzen1.Text = "Zurücksetzen"
Me.btnZurücksetzen1.UseVisualStyleBackColor = True
'
'btnzurücksetzen2
'
Me.btnzurücksetzen2.Location = New System.Drawing.Point(379, 62)
Me.btnzurücksetzen2.Name = "btnzurücksetzen2"
Me.btnzurücksetzen2.Size = New System.Drawing.Size(98, 23)
Me.btnzurücksetzen2.TabIndex = 17
Me.btnzurücksetzen2.Text = "Zurücksetzen"
Me.btnzurücksetzen2.UseVisualStyleBackColor = True
'
'btnzurücksetzen3
'
Me.btnzurücksetzen3.Location = New System.Drawing.Point(379, 85)
Me.btnzurücksetzen3.Name = "btnzurücksetzen3"
Me.btnzurücksetzen3.Size = New System.Drawing.Size(98, 23)
Me.btnzurücksetzen3.TabIndex = 18
Me.btnzurücksetzen3.Text = "Zurücksetzen"
Me.btnzurücksetzen3.UseVisualStyleBackColor = True
'
'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
'
'Finanzen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.GrpBehandlungen)
Me.Controls.Add(Me.GrpZahlungen)
Me.Controls.Add(Me.GrpZahlung)
@@ -355,6 +581,8 @@ Partial Class Finanzen
Me.GrpBehandlungen.ResumeLayout(False)
CType(Me.C1OffeneRechnungen, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -383,4 +611,24 @@ Partial Class Finanzen
Friend WithEvents Button1 As Button
Friend WithEvents VorauszahlungAnBehandlungZuweisenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents VorauszahlungVonBehandlungLösenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents Label10 As Label
Friend WithEvents Mahngebühr3 As Label
Friend WithEvents Mahnfaelligkeit3 As Label
Friend WithEvents Mahndatum3 As Label
Friend WithEvents Label9 As Label
Friend WithEvents Mahngebühr2 As Label
Friend WithEvents Mahnfaelligkeit2 As Label
Friend WithEvents Mahndatum2 As Label
Friend WithEvents Mahngebühr1 As Label
Friend WithEvents Mahnfaelligkeit1 As Label
Friend WithEvents Label6 As Label
Friend WithEvents Mahndatum1 As Label
Friend WithEvents Label4 As Label
Friend WithEvents Label3 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label1 As Label
Friend WithEvents btnZurücksetzen1 As Button
Friend WithEvents btnzurücksetzen3 As Button
Friend WithEvents btnzurücksetzen2 As Button
End Class

4
DPM2016/Finanzaen/Finanzen.resx
View File

@@ -161,7 +161,7 @@
</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, 380&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, 380&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
<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{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;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;}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, 281&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, 281&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</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>
@@ -203,6 +203,6 @@
</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, 140&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, 140&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
<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, 118&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, 118&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
</root>

118
DPM2016/Finanzaen/Finanzen.vb
View File

@@ -26,12 +26,29 @@ Public Class Finanzen
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
@@ -40,6 +57,7 @@ Public Class Finanzen
Public Sub Refresh_Data()
refresh_konto()
Refresh_Zahlungen()
Get_Mahndaten()
End Sub
Sub refresh_konto()
dbk.Get_Tabledata("Konto", "where aktiv=1")
@@ -109,6 +127,11 @@ Public Class Finanzen
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
@@ -120,10 +143,66 @@ Public Class Finanzen
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)
@@ -193,4 +272,43 @@ Public Class Finanzen
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
End Class