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

Update 20230215

Browse Source
This commit is contained in:
Stefan Hutter
2023-02-15 21:30:27 +01:00
parent 35df876d21
commit e83b2e6f35
179 changed files with 7274 additions and 7173 deletions
Download Patch File Download Diff File Expand all files Collapse all files

144
DPM2016/Behandlung/Behandlung.Designer.vb generated
View File

@@ -75,6 +75,9 @@ Partial Class Behandlung
Me.KostenvoranschlagAbschliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.KostenvoranschlagLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SuperTabControl1 = New DevComponents.DotNetBar.SuperTabControl()
Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.STBehandlung = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel4 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.c1akonto = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
@@ -94,13 +97,8 @@ Partial Class Behandlung
Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel()
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
Me.STAkonto = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Behandungdetail1 = New DPM2016.Benhandungdetail()
Me.STBehandlung = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel2 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Leistungen1 = New DPM2016.Leistungen()
Me.STLeistung = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.tsbtnnew = New System.Windows.Forms.ToolStripButton()
@@ -161,19 +159,21 @@ Partial Class Behandlung
Me.tsamdrittemahnung = New System.Windows.Forms.ToolStripMenuItem()
Me.C1Leistungen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.Behandungdetail1 = New DPM2016.Benhandungdetail()
Me.Leistungen1 = New DPM2016.Leistungen()
Me.tsbtndelete.SuspendLayout()
Me.GroupBox1.SuspendLayout()
CType(Me.treebehandlungen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ctxmenubehandlung.SuspendLayout()
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuperTabControl1.SuspendLayout()
Me.SuperTabControlPanel1.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.SuperTabControlPanel4.SuspendLayout()
Me.GroupBox2.SuspendLayout()
CType(Me.c1akonto, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ctxmenuakonto.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
Me.SuperTabControlPanel1.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.SuperTabControlPanel2.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.tsbtnbehandlungdelete.SuspendLayout()
@@ -188,7 +188,7 @@ Partial Class Behandlung
Me.tsbtndelete.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnnewbehandlung, Me.tsbtndeletebehandlung, Me.ToolStripButton2})
Me.tsbtndelete.Location = New System.Drawing.Point(0, 0)
Me.tsbtndelete.Name = "tsbtndelete"
Me.tsbtndelete.Size = New System.Drawing.Size(1713, 27)
Me.tsbtndelete.Size = New System.Drawing.Size(1713, 31)
Me.tsbtndelete.TabIndex = 1
Me.tsbtndelete.Text = "ToolStrip1"
'
@@ -198,7 +198,7 @@ Partial Class Behandlung
Me.tsbtnnewbehandlung.Image = CType(resources.GetObject("tsbtnnewbehandlung.Image"), System.Drawing.Image)
Me.tsbtnnewbehandlung.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnnewbehandlung.Name = "tsbtnnewbehandlung"
Me.tsbtnnewbehandlung.Size = New System.Drawing.Size(29, 24)
Me.tsbtnnewbehandlung.Size = New System.Drawing.Size(29, 28)
Me.tsbtnnewbehandlung.Text = "Neue Behandlung"
'
'tsbtndeletebehandlung
@@ -207,7 +207,7 @@ Partial Class Behandlung
Me.tsbtndeletebehandlung.Image = CType(resources.GetObject("tsbtndeletebehandlung.Image"), System.Drawing.Image)
Me.tsbtndeletebehandlung.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtndeletebehandlung.Name = "tsbtndeletebehandlung"
Me.tsbtndeletebehandlung.Size = New System.Drawing.Size(29, 24)
Me.tsbtndeletebehandlung.Size = New System.Drawing.Size(29, 28)
Me.tsbtndeletebehandlung.Text = "Behandlung löschen"
'
'ToolStripButton2
@@ -216,18 +216,18 @@ Partial Class Behandlung
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(29, 24)
Me.ToolStripButton2.Size = New System.Drawing.Size(29, 28)
Me.ToolStripButton2.Text = "Aktualisieren"
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.treebehandlungen)
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Left
Me.GroupBox1.Location = New System.Drawing.Point(0, 27)
Me.GroupBox1.Location = New System.Drawing.Point(0, 31)
Me.GroupBox1.Margin = New System.Windows.Forms.Padding(4)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Padding = New System.Windows.Forms.Padding(4)
Me.GroupBox1.Size = New System.Drawing.Size(273, 1004)
Me.GroupBox1.Size = New System.Drawing.Size(273, 1000)
Me.GroupBox1.TabIndex = 2
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Behandlungen"
@@ -256,7 +256,7 @@ Partial Class Behandlung
Me.treebehandlungen.NodesConnector = Me.NodeConnector1
Me.treebehandlungen.NodeStyle = Me.ElementStyle1
Me.treebehandlungen.PathSeparator = ";"
Me.treebehandlungen.Size = New System.Drawing.Size(265, 981)
Me.treebehandlungen.Size = New System.Drawing.Size(265, 977)
Me.treebehandlungen.Styles.Add(Me.ElementStyle1)
Me.treebehandlungen.TabIndex = 0
Me.treebehandlungen.Text = "AdvTree1"
@@ -541,18 +541,45 @@ Partial Class Behandlung
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
Me.SuperTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControl1.Location = New System.Drawing.Point(273, 27)
Me.SuperTabControl1.Location = New System.Drawing.Point(273, 31)
Me.SuperTabControl1.Margin = New System.Windows.Forms.Padding(4)
Me.SuperTabControl1.Name = "SuperTabControl1"
Me.SuperTabControl1.ReorderTabsEnabled = True
Me.SuperTabControl1.SelectedTabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
Me.SuperTabControl1.SelectedTabIndex = 0
Me.SuperTabControl1.Size = New System.Drawing.Size(1440, 1004)
Me.SuperTabControl1.Size = New System.Drawing.Size(1440, 1000)
Me.SuperTabControl1.TabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SuperTabControl1.TabIndex = 9
Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.STBehandlung, Me.STLeistung, Me.STAkonto})
Me.SuperTabControl1.Text = "Rechnungstext"
'
'SuperTabControlPanel1
'
Me.SuperTabControlPanel1.Controls.Add(Me.Panel2)
Me.SuperTabControlPanel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel1.Location = New System.Drawing.Point(0, 28)
Me.SuperTabControlPanel1.Margin = New System.Windows.Forms.Padding(4)
Me.SuperTabControlPanel1.Name = "SuperTabControlPanel1"
Me.SuperTabControlPanel1.Size = New System.Drawing.Size(1440, 972)
Me.SuperTabControlPanel1.TabIndex = 1
Me.SuperTabControlPanel1.TabItem = Me.STBehandlung
'
'Panel2
'
Me.Panel2.Controls.Add(Me.Behandungdetail1)
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Margin = New System.Windows.Forms.Padding(4)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(1416, 970)
Me.Panel2.TabIndex = 9
'
'STBehandlung
'
Me.STBehandlung.AttachedControl = Me.SuperTabControlPanel1
Me.STBehandlung.GlobalItem = False
Me.STBehandlung.Name = "STBehandlung"
Me.STBehandlung.Text = "Behandlung"
'
'SuperTabControlPanel4
'
Me.SuperTabControlPanel4.Controls.Add(Me.GroupBox2)
@@ -705,45 +732,6 @@ Partial Class Behandlung
Me.STAkonto.Name = "STAkonto"
Me.STAkonto.Text = "Akonto"
'
'SuperTabControlPanel1
'
Me.SuperTabControlPanel1.Controls.Add(Me.Panel2)
Me.SuperTabControlPanel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel1.Location = New System.Drawing.Point(0, 28)
Me.SuperTabControlPanel1.Margin = New System.Windows.Forms.Padding(4)
Me.SuperTabControlPanel1.Name = "SuperTabControlPanel1"
Me.SuperTabControlPanel1.Size = New System.Drawing.Size(1440, 976)
Me.SuperTabControlPanel1.TabIndex = 1
Me.SuperTabControlPanel1.TabItem = Me.STBehandlung
'
'Panel2
'
Me.Panel2.Controls.Add(Me.Behandungdetail1)
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Margin = New System.Windows.Forms.Padding(4)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(1416, 970)
Me.Panel2.TabIndex = 9
'
'Behandungdetail1
'
Me.Behandungdetail1.Behandlungsnr = 0
Me.Behandungdetail1.Behandlungsstatus = 0
Me.Behandungdetail1.HasChanges = False
Me.Behandungdetail1.Location = New System.Drawing.Point(4, 7)
Me.Behandungdetail1.Margin = New System.Windows.Forms.Padding(5)
Me.Behandungdetail1.Name = "Behandungdetail1"
Me.Behandungdetail1.Patientnr = 0
Me.Behandungdetail1.Size = New System.Drawing.Size(1412, 959)
Me.Behandungdetail1.TabIndex = 0
'
'STBehandlung
'
Me.STBehandlung.AttachedControl = Me.SuperTabControlPanel1
Me.STBehandlung.GlobalItem = False
Me.STBehandlung.Name = "STBehandlung"
Me.STBehandlung.Text = "Behandlung"
'
'SuperTabControlPanel2
'
Me.SuperTabControlPanel2.Controls.Add(Me.Panel1)
@@ -765,20 +753,6 @@ Partial Class Behandlung
Me.Panel1.Size = New System.Drawing.Size(1440, 972)
Me.Panel1.TabIndex = 1
'
'Leistungen1
'
Me.Leistungen1.behandler = 0
Me.Leistungen1.Behandlungnr = 0
Me.Leistungen1.Behandlungsstatus = 0
Me.Leistungen1.Dentotar = False
Me.Leistungen1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Leistungen1.Frankenwert = 0R
Me.Leistungen1.Location = New System.Drawing.Point(0, 0)
Me.Leistungen1.Margin = New System.Windows.Forms.Padding(5)
Me.Leistungen1.Name = "Leistungen1"
Me.Leistungen1.Size = New System.Drawing.Size(1440, 972)
Me.Leistungen1.TabIndex = 0
'
'STLeistung
'
Me.STLeistung.AttachedControl = Me.SuperTabControlPanel2
@@ -792,7 +766,7 @@ Partial Class Behandlung
Me.SuperTabControlPanel3.Location = New System.Drawing.Point(0, 0)
Me.SuperTabControlPanel3.Margin = New System.Windows.Forms.Padding(4)
Me.SuperTabControlPanel3.Name = "SuperTabControlPanel3"
Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1440, 1004)
Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1440, 1000)
Me.SuperTabControlPanel3.TabIndex = 0
'
'tsbtnnew
@@ -1167,6 +1141,32 @@ Partial Class Behandlung
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
'
'Behandungdetail1
'
Me.Behandungdetail1.Behandlungsnr = 0
Me.Behandungdetail1.Behandlungsstatus = 0
Me.Behandungdetail1.HasChanges = False
Me.Behandungdetail1.Location = New System.Drawing.Point(4, 7)
Me.Behandungdetail1.Margin = New System.Windows.Forms.Padding(5)
Me.Behandungdetail1.Name = "Behandungdetail1"
Me.Behandungdetail1.Patientnr = 0
Me.Behandungdetail1.Size = New System.Drawing.Size(1412, 959)
Me.Behandungdetail1.TabIndex = 0
'
'Leistungen1
'
Me.Leistungen1.behandler = 0
Me.Leistungen1.Behandlungnr = 0
Me.Leistungen1.Behandlungsstatus = 0
Me.Leistungen1.Dentotar = False
Me.Leistungen1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Leistungen1.Frankenwert = 0R
Me.Leistungen1.Location = New System.Drawing.Point(0, 0)
Me.Leistungen1.Margin = New System.Windows.Forms.Padding(5)
Me.Leistungen1.Name = "Leistungen1"
Me.Leistungen1.Size = New System.Drawing.Size(1440, 972)
Me.Leistungen1.TabIndex = 0
'
'Behandlung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
@@ -1184,6 +1184,8 @@ Partial Class Behandlung
Me.ctxmenubehandlung.ResumeLayout(False)
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SuperTabControl1.ResumeLayout(False)
Me.SuperTabControlPanel1.ResumeLayout(False)
Me.Panel2.ResumeLayout(False)
Me.SuperTabControlPanel4.ResumeLayout(False)
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout()
@@ -1191,8 +1193,6 @@ Partial Class Behandlung
Me.ctxmenuakonto.ResumeLayout(False)
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.SuperTabControlPanel1.ResumeLayout(False)
Me.Panel2.ResumeLayout(False)
Me.SuperTabControlPanel2.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.tsbtnbehandlungdelete.ResumeLayout(False)

6
DPM2016/Behandlung/Behandlung.resx
View File

@@ -236,7 +236,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABO
DQAAAk1TRnQBSQFMAgEBBQEAAaABBgGgAQYBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
DQAAAk1TRnQBSQFMAgEBBQEAAbABBgGwAQYBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -338,7 +338,7 @@
</value>
</data>
<data name="c1akonto.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{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" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="21" DefRecSelWidth="21" 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, 1363, 444&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;21&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 1363, 444&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{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" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="21" DefRecSelWidth="21" 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, 1363, 444&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;21&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 1363, 444&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>662, 17</value>
@@ -509,7 +509,7 @@
</value>
</data>
<data name="C1Leistungen.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;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Style4{}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{}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}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="21" DefRecSelWidth="21" 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, 1363, 444&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;21&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 1363, 444&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;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Style4{}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{}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}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="21" DefRecSelWidth="21" 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, 1363, 444&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;21&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 1363, 444&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>950, 17</value>

21
DPM2016/Behandlung/Behandlung.vb
View File

@@ -380,15 +380,18 @@ Public Class Behandlung
End Sub
Sub enable_disable_tabs(ByVal enable As Boolean)
Me.SuperTabControl1.Tabs(1).Enabled = enable
Me.SuperTabControl1.Tabs(0).Enabled = enable
Me.SuperTabControl1.Visible = enable
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
Me.SuperTabControl1.Tabs(0).Text = "Projekt"
Else
Me.SuperTabControl1.Tabs(2).Visible = False
End If
'Me.SuperTabControl1.Tabs(0).Focus()
Try
Me.SuperTabControl1.Tabs(1).Enabled = enable
Me.SuperTabControl1.Tabs(0).Enabled = enable
Me.SuperTabControl1.Visible = enable
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
Me.SuperTabControl1.Tabs(0).Text = "Projekt"
Else
Me.SuperTabControl1.Tabs(2).Visible = False
End If
'Me.SuperTabControl1.Tabs(0).Focus()
Catch
End Try
End Sub

640
DPM2016/Behandlung/clsFakturaFunktionen.vb
View File

@@ -1,319 +1,321 @@
Public Class clsFakturaFunktionen
Public Sub Vorschau_Rechnung(ByVal nrbehandlung As String)
Dim db As New clsDB
Dim db1 As New clsDB
Dim anzahlraten As Integer = 0
'db.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.Behandlungsnr.ToString)
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + nrbehandlung)
db1.Get_Tabledata("estyp", "where nrestyp=" + db.dsDaten.Tables(0).Rows(0).Item("nrestyp").ToString)
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
If anzahlraten = 0 Then anzahlraten = 1
Dim reportnr As Integer
reportnr = db.Get_ReportNr(db1.dsDaten.Tables(0).Rows(0).Item("estyp"))
Dim Folgeauswertung As Integer
Dim Separater_Druckjob As Boolean
Dim doloop As Boolean = True
db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
While doloop = True
For i As Integer = 1 To anzahlraten
' Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + Me.Behandlungsnr.ToString, Me.Behandlungsnr.ToString)
Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
f.Show()
f.Print_Rechnung(True, False, i)
If anzahlraten > 1 And i < 2 And Folgeauswertung > 0 Then
reportnr = Folgeauswertung
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Dim f1 As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
f1.Show()
f1.Print_Rechnung(True, False, i)
reportnr = db.Get_ReportNr(db1.dsDaten.Tables(0).Rows(0).Item("estyp"))
End If
Next i
If Folgeauswertung > 0 And anzahlraten < 2 Then
reportnr = Folgeauswertung
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Else
doloop = False
End If
End While
End Sub
Public Sub Rechnungskopie(ByVal nrbehandlung As String, Optional preview As Boolean = False, Optional asPDF As Boolean = False, Optional PerMail As Boolean = False)
Globals.pdfCollection.Clear()
Dim db As New clsDB
Dim db1 As New clsDB
Dim db2 As New clsDB
Globals.RGCollection.Clear()
Dim anzahlraten As Integer = 0
Dim Empfaenger As String = ""
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + nrbehandlung)
Dim behandlungsnr As Integer = db.dsDaten.Tables(0).Rows(0).Item("nrbehandlung")
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
Empfaenger = db.dsDaten.Tables(0).Rows(0).Item("Empfaenger")
If anzahlraten = 0 Then anzahlraten = 1
db.Get_Tabledata("estyp", "where nrestyp=" + db.dsDaten.Tables(0).Rows(0).Item("nrestyp").ToString)
Dim reportnr As Integer
Dim ReportNrOriginal As Integer
reportnr = db.Get_ReportNr(db.dsDaten.Tables(0).Rows(0).Item("estyp"))
ReportNrOriginal = reportnr
Dim fakturanr As Integer
Try
db2.Get_Tabledata("Faktura", "", "Select top 10 nrfaktura from faktura where nrbehandlung=" + behandlungsnr.ToString + " and status <> 9 order by erstellt_am asc ")
fakturanr = db2.dsDaten.Tables(0).Rows(0).Item(0)
Catch
fakturanr = 0
End Try
Globals.FakturaNr = fakturanr
Dim Folgeauswertung As Integer
Dim Separater_Druckjob As Boolean
Dim doloop As Boolean = True
db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Dim hauptfaktura As Integer
While doloop = True
For i As Integer = 1 To anzahlraten
fakturanr = db2.dsDaten.Tables(0).Rows(i - 1).Item(0)
Globals.FakturaNr = fakturanr
If i = 1 And Empfaenger <> "" Then
Dim f0 As New frmReportView(9999, False, "Vorschau Rechung", " where nrbehandlung = " + nrbehandlung.ToString, nrbehandlung.ToString, asPDF)
f0.Visible = False
f0.Show()
f0.Visible = False
f0.Fakturierung(9999, nrbehandlung, "", i, buchen:=False)
f0.Close()
Globals.FakturaNr = 0
End If
Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + behandlungsnr.ToString, behandlungsnr.ToString, asPDF)
If Not preview Then f.Visible = False Else f.Visible = True
If fakturanr = 0 Then
If preview Then
f.Fakturierung_Vorschau(reportnr, behandlungsnr, "", i, 1, fakturanr)
Else
f.Fakturierung(reportnr, behandlungsnr, "", i, 1, fakturanr)
End If
Else
If preview Then
f.Fakturierung_Vorschau(reportnr, behandlungsnr, "", i, 1, fakturanr)
Else
f.Fakturierung(reportnr, behandlungsnr, "", i, 1, fakturanr)
End If
End If
If Not preview Then f.Close()
If anzahlraten > 1 And i < 2 And Folgeauswertung > 0 Then
reportnr = Folgeauswertung
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Dim f1 As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + behandlungsnr.ToString, behandlungsnr.ToString, asPDF)
f1.Visible = False
f1.Show()
f1.Fakturierung(reportnr, behandlungsnr, "", i, 1, fakturanr)
f1.Close()
reportnr = ReportNrOriginal
'fakturanr = fakturanr - 1
End If
'fakturanr = fakturanr + 1
Next i
If Folgeauswertung > 0 And anzahlraten < 2 Then
reportnr = Folgeauswertung
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Else
doloop = False
End If
End While
If preview = False Then
Dim pdfh As New clspdfhelper
pdfh.HandlePDF(asPDF, PerMail, 2, clsMailClient.EmpfangerFrom.Behandlung, nrbehandlung)
End If
End Sub
Public Sub Mahnung(ByVal Fakturanr As String, ByVal Stufe As Integer, Optional Preview As Boolean = False, Optional Design As Boolean = False, Optional asPDF As Boolean = False, Optional perMail As Boolean = False)
Globals.pdfCollection.Clear()
Dim db As New clsDB
Dim db1 As New clsDB
Dim anzahlraten As Integer = 0
Dim Behandlungsnr As Integer
Dim Empfaenger As String = ""
db.Get_Tabledata("Faktura", "", "Select nrbehandlung from faktura where nrfaktura=" + Fakturanr)
Behandlungsnr = db.dsDaten.Tables(0).Rows(0).Item("nrbehandlung")
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + db.dsDaten.Tables(0).Rows(0).Item("nrbehandlung").ToString)
db1.Get_Tabledata("estyp", "where nrestyp=" + db.dsDaten.Tables(0).Rows(0).Item("nrestyp").ToString)
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
Empfaenger = db.dsDaten.Tables(0).Rows(0).Item("Empfaenger")
If anzahlraten = 0 Then anzahlraten = 1
Dim reportnr As Integer
reportnr = db.Get_ReportNr(db1.dsDaten.Tables(0).Rows(0).Item("estyp"))
reportnr = db1.dsDaten.Tables(0).Rows(0).Item("mahnnummer") + Stufe
Globals.FakturaNr = 0
Dim Folgeauswertung As Integer
Dim Separater_Druckjob As Boolean
Dim doloop As Boolean = True
db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Dim hauptfaktura As Integer
Dim buchen As Boolean = False
If Preview = False And Design = False Then buchen = True
While doloop = True
For i As Integer = 1 To anzahlraten
If i = 1 And Empfaenger <> "" Then
Dim f0 As New frmReportView(9999, False, "Vorschau Rechung", " where nrbehandlung = " + Behandlungsnr.ToString, Behandlungsnr.ToString)
f0.Visible = False
f0.Show()
f0.Visible = False
f0.Fakturierung(9999, Behandlungsnr.ToString, "", i, buchen:=False)
f0.Close()
Globals.FakturaNr = 0
End If
Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + Behandlungsnr.ToString, Behandlungsnr.ToString)
f.Visible = False
f.Show()
If Not Preview And Not Design Then f.Visible = False
f.Mahnungg(Stufe, reportnr, Behandlungsnr, "", i, True, Fakturanr, buchen, Preview, Design)
If Not Preview Then f.Close()
If Design Then f.Close()
If anzahlraten > 1 And i < 2 And Folgeauswertung > 0 Then
reportnr = Folgeauswertung
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Dim f1 As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + Behandlungsnr.ToString, Behandlungsnr.ToString)
f1.Visible = False
f1.Show()
If Not Preview And Not Design Then f1.Visible = False
f1.Mahnungg(Stufe, reportnr, Behandlungsnr, "", i, True, Fakturanr, buchen, Preview, Design)
f1.Close()
reportnr = db.Get_ReportNr(db1.dsDaten.Tables(0).Rows(0).Item("estyp"))
reportnr = db1.dsDaten.Tables(0).Rows(0).Item("mahnnummer") + Stufe
End If
Next i
If Folgeauswertung > 0 And anzahlraten < 2 Then
reportnr = Folgeauswertung
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Else
doloop = False
End If
End While
If Preview = False And Design = False Then
Dim pdfh As New clspdfhelper
pdfh.Create_Archivdoc(clspdfhelper.GetEmpfaengerType.FromFaktura, Fakturanr, "Mahnung:")
pdfh = Nothing
End If
Globals.pdfCollection.Clear()
End Sub
Public Sub Offerte_Auftragsbestaegitigung_Lieferschein(ByVal nrbehandlung As String, ByVal typ As Integer, ByVal PDFHandling As Integer, ByVal archivdoc As Boolean, ByVal fromtype As clspdfhelper.GetEmpfaengerType)
Dim pdfh As New clspdfhelper
Dim db As New clsDB
Dim db1 As New clsDB
Dim anzahlraten As Integer = 0
'db.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.Behandlungsnr.ToString)
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + nrbehandlung)
db1.Get_Tabledata("estyp", "where nrestyp=" + db.dsDaten.Tables(0).Rows(0).Item("nrestyp").ToString)
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
If anzahlraten = 0 Then anzahlraten = 1
Dim reportnr As Integer
Dim Doktype As String
Dim MAILTEXTNR As Integer
Select Case typ
Case 1
Doktype = "Offerte"
MAILTEXTNR = 3
reportnr = db.Get_ReportNr("Offerte")
Case 2
Doktype = "Auftragsbestätigung"
MAILTEXTNR = 4
reportnr = db.Get_ReportNr("Offerte")
Case 3
MAILTEXTNR = 5
Doktype = "Lieferschein"
reportnr = db.Get_ReportNr("Offerte")
End Select
Dim Folgeauswertung As Integer
Dim Separater_Druckjob As Boolean
Dim doloop As Boolean = True
db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Select Case PDFHandling
Case 0
Dim f As New frmReportView(reportnr, False, "Vorschau ", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
f.Show()
f.Print_Rechnung(True, False, 1, 0, 0, Doktype)
Case 1
Dim f As New frmReportView(reportnr, False, "PDF ", " where nrbehandlung = " + nrbehandlung, nrbehandlung, True)
f.Visible = False
f.Print_Rechnung(False, False, 1, 0, 0, Doktype)
pdfh.Create_Archivdoc(fromtype, "", "Lieferschein:", nrbehandlung)
Case 2
Dim f As New frmReportView(reportnr, False, "PDF/Mail ", " where nrbehandlung = " + nrbehandlung, nrbehandlung, True)
f.Visible = False
f.Print_Rechnung(False, False, 1, 0, 0, Doktype)
pdfh.Create_Archivdoc(fromtype, "", "Auftragsbestätigung:", nrbehandlung)
Case 3
Dim f As New frmReportView(reportnr, False, "Druck ", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
f.Visible = False
f.Show()
f.Print_Rechnung(False, False, 1, 0, 0, Doktype)
f.Close()
pdfh.Create_Archivdoc(fromtype, "", "Lieferschein:", nrbehandlung)
Case 4
Dim f As New frmReportView(reportnr, False, "Vorschau ", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
f.Show()
f.Print_Rechnung(False, True, 1, 0, 0, Doktype)
f.Close()
End Select
Dim asPDF As Boolean = False
Dim PerMail As Boolean = False
Select Case PDFHandling
Case 1
pdfh.HandlePDF(True, False, MAILTEXTNR, clsMailClient.EmpfangerFrom.Behandlung, nrbehandlung)
Case 2
pdfh.HandlePDF(True, True, MAILTEXTNR, clsMailClient.EmpfangerFrom.Behandlung, nrbehandlung)
End Select
End Sub
End Class
Public Class clsFakturaFunktionen
Public Sub Vorschau_Rechnung(ByVal nrbehandlung As String)
Dim db As New clsDB
Dim db1 As New clsDB
Dim anzahlraten As Integer = 0
'db.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.Behandlungsnr.ToString)
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + nrbehandlung)
db1.Get_Tabledata("estyp", "where nrestyp=" + db.dsDaten.Tables(0).Rows(0).Item("nrestyp").ToString)
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
If anzahlraten = 0 Then anzahlraten = 1
Dim reportnr As Integer
reportnr = db.Get_ReportNr(db1.dsDaten.Tables(0).Rows(0).Item("estyp"))
Dim Folgeauswertung As Integer
Dim Separater_Druckjob As Boolean
Dim doloop As Boolean = True
db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
While doloop = True
For i As Integer = 1 To anzahlraten
' Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + Me.Behandlungsnr.ToString, Me.Behandlungsnr.ToString)
Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
f.Show()
f.Print_Rechnung(True, False, i)
If anzahlraten > 1 And i < 2 And Folgeauswertung > 0 Then
reportnr = Folgeauswertung
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Dim f1 As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
f1.Show()
f1.Print_Rechnung(True, False, i)
reportnr = db.Get_ReportNr(db1.dsDaten.Tables(0).Rows(0).Item("estyp"))
End If
Next i
If Folgeauswertung > 0 And anzahlraten < 2 Then
reportnr = Folgeauswertung
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Else
doloop = False
End If
End While
End Sub
Public Sub Rechnungskopie(ByVal nrbehandlung As String, Optional preview As Boolean = False, Optional asPDF As Boolean = False, Optional PerMail As Boolean = False)
Globals.pdfCollection.Clear()
Dim db As New clsDB
Dim db1 As New clsDB
Dim db2 As New clsDB
Globals.RGCollection.Clear()
Dim anzahlraten As Integer = 0
Dim Empfaenger As String = ""
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + nrbehandlung)
Dim behandlungsnr As Integer = db.dsDaten.Tables(0).Rows(0).Item("nrbehandlung")
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
Empfaenger = db.dsDaten.Tables(0).Rows(0).Item("Empfaenger")
If anzahlraten = 0 Then anzahlraten = 1
db.Get_Tabledata("estyp", "where nrestyp=" + db.dsDaten.Tables(0).Rows(0).Item("nrestyp").ToString)
Dim reportnr As Integer
Dim ReportNrOriginal As Integer
reportnr = db.Get_ReportNr(db.dsDaten.Tables(0).Rows(0).Item("estyp"))
ReportNrOriginal = reportnr
Dim fakturanr As Integer
Try
db2.Get_Tabledata("Faktura", "", "Select top 10 nrfaktura from faktura where nrbehandlung=" + behandlungsnr.ToString + " and status <> 9 order by erstellt_am asc ")
fakturanr = db2.dsDaten.Tables(0).Rows(0).Item(0)
Catch
fakturanr = 0
End Try
Globals.FakturaNr = fakturanr
Dim Folgeauswertung As Integer
Dim Separater_Druckjob As Boolean
Dim doloop As Boolean = True
db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Dim hauptfaktura As Integer
While doloop = True
For i As Integer = 1 To anzahlraten
fakturanr = db2.dsDaten.Tables(0).Rows(i - 1).Item(0)
Globals.FakturaNr = fakturanr
If i = 1 And Empfaenger <> "" Then
Dim f0 As New frmReportView(9999, False, "Vorschau Rechung", " where nrbehandlung = " + nrbehandlung.ToString, nrbehandlung.ToString, asPDF)
f0.Visible = False
f0.Show()
f0.Visible = False
f0.Fakturierung(9999, nrbehandlung, "", i, buchen:=False)
f0.Close()
Globals.FakturaNr = 0
End If
Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + behandlungsnr.ToString, behandlungsnr.ToString, asPDF)
If Not preview Then f.Visible = False Else f.Visible = True
If fakturanr = 0 Then
If preview Then
f.Fakturierung_Vorschau(reportnr, behandlungsnr, "", i, 1, fakturanr)
Else
f.Fakturierung(reportnr, behandlungsnr, "", i, 1, fakturanr)
End If
Else
If preview Then
f.Fakturierung_Vorschau(reportnr, behandlungsnr, "", i, 1, fakturanr)
Else
f.Fakturierung(reportnr, behandlungsnr, "", i, 1, fakturanr)
End If
End If
If Not preview Then f.Close()
If anzahlraten > 1 And i < 2 And Folgeauswertung > 0 Then
reportnr = Folgeauswertung
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Dim f1 As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + behandlungsnr.ToString, behandlungsnr.ToString, asPDF)
f1.Visible = False
f1.Show()
f1.Fakturierung(reportnr, behandlungsnr, "", i, 1, fakturanr)
f1.Close()
reportnr = ReportNrOriginal
'fakturanr = fakturanr - 1
End If
'fakturanr = fakturanr + 1
Next i
If Folgeauswertung > 0 And anzahlraten < 2 Then
reportnr = Folgeauswertung
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Else
doloop = False
End If
End While
If preview = False Then
Dim pdfh As New clspdfhelper
pdfh.HandlePDF(asPDF, PerMail, 2, clsMailClient.EmpfangerFrom.Behandlung, nrbehandlung)
End If
End Sub
Public Sub Mahnung(ByVal Fakturanr As String, ByVal Stufe As Integer, Optional Preview As Boolean = False, Optional Design As Boolean = False, Optional asPDF As Boolean = False, Optional perMail As Boolean = False)
Globals.pdfCollection.Clear()
Dim db As New clsDB
Dim db1 As New clsDB
Dim anzahlraten As Integer = 0
Dim Behandlungsnr As Integer
Dim Empfaenger As String = ""
db.Get_Tabledata("Faktura", "", "Select nrbehandlung from faktura where nrfaktura=" + Fakturanr)
Behandlungsnr = db.dsDaten.Tables(0).Rows(0).Item("nrbehandlung")
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + db.dsDaten.Tables(0).Rows(0).Item("nrbehandlung").ToString)
db1.Get_Tabledata("estyp", "where nrestyp=" + db.dsDaten.Tables(0).Rows(0).Item("nrestyp").ToString)
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
Empfaenger = db.dsDaten.Tables(0).Rows(0).Item("Empfaenger")
If anzahlraten = 0 Then anzahlraten = 1
Dim reportnr As Integer
reportnr = db.Get_ReportNr(db1.dsDaten.Tables(0).Rows(0).Item("estyp"))
reportnr = db1.dsDaten.Tables(0).Rows(0).Item("mahnnummer") + Stufe
Globals.FakturaNr = 0
Dim Folgeauswertung As Integer
Dim Separater_Druckjob As Boolean
Dim doloop As Boolean = True
db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Dim hauptfaktura As Integer
Dim buchen As Boolean = False
If Preview = False And Design = False Then buchen = True
While doloop = True
For i As Integer = 1 To anzahlraten
If i = 1 And Empfaenger <> "" Then
Dim f0 As New frmReportView(9999, False, "Vorschau Rechung", " where nrbehandlung = " + Behandlungsnr.ToString, Behandlungsnr.ToString)
f0.Visible = False
f0.Show()
f0.Visible = False
f0.Fakturierung(9999, Behandlungsnr.ToString, "", i, buchen:=False)
f0.Close()
Globals.FakturaNr = 0
End If
Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + Behandlungsnr.ToString, Behandlungsnr.ToString)
f.Visible = False
f.Show()
If Not Preview And Not Design Then f.Visible = False
f.Mahnungg(Stufe, reportnr, Behandlungsnr, "", i, True, Fakturanr, buchen, Preview, Design, asPDF)
If Not Preview Then f.Close()
If Design Then f.Close()
If anzahlraten > 1 And i < 2 And Folgeauswertung > 0 Then
reportnr = Folgeauswertung
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Dim f1 As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + Behandlungsnr.ToString, Behandlungsnr.ToString)
f1.Visible = False
f1.Show()
If Not Preview And Not Design Then f1.Visible = False
f1.Mahnungg(Stufe, reportnr, Behandlungsnr, "", i, True, Fakturanr, buchen, Preview, Design)
f1.Close()
reportnr = db.Get_ReportNr(db1.dsDaten.Tables(0).Rows(0).Item("estyp"))
reportnr = db1.dsDaten.Tables(0).Rows(0).Item("mahnnummer") + Stufe
End If
Next i
If Folgeauswertung > 0 And anzahlraten < 2 Then
reportnr = Folgeauswertung
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Else
doloop = False
End If
End While
If Preview = False And Design = False Then
Dim pdfh As New clspdfhelper
pdfh.Create_Archivdoc(clspdfhelper.GetEmpfaengerType.FromFaktura, Fakturanr, "Mahnung:")
pdfh.HandlePDF(asPDF, False, False, clsMailClient.EmpfangerFrom.Behandlung, Fakturanr)
pdfh = Nothing
pdfh = Nothing
End If
Globals.pdfCollection.Clear()
End Sub
Public Sub Offerte_Auftragsbestaegitigung_Lieferschein(ByVal nrbehandlung As String, ByVal typ As Integer, ByVal PDFHandling As Integer, ByVal archivdoc As Boolean, ByVal fromtype As clspdfhelper.GetEmpfaengerType)
Dim pdfh As New clspdfhelper
Dim db As New clsDB
Dim db1 As New clsDB
Dim anzahlraten As Integer = 0
'db.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.Behandlungsnr.ToString)
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + nrbehandlung)
db1.Get_Tabledata("estyp", "where nrestyp=" + db.dsDaten.Tables(0).Rows(0).Item("nrestyp").ToString)
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
If anzahlraten = 0 Then anzahlraten = 1
Dim reportnr As Integer
Dim Doktype As String
Dim MAILTEXTNR As Integer
Select Case typ
Case 1
Doktype = "Offerte"
MAILTEXTNR = 3
reportnr = db.Get_ReportNr("Offerte")
Case 2
Doktype = "Auftragsbestätigung"
MAILTEXTNR = 4
reportnr = db.Get_ReportNr("Offerte")
Case 3
MAILTEXTNR = 5
Doktype = "Lieferschein"
reportnr = db.Get_ReportNr("Offerte")
End Select
Dim Folgeauswertung As Integer
Dim Separater_Druckjob As Boolean
Dim doloop As Boolean = True
db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Select Case PDFHandling
Case 0
Dim f As New frmReportView(reportnr, False, "Vorschau ", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
f.Show()
f.Print_Rechnung(True, False, 1, 0, 0, Doktype)
Case 1
Dim f As New frmReportView(reportnr, False, "PDF ", " where nrbehandlung = " + nrbehandlung, nrbehandlung, True)
f.Visible = False
f.Print_Rechnung(False, False, 1, 0, 0, Doktype)
pdfh.Create_Archivdoc(fromtype, "", "Lieferschein:", nrbehandlung)
Case 2
Dim f As New frmReportView(reportnr, False, "PDF/Mail ", " where nrbehandlung = " + nrbehandlung, nrbehandlung, True)
f.Visible = False
f.Print_Rechnung(False, False, 1, 0, 0, Doktype)
pdfh.Create_Archivdoc(fromtype, "", "Auftragsbestätigung:", nrbehandlung)
Case 3
Dim f As New frmReportView(reportnr, False, "Druck ", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
f.Visible = False
f.Show()
f.Print_Rechnung(False, False, 1, 0, 0, Doktype)
f.Close()
pdfh.Create_Archivdoc(fromtype, "", "Lieferschein:", nrbehandlung)
Case 4
Dim f As New frmReportView(reportnr, False, "Vorschau ", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
f.Show()
f.Print_Rechnung(False, True, 1, 0, 0, Doktype)
f.Close()
End Select
Dim asPDF As Boolean = False
Dim PerMail As Boolean = False
Select Case PDFHandling
Case 1
pdfh.HandlePDF(True, False, MAILTEXTNR, clsMailClient.EmpfangerFrom.Behandlung, nrbehandlung)
Case 2
pdfh.HandlePDF(True, True, MAILTEXTNR, clsMailClient.EmpfangerFrom.Behandlung, nrbehandlung)
End Select
End Sub
End Class