Update 20230215

master
Stefan Hutter 3 years ago
parent 35df876d21
commit e83b2e6f35

Binary file not shown.

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

@ -236,7 +236,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABO ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABO
DQAAAk1TRnQBSQFMAgEBBQEAAaABBgGgAQYBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo DQAAAk1TRnQBSQFMAgEBBQEAAbABBgGwAQYBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@ -338,7 +338,7 @@
</value> </value>
</data> </data>
<data name="c1akonto.PropBag" xml:space="preserve"> <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> </data>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>662, 17</value> <value>662, 17</value>
@ -509,7 +509,7 @@
</value> </value>
</data> </data>
<data name="C1Leistungen.PropBag" xml:space="preserve"> <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> </data>
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>950, 17</value> <value>950, 17</value>

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

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

@ -8,7 +8,7 @@
<OutputType>WinExe</OutputType> <OutputType>WinExe</OutputType>
<StartupObject>DPM2016.Program</StartupObject> <StartupObject>DPM2016.Program</StartupObject>
<RootNamespace>DPM2016</RootNamespace> <RootNamespace>DPM2016</RootNamespace>
<AssemblyName>PADM</AssemblyName> <AssemblyName>DPM</AssemblyName>
<FileAlignment>512</FileAlignment> <FileAlignment>512</FileAlignment>
<MyType>WindowsFormsWithCustomSubMain</MyType> <MyType>WindowsFormsWithCustomSubMain</MyType>
<TargetFrameworkVersion>v4.6</TargetFrameworkVersion> <TargetFrameworkVersion>v4.6</TargetFrameworkVersion>
@ -37,7 +37,7 @@
<DefineDebug>true</DefineDebug> <DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace> <DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath> <OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>PADM.xml</DocumentationFile> <DocumentationFile>DPM.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn> <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<Prefer32Bit>false</Prefer32Bit> <Prefer32Bit>false</Prefer32Bit>
</PropertyGroup> </PropertyGroup>
@ -48,7 +48,7 @@
<DefineTrace>true</DefineTrace> <DefineTrace>true</DefineTrace>
<Optimize>true</Optimize> <Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath> <OutputPath>bin\Release\</OutputPath>
<DocumentationFile>PADM.xml</DocumentationFile> <DocumentationFile>DPM.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn> <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<Prefer32Bit>false</Prefer32Bit> <Prefer32Bit>false</Prefer32Bit>
</PropertyGroup> </PropertyGroup>
@ -65,7 +65,7 @@
<OptionInfer>On</OptionInfer> <OptionInfer>On</OptionInfer>
</PropertyGroup> </PropertyGroup>
<PropertyGroup> <PropertyGroup>
<ApplicationIcon>PADM.ico</ApplicationIcon> <ApplicationIcon>DPMNeu.ico</ApplicationIcon>
</PropertyGroup> </PropertyGroup>
<PropertyGroup> <PropertyGroup>
<ApplicationManifest>My Project\app.manifest</ApplicationManifest> <ApplicationManifest>My Project\app.manifest</ApplicationManifest>

@ -893,7 +893,7 @@ Public Class clsDB
Dim faelligkeit As Date Dim faelligkeit As Date
Dim mahngebuehr As Double Dim mahngebuehr As Double
mahndatum = daten.Rows(0).Item("Mahndatum") mahndatum = Now()
faelligkeit = daten.Rows(0).Item("Mahnfaelligkeit") faelligkeit = daten.Rows(0).Item("Mahnfaelligkeit")
mahngebuehr = daten.Rows(0).Item("mahnzuschlag") mahngebuehr = daten.Rows(0).Item("mahnzuschlag")
Select Case Stufe Select Case Stufe

File diff suppressed because it is too large Load Diff

@ -1,208 +1,208 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<root> <root>
<!-- <!--
Microsoft ResX Schema Microsoft ResX Schema
Version 2.0 Version 2.0
The primary goals of this format is to allow a simple XML format The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes various data types are done through the TypeConverter classes
associated with the data types. associated with the data types.
Example: Example:
... ado.net/XML headers & schema ... ... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader> <resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader> <resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader> <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader> <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data> <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data> <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64"> <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value> <value>[base64 mime encoded serialized .NET Framework object]</value>
</data> </data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value> <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment> <comment>This is a comment</comment>
</data> </data>
There are any number of "resheader" rows that contain simple There are any number of "resheader" rows that contain simple
name/value pairs. name/value pairs.
Each data row contains a name, and value. The row also contains a Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture. text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the Classes that don't support this are serialized and stored with the
mimetype set. mimetype set.
The mimetype is used for serialized objects, and tells the The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly: extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below. read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64 mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding. : and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64 mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding. : and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64 mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter : using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding. : and then encoded with base64 encoding.
--> -->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata"> <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" /> <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true"> <xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType> <xsd:complexType>
<xsd:choice maxOccurs="unbounded"> <xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata"> <xsd:element name="metadata">
<xsd:complexType> <xsd:complexType>
<xsd:sequence> <xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" /> <xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence> </xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" /> <xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" /> <xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" /> <xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" /> <xsd:attribute ref="xml:space" />
</xsd:complexType> </xsd:complexType>
</xsd:element> </xsd:element>
<xsd:element name="assembly"> <xsd:element name="assembly">
<xsd:complexType> <xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" /> <xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" /> <xsd:attribute name="name" type="xsd:string" />
</xsd:complexType> </xsd:complexType>
</xsd:element> </xsd:element>
<xsd:element name="data"> <xsd:element name="data">
<xsd:complexType> <xsd:complexType>
<xsd:sequence> <xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" /> <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" /> <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence> </xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" /> <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" /> <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" /> <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" /> <xsd:attribute ref="xml:space" />
</xsd:complexType> </xsd:complexType>
</xsd:element> </xsd:element>
<xsd:element name="resheader"> <xsd:element name="resheader">
<xsd:complexType> <xsd:complexType>
<xsd:sequence> <xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" /> <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence> </xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" /> <xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType> </xsd:complexType>
</xsd:element> </xsd:element>
</xsd:choice> </xsd:choice>
</xsd:complexType> </xsd:complexType>
</xsd:element> </xsd:element>
</xsd:schema> </xsd:schema>
<resheader name="resmimetype"> <resheader name="resmimetype">
<value>text/microsoft-resx</value> <value>text/microsoft-resx</value>
</resheader> </resheader>
<resheader name="version"> <resheader name="version">
<value>2.0</value> <value>2.0</value>
</resheader> </resheader>
<resheader name="reader"> <resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<resheader name="writer"> <resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value> <value>17, 17</value>
</metadata> </metadata>
<metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>281, 17</value> <value>281, 17</value>
</metadata> </metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <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"> <data name="C1Zahlungen.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88 YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value> </value>
</data> </data>
<data name="C1Zahlungen.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64"> <data name="C1Zahlungen.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0 AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5 emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4 ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA 9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs= ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value> </value>
</data> </data>
<data name="C1Zahlungen.PropBag" xml:space="preserve"> <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;Style11{}Style10{}Style13{}Style12{}Footer{}Style2{}Style3{}FilterBar{BackColor:Info;}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Caption{AlignHorz:Center;}Style14{}Style4{}EvenRow{BackColor:White;}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style1{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Style9{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style5{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style8{}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style6{}Style7{}Editor{}Style15{}Normal{}Style16{}&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, 551, 226&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, 551, 226&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;Style16{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style14{}Footer{}Style5{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style6{}Editor{}Style10{}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style2{}FilterBar{BackColor:Info;}&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, 735, 279&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, 735, 279&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data> </data>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>124, 17</value> <value>124, 17</value>
</metadata> </metadata>
<data name="C1OffeneRechnungen.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="C1OffeneRechnungen.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88 YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value> </value>
</data> </data>
<data name="C1OffeneRechnungen.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64"> <data name="C1OffeneRechnungen.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0 AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5 emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4 ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA 9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs= ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value> </value>
</data> </data>
<data name="C1OffeneRechnungen.PropBag" xml:space="preserve"> <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;Style11{}Style10{}Style13{}Style12{}Footer{}Style2{}Style3{}FilterBar{BackColor:Info;}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Caption{AlignHorz:Center;}Style14{}Style4{}EvenRow{BackColor:White;}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style1{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Style9{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style5{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style8{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style6{}Style7{}Editor{}Style15{}Normal{}Style16{}&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, 551, 153&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, 551, 153&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;Style16{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style14{}Footer{}Style5{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style6{}Editor{}Style10{}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style2{}FilterBar{BackColor:Info;}&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, 735, 189&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, 735, 189&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data> </data>
</root> </root>

@ -1,371 +1,371 @@
Imports C1.Win.C1TrueDBGrid Imports C1.Win.C1TrueDBGrid
Public Class Finanzen Public Class Finanzen
Dim dbz As New clsDB Dim dbz As New clsDB
Dim dbk As New clsDB Dim dbk As New clsDB
Dim spalten As New Tabellenspalte Dim spalten As New Tabellenspalte
Dim m_patientnr As Integer Dim m_patientnr As Integer
Property Patientnr As Integer Property Patientnr As Integer
Get Get
Return m_patientnr Return m_patientnr
End Get End Get
Set(value As Integer) Set(value As Integer)
m_patientnr = value m_patientnr = value
refresh_konto() refresh_konto()
Refresh_Zahlungen() Refresh_Zahlungen()
End Set End Set
End Property End Property
Dim Zahlungen As New DataTable Dim Zahlungen As New DataTable
Dim Offene_Rechnungen As New DataTable Dim Offene_Rechnungen As New DataTable
Sub Refresh_Zahlungen() Sub Refresh_Zahlungen()
Try Try
dbz.Get_Tabledata("Zahlung", "", dbz.Get_SQL(19), Me.Patientnr.ToString) dbz.Get_Tabledata("Zahlung", "", dbz.Get_SQL(19), Me.Patientnr.ToString)
Zahlungen = dbz.dsDaten.Tables(0).Copy Zahlungen = dbz.dsDaten.Tables(0).Copy
Me.C1Zahlungen.DataSource = Nothing Me.C1Zahlungen.DataSource = Nothing
Me.C1Zahlungen.DataSource = Zahlungen Me.C1Zahlungen.DataSource = Zahlungen
Me.C1Zahlungen.DataMember = dbz.dsDaten.Tables(0).TableName Me.C1Zahlungen.DataMember = dbz.dsDaten.Tables(0).TableName
spalten.Spaltentitel_aktualisieren(Me.C1Zahlungen, "Zahlungen", Zahlungen) spalten.Spaltentitel_aktualisieren(Me.C1Zahlungen, "Zahlungen", Zahlungen)
dbz.Get_Tabledata("OffeneRechnungen", "", dbz.Get_SQL(22), Me.Patientnr.ToString) dbz.Get_Tabledata("OffeneRechnungen", "", dbz.Get_SQL(22), Me.Patientnr.ToString)
Offene_Rechnungen = dbz.dsDaten.Tables(0).Copy Offene_Rechnungen = dbz.dsDaten.Tables(0).Copy
Me.C1OffeneRechnungen.DataSource = Nothing Me.C1OffeneRechnungen.DataSource = Nothing
Me.C1OffeneRechnungen.DataSource = Offene_Rechnungen Me.C1OffeneRechnungen.DataSource = Offene_Rechnungen
Me.C1OffeneRechnungen.DataMember = Offene_Rechnungen.TableName Me.C1OffeneRechnungen.DataMember = Offene_Rechnungen.TableName
spalten.Spaltentitel_aktualisieren(Me.C1OffeneRechnungen, "Offene_Rechnungen", Offene_Rechnungen) spalten.Spaltentitel_aktualisieren(Me.C1OffeneRechnungen, "Offene_Rechnungen", Offene_Rechnungen)
Me.Mahndatum1.Text = "" Me.Mahndatum1.Text = ""
Me.Mahndatum2.Text = "" Me.Mahndatum2.Text = ""
Me.Mahndatum3.Text = "" Me.Mahndatum3.Text = ""
Me.Mahnfaelligkeit1.Text = "" Me.Mahnfaelligkeit1.Text = ""
Me.Mahnfaelligkeit2.Text = "" Me.Mahnfaelligkeit2.Text = ""
Me.Mahnfaelligkeit3.Text = "" Me.Mahnfaelligkeit3.Text = ""
Me.Mahngebühr1.Text = "" Me.Mahngebühr1.Text = ""
Me.Mahngebühr2.Text = "" Me.Mahngebühr2.Text = ""
Me.Mahngebühr3.Text = "" Me.Mahngebühr3.Text = ""
Me.btnZurücksetzen1.Visible = False Me.btnZurücksetzen1.Visible = False
Me.btnzurücksetzen2.Visible = False Me.btnzurücksetzen2.Visible = False
Me.btnzurücksetzen3.Visible = False Me.btnzurücksetzen3.Visible = False
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message) MsgBox(ex.Message)
End Try End Try
End Sub End Sub
Public Sub Refresh_Data() Public Sub Refresh_Data()
refresh_konto() refresh_konto()
Refresh_Zahlungen() Refresh_Zahlungen()
Get_Mahndaten() Get_Mahndaten()
End Sub End Sub
Sub refresh_konto() Sub refresh_konto()
dbk.Get_Tabledata("Konto", "where aktiv=1 order by reihenfolge") dbk.Get_Tabledata("Konto", "where aktiv=1 order by reihenfolge")
Me.cbboxKonto.DataSource = dbk.dsDaten.Tables(0) Me.cbboxKonto.DataSource = dbk.dsDaten.Tables(0)
Me.cbboxKonto.Displaymember = "Konto" Me.cbboxKonto.Displaymember = "Konto"
Me.cbboxKonto.Valuemember = "nrkonto" Me.cbboxKonto.Valuemember = "nrkonto"
End Sub End Sub
Private Sub txtRGNummer_TextChanged(sender As Object, e As EventArgs) Handles txtRGNummer.TextChanged Private Sub txtRGNummer_TextChanged(sender As Object, e As EventArgs) Handles txtRGNummer.TextChanged
If Me.txtRGNummer.Text <> "" Then If Me.txtRGNummer.Text <> "" Then
Me.chkVorauszahlung.Checked = False Me.chkVorauszahlung.Checked = False
Me.chkVorauszahlung.Enabled = False Me.chkVorauszahlung.Enabled = False
Else Else
Me.chkVorauszahlung.Enabled = True Me.chkVorauszahlung.Enabled = True
End If End If
End Sub End Sub
Private Sub btnBuchen_Click(sender As Object, e As EventArgs) Handles btnBuchen.Click Private Sub btnBuchen_Click(sender As Object, e As EventArgs) Handles btnBuchen.Click
Dim db5 As New clsDB Dim db5 As New clsDB
Dim vz As String = "" Dim vz As String = ""
Dim Storno As String = "" Dim Storno As String = ""
Dim Debitor As Integer = 0 Dim Debitor As Integer = 0
If chkVorauszahlung.Checked = False And Me.txtRGNummer.Text = "" Then 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) MsgBox("Zahlung kann nicht verbucht werden. Entweder als Vorauszahlung oder mit gültiger Rechnungsnummer.", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
End If End If
Dim newkey As Integer = dbz.Get_DBKey("Zahlung") Dim newkey As Integer = dbz.Get_DBKey("Zahlung")
dbz.Get_Tabledata("Zahlung", "where nrzahlung=0") dbz.Get_Tabledata("Zahlung", "where nrzahlung=0")
Dim r As DataRow = dbz.dsDaten.Tables(0).NewRow Dim r As DataRow = dbz.dsDaten.Tables(0).NewRow
r("nrzahlung") = newkey r("nrzahlung") = newkey
If Me.chkVorauszahlung.Checked = True Then r("nrfaktura") = 0 Else r("nrfaktura") = txtRGNummer.Text If Me.chkVorauszahlung.Checked = True Then r("nrfaktura") = 0 Else r("nrfaktura") = txtRGNummer.Text
r("vorauszahlung") = chkVorauszahlung.Checked r("vorauszahlung") = chkVorauszahlung.Checked
r("mandant") = 1 r("mandant") = 1
If r("nrfaktura") <> 0 Then If r("nrfaktura") <> 0 Then
Try Try
db5.Get_Tabledata("Fakt", "", "Select * from faktura where nrfaktura='" + r("nrfaktura").ToString + "'") db5.Get_Tabledata("Fakt", "", "Select * from faktura where nrfaktura='" + r("nrfaktura").ToString + "'")
Debitor = db5.dsDaten.Tables(0).Rows(0).Item("nrdebitor") Debitor = db5.dsDaten.Tables(0).Rows(0).Item("nrdebitor")
Catch Catch
Debitor = 0 Debitor = 0
End Try End Try
End If End If
If Me.Patientnr <> Debitor And Debitor > 0 Then If Me.Patientnr <> Debitor And Debitor > 0 Then
r("nrdebotir") = Debitor r("nrdebotir") = Debitor
Else Else
r("nrdebitor") = Me.Patientnr r("nrdebitor") = Me.Patientnr
End If End If
r("nrdebitor") = Me.Patientnr r("nrdebitor") = Me.Patientnr
r("betrag") = Me.diBetrag.Value r("betrag") = Me.diBetrag.Value
r("nrkonto") = cbboxKonto.SelectedValue r("nrkonto") = cbboxKonto.SelectedValue
r("valuta") = Me.dtdatum.Value r("valuta") = Me.dtdatum.Value
r("nrbehandlung") = 0 r("nrbehandlung") = 0
r("status") = 0 r("status") = 0
If chkVorauszahlung.Checked Then If chkVorauszahlung.Checked Then
r("status") = 1 r("status") = 1
vz = "J" vz = "J"
End If End If
r("statusdatum") = Now r("statusdatum") = Now
r("erstellt_am") = Now r("erstellt_am") = Now
r("mutiert_am") = Now r("mutiert_am") = Now
r("mutierer") = Globals.ActUser r("mutierer") = Globals.ActUser
r("aktiv") = True r("aktiv") = True
dbz.dsDaten.Tables(0).Rows.Add(r) dbz.dsDaten.Tables(0).Rows.Add(r)
dbz.Update_Data() 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.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) db5.Exec_SQL("Update debitor set mutiert_am=getdate(),betrag=betrag-" + r("betrag").ToString + "where nrfaktura=" + r("nrfaktura").ToString)
Me.Refresh_Zahlungen() Me.Refresh_Zahlungen()
If vz = "J" Then If vz = "J" Then
If MsgBox("Vorauszahlung einer Behandlung zuweisen?", vbYesNo + vbQuestion) Then If MsgBox("Vorauszahlung einer Behandlung zuweisen?", vbYesNo + vbQuestion) Then
VorauszahlungAnBehandlungZuweisenToolStripMenuItem_Click(sender, e) VorauszahlungAnBehandlungZuweisenToolStripMenuItem_Click(sender, e)
End If End If
End If End If
End Sub End Sub
Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
End Sub End Sub
Private Sub C1OffeneRechnungen_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1OffeneRechnungen.RowColChange Private Sub C1OffeneRechnungen_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1OffeneRechnungen.RowColChange
Try Try
Me.dtdatum.Value = Now Me.dtdatum.Value = Now
Me.txtRGNummer.Text = Me.C1OffeneRechnungen.Columns("nrfaktura").Value Me.txtRGNummer.Text = Me.C1OffeneRechnungen.Columns("nrfaktura").Value
Me.diBetrag.Value = Me.C1OffeneRechnungen.Columns("Betrag").Value Me.diBetrag.Value = Me.C1OffeneRechnungen.Columns("Betrag").Value
get_mahndaten Get_Mahndaten()
Catch ex As Exception Catch ex As Exception
End Try End Try
End Sub End Sub
Sub Get_Mahndaten() Sub Get_Mahndaten()
Me.Mahndatum1.Text = "" Me.Mahndatum1.Text = ""
Me.Mahndatum2.Text = "" Me.Mahndatum2.Text = ""
Me.Mahndatum3.Text = "" Me.Mahndatum3.Text = ""
Me.Mahnfaelligkeit1.Text = "" Me.Mahnfaelligkeit1.Text = ""
Me.Mahnfaelligkeit2.Text = "" Me.Mahnfaelligkeit2.Text = ""
Me.Mahnfaelligkeit3.Text = "" Me.Mahnfaelligkeit3.Text = ""
Me.Mahngebühr1.Text = "" Me.Mahngebühr1.Text = ""
Me.Mahngebühr2.Text = "" Me.Mahngebühr2.Text = ""
Me.Mahngebühr3.Text = "" Me.Mahngebühr3.Text = ""
Me.btnZurücksetzen1.Visible = False Me.btnZurücksetzen1.Visible = False
Me.btnzurücksetzen2.Visible = False Me.btnzurücksetzen2.Visible = False
Me.btnzurücksetzen3.Visible = False Me.btnzurücksetzen3.Visible = False
Dim dd As Date Dim dd As Date
Try Try
Me.Mahndatum1.Text = ShortDate(Me.C1OffeneRechnungen.Columns("Mahndatum1").Value.ToString) Me.Mahndatum1.Text = ShortDate(Me.C1OffeneRechnungen.Columns("Mahndatum1").Value.ToString)
Me.Mahndatum2.Text = ShortDate(Me.C1OffeneRechnungen.Columns("Mahndatum2").Value.ToString) Me.Mahndatum2.Text = ShortDate(Me.C1OffeneRechnungen.Columns("Mahndatum2").Value.ToString)
Me.Mahndatum3.Text = ShortDate(Me.C1OffeneRechnungen.Columns("Mahndatum3").Value.ToString) Me.Mahndatum3.Text = ShortDate(Me.C1OffeneRechnungen.Columns("Mahndatum3").Value.ToString)
Me.Mahnfaelligkeit1.Text = ShortDate(Me.C1OffeneRechnungen.Columns("mahnfaelligkeit1").Value.ToString) Me.Mahnfaelligkeit1.Text = ShortDate(Me.C1OffeneRechnungen.Columns("mahnfaelligkeit1").Value.ToString)
Me.Mahnfaelligkeit2.Text = ShortDate(Me.C1OffeneRechnungen.Columns("mahnfaelligkeit2").Value.ToString) Me.Mahnfaelligkeit2.Text = ShortDate(Me.C1OffeneRechnungen.Columns("mahnfaelligkeit2").Value.ToString)
Me.Mahnfaelligkeit3.Text = ShortDate(Me.C1OffeneRechnungen.Columns("mahnfaelligkeit3").Value.ToString) Me.Mahnfaelligkeit3.Text = ShortDate(Me.C1OffeneRechnungen.Columns("mahnfaelligkeit3").Value.ToString)
Me.Mahngebühr1.Text = Me.C1OffeneRechnungen.Columns("mahngebuehr1").Value.ToString Me.Mahngebühr1.Text = Me.C1OffeneRechnungen.Columns("mahngebuehr1").Value.ToString
Me.Mahngebühr2.Text = Me.C1OffeneRechnungen.Columns("mahngebuehr2").Value.ToString Me.Mahngebühr2.Text = Me.C1OffeneRechnungen.Columns("mahngebuehr2").Value.ToString
Me.Mahngebühr3.Text = Me.C1OffeneRechnungen.Columns("mahngebuehr3").Value.ToString Me.Mahngebühr3.Text = Me.C1OffeneRechnungen.Columns("mahngebuehr3").Value.ToString
If Me.Mahndatum3.Text <> "" Then If Me.Mahndatum3.Text <> "" Then
Me.btnzurücksetzen3.Visible = True Me.btnzurücksetzen3.Visible = True
Else Else
If Me.Mahndatum2.Text <> "" Then If Me.Mahndatum2.Text <> "" Then
Me.btnzurücksetzen2.Visible = True Me.btnzurücksetzen2.Visible = True
Else Else
If Me.Mahndatum1.Text <> "" Then If Me.Mahndatum1.Text <> "" Then
Me.btnZurücksetzen1.Visible = True Me.btnZurücksetzen1.Visible = True
End If End If
End If End If
End If End If
Catch Catch
End Try End Try
End Sub End Sub
Function ShortDate(ByVal dd As String) As String Function ShortDate(ByVal dd As String) As String
Try Try
Dim d As Date Dim d As Date
d = dd d = dd
Return d Return d
Catch Catch
Return "" Return ""
End Try End Try
End Function End Function
Private Sub ZahlungBuchenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZahlungBuchenToolStripMenuItem.Click Private Sub ZahlungBuchenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZahlungBuchenToolStripMenuItem.Click
btnBuchen_Click(sender, e) btnBuchen_Click(sender, e)
End Sub End Sub
Private Sub ZahlungStornierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZahlungStornierenToolStripMenuItem.Click Private Sub ZahlungStornierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZahlungStornierenToolStripMenuItem.Click
If MsgBox("Zahlung stornieren?", vbYesNo + vbQuestion) <> vbYes Then Exit Sub If MsgBox("Zahlung stornieren?", vbYesNo + vbQuestion) <> vbYes Then Exit Sub
Dim fakt As New clsFakturierung Dim fakt As New clsFakturierung
fakt.Storno_Zahlung(Me.C1Zahlungen.Columns("nrzahlung").Value) fakt.Storno_Zahlung(Me.C1Zahlungen.Columns("nrzahlung").Value)
Me.Refresh_Zahlungen() Me.Refresh_Zahlungen()
End Sub End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.txtRGNummer.Text = "" Me.txtRGNummer.Text = ""
End Sub End Sub
Private Sub ContextMenuStrip2_CursorChanged(sender As Object, e As EventArgs) Handles ContextMenuStrip2.Opening 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("Zahlungsstatus").Value = "Vorauszahlung" Then
If Me.C1Zahlungen.Columns("nrbehandlung").Value = 0 Then If Me.C1Zahlungen.Columns("nrbehandlung").Value = 0 Then
VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Enabled = True VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Enabled = True
VorauszahlungVonBehandlungLösenToolStripMenuItem.Enabled = False VorauszahlungVonBehandlungLösenToolStripMenuItem.Enabled = False
Exit Sub Exit Sub
Else Else
VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Enabled = False VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Enabled = False
VorauszahlungVonBehandlungLösenToolStripMenuItem.Enabled = True VorauszahlungVonBehandlungLösenToolStripMenuItem.Enabled = True
Exit Sub Exit Sub
End If End If
Else Else
If Me.C1Zahlungen.Columns("Status").Value = 9 Then If Me.C1Zahlungen.Columns("Status").Value = 9 Then
ZahlungStornierenToolStripMenuItem.Enabled = False ZahlungStornierenToolStripMenuItem.Enabled = False
Else Else
ZahlungStornierenToolStripMenuItem.Enabled = True ZahlungStornierenToolStripMenuItem.Enabled = True
End If End If
VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Enabled = False VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Enabled = False
VorauszahlungVonBehandlungLösenToolStripMenuItem.Enabled = False VorauszahlungVonBehandlungLösenToolStripMenuItem.Enabled = False
End If End If
End Sub End Sub
Private Sub VorauszahlungAnBehandlungZuweisenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Click Private Sub VorauszahlungAnBehandlungZuweisenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Click
Dim f As New frmOffeneBehandlungen Dim f As New frmOffeneBehandlungen
f.NrPatient = Me.Patientnr f.NrPatient = Me.Patientnr
f.ShowDialog() f.ShowDialog()
If f.DialogResult = DialogResult.OK Then If f.DialogResult = DialogResult.OK Then
Dim db As New clsDB 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) db.Exec_SQL("Update zahlung set nrbehandlung=" + f.NrBehandlung.ToString + ", mutiert_am=getdate() where nrzahlung=" + Me.C1Zahlungen.Columns("nrzahlung").Value.ToString)
Me.Refresh_Zahlungen() Me.Refresh_Zahlungen()
End If End If
End Sub End Sub
Private Sub VorauszahlungVonBehandlungLösenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorauszahlungVonBehandlungLösenToolStripMenuItem.Click 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 If MsgBox("Vorauszahlung von Behandlung entfernen?", vbYesNo + vbQuestion) = vbYes Then
Dim db As New clsDB Dim db As New clsDB
db.Exec_SQL("Update zahlung set nrbehandlung=0, mutiert_am=getdate() where nrzahlung=" + Me.C1Zahlungen.Columns("nrzahlung").Value.ToString) db.Exec_SQL("Update zahlung set nrbehandlung=0, mutiert_am=getdate() where nrzahlung=" + Me.C1Zahlungen.Columns("nrzahlung").Value.ToString)
Me.Refresh_Zahlungen() Me.Refresh_Zahlungen()
End If End If
End Sub End Sub
Private Sub dtdatum_Click(sender As Object, e As EventArgs) Handles dtdatum.Click Private Sub dtdatum_Click(sender As Object, e As EventArgs) Handles dtdatum.Click
End Sub End Sub
Private Sub dtdatum_KeyDown(sender As Object, e As KeyEventArgs) Handles dtdatum.KeyDown 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.Escape Then delete_date(sender)
If e.KeyCode = Keys.Decimal Then SendKeys.SendWait("{TAB}") If e.KeyCode = Keys.Decimal Then SendKeys.SendWait("{TAB}")
End Sub End Sub
Sub delete_date(sender) Sub delete_date(sender)
sender.value = Nothing sender.value = Nothing
End Sub End Sub
Private Sub btnZurücksetzen1_Click(sender As Object, e As EventArgs) Handles btnZurücksetzen1.Click 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 If MsgBox("Mahnstufe 1 zurückseten?", vbYesNo + vbQuestion) = vbYes Then
Mahnstufe_Zurücksetzen(1) Mahnstufe_Zurücksetzen(1)
End If End If
End Sub End Sub
Private Sub btnzurücksetzen2_Click(sender As Object, e As EventArgs) Handles btnzurücksetzen2.Click 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 If MsgBox("Mahnstufe 2 zurückseten?", vbYesNo + vbQuestion) = vbYes Then
Mahnstufe_Zurücksetzen(2) Mahnstufe_Zurücksetzen(2)
End If End If
End Sub End Sub
Private Sub btnzurücksetzen3_Click(sender As Object, e As EventArgs) Handles btnzurücksetzen3.Click 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 If MsgBox("Mahnstufe 3 zurückseten?", vbYesNo + vbQuestion) = vbYes Then
Mahnstufe_Zurücksetzen(3) Mahnstufe_Zurücksetzen(3)
End If End If
End Sub End Sub
Sub Mahnstufe_Zurücksetzen(ByVal typ As Integer) Sub Mahnstufe_Zurücksetzen(ByVal typ As Integer)
Dim db As New clsDB Dim db As New clsDB
Dim sql As String Dim sql As String
Select Case typ Select Case typ
Case 1 Case 1
sql = "Exec sp_reset_mahnstufe 1," + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString sql = "Exec sp_reset_mahnstufe 1," + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
db.Exec_SQL(sql) db.Exec_SQL(sql)
Case 2 Case 2
sql = "Exec sp_reset_mahnstufe 2," + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString sql = "Exec sp_reset_mahnstufe 2," + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
db.Exec_SQL(sql) db.Exec_SQL(sql)
Case 3 Case 3
sql = "Exec sp_reset_mahnstufe 3," + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString sql = "Exec sp_reset_mahnstufe 3," + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
db.Exec_SQL(sql) db.Exec_SQL(sql)
End Select End Select
Refresh_Zahlungen() Refresh_Zahlungen()
Get_Mahndaten() Get_Mahndaten()
End Sub End Sub
Private Sub C1Zahlungen_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Zahlungen.MouseDown Private Sub C1Zahlungen_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Zahlungen.MouseDown
Me.C1Zahlungen.Bookmark = Me.C1Zahlungen.RowContaining(e.Y) Me.C1Zahlungen.Bookmark = Me.C1Zahlungen.RowContaining(e.Y)
End Sub End Sub
Private Sub C1OffeneRechnungen_MouseDown(sender As Object, e As MouseEventArgs) Handles C1OffeneRechnungen.MouseDown Private Sub C1OffeneRechnungen_MouseDown(sender As Object, e As MouseEventArgs) Handles C1OffeneRechnungen.MouseDown
Me.C1OffeneRechnungen.Bookmark = Me.C1OffeneRechnungen.RowContaining(e.Y) Me.C1OffeneRechnungen.Bookmark = Me.C1OffeneRechnungen.RowContaining(e.Y)
End Sub End Sub
Private Sub ContextMenuStrip1_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening Private Sub ContextMenuStrip1_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
Me.ErsteMahnungMenuItem.Visible = False Me.ErsteMahnungMenuItem.Visible = False
Me.ZweiteMahnungMenuItem.Visible = False Me.ZweiteMahnungMenuItem.Visible = False
Me.LetzteMahnungMenuItem.Visible = False Me.LetzteMahnungMenuItem.Visible = False
Dim db As New clsDB Dim db As New clsDB
Try Try
db.Get_Tabledata("Mahnung", "", "Select * from View_Offene_Mahnungen where nrfaktura=" + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString, "", False) db.Get_Tabledata("Mahnung", "", "Select * from View_Offene_Mahnungen where nrfaktura=" + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString, "", False)
If DB.dsDaten.Tables(0).Rows.Count > 0 Then If db.dsDaten.Tables(0).Rows.Count > 0 Then
Select Case DB.dsDaten.Tables(0).Rows(0).Item("Mahnstufe") Select Case db.dsDaten.Tables(0).Rows(0).Item("Mahnstufe")
Case 1 Case 1
ErsteMahnungMenuItem.Visible = True ErsteMahnungMenuItem.Visible = True
Case 2 Case 2
ZweiteMahnungMenuItem.Visible = True ZweiteMahnungMenuItem.Visible = True
Case 3 Case 3
LetzteMahnungMenuItem.Visible = True LetzteMahnungMenuItem.Visible = True
End Select End Select
Else Else
End If End If
Catch Catch
End Try End Try
End Sub End Sub
Private Sub DruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ErsteMahnungMenuItem.Click, ZweiteMahnungMenuItem.Click, LetzteMahnungMenuItem.Click Private Sub DruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ErsteMahnungMenuItem.Click, ZweiteMahnungMenuItem.Click, LetzteMahnungMenuItem.Click
Try Try
Select Case sender.name Select Case sender.name
Case "ErsteMahnungMenuItem" Case "ErsteMahnungMenuItem"
Dim s As String = Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString Dim s As String = Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
Globals.Rg_Funktionen.Mahnung(s, 1, False, False) Globals.Rg_Funktionen.Mahnung(s, 1, False, False, True)
Refresh_Data() Refresh_Data()
Case "ZweiteMahnungMenuItem" Case "ZweiteMahnungMenuItem"
Dim s As String = Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString Dim s As String = Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
Globals.Rg_Funktionen.Mahnung(s, 2, False, False) Globals.Rg_Funktionen.Mahnung(s, 2, False, False, True)
Refresh_Data() Refresh_Data()
Case "LetzteMahnungMenuItem" Case "LetzteMahnungMenuItem"
Dim s As String = Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString Dim s As String = Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
Globals.Rg_Funktionen.Mahnung(s, 3, False, False) Globals.Rg_Funktionen.Mahnung(s, 3, False, False, True)
Refresh_Data() Refresh_Data()
End Select End Select
Catch ex As Exception Catch ex As Exception
End Try End Try
End Sub End Sub
End Class End Class

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

@ -1,360 +1,364 @@
Public Class Patient Public Class Patient
Dim m_nrpatient As Integer Dim m_nrpatient As Integer
Property PatientNr As Integer Property PatientNr As Integer
Get Get
Return m_nrpatient Return m_nrpatient
End Get End Get
Set(value As Integer) Set(value As Integer)
Cursor = Cursors.WaitCursor Cursor = Cursors.WaitCursor
Globals.OnLoad = True Globals.OnLoad = True
m_nrpatient = value m_nrpatient = value
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
Me.PatientDetailsFirma1.PatientNr = value Me.PatientDetailsFirma1.PatientNr = value
Else Else
Me.PatientDetails1.PatientNr = value Me.PatientDetails1.PatientNr = value
End If End If
Me.PatientAbrechnung1.PatientNr = value Me.PatientAbrechnung1.PatientNr = value
Me.Behandlung1.PatientNr = value Me.Behandlung1.PatientNr = value
Me.Finanzen1.Patientnr = value Me.Finanzen1.Patientnr = value
Me.Recall1.Patientnr = value Me.Recall1.Patientnr = value
Me.ClsDokumente1.Patientnr = value Me.ClsDokumente1.Patientnr = value
Globals.OnLoad = False Globals.OnLoad = False
Cursor = Cursors.Default Cursor = Cursors.Default
End Set End Set
End Property End Property
Dim WithEvents evh As Generic_Event_Handler = Globals.EVH Dim WithEvents evh As Generic_Event_Handler = Globals.EVH
Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs)
Me.Close() Me.Close()
End Sub End Sub
Private Sub Patient_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing Private Sub Patient_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
If detail_has_changes() = False Then If detail_has_changes() = False Then
e.Cancel = True e.Cancel = True
End If End If
End Sub End Sub
Function detail_has_changes() Function detail_has_changes()
Dim res As Boolean = False Dim res As Boolean = False
If Me.PatientDetails1.HasChanges Then res = True If Me.PatientDetails1.HasChanges Then res = True
If Me.PatientDetailsFirma1.HasChanges Then res = True If Me.PatientDetailsFirma1.HasChanges Then res = True
If PatientAbrechnung1.HasChanges Then res = True If PatientAbrechnung1.HasChanges Then res = True
If res = True Then If res = True Then
Dim qres As MsgBoxResult Dim qres As MsgBoxResult
qres = MsgBox("Daten wurden verändert. Änderungen speichern?", vbYesNoCancel + vbQuestion) qres = MsgBox("Daten wurden verändert. Änderungen speichern?", vbYesNoCancel + vbQuestion)
Select Case qres Select Case qres
Case MsgBoxResult.Cancel Case MsgBoxResult.Cancel
Return False Return False
Case MsgBoxResult.No Case MsgBoxResult.No
Return True Return True
Case MsgBoxResult.Yes Case MsgBoxResult.Yes
save_data() save_data()
Return True Return True
End Select End Select
Else Else
Return True Return True
End If End If
End Function End Function
Private Sub Patient_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub Patient_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Select Case Globals.Funktionsstufe Select Case Globals.Funktionsstufe
Case 2 Case 2
'Me.Behandlungen.Visible = False 'Me.Behandlungen.Visible = False
'Me.Finanzen.Visible = False 'Me.Finanzen.Visible = False
End Select End Select
If Globals.License.DMS = False Then If Globals.License.DMS = False Then
Me.SuperTabControl1.Tabs("Dokumente").Visible = False Me.SuperTabControl1.Tabs("Dokumente").Visible = False
End If End If
' Me.tsbtnfirst_Click(sender, e) ' Me.tsbtnfirst_Click(sender, e)
Dim db As New clsDB Dim db As New clsDB
If db.Get_Option(9999) = "" Then If db.Get_Option(9999) = "" Then
Me.tsbtnVTX.Visible = False Me.tsbtnVTX.Visible = False
Me.btnVTX.Visible = False Me.btnVTX.Visible = False
Else Else
Me.tsbtnVTX.Visible = True Me.tsbtnVTX.Visible = True
Me.btnVTX.Visible = True Me.btnVTX.Visible = True
End If End If
Dim db1 As New clsDB Dim db1 As New clsDB
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
'Me.PatientDetails1.chklbAdresstyp.Visible = False 'Me.PatientDetails1.chklbAdresstyp.Visible = False
Me.SuperTabControl1.Tabs("Stammdaten").Visible = False Me.SuperTabControl1.Tabs("Stammdaten").Visible = False
Me.SuperTabControl1.Tabs("Stammdaten_Firma").Visible = True Me.SuperTabControl1.Tabs("Stammdaten_Firma").Visible = True
Me.PatientDetails1.Label13.Visible = False Me.PatientDetails1.Label13.Visible = False
Me.PatientDetailsFirma1.Label13.Visible = False Me.PatientDetailsFirma1.Label13.Visible = False
Me.SuperTabControl1.Tabs("Behandlungen").Text = "Projekte" Me.SuperTabControl1.Tabs("Behandlungen").Text = "Projekte"
Me.SuperTabControl1.Tabs("Recall").Visible = False Me.SuperTabControl1.Tabs("Recall").Visible = False
Me.SuperTabControl1.Tabs("Abrechnung").Visible = False Me.SuperTabControl1.Tabs("Abrechnung").Visible = False
Me.PatientDetails1.lblName.Text = "Name/Firma" Me.PatientDetails1.lblName.Text = "Name/Firma"
Else Else
Me.SuperTabControl1.Tabs("Stammdaten").Visible = True Me.SuperTabControl1.Tabs("Stammdaten").Visible = True
Me.SuperTabControl1.Tabs("Stammdaten_Firma").Visible = False Me.SuperTabControl1.Tabs("Stammdaten_Firma").Visible = False
End If End If
If UCase(db1.Get_Option("60020")) = "FALSE" Then Exit Sub If UCase(db1.Get_Option("60020")) = "FALSE" Then Exit Sub
Try Try
' Globals.sec.Set_Form_Security(Me) ' Globals.sec.Set_Form_Security(Me)
Catch Catch
End Try End Try
End Sub End Sub
Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles tsbtnSave.Click Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles tsbtnSave.Click
save_data() save_data()
End Sub End Sub
Private Sub tsbtnquit_Click(sender As Object, e As EventArgs) Handles tsbtnquit.Click Private Sub tsbtnquit_Click(sender As Object, e As EventArgs) Handles tsbtnquit.Click
Me.Close() Me.Close()
End Sub End Sub
Private Sub tstxtsuche_KeyDown(sender As Object, e As KeyEventArgs) Handles tstxtsuche.KeyDown Private Sub tstxtsuche_KeyDown(sender As Object, e As KeyEventArgs) Handles tstxtsuche.KeyDown
If e.KeyCode = Keys.Enter Then If e.KeyCode = Keys.Enter Then
Dim db As New clsDB Dim db As New clsDB
Dim nrprivat As Integer = db.Search("Patient", Me.tstxtsuche.Text) Dim nrprivat As Integer = db.Search("Patient", Me.tstxtsuche.Text)
If nrprivat <> -1 Then Me.PatientNr = nrprivat If nrprivat <> -1 Then Me.PatientNr = nrprivat
If Me.SuperTabControl1.SelectedTab.Name = "Dokumente" Then If Me.SuperTabControl1.SelectedTab.Name = "Dokumente" Then
Me.ClsDokumente1.Patientnr = Me.PatientNr Me.ClsDokumente1.Patientnr = Me.PatientNr
Me.ClsDokumente1.Refresh_Grid() Me.ClsDokumente1.Refresh_Grid()
End If End If
If Me.SuperTabControl1.SelectedTab.Name = "Krankengeschichte" Or Me.SuperTabControl1.SelectedTab.Name = "Journal" Then If Me.SuperTabControl1.SelectedTab.Name = "Krankengeschichte" Or Me.SuperTabControl1.SelectedTab.Name = "Journal" Then
Me.Krankengeschichte1.Patientnr = Me.PatientNr Me.Krankengeschichte1.Patientnr = Me.PatientNr
End If End If
db.Dispose() db.Dispose()
End If End If
End Sub End Sub
Private Sub evh_PatName_Changed(name As String, nr As Integer) Handles evh.PatName_Changed Private Sub evh_PatName_Changed(name As String, nr As Integer) Handles evh.PatName_Changed
If nr = Me.PatientNr Then Me.Text = name If nr = Me.PatientNr Then Me.Text = name
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
Me.Label1.Text = PatientDetailsFirma1.Patientname Me.Label1.Text = PatientDetailsFirma1.Patientname
Else Else
Me.Label1.Text = PatientDetails1.Patientname Me.Label1.Text = PatientDetails1.Patientname
End If End If
Me.Label1.Left = Me.Width / 2 - 8 - Me.Label1.Width / 2 Me.Label1.Left = Me.Width / 2 - 8 - Me.Label1.Width / 2
End Sub End Sub
Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
Me.Close() Me.Close()
End Sub End Sub
Private Sub save_data() Private Sub save_data()
evh.Fire_PatSaved(Me.PatientNr) evh.Fire_PatSaved(Me.PatientNr)
End Sub End Sub
Private Sub evh_PatSaved(Nr As Integer) Handles evh.PatSaved Private Sub evh_PatSaved(Nr As Integer) Handles evh.PatSaved
If Me.PatientNr = Nr Then If Me.PatientNr = Nr Then
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
Me.Text = PatientDetailsFirma1.Patientname Me.Text = PatientDetailsFirma1.Patientname
Me.Label1.Text = PatientDetailsFirma1.Patientname Me.Label1.Text = PatientDetailsFirma1.Patientname
Else Else
Me.Text = PatientDetails1.Patientname Me.Text = PatientDetails1.Patientname
Me.Label1.Text = PatientDetails1.Patientname Me.Label1.Text = PatientDetails1.Patientname
End If End If
End If End If
End Sub End Sub
Public Sub tsbtnfirst_Click(sender As Object, e As EventArgs) Handles tsbtnfirst.Click Public Sub tsbtnfirst_Click(sender As Object, e As EventArgs) Handles tsbtnfirst.Click
If detail_has_changes() = False Then Return If detail_has_changes() = False Then Return
Dim db As New clsDB Dim db As New clsDB
db.Get_Tabledata("Patient", "", "Select top 1 * from privat where nrprivat>0 order by name, vorname, ort,nrprivat") db.Get_Tabledata("Patient", "", "Select top 1 * from privat where nrprivat>0 order by name, vorname, ort,nrprivat")
Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0) Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
db.Dispose() db.Dispose()
End Sub End Sub
Private Sub tsbtnlast_Click(sender As Object, e As EventArgs) Handles tsbtnlast.Click Private Sub tsbtnlast_Click(sender As Object, e As EventArgs) Handles tsbtnlast.Click
If detail_has_changes() = False Then Return If detail_has_changes() = False Then Return
Dim db As New clsDB Dim db As New clsDB
db.Get_Tabledata("Patient", "", db.Get_SQL(10)) db.Get_Tabledata("Patient", "", db.Get_SQL(10))
Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0) Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
db.Dispose() db.Dispose()
End Sub End Sub
Private Sub tsbtnnext_Click(sender As Object, e As EventArgs) Handles tsbtnnext.Click Private Sub tsbtnnext_Click(sender As Object, e As EventArgs) Handles tsbtnnext.Click
If detail_has_changes() = False Then Return If detail_has_changes() = False Then Return
Dim xx As Integer = 0 Dim xx As Integer = 0
Dim db As New clsDB Dim db As New clsDB
Try Try
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
db.Get_Tabledata("Patient", "", "select * from privat where nrprivat=" + Me.PatientNr.ToString) db.Get_Tabledata("Patient", "", "select * from privat where nrprivat=" + Me.PatientNr.ToString)
Dim searchstring As String = "" Dim searchstring As String = ""
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("Name").ToString searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("Name").ToString
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("Vorname").ToString searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("Vorname").ToString
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("ort").ToString searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("ort").ToString
db.Get_Tabledata("Patient", "", "Select top 1 * from privat where name <>'' and nrprivat>0 and name+vorname+ort>='" + searchstring + "' and nrprivat<>" + Me.PatientNr.ToString + " order by name, vorname, ort, nrprivat") db.Get_Tabledata("Patient", "", "Select top 1 * from privat where name <>'' and nrprivat>0 and name+vorname+ort>='" + searchstring + "' and nrprivat<>" + Me.PatientNr.ToString + " order by name, vorname, ort, nrprivat")
' db.Get_Tabledata("Patient", "", db.Get_SQL(11), Me.m_nrpatient.ToString) ' db.Get_Tabledata("Patient", "", db.Get_SQL(11), Me.m_nrpatient.ToString)
Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0) Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
Catch ex As Exception Catch ex As Exception
'MsgBox(ex.Message) 'MsgBox(ex.Message)
Me.PatientNr = Me.PatientNr Me.PatientNr = Me.PatientNr
End Try End Try
db.Dispose() db.Dispose()
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
End Sub End Sub
Private Sub tsbtprev_Click(sender As Object, e As EventArgs) Handles tsbtprev.Click Private Sub tsbtprev_Click(sender As Object, e As EventArgs) Handles tsbtprev.Click
If detail_has_changes() = False Then Return If detail_has_changes() = False Then Return
Dim xx As Integer = 0 Dim xx As Integer = 0
Dim db As New clsDB Dim db As New clsDB
Try Try
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
db.Get_Tabledata("Patient", "", "select * from privat where nrprivat=" + Me.PatientNr.ToString) db.Get_Tabledata("Patient", "", "select * from privat where nrprivat=" + Me.PatientNr.ToString)
Dim searchstring As String = "" Dim searchstring As String = ""
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("Name").ToString searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("Name").ToString
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("Vorname").ToString searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("Vorname").ToString
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("ort").ToString searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("ort").ToString
db.Get_Tabledata("Patient", "", "Select top 1 * from privat where name <>'' and nrprivat>0 and name+vorname+ort<='" + searchstring + "' and nrprivat<>" + Me.PatientNr.ToString + " order by name desc, vorname desc, ort desc , nrprivat desc") db.Get_Tabledata("Patient", "", "Select top 1 * from privat where name <>'' and nrprivat>0 and name+vorname+ort<='" + searchstring + "' and nrprivat<>" + Me.PatientNr.ToString + " order by name desc, vorname desc, ort desc , nrprivat desc")
' db.Get_Tabledata("Patient", "", db.Get_SQL(11), Me.m_nrpatient.ToString) ' db.Get_Tabledata("Patient", "", db.Get_SQL(11), Me.m_nrpatient.ToString)
Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0) Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
Catch ex As Exception Catch ex As Exception
'MsgBox(ex.Message) 'MsgBox(ex.Message)
Me.PatientNr = Me.PatientNr Me.PatientNr = Me.PatientNr
End Try End Try
db.Dispose() db.Dispose()
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
End Sub End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles tsbtnnew.Click Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles tsbtnnew.Click
Dim db As New clsDB Dim db As New clsDB
Dim newkey As Integer = db.Get_DBKey("Privat") Dim newkey As Integer = db.Get_DBKey("Privat")
db.Get_Tabledata("Privat", " where nrprivat=0") db.Get_Tabledata("Privat", " where nrprivat=0")
Dim r As DataRow Dim r As DataRow
r = db.dsDaten.Tables(0).NewRow r = db.dsDaten.Tables(0).NewRow
For Each c As DataColumn In db.dsDaten.Tables(0).Columns For Each c As DataColumn In db.dsDaten.Tables(0).Columns
r.Item(c) = db.dsDaten.Tables(0).Rows(0).Item(c) r.Item(c) = db.dsDaten.Tables(0).Rows(0).Item(c)
Next Next
db.dsDaten.Tables(0).Rows(0).Item(0) = newkey db.dsDaten.Tables(0).Rows(0).Item(0) = newkey
db.dsDaten.Tables(0).Rows(0).Item("Erstellt_am") = Now db.dsDaten.Tables(0).Rows(0).Item("Erstellt_am") = Now
db.dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now db.dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
db.dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.ActUser db.dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.ActUser
db.dsDaten.Tables(0).Rows(0).Item("aktiv") = True db.dsDaten.Tables(0).Rows(0).Item("aktiv") = True
db.dsDaten.Tables(0).Rows(0).Item("Gueltigab") = Now db.dsDaten.Tables(0).Rows(0).Item("Gueltigab") = Now
db.dsDaten.Tables(0).Rows(0).Item("GEBDAT") = Now db.dsDaten.Tables(0).Rows(0).Item("GEBDAT") = Now
db.dsDaten.Tables(0).Rows.Add(r) db.dsDaten.Tables(0).Rows.Add(r)
db.Update_Data() db.Update_Data()
Me.PatientNr = newkey Me.PatientNr = newkey
db.Dispose() db.Dispose()
End Sub End Sub
Private Sub SuperTabControl1_SelectedTabChanged(sender As Object, e As DevComponents.DotNetBar.SuperTabStripSelectedTabChangedEventArgs) Handles SuperTabControl1.SelectedTabChanged Private Sub SuperTabControl1_SelectedTabChanged(sender As Object, e As DevComponents.DotNetBar.SuperTabStripSelectedTabChangedEventArgs) Handles SuperTabControl1.SelectedTabChanged
If SuperTabControl1.SelectedTab.Name = "Krankengeschichte" Or SuperTabControl1.SelectedTab.Name = "Journal" Then If SuperTabControl1.SelectedTab.Name = "Krankengeschichte" Or SuperTabControl1.SelectedTab.Name = "Journal" Then
Me.Krankengeschichte1.Patientnr = Me.PatientNr Me.Krankengeschichte1.Patientnr = Me.PatientNr
End If End If
If SuperTabControl1.SelectedTab.Name = "Finanzen" Then If SuperTabControl1.SelectedTab.Name = "Finanzen" Then
Me.Finanzen1.Refresh_Data() Me.Finanzen1.Refresh_Data()
End If End If
If SuperTabControl1.SelectedTab.Name = "Dokumente" Then If SuperTabControl1.SelectedTab.Name = "Dokumente" Then
Me.ClsDokumente1.Patientnr = Me.PatientNr Me.ClsDokumente1.Patientnr = Me.PatientNr
Me.ClsDokumente1.Refreshdata() Me.ClsDokumente1.refreshdata()
End If End If
End Sub End Sub
Private Sub evh_Recall_Anzeigen(Datum As Date, patient As Integer, behandler As Integer) Handles evh.Recall_Anzeigen Private Sub evh_Recall_Anzeigen(Datum As Date, patient As Integer, behandler As Integer) Handles evh.Recall_Anzeigen
If Me.PatientNr = patient Then If Me.PatientNr = patient Then
SuperTabControl1.SelectNextTab() SuperTabControl1.SelectNextTab()
SuperTabControl1.SelectNextTab() SuperTabControl1.SelectNextTab()
Me.Recall1.SetValues(Datum, patient, behandler) Me.Recall1.SetValues(Datum, patient, behandler)
End If End If
End Sub End Sub
Private Sub evh_Finanzen_Anzeigen(patient As Integer) Handles evh.Finanzen_Anzeigen Private Sub evh_Finanzen_Anzeigen(patient As Integer) Handles evh.Finanzen_Anzeigen
If Me.PatientNr = patient Then If Me.PatientNr = patient Then
SuperTabControl1.SelectNextTab() SuperTabControl1.SelectNextTab()
End If End If
End Sub End Sub
Private Sub tsbtnVTX_Click(sender As Object, e As EventArgs) Handles tsbtnVTX.Click Private Sub tsbtnVTX_Click(sender As Object, e As EventArgs) Handles tsbtnVTX.Click
Dim db As New clsDB Dim db As New clsDB
db.Get_Tabledata("Privat", "where nrprivat=" + Me.PatientNr.ToString) db.Get_Tabledata("Privat", "where nrprivat=" + Me.PatientNr.ToString)
If db.dsDaten.Tables(0).Rows(0).Item("Name") = "" Or db.dsDaten.Tables(0).Rows(0).Item("Vorname") = "" Or db.dsDaten.Tables(0).Rows(0).Item("Strasse") = "" Or db.dsDaten.Tables(0).Rows(0).Item("PLZ") = "" Or db.dsDaten.Tables(0).Rows(0).Item("Ort") = "" Or db.dsDaten.Tables(0).Rows(0).Item("gebdat").ToString = "" Then If db.dsDaten.Tables(0).Rows(0).Item("Name") = "" Or db.dsDaten.Tables(0).Rows(0).Item("Vorname") = "" Or db.dsDaten.Tables(0).Rows(0).Item("Strasse") = "" Or db.dsDaten.Tables(0).Rows(0).Item("PLZ") = "" Or db.dsDaten.Tables(0).Rows(0).Item("Ort") = "" Or db.dsDaten.Tables(0).Rows(0).Item("gebdat").ToString = "" Then
MsgBox("Name, Vorname, Strasse, PLZ, Ort und Geburtsdatum sind Pflichtfelder. Bitte Daten korrigieren.") MsgBox("Name, Vorname, Strasse, PLZ, Ort und Geburtsdatum sind Pflichtfelder. Bitte Daten korrigieren.")
db.Dispose() db.Dispose()
Exit Sub Exit Sub
End If End If
Dim vddsmodule As String = db.Get_Option(9999) Dim vddsmodule As String = db.Get_Option(9999)
Dim vdspath As String = db.Get_Option(9998) + "\" Dim vdspath As String = db.Get_Option(9998) + "\"
Dim filename As String = vdspath + Me.PatientNr.ToString + ".ini" Dim filename As String = vdspath + Me.PatientNr.ToString + ".ini"
FileOpen(1, filename, OpenMode.Output) FileOpen(1, filename, OpenMode.Output)
PrintLine(1, "[Patient]") PrintLine(1, "[Patient]")
PrintLine(1, "PVS=DPM") PrintLine(1, "PVS=DPM")
PrintLine(1, "BVS=VixWinPRO_Imaging") PrintLine(1, "BVS=VixWinPRO_Imaging")
PrintLine(1, "PATID=" + Me.PatientNr.ToString) PrintLine(1, "PATID=" + Me.PatientNr.ToString)
PrintLine(1, "LASTNAME=" + db.dsDaten.Tables(0).Rows(0).Item("name").ToString) PrintLine(1, "LASTNAME=" + db.dsDaten.Tables(0).Rows(0).Item("name").ToString)
PrintLine(1, "FIRSTNAME=" + db.dsDaten.Tables(0).Rows(0).Item("vorname").ToString) PrintLine(1, "FIRSTNAME=" + db.dsDaten.Tables(0).Rows(0).Item("vorname").ToString)
PrintLine(1, "BIRTYDAY=" + Format(db.dsDaten.Tables(0).Rows(0).Item("gebdat").ToString, "yyyyMMdd")) PrintLine(1, "BIRTYDAY=" + Format(db.dsDaten.Tables(0).Rows(0).Item("gebdat").ToString, "yyyyMMdd"))
If db.dsDaten.Tables(0).Rows(0).Item("geschlecht").ToString = "1" Then If db.dsDaten.Tables(0).Rows(0).Item("geschlecht").ToString = "1" Then
PrintLine(1, "SEX=F") PrintLine(1, "SEX=F")
Else Else
PrintLine(1, "SEX=M") PrintLine(1, "SEX=M")
End If End If
PrintLine(1, "STREET=" + db.dsDaten.Tables(0).Rows(0).Item("strasse").ToString) PrintLine(1, "STREET=" + db.dsDaten.Tables(0).Rows(0).Item("strasse").ToString)
PrintLine(1, "CITY=" + db.dsDaten.Tables(0).Rows(0).Item("Ort").ToString) PrintLine(1, "CITY=" + db.dsDaten.Tables(0).Rows(0).Item("Ort").ToString)
PrintLine(1, "ZIP=" + db.dsDaten.Tables(0).Rows(0).Item("plz").ToString) PrintLine(1, "ZIP=" + db.dsDaten.Tables(0).Rows(0).Item("plz").ToString)
PrintLine(1, "READY=0") PrintLine(1, "READY=0")
PrintLine(1, "ERRORLEVEL=0") PrintLine(1, "ERRORLEVEL=0")
PrintLine(1, "ERRORTEXT=0") PrintLine(1, "ERRORTEXT=0")
FileClose(1) FileClose(1)
Try Try
' MsgBox(vddsmodule + " " + filename) ' MsgBox(vddsmodule + " " + filename)
Process.Start(vddsmodule, filename) Process.Start(vddsmodule, filename)
Catch Catch
End Try End Try
End Sub End Sub
Private Sub tnVTX_Click(sender As Object, e As EventArgs) Handles btnVTX.Click Private Sub tnVTX_Click(sender As Object, e As EventArgs) Handles btnVTX.Click
Me.tsbtnVTX_Click(sender, e) Me.tsbtnVTX_Click(sender, e)
End Sub End Sub
Private Sub Patient_Resize(sender As Object, e As EventArgs) Handles Me.Resize Private Sub Patient_Resize(sender As Object, e As EventArgs) Handles Me.Resize
Me.Label1.Left = Me.Width / 2 - 8 - Me.Label1.Width / 2 Me.Label1.Left = Me.Width / 2 - 8 - Me.Label1.Width / 2
Me.Krankengeschichte1.Refresh_KG() Me.Krankengeschichte1.Refresh_KG()
End Sub End Sub
Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
End Sub End Sub
Private Sub Patient_TextChanged(sender As Object, e As EventArgs) Handles MyBase.TextChanged Private Sub Patient_TextChanged(sender As Object, e As EventArgs) Handles MyBase.TextChanged
Create_temp_form() Create_temp_form()
End Sub End Sub
Public Function Create_temp_form() Public Function Create_temp_form()
Exit Function Exit Function
Try Try
Dim f As New frmdummy Dim f As New frmdummy
f.Width = 0 f.Width = 0
f.Height = 0 f.Height = 0
f.Visible = False f.Visible = False
f.MdiParent = Me.MdiParent f.MdiParent = Me.MdiParent
f.Show() f.Show()
f.Close() f.Close()
f = Nothing f = Nothing
Catch Catch
End Try End Try
End Function End Function
Private Sub tstxtsuche_Click(sender As Object, e As EventArgs) Handles tstxtsuche.Click Private Sub tstxtsuche_Click(sender As Object, e As EventArgs) Handles tstxtsuche.Click
End Sub End Sub
Private Sub Finanzen1_Load(sender As Object, e As EventArgs) Handles Finanzen1.Load
End Sub
End Class End Class

@ -66,19 +66,20 @@ Public Class frmReportView
db.Rechnung_buchen(1, daten.Tables("esdaten").Rows(0).Item("fakturanr"), rate, daten.Tables("behandlungsdaten").Rows(0).Item("nrbehandlung"), Betrag) db.Rechnung_buchen(1, daten.Tables("esdaten").Rows(0).Item("fakturanr"), rate, daten.Tables("behandlungsdaten").Rows(0).Item("nrbehandlung"), Betrag)
End Sub End Sub
Public Sub Mahnungg(ByVal Stufe As Integer, ByVal reportnr As String, ByVal nrbehandlung As Integer, ByVal Parameter As String, ByVal rate As Integer, Optional kopie As Integer = 0, Optional fakturanr As Integer = 0, Optional buchen As Boolean = True, Optional Preview As Boolean = False, Optional design As Boolean = False) Public Sub Mahnungg(ByVal Stufe As Integer, ByVal reportnr As String, ByVal nrbehandlung As Integer, ByVal Parameter As String, ByVal rate As Integer, Optional kopie As Integer = 0, Optional fakturanr As Integer = 0, Optional buchen As Boolean = True, Optional Preview As Boolean = False, Optional design As Boolean = False, Optional aspdf As Boolean = False)
Me.ReportNr = reportnr Me.ReportNr = reportnr
Me.Parameter = Parameter Me.Parameter = Parameter
Me.NrBehandlung = nrbehandlung Me.NrBehandlung = nrbehandlung
If Globals.FakturaNr <> 0 Then fakturanr = Globals.FakturaNr If Globals.FakturaNr <> 0 Then fakturanr = Globals.FakturaNr
Print_Mahnung(Stufe, Preview, design, rate, 1, fakturanr) Print_Mahnung(Stufe, Preview, design, rate, 1, fakturanr, aspdf)
If Preview Then Exit Sub If Preview Then Exit Sub
If buchen = False Then Exit Sub If buchen = False Then Exit Sub
db.Mahnung_Buchen(fakturanr, Stufe, daten.Tables("esdaten")) db.Mahnung_Buchen(fakturanr, Stufe, daten.Tables("esdaten"))
' rechnung_buchen(rate, daten.Tables("ESDaten").Rows(0).Item("Nur_Franken") + daten.Tables("ESDaten").Rows(0).Item("Nur_Rappen") / 100) ' rechnung_buchen(rate, daten.Tables("ESDaten").Rows(0).Item("Nur_Franken") + daten.Tables("ESDaten").Rows(0).Item("Nur_Rappen") / 100)
End Sub End Sub
Public Sub Print_Mahnung(ByVal Stufe As Integer, Optional vorschau As Boolean = False, Optional design As Boolean = False, Optional Rate As Integer = 0, Optional kopie As Integer = 0, Optional Fakturanr As Integer = 0) Public Sub Print_Mahnung(ByVal Stufe As Integer, Optional vorschau As Boolean = False, Optional design As Boolean = False, Optional Rate As Integer = 0, Optional kopie As Integer = 0, Optional Fakturanr As Integer = 0, Optional aspdf As Boolean = False)
If Rate > 1 Then ReportNr = ReportNr + 1 If Rate > 1 Then ReportNr = ReportNr + 1
Dim kopien As Integer = 1 Dim kopien As Integer = 1
@ -243,6 +244,41 @@ Public Class frmReportView
freport.Preview = Me.previewControl1 freport.Preview = Me.previewControl1
freport.Show() freport.Show()
End If
If aspdf Then
If aspdf Then
Dim s As String = My.Settings.DocArchivPath + "\" + Now.ToString("yyyyddMMhhmmssfff") + "_" + Me.NrBehandlung.ToString
Dim xpsfilename As String = s + ".xps"
Dim pdffilename As String = s + ".pdf"
Dim imagefilename As String = s + ".jpg"
Dim rtffilename As String = s + ".rtf"
Dim pdfexport As New FastReport.Export.Pdf.PDFExport
pdfexport.ShowProgress = False
pdfexport.Subject = "Export"
pdfexport.Title = "Export"
pdfexport.Compressed = UCase(db.Get_Option(50000)) = "TRUE"
pdfexport.AllowPrint = UCase(db.Get_Option(50002)) = "TRUE"
pdfexport.TextInCurves = UCase(db.Get_Option(50001)) = "TRUE"
'pdfexport.EmbeddingFonts = True
'pdfexport.PdfCompliance = FastReport.Export.Pdf.PDFExport.PdfStandard.PdfX_4
'pdfexport.Compressed = False
'pdfexport.AllowPrint = True
' pdfexport.EmbeddingFonts = True
'pdfexport.TextInCurves = True
'pdfexport.Compressed = True
'pdfexport.PdfCompliance = FastReport.Export.Pdf.PDFExport.PdfStandard.PdfA_2a
freport.Prepare()
freport.Export(pdfexport, s + ".PDF")
'Process.Start(s + ".pdf")
Dim pdfitem As New clspdfcollectionitem(Globals.FakturaNr.ToString, s + ".pdf")
Globals.pdfCollection.Add(pdfitem)
' Globals.pdfCollection.Add(s + ".pdf")
Exit Sub
End If
End If End If
If vorschau = False And design = False Then If vorschau = False And design = False Then
Dim printer As New clsPrinter Dim printer As New clsPrinter

@ -142,24 +142,24 @@
<data name="tsbtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tsbtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAP4SURBVEhLnZVtbFN1FMaZGl8hzPjJmKDxE2owxkRdlrrb YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAP2SURBVEhLnZVtbFN1FMaZGl8hjPiJmKDxE2owxkRdlrrb
dl2cOBMlThdHNCQmyId9MaiJUUdkCASKvGSCa6NCO0bSWLe5TKf4EmFCS63QbEAwa9qusoEbay3r7cu9 dl2cOBMlThdHNCQmyId9MYgJUUdkCESqwIJgO42sGyNprNtcplNQ48CWUhpoVlg0a9pusoEbay3r6733
9/Gc2/svlw4Y2T95crbm3ud3nnNubxeJMzAw8LAsy5dIM9lsNjVy5pyy8cS/kAZDqjT0lyoNBtWV7oC2 8Zzb+y+XDhjZP3lytube53eec25vl4gzMDDwaCaTuUKaTafTiZHwqLz99L+QBv2KNHRGkQZ9ylqHV107
cjCJFvewFhsfT8fj8WM9PT0PSZJ0G4tsqkpu1zgej+dR0Ekmk1pR1fDxkTiW7Q1h6c4AlpC4LvecRav3 OIEmx7AaHR9PxmIxb09PzyOSJN3FIpuKotsNjsvlehx04vG4WlBUfDwcw6qDASzfewrLSFxXu0bR3HUC
KDq/8mqZTAZTU1MYGRlRnE6n5HA4lra3t99i2M09LpfrcQG4OFtEa28M9++KoHr7SVRvC6PaeQp2XwKf 7V93qqlUCtPT0xgZGZHtdrtks9mWt7a23qHbzT9Op/NJAbg8V0BzbxQr94VQuecsKj8LotJ+DlZ3HJ/u
7t6H6elpFItFXalUCsFgUHW73e8TZBkluZPs5iSp6urqeoIBfFKygvU/p7DCdQGPfDGJ5fsm8NiXl/CG P4SZmRkUCgVNiUQCPp9P6ejo+IAgqyjJvWQ3L0mFw+F4igF8EhkZm48nsMZ5CY99NYXVhybxxDdX8JY7
Lw7nzl1QVVUXAzhJOp1GIBBQyeNdhjQ1Nd1dmUYHaJpWulHR0BVWYPcqsOwv4tkDRVgPAev84wTYU+6e BvvefVAURRMDOEkymYTX61XI432GNDQ03F+eRgOoqlq8UVbhCMqwdskwHS7g+c4CzEeBTZ5xArSXumfR
RfvSAQLS1tb2qt1uf6CxsfEOM6QMUBQFXL85o+ElH2D1APVewMGA3vPY8lmnblwoFJBIJDA6OopwOIxI vjSAgLS0tLxutVofqq+vv8cIKQFkWQbX7y6oeMUNmF1AbRdgY0DvRez64oBmnM/neZwIh8MIBoMIhULa
JKL/TeNK1tXVPVVfX39fc3PzrYb/FYDQj2MaVvcC0gFQEsB2EFjTN4Mtu116E0K8A1427yUajSIUCimU 336/f6KmpuaZ2traBxsbG+/U/a8BhH4eU7G+F5A6QUkAyxFgQ98sdu13ak0I8Q542byXSCSCQCAgU4KN
YK3NZnuQALcb/lcn4DGFzqtYN0gJDIC1G2jxZ7B1r0fvniWScM3n8zqMIWS+nlKsqKmpucvwLwHE8ljR FovlYQLcrftfn4DHFLioYNMgJdAB5m6gyZPC7oMurXuWSMI1l8tpMIaQ+WZKsaaqquo+3b8IEMtjRZIq
tIaPfqfxkLGNE1B9rU+D09VTnr9ZAspjo/FsoBRPNjQ03GP4lwCXcwouZ2XIuRxOJ2ewaTiP52n2vAeG PvqDxkPGFk5A9Y0+FXZnT2n+Rgkoj43Gs41SPF1XV/eA7l8EXM3KuJrOIJPN4vzELHaczOFFmj3vgSFN
tHwPdH7t0424YzbmKv7P0X0GoIP3MAeQllUEE1k4h/7G9p+SeO9wHi/ToiUDsKoP+Nx/BFk5h1mZDAv0 PwIHvnVrRtwxG3MV/2fpPh3QxnuYB0hmFPjjadiH/saeXyaw5VgOr9KiJR2wrg/40jOMdCaLuQwZ5ukp
FOVKADavBNB3YrHhf2VEhaKC4KSGzQHgncPA698aAJLDq+Gt73LYfFzFnrCG/tEMJmey5fGwbgjgBXNs yhYBbF4OoO/EUt3/2ojyBRn+KRU7TwHvHQPe/F4HkGxdKt75IYudPgXtQRX94RSmZtOl8bBuCeAFc2yu
rn/+o+CTo8DbP5QeU4bwqF6gRGt/BT70ncTZ+AW965tOwMZ8saiRiQI6aA+r/EDdfuA52sebQ8AO/zFM Z/6R8ckJ4N2fio8pQ3hUL1Gijb8BH7rPYjR2Sev6thOwMV8samgyjzbawzoPUHMYeIH28fYQ8LnHi8nL
XJwqG4v504tyfoBIITR86hw++OU/vELfiTX9WfQGE+Wu2bhSN5VAPB1Cv504jU3HNfwRzZS7Fp1z16LO 0yVjMX96US4MECmETp77C1t//Q+v0XdiQ38avf54qWs2LtdtJRBPh9Dvp89jh0/Fn5FUqWvROXct6oIJ
m0AYVwJmZ0uLrHxihLGoCwKIcVSamo35c37pseYFsNm1JIBmCahZNwQII67mm/izyq7NnYs6bwJzxwJW hHE5YG6uuMjyJ0YYi7oogBhHuanRmD/nlx5rQQCb3UgCaJSAGnVLgDDiaryJPyvv2ti5qAsmMHYsYOUy
KTPYLAG9LqC7u/tFs+n1TEStlDkB/aptpZfd07W1tUsM/0VV9B5vjcVi+gUL1djYmC4y32i1Wp+5CmCx go0S0JsCuru7Xzaa3sxE1HIZE9Cv2m562T1bXV29TPdfUkHv8eZoNKpdsFiNjY1pIvPtZrP5uesAJpNp
WO6lSBZSB+kQXdC/QB2k+zeURiQt/h8hRTZ62wkMuQAAAABJRU5ErkJggg== BUUykdpIR+mC/kXqCN2/rTgiaen/Xd02RBehQoMAAAAASUVORK5CYII=
</value> </value>
</data> </data>
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">

@ -1,79 +1,81 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<configuration> <configuration>
<configSections> <configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="DPM2016.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" /> <section name="DPM2016.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup> </sectionGroup>
</configSections> </configSections>
<system.diagnostics> <system.diagnostics>
<sources> <sources>
<!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log --> <!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
<source name="DefaultSource" switchName="DefaultSwitch"> <source name="DefaultSource" switchName="DefaultSwitch">
<listeners> <listeners>
<add name="FileLog" /> <add name="FileLog" />
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben --> <!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog"/>--> <!--<add name="EventLog"/>-->
</listeners> </listeners>
</source> </source>
</sources> </sources>
<switches> <switches>
<add name="DefaultSwitch" value="Information" /> <add name="DefaultSwitch" value="Information" />
</switches> </switches>
<sharedListeners> <sharedListeners>
<add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter" /> <add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter" />
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben --> <!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> --> <!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners> </sharedListeners>
</system.diagnostics> </system.diagnostics>
<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6" /></startup> <startup>
<userSettings> <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6" />
<DPM2016.My.MySettings> </startup>
<setting name="LogLevel" serializeAs="String"> <userSettings>
<value>2</value> <DPM2016.My.MySettings>
</setting> <setting name="LogLevel" serializeAs="String">
<setting name="TempPath" serializeAs="String"> <value>2</value>
<value>h:\dpm\dmp1\dmp2</value> </setting>
</setting> <setting name="TempPath" serializeAs="String">
<setting name="DocArchivPath" serializeAs="String"> <value>h:\dpm\dmp1\dmp2</value>
<value>h:\dpm\docarchiv</value> </setting>
</setting> <setting name="DocArchivPath" serializeAs="String">
<setting name="ConnectionString" serializeAs="String"> <value>h:\dpm\docarchiv</value>
<value>data source=shu00;initial catalog=SHUB_PADM;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value> </setting>
</setting> <setting name="ConnectionString" serializeAs="String">
<setting name="ConnectionStringMobie" serializeAs="String"> <value>data source=shu00;initial catalog=SHUB_PADM;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
<value>data source=shu00;initial catalog=DPM_Mobile;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value> </setting>
</setting> <setting name="ConnectionStringMobie" serializeAs="String">
<setting name="APIKey" serializeAs="String"> <value>data source=shu00;initial catalog=DPM_Mobile;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
<value>BgWSbwCNM3pEiCxgIlDEyD7HFpUgKPeL8OPDqH9n</value> </setting>
</setting> <setting name="APIKey" serializeAs="String">
<setting name="IV" serializeAs="String"> <value>BgWSbwCNM3pEiCxgIlDEyD7HFpUgKPeL8OPDqH9n</value>
<value>Q.6qYq0_C+mGmymX</value> </setting>
</setting> <setting name="IV" serializeAs="String">
<setting name="SecretKey" serializeAs="String"> <value>Q.6qYq0_C+mGmymX</value>
<value>3hba8fOumOPrMG0.G?-mkF-scGOkPwyW</value> </setting>
</setting> <setting name="SecretKey" serializeAs="String">
<setting name="WebAPI" serializeAs="String"> <value>3hba8fOumOPrMG0.G?-mkF-scGOkPwyW</value>
<value>http://192.168.111.67</value> </setting>
</setting> <setting name="WebAPI" serializeAs="String">
<setting name="SoftwareType" serializeAs="String"> <value>http://192.168.111.67</value>
<value>PADM</value> </setting>
</setting> <setting name="SoftwareType" serializeAs="String">
</DPM2016.My.MySettings> <value>DPM</value>
</userSettings> </setting>
<runtime> </DPM2016.My.MySettings>
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1"> </userSettings>
<dependentAssembly> <runtime>
<assemblyIdentity name="DevComponents.DotNetBar2" publicKeyToken="7eb7c3a35b91de04" culture="neutral" /> <assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
<bindingRedirect oldVersion="0.0.0.0-12.9.0.0" newVersion="12.9.0.0" /> <dependentAssembly>
</dependentAssembly> <assemblyIdentity name="DevComponents.DotNetBar2" publicKeyToken="7eb7c3a35b91de04" culture="neutral" />
<dependentAssembly> <bindingRedirect oldVersion="0.0.0.0-12.9.0.0" newVersion="12.9.0.0" />
<assemblyIdentity name="Syncfusion.Shared.Base" publicKeyToken="3d67ed1f87d44c89" culture="neutral" /> </dependentAssembly>
<bindingRedirect oldVersion="0.0.0.0-16.2350.0.41" newVersion="16.2350.0.41" /> <dependentAssembly>
</dependentAssembly> <assemblyIdentity name="Syncfusion.Shared.Base" publicKeyToken="3d67ed1f87d44c89" culture="neutral" />
<dependentAssembly> <bindingRedirect oldVersion="0.0.0.0-16.2350.0.41" newVersion="16.2350.0.41" />
<assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral" /> </dependentAssembly>
<bindingRedirect oldVersion="0.0.0.0-13.0.0.0" newVersion="13.0.0.0" /> <dependentAssembly>
</dependentAssembly> <assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral" />
</assemblyBinding> <bindingRedirect oldVersion="0.0.0.0-13.0.0.0" newVersion="13.0.0.0" />
</runtime> </dependentAssembly>
</configuration> </assemblyBinding>
</runtime>
</configuration>

@ -1,20 +1,20 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<asmv1:assembly xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" manifestVersion="1.0" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns="urn:schemas-microsoft-com:asm.v2" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xrml="urn:mpeg:mpeg21:2003:01-REL-R-NS" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:asmv3="urn:schemas-microsoft-com:asm.v3" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns:co.v1="urn:schemas-microsoft-com:clickonce.v1" xmlns:co.v2="urn:schemas-microsoft-com:clickonce.v2"> <asmv1:assembly xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" manifestVersion="1.0" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns="urn:schemas-microsoft-com:asm.v2" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xrml="urn:mpeg:mpeg21:2003:01-REL-R-NS" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:asmv3="urn:schemas-microsoft-com:asm.v3" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns:co.v1="urn:schemas-microsoft-com:clickonce.v1" xmlns:co.v2="urn:schemas-microsoft-com:clickonce.v2">
<assemblyIdentity name="PADM.application" version="1.0.0.2" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" xmlns="urn:schemas-microsoft-com:asm.v1" /> <assemblyIdentity name="DPM.application" version="1.0.0.2" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" xmlns="urn:schemas-microsoft-com:asm.v1" />
<description asmv2:publisher="PADM" asmv2:product="PADM" xmlns="urn:schemas-microsoft-com:asm.v1" /> <description asmv2:publisher="DPM" asmv2:product="DPM" xmlns="urn:schemas-microsoft-com:asm.v1" />
<deployment install="true" mapFileExtensions="true" /> <deployment install="true" mapFileExtensions="true" />
<compatibleFrameworks xmlns="urn:schemas-microsoft-com:clickonce.v2"> <compatibleFrameworks xmlns="urn:schemas-microsoft-com:clickonce.v2">
<framework targetVersion="4.6" profile="Full" supportedRuntime="4.0.30319" /> <framework targetVersion="4.6" profile="Full" supportedRuntime="4.0.30319" />
</compatibleFrameworks> </compatibleFrameworks>
<dependency> <dependency>
<dependentAssembly dependencyType="install" codebase="PADM.exe.manifest" size="90978"> <dependentAssembly dependencyType="install" codebase="DPM.exe.manifest" size="90974">
<assemblyIdentity name="PADM.exe" version="1.0.0.2" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" /> <assemblyIdentity name="DPM.exe" version="1.0.0.2" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
<hash> <hash>
<dsig:Transforms> <dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" /> <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms> </dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" /> <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>iEajZlzvX50g+NuuamiCaVSi2CsN7TaU+Z7RZ1gbtNA=</dsig:DigestValue> <dsig:DigestValue>8nOiS+q84n7KLg9Pe9Dhu2cEJXROPY7nrwS7tZEQ4JM=</dsig:DigestValue>
</hash> </hash>
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>

@ -0,0 +1,81 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="DPM2016.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<system.diagnostics>
<sources>
<!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
<source name="DefaultSource" switchName="DefaultSwitch">
<listeners>
<add name="FileLog" />
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog"/>-->
</listeners>
</source>
</sources>
<switches>
<add name="DefaultSwitch" value="Information" />
</switches>
<sharedListeners>
<add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter" />
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners>
</system.diagnostics>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6" />
</startup>
<userSettings>
<DPM2016.My.MySettings>
<setting name="LogLevel" serializeAs="String">
<value>2</value>
</setting>
<setting name="TempPath" serializeAs="String">
<value>h:\dpm\dmp1\dmp2</value>
</setting>
<setting name="DocArchivPath" serializeAs="String">
<value>h:\dpm\docarchiv</value>
</setting>
<setting name="ConnectionString" serializeAs="String">
<value>data source=shu00;initial catalog=SHUB_PADM;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
</setting>
<setting name="ConnectionStringMobie" serializeAs="String">
<value>data source=shu00;initial catalog=DPM_Mobile;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
</setting>
<setting name="APIKey" serializeAs="String">
<value>BgWSbwCNM3pEiCxgIlDEyD7HFpUgKPeL8OPDqH9n</value>
</setting>
<setting name="IV" serializeAs="String">
<value>Q.6qYq0_C+mGmymX</value>
</setting>
<setting name="SecretKey" serializeAs="String">
<value>3hba8fOumOPrMG0.G?-mkF-scGOkPwyW</value>
</setting>
<setting name="WebAPI" serializeAs="String">
<value>http://192.168.111.67</value>
</setting>
<setting name="SoftwareType" serializeAs="String">
<value>DPM</value>
</setting>
</DPM2016.My.MySettings>
</userSettings>
<runtime>
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
<dependentAssembly>
<assemblyIdentity name="DevComponents.DotNetBar2" publicKeyToken="7eb7c3a35b91de04" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-12.9.0.0" newVersion="12.9.0.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="Syncfusion.Shared.Base" publicKeyToken="3d67ed1f87d44c89" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-16.2350.0.41" newVersion="16.2350.0.41" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-13.0.0.0" newVersion="13.0.0.0" />
</dependentAssembly>
</assemblyBinding>
</runtime>
</configuration>

@ -1,11 +1,11 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<asmv1:assembly xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" manifestVersion="1.0" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns="urn:schemas-microsoft-com:asm.v2" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:co.v1="urn:schemas-microsoft-com:clickonce.v1" xmlns:asmv3="urn:schemas-microsoft-com:asm.v3" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns:co.v2="urn:schemas-microsoft-com:clickonce.v2"> <asmv1:assembly xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" manifestVersion="1.0" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns="urn:schemas-microsoft-com:asm.v2" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:co.v1="urn:schemas-microsoft-com:clickonce.v1" xmlns:asmv3="urn:schemas-microsoft-com:asm.v3" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns:co.v2="urn:schemas-microsoft-com:clickonce.v2">
<asmv1:assemblyIdentity name="PADM.exe" version="1.0.0.2" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" /> <asmv1:assemblyIdentity name="DPM.exe" version="1.0.0.2" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
<description asmv2:iconFile="PADM.ico" xmlns="urn:schemas-microsoft-com:asm.v1" /> <description asmv2:iconFile="DPMNeu.ico" xmlns="urn:schemas-microsoft-com:asm.v1" />
<application /> <application />
<entryPoint> <entryPoint>
<assemblyIdentity name="PADM" version="1.0.0.0" language="neutral" processorArchitecture="msil" /> <assemblyIdentity name="DPM" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
<commandLine file="PADM.exe" parameters="" /> <commandLine file="DPM.exe" parameters="" />
</entryPoint> </entryPoint>
<trustInfo> <trustInfo>
<security> <security>
@ -162,6 +162,18 @@
</hash> </hash>
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="DPM.exe" size="7444480">
<assemblyIdentity name="DPM" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>fs3SsvqE8fJNUPQ057vWQLK5pDXVQ3LvNJg+F48mypc=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency> <dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="FastReport.dll" size="6450184"> <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="FastReport.dll" size="6450184">
<assemblyIdentity name="FastReport" version="2022.2.0.0" publicKeyToken="DB7E5CE63278458C" language="neutral" processorArchitecture="msil" /> <assemblyIdentity name="FastReport" version="2022.2.0.0" publicKeyToken="DB7E5CE63278458C" language="neutral" processorArchitecture="msil" />
@ -462,18 +474,6 @@
</hash> </hash>
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PADM.exe" size="7382528">
<assemblyIdentity name="PADM" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>REnZZ21iKAM8//xzZ6sNyrWYrpGVwnfG4P10nYD6nZk=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency> <dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PropertyGridEx.dll" size="48128"> <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PropertyGridEx.dll" size="48128">
<assemblyIdentity name="PropertyGridEx" version="1.0.0.0" language="neutral" processorArchitecture="msil" /> <assemblyIdentity name="PropertyGridEx" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
@ -1512,22 +1512,22 @@
<dsig:DigestValue>T92PpISzKuFvoRCaXDKcSaiMyMOICRIrhQVQN101KX8=</dsig:DigestValue> <dsig:DigestValue>T92PpISzKuFvoRCaXDKcSaiMyMOICRIrhQVQN101KX8=</dsig:DigestValue>
</hash> </hash>
</file> </file>
<file name="DPMNeu.ico" size="156974"> <file name="DPM.exe.config" size="4181">
<hash> <hash>
<dsig:Transforms> <dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" /> <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms> </dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" /> <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>NLnqVMsy3w9jN63XtqsXl3zuDEd+8S6tWSYv9gZKS4Q=</dsig:DigestValue> <dsig:DigestValue>0prST3unFNQNU2HVldsrddDuCgCJokfAhMVNgXbX/v4=</dsig:DigestValue>
</hash> </hash>
</file> </file>
<file name="PADM.exe.config" size="4516"> <file name="DPMNeu.ico" size="156974">
<hash> <hash>
<dsig:Transforms> <dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" /> <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms> </dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" /> <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>IaVDJykS3T+/E78HSobZb/PRwAUull+7KpQZYT2d52E=</dsig:DigestValue> <dsig:DigestValue>NLnqVMsy3w9jN63XtqsXl3zuDEd+8S6tWSYv9gZKS4Q=</dsig:DigestValue>
</hash> </hash>
</file> </file>
<file name="PADM.ico" size="96694"> <file name="PADM.ico" size="96694">

@ -2,7 +2,7 @@
<doc> <doc>
<assembly> <assembly>
<name> <name>
PADM DPM
</name> </name>
</assembly> </assembly>
<members> <members>

Binary file not shown.

After

Width:  |  Height:  |  Size: 80 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 80 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 81 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 81 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 80 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 80 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 80 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 80 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 80 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 80 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 80 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 80 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 80 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 80 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 80 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Some files were not shown because too many files have changed in this diff Show More

Loading…
Cancel
Save