Update 27.01.2018
This commit is contained in:
83
DPM2016/Finanzaen/Finanzen.Designer.vb
generated
83
DPM2016/Finanzaen/Finanzen.Designer.vb
generated
@@ -22,9 +22,11 @@ Partial Class Finanzen
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
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.Button1 = New System.Windows.Forms.Button()
|
||||
Me.btnBuchen = New System.Windows.Forms.Button()
|
||||
Me.chkVorauszahlung = New System.Windows.Forms.CheckBox()
|
||||
Me.lblVorauszahlung = New System.Windows.Forms.Label()
|
||||
@@ -38,15 +40,23 @@ Partial Class Finanzen
|
||||
Me.lblRechnungsnummer = New System.Windows.Forms.Label()
|
||||
Me.GrpZahlungen = New System.Windows.Forms.GroupBox()
|
||||
Me.C1Zahlungen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.ZahlungStornierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.VorauszahlungAnBehandlungZuweisenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.VorauszahlungVonBehandlungLösenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.GrpBehandlungen = New System.Windows.Forms.GroupBox()
|
||||
Me.C1OffeneRechnungen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.ZahlungBuchenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
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.ContextMenuStrip2.SuspendLayout()
|
||||
Me.GrpBehandlungen.SuspendLayout()
|
||||
CType(Me.C1OffeneRechnungen, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.ContextMenuStrip1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'ToolStrip1
|
||||
@@ -59,6 +69,7 @@ Partial Class Finanzen
|
||||
'
|
||||
'GrpZahlung
|
||||
'
|
||||
Me.GrpZahlung.Controls.Add(Me.Button1)
|
||||
Me.GrpZahlung.Controls.Add(Me.btnBuchen)
|
||||
Me.GrpZahlung.Controls.Add(Me.chkVorauszahlung)
|
||||
Me.GrpZahlung.Controls.Add(Me.lblVorauszahlung)
|
||||
@@ -78,6 +89,14 @@ Partial Class Finanzen
|
||||
Me.GrpZahlung.TabStop = False
|
||||
Me.GrpZahlung.Text = "Zahlung"
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Location = New System.Drawing.Point(309, 30)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(15, 23)
|
||||
Me.Button1.TabIndex = 20
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnBuchen
|
||||
'
|
||||
Me.btnBuchen.Location = New System.Drawing.Point(22, 165)
|
||||
@@ -122,9 +141,9 @@ Partial Class Finanzen
|
||||
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.Size = New System.Drawing.Size(66, 13)
|
||||
Me.lblKonto.TabIndex = 16
|
||||
Me.lblKonto.Text = "Behandler"
|
||||
Me.lblKonto.Text = "Gegenkonto"
|
||||
'
|
||||
'lblBetrag
|
||||
'
|
||||
@@ -208,7 +227,7 @@ Partial Class Finanzen
|
||||
'
|
||||
Me.txtRGNummer.Location = New System.Drawing.Point(147, 32)
|
||||
Me.txtRGNummer.Name = "txtRGNummer"
|
||||
Me.txtRGNummer.Size = New System.Drawing.Size(177, 20)
|
||||
Me.txtRGNummer.Size = New System.Drawing.Size(161, 20)
|
||||
Me.txtRGNummer.TabIndex = 1
|
||||
'
|
||||
'lblRechnungsnummer
|
||||
@@ -226,7 +245,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, 249)
|
||||
Me.GrpZahlungen.Size = New System.Drawing.Size(645, 401)
|
||||
Me.GrpZahlungen.TabIndex = 2
|
||||
Me.GrpZahlungen.TabStop = False
|
||||
Me.GrpZahlungen.Text = "Verbuchte Zahlungen"
|
||||
@@ -234,6 +253,7 @@ Partial Class Finanzen
|
||||
'C1Zahlungen
|
||||
'
|
||||
Me.C1Zahlungen.AlternatingRows = True
|
||||
Me.C1Zahlungen.ContextMenuStrip = Me.ContextMenuStrip2
|
||||
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"
|
||||
@@ -244,18 +264,42 @@ 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, 230)
|
||||
Me.C1Zahlungen.Size = New System.Drawing.Size(639, 382)
|
||||
Me.C1Zahlungen.TabIndex = 3
|
||||
Me.C1Zahlungen.Text = "C1TrueDBGrid1"
|
||||
Me.C1Zahlungen.PropBag = resources.GetString("C1Zahlungen.PropBag")
|
||||
'
|
||||
'ContextMenuStrip2
|
||||
'
|
||||
Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ZahlungStornierenToolStripMenuItem, Me.VorauszahlungAnBehandlungZuweisenToolStripMenuItem, Me.VorauszahlungVonBehandlungLösenToolStripMenuItem})
|
||||
Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
|
||||
Me.ContextMenuStrip2.Size = New System.Drawing.Size(286, 70)
|
||||
'
|
||||
'ZahlungStornierenToolStripMenuItem
|
||||
'
|
||||
Me.ZahlungStornierenToolStripMenuItem.Name = "ZahlungStornierenToolStripMenuItem"
|
||||
Me.ZahlungStornierenToolStripMenuItem.Size = New System.Drawing.Size(285, 22)
|
||||
Me.ZahlungStornierenToolStripMenuItem.Text = "&Zahlung stornieren"
|
||||
'
|
||||
'VorauszahlungAnBehandlungZuweisenToolStripMenuItem
|
||||
'
|
||||
Me.VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Name = "VorauszahlungAnBehandlungZuweisenToolStripMenuItem"
|
||||
Me.VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Size = New System.Drawing.Size(285, 22)
|
||||
Me.VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Text = "Vorauszahlung an Behandlung zuweisen"
|
||||
'
|
||||
'VorauszahlungVonBehandlungLösenToolStripMenuItem
|
||||
'
|
||||
Me.VorauszahlungVonBehandlungLösenToolStripMenuItem.Name = "VorauszahlungVonBehandlungLösenToolStripMenuItem"
|
||||
Me.VorauszahlungVonBehandlungLösenToolStripMenuItem.Size = New System.Drawing.Size(285, 22)
|
||||
Me.VorauszahlungVonBehandlungLösenToolStripMenuItem.Text = "Vorauszahlung von Behandlung lösen"
|
||||
'
|
||||
'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.Location = New System.Drawing.Point(345, 426)
|
||||
Me.GrpBehandlungen.Name = "GrpBehandlungen"
|
||||
Me.GrpBehandlungen.Size = New System.Drawing.Size(645, 313)
|
||||
Me.GrpBehandlungen.Size = New System.Drawing.Size(645, 161)
|
||||
Me.GrpBehandlungen.TabIndex = 3
|
||||
Me.GrpBehandlungen.TabStop = False
|
||||
Me.GrpBehandlungen.Text = "Offene Rechnungen"
|
||||
@@ -263,6 +307,7 @@ Partial Class Finanzen
|
||||
'C1OffeneRechnungen
|
||||
'
|
||||
Me.C1OffeneRechnungen.AlternatingRows = True
|
||||
Me.C1OffeneRechnungen.ContextMenuStrip = Me.ContextMenuStrip1
|
||||
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"
|
||||
@@ -273,11 +318,23 @@ 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, 294)
|
||||
Me.C1OffeneRechnungen.Size = New System.Drawing.Size(639, 142)
|
||||
Me.C1OffeneRechnungen.TabIndex = 4
|
||||
Me.C1OffeneRechnungen.Text = "C1OffeneRechnungen"
|
||||
Me.C1OffeneRechnungen.PropBag = resources.GetString("C1OffeneRechnungen.PropBag")
|
||||
'
|
||||
'ContextMenuStrip1
|
||||
'
|
||||
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ZahlungBuchenToolStripMenuItem})
|
||||
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
|
||||
Me.ContextMenuStrip1.Size = New System.Drawing.Size(162, 26)
|
||||
'
|
||||
'ZahlungBuchenToolStripMenuItem
|
||||
'
|
||||
Me.ZahlungBuchenToolStripMenuItem.Name = "ZahlungBuchenToolStripMenuItem"
|
||||
Me.ZahlungBuchenToolStripMenuItem.Size = New System.Drawing.Size(161, 22)
|
||||
Me.ZahlungBuchenToolStripMenuItem.Text = "&Zahlung buchen"
|
||||
'
|
||||
'Finanzen
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@@ -294,8 +351,10 @@ Partial Class Finanzen
|
||||
CType(Me.dtdatum, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.GrpZahlungen.ResumeLayout(False)
|
||||
CType(Me.C1Zahlungen, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ContextMenuStrip2.ResumeLayout(False)
|
||||
Me.GrpBehandlungen.ResumeLayout(False)
|
||||
CType(Me.C1OffeneRechnungen, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ContextMenuStrip1.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
@@ -317,5 +376,11 @@ Partial Class Finanzen
|
||||
Friend WithEvents lblVorauszahlung As System.Windows.Forms.Label
|
||||
Friend WithEvents cbboxKonto As DPM2016.MyCombobox
|
||||
Friend WithEvents lblKonto As System.Windows.Forms.Label
|
||||
|
||||
Friend WithEvents ContextMenuStrip2 As ContextMenuStrip
|
||||
Friend WithEvents ZahlungStornierenToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
|
||||
Friend WithEvents ZahlungBuchenToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents Button1 As Button
|
||||
Friend WithEvents VorauszahlungAnBehandlungZuweisenToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents VorauszahlungVonBehandlungLösenToolStripMenuItem As ToolStripMenuItem
|
||||
End Class
|
||||
|
||||
@@ -120,6 +120,9 @@
|
||||
<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>
|
||||
@@ -158,8 +161,11 @@
|
||||
</value>
|
||||
</data>
|
||||
<data name="C1Zahlungen.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>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;}</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, 637, 228</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, 637, 228</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>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;}</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, 637, 380</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, 637, 380</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
|
||||
@@ -197,6 +203,6 @@
|
||||
</value>
|
||||
</data>
|
||||
<data name="C1OffeneRechnungen.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>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;}</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, 637, 292</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, 637, 292</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>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;}</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, 637, 140</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, 637, 140</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -1,4 +1,6 @@
|
||||
Public Class Finanzen
|
||||
Imports C1.Win.C1TrueDBGrid
|
||||
|
||||
Public Class Finanzen
|
||||
|
||||
Dim dbz As New clsDB
|
||||
Dim dbk As New clsDB
|
||||
@@ -10,7 +12,7 @@
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
m_patientnr = value
|
||||
Refresh_Konto()
|
||||
refresh_konto()
|
||||
Refresh_Zahlungen()
|
||||
End Set
|
||||
End Property
|
||||
@@ -57,6 +59,10 @@
|
||||
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
|
||||
@@ -68,13 +74,30 @@
|
||||
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
|
||||
If chkVorauszahlung.Checked Then
|
||||
r("status") = 1
|
||||
vz = "J"
|
||||
End If
|
||||
r("statusdatum") = Now
|
||||
r("erstellt_am") = Now
|
||||
r("mutiert_am") = Now
|
||||
@@ -82,10 +105,92 @@
|
||||
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()
|
||||
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
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
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
|
||||
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
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user