Update 20230215
This commit is contained in:
144
DPM2016/Behandlung/Behandlung.Designer.vb
generated
144
DPM2016/Behandlung/Behandlung.Designer.vb
generated
@@ -75,6 +75,9 @@ Partial Class Behandlung
|
||||
Me.KostenvoranschlagAbschliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.KostenvoranschlagLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.SuperTabControl1 = New DevComponents.DotNetBar.SuperTabControl()
|
||||
Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.STBehandlung = New DevComponents.DotNetBar.SuperTabItem()
|
||||
Me.SuperTabControlPanel4 = New DevComponents.DotNetBar.SuperTabControlPanel()
|
||||
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||||
Me.c1akonto = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||
@@ -94,13 +97,8 @@ Partial Class Behandlung
|
||||
Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel()
|
||||
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
|
||||
Me.STAkonto = New DevComponents.DotNetBar.SuperTabItem()
|
||||
Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.Behandungdetail1 = New DPM2016.Benhandungdetail()
|
||||
Me.STBehandlung = New DevComponents.DotNetBar.SuperTabItem()
|
||||
Me.SuperTabControlPanel2 = New DevComponents.DotNetBar.SuperTabControlPanel()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.Leistungen1 = New DPM2016.Leistungen()
|
||||
Me.STLeistung = New DevComponents.DotNetBar.SuperTabItem()
|
||||
Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
|
||||
Me.tsbtnnew = New System.Windows.Forms.ToolStripButton()
|
||||
@@ -161,19 +159,21 @@ Partial Class Behandlung
|
||||
Me.tsamdrittemahnung = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.C1Leistungen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
|
||||
Me.Behandungdetail1 = New DPM2016.Benhandungdetail()
|
||||
Me.Leistungen1 = New DPM2016.Leistungen()
|
||||
Me.tsbtndelete.SuspendLayout()
|
||||
Me.GroupBox1.SuspendLayout()
|
||||
CType(Me.treebehandlungen, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.ctxmenubehandlung.SuspendLayout()
|
||||
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuperTabControl1.SuspendLayout()
|
||||
Me.SuperTabControlPanel1.SuspendLayout()
|
||||
Me.Panel2.SuspendLayout()
|
||||
Me.SuperTabControlPanel4.SuspendLayout()
|
||||
Me.GroupBox2.SuspendLayout()
|
||||
CType(Me.c1akonto, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.ctxmenuakonto.SuspendLayout()
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
Me.SuperTabControlPanel1.SuspendLayout()
|
||||
Me.Panel2.SuspendLayout()
|
||||
Me.SuperTabControlPanel2.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.tsbtnbehandlungdelete.SuspendLayout()
|
||||
@@ -188,7 +188,7 @@ Partial Class Behandlung
|
||||
Me.tsbtndelete.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnnewbehandlung, Me.tsbtndeletebehandlung, Me.ToolStripButton2})
|
||||
Me.tsbtndelete.Location = New System.Drawing.Point(0, 0)
|
||||
Me.tsbtndelete.Name = "tsbtndelete"
|
||||
Me.tsbtndelete.Size = New System.Drawing.Size(1713, 27)
|
||||
Me.tsbtndelete.Size = New System.Drawing.Size(1713, 31)
|
||||
Me.tsbtndelete.TabIndex = 1
|
||||
Me.tsbtndelete.Text = "ToolStrip1"
|
||||
'
|
||||
@@ -198,7 +198,7 @@ Partial Class Behandlung
|
||||
Me.tsbtnnewbehandlung.Image = CType(resources.GetObject("tsbtnnewbehandlung.Image"), System.Drawing.Image)
|
||||
Me.tsbtnnewbehandlung.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.tsbtnnewbehandlung.Name = "tsbtnnewbehandlung"
|
||||
Me.tsbtnnewbehandlung.Size = New System.Drawing.Size(29, 24)
|
||||
Me.tsbtnnewbehandlung.Size = New System.Drawing.Size(29, 28)
|
||||
Me.tsbtnnewbehandlung.Text = "Neue Behandlung"
|
||||
'
|
||||
'tsbtndeletebehandlung
|
||||
@@ -207,7 +207,7 @@ Partial Class Behandlung
|
||||
Me.tsbtndeletebehandlung.Image = CType(resources.GetObject("tsbtndeletebehandlung.Image"), System.Drawing.Image)
|
||||
Me.tsbtndeletebehandlung.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.tsbtndeletebehandlung.Name = "tsbtndeletebehandlung"
|
||||
Me.tsbtndeletebehandlung.Size = New System.Drawing.Size(29, 24)
|
||||
Me.tsbtndeletebehandlung.Size = New System.Drawing.Size(29, 28)
|
||||
Me.tsbtndeletebehandlung.Text = "Behandlung löschen"
|
||||
'
|
||||
'ToolStripButton2
|
||||
@@ -216,18 +216,18 @@ Partial Class Behandlung
|
||||
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton2.Name = "ToolStripButton2"
|
||||
Me.ToolStripButton2.Size = New System.Drawing.Size(29, 24)
|
||||
Me.ToolStripButton2.Size = New System.Drawing.Size(29, 28)
|
||||
Me.ToolStripButton2.Text = "Aktualisieren"
|
||||
'
|
||||
'GroupBox1
|
||||
'
|
||||
Me.GroupBox1.Controls.Add(Me.treebehandlungen)
|
||||
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.GroupBox1.Location = New System.Drawing.Point(0, 27)
|
||||
Me.GroupBox1.Location = New System.Drawing.Point(0, 31)
|
||||
Me.GroupBox1.Margin = New System.Windows.Forms.Padding(4)
|
||||
Me.GroupBox1.Name = "GroupBox1"
|
||||
Me.GroupBox1.Padding = New System.Windows.Forms.Padding(4)
|
||||
Me.GroupBox1.Size = New System.Drawing.Size(273, 1004)
|
||||
Me.GroupBox1.Size = New System.Drawing.Size(273, 1000)
|
||||
Me.GroupBox1.TabIndex = 2
|
||||
Me.GroupBox1.TabStop = False
|
||||
Me.GroupBox1.Text = "Behandlungen"
|
||||
@@ -256,7 +256,7 @@ Partial Class Behandlung
|
||||
Me.treebehandlungen.NodesConnector = Me.NodeConnector1
|
||||
Me.treebehandlungen.NodeStyle = Me.ElementStyle1
|
||||
Me.treebehandlungen.PathSeparator = ";"
|
||||
Me.treebehandlungen.Size = New System.Drawing.Size(265, 981)
|
||||
Me.treebehandlungen.Size = New System.Drawing.Size(265, 977)
|
||||
Me.treebehandlungen.Styles.Add(Me.ElementStyle1)
|
||||
Me.treebehandlungen.TabIndex = 0
|
||||
Me.treebehandlungen.Text = "AdvTree1"
|
||||
@@ -541,18 +541,45 @@ Partial Class Behandlung
|
||||
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2)
|
||||
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
|
||||
Me.SuperTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SuperTabControl1.Location = New System.Drawing.Point(273, 27)
|
||||
Me.SuperTabControl1.Location = New System.Drawing.Point(273, 31)
|
||||
Me.SuperTabControl1.Margin = New System.Windows.Forms.Padding(4)
|
||||
Me.SuperTabControl1.Name = "SuperTabControl1"
|
||||
Me.SuperTabControl1.ReorderTabsEnabled = True
|
||||
Me.SuperTabControl1.SelectedTabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
|
||||
Me.SuperTabControl1.SelectedTabIndex = 0
|
||||
Me.SuperTabControl1.Size = New System.Drawing.Size(1440, 1004)
|
||||
Me.SuperTabControl1.Size = New System.Drawing.Size(1440, 1000)
|
||||
Me.SuperTabControl1.TabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.SuperTabControl1.TabIndex = 9
|
||||
Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.STBehandlung, Me.STLeistung, Me.STAkonto})
|
||||
Me.SuperTabControl1.Text = "Rechnungstext"
|
||||
'
|
||||
'SuperTabControlPanel1
|
||||
'
|
||||
Me.SuperTabControlPanel1.Controls.Add(Me.Panel2)
|
||||
Me.SuperTabControlPanel1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SuperTabControlPanel1.Location = New System.Drawing.Point(0, 28)
|
||||
Me.SuperTabControlPanel1.Margin = New System.Windows.Forms.Padding(4)
|
||||
Me.SuperTabControlPanel1.Name = "SuperTabControlPanel1"
|
||||
Me.SuperTabControlPanel1.Size = New System.Drawing.Size(1440, 972)
|
||||
Me.SuperTabControlPanel1.TabIndex = 1
|
||||
Me.SuperTabControlPanel1.TabItem = Me.STBehandlung
|
||||
'
|
||||
'Panel2
|
||||
'
|
||||
Me.Panel2.Controls.Add(Me.Behandungdetail1)
|
||||
Me.Panel2.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Panel2.Margin = New System.Windows.Forms.Padding(4)
|
||||
Me.Panel2.Name = "Panel2"
|
||||
Me.Panel2.Size = New System.Drawing.Size(1416, 970)
|
||||
Me.Panel2.TabIndex = 9
|
||||
'
|
||||
'STBehandlung
|
||||
'
|
||||
Me.STBehandlung.AttachedControl = Me.SuperTabControlPanel1
|
||||
Me.STBehandlung.GlobalItem = False
|
||||
Me.STBehandlung.Name = "STBehandlung"
|
||||
Me.STBehandlung.Text = "Behandlung"
|
||||
'
|
||||
'SuperTabControlPanel4
|
||||
'
|
||||
Me.SuperTabControlPanel4.Controls.Add(Me.GroupBox2)
|
||||
@@ -705,45 +732,6 @@ Partial Class Behandlung
|
||||
Me.STAkonto.Name = "STAkonto"
|
||||
Me.STAkonto.Text = "Akonto"
|
||||
'
|
||||
'SuperTabControlPanel1
|
||||
'
|
||||
Me.SuperTabControlPanel1.Controls.Add(Me.Panel2)
|
||||
Me.SuperTabControlPanel1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SuperTabControlPanel1.Location = New System.Drawing.Point(0, 28)
|
||||
Me.SuperTabControlPanel1.Margin = New System.Windows.Forms.Padding(4)
|
||||
Me.SuperTabControlPanel1.Name = "SuperTabControlPanel1"
|
||||
Me.SuperTabControlPanel1.Size = New System.Drawing.Size(1440, 976)
|
||||
Me.SuperTabControlPanel1.TabIndex = 1
|
||||
Me.SuperTabControlPanel1.TabItem = Me.STBehandlung
|
||||
'
|
||||
'Panel2
|
||||
'
|
||||
Me.Panel2.Controls.Add(Me.Behandungdetail1)
|
||||
Me.Panel2.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Panel2.Margin = New System.Windows.Forms.Padding(4)
|
||||
Me.Panel2.Name = "Panel2"
|
||||
Me.Panel2.Size = New System.Drawing.Size(1416, 970)
|
||||
Me.Panel2.TabIndex = 9
|
||||
'
|
||||
'Behandungdetail1
|
||||
'
|
||||
Me.Behandungdetail1.Behandlungsnr = 0
|
||||
Me.Behandungdetail1.Behandlungsstatus = 0
|
||||
Me.Behandungdetail1.HasChanges = False
|
||||
Me.Behandungdetail1.Location = New System.Drawing.Point(4, 7)
|
||||
Me.Behandungdetail1.Margin = New System.Windows.Forms.Padding(5)
|
||||
Me.Behandungdetail1.Name = "Behandungdetail1"
|
||||
Me.Behandungdetail1.Patientnr = 0
|
||||
Me.Behandungdetail1.Size = New System.Drawing.Size(1412, 959)
|
||||
Me.Behandungdetail1.TabIndex = 0
|
||||
'
|
||||
'STBehandlung
|
||||
'
|
||||
Me.STBehandlung.AttachedControl = Me.SuperTabControlPanel1
|
||||
Me.STBehandlung.GlobalItem = False
|
||||
Me.STBehandlung.Name = "STBehandlung"
|
||||
Me.STBehandlung.Text = "Behandlung"
|
||||
'
|
||||
'SuperTabControlPanel2
|
||||
'
|
||||
Me.SuperTabControlPanel2.Controls.Add(Me.Panel1)
|
||||
@@ -765,20 +753,6 @@ Partial Class Behandlung
|
||||
Me.Panel1.Size = New System.Drawing.Size(1440, 972)
|
||||
Me.Panel1.TabIndex = 1
|
||||
'
|
||||
'Leistungen1
|
||||
'
|
||||
Me.Leistungen1.behandler = 0
|
||||
Me.Leistungen1.Behandlungnr = 0
|
||||
Me.Leistungen1.Behandlungsstatus = 0
|
||||
Me.Leistungen1.Dentotar = False
|
||||
Me.Leistungen1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Leistungen1.Frankenwert = 0R
|
||||
Me.Leistungen1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Leistungen1.Margin = New System.Windows.Forms.Padding(5)
|
||||
Me.Leistungen1.Name = "Leistungen1"
|
||||
Me.Leistungen1.Size = New System.Drawing.Size(1440, 972)
|
||||
Me.Leistungen1.TabIndex = 0
|
||||
'
|
||||
'STLeistung
|
||||
'
|
||||
Me.STLeistung.AttachedControl = Me.SuperTabControlPanel2
|
||||
@@ -792,7 +766,7 @@ Partial Class Behandlung
|
||||
Me.SuperTabControlPanel3.Location = New System.Drawing.Point(0, 0)
|
||||
Me.SuperTabControlPanel3.Margin = New System.Windows.Forms.Padding(4)
|
||||
Me.SuperTabControlPanel3.Name = "SuperTabControlPanel3"
|
||||
Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1440, 1004)
|
||||
Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1440, 1000)
|
||||
Me.SuperTabControlPanel3.TabIndex = 0
|
||||
'
|
||||
'tsbtnnew
|
||||
@@ -1167,6 +1141,32 @@ Partial Class Behandlung
|
||||
'
|
||||
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
|
||||
'
|
||||
'Behandungdetail1
|
||||
'
|
||||
Me.Behandungdetail1.Behandlungsnr = 0
|
||||
Me.Behandungdetail1.Behandlungsstatus = 0
|
||||
Me.Behandungdetail1.HasChanges = False
|
||||
Me.Behandungdetail1.Location = New System.Drawing.Point(4, 7)
|
||||
Me.Behandungdetail1.Margin = New System.Windows.Forms.Padding(5)
|
||||
Me.Behandungdetail1.Name = "Behandungdetail1"
|
||||
Me.Behandungdetail1.Patientnr = 0
|
||||
Me.Behandungdetail1.Size = New System.Drawing.Size(1412, 959)
|
||||
Me.Behandungdetail1.TabIndex = 0
|
||||
'
|
||||
'Leistungen1
|
||||
'
|
||||
Me.Leistungen1.behandler = 0
|
||||
Me.Leistungen1.Behandlungnr = 0
|
||||
Me.Leistungen1.Behandlungsstatus = 0
|
||||
Me.Leistungen1.Dentotar = False
|
||||
Me.Leistungen1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Leistungen1.Frankenwert = 0R
|
||||
Me.Leistungen1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Leistungen1.Margin = New System.Windows.Forms.Padding(5)
|
||||
Me.Leistungen1.Name = "Leistungen1"
|
||||
Me.Leistungen1.Size = New System.Drawing.Size(1440, 972)
|
||||
Me.Leistungen1.TabIndex = 0
|
||||
'
|
||||
'Behandlung
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
|
||||
@@ -1184,6 +1184,8 @@ Partial Class Behandlung
|
||||
Me.ctxmenubehandlung.ResumeLayout(False)
|
||||
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SuperTabControl1.ResumeLayout(False)
|
||||
Me.SuperTabControlPanel1.ResumeLayout(False)
|
||||
Me.Panel2.ResumeLayout(False)
|
||||
Me.SuperTabControlPanel4.ResumeLayout(False)
|
||||
Me.GroupBox2.ResumeLayout(False)
|
||||
Me.GroupBox2.PerformLayout()
|
||||
@@ -1191,8 +1193,6 @@ Partial Class Behandlung
|
||||
Me.ctxmenuakonto.ResumeLayout(False)
|
||||
Me.ToolStrip1.ResumeLayout(False)
|
||||
Me.ToolStrip1.PerformLayout()
|
||||
Me.SuperTabControlPanel1.ResumeLayout(False)
|
||||
Me.Panel2.ResumeLayout(False)
|
||||
Me.SuperTabControlPanel2.ResumeLayout(False)
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.tsbtnbehandlungdelete.ResumeLayout(False)
|
||||
|
||||
@@ -236,7 +236,7 @@
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
|
||||
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
|
||||
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABO
|
||||
DQAAAk1TRnQBSQFMAgEBBQEAAaABBgGgAQYBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||
DQAAAk1TRnQBSQFMAgEBBQEAAbABBgGwAQYBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
|
||||
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
|
||||
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
|
||||
@@ -338,7 +338,7 @@
|
||||
</value>
|
||||
</data>
|
||||
<data name="c1akonto.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{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;}</Data></Styles><Splits><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"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 1363, 444</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>21</DefaultRecSelWidth><ClientArea>0, 0, 1363, 444</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{BackColor:Info;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="21" DefRecSelWidth="21" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 1363, 444</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>21</DefaultRecSelWidth><ClientArea>0, 0, 1363, 444</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||
</data>
|
||||
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>662, 17</value>
|
||||
@@ -509,7 +509,7 @@
|
||||
</value>
|
||||
</data>
|
||||
<data name="C1Leistungen.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}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;}</Data></Styles><Splits><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"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 1363, 444</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>21</DefaultRecSelWidth><ClientArea>0, 0, 1363, 444</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}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;}</Data></Styles><Splits><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"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 1363, 444</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>21</DefaultRecSelWidth><ClientArea>0, 0, 1363, 444</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||
</data>
|
||||
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>950, 17</value>
|
||||
|
||||
@@ -380,15 +380,18 @@ Public Class Behandlung
|
||||
End Sub
|
||||
|
||||
Sub enable_disable_tabs(ByVal enable As Boolean)
|
||||
Me.SuperTabControl1.Tabs(1).Enabled = enable
|
||||
Me.SuperTabControl1.Tabs(0).Enabled = enable
|
||||
Me.SuperTabControl1.Visible = enable
|
||||
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
|
||||
Me.SuperTabControl1.Tabs(0).Text = "Projekt"
|
||||
Else
|
||||
Me.SuperTabControl1.Tabs(2).Visible = False
|
||||
End If
|
||||
'Me.SuperTabControl1.Tabs(0).Focus()
|
||||
Try
|
||||
Me.SuperTabControl1.Tabs(1).Enabled = enable
|
||||
Me.SuperTabControl1.Tabs(0).Enabled = enable
|
||||
Me.SuperTabControl1.Visible = enable
|
||||
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
|
||||
Me.SuperTabControl1.Tabs(0).Text = "Projekt"
|
||||
Else
|
||||
Me.SuperTabControl1.Tabs(2).Visible = False
|
||||
End If
|
||||
'Me.SuperTabControl1.Tabs(0).Focus()
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -1,319 +1,321 @@
|
||||
Public Class clsFakturaFunktionen
|
||||
Public Sub Vorschau_Rechnung(ByVal nrbehandlung As String)
|
||||
Dim db As New clsDB
|
||||
Dim db1 As New clsDB
|
||||
Dim anzahlraten As Integer = 0
|
||||
'db.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.Behandlungsnr.ToString)
|
||||
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + nrbehandlung)
|
||||
db1.Get_Tabledata("estyp", "where nrestyp=" + db.dsDaten.Tables(0).Rows(0).Item("nrestyp").ToString)
|
||||
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
|
||||
If anzahlraten = 0 Then anzahlraten = 1
|
||||
Dim reportnr As Integer
|
||||
reportnr = db.Get_ReportNr(db1.dsDaten.Tables(0).Rows(0).Item("estyp"))
|
||||
Dim Folgeauswertung As Integer
|
||||
Dim Separater_Druckjob As Boolean
|
||||
Dim doloop As Boolean = True
|
||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
|
||||
|
||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||
|
||||
While doloop = True
|
||||
For i As Integer = 1 To anzahlraten
|
||||
' Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + Me.Behandlungsnr.ToString, Me.Behandlungsnr.ToString)
|
||||
Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
|
||||
|
||||
f.Show()
|
||||
f.Print_Rechnung(True, False, i)
|
||||
If anzahlraten > 1 And i < 2 And Folgeauswertung > 0 Then
|
||||
reportnr = Folgeauswertung
|
||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
|
||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||
Dim f1 As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
|
||||
|
||||
f1.Show()
|
||||
f1.Print_Rechnung(True, False, i)
|
||||
reportnr = db.Get_ReportNr(db1.dsDaten.Tables(0).Rows(0).Item("estyp"))
|
||||
End If
|
||||
Next i
|
||||
|
||||
If Folgeauswertung > 0 And anzahlraten < 2 Then
|
||||
reportnr = Folgeauswertung
|
||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
|
||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||
Else
|
||||
doloop = False
|
||||
End If
|
||||
End While
|
||||
End Sub
|
||||
|
||||
Public Sub Rechnungskopie(ByVal nrbehandlung As String, Optional preview As Boolean = False, Optional asPDF As Boolean = False, Optional PerMail As Boolean = False)
|
||||
Globals.pdfCollection.Clear()
|
||||
Dim db As New clsDB
|
||||
Dim db1 As New clsDB
|
||||
Dim db2 As New clsDB
|
||||
Globals.RGCollection.Clear()
|
||||
Dim anzahlraten As Integer = 0
|
||||
Dim Empfaenger As String = ""
|
||||
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + nrbehandlung)
|
||||
Dim behandlungsnr As Integer = db.dsDaten.Tables(0).Rows(0).Item("nrbehandlung")
|
||||
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
|
||||
Empfaenger = db.dsDaten.Tables(0).Rows(0).Item("Empfaenger")
|
||||
|
||||
If anzahlraten = 0 Then anzahlraten = 1
|
||||
db.Get_Tabledata("estyp", "where nrestyp=" + db.dsDaten.Tables(0).Rows(0).Item("nrestyp").ToString)
|
||||
Dim reportnr As Integer
|
||||
Dim ReportNrOriginal As Integer
|
||||
reportnr = db.Get_ReportNr(db.dsDaten.Tables(0).Rows(0).Item("estyp"))
|
||||
ReportNrOriginal = reportnr
|
||||
|
||||
Dim fakturanr As Integer
|
||||
Try
|
||||
db2.Get_Tabledata("Faktura", "", "Select top 10 nrfaktura from faktura where nrbehandlung=" + behandlungsnr.ToString + " and status <> 9 order by erstellt_am asc ")
|
||||
fakturanr = db2.dsDaten.Tables(0).Rows(0).Item(0)
|
||||
Catch
|
||||
fakturanr = 0
|
||||
End Try
|
||||
Globals.FakturaNr = fakturanr
|
||||
|
||||
Dim Folgeauswertung As Integer
|
||||
Dim Separater_Druckjob As Boolean
|
||||
Dim doloop As Boolean = True
|
||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
|
||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||
Dim hauptfaktura As Integer
|
||||
While doloop = True
|
||||
For i As Integer = 1 To anzahlraten
|
||||
fakturanr = db2.dsDaten.Tables(0).Rows(i - 1).Item(0)
|
||||
Globals.FakturaNr = fakturanr
|
||||
|
||||
If i = 1 And Empfaenger <> "" Then
|
||||
Dim f0 As New frmReportView(9999, False, "Vorschau Rechung", " where nrbehandlung = " + nrbehandlung.ToString, nrbehandlung.ToString, asPDF)
|
||||
f0.Visible = False
|
||||
f0.Show()
|
||||
f0.Visible = False
|
||||
f0.Fakturierung(9999, nrbehandlung, "", i, buchen:=False)
|
||||
f0.Close()
|
||||
Globals.FakturaNr = 0
|
||||
End If
|
||||
Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + behandlungsnr.ToString, behandlungsnr.ToString, asPDF)
|
||||
If Not preview Then f.Visible = False Else f.Visible = True
|
||||
|
||||
If fakturanr = 0 Then
|
||||
If preview Then
|
||||
f.Fakturierung_Vorschau(reportnr, behandlungsnr, "", i, 1, fakturanr)
|
||||
Else
|
||||
f.Fakturierung(reportnr, behandlungsnr, "", i, 1, fakturanr)
|
||||
End If
|
||||
Else
|
||||
If preview Then
|
||||
f.Fakturierung_Vorschau(reportnr, behandlungsnr, "", i, 1, fakturanr)
|
||||
Else
|
||||
f.Fakturierung(reportnr, behandlungsnr, "", i, 1, fakturanr)
|
||||
End If
|
||||
End If
|
||||
If Not preview Then f.Close()
|
||||
If anzahlraten > 1 And i < 2 And Folgeauswertung > 0 Then
|
||||
reportnr = Folgeauswertung
|
||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
|
||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||
Dim f1 As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + behandlungsnr.ToString, behandlungsnr.ToString, asPDF)
|
||||
f1.Visible = False
|
||||
f1.Show()
|
||||
f1.Fakturierung(reportnr, behandlungsnr, "", i, 1, fakturanr)
|
||||
f1.Close()
|
||||
reportnr = ReportNrOriginal
|
||||
'fakturanr = fakturanr - 1
|
||||
End If
|
||||
'fakturanr = fakturanr + 1
|
||||
Next i
|
||||
If Folgeauswertung > 0 And anzahlraten < 2 Then
|
||||
reportnr = Folgeauswertung
|
||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
|
||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||
Else
|
||||
doloop = False
|
||||
End If
|
||||
End While
|
||||
If preview = False Then
|
||||
Dim pdfh As New clspdfhelper
|
||||
pdfh.HandlePDF(asPDF, PerMail, 2, clsMailClient.EmpfangerFrom.Behandlung, nrbehandlung)
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub Mahnung(ByVal Fakturanr As String, ByVal Stufe As Integer, Optional Preview As Boolean = False, Optional Design As Boolean = False, Optional asPDF As Boolean = False, Optional perMail As Boolean = False)
|
||||
Globals.pdfCollection.Clear()
|
||||
Dim db As New clsDB
|
||||
Dim db1 As New clsDB
|
||||
Dim anzahlraten As Integer = 0
|
||||
Dim Behandlungsnr As Integer
|
||||
Dim Empfaenger As String = ""
|
||||
db.Get_Tabledata("Faktura", "", "Select nrbehandlung from faktura where nrfaktura=" + Fakturanr)
|
||||
Behandlungsnr = db.dsDaten.Tables(0).Rows(0).Item("nrbehandlung")
|
||||
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + db.dsDaten.Tables(0).Rows(0).Item("nrbehandlung").ToString)
|
||||
db1.Get_Tabledata("estyp", "where nrestyp=" + db.dsDaten.Tables(0).Rows(0).Item("nrestyp").ToString)
|
||||
|
||||
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
|
||||
Empfaenger = db.dsDaten.Tables(0).Rows(0).Item("Empfaenger")
|
||||
If anzahlraten = 0 Then anzahlraten = 1
|
||||
|
||||
Dim reportnr As Integer
|
||||
|
||||
reportnr = db.Get_ReportNr(db1.dsDaten.Tables(0).Rows(0).Item("estyp"))
|
||||
reportnr = db1.dsDaten.Tables(0).Rows(0).Item("mahnnummer") + Stufe
|
||||
Globals.FakturaNr = 0
|
||||
|
||||
Dim Folgeauswertung As Integer
|
||||
Dim Separater_Druckjob As Boolean
|
||||
Dim doloop As Boolean = True
|
||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
|
||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||
Dim hauptfaktura As Integer
|
||||
Dim buchen As Boolean = False
|
||||
If Preview = False And Design = False Then buchen = True
|
||||
|
||||
While doloop = True
|
||||
For i As Integer = 1 To anzahlraten
|
||||
If i = 1 And Empfaenger <> "" Then
|
||||
Dim f0 As New frmReportView(9999, False, "Vorschau Rechung", " where nrbehandlung = " + Behandlungsnr.ToString, Behandlungsnr.ToString)
|
||||
f0.Visible = False
|
||||
f0.Show()
|
||||
f0.Visible = False
|
||||
f0.Fakturierung(9999, Behandlungsnr.ToString, "", i, buchen:=False)
|
||||
f0.Close()
|
||||
Globals.FakturaNr = 0
|
||||
End If
|
||||
Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + Behandlungsnr.ToString, Behandlungsnr.ToString)
|
||||
f.Visible = False
|
||||
f.Show()
|
||||
If Not Preview And Not Design Then f.Visible = False
|
||||
f.Mahnungg(Stufe, reportnr, Behandlungsnr, "", i, True, Fakturanr, buchen, Preview, Design)
|
||||
If Not Preview Then f.Close()
|
||||
If Design Then f.Close()
|
||||
If anzahlraten > 1 And i < 2 And Folgeauswertung > 0 Then
|
||||
reportnr = Folgeauswertung
|
||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
|
||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||
Dim f1 As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + Behandlungsnr.ToString, Behandlungsnr.ToString)
|
||||
f1.Visible = False
|
||||
f1.Show()
|
||||
If Not Preview And Not Design Then f1.Visible = False
|
||||
f1.Mahnungg(Stufe, reportnr, Behandlungsnr, "", i, True, Fakturanr, buchen, Preview, Design)
|
||||
f1.Close()
|
||||
reportnr = db.Get_ReportNr(db1.dsDaten.Tables(0).Rows(0).Item("estyp"))
|
||||
reportnr = db1.dsDaten.Tables(0).Rows(0).Item("mahnnummer") + Stufe
|
||||
End If
|
||||
Next i
|
||||
If Folgeauswertung > 0 And anzahlraten < 2 Then
|
||||
reportnr = Folgeauswertung
|
||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
|
||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||
Else
|
||||
doloop = False
|
||||
End If
|
||||
End While
|
||||
If Preview = False And Design = False Then
|
||||
Dim pdfh As New clspdfhelper
|
||||
pdfh.Create_Archivdoc(clspdfhelper.GetEmpfaengerType.FromFaktura, Fakturanr, "Mahnung:")
|
||||
pdfh = Nothing
|
||||
End If
|
||||
|
||||
Globals.pdfCollection.Clear()
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub Offerte_Auftragsbestaegitigung_Lieferschein(ByVal nrbehandlung As String, ByVal typ As Integer, ByVal PDFHandling As Integer, ByVal archivdoc As Boolean, ByVal fromtype As clspdfhelper.GetEmpfaengerType)
|
||||
Dim pdfh As New clspdfhelper
|
||||
|
||||
Dim db As New clsDB
|
||||
Dim db1 As New clsDB
|
||||
Dim anzahlraten As Integer = 0
|
||||
'db.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.Behandlungsnr.ToString)
|
||||
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + nrbehandlung)
|
||||
db1.Get_Tabledata("estyp", "where nrestyp=" + db.dsDaten.Tables(0).Rows(0).Item("nrestyp").ToString)
|
||||
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
|
||||
If anzahlraten = 0 Then anzahlraten = 1
|
||||
Dim reportnr As Integer
|
||||
Dim Doktype As String
|
||||
Dim MAILTEXTNR As Integer
|
||||
Select Case typ
|
||||
Case 1
|
||||
Doktype = "Offerte"
|
||||
MAILTEXTNR = 3
|
||||
reportnr = db.Get_ReportNr("Offerte")
|
||||
Case 2
|
||||
Doktype = "Auftragsbestätigung"
|
||||
MAILTEXTNR = 4
|
||||
reportnr = db.Get_ReportNr("Offerte")
|
||||
Case 3
|
||||
MAILTEXTNR = 5
|
||||
Doktype = "Lieferschein"
|
||||
|
||||
reportnr = db.Get_ReportNr("Offerte")
|
||||
|
||||
End Select
|
||||
|
||||
Dim Folgeauswertung As Integer
|
||||
Dim Separater_Druckjob As Boolean
|
||||
Dim doloop As Boolean = True
|
||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
|
||||
|
||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||
Select Case PDFHandling
|
||||
Case 0
|
||||
Dim f As New frmReportView(reportnr, False, "Vorschau ", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
|
||||
f.Show()
|
||||
f.Print_Rechnung(True, False, 1, 0, 0, Doktype)
|
||||
Case 1
|
||||
Dim f As New frmReportView(reportnr, False, "PDF ", " where nrbehandlung = " + nrbehandlung, nrbehandlung, True)
|
||||
f.Visible = False
|
||||
f.Print_Rechnung(False, False, 1, 0, 0, Doktype)
|
||||
|
||||
pdfh.Create_Archivdoc(fromtype, "", "Lieferschein:", nrbehandlung)
|
||||
|
||||
Case 2
|
||||
Dim f As New frmReportView(reportnr, False, "PDF/Mail ", " where nrbehandlung = " + nrbehandlung, nrbehandlung, True)
|
||||
f.Visible = False
|
||||
f.Print_Rechnung(False, False, 1, 0, 0, Doktype)
|
||||
pdfh.Create_Archivdoc(fromtype, "", "Auftragsbestätigung:", nrbehandlung)
|
||||
Case 3
|
||||
Dim f As New frmReportView(reportnr, False, "Druck ", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
|
||||
f.Visible = False
|
||||
f.Show()
|
||||
f.Print_Rechnung(False, False, 1, 0, 0, Doktype)
|
||||
f.Close()
|
||||
pdfh.Create_Archivdoc(fromtype, "", "Lieferschein:", nrbehandlung)
|
||||
Case 4
|
||||
Dim f As New frmReportView(reportnr, False, "Vorschau ", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
|
||||
f.Show()
|
||||
f.Print_Rechnung(False, True, 1, 0, 0, Doktype)
|
||||
f.Close()
|
||||
End Select
|
||||
|
||||
|
||||
Dim asPDF As Boolean = False
|
||||
Dim PerMail As Boolean = False
|
||||
Select Case PDFHandling
|
||||
Case 1
|
||||
pdfh.HandlePDF(True, False, MAILTEXTNR, clsMailClient.EmpfangerFrom.Behandlung, nrbehandlung)
|
||||
Case 2
|
||||
|
||||
pdfh.HandlePDF(True, True, MAILTEXTNR, clsMailClient.EmpfangerFrom.Behandlung, nrbehandlung)
|
||||
End Select
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
Public Class clsFakturaFunktionen
|
||||
Public Sub Vorschau_Rechnung(ByVal nrbehandlung As String)
|
||||
Dim db As New clsDB
|
||||
Dim db1 As New clsDB
|
||||
Dim anzahlraten As Integer = 0
|
||||
'db.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.Behandlungsnr.ToString)
|
||||
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + nrbehandlung)
|
||||
db1.Get_Tabledata("estyp", "where nrestyp=" + db.dsDaten.Tables(0).Rows(0).Item("nrestyp").ToString)
|
||||
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
|
||||
If anzahlraten = 0 Then anzahlraten = 1
|
||||
Dim reportnr As Integer
|
||||
reportnr = db.Get_ReportNr(db1.dsDaten.Tables(0).Rows(0).Item("estyp"))
|
||||
Dim Folgeauswertung As Integer
|
||||
Dim Separater_Druckjob As Boolean
|
||||
Dim doloop As Boolean = True
|
||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
|
||||
|
||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||
|
||||
While doloop = True
|
||||
For i As Integer = 1 To anzahlraten
|
||||
' Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + Me.Behandlungsnr.ToString, Me.Behandlungsnr.ToString)
|
||||
Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
|
||||
|
||||
f.Show()
|
||||
f.Print_Rechnung(True, False, i)
|
||||
If anzahlraten > 1 And i < 2 And Folgeauswertung > 0 Then
|
||||
reportnr = Folgeauswertung
|
||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
|
||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||
Dim f1 As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
|
||||
|
||||
f1.Show()
|
||||
f1.Print_Rechnung(True, False, i)
|
||||
reportnr = db.Get_ReportNr(db1.dsDaten.Tables(0).Rows(0).Item("estyp"))
|
||||
End If
|
||||
Next i
|
||||
|
||||
If Folgeauswertung > 0 And anzahlraten < 2 Then
|
||||
reportnr = Folgeauswertung
|
||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
|
||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||
Else
|
||||
doloop = False
|
||||
End If
|
||||
End While
|
||||
End Sub
|
||||
|
||||
Public Sub Rechnungskopie(ByVal nrbehandlung As String, Optional preview As Boolean = False, Optional asPDF As Boolean = False, Optional PerMail As Boolean = False)
|
||||
Globals.pdfCollection.Clear()
|
||||
Dim db As New clsDB
|
||||
Dim db1 As New clsDB
|
||||
Dim db2 As New clsDB
|
||||
Globals.RGCollection.Clear()
|
||||
Dim anzahlraten As Integer = 0
|
||||
Dim Empfaenger As String = ""
|
||||
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + nrbehandlung)
|
||||
Dim behandlungsnr As Integer = db.dsDaten.Tables(0).Rows(0).Item("nrbehandlung")
|
||||
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
|
||||
Empfaenger = db.dsDaten.Tables(0).Rows(0).Item("Empfaenger")
|
||||
|
||||
If anzahlraten = 0 Then anzahlraten = 1
|
||||
db.Get_Tabledata("estyp", "where nrestyp=" + db.dsDaten.Tables(0).Rows(0).Item("nrestyp").ToString)
|
||||
Dim reportnr As Integer
|
||||
Dim ReportNrOriginal As Integer
|
||||
reportnr = db.Get_ReportNr(db.dsDaten.Tables(0).Rows(0).Item("estyp"))
|
||||
ReportNrOriginal = reportnr
|
||||
|
||||
Dim fakturanr As Integer
|
||||
Try
|
||||
db2.Get_Tabledata("Faktura", "", "Select top 10 nrfaktura from faktura where nrbehandlung=" + behandlungsnr.ToString + " and status <> 9 order by erstellt_am asc ")
|
||||
fakturanr = db2.dsDaten.Tables(0).Rows(0).Item(0)
|
||||
Catch
|
||||
fakturanr = 0
|
||||
End Try
|
||||
Globals.FakturaNr = fakturanr
|
||||
|
||||
Dim Folgeauswertung As Integer
|
||||
Dim Separater_Druckjob As Boolean
|
||||
Dim doloop As Boolean = True
|
||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
|
||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||
Dim hauptfaktura As Integer
|
||||
While doloop = True
|
||||
For i As Integer = 1 To anzahlraten
|
||||
fakturanr = db2.dsDaten.Tables(0).Rows(i - 1).Item(0)
|
||||
Globals.FakturaNr = fakturanr
|
||||
|
||||
If i = 1 And Empfaenger <> "" Then
|
||||
Dim f0 As New frmReportView(9999, False, "Vorschau Rechung", " where nrbehandlung = " + nrbehandlung.ToString, nrbehandlung.ToString, asPDF)
|
||||
f0.Visible = False
|
||||
f0.Show()
|
||||
f0.Visible = False
|
||||
f0.Fakturierung(9999, nrbehandlung, "", i, buchen:=False)
|
||||
f0.Close()
|
||||
Globals.FakturaNr = 0
|
||||
End If
|
||||
Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + behandlungsnr.ToString, behandlungsnr.ToString, asPDF)
|
||||
If Not preview Then f.Visible = False Else f.Visible = True
|
||||
|
||||
If fakturanr = 0 Then
|
||||
If preview Then
|
||||
f.Fakturierung_Vorschau(reportnr, behandlungsnr, "", i, 1, fakturanr)
|
||||
Else
|
||||
f.Fakturierung(reportnr, behandlungsnr, "", i, 1, fakturanr)
|
||||
End If
|
||||
Else
|
||||
If preview Then
|
||||
f.Fakturierung_Vorschau(reportnr, behandlungsnr, "", i, 1, fakturanr)
|
||||
Else
|
||||
f.Fakturierung(reportnr, behandlungsnr, "", i, 1, fakturanr)
|
||||
End If
|
||||
End If
|
||||
If Not preview Then f.Close()
|
||||
If anzahlraten > 1 And i < 2 And Folgeauswertung > 0 Then
|
||||
reportnr = Folgeauswertung
|
||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
|
||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||
Dim f1 As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + behandlungsnr.ToString, behandlungsnr.ToString, asPDF)
|
||||
f1.Visible = False
|
||||
f1.Show()
|
||||
f1.Fakturierung(reportnr, behandlungsnr, "", i, 1, fakturanr)
|
||||
f1.Close()
|
||||
reportnr = ReportNrOriginal
|
||||
'fakturanr = fakturanr - 1
|
||||
End If
|
||||
'fakturanr = fakturanr + 1
|
||||
Next i
|
||||
If Folgeauswertung > 0 And anzahlraten < 2 Then
|
||||
reportnr = Folgeauswertung
|
||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
|
||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||
Else
|
||||
doloop = False
|
||||
End If
|
||||
End While
|
||||
If preview = False Then
|
||||
Dim pdfh As New clspdfhelper
|
||||
pdfh.HandlePDF(asPDF, PerMail, 2, clsMailClient.EmpfangerFrom.Behandlung, nrbehandlung)
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub Mahnung(ByVal Fakturanr As String, ByVal Stufe As Integer, Optional Preview As Boolean = False, Optional Design As Boolean = False, Optional asPDF As Boolean = False, Optional perMail As Boolean = False)
|
||||
Globals.pdfCollection.Clear()
|
||||
Dim db As New clsDB
|
||||
Dim db1 As New clsDB
|
||||
Dim anzahlraten As Integer = 0
|
||||
Dim Behandlungsnr As Integer
|
||||
Dim Empfaenger As String = ""
|
||||
db.Get_Tabledata("Faktura", "", "Select nrbehandlung from faktura where nrfaktura=" + Fakturanr)
|
||||
Behandlungsnr = db.dsDaten.Tables(0).Rows(0).Item("nrbehandlung")
|
||||
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + db.dsDaten.Tables(0).Rows(0).Item("nrbehandlung").ToString)
|
||||
db1.Get_Tabledata("estyp", "where nrestyp=" + db.dsDaten.Tables(0).Rows(0).Item("nrestyp").ToString)
|
||||
|
||||
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
|
||||
Empfaenger = db.dsDaten.Tables(0).Rows(0).Item("Empfaenger")
|
||||
If anzahlraten = 0 Then anzahlraten = 1
|
||||
|
||||
Dim reportnr As Integer
|
||||
|
||||
reportnr = db.Get_ReportNr(db1.dsDaten.Tables(0).Rows(0).Item("estyp"))
|
||||
reportnr = db1.dsDaten.Tables(0).Rows(0).Item("mahnnummer") + Stufe
|
||||
Globals.FakturaNr = 0
|
||||
|
||||
Dim Folgeauswertung As Integer
|
||||
Dim Separater_Druckjob As Boolean
|
||||
Dim doloop As Boolean = True
|
||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
|
||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||
Dim hauptfaktura As Integer
|
||||
Dim buchen As Boolean = False
|
||||
If Preview = False And Design = False Then buchen = True
|
||||
|
||||
While doloop = True
|
||||
For i As Integer = 1 To anzahlraten
|
||||
If i = 1 And Empfaenger <> "" Then
|
||||
Dim f0 As New frmReportView(9999, False, "Vorschau Rechung", " where nrbehandlung = " + Behandlungsnr.ToString, Behandlungsnr.ToString)
|
||||
f0.Visible = False
|
||||
f0.Show()
|
||||
f0.Visible = False
|
||||
f0.Fakturierung(9999, Behandlungsnr.ToString, "", i, buchen:=False)
|
||||
f0.Close()
|
||||
Globals.FakturaNr = 0
|
||||
End If
|
||||
Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + Behandlungsnr.ToString, Behandlungsnr.ToString)
|
||||
f.Visible = False
|
||||
f.Show()
|
||||
If Not Preview And Not Design Then f.Visible = False
|
||||
f.Mahnungg(Stufe, reportnr, Behandlungsnr, "", i, True, Fakturanr, buchen, Preview, Design, asPDF)
|
||||
If Not Preview Then f.Close()
|
||||
If Design Then f.Close()
|
||||
If anzahlraten > 1 And i < 2 And Folgeauswertung > 0 Then
|
||||
reportnr = Folgeauswertung
|
||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
|
||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||
Dim f1 As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + Behandlungsnr.ToString, Behandlungsnr.ToString)
|
||||
f1.Visible = False
|
||||
f1.Show()
|
||||
If Not Preview And Not Design Then f1.Visible = False
|
||||
f1.Mahnungg(Stufe, reportnr, Behandlungsnr, "", i, True, Fakturanr, buchen, Preview, Design)
|
||||
f1.Close()
|
||||
reportnr = db.Get_ReportNr(db1.dsDaten.Tables(0).Rows(0).Item("estyp"))
|
||||
reportnr = db1.dsDaten.Tables(0).Rows(0).Item("mahnnummer") + Stufe
|
||||
End If
|
||||
Next i
|
||||
If Folgeauswertung > 0 And anzahlraten < 2 Then
|
||||
reportnr = Folgeauswertung
|
||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
|
||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||
Else
|
||||
doloop = False
|
||||
End If
|
||||
End While
|
||||
If Preview = False And Design = False Then
|
||||
Dim pdfh As New clspdfhelper
|
||||
pdfh.Create_Archivdoc(clspdfhelper.GetEmpfaengerType.FromFaktura, Fakturanr, "Mahnung:")
|
||||
pdfh.HandlePDF(asPDF, False, False, clsMailClient.EmpfangerFrom.Behandlung, Fakturanr)
|
||||
pdfh = Nothing
|
||||
pdfh = Nothing
|
||||
End If
|
||||
|
||||
Globals.pdfCollection.Clear()
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub Offerte_Auftragsbestaegitigung_Lieferschein(ByVal nrbehandlung As String, ByVal typ As Integer, ByVal PDFHandling As Integer, ByVal archivdoc As Boolean, ByVal fromtype As clspdfhelper.GetEmpfaengerType)
|
||||
Dim pdfh As New clspdfhelper
|
||||
|
||||
Dim db As New clsDB
|
||||
Dim db1 As New clsDB
|
||||
Dim anzahlraten As Integer = 0
|
||||
'db.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.Behandlungsnr.ToString)
|
||||
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + nrbehandlung)
|
||||
db1.Get_Tabledata("estyp", "where nrestyp=" + db.dsDaten.Tables(0).Rows(0).Item("nrestyp").ToString)
|
||||
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
|
||||
If anzahlraten = 0 Then anzahlraten = 1
|
||||
Dim reportnr As Integer
|
||||
Dim Doktype As String
|
||||
Dim MAILTEXTNR As Integer
|
||||
Select Case typ
|
||||
Case 1
|
||||
Doktype = "Offerte"
|
||||
MAILTEXTNR = 3
|
||||
reportnr = db.Get_ReportNr("Offerte")
|
||||
Case 2
|
||||
Doktype = "Auftragsbestätigung"
|
||||
MAILTEXTNR = 4
|
||||
reportnr = db.Get_ReportNr("Offerte")
|
||||
Case 3
|
||||
MAILTEXTNR = 5
|
||||
Doktype = "Lieferschein"
|
||||
|
||||
reportnr = db.Get_ReportNr("Offerte")
|
||||
|
||||
End Select
|
||||
|
||||
Dim Folgeauswertung As Integer
|
||||
Dim Separater_Druckjob As Boolean
|
||||
Dim doloop As Boolean = True
|
||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
|
||||
|
||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||
Select Case PDFHandling
|
||||
Case 0
|
||||
Dim f As New frmReportView(reportnr, False, "Vorschau ", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
|
||||
f.Show()
|
||||
f.Print_Rechnung(True, False, 1, 0, 0, Doktype)
|
||||
Case 1
|
||||
Dim f As New frmReportView(reportnr, False, "PDF ", " where nrbehandlung = " + nrbehandlung, nrbehandlung, True)
|
||||
f.Visible = False
|
||||
f.Print_Rechnung(False, False, 1, 0, 0, Doktype)
|
||||
|
||||
pdfh.Create_Archivdoc(fromtype, "", "Lieferschein:", nrbehandlung)
|
||||
|
||||
Case 2
|
||||
Dim f As New frmReportView(reportnr, False, "PDF/Mail ", " where nrbehandlung = " + nrbehandlung, nrbehandlung, True)
|
||||
f.Visible = False
|
||||
f.Print_Rechnung(False, False, 1, 0, 0, Doktype)
|
||||
pdfh.Create_Archivdoc(fromtype, "", "Auftragsbestätigung:", nrbehandlung)
|
||||
Case 3
|
||||
Dim f As New frmReportView(reportnr, False, "Druck ", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
|
||||
f.Visible = False
|
||||
f.Show()
|
||||
f.Print_Rechnung(False, False, 1, 0, 0, Doktype)
|
||||
f.Close()
|
||||
pdfh.Create_Archivdoc(fromtype, "", "Lieferschein:", nrbehandlung)
|
||||
Case 4
|
||||
Dim f As New frmReportView(reportnr, False, "Vorschau ", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
|
||||
f.Show()
|
||||
f.Print_Rechnung(False, True, 1, 0, 0, Doktype)
|
||||
f.Close()
|
||||
End Select
|
||||
|
||||
|
||||
Dim asPDF As Boolean = False
|
||||
Dim PerMail As Boolean = False
|
||||
Select Case PDFHandling
|
||||
Case 1
|
||||
pdfh.HandlePDF(True, False, MAILTEXTNR, clsMailClient.EmpfangerFrom.Behandlung, nrbehandlung)
|
||||
Case 2
|
||||
|
||||
pdfh.HandlePDF(True, True, MAILTEXTNR, clsMailClient.EmpfangerFrom.Behandlung, nrbehandlung)
|
||||
End Select
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
@@ -8,7 +8,7 @@
|
||||
<OutputType>WinExe</OutputType>
|
||||
<StartupObject>DPM2016.Program</StartupObject>
|
||||
<RootNamespace>DPM2016</RootNamespace>
|
||||
<AssemblyName>PADM</AssemblyName>
|
||||
<AssemblyName>DPM</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>WindowsFormsWithCustomSubMain</MyType>
|
||||
<TargetFrameworkVersion>v4.6</TargetFrameworkVersion>
|
||||
@@ -37,7 +37,7 @@
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\Debug\</OutputPath>
|
||||
<DocumentationFile>PADM.xml</DocumentationFile>
|
||||
<DocumentationFile>DPM.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
<Prefer32Bit>false</Prefer32Bit>
|
||||
</PropertyGroup>
|
||||
@@ -48,7 +48,7 @@
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>bin\Release\</OutputPath>
|
||||
<DocumentationFile>PADM.xml</DocumentationFile>
|
||||
<DocumentationFile>DPM.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
<Prefer32Bit>false</Prefer32Bit>
|
||||
</PropertyGroup>
|
||||
@@ -65,7 +65,7 @@
|
||||
<OptionInfer>On</OptionInfer>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<ApplicationIcon>PADM.ico</ApplicationIcon>
|
||||
<ApplicationIcon>DPMNeu.ico</ApplicationIcon>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
|
||||
|
||||
@@ -893,7 +893,7 @@ Public Class clsDB
|
||||
Dim faelligkeit As Date
|
||||
Dim mahngebuehr As Double
|
||||
|
||||
mahndatum = daten.Rows(0).Item("Mahndatum")
|
||||
mahndatum = Now()
|
||||
faelligkeit = daten.Rows(0).Item("Mahnfaelligkeit")
|
||||
mahngebuehr = daten.Rows(0).Item("mahnzuschlag")
|
||||
Select Case Stufe
|
||||
|
||||
1364
DPM2016/Finanzaen/Finanzen.Designer.vb
generated
1364
DPM2016/Finanzaen/Finanzen.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
@@ -1,208 +1,208 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>281, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="C1Zahlungen.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
|
||||
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="C1Zahlungen.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
|
||||
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
||||
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
||||
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
||||
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
||||
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
||||
</value>
|
||||
</data>
|
||||
<data name="C1Zahlungen.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>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{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 551, 226</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 551, 226</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||
</data>
|
||||
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>124, 17</value>
|
||||
</metadata>
|
||||
<data name="C1OffeneRechnungen.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
|
||||
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="C1OffeneRechnungen.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
|
||||
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
||||
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
||||
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
||||
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
||||
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
||||
</value>
|
||||
</data>
|
||||
<data name="C1OffeneRechnungen.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>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{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 551, 153</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 551, 153</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||
</data>
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>281, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="C1Zahlungen.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
|
||||
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="C1Zahlungen.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
|
||||
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
||||
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
||||
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
||||
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
||||
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
||||
</value>
|
||||
</data>
|
||||
<data name="C1Zahlungen.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>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;}</Data></Styles><Splits><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"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 735, 279</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>21</DefaultRecSelWidth><ClientArea>0, 0, 735, 279</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||
</data>
|
||||
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>124, 17</value>
|
||||
</metadata>
|
||||
<data name="C1OffeneRechnungen.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
|
||||
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="C1OffeneRechnungen.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
|
||||
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
||||
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
||||
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
||||
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
||||
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
||||
</value>
|
||||
</data>
|
||||
<data name="C1OffeneRechnungen.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>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;}</Data></Styles><Splits><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"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 735, 189</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>21</DefaultRecSelWidth><ClientArea>0, 0, 735, 189</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -1,371 +1,371 @@
|
||||
Imports C1.Win.C1TrueDBGrid
|
||||
|
||||
Public Class Finanzen
|
||||
|
||||
Dim dbz As New clsDB
|
||||
Dim dbk As New clsDB
|
||||
Dim spalten As New Tabellenspalte
|
||||
Dim m_patientnr As Integer
|
||||
Property Patientnr As Integer
|
||||
Get
|
||||
Return m_patientnr
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
m_patientnr = value
|
||||
refresh_konto()
|
||||
Refresh_Zahlungen()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim Zahlungen As New DataTable
|
||||
Dim Offene_Rechnungen As New DataTable
|
||||
Sub Refresh_Zahlungen()
|
||||
Try
|
||||
dbz.Get_Tabledata("Zahlung", "", dbz.Get_SQL(19), Me.Patientnr.ToString)
|
||||
Zahlungen = dbz.dsDaten.Tables(0).Copy
|
||||
Me.C1Zahlungen.DataSource = Nothing
|
||||
Me.C1Zahlungen.DataSource = Zahlungen
|
||||
Me.C1Zahlungen.DataMember = dbz.dsDaten.Tables(0).TableName
|
||||
spalten.Spaltentitel_aktualisieren(Me.C1Zahlungen, "Zahlungen", Zahlungen)
|
||||
dbz.Get_Tabledata("OffeneRechnungen", "", dbz.Get_SQL(22), Me.Patientnr.ToString)
|
||||
Offene_Rechnungen = dbz.dsDaten.Tables(0).Copy
|
||||
Me.C1OffeneRechnungen.DataSource = Nothing
|
||||
Me.C1OffeneRechnungen.DataSource = Offene_Rechnungen
|
||||
Me.C1OffeneRechnungen.DataMember = Offene_Rechnungen.TableName
|
||||
spalten.Spaltentitel_aktualisieren(Me.C1OffeneRechnungen, "Offene_Rechnungen", Offene_Rechnungen)
|
||||
|
||||
Me.Mahndatum1.Text = ""
|
||||
Me.Mahndatum2.Text = ""
|
||||
Me.Mahndatum3.Text = ""
|
||||
Me.Mahnfaelligkeit1.Text = ""
|
||||
Me.Mahnfaelligkeit2.Text = ""
|
||||
Me.Mahnfaelligkeit3.Text = ""
|
||||
Me.Mahngebühr1.Text = ""
|
||||
Me.Mahngebühr2.Text = ""
|
||||
Me.Mahngebühr3.Text = ""
|
||||
|
||||
Me.btnZurücksetzen1.Visible = False
|
||||
Me.btnzurücksetzen2.Visible = False
|
||||
Me.btnzurücksetzen3.Visible = False
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
Public Sub Refresh_Data()
|
||||
refresh_konto()
|
||||
Refresh_Zahlungen()
|
||||
Get_Mahndaten()
|
||||
End Sub
|
||||
Sub refresh_konto()
|
||||
dbk.Get_Tabledata("Konto", "where aktiv=1 order by reihenfolge")
|
||||
Me.cbboxKonto.DataSource = dbk.dsDaten.Tables(0)
|
||||
Me.cbboxKonto.Displaymember = "Konto"
|
||||
Me.cbboxKonto.Valuemember = "nrkonto"
|
||||
End Sub
|
||||
|
||||
Private Sub txtRGNummer_TextChanged(sender As Object, e As EventArgs) Handles txtRGNummer.TextChanged
|
||||
If Me.txtRGNummer.Text <> "" Then
|
||||
Me.chkVorauszahlung.Checked = False
|
||||
Me.chkVorauszahlung.Enabled = False
|
||||
Else
|
||||
Me.chkVorauszahlung.Enabled = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnBuchen_Click(sender As Object, e As EventArgs) Handles btnBuchen.Click
|
||||
Dim db5 As New clsDB
|
||||
Dim vz As String = ""
|
||||
Dim Storno As String = ""
|
||||
Dim Debitor As Integer = 0
|
||||
If chkVorauszahlung.Checked = False And Me.txtRGNummer.Text = "" Then
|
||||
MsgBox("Zahlung kann nicht verbucht werden. Entweder als Vorauszahlung oder mit gültiger Rechnungsnummer.", MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
Dim newkey As Integer = dbz.Get_DBKey("Zahlung")
|
||||
dbz.Get_Tabledata("Zahlung", "where nrzahlung=0")
|
||||
Dim r As DataRow = dbz.dsDaten.Tables(0).NewRow
|
||||
r("nrzahlung") = newkey
|
||||
If Me.chkVorauszahlung.Checked = True Then r("nrfaktura") = 0 Else r("nrfaktura") = txtRGNummer.Text
|
||||
r("vorauszahlung") = chkVorauszahlung.Checked
|
||||
r("mandant") = 1
|
||||
If r("nrfaktura") <> 0 Then
|
||||
Try
|
||||
db5.Get_Tabledata("Fakt", "", "Select * from faktura where nrfaktura='" + r("nrfaktura").ToString + "'")
|
||||
Debitor = db5.dsDaten.Tables(0).Rows(0).Item("nrdebitor")
|
||||
Catch
|
||||
Debitor = 0
|
||||
End Try
|
||||
|
||||
End If
|
||||
If Me.Patientnr <> Debitor And Debitor > 0 Then
|
||||
r("nrdebotir") = Debitor
|
||||
Else
|
||||
r("nrdebitor") = Me.Patientnr
|
||||
End If
|
||||
r("nrdebitor") = Me.Patientnr
|
||||
r("betrag") = Me.diBetrag.Value
|
||||
r("nrkonto") = cbboxKonto.SelectedValue
|
||||
r("valuta") = Me.dtdatum.Value
|
||||
r("nrbehandlung") = 0
|
||||
r("status") = 0
|
||||
If chkVorauszahlung.Checked Then
|
||||
r("status") = 1
|
||||
vz = "J"
|
||||
End If
|
||||
r("statusdatum") = Now
|
||||
r("erstellt_am") = Now
|
||||
r("mutiert_am") = Now
|
||||
r("mutierer") = Globals.ActUser
|
||||
r("aktiv") = True
|
||||
dbz.dsDaten.Tables(0).Rows.Add(r)
|
||||
dbz.Update_Data()
|
||||
|
||||
db5.Insert_ZJournal(r("nrfaktura"), r("nrdebitor"), db5.Get_Datavalue("Select dbo.get_name(" + r.Item("nrdebitor").ToString + ")"), r.Item("Betrag"), db5.Get_Datavalue("Select Konto from konto where nrkonto=" + r.Item("nrkonto").ToString), vz, "")
|
||||
db5.Exec_SQL("Update debitor set mutiert_am=getdate(),betrag=betrag-" + r("betrag").ToString + "where nrfaktura=" + r("nrfaktura").ToString)
|
||||
Me.Refresh_Zahlungen()
|
||||
If vz = "J" Then
|
||||
If MsgBox("Vorauszahlung einer Behandlung zuweisen?", vbYesNo + vbQuestion) Then
|
||||
VorauszahlungAnBehandlungZuweisenToolStripMenuItem_Click(sender, e)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub C1OffeneRechnungen_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1OffeneRechnungen.RowColChange
|
||||
Try
|
||||
Me.dtdatum.Value = Now
|
||||
Me.txtRGNummer.Text = Me.C1OffeneRechnungen.Columns("nrfaktura").Value
|
||||
Me.diBetrag.Value = Me.C1OffeneRechnungen.Columns("Betrag").Value
|
||||
get_mahndaten
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
Sub Get_Mahndaten()
|
||||
Me.Mahndatum1.Text = ""
|
||||
Me.Mahndatum2.Text = ""
|
||||
Me.Mahndatum3.Text = ""
|
||||
Me.Mahnfaelligkeit1.Text = ""
|
||||
Me.Mahnfaelligkeit2.Text = ""
|
||||
Me.Mahnfaelligkeit3.Text = ""
|
||||
Me.Mahngebühr1.Text = ""
|
||||
Me.Mahngebühr2.Text = ""
|
||||
Me.Mahngebühr3.Text = ""
|
||||
Me.btnZurücksetzen1.Visible = False
|
||||
Me.btnzurücksetzen2.Visible = False
|
||||
Me.btnzurücksetzen3.Visible = False
|
||||
Dim dd As Date
|
||||
Try
|
||||
Me.Mahndatum1.Text = ShortDate(Me.C1OffeneRechnungen.Columns("Mahndatum1").Value.ToString)
|
||||
Me.Mahndatum2.Text = ShortDate(Me.C1OffeneRechnungen.Columns("Mahndatum2").Value.ToString)
|
||||
Me.Mahndatum3.Text = ShortDate(Me.C1OffeneRechnungen.Columns("Mahndatum3").Value.ToString)
|
||||
|
||||
Me.Mahnfaelligkeit1.Text = ShortDate(Me.C1OffeneRechnungen.Columns("mahnfaelligkeit1").Value.ToString)
|
||||
Me.Mahnfaelligkeit2.Text = ShortDate(Me.C1OffeneRechnungen.Columns("mahnfaelligkeit2").Value.ToString)
|
||||
Me.Mahnfaelligkeit3.Text = ShortDate(Me.C1OffeneRechnungen.Columns("mahnfaelligkeit3").Value.ToString)
|
||||
|
||||
Me.Mahngebühr1.Text = Me.C1OffeneRechnungen.Columns("mahngebuehr1").Value.ToString
|
||||
Me.Mahngebühr2.Text = Me.C1OffeneRechnungen.Columns("mahngebuehr2").Value.ToString
|
||||
Me.Mahngebühr3.Text = Me.C1OffeneRechnungen.Columns("mahngebuehr3").Value.ToString
|
||||
|
||||
If Me.Mahndatum3.Text <> "" Then
|
||||
Me.btnzurücksetzen3.Visible = True
|
||||
Else
|
||||
If Me.Mahndatum2.Text <> "" Then
|
||||
Me.btnzurücksetzen2.Visible = True
|
||||
Else
|
||||
If Me.Mahndatum1.Text <> "" Then
|
||||
Me.btnZurücksetzen1.Visible = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Function ShortDate(ByVal dd As String) As String
|
||||
Try
|
||||
Dim d As Date
|
||||
d = dd
|
||||
Return d
|
||||
Catch
|
||||
Return ""
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub ZahlungBuchenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZahlungBuchenToolStripMenuItem.Click
|
||||
btnBuchen_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub ZahlungStornierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZahlungStornierenToolStripMenuItem.Click
|
||||
If MsgBox("Zahlung stornieren?", vbYesNo + vbQuestion) <> vbYes Then Exit Sub
|
||||
Dim fakt As New clsFakturierung
|
||||
fakt.Storno_Zahlung(Me.C1Zahlungen.Columns("nrzahlung").Value)
|
||||
Me.Refresh_Zahlungen()
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Me.txtRGNummer.Text = ""
|
||||
End Sub
|
||||
|
||||
Private Sub ContextMenuStrip2_CursorChanged(sender As Object, e As EventArgs) Handles ContextMenuStrip2.Opening
|
||||
If Me.C1Zahlungen.Columns("Zahlungsstatus").Value = "Vorauszahlung" Then
|
||||
If Me.C1Zahlungen.Columns("nrbehandlung").Value = 0 Then
|
||||
|
||||
VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Enabled = True
|
||||
VorauszahlungVonBehandlungLösenToolStripMenuItem.Enabled = False
|
||||
|
||||
Exit Sub
|
||||
Else
|
||||
VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Enabled = False
|
||||
VorauszahlungVonBehandlungLösenToolStripMenuItem.Enabled = True
|
||||
Exit Sub
|
||||
End If
|
||||
Else
|
||||
If Me.C1Zahlungen.Columns("Status").Value = 9 Then
|
||||
ZahlungStornierenToolStripMenuItem.Enabled = False
|
||||
Else
|
||||
ZahlungStornierenToolStripMenuItem.Enabled = True
|
||||
End If
|
||||
VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Enabled = False
|
||||
VorauszahlungVonBehandlungLösenToolStripMenuItem.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub VorauszahlungAnBehandlungZuweisenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Click
|
||||
Dim f As New frmOffeneBehandlungen
|
||||
f.NrPatient = Me.Patientnr
|
||||
f.ShowDialog()
|
||||
If f.DialogResult = DialogResult.OK Then
|
||||
Dim db As New clsDB
|
||||
db.Exec_SQL("Update zahlung set nrbehandlung=" + f.NrBehandlung.ToString + ", mutiert_am=getdate() where nrzahlung=" + Me.C1Zahlungen.Columns("nrzahlung").Value.ToString)
|
||||
Me.Refresh_Zahlungen()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub VorauszahlungVonBehandlungLösenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorauszahlungVonBehandlungLösenToolStripMenuItem.Click
|
||||
If MsgBox("Vorauszahlung von Behandlung entfernen?", vbYesNo + vbQuestion) = vbYes Then
|
||||
Dim db As New clsDB
|
||||
db.Exec_SQL("Update zahlung set nrbehandlung=0, mutiert_am=getdate() where nrzahlung=" + Me.C1Zahlungen.Columns("nrzahlung").Value.ToString)
|
||||
Me.Refresh_Zahlungen()
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub dtdatum_Click(sender As Object, e As EventArgs) Handles dtdatum.Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub dtdatum_KeyDown(sender As Object, e As KeyEventArgs) Handles dtdatum.KeyDown
|
||||
|
||||
If e.KeyCode = Keys.Escape Then delete_date(sender)
|
||||
If e.KeyCode = Keys.Decimal Then SendKeys.SendWait("{TAB}")
|
||||
|
||||
End Sub
|
||||
Sub delete_date(sender)
|
||||
sender.value = Nothing
|
||||
End Sub
|
||||
|
||||
Private Sub btnZurücksetzen1_Click(sender As Object, e As EventArgs) Handles btnZurücksetzen1.Click
|
||||
If MsgBox("Mahnstufe 1 zurückseten?", vbYesNo + vbQuestion) = vbYes Then
|
||||
Mahnstufe_Zurücksetzen(1)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub btnzurücksetzen2_Click(sender As Object, e As EventArgs) Handles btnzurücksetzen2.Click
|
||||
If MsgBox("Mahnstufe 2 zurückseten?", vbYesNo + vbQuestion) = vbYes Then
|
||||
Mahnstufe_Zurücksetzen(2)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnzurücksetzen3_Click(sender As Object, e As EventArgs) Handles btnzurücksetzen3.Click
|
||||
If MsgBox("Mahnstufe 3 zurückseten?", vbYesNo + vbQuestion) = vbYes Then
|
||||
Mahnstufe_Zurücksetzen(3)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub Mahnstufe_Zurücksetzen(ByVal typ As Integer)
|
||||
Dim db As New clsDB
|
||||
Dim sql As String
|
||||
|
||||
Select Case typ
|
||||
Case 1
|
||||
sql = "Exec sp_reset_mahnstufe 1," + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
db.Exec_SQL(sql)
|
||||
Case 2
|
||||
sql = "Exec sp_reset_mahnstufe 2," + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
db.Exec_SQL(sql)
|
||||
Case 3
|
||||
sql = "Exec sp_reset_mahnstufe 3," + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
db.Exec_SQL(sql)
|
||||
|
||||
End Select
|
||||
Refresh_Zahlungen()
|
||||
Get_Mahndaten()
|
||||
End Sub
|
||||
|
||||
Private Sub C1Zahlungen_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Zahlungen.MouseDown
|
||||
Me.C1Zahlungen.Bookmark = Me.C1Zahlungen.RowContaining(e.Y)
|
||||
End Sub
|
||||
|
||||
Private Sub C1OffeneRechnungen_MouseDown(sender As Object, e As MouseEventArgs) Handles C1OffeneRechnungen.MouseDown
|
||||
Me.C1OffeneRechnungen.Bookmark = Me.C1OffeneRechnungen.RowContaining(e.Y)
|
||||
End Sub
|
||||
|
||||
Private Sub ContextMenuStrip1_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
|
||||
Me.ErsteMahnungMenuItem.Visible = False
|
||||
Me.ZweiteMahnungMenuItem.Visible = False
|
||||
Me.LetzteMahnungMenuItem.Visible = False
|
||||
Dim db As New clsDB
|
||||
Try
|
||||
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
|
||||
Select Case DB.dsDaten.Tables(0).Rows(0).Item("Mahnstufe")
|
||||
Case 1
|
||||
ErsteMahnungMenuItem.Visible = True
|
||||
Case 2
|
||||
ZweiteMahnungMenuItem.Visible = True
|
||||
Case 3
|
||||
LetzteMahnungMenuItem.Visible = True
|
||||
End Select
|
||||
Else
|
||||
|
||||
End If
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub DruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ErsteMahnungMenuItem.Click, ZweiteMahnungMenuItem.Click, LetzteMahnungMenuItem.Click
|
||||
Try
|
||||
Select Case sender.name
|
||||
Case "ErsteMahnungMenuItem"
|
||||
Dim s As String = Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
Globals.Rg_Funktionen.Mahnung(s, 1, False, False)
|
||||
Refresh_Data()
|
||||
Case "ZweiteMahnungMenuItem"
|
||||
Dim s As String = Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
Globals.Rg_Funktionen.Mahnung(s, 2, False, False)
|
||||
Refresh_Data()
|
||||
Case "LetzteMahnungMenuItem"
|
||||
Dim s As String = Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
Globals.Rg_Funktionen.Mahnung(s, 3, False, False)
|
||||
Refresh_Data()
|
||||
End Select
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Imports C1.Win.C1TrueDBGrid
|
||||
|
||||
Public Class Finanzen
|
||||
|
||||
Dim dbz As New clsDB
|
||||
Dim dbk As New clsDB
|
||||
Dim spalten As New Tabellenspalte
|
||||
Dim m_patientnr As Integer
|
||||
Property Patientnr As Integer
|
||||
Get
|
||||
Return m_patientnr
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
m_patientnr = value
|
||||
refresh_konto()
|
||||
Refresh_Zahlungen()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim Zahlungen As New DataTable
|
||||
Dim Offene_Rechnungen As New DataTable
|
||||
Sub Refresh_Zahlungen()
|
||||
Try
|
||||
dbz.Get_Tabledata("Zahlung", "", dbz.Get_SQL(19), Me.Patientnr.ToString)
|
||||
Zahlungen = dbz.dsDaten.Tables(0).Copy
|
||||
Me.C1Zahlungen.DataSource = Nothing
|
||||
Me.C1Zahlungen.DataSource = Zahlungen
|
||||
Me.C1Zahlungen.DataMember = dbz.dsDaten.Tables(0).TableName
|
||||
spalten.Spaltentitel_aktualisieren(Me.C1Zahlungen, "Zahlungen", Zahlungen)
|
||||
dbz.Get_Tabledata("OffeneRechnungen", "", dbz.Get_SQL(22), Me.Patientnr.ToString)
|
||||
Offene_Rechnungen = dbz.dsDaten.Tables(0).Copy
|
||||
Me.C1OffeneRechnungen.DataSource = Nothing
|
||||
Me.C1OffeneRechnungen.DataSource = Offene_Rechnungen
|
||||
Me.C1OffeneRechnungen.DataMember = Offene_Rechnungen.TableName
|
||||
spalten.Spaltentitel_aktualisieren(Me.C1OffeneRechnungen, "Offene_Rechnungen", Offene_Rechnungen)
|
||||
|
||||
Me.Mahndatum1.Text = ""
|
||||
Me.Mahndatum2.Text = ""
|
||||
Me.Mahndatum3.Text = ""
|
||||
Me.Mahnfaelligkeit1.Text = ""
|
||||
Me.Mahnfaelligkeit2.Text = ""
|
||||
Me.Mahnfaelligkeit3.Text = ""
|
||||
Me.Mahngebühr1.Text = ""
|
||||
Me.Mahngebühr2.Text = ""
|
||||
Me.Mahngebühr3.Text = ""
|
||||
|
||||
Me.btnZurücksetzen1.Visible = False
|
||||
Me.btnzurücksetzen2.Visible = False
|
||||
Me.btnzurücksetzen3.Visible = False
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
Public Sub Refresh_Data()
|
||||
refresh_konto()
|
||||
Refresh_Zahlungen()
|
||||
Get_Mahndaten()
|
||||
End Sub
|
||||
Sub refresh_konto()
|
||||
dbk.Get_Tabledata("Konto", "where aktiv=1 order by reihenfolge")
|
||||
Me.cbboxKonto.DataSource = dbk.dsDaten.Tables(0)
|
||||
Me.cbboxKonto.Displaymember = "Konto"
|
||||
Me.cbboxKonto.Valuemember = "nrkonto"
|
||||
End Sub
|
||||
|
||||
Private Sub txtRGNummer_TextChanged(sender As Object, e As EventArgs) Handles txtRGNummer.TextChanged
|
||||
If Me.txtRGNummer.Text <> "" Then
|
||||
Me.chkVorauszahlung.Checked = False
|
||||
Me.chkVorauszahlung.Enabled = False
|
||||
Else
|
||||
Me.chkVorauszahlung.Enabled = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnBuchen_Click(sender As Object, e As EventArgs) Handles btnBuchen.Click
|
||||
Dim db5 As New clsDB
|
||||
Dim vz As String = ""
|
||||
Dim Storno As String = ""
|
||||
Dim Debitor As Integer = 0
|
||||
If chkVorauszahlung.Checked = False And Me.txtRGNummer.Text = "" Then
|
||||
MsgBox("Zahlung kann nicht verbucht werden. Entweder als Vorauszahlung oder mit gültiger Rechnungsnummer.", MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
Dim newkey As Integer = dbz.Get_DBKey("Zahlung")
|
||||
dbz.Get_Tabledata("Zahlung", "where nrzahlung=0")
|
||||
Dim r As DataRow = dbz.dsDaten.Tables(0).NewRow
|
||||
r("nrzahlung") = newkey
|
||||
If Me.chkVorauszahlung.Checked = True Then r("nrfaktura") = 0 Else r("nrfaktura") = txtRGNummer.Text
|
||||
r("vorauszahlung") = chkVorauszahlung.Checked
|
||||
r("mandant") = 1
|
||||
If r("nrfaktura") <> 0 Then
|
||||
Try
|
||||
db5.Get_Tabledata("Fakt", "", "Select * from faktura where nrfaktura='" + r("nrfaktura").ToString + "'")
|
||||
Debitor = db5.dsDaten.Tables(0).Rows(0).Item("nrdebitor")
|
||||
Catch
|
||||
Debitor = 0
|
||||
End Try
|
||||
|
||||
End If
|
||||
If Me.Patientnr <> Debitor And Debitor > 0 Then
|
||||
r("nrdebotir") = Debitor
|
||||
Else
|
||||
r("nrdebitor") = Me.Patientnr
|
||||
End If
|
||||
r("nrdebitor") = Me.Patientnr
|
||||
r("betrag") = Me.diBetrag.Value
|
||||
r("nrkonto") = cbboxKonto.SelectedValue
|
||||
r("valuta") = Me.dtdatum.Value
|
||||
r("nrbehandlung") = 0
|
||||
r("status") = 0
|
||||
If chkVorauszahlung.Checked Then
|
||||
r("status") = 1
|
||||
vz = "J"
|
||||
End If
|
||||
r("statusdatum") = Now
|
||||
r("erstellt_am") = Now
|
||||
r("mutiert_am") = Now
|
||||
r("mutierer") = Globals.ActUser
|
||||
r("aktiv") = True
|
||||
dbz.dsDaten.Tables(0).Rows.Add(r)
|
||||
dbz.Update_Data()
|
||||
|
||||
db5.Insert_ZJournal(r("nrfaktura"), r("nrdebitor"), db5.Get_Datavalue("Select dbo.get_name(" + r.Item("nrdebitor").ToString + ")"), r.Item("Betrag"), db5.Get_Datavalue("Select Konto from konto where nrkonto=" + r.Item("nrkonto").ToString), vz, "")
|
||||
db5.Exec_SQL("Update debitor set mutiert_am=getdate(),betrag=betrag-" + r("betrag").ToString + "where nrfaktura=" + r("nrfaktura").ToString)
|
||||
Me.Refresh_Zahlungen()
|
||||
If vz = "J" Then
|
||||
If MsgBox("Vorauszahlung einer Behandlung zuweisen?", vbYesNo + vbQuestion) Then
|
||||
VorauszahlungAnBehandlungZuweisenToolStripMenuItem_Click(sender, e)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub C1OffeneRechnungen_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1OffeneRechnungen.RowColChange
|
||||
Try
|
||||
Me.dtdatum.Value = Now
|
||||
Me.txtRGNummer.Text = Me.C1OffeneRechnungen.Columns("nrfaktura").Value
|
||||
Me.diBetrag.Value = Me.C1OffeneRechnungen.Columns("Betrag").Value
|
||||
Get_Mahndaten()
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
Sub Get_Mahndaten()
|
||||
Me.Mahndatum1.Text = ""
|
||||
Me.Mahndatum2.Text = ""
|
||||
Me.Mahndatum3.Text = ""
|
||||
Me.Mahnfaelligkeit1.Text = ""
|
||||
Me.Mahnfaelligkeit2.Text = ""
|
||||
Me.Mahnfaelligkeit3.Text = ""
|
||||
Me.Mahngebühr1.Text = ""
|
||||
Me.Mahngebühr2.Text = ""
|
||||
Me.Mahngebühr3.Text = ""
|
||||
Me.btnZurücksetzen1.Visible = False
|
||||
Me.btnzurücksetzen2.Visible = False
|
||||
Me.btnzurücksetzen3.Visible = False
|
||||
Dim dd As Date
|
||||
Try
|
||||
Me.Mahndatum1.Text = ShortDate(Me.C1OffeneRechnungen.Columns("Mahndatum1").Value.ToString)
|
||||
Me.Mahndatum2.Text = ShortDate(Me.C1OffeneRechnungen.Columns("Mahndatum2").Value.ToString)
|
||||
Me.Mahndatum3.Text = ShortDate(Me.C1OffeneRechnungen.Columns("Mahndatum3").Value.ToString)
|
||||
|
||||
Me.Mahnfaelligkeit1.Text = ShortDate(Me.C1OffeneRechnungen.Columns("mahnfaelligkeit1").Value.ToString)
|
||||
Me.Mahnfaelligkeit2.Text = ShortDate(Me.C1OffeneRechnungen.Columns("mahnfaelligkeit2").Value.ToString)
|
||||
Me.Mahnfaelligkeit3.Text = ShortDate(Me.C1OffeneRechnungen.Columns("mahnfaelligkeit3").Value.ToString)
|
||||
|
||||
Me.Mahngebühr1.Text = Me.C1OffeneRechnungen.Columns("mahngebuehr1").Value.ToString
|
||||
Me.Mahngebühr2.Text = Me.C1OffeneRechnungen.Columns("mahngebuehr2").Value.ToString
|
||||
Me.Mahngebühr3.Text = Me.C1OffeneRechnungen.Columns("mahngebuehr3").Value.ToString
|
||||
|
||||
If Me.Mahndatum3.Text <> "" Then
|
||||
Me.btnzurücksetzen3.Visible = True
|
||||
Else
|
||||
If Me.Mahndatum2.Text <> "" Then
|
||||
Me.btnzurücksetzen2.Visible = True
|
||||
Else
|
||||
If Me.Mahndatum1.Text <> "" Then
|
||||
Me.btnZurücksetzen1.Visible = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Function ShortDate(ByVal dd As String) As String
|
||||
Try
|
||||
Dim d As Date
|
||||
d = dd
|
||||
Return d
|
||||
Catch
|
||||
Return ""
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub ZahlungBuchenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZahlungBuchenToolStripMenuItem.Click
|
||||
btnBuchen_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub ZahlungStornierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZahlungStornierenToolStripMenuItem.Click
|
||||
If MsgBox("Zahlung stornieren?", vbYesNo + vbQuestion) <> vbYes Then Exit Sub
|
||||
Dim fakt As New clsFakturierung
|
||||
fakt.Storno_Zahlung(Me.C1Zahlungen.Columns("nrzahlung").Value)
|
||||
Me.Refresh_Zahlungen()
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Me.txtRGNummer.Text = ""
|
||||
End Sub
|
||||
|
||||
Private Sub ContextMenuStrip2_CursorChanged(sender As Object, e As EventArgs) Handles ContextMenuStrip2.Opening
|
||||
If Me.C1Zahlungen.Columns("Zahlungsstatus").Value = "Vorauszahlung" Then
|
||||
If Me.C1Zahlungen.Columns("nrbehandlung").Value = 0 Then
|
||||
|
||||
VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Enabled = True
|
||||
VorauszahlungVonBehandlungLösenToolStripMenuItem.Enabled = False
|
||||
|
||||
Exit Sub
|
||||
Else
|
||||
VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Enabled = False
|
||||
VorauszahlungVonBehandlungLösenToolStripMenuItem.Enabled = True
|
||||
Exit Sub
|
||||
End If
|
||||
Else
|
||||
If Me.C1Zahlungen.Columns("Status").Value = 9 Then
|
||||
ZahlungStornierenToolStripMenuItem.Enabled = False
|
||||
Else
|
||||
ZahlungStornierenToolStripMenuItem.Enabled = True
|
||||
End If
|
||||
VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Enabled = False
|
||||
VorauszahlungVonBehandlungLösenToolStripMenuItem.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub VorauszahlungAnBehandlungZuweisenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Click
|
||||
Dim f As New frmOffeneBehandlungen
|
||||
f.NrPatient = Me.Patientnr
|
||||
f.ShowDialog()
|
||||
If f.DialogResult = DialogResult.OK Then
|
||||
Dim db As New clsDB
|
||||
db.Exec_SQL("Update zahlung set nrbehandlung=" + f.NrBehandlung.ToString + ", mutiert_am=getdate() where nrzahlung=" + Me.C1Zahlungen.Columns("nrzahlung").Value.ToString)
|
||||
Me.Refresh_Zahlungen()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub VorauszahlungVonBehandlungLösenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorauszahlungVonBehandlungLösenToolStripMenuItem.Click
|
||||
If MsgBox("Vorauszahlung von Behandlung entfernen?", vbYesNo + vbQuestion) = vbYes Then
|
||||
Dim db As New clsDB
|
||||
db.Exec_SQL("Update zahlung set nrbehandlung=0, mutiert_am=getdate() where nrzahlung=" + Me.C1Zahlungen.Columns("nrzahlung").Value.ToString)
|
||||
Me.Refresh_Zahlungen()
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub dtdatum_Click(sender As Object, e As EventArgs) Handles dtdatum.Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub dtdatum_KeyDown(sender As Object, e As KeyEventArgs) Handles dtdatum.KeyDown
|
||||
|
||||
If e.KeyCode = Keys.Escape Then delete_date(sender)
|
||||
If e.KeyCode = Keys.Decimal Then SendKeys.SendWait("{TAB}")
|
||||
|
||||
End Sub
|
||||
Sub delete_date(sender)
|
||||
sender.value = Nothing
|
||||
End Sub
|
||||
|
||||
Private Sub btnZurücksetzen1_Click(sender As Object, e As EventArgs) Handles btnZurücksetzen1.Click
|
||||
If MsgBox("Mahnstufe 1 zurückseten?", vbYesNo + vbQuestion) = vbYes Then
|
||||
Mahnstufe_Zurücksetzen(1)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub btnzurücksetzen2_Click(sender As Object, e As EventArgs) Handles btnzurücksetzen2.Click
|
||||
If MsgBox("Mahnstufe 2 zurückseten?", vbYesNo + vbQuestion) = vbYes Then
|
||||
Mahnstufe_Zurücksetzen(2)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnzurücksetzen3_Click(sender As Object, e As EventArgs) Handles btnzurücksetzen3.Click
|
||||
If MsgBox("Mahnstufe 3 zurückseten?", vbYesNo + vbQuestion) = vbYes Then
|
||||
Mahnstufe_Zurücksetzen(3)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub Mahnstufe_Zurücksetzen(ByVal typ As Integer)
|
||||
Dim db As New clsDB
|
||||
Dim sql As String
|
||||
|
||||
Select Case typ
|
||||
Case 1
|
||||
sql = "Exec sp_reset_mahnstufe 1," + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
db.Exec_SQL(sql)
|
||||
Case 2
|
||||
sql = "Exec sp_reset_mahnstufe 2," + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
db.Exec_SQL(sql)
|
||||
Case 3
|
||||
sql = "Exec sp_reset_mahnstufe 3," + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
db.Exec_SQL(sql)
|
||||
|
||||
End Select
|
||||
Refresh_Zahlungen()
|
||||
Get_Mahndaten()
|
||||
End Sub
|
||||
|
||||
Private Sub C1Zahlungen_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Zahlungen.MouseDown
|
||||
Me.C1Zahlungen.Bookmark = Me.C1Zahlungen.RowContaining(e.Y)
|
||||
End Sub
|
||||
|
||||
Private Sub C1OffeneRechnungen_MouseDown(sender As Object, e As MouseEventArgs) Handles C1OffeneRechnungen.MouseDown
|
||||
Me.C1OffeneRechnungen.Bookmark = Me.C1OffeneRechnungen.RowContaining(e.Y)
|
||||
End Sub
|
||||
|
||||
Private Sub ContextMenuStrip1_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
|
||||
Me.ErsteMahnungMenuItem.Visible = False
|
||||
Me.ZweiteMahnungMenuItem.Visible = False
|
||||
Me.LetzteMahnungMenuItem.Visible = False
|
||||
Dim db As New clsDB
|
||||
Try
|
||||
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
|
||||
Select Case db.dsDaten.Tables(0).Rows(0).Item("Mahnstufe")
|
||||
Case 1
|
||||
ErsteMahnungMenuItem.Visible = True
|
||||
Case 2
|
||||
ZweiteMahnungMenuItem.Visible = True
|
||||
Case 3
|
||||
LetzteMahnungMenuItem.Visible = True
|
||||
End Select
|
||||
Else
|
||||
|
||||
End If
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub DruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ErsteMahnungMenuItem.Click, ZweiteMahnungMenuItem.Click, LetzteMahnungMenuItem.Click
|
||||
Try
|
||||
Select Case sender.name
|
||||
Case "ErsteMahnungMenuItem"
|
||||
Dim s As String = Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
Globals.Rg_Funktionen.Mahnung(s, 1, False, False, True)
|
||||
Refresh_Data()
|
||||
Case "ZweiteMahnungMenuItem"
|
||||
Dim s As String = Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
Globals.Rg_Funktionen.Mahnung(s, 2, False, False, True)
|
||||
Refresh_Data()
|
||||
Case "LetzteMahnungMenuItem"
|
||||
Dim s As String = Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
Globals.Rg_Funktionen.Mahnung(s, 3, False, False, True)
|
||||
Refresh_Data()
|
||||
End Select
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
1212
DPM2016/Patient/Patient.Designer.vb
generated
1212
DPM2016/Patient/Patient.Designer.vb
generated
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
|
||||
|
||||
Dim m_nrpatient As Integer
|
||||
Property PatientNr As Integer
|
||||
Get
|
||||
Return m_nrpatient
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
Cursor = Cursors.WaitCursor
|
||||
Globals.OnLoad = True
|
||||
m_nrpatient = value
|
||||
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
|
||||
Me.PatientDetailsFirma1.PatientNr = value
|
||||
Else
|
||||
Me.PatientDetails1.PatientNr = value
|
||||
End If
|
||||
|
||||
|
||||
Me.PatientAbrechnung1.PatientNr = value
|
||||
Me.Behandlung1.PatientNr = value
|
||||
Me.Finanzen1.Patientnr = value
|
||||
Me.Recall1.Patientnr = value
|
||||
Me.ClsDokumente1.Patientnr = value
|
||||
Globals.OnLoad = False
|
||||
|
||||
Cursor = Cursors.Default
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim WithEvents evh As Generic_Event_Handler = Globals.EVH
|
||||
|
||||
Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs)
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub Patient_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
If detail_has_changes() = False Then
|
||||
e.Cancel = True
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Function detail_has_changes()
|
||||
Dim res As Boolean = False
|
||||
If Me.PatientDetails1.HasChanges Then res = True
|
||||
If Me.PatientDetailsFirma1.HasChanges Then res = True
|
||||
If PatientAbrechnung1.HasChanges Then res = True
|
||||
If res = True Then
|
||||
Dim qres As MsgBoxResult
|
||||
qres = MsgBox("Daten wurden verändert. Änderungen speichern?", vbYesNoCancel + vbQuestion)
|
||||
Select Case qres
|
||||
Case MsgBoxResult.Cancel
|
||||
Return False
|
||||
Case MsgBoxResult.No
|
||||
Return True
|
||||
Case MsgBoxResult.Yes
|
||||
save_data()
|
||||
Return True
|
||||
End Select
|
||||
Else
|
||||
Return True
|
||||
End If
|
||||
|
||||
End Function
|
||||
|
||||
Private Sub Patient_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Select Case Globals.Funktionsstufe
|
||||
Case 2
|
||||
'Me.Behandlungen.Visible = False
|
||||
'Me.Finanzen.Visible = False
|
||||
End Select
|
||||
If Globals.License.DMS = False Then
|
||||
Me.SuperTabControl1.Tabs("Dokumente").Visible = False
|
||||
End If
|
||||
|
||||
' Me.tsbtnfirst_Click(sender, e)
|
||||
Dim db As New clsDB
|
||||
If db.Get_Option(9999) = "" Then
|
||||
Me.tsbtnVTX.Visible = False
|
||||
Me.btnVTX.Visible = False
|
||||
Else
|
||||
Me.tsbtnVTX.Visible = True
|
||||
Me.btnVTX.Visible = True
|
||||
End If
|
||||
Dim db1 As New clsDB
|
||||
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
|
||||
'Me.PatientDetails1.chklbAdresstyp.Visible = False
|
||||
Me.SuperTabControl1.Tabs("Stammdaten").Visible = False
|
||||
Me.SuperTabControl1.Tabs("Stammdaten_Firma").Visible = True
|
||||
Me.PatientDetails1.Label13.Visible = False
|
||||
Me.PatientDetailsFirma1.Label13.Visible = False
|
||||
Me.SuperTabControl1.Tabs("Behandlungen").Text = "Projekte"
|
||||
Me.SuperTabControl1.Tabs("Recall").Visible = False
|
||||
Me.SuperTabControl1.Tabs("Abrechnung").Visible = False
|
||||
Me.PatientDetails1.lblName.Text = "Name/Firma"
|
||||
Else
|
||||
Me.SuperTabControl1.Tabs("Stammdaten").Visible = True
|
||||
Me.SuperTabControl1.Tabs("Stammdaten_Firma").Visible = False
|
||||
|
||||
End If
|
||||
If UCase(db1.Get_Option("60020")) = "FALSE" Then Exit Sub
|
||||
Try
|
||||
' Globals.sec.Set_Form_Security(Me)
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles tsbtnSave.Click
|
||||
save_data()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub tsbtnquit_Click(sender As Object, e As EventArgs) Handles tsbtnquit.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub tstxtsuche_KeyDown(sender As Object, e As KeyEventArgs) Handles tstxtsuche.KeyDown
|
||||
If e.KeyCode = Keys.Enter Then
|
||||
Dim db As New clsDB
|
||||
Dim nrprivat As Integer = db.Search("Patient", Me.tstxtsuche.Text)
|
||||
If nrprivat <> -1 Then Me.PatientNr = nrprivat
|
||||
If Me.SuperTabControl1.SelectedTab.Name = "Dokumente" Then
|
||||
Me.ClsDokumente1.Patientnr = Me.PatientNr
|
||||
Me.ClsDokumente1.Refresh_Grid()
|
||||
|
||||
End If
|
||||
If Me.SuperTabControl1.SelectedTab.Name = "Krankengeschichte" Or Me.SuperTabControl1.SelectedTab.Name = "Journal" Then
|
||||
Me.Krankengeschichte1.Patientnr = Me.PatientNr
|
||||
End If
|
||||
db.Dispose()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub evh_PatName_Changed(name As String, nr As Integer) Handles evh.PatName_Changed
|
||||
|
||||
If nr = Me.PatientNr Then Me.Text = name
|
||||
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
|
||||
Me.Label1.Text = PatientDetailsFirma1.Patientname
|
||||
Else
|
||||
Me.Label1.Text = PatientDetails1.Patientname
|
||||
End If
|
||||
Me.Label1.Left = Me.Width / 2 - 8 - Me.Label1.Width / 2
|
||||
End Sub
|
||||
|
||||
Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub save_data()
|
||||
evh.Fire_PatSaved(Me.PatientNr)
|
||||
End Sub
|
||||
|
||||
Private Sub evh_PatSaved(Nr As Integer) Handles evh.PatSaved
|
||||
If Me.PatientNr = Nr Then
|
||||
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
|
||||
Me.Text = PatientDetailsFirma1.Patientname
|
||||
Me.Label1.Text = PatientDetailsFirma1.Patientname
|
||||
Else
|
||||
Me.Text = PatientDetails1.Patientname
|
||||
Me.Label1.Text = PatientDetails1.Patientname
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub tsbtnfirst_Click(sender As Object, e As EventArgs) Handles tsbtnfirst.Click
|
||||
If detail_has_changes() = False Then Return
|
||||
Dim db As New clsDB
|
||||
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)
|
||||
db.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub tsbtnlast_Click(sender As Object, e As EventArgs) Handles tsbtnlast.Click
|
||||
If detail_has_changes() = False Then Return
|
||||
Dim db As New clsDB
|
||||
db.Get_Tabledata("Patient", "", db.Get_SQL(10))
|
||||
Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
|
||||
db.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub tsbtnnext_Click(sender As Object, e As EventArgs) Handles tsbtnnext.Click
|
||||
If detail_has_changes() = False Then Return
|
||||
Dim xx As Integer = 0
|
||||
Dim db As New clsDB
|
||||
Try
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
db.Get_Tabledata("Patient", "", "select * from privat where nrprivat=" + Me.PatientNr.ToString)
|
||||
Dim searchstring As String = ""
|
||||
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("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", "", db.Get_SQL(11), Me.m_nrpatient.ToString)
|
||||
Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
|
||||
Catch ex As Exception
|
||||
'MsgBox(ex.Message)
|
||||
Me.PatientNr = Me.PatientNr
|
||||
End Try
|
||||
db.Dispose()
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub tsbtprev_Click(sender As Object, e As EventArgs) Handles tsbtprev.Click
|
||||
If detail_has_changes() = False Then Return
|
||||
Dim xx As Integer = 0
|
||||
Dim db As New clsDB
|
||||
Try
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
db.Get_Tabledata("Patient", "", "select * from privat where nrprivat=" + Me.PatientNr.ToString)
|
||||
Dim searchstring As String = ""
|
||||
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("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", "", db.Get_SQL(11), Me.m_nrpatient.ToString)
|
||||
Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
|
||||
Catch ex As Exception
|
||||
'MsgBox(ex.Message)
|
||||
Me.PatientNr = Me.PatientNr
|
||||
End Try
|
||||
db.Dispose()
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles tsbtnnew.Click
|
||||
Dim db As New clsDB
|
||||
Dim newkey As Integer = db.Get_DBKey("Privat")
|
||||
|
||||
db.Get_Tabledata("Privat", " where nrprivat=0")
|
||||
|
||||
Dim r As DataRow
|
||||
r = db.dsDaten.Tables(0).NewRow
|
||||
|
||||
For Each c As DataColumn In db.dsDaten.Tables(0).Columns
|
||||
r.Item(c) = db.dsDaten.Tables(0).Rows(0).Item(c)
|
||||
Next
|
||||
|
||||
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("mutiert_am") = Now
|
||||
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("Gueltigab") = Now
|
||||
db.dsDaten.Tables(0).Rows(0).Item("GEBDAT") = Now
|
||||
db.dsDaten.Tables(0).Rows.Add(r)
|
||||
db.Update_Data()
|
||||
Me.PatientNr = newkey
|
||||
db.Dispose()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
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
|
||||
Me.Krankengeschichte1.Patientnr = Me.PatientNr
|
||||
End If
|
||||
If SuperTabControl1.SelectedTab.Name = "Finanzen" Then
|
||||
Me.Finanzen1.Refresh_Data()
|
||||
End If
|
||||
If SuperTabControl1.SelectedTab.Name = "Dokumente" Then
|
||||
Me.ClsDokumente1.Patientnr = Me.PatientNr
|
||||
Me.ClsDokumente1.Refreshdata()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub evh_Recall_Anzeigen(Datum As Date, patient As Integer, behandler As Integer) Handles evh.Recall_Anzeigen
|
||||
If Me.PatientNr = patient Then
|
||||
SuperTabControl1.SelectNextTab()
|
||||
SuperTabControl1.SelectNextTab()
|
||||
Me.Recall1.SetValues(Datum, patient, behandler)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub evh_Finanzen_Anzeigen(patient As Integer) Handles evh.Finanzen_Anzeigen
|
||||
If Me.PatientNr = patient Then
|
||||
SuperTabControl1.SelectNextTab()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub tsbtnVTX_Click(sender As Object, e As EventArgs) Handles tsbtnVTX.Click
|
||||
Dim db As New clsDB
|
||||
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
|
||||
MsgBox("Name, Vorname, Strasse, PLZ, Ort und Geburtsdatum sind Pflichtfelder. Bitte Daten korrigieren.")
|
||||
db.Dispose()
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim vddsmodule As String = db.Get_Option(9999)
|
||||
Dim vdspath As String = db.Get_Option(9998) + "\"
|
||||
Dim filename As String = vdspath + Me.PatientNr.ToString + ".ini"
|
||||
FileOpen(1, filename, OpenMode.Output)
|
||||
PrintLine(1, "[Patient]")
|
||||
PrintLine(1, "PVS=DPM")
|
||||
PrintLine(1, "BVS=VixWinPRO_Imaging")
|
||||
PrintLine(1, "PATID=" + Me.PatientNr.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, "BIRTYDAY=" + Format(db.dsDaten.Tables(0).Rows(0).Item("gebdat").ToString, "yyyyMMdd"))
|
||||
If db.dsDaten.Tables(0).Rows(0).Item("geschlecht").ToString = "1" Then
|
||||
PrintLine(1, "SEX=F")
|
||||
Else
|
||||
PrintLine(1, "SEX=M")
|
||||
End If
|
||||
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, "ZIP=" + db.dsDaten.Tables(0).Rows(0).Item("plz").ToString)
|
||||
PrintLine(1, "READY=0")
|
||||
PrintLine(1, "ERRORLEVEL=0")
|
||||
PrintLine(1, "ERRORTEXT=0")
|
||||
FileClose(1)
|
||||
Try
|
||||
' MsgBox(vddsmodule + " " + filename)
|
||||
Process.Start(vddsmodule, filename)
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub tnVTX_Click(sender As Object, e As EventArgs) Handles btnVTX.Click
|
||||
Me.tsbtnVTX_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
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.Krankengeschichte1.Refresh_KG()
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Patient_TextChanged(sender As Object, e As EventArgs) Handles MyBase.TextChanged
|
||||
Create_temp_form()
|
||||
|
||||
End Sub
|
||||
Public Function Create_temp_form()
|
||||
Exit Function
|
||||
Try
|
||||
Dim f As New frmdummy
|
||||
|
||||
f.Width = 0
|
||||
f.Height = 0
|
||||
f.Visible = False
|
||||
f.MdiParent = Me.MdiParent
|
||||
f.Show()
|
||||
f.Close()
|
||||
f = Nothing
|
||||
Catch
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Sub tstxtsuche_Click(sender As Object, e As EventArgs) Handles tstxtsuche.Click
|
||||
|
||||
End Sub
|
||||
Public Class Patient
|
||||
|
||||
Dim m_nrpatient As Integer
|
||||
Property PatientNr As Integer
|
||||
Get
|
||||
Return m_nrpatient
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
Cursor = Cursors.WaitCursor
|
||||
Globals.OnLoad = True
|
||||
m_nrpatient = value
|
||||
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
|
||||
Me.PatientDetailsFirma1.PatientNr = value
|
||||
Else
|
||||
Me.PatientDetails1.PatientNr = value
|
||||
End If
|
||||
|
||||
|
||||
Me.PatientAbrechnung1.PatientNr = value
|
||||
Me.Behandlung1.PatientNr = value
|
||||
Me.Finanzen1.Patientnr = value
|
||||
Me.Recall1.Patientnr = value
|
||||
Me.ClsDokumente1.Patientnr = value
|
||||
Globals.OnLoad = False
|
||||
|
||||
Cursor = Cursors.Default
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim WithEvents evh As Generic_Event_Handler = Globals.EVH
|
||||
|
||||
Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs)
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub Patient_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
If detail_has_changes() = False Then
|
||||
e.Cancel = True
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Function detail_has_changes()
|
||||
Dim res As Boolean = False
|
||||
If Me.PatientDetails1.HasChanges Then res = True
|
||||
If Me.PatientDetailsFirma1.HasChanges Then res = True
|
||||
If PatientAbrechnung1.HasChanges Then res = True
|
||||
If res = True Then
|
||||
Dim qres As MsgBoxResult
|
||||
qres = MsgBox("Daten wurden verändert. Änderungen speichern?", vbYesNoCancel + vbQuestion)
|
||||
Select Case qres
|
||||
Case MsgBoxResult.Cancel
|
||||
Return False
|
||||
Case MsgBoxResult.No
|
||||
Return True
|
||||
Case MsgBoxResult.Yes
|
||||
save_data()
|
||||
Return True
|
||||
End Select
|
||||
Else
|
||||
Return True
|
||||
End If
|
||||
|
||||
End Function
|
||||
|
||||
Private Sub Patient_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Select Case Globals.Funktionsstufe
|
||||
Case 2
|
||||
'Me.Behandlungen.Visible = False
|
||||
'Me.Finanzen.Visible = False
|
||||
End Select
|
||||
If Globals.License.DMS = False Then
|
||||
Me.SuperTabControl1.Tabs("Dokumente").Visible = False
|
||||
End If
|
||||
|
||||
' Me.tsbtnfirst_Click(sender, e)
|
||||
Dim db As New clsDB
|
||||
If db.Get_Option(9999) = "" Then
|
||||
Me.tsbtnVTX.Visible = False
|
||||
Me.btnVTX.Visible = False
|
||||
Else
|
||||
Me.tsbtnVTX.Visible = True
|
||||
Me.btnVTX.Visible = True
|
||||
End If
|
||||
Dim db1 As New clsDB
|
||||
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
|
||||
'Me.PatientDetails1.chklbAdresstyp.Visible = False
|
||||
Me.SuperTabControl1.Tabs("Stammdaten").Visible = False
|
||||
Me.SuperTabControl1.Tabs("Stammdaten_Firma").Visible = True
|
||||
Me.PatientDetails1.Label13.Visible = False
|
||||
Me.PatientDetailsFirma1.Label13.Visible = False
|
||||
Me.SuperTabControl1.Tabs("Behandlungen").Text = "Projekte"
|
||||
Me.SuperTabControl1.Tabs("Recall").Visible = False
|
||||
Me.SuperTabControl1.Tabs("Abrechnung").Visible = False
|
||||
Me.PatientDetails1.lblName.Text = "Name/Firma"
|
||||
Else
|
||||
Me.SuperTabControl1.Tabs("Stammdaten").Visible = True
|
||||
Me.SuperTabControl1.Tabs("Stammdaten_Firma").Visible = False
|
||||
|
||||
End If
|
||||
If UCase(db1.Get_Option("60020")) = "FALSE" Then Exit Sub
|
||||
Try
|
||||
' Globals.sec.Set_Form_Security(Me)
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles tsbtnSave.Click
|
||||
save_data()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub tsbtnquit_Click(sender As Object, e As EventArgs) Handles tsbtnquit.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub tstxtsuche_KeyDown(sender As Object, e As KeyEventArgs) Handles tstxtsuche.KeyDown
|
||||
If e.KeyCode = Keys.Enter Then
|
||||
Dim db As New clsDB
|
||||
Dim nrprivat As Integer = db.Search("Patient", Me.tstxtsuche.Text)
|
||||
If nrprivat <> -1 Then Me.PatientNr = nrprivat
|
||||
If Me.SuperTabControl1.SelectedTab.Name = "Dokumente" Then
|
||||
Me.ClsDokumente1.Patientnr = Me.PatientNr
|
||||
Me.ClsDokumente1.Refresh_Grid()
|
||||
|
||||
End If
|
||||
If Me.SuperTabControl1.SelectedTab.Name = "Krankengeschichte" Or Me.SuperTabControl1.SelectedTab.Name = "Journal" Then
|
||||
Me.Krankengeschichte1.Patientnr = Me.PatientNr
|
||||
End If
|
||||
db.Dispose()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub evh_PatName_Changed(name As String, nr As Integer) Handles evh.PatName_Changed
|
||||
|
||||
If nr = Me.PatientNr Then Me.Text = name
|
||||
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
|
||||
Me.Label1.Text = PatientDetailsFirma1.Patientname
|
||||
Else
|
||||
Me.Label1.Text = PatientDetails1.Patientname
|
||||
End If
|
||||
Me.Label1.Left = Me.Width / 2 - 8 - Me.Label1.Width / 2
|
||||
End Sub
|
||||
|
||||
Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub save_data()
|
||||
evh.Fire_PatSaved(Me.PatientNr)
|
||||
End Sub
|
||||
|
||||
Private Sub evh_PatSaved(Nr As Integer) Handles evh.PatSaved
|
||||
If Me.PatientNr = Nr Then
|
||||
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
|
||||
Me.Text = PatientDetailsFirma1.Patientname
|
||||
Me.Label1.Text = PatientDetailsFirma1.Patientname
|
||||
Else
|
||||
Me.Text = PatientDetails1.Patientname
|
||||
Me.Label1.Text = PatientDetails1.Patientname
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub tsbtnfirst_Click(sender As Object, e As EventArgs) Handles tsbtnfirst.Click
|
||||
If detail_has_changes() = False Then Return
|
||||
Dim db As New clsDB
|
||||
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)
|
||||
db.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub tsbtnlast_Click(sender As Object, e As EventArgs) Handles tsbtnlast.Click
|
||||
If detail_has_changes() = False Then Return
|
||||
Dim db As New clsDB
|
||||
db.Get_Tabledata("Patient", "", db.Get_SQL(10))
|
||||
Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
|
||||
db.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub tsbtnnext_Click(sender As Object, e As EventArgs) Handles tsbtnnext.Click
|
||||
If detail_has_changes() = False Then Return
|
||||
Dim xx As Integer = 0
|
||||
Dim db As New clsDB
|
||||
Try
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
db.Get_Tabledata("Patient", "", "select * from privat where nrprivat=" + Me.PatientNr.ToString)
|
||||
Dim searchstring As String = ""
|
||||
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("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", "", db.Get_SQL(11), Me.m_nrpatient.ToString)
|
||||
Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
|
||||
Catch ex As Exception
|
||||
'MsgBox(ex.Message)
|
||||
Me.PatientNr = Me.PatientNr
|
||||
End Try
|
||||
db.Dispose()
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub tsbtprev_Click(sender As Object, e As EventArgs) Handles tsbtprev.Click
|
||||
If detail_has_changes() = False Then Return
|
||||
Dim xx As Integer = 0
|
||||
Dim db As New clsDB
|
||||
Try
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
db.Get_Tabledata("Patient", "", "select * from privat where nrprivat=" + Me.PatientNr.ToString)
|
||||
Dim searchstring As String = ""
|
||||
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("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", "", db.Get_SQL(11), Me.m_nrpatient.ToString)
|
||||
Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
|
||||
Catch ex As Exception
|
||||
'MsgBox(ex.Message)
|
||||
Me.PatientNr = Me.PatientNr
|
||||
End Try
|
||||
db.Dispose()
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles tsbtnnew.Click
|
||||
Dim db As New clsDB
|
||||
Dim newkey As Integer = db.Get_DBKey("Privat")
|
||||
|
||||
db.Get_Tabledata("Privat", " where nrprivat=0")
|
||||
|
||||
Dim r As DataRow
|
||||
r = db.dsDaten.Tables(0).NewRow
|
||||
|
||||
For Each c As DataColumn In db.dsDaten.Tables(0).Columns
|
||||
r.Item(c) = db.dsDaten.Tables(0).Rows(0).Item(c)
|
||||
Next
|
||||
|
||||
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("mutiert_am") = Now
|
||||
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("Gueltigab") = Now
|
||||
db.dsDaten.Tables(0).Rows(0).Item("GEBDAT") = Now
|
||||
db.dsDaten.Tables(0).Rows.Add(r)
|
||||
db.Update_Data()
|
||||
Me.PatientNr = newkey
|
||||
db.Dispose()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
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
|
||||
Me.Krankengeschichte1.Patientnr = Me.PatientNr
|
||||
End If
|
||||
If SuperTabControl1.SelectedTab.Name = "Finanzen" Then
|
||||
Me.Finanzen1.Refresh_Data()
|
||||
End If
|
||||
If SuperTabControl1.SelectedTab.Name = "Dokumente" Then
|
||||
Me.ClsDokumente1.Patientnr = Me.PatientNr
|
||||
Me.ClsDokumente1.refreshdata()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub evh_Recall_Anzeigen(Datum As Date, patient As Integer, behandler As Integer) Handles evh.Recall_Anzeigen
|
||||
If Me.PatientNr = patient Then
|
||||
SuperTabControl1.SelectNextTab()
|
||||
SuperTabControl1.SelectNextTab()
|
||||
Me.Recall1.SetValues(Datum, patient, behandler)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub evh_Finanzen_Anzeigen(patient As Integer) Handles evh.Finanzen_Anzeigen
|
||||
If Me.PatientNr = patient Then
|
||||
SuperTabControl1.SelectNextTab()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub tsbtnVTX_Click(sender As Object, e As EventArgs) Handles tsbtnVTX.Click
|
||||
Dim db As New clsDB
|
||||
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
|
||||
MsgBox("Name, Vorname, Strasse, PLZ, Ort und Geburtsdatum sind Pflichtfelder. Bitte Daten korrigieren.")
|
||||
db.Dispose()
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim vddsmodule As String = db.Get_Option(9999)
|
||||
Dim vdspath As String = db.Get_Option(9998) + "\"
|
||||
Dim filename As String = vdspath + Me.PatientNr.ToString + ".ini"
|
||||
FileOpen(1, filename, OpenMode.Output)
|
||||
PrintLine(1, "[Patient]")
|
||||
PrintLine(1, "PVS=DPM")
|
||||
PrintLine(1, "BVS=VixWinPRO_Imaging")
|
||||
PrintLine(1, "PATID=" + Me.PatientNr.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, "BIRTYDAY=" + Format(db.dsDaten.Tables(0).Rows(0).Item("gebdat").ToString, "yyyyMMdd"))
|
||||
If db.dsDaten.Tables(0).Rows(0).Item("geschlecht").ToString = "1" Then
|
||||
PrintLine(1, "SEX=F")
|
||||
Else
|
||||
PrintLine(1, "SEX=M")
|
||||
End If
|
||||
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, "ZIP=" + db.dsDaten.Tables(0).Rows(0).Item("plz").ToString)
|
||||
PrintLine(1, "READY=0")
|
||||
PrintLine(1, "ERRORLEVEL=0")
|
||||
PrintLine(1, "ERRORTEXT=0")
|
||||
FileClose(1)
|
||||
Try
|
||||
' MsgBox(vddsmodule + " " + filename)
|
||||
Process.Start(vddsmodule, filename)
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub tnVTX_Click(sender As Object, e As EventArgs) Handles btnVTX.Click
|
||||
Me.tsbtnVTX_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
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.Krankengeschichte1.Refresh_KG()
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Patient_TextChanged(sender As Object, e As EventArgs) Handles MyBase.TextChanged
|
||||
Create_temp_form()
|
||||
|
||||
End Sub
|
||||
Public Function Create_temp_form()
|
||||
Exit Function
|
||||
Try
|
||||
Dim f As New frmdummy
|
||||
|
||||
f.Width = 0
|
||||
f.Height = 0
|
||||
f.Visible = False
|
||||
f.MdiParent = Me.MdiParent
|
||||
f.Show()
|
||||
f.Close()
|
||||
f = Nothing
|
||||
Catch
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Sub tstxtsuche_Click(sender As Object, e As EventArgs) Handles tstxtsuche.Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Finanzen1_Load(sender As Object, e As EventArgs) Handles Finanzen1.Load
|
||||
|
||||
End Sub
|
||||
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)
|
||||
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.Parameter = Parameter
|
||||
Me.NrBehandlung = nrbehandlung
|
||||
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 buchen = False Then Exit Sub
|
||||
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)
|
||||
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
|
||||
Dim kopien As Integer = 1
|
||||
|
||||
@@ -243,6 +244,41 @@ Public Class frmReportView
|
||||
freport.Preview = Me.previewControl1
|
||||
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
|
||||
If vorschau = False And design = False Then
|
||||
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">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAP4SURBVEhLnZVtbFN1FMaZGl8hzPjJmKDxE2owxkRdlrrb
|
||||
dl2cOBMlThdHNCQmyId9MaiJUUdkCASKvGSCa6NCO0bSWLe5TKf4EmFCS63QbEAwa9qusoEbay3r7cu9
|
||||
9/Gc2/svlw4Y2T95crbm3ud3nnNubxeJMzAw8LAsy5dIM9lsNjVy5pyy8cS/kAZDqjT0lyoNBtWV7oC2
|
||||
cjCJFvewFhsfT8fj8WM9PT0PSZJ0G4tsqkpu1zgej+dR0Ekmk1pR1fDxkTiW7Q1h6c4AlpC4LvecRav3
|
||||
KDq/8mqZTAZTU1MYGRlRnE6n5HA4lra3t99i2M09LpfrcQG4OFtEa28M9++KoHr7SVRvC6PaeQp2XwKf
|
||||
7t6H6elpFItFXalUCsFgUHW73e8TZBkluZPs5iSp6urqeoIBfFKygvU/p7DCdQGPfDGJ5fsm8NiXl/CG
|
||||
Lw7nzl1QVVUXAzhJOp1GIBBQyeNdhjQ1Nd1dmUYHaJpWulHR0BVWYPcqsOwv4tkDRVgPAev84wTYU+6e
|
||||
RfvSAQLS1tb2qt1uf6CxsfEOM6QMUBQFXL85o+ElH2D1APVewMGA3vPY8lmnblwoFJBIJDA6OopwOIxI
|
||||
JKL/TeNK1tXVPVVfX39fc3PzrYb/FYDQj2MaVvcC0gFQEsB2EFjTN4Mtu116E0K8A1427yUajSIUCimU
|
||||
YK3NZnuQALcb/lcn4DGFzqtYN0gJDIC1G2jxZ7B1r0fvniWScM3n8zqMIWS+nlKsqKmpucvwLwHE8ljR
|
||||
tIaPfqfxkLGNE1B9rU+D09VTnr9ZAspjo/FsoBRPNjQ03GP4lwCXcwouZ2XIuRxOJ2ewaTiP52n2vAeG
|
||||
tHwPdH7t0424YzbmKv7P0X0GoIP3MAeQllUEE1k4h/7G9p+SeO9wHi/ToiUDsKoP+Nx/BFk5h1mZDAv0
|
||||
FOVKADavBNB3YrHhf2VEhaKC4KSGzQHgncPA698aAJLDq+Gt73LYfFzFnrCG/tEMJmey5fGwbgjgBXNs
|
||||
rn/+o+CTo8DbP5QeU4bwqF6gRGt/BT70ncTZ+AW965tOwMZ8saiRiQI6aA+r/EDdfuA52sebQ8AO/zFM
|
||||
XJwqG4v504tyfoBIITR86hw++OU/vELfiTX9WfQGE+Wu2bhSN5VAPB1Cv504jU3HNfwRzZS7Fp1z16LO
|
||||
m0AYVwJmZ0uLrHxihLGoCwKIcVSamo35c37pseYFsNm1JIBmCahZNwQII67mm/izyq7NnYs6bwJzxwJW
|
||||
KTPYLAG9LqC7u/tFs+n1TEStlDkB/aptpZfd07W1tUsM/0VV9B5vjcVi+gUL1djYmC4y32i1Wp+5CmCx
|
||||
WO6lSBZSB+kQXdC/QB2k+zeURiQt/h8hRTZ62wkMuQAAAABJRU5ErkJggg==
|
||||
YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAP2SURBVEhLnZVtbFN1FMaZGl8hjPiJmKDxE2owxkRdlrrb
|
||||
dl2cOBMlThdHNCQmyId9MYgJUUdkCESqwIJgO42sGyNprNtcplNQ48CWUhpoVlg0a9pusoEbay3r6733
|
||||
8Zzb+y+XDhjZP3lytube53eec25vl4gzMDDwaCaTuUKaTafTiZHwqLz99L+QBv2KNHRGkQZ9ylqHV107
|
||||
OIEmx7AaHR9PxmIxb09PzyOSJN3FIpuKotsNjsvlehx04vG4WlBUfDwcw6qDASzfewrLSFxXu0bR3HUC
|
||||
7V93qqlUCtPT0xgZGZHtdrtks9mWt7a23qHbzT9Op/NJAbg8V0BzbxQr94VQuecsKj8LotJ+DlZ3HJ/u
|
||||
P4SZmRkUCgVNiUQCPp9P6ejo+IAgqyjJvWQ3L0mFw+F4igF8EhkZm48nsMZ5CY99NYXVhybxxDdX8JY7
|
||||
BvvefVAURRMDOEkymYTX61XI432GNDQ03F+eRgOoqlq8UVbhCMqwdskwHS7g+c4CzEeBTZ5xArSXumfR
|
||||
vjSAgLS0tLxutVofqq+vv8cIKQFkWQbX7y6oeMUNmF1AbRdgY0DvRez64oBmnM/neZwIh8MIBoMIhULa
|
||||
336/f6KmpuaZ2traBxsbG+/U/a8BhH4eU7G+F5A6QUkAyxFgQ98sdu13ak0I8Q542byXSCSCQCAgU4KN
|
||||
FovlYQLcrftfn4DHFLioYNMgJdAB5m6gyZPC7oMurXuWSMI1l8tpMIaQ+WZKsaaqquo+3b8IEMtjRZIq
|
||||
PvqDxkPGFk5A9Y0+FXZnT2n+Rgkoj43Gs41SPF1XV/eA7l8EXM3KuJrOIJPN4vzELHaczOFFmj3vgSFN
|
||||
PwIHvnVrRtwxG3MV/2fpPh3QxnuYB0hmFPjjadiH/saeXyaw5VgOr9KiJR2wrg/40jOMdCaLuQwZ5ukp
|
||||
yhYBbF4OoO/EUt3/2ojyBRn+KRU7TwHvHQPe/F4HkGxdKt75IYudPgXtQRX94RSmZtOl8bBuCeAFc2yu
|
||||
Z/6R8ckJ4N2fio8pQ3hUL1Gijb8BH7rPYjR2Sev6thOwMV8samgyjzbawzoPUHMYeIH28fYQ8LnHi8nL
|
||||
0yVjMX96US4MECmETp77C1t//Q+v0XdiQ38avf54qWs2LtdtJRBPh9Dvp89jh0/Fn5FUqWvROXct6oIJ
|
||||
hHE5YG6uuMjyJ0YYi7oogBhHuanRmD/nlx5rQQCb3UgCaJSAGnVLgDDiaryJPyvv2ti5qAsmMHYsYOUy
|
||||
go0S0JsCuru7Xzaa3sxE1HIZE9Cv2m562T1bXV29TPdfUkHv8eZoNKpdsFiNjY1pIvPtZrP5uesAJpNp
|
||||
BUUykdpIR+mC/kXqCN2/rTgiaen/Xd02RBehQoMAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<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"?>
|
||||
<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>PADM</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>
|
||||
<?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,20 +1,20 @@
|
||||
<?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">
|
||||
<assemblyIdentity name="PADM.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" />
|
||||
<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="DPM" asmv2:product="DPM" xmlns="urn:schemas-microsoft-com:asm.v1" />
|
||||
<deployment install="true" mapFileExtensions="true" />
|
||||
<compatibleFrameworks xmlns="urn:schemas-microsoft-com:clickonce.v2">
|
||||
<framework targetVersion="4.6" profile="Full" supportedRuntime="4.0.30319" />
|
||||
</compatibleFrameworks>
|
||||
<dependency>
|
||||
<dependentAssembly dependencyType="install" codebase="PADM.exe.manifest" size="90978">
|
||||
<assemblyIdentity name="PADM.exe" version="1.0.0.2" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
|
||||
<dependentAssembly dependencyType="install" codebase="DPM.exe.manifest" size="90974">
|
||||
<assemblyIdentity name="DPM.exe" version="1.0.0.2" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
|
||||
<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>iEajZlzvX50g+NuuamiCaVSi2CsN7TaU+Z7RZ1gbtNA=</dsig:DigestValue>
|
||||
<dsig:DigestValue>8nOiS+q84n7KLg9Pe9Dhu2cEJXROPY7nrwS7tZEQ4JM=</dsig:DigestValue>
|
||||
</hash>
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
Binary file not shown.
81
DPM2016/bin/Debug/DPM.exe.config
Normal file
81
DPM2016/bin/Debug/DPM.exe.config
Normal file
@@ -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"?>
|
||||
<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" />
|
||||
<description asmv2:iconFile="PADM.ico" xmlns="urn:schemas-microsoft-com:asm.v1" />
|
||||
<asmv1:assemblyIdentity name="DPM.exe" version="1.0.0.2" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
|
||||
<description asmv2:iconFile="DPMNeu.ico" xmlns="urn:schemas-microsoft-com:asm.v1" />
|
||||
<application />
|
||||
<entryPoint>
|
||||
<assemblyIdentity name="PADM" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
|
||||
<commandLine file="PADM.exe" parameters="" />
|
||||
<assemblyIdentity name="DPM" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
|
||||
<commandLine file="DPM.exe" parameters="" />
|
||||
</entryPoint>
|
||||
<trustInfo>
|
||||
<security>
|
||||
@@ -162,6 +162,18 @@
|
||||
</hash>
|
||||
</dependentAssembly>
|
||||
</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>
|
||||
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="FastReport.dll" size="6450184">
|
||||
<assemblyIdentity name="FastReport" version="2022.2.0.0" publicKeyToken="DB7E5CE63278458C" language="neutral" processorArchitecture="msil" />
|
||||
@@ -462,18 +474,6 @@
|
||||
</hash>
|
||||
</dependentAssembly>
|
||||
</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>
|
||||
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PropertyGridEx.dll" size="48128">
|
||||
<assemblyIdentity name="PropertyGridEx" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
|
||||
@@ -1512,6 +1512,15 @@
|
||||
<dsig:DigestValue>T92PpISzKuFvoRCaXDKcSaiMyMOICRIrhQVQN101KX8=</dsig:DigestValue>
|
||||
</hash>
|
||||
</file>
|
||||
<file name="DPM.exe.config" size="4181">
|
||||
<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>0prST3unFNQNU2HVldsrddDuCgCJokfAhMVNgXbX/v4=</dsig:DigestValue>
|
||||
</hash>
|
||||
</file>
|
||||
<file name="DPMNeu.ico" size="156974">
|
||||
<hash>
|
||||
<dsig:Transforms>
|
||||
@@ -1521,15 +1530,6 @@
|
||||
<dsig:DigestValue>NLnqVMsy3w9jN63XtqsXl3zuDEd+8S6tWSYv9gZKS4Q=</dsig:DigestValue>
|
||||
</hash>
|
||||
</file>
|
||||
<file name="PADM.exe.config" size="4516">
|
||||
<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>IaVDJykS3T+/E78HSobZb/PRwAUull+7KpQZYT2d52E=</dsig:DigestValue>
|
||||
</hash>
|
||||
</file>
|
||||
<file name="PADM.ico" size="96694">
|
||||
<hash>
|
||||
<dsig:Transforms>
|
||||
Binary file not shown.
@@ -2,7 +2,7 @@
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
PADM
|
||||
DPM
|
||||
</name>
|
||||
</assembly>
|
||||
<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 |
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
Reference in New Issue
Block a user