Update 20230215
This commit is contained in:
Binary file not shown.
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.KostenvoranschlagAbschliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
Me.KostenvoranschlagLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
Me.KostenvoranschlagLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
Me.SuperTabControl1 = New DevComponents.DotNetBar.SuperTabControl()
|
Me.SuperTabControl1 = New DevComponents.DotNetBar.SuperTabControl()
|
||||||
|
Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
|
||||||
|
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||||
|
Me.STBehandlung = New DevComponents.DotNetBar.SuperTabItem()
|
||||||
Me.SuperTabControlPanel4 = New DevComponents.DotNetBar.SuperTabControlPanel()
|
Me.SuperTabControlPanel4 = New DevComponents.DotNetBar.SuperTabControlPanel()
|
||||||
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||||||
Me.c1akonto = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
Me.c1akonto = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||||
@@ -94,13 +97,8 @@ Partial Class Behandlung
|
|||||||
Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel()
|
Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel()
|
||||||
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
|
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
|
||||||
Me.STAkonto = New DevComponents.DotNetBar.SuperTabItem()
|
Me.STAkonto = New DevComponents.DotNetBar.SuperTabItem()
|
||||||
Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
|
|
||||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
|
||||||
Me.Behandungdetail1 = New DPM2016.Benhandungdetail()
|
|
||||||
Me.STBehandlung = New DevComponents.DotNetBar.SuperTabItem()
|
|
||||||
Me.SuperTabControlPanel2 = New DevComponents.DotNetBar.SuperTabControlPanel()
|
Me.SuperTabControlPanel2 = New DevComponents.DotNetBar.SuperTabControlPanel()
|
||||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||||
Me.Leistungen1 = New DPM2016.Leistungen()
|
|
||||||
Me.STLeistung = New DevComponents.DotNetBar.SuperTabItem()
|
Me.STLeistung = New DevComponents.DotNetBar.SuperTabItem()
|
||||||
Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
|
Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
|
||||||
Me.tsbtnnew = New System.Windows.Forms.ToolStripButton()
|
Me.tsbtnnew = New System.Windows.Forms.ToolStripButton()
|
||||||
@@ -161,19 +159,21 @@ Partial Class Behandlung
|
|||||||
Me.tsamdrittemahnung = New System.Windows.Forms.ToolStripMenuItem()
|
Me.tsamdrittemahnung = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
Me.C1Leistungen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
Me.C1Leistungen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||||
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
|
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
|
||||||
|
Me.Behandungdetail1 = New DPM2016.Benhandungdetail()
|
||||||
|
Me.Leistungen1 = New DPM2016.Leistungen()
|
||||||
Me.tsbtndelete.SuspendLayout()
|
Me.tsbtndelete.SuspendLayout()
|
||||||
Me.GroupBox1.SuspendLayout()
|
Me.GroupBox1.SuspendLayout()
|
||||||
CType(Me.treebehandlungen, System.ComponentModel.ISupportInitialize).BeginInit()
|
CType(Me.treebehandlungen, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
Me.ctxmenubehandlung.SuspendLayout()
|
Me.ctxmenubehandlung.SuspendLayout()
|
||||||
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
Me.SuperTabControl1.SuspendLayout()
|
Me.SuperTabControl1.SuspendLayout()
|
||||||
|
Me.SuperTabControlPanel1.SuspendLayout()
|
||||||
|
Me.Panel2.SuspendLayout()
|
||||||
Me.SuperTabControlPanel4.SuspendLayout()
|
Me.SuperTabControlPanel4.SuspendLayout()
|
||||||
Me.GroupBox2.SuspendLayout()
|
Me.GroupBox2.SuspendLayout()
|
||||||
CType(Me.c1akonto, System.ComponentModel.ISupportInitialize).BeginInit()
|
CType(Me.c1akonto, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
Me.ctxmenuakonto.SuspendLayout()
|
Me.ctxmenuakonto.SuspendLayout()
|
||||||
Me.ToolStrip1.SuspendLayout()
|
Me.ToolStrip1.SuspendLayout()
|
||||||
Me.SuperTabControlPanel1.SuspendLayout()
|
|
||||||
Me.Panel2.SuspendLayout()
|
|
||||||
Me.SuperTabControlPanel2.SuspendLayout()
|
Me.SuperTabControlPanel2.SuspendLayout()
|
||||||
Me.Panel1.SuspendLayout()
|
Me.Panel1.SuspendLayout()
|
||||||
Me.tsbtnbehandlungdelete.SuspendLayout()
|
Me.tsbtnbehandlungdelete.SuspendLayout()
|
||||||
@@ -188,7 +188,7 @@ Partial Class Behandlung
|
|||||||
Me.tsbtndelete.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnnewbehandlung, Me.tsbtndeletebehandlung, Me.ToolStripButton2})
|
Me.tsbtndelete.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnnewbehandlung, Me.tsbtndeletebehandlung, Me.ToolStripButton2})
|
||||||
Me.tsbtndelete.Location = New System.Drawing.Point(0, 0)
|
Me.tsbtndelete.Location = New System.Drawing.Point(0, 0)
|
||||||
Me.tsbtndelete.Name = "tsbtndelete"
|
Me.tsbtndelete.Name = "tsbtndelete"
|
||||||
Me.tsbtndelete.Size = New System.Drawing.Size(1713, 27)
|
Me.tsbtndelete.Size = New System.Drawing.Size(1713, 31)
|
||||||
Me.tsbtndelete.TabIndex = 1
|
Me.tsbtndelete.TabIndex = 1
|
||||||
Me.tsbtndelete.Text = "ToolStrip1"
|
Me.tsbtndelete.Text = "ToolStrip1"
|
||||||
'
|
'
|
||||||
@@ -198,7 +198,7 @@ Partial Class Behandlung
|
|||||||
Me.tsbtnnewbehandlung.Image = CType(resources.GetObject("tsbtnnewbehandlung.Image"), System.Drawing.Image)
|
Me.tsbtnnewbehandlung.Image = CType(resources.GetObject("tsbtnnewbehandlung.Image"), System.Drawing.Image)
|
||||||
Me.tsbtnnewbehandlung.ImageTransparentColor = System.Drawing.Color.Magenta
|
Me.tsbtnnewbehandlung.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
Me.tsbtnnewbehandlung.Name = "tsbtnnewbehandlung"
|
Me.tsbtnnewbehandlung.Name = "tsbtnnewbehandlung"
|
||||||
Me.tsbtnnewbehandlung.Size = New System.Drawing.Size(29, 24)
|
Me.tsbtnnewbehandlung.Size = New System.Drawing.Size(29, 28)
|
||||||
Me.tsbtnnewbehandlung.Text = "Neue Behandlung"
|
Me.tsbtnnewbehandlung.Text = "Neue Behandlung"
|
||||||
'
|
'
|
||||||
'tsbtndeletebehandlung
|
'tsbtndeletebehandlung
|
||||||
@@ -207,7 +207,7 @@ Partial Class Behandlung
|
|||||||
Me.tsbtndeletebehandlung.Image = CType(resources.GetObject("tsbtndeletebehandlung.Image"), System.Drawing.Image)
|
Me.tsbtndeletebehandlung.Image = CType(resources.GetObject("tsbtndeletebehandlung.Image"), System.Drawing.Image)
|
||||||
Me.tsbtndeletebehandlung.ImageTransparentColor = System.Drawing.Color.Magenta
|
Me.tsbtndeletebehandlung.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
Me.tsbtndeletebehandlung.Name = "tsbtndeletebehandlung"
|
Me.tsbtndeletebehandlung.Name = "tsbtndeletebehandlung"
|
||||||
Me.tsbtndeletebehandlung.Size = New System.Drawing.Size(29, 24)
|
Me.tsbtndeletebehandlung.Size = New System.Drawing.Size(29, 28)
|
||||||
Me.tsbtndeletebehandlung.Text = "Behandlung löschen"
|
Me.tsbtndeletebehandlung.Text = "Behandlung löschen"
|
||||||
'
|
'
|
||||||
'ToolStripButton2
|
'ToolStripButton2
|
||||||
@@ -216,18 +216,18 @@ Partial Class Behandlung
|
|||||||
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
|
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
|
||||||
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
|
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
Me.ToolStripButton2.Name = "ToolStripButton2"
|
Me.ToolStripButton2.Name = "ToolStripButton2"
|
||||||
Me.ToolStripButton2.Size = New System.Drawing.Size(29, 24)
|
Me.ToolStripButton2.Size = New System.Drawing.Size(29, 28)
|
||||||
Me.ToolStripButton2.Text = "Aktualisieren"
|
Me.ToolStripButton2.Text = "Aktualisieren"
|
||||||
'
|
'
|
||||||
'GroupBox1
|
'GroupBox1
|
||||||
'
|
'
|
||||||
Me.GroupBox1.Controls.Add(Me.treebehandlungen)
|
Me.GroupBox1.Controls.Add(Me.treebehandlungen)
|
||||||
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Left
|
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Left
|
||||||
Me.GroupBox1.Location = New System.Drawing.Point(0, 27)
|
Me.GroupBox1.Location = New System.Drawing.Point(0, 31)
|
||||||
Me.GroupBox1.Margin = New System.Windows.Forms.Padding(4)
|
Me.GroupBox1.Margin = New System.Windows.Forms.Padding(4)
|
||||||
Me.GroupBox1.Name = "GroupBox1"
|
Me.GroupBox1.Name = "GroupBox1"
|
||||||
Me.GroupBox1.Padding = New System.Windows.Forms.Padding(4)
|
Me.GroupBox1.Padding = New System.Windows.Forms.Padding(4)
|
||||||
Me.GroupBox1.Size = New System.Drawing.Size(273, 1004)
|
Me.GroupBox1.Size = New System.Drawing.Size(273, 1000)
|
||||||
Me.GroupBox1.TabIndex = 2
|
Me.GroupBox1.TabIndex = 2
|
||||||
Me.GroupBox1.TabStop = False
|
Me.GroupBox1.TabStop = False
|
||||||
Me.GroupBox1.Text = "Behandlungen"
|
Me.GroupBox1.Text = "Behandlungen"
|
||||||
@@ -256,7 +256,7 @@ Partial Class Behandlung
|
|||||||
Me.treebehandlungen.NodesConnector = Me.NodeConnector1
|
Me.treebehandlungen.NodesConnector = Me.NodeConnector1
|
||||||
Me.treebehandlungen.NodeStyle = Me.ElementStyle1
|
Me.treebehandlungen.NodeStyle = Me.ElementStyle1
|
||||||
Me.treebehandlungen.PathSeparator = ";"
|
Me.treebehandlungen.PathSeparator = ";"
|
||||||
Me.treebehandlungen.Size = New System.Drawing.Size(265, 981)
|
Me.treebehandlungen.Size = New System.Drawing.Size(265, 977)
|
||||||
Me.treebehandlungen.Styles.Add(Me.ElementStyle1)
|
Me.treebehandlungen.Styles.Add(Me.ElementStyle1)
|
||||||
Me.treebehandlungen.TabIndex = 0
|
Me.treebehandlungen.TabIndex = 0
|
||||||
Me.treebehandlungen.Text = "AdvTree1"
|
Me.treebehandlungen.Text = "AdvTree1"
|
||||||
@@ -541,18 +541,45 @@ Partial Class Behandlung
|
|||||||
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2)
|
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2)
|
||||||
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
|
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
|
||||||
Me.SuperTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
|
Me.SuperTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
Me.SuperTabControl1.Location = New System.Drawing.Point(273, 27)
|
Me.SuperTabControl1.Location = New System.Drawing.Point(273, 31)
|
||||||
Me.SuperTabControl1.Margin = New System.Windows.Forms.Padding(4)
|
Me.SuperTabControl1.Margin = New System.Windows.Forms.Padding(4)
|
||||||
Me.SuperTabControl1.Name = "SuperTabControl1"
|
Me.SuperTabControl1.Name = "SuperTabControl1"
|
||||||
Me.SuperTabControl1.ReorderTabsEnabled = True
|
Me.SuperTabControl1.ReorderTabsEnabled = True
|
||||||
Me.SuperTabControl1.SelectedTabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
|
Me.SuperTabControl1.SelectedTabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
|
||||||
Me.SuperTabControl1.SelectedTabIndex = 0
|
Me.SuperTabControl1.SelectedTabIndex = 0
|
||||||
Me.SuperTabControl1.Size = New System.Drawing.Size(1440, 1004)
|
Me.SuperTabControl1.Size = New System.Drawing.Size(1440, 1000)
|
||||||
Me.SuperTabControl1.TabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.SuperTabControl1.TabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.SuperTabControl1.TabIndex = 9
|
Me.SuperTabControl1.TabIndex = 9
|
||||||
Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.STBehandlung, Me.STLeistung, Me.STAkonto})
|
Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.STBehandlung, Me.STLeistung, Me.STAkonto})
|
||||||
Me.SuperTabControl1.Text = "Rechnungstext"
|
Me.SuperTabControl1.Text = "Rechnungstext"
|
||||||
'
|
'
|
||||||
|
'SuperTabControlPanel1
|
||||||
|
'
|
||||||
|
Me.SuperTabControlPanel1.Controls.Add(Me.Panel2)
|
||||||
|
Me.SuperTabControlPanel1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.SuperTabControlPanel1.Location = New System.Drawing.Point(0, 28)
|
||||||
|
Me.SuperTabControlPanel1.Margin = New System.Windows.Forms.Padding(4)
|
||||||
|
Me.SuperTabControlPanel1.Name = "SuperTabControlPanel1"
|
||||||
|
Me.SuperTabControlPanel1.Size = New System.Drawing.Size(1440, 972)
|
||||||
|
Me.SuperTabControlPanel1.TabIndex = 1
|
||||||
|
Me.SuperTabControlPanel1.TabItem = Me.STBehandlung
|
||||||
|
'
|
||||||
|
'Panel2
|
||||||
|
'
|
||||||
|
Me.Panel2.Controls.Add(Me.Behandungdetail1)
|
||||||
|
Me.Panel2.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.Panel2.Margin = New System.Windows.Forms.Padding(4)
|
||||||
|
Me.Panel2.Name = "Panel2"
|
||||||
|
Me.Panel2.Size = New System.Drawing.Size(1416, 970)
|
||||||
|
Me.Panel2.TabIndex = 9
|
||||||
|
'
|
||||||
|
'STBehandlung
|
||||||
|
'
|
||||||
|
Me.STBehandlung.AttachedControl = Me.SuperTabControlPanel1
|
||||||
|
Me.STBehandlung.GlobalItem = False
|
||||||
|
Me.STBehandlung.Name = "STBehandlung"
|
||||||
|
Me.STBehandlung.Text = "Behandlung"
|
||||||
|
'
|
||||||
'SuperTabControlPanel4
|
'SuperTabControlPanel4
|
||||||
'
|
'
|
||||||
Me.SuperTabControlPanel4.Controls.Add(Me.GroupBox2)
|
Me.SuperTabControlPanel4.Controls.Add(Me.GroupBox2)
|
||||||
@@ -705,45 +732,6 @@ Partial Class Behandlung
|
|||||||
Me.STAkonto.Name = "STAkonto"
|
Me.STAkonto.Name = "STAkonto"
|
||||||
Me.STAkonto.Text = "Akonto"
|
Me.STAkonto.Text = "Akonto"
|
||||||
'
|
'
|
||||||
'SuperTabControlPanel1
|
|
||||||
'
|
|
||||||
Me.SuperTabControlPanel1.Controls.Add(Me.Panel2)
|
|
||||||
Me.SuperTabControlPanel1.Dock = System.Windows.Forms.DockStyle.Fill
|
|
||||||
Me.SuperTabControlPanel1.Location = New System.Drawing.Point(0, 28)
|
|
||||||
Me.SuperTabControlPanel1.Margin = New System.Windows.Forms.Padding(4)
|
|
||||||
Me.SuperTabControlPanel1.Name = "SuperTabControlPanel1"
|
|
||||||
Me.SuperTabControlPanel1.Size = New System.Drawing.Size(1440, 976)
|
|
||||||
Me.SuperTabControlPanel1.TabIndex = 1
|
|
||||||
Me.SuperTabControlPanel1.TabItem = Me.STBehandlung
|
|
||||||
'
|
|
||||||
'Panel2
|
|
||||||
'
|
|
||||||
Me.Panel2.Controls.Add(Me.Behandungdetail1)
|
|
||||||
Me.Panel2.Location = New System.Drawing.Point(0, 0)
|
|
||||||
Me.Panel2.Margin = New System.Windows.Forms.Padding(4)
|
|
||||||
Me.Panel2.Name = "Panel2"
|
|
||||||
Me.Panel2.Size = New System.Drawing.Size(1416, 970)
|
|
||||||
Me.Panel2.TabIndex = 9
|
|
||||||
'
|
|
||||||
'Behandungdetail1
|
|
||||||
'
|
|
||||||
Me.Behandungdetail1.Behandlungsnr = 0
|
|
||||||
Me.Behandungdetail1.Behandlungsstatus = 0
|
|
||||||
Me.Behandungdetail1.HasChanges = False
|
|
||||||
Me.Behandungdetail1.Location = New System.Drawing.Point(4, 7)
|
|
||||||
Me.Behandungdetail1.Margin = New System.Windows.Forms.Padding(5)
|
|
||||||
Me.Behandungdetail1.Name = "Behandungdetail1"
|
|
||||||
Me.Behandungdetail1.Patientnr = 0
|
|
||||||
Me.Behandungdetail1.Size = New System.Drawing.Size(1412, 959)
|
|
||||||
Me.Behandungdetail1.TabIndex = 0
|
|
||||||
'
|
|
||||||
'STBehandlung
|
|
||||||
'
|
|
||||||
Me.STBehandlung.AttachedControl = Me.SuperTabControlPanel1
|
|
||||||
Me.STBehandlung.GlobalItem = False
|
|
||||||
Me.STBehandlung.Name = "STBehandlung"
|
|
||||||
Me.STBehandlung.Text = "Behandlung"
|
|
||||||
'
|
|
||||||
'SuperTabControlPanel2
|
'SuperTabControlPanel2
|
||||||
'
|
'
|
||||||
Me.SuperTabControlPanel2.Controls.Add(Me.Panel1)
|
Me.SuperTabControlPanel2.Controls.Add(Me.Panel1)
|
||||||
@@ -765,20 +753,6 @@ Partial Class Behandlung
|
|||||||
Me.Panel1.Size = New System.Drawing.Size(1440, 972)
|
Me.Panel1.Size = New System.Drawing.Size(1440, 972)
|
||||||
Me.Panel1.TabIndex = 1
|
Me.Panel1.TabIndex = 1
|
||||||
'
|
'
|
||||||
'Leistungen1
|
|
||||||
'
|
|
||||||
Me.Leistungen1.behandler = 0
|
|
||||||
Me.Leistungen1.Behandlungnr = 0
|
|
||||||
Me.Leistungen1.Behandlungsstatus = 0
|
|
||||||
Me.Leistungen1.Dentotar = False
|
|
||||||
Me.Leistungen1.Dock = System.Windows.Forms.DockStyle.Fill
|
|
||||||
Me.Leistungen1.Frankenwert = 0R
|
|
||||||
Me.Leistungen1.Location = New System.Drawing.Point(0, 0)
|
|
||||||
Me.Leistungen1.Margin = New System.Windows.Forms.Padding(5)
|
|
||||||
Me.Leistungen1.Name = "Leistungen1"
|
|
||||||
Me.Leistungen1.Size = New System.Drawing.Size(1440, 972)
|
|
||||||
Me.Leistungen1.TabIndex = 0
|
|
||||||
'
|
|
||||||
'STLeistung
|
'STLeistung
|
||||||
'
|
'
|
||||||
Me.STLeistung.AttachedControl = Me.SuperTabControlPanel2
|
Me.STLeistung.AttachedControl = Me.SuperTabControlPanel2
|
||||||
@@ -792,7 +766,7 @@ Partial Class Behandlung
|
|||||||
Me.SuperTabControlPanel3.Location = New System.Drawing.Point(0, 0)
|
Me.SuperTabControlPanel3.Location = New System.Drawing.Point(0, 0)
|
||||||
Me.SuperTabControlPanel3.Margin = New System.Windows.Forms.Padding(4)
|
Me.SuperTabControlPanel3.Margin = New System.Windows.Forms.Padding(4)
|
||||||
Me.SuperTabControlPanel3.Name = "SuperTabControlPanel3"
|
Me.SuperTabControlPanel3.Name = "SuperTabControlPanel3"
|
||||||
Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1440, 1004)
|
Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1440, 1000)
|
||||||
Me.SuperTabControlPanel3.TabIndex = 0
|
Me.SuperTabControlPanel3.TabIndex = 0
|
||||||
'
|
'
|
||||||
'tsbtnnew
|
'tsbtnnew
|
||||||
@@ -1167,6 +1141,32 @@ Partial Class Behandlung
|
|||||||
'
|
'
|
||||||
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
|
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
|
||||||
'
|
'
|
||||||
|
'Behandungdetail1
|
||||||
|
'
|
||||||
|
Me.Behandungdetail1.Behandlungsnr = 0
|
||||||
|
Me.Behandungdetail1.Behandlungsstatus = 0
|
||||||
|
Me.Behandungdetail1.HasChanges = False
|
||||||
|
Me.Behandungdetail1.Location = New System.Drawing.Point(4, 7)
|
||||||
|
Me.Behandungdetail1.Margin = New System.Windows.Forms.Padding(5)
|
||||||
|
Me.Behandungdetail1.Name = "Behandungdetail1"
|
||||||
|
Me.Behandungdetail1.Patientnr = 0
|
||||||
|
Me.Behandungdetail1.Size = New System.Drawing.Size(1412, 959)
|
||||||
|
Me.Behandungdetail1.TabIndex = 0
|
||||||
|
'
|
||||||
|
'Leistungen1
|
||||||
|
'
|
||||||
|
Me.Leistungen1.behandler = 0
|
||||||
|
Me.Leistungen1.Behandlungnr = 0
|
||||||
|
Me.Leistungen1.Behandlungsstatus = 0
|
||||||
|
Me.Leistungen1.Dentotar = False
|
||||||
|
Me.Leistungen1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.Leistungen1.Frankenwert = 0R
|
||||||
|
Me.Leistungen1.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.Leistungen1.Margin = New System.Windows.Forms.Padding(5)
|
||||||
|
Me.Leistungen1.Name = "Leistungen1"
|
||||||
|
Me.Leistungen1.Size = New System.Drawing.Size(1440, 972)
|
||||||
|
Me.Leistungen1.TabIndex = 0
|
||||||
|
'
|
||||||
'Behandlung
|
'Behandlung
|
||||||
'
|
'
|
||||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
|
||||||
@@ -1184,6 +1184,8 @@ Partial Class Behandlung
|
|||||||
Me.ctxmenubehandlung.ResumeLayout(False)
|
Me.ctxmenubehandlung.ResumeLayout(False)
|
||||||
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
Me.SuperTabControl1.ResumeLayout(False)
|
Me.SuperTabControl1.ResumeLayout(False)
|
||||||
|
Me.SuperTabControlPanel1.ResumeLayout(False)
|
||||||
|
Me.Panel2.ResumeLayout(False)
|
||||||
Me.SuperTabControlPanel4.ResumeLayout(False)
|
Me.SuperTabControlPanel4.ResumeLayout(False)
|
||||||
Me.GroupBox2.ResumeLayout(False)
|
Me.GroupBox2.ResumeLayout(False)
|
||||||
Me.GroupBox2.PerformLayout()
|
Me.GroupBox2.PerformLayout()
|
||||||
@@ -1191,8 +1193,6 @@ Partial Class Behandlung
|
|||||||
Me.ctxmenuakonto.ResumeLayout(False)
|
Me.ctxmenuakonto.ResumeLayout(False)
|
||||||
Me.ToolStrip1.ResumeLayout(False)
|
Me.ToolStrip1.ResumeLayout(False)
|
||||||
Me.ToolStrip1.PerformLayout()
|
Me.ToolStrip1.PerformLayout()
|
||||||
Me.SuperTabControlPanel1.ResumeLayout(False)
|
|
||||||
Me.Panel2.ResumeLayout(False)
|
|
||||||
Me.SuperTabControlPanel2.ResumeLayout(False)
|
Me.SuperTabControlPanel2.ResumeLayout(False)
|
||||||
Me.Panel1.ResumeLayout(False)
|
Me.Panel1.ResumeLayout(False)
|
||||||
Me.tsbtnbehandlungdelete.ResumeLayout(False)
|
Me.tsbtnbehandlungdelete.ResumeLayout(False)
|
||||||
|
|||||||
@@ -236,7 +236,7 @@
|
|||||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
|
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
|
||||||
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
|
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
|
||||||
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABO
|
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABO
|
||||||
DQAAAk1TRnQBSQFMAgEBBQEAAaABBgGgAQYBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
DQAAAk1TRnQBSQFMAgEBBQEAAbABBgGwAQYBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||||
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
|
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
|
||||||
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
|
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
|
||||||
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
|
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
|
||||||
@@ -338,7 +338,7 @@
|
|||||||
</value>
|
</value>
|
||||||
</data>
|
</data>
|
||||||
<data name="c1akonto.PropBag" xml:space="preserve">
|
<data name="c1akonto.PropBag" xml:space="preserve">
|
||||||
<value><?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>
|
</data>
|
||||||
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
<value>662, 17</value>
|
<value>662, 17</value>
|
||||||
@@ -509,7 +509,7 @@
|
|||||||
</value>
|
</value>
|
||||||
</data>
|
</data>
|
||||||
<data name="C1Leistungen.PropBag" xml:space="preserve">
|
<data name="C1Leistungen.PropBag" xml:space="preserve">
|
||||||
<value><?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>
|
</data>
|
||||||
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
<value>950, 17</value>
|
<value>950, 17</value>
|
||||||
|
|||||||
@@ -380,15 +380,18 @@ Public Class Behandlung
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Sub enable_disable_tabs(ByVal enable As Boolean)
|
Sub enable_disable_tabs(ByVal enable As Boolean)
|
||||||
Me.SuperTabControl1.Tabs(1).Enabled = enable
|
Try
|
||||||
Me.SuperTabControl1.Tabs(0).Enabled = enable
|
Me.SuperTabControl1.Tabs(1).Enabled = enable
|
||||||
Me.SuperTabControl1.Visible = enable
|
Me.SuperTabControl1.Tabs(0).Enabled = enable
|
||||||
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
|
Me.SuperTabControl1.Visible = enable
|
||||||
Me.SuperTabControl1.Tabs(0).Text = "Projekt"
|
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
|
||||||
Else
|
Me.SuperTabControl1.Tabs(0).Text = "Projekt"
|
||||||
Me.SuperTabControl1.Tabs(2).Visible = False
|
Else
|
||||||
End If
|
Me.SuperTabControl1.Tabs(2).Visible = False
|
||||||
'Me.SuperTabControl1.Tabs(0).Focus()
|
End If
|
||||||
|
'Me.SuperTabControl1.Tabs(0).Focus()
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|||||||
@@ -1,319 +1,321 @@
|
|||||||
Public Class clsFakturaFunktionen
|
Public Class clsFakturaFunktionen
|
||||||
Public Sub Vorschau_Rechnung(ByVal nrbehandlung As String)
|
Public Sub Vorschau_Rechnung(ByVal nrbehandlung As String)
|
||||||
Dim db As New clsDB
|
Dim db As New clsDB
|
||||||
Dim db1 As New clsDB
|
Dim db1 As New clsDB
|
||||||
Dim anzahlraten As Integer = 0
|
Dim anzahlraten As Integer = 0
|
||||||
'db.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.Behandlungsnr.ToString)
|
'db.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.Behandlungsnr.ToString)
|
||||||
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + nrbehandlung)
|
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + nrbehandlung)
|
||||||
db1.Get_Tabledata("estyp", "where nrestyp=" + db.dsDaten.Tables(0).Rows(0).Item("nrestyp").ToString)
|
db1.Get_Tabledata("estyp", "where nrestyp=" + db.dsDaten.Tables(0).Rows(0).Item("nrestyp").ToString)
|
||||||
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
|
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
|
||||||
If anzahlraten = 0 Then anzahlraten = 1
|
If anzahlraten = 0 Then anzahlraten = 1
|
||||||
Dim reportnr As Integer
|
Dim reportnr As Integer
|
||||||
reportnr = db.Get_ReportNr(db1.dsDaten.Tables(0).Rows(0).Item("estyp"))
|
reportnr = db.Get_ReportNr(db1.dsDaten.Tables(0).Rows(0).Item("estyp"))
|
||||||
Dim Folgeauswertung As Integer
|
Dim Folgeauswertung As Integer
|
||||||
Dim Separater_Druckjob As Boolean
|
Dim Separater_Druckjob As Boolean
|
||||||
Dim doloop As Boolean = True
|
Dim doloop As Boolean = True
|
||||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
|
db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
|
||||||
|
|
||||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||||
|
|
||||||
While doloop = True
|
While doloop = True
|
||||||
For i As Integer = 1 To anzahlraten
|
For i As Integer = 1 To anzahlraten
|
||||||
' Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + Me.Behandlungsnr.ToString, Me.Behandlungsnr.ToString)
|
' Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + Me.Behandlungsnr.ToString, Me.Behandlungsnr.ToString)
|
||||||
Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
|
Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
|
||||||
|
|
||||||
f.Show()
|
f.Show()
|
||||||
f.Print_Rechnung(True, False, i)
|
f.Print_Rechnung(True, False, i)
|
||||||
If anzahlraten > 1 And i < 2 And Folgeauswertung > 0 Then
|
If anzahlraten > 1 And i < 2 And Folgeauswertung > 0 Then
|
||||||
reportnr = Folgeauswertung
|
reportnr = Folgeauswertung
|
||||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
|
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
|
||||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||||
Dim f1 As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
|
Dim f1 As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
|
||||||
|
|
||||||
f1.Show()
|
f1.Show()
|
||||||
f1.Print_Rechnung(True, False, i)
|
f1.Print_Rechnung(True, False, i)
|
||||||
reportnr = db.Get_ReportNr(db1.dsDaten.Tables(0).Rows(0).Item("estyp"))
|
reportnr = db.Get_ReportNr(db1.dsDaten.Tables(0).Rows(0).Item("estyp"))
|
||||||
End If
|
End If
|
||||||
Next i
|
Next i
|
||||||
|
|
||||||
If Folgeauswertung > 0 And anzahlraten < 2 Then
|
If Folgeauswertung > 0 And anzahlraten < 2 Then
|
||||||
reportnr = Folgeauswertung
|
reportnr = Folgeauswertung
|
||||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
|
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
|
||||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||||
Else
|
Else
|
||||||
doloop = False
|
doloop = False
|
||||||
End If
|
End If
|
||||||
End While
|
End While
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Public Sub Rechnungskopie(ByVal nrbehandlung As String, Optional preview As Boolean = False, Optional asPDF As Boolean = False, Optional PerMail As Boolean = False)
|
Public Sub Rechnungskopie(ByVal nrbehandlung As String, Optional preview As Boolean = False, Optional asPDF As Boolean = False, Optional PerMail As Boolean = False)
|
||||||
Globals.pdfCollection.Clear()
|
Globals.pdfCollection.Clear()
|
||||||
Dim db As New clsDB
|
Dim db As New clsDB
|
||||||
Dim db1 As New clsDB
|
Dim db1 As New clsDB
|
||||||
Dim db2 As New clsDB
|
Dim db2 As New clsDB
|
||||||
Globals.RGCollection.Clear()
|
Globals.RGCollection.Clear()
|
||||||
Dim anzahlraten As Integer = 0
|
Dim anzahlraten As Integer = 0
|
||||||
Dim Empfaenger As String = ""
|
Dim Empfaenger As String = ""
|
||||||
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + nrbehandlung)
|
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + nrbehandlung)
|
||||||
Dim behandlungsnr As Integer = db.dsDaten.Tables(0).Rows(0).Item("nrbehandlung")
|
Dim behandlungsnr As Integer = db.dsDaten.Tables(0).Rows(0).Item("nrbehandlung")
|
||||||
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
|
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
|
||||||
Empfaenger = db.dsDaten.Tables(0).Rows(0).Item("Empfaenger")
|
Empfaenger = db.dsDaten.Tables(0).Rows(0).Item("Empfaenger")
|
||||||
|
|
||||||
If anzahlraten = 0 Then anzahlraten = 1
|
If anzahlraten = 0 Then anzahlraten = 1
|
||||||
db.Get_Tabledata("estyp", "where nrestyp=" + db.dsDaten.Tables(0).Rows(0).Item("nrestyp").ToString)
|
db.Get_Tabledata("estyp", "where nrestyp=" + db.dsDaten.Tables(0).Rows(0).Item("nrestyp").ToString)
|
||||||
Dim reportnr As Integer
|
Dim reportnr As Integer
|
||||||
Dim ReportNrOriginal As Integer
|
Dim ReportNrOriginal As Integer
|
||||||
reportnr = db.Get_ReportNr(db.dsDaten.Tables(0).Rows(0).Item("estyp"))
|
reportnr = db.Get_ReportNr(db.dsDaten.Tables(0).Rows(0).Item("estyp"))
|
||||||
ReportNrOriginal = reportnr
|
ReportNrOriginal = reportnr
|
||||||
|
|
||||||
Dim fakturanr As Integer
|
Dim fakturanr As Integer
|
||||||
Try
|
Try
|
||||||
db2.Get_Tabledata("Faktura", "", "Select top 10 nrfaktura from faktura where nrbehandlung=" + behandlungsnr.ToString + " and status <> 9 order by erstellt_am asc ")
|
db2.Get_Tabledata("Faktura", "", "Select top 10 nrfaktura from faktura where nrbehandlung=" + behandlungsnr.ToString + " and status <> 9 order by erstellt_am asc ")
|
||||||
fakturanr = db2.dsDaten.Tables(0).Rows(0).Item(0)
|
fakturanr = db2.dsDaten.Tables(0).Rows(0).Item(0)
|
||||||
Catch
|
Catch
|
||||||
fakturanr = 0
|
fakturanr = 0
|
||||||
End Try
|
End Try
|
||||||
Globals.FakturaNr = fakturanr
|
Globals.FakturaNr = fakturanr
|
||||||
|
|
||||||
Dim Folgeauswertung As Integer
|
Dim Folgeauswertung As Integer
|
||||||
Dim Separater_Druckjob As Boolean
|
Dim Separater_Druckjob As Boolean
|
||||||
Dim doloop As Boolean = True
|
Dim doloop As Boolean = True
|
||||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
|
db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
|
||||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||||
Dim hauptfaktura As Integer
|
Dim hauptfaktura As Integer
|
||||||
While doloop = True
|
While doloop = True
|
||||||
For i As Integer = 1 To anzahlraten
|
For i As Integer = 1 To anzahlraten
|
||||||
fakturanr = db2.dsDaten.Tables(0).Rows(i - 1).Item(0)
|
fakturanr = db2.dsDaten.Tables(0).Rows(i - 1).Item(0)
|
||||||
Globals.FakturaNr = fakturanr
|
Globals.FakturaNr = fakturanr
|
||||||
|
|
||||||
If i = 1 And Empfaenger <> "" Then
|
If i = 1 And Empfaenger <> "" Then
|
||||||
Dim f0 As New frmReportView(9999, False, "Vorschau Rechung", " where nrbehandlung = " + nrbehandlung.ToString, nrbehandlung.ToString, asPDF)
|
Dim f0 As New frmReportView(9999, False, "Vorschau Rechung", " where nrbehandlung = " + nrbehandlung.ToString, nrbehandlung.ToString, asPDF)
|
||||||
f0.Visible = False
|
f0.Visible = False
|
||||||
f0.Show()
|
f0.Show()
|
||||||
f0.Visible = False
|
f0.Visible = False
|
||||||
f0.Fakturierung(9999, nrbehandlung, "", i, buchen:=False)
|
f0.Fakturierung(9999, nrbehandlung, "", i, buchen:=False)
|
||||||
f0.Close()
|
f0.Close()
|
||||||
Globals.FakturaNr = 0
|
Globals.FakturaNr = 0
|
||||||
End If
|
End If
|
||||||
Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + behandlungsnr.ToString, behandlungsnr.ToString, asPDF)
|
Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + behandlungsnr.ToString, behandlungsnr.ToString, asPDF)
|
||||||
If Not preview Then f.Visible = False Else f.Visible = True
|
If Not preview Then f.Visible = False Else f.Visible = True
|
||||||
|
|
||||||
If fakturanr = 0 Then
|
If fakturanr = 0 Then
|
||||||
If preview Then
|
If preview Then
|
||||||
f.Fakturierung_Vorschau(reportnr, behandlungsnr, "", i, 1, fakturanr)
|
f.Fakturierung_Vorschau(reportnr, behandlungsnr, "", i, 1, fakturanr)
|
||||||
Else
|
Else
|
||||||
f.Fakturierung(reportnr, behandlungsnr, "", i, 1, fakturanr)
|
f.Fakturierung(reportnr, behandlungsnr, "", i, 1, fakturanr)
|
||||||
End If
|
End If
|
||||||
Else
|
Else
|
||||||
If preview Then
|
If preview Then
|
||||||
f.Fakturierung_Vorschau(reportnr, behandlungsnr, "", i, 1, fakturanr)
|
f.Fakturierung_Vorschau(reportnr, behandlungsnr, "", i, 1, fakturanr)
|
||||||
Else
|
Else
|
||||||
f.Fakturierung(reportnr, behandlungsnr, "", i, 1, fakturanr)
|
f.Fakturierung(reportnr, behandlungsnr, "", i, 1, fakturanr)
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
If Not preview Then f.Close()
|
If Not preview Then f.Close()
|
||||||
If anzahlraten > 1 And i < 2 And Folgeauswertung > 0 Then
|
If anzahlraten > 1 And i < 2 And Folgeauswertung > 0 Then
|
||||||
reportnr = Folgeauswertung
|
reportnr = Folgeauswertung
|
||||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
|
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
|
||||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||||
Dim f1 As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + behandlungsnr.ToString, behandlungsnr.ToString, asPDF)
|
Dim f1 As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + behandlungsnr.ToString, behandlungsnr.ToString, asPDF)
|
||||||
f1.Visible = False
|
f1.Visible = False
|
||||||
f1.Show()
|
f1.Show()
|
||||||
f1.Fakturierung(reportnr, behandlungsnr, "", i, 1, fakturanr)
|
f1.Fakturierung(reportnr, behandlungsnr, "", i, 1, fakturanr)
|
||||||
f1.Close()
|
f1.Close()
|
||||||
reportnr = ReportNrOriginal
|
reportnr = ReportNrOriginal
|
||||||
'fakturanr = fakturanr - 1
|
'fakturanr = fakturanr - 1
|
||||||
End If
|
End If
|
||||||
'fakturanr = fakturanr + 1
|
'fakturanr = fakturanr + 1
|
||||||
Next i
|
Next i
|
||||||
If Folgeauswertung > 0 And anzahlraten < 2 Then
|
If Folgeauswertung > 0 And anzahlraten < 2 Then
|
||||||
reportnr = Folgeauswertung
|
reportnr = Folgeauswertung
|
||||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
|
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
|
||||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||||
Else
|
Else
|
||||||
doloop = False
|
doloop = False
|
||||||
End If
|
End If
|
||||||
End While
|
End While
|
||||||
If preview = False Then
|
If preview = False Then
|
||||||
Dim pdfh As New clspdfhelper
|
Dim pdfh As New clspdfhelper
|
||||||
pdfh.HandlePDF(asPDF, PerMail, 2, clsMailClient.EmpfangerFrom.Behandlung, nrbehandlung)
|
pdfh.HandlePDF(asPDF, PerMail, 2, clsMailClient.EmpfangerFrom.Behandlung, nrbehandlung)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Public Sub Mahnung(ByVal Fakturanr As String, ByVal Stufe As Integer, Optional Preview As Boolean = False, Optional Design As Boolean = False, Optional asPDF As Boolean = False, Optional perMail As Boolean = False)
|
Public Sub Mahnung(ByVal Fakturanr As String, ByVal Stufe As Integer, Optional Preview As Boolean = False, Optional Design As Boolean = False, Optional asPDF As Boolean = False, Optional perMail As Boolean = False)
|
||||||
Globals.pdfCollection.Clear()
|
Globals.pdfCollection.Clear()
|
||||||
Dim db As New clsDB
|
Dim db As New clsDB
|
||||||
Dim db1 As New clsDB
|
Dim db1 As New clsDB
|
||||||
Dim anzahlraten As Integer = 0
|
Dim anzahlraten As Integer = 0
|
||||||
Dim Behandlungsnr As Integer
|
Dim Behandlungsnr As Integer
|
||||||
Dim Empfaenger As String = ""
|
Dim Empfaenger As String = ""
|
||||||
db.Get_Tabledata("Faktura", "", "Select nrbehandlung from faktura where nrfaktura=" + Fakturanr)
|
db.Get_Tabledata("Faktura", "", "Select nrbehandlung from faktura where nrfaktura=" + Fakturanr)
|
||||||
Behandlungsnr = db.dsDaten.Tables(0).Rows(0).Item("nrbehandlung")
|
Behandlungsnr = db.dsDaten.Tables(0).Rows(0).Item("nrbehandlung")
|
||||||
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + db.dsDaten.Tables(0).Rows(0).Item("nrbehandlung").ToString)
|
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + db.dsDaten.Tables(0).Rows(0).Item("nrbehandlung").ToString)
|
||||||
db1.Get_Tabledata("estyp", "where nrestyp=" + db.dsDaten.Tables(0).Rows(0).Item("nrestyp").ToString)
|
db1.Get_Tabledata("estyp", "where nrestyp=" + db.dsDaten.Tables(0).Rows(0).Item("nrestyp").ToString)
|
||||||
|
|
||||||
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
|
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
|
||||||
Empfaenger = db.dsDaten.Tables(0).Rows(0).Item("Empfaenger")
|
Empfaenger = db.dsDaten.Tables(0).Rows(0).Item("Empfaenger")
|
||||||
If anzahlraten = 0 Then anzahlraten = 1
|
If anzahlraten = 0 Then anzahlraten = 1
|
||||||
|
|
||||||
Dim reportnr As Integer
|
Dim reportnr As Integer
|
||||||
|
|
||||||
reportnr = db.Get_ReportNr(db1.dsDaten.Tables(0).Rows(0).Item("estyp"))
|
reportnr = db.Get_ReportNr(db1.dsDaten.Tables(0).Rows(0).Item("estyp"))
|
||||||
reportnr = db1.dsDaten.Tables(0).Rows(0).Item("mahnnummer") + Stufe
|
reportnr = db1.dsDaten.Tables(0).Rows(0).Item("mahnnummer") + Stufe
|
||||||
Globals.FakturaNr = 0
|
Globals.FakturaNr = 0
|
||||||
|
|
||||||
Dim Folgeauswertung As Integer
|
Dim Folgeauswertung As Integer
|
||||||
Dim Separater_Druckjob As Boolean
|
Dim Separater_Druckjob As Boolean
|
||||||
Dim doloop As Boolean = True
|
Dim doloop As Boolean = True
|
||||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
|
db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
|
||||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||||
Dim hauptfaktura As Integer
|
Dim hauptfaktura As Integer
|
||||||
Dim buchen As Boolean = False
|
Dim buchen As Boolean = False
|
||||||
If Preview = False And Design = False Then buchen = True
|
If Preview = False And Design = False Then buchen = True
|
||||||
|
|
||||||
While doloop = True
|
While doloop = True
|
||||||
For i As Integer = 1 To anzahlraten
|
For i As Integer = 1 To anzahlraten
|
||||||
If i = 1 And Empfaenger <> "" Then
|
If i = 1 And Empfaenger <> "" Then
|
||||||
Dim f0 As New frmReportView(9999, False, "Vorschau Rechung", " where nrbehandlung = " + Behandlungsnr.ToString, Behandlungsnr.ToString)
|
Dim f0 As New frmReportView(9999, False, "Vorschau Rechung", " where nrbehandlung = " + Behandlungsnr.ToString, Behandlungsnr.ToString)
|
||||||
f0.Visible = False
|
f0.Visible = False
|
||||||
f0.Show()
|
f0.Show()
|
||||||
f0.Visible = False
|
f0.Visible = False
|
||||||
f0.Fakturierung(9999, Behandlungsnr.ToString, "", i, buchen:=False)
|
f0.Fakturierung(9999, Behandlungsnr.ToString, "", i, buchen:=False)
|
||||||
f0.Close()
|
f0.Close()
|
||||||
Globals.FakturaNr = 0
|
Globals.FakturaNr = 0
|
||||||
End If
|
End If
|
||||||
Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + Behandlungsnr.ToString, Behandlungsnr.ToString)
|
Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + Behandlungsnr.ToString, Behandlungsnr.ToString)
|
||||||
f.Visible = False
|
f.Visible = False
|
||||||
f.Show()
|
f.Show()
|
||||||
If Not Preview And Not Design Then f.Visible = False
|
If Not Preview And Not Design Then f.Visible = False
|
||||||
f.Mahnungg(Stufe, reportnr, Behandlungsnr, "", i, True, Fakturanr, buchen, Preview, Design)
|
f.Mahnungg(Stufe, reportnr, Behandlungsnr, "", i, True, Fakturanr, buchen, Preview, Design, asPDF)
|
||||||
If Not Preview Then f.Close()
|
If Not Preview Then f.Close()
|
||||||
If Design Then f.Close()
|
If Design Then f.Close()
|
||||||
If anzahlraten > 1 And i < 2 And Folgeauswertung > 0 Then
|
If anzahlraten > 1 And i < 2 And Folgeauswertung > 0 Then
|
||||||
reportnr = Folgeauswertung
|
reportnr = Folgeauswertung
|
||||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
|
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
|
||||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||||
Dim f1 As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + Behandlungsnr.ToString, Behandlungsnr.ToString)
|
Dim f1 As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + Behandlungsnr.ToString, Behandlungsnr.ToString)
|
||||||
f1.Visible = False
|
f1.Visible = False
|
||||||
f1.Show()
|
f1.Show()
|
||||||
If Not Preview And Not Design Then f1.Visible = False
|
If Not Preview And Not Design Then f1.Visible = False
|
||||||
f1.Mahnungg(Stufe, reportnr, Behandlungsnr, "", i, True, Fakturanr, buchen, Preview, Design)
|
f1.Mahnungg(Stufe, reportnr, Behandlungsnr, "", i, True, Fakturanr, buchen, Preview, Design)
|
||||||
f1.Close()
|
f1.Close()
|
||||||
reportnr = db.Get_ReportNr(db1.dsDaten.Tables(0).Rows(0).Item("estyp"))
|
reportnr = db.Get_ReportNr(db1.dsDaten.Tables(0).Rows(0).Item("estyp"))
|
||||||
reportnr = db1.dsDaten.Tables(0).Rows(0).Item("mahnnummer") + Stufe
|
reportnr = db1.dsDaten.Tables(0).Rows(0).Item("mahnnummer") + Stufe
|
||||||
End If
|
End If
|
||||||
Next i
|
Next i
|
||||||
If Folgeauswertung > 0 And anzahlraten < 2 Then
|
If Folgeauswertung > 0 And anzahlraten < 2 Then
|
||||||
reportnr = Folgeauswertung
|
reportnr = Folgeauswertung
|
||||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
|
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
|
||||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||||
Else
|
Else
|
||||||
doloop = False
|
doloop = False
|
||||||
End If
|
End If
|
||||||
End While
|
End While
|
||||||
If Preview = False And Design = False Then
|
If Preview = False And Design = False Then
|
||||||
Dim pdfh As New clspdfhelper
|
Dim pdfh As New clspdfhelper
|
||||||
pdfh.Create_Archivdoc(clspdfhelper.GetEmpfaengerType.FromFaktura, Fakturanr, "Mahnung:")
|
pdfh.Create_Archivdoc(clspdfhelper.GetEmpfaengerType.FromFaktura, Fakturanr, "Mahnung:")
|
||||||
pdfh = Nothing
|
pdfh.HandlePDF(asPDF, False, False, clsMailClient.EmpfangerFrom.Behandlung, Fakturanr)
|
||||||
End If
|
pdfh = Nothing
|
||||||
|
pdfh = Nothing
|
||||||
Globals.pdfCollection.Clear()
|
End If
|
||||||
|
|
||||||
|
Globals.pdfCollection.Clear()
|
||||||
End Sub
|
|
||||||
|
|
||||||
Public Sub Offerte_Auftragsbestaegitigung_Lieferschein(ByVal nrbehandlung As String, ByVal typ As Integer, ByVal PDFHandling As Integer, ByVal archivdoc As Boolean, ByVal fromtype As clspdfhelper.GetEmpfaengerType)
|
End Sub
|
||||||
Dim pdfh As New clspdfhelper
|
|
||||||
|
Public Sub Offerte_Auftragsbestaegitigung_Lieferschein(ByVal nrbehandlung As String, ByVal typ As Integer, ByVal PDFHandling As Integer, ByVal archivdoc As Boolean, ByVal fromtype As clspdfhelper.GetEmpfaengerType)
|
||||||
Dim db As New clsDB
|
Dim pdfh As New clspdfhelper
|
||||||
Dim db1 As New clsDB
|
|
||||||
Dim anzahlraten As Integer = 0
|
Dim db As New clsDB
|
||||||
'db.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.Behandlungsnr.ToString)
|
Dim db1 As New clsDB
|
||||||
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + nrbehandlung)
|
Dim anzahlraten As Integer = 0
|
||||||
db1.Get_Tabledata("estyp", "where nrestyp=" + db.dsDaten.Tables(0).Rows(0).Item("nrestyp").ToString)
|
'db.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.Behandlungsnr.ToString)
|
||||||
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
|
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + nrbehandlung)
|
||||||
If anzahlraten = 0 Then anzahlraten = 1
|
db1.Get_Tabledata("estyp", "where nrestyp=" + db.dsDaten.Tables(0).Rows(0).Item("nrestyp").ToString)
|
||||||
Dim reportnr As Integer
|
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
|
||||||
Dim Doktype As String
|
If anzahlraten = 0 Then anzahlraten = 1
|
||||||
Dim MAILTEXTNR As Integer
|
Dim reportnr As Integer
|
||||||
Select Case typ
|
Dim Doktype As String
|
||||||
Case 1
|
Dim MAILTEXTNR As Integer
|
||||||
Doktype = "Offerte"
|
Select Case typ
|
||||||
MAILTEXTNR = 3
|
Case 1
|
||||||
reportnr = db.Get_ReportNr("Offerte")
|
Doktype = "Offerte"
|
||||||
Case 2
|
MAILTEXTNR = 3
|
||||||
Doktype = "Auftragsbestätigung"
|
reportnr = db.Get_ReportNr("Offerte")
|
||||||
MAILTEXTNR = 4
|
Case 2
|
||||||
reportnr = db.Get_ReportNr("Offerte")
|
Doktype = "Auftragsbestätigung"
|
||||||
Case 3
|
MAILTEXTNR = 4
|
||||||
MAILTEXTNR = 5
|
reportnr = db.Get_ReportNr("Offerte")
|
||||||
Doktype = "Lieferschein"
|
Case 3
|
||||||
|
MAILTEXTNR = 5
|
||||||
reportnr = db.Get_ReportNr("Offerte")
|
Doktype = "Lieferschein"
|
||||||
|
|
||||||
End Select
|
reportnr = db.Get_ReportNr("Offerte")
|
||||||
|
|
||||||
Dim Folgeauswertung As Integer
|
End Select
|
||||||
Dim Separater_Druckjob As Boolean
|
|
||||||
Dim doloop As Boolean = True
|
Dim Folgeauswertung As Integer
|
||||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
|
Dim Separater_Druckjob As Boolean
|
||||||
|
Dim doloop As Boolean = True
|
||||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
|
||||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
|
||||||
Select Case PDFHandling
|
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||||
Case 0
|
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||||
Dim f As New frmReportView(reportnr, False, "Vorschau ", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
|
Select Case PDFHandling
|
||||||
f.Show()
|
Case 0
|
||||||
f.Print_Rechnung(True, False, 1, 0, 0, Doktype)
|
Dim f As New frmReportView(reportnr, False, "Vorschau ", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
|
||||||
Case 1
|
f.Show()
|
||||||
Dim f As New frmReportView(reportnr, False, "PDF ", " where nrbehandlung = " + nrbehandlung, nrbehandlung, True)
|
f.Print_Rechnung(True, False, 1, 0, 0, Doktype)
|
||||||
f.Visible = False
|
Case 1
|
||||||
f.Print_Rechnung(False, False, 1, 0, 0, Doktype)
|
Dim f As New frmReportView(reportnr, False, "PDF ", " where nrbehandlung = " + nrbehandlung, nrbehandlung, True)
|
||||||
|
f.Visible = False
|
||||||
pdfh.Create_Archivdoc(fromtype, "", "Lieferschein:", nrbehandlung)
|
f.Print_Rechnung(False, False, 1, 0, 0, Doktype)
|
||||||
|
|
||||||
Case 2
|
pdfh.Create_Archivdoc(fromtype, "", "Lieferschein:", nrbehandlung)
|
||||||
Dim f As New frmReportView(reportnr, False, "PDF/Mail ", " where nrbehandlung = " + nrbehandlung, nrbehandlung, True)
|
|
||||||
f.Visible = False
|
Case 2
|
||||||
f.Print_Rechnung(False, False, 1, 0, 0, Doktype)
|
Dim f As New frmReportView(reportnr, False, "PDF/Mail ", " where nrbehandlung = " + nrbehandlung, nrbehandlung, True)
|
||||||
pdfh.Create_Archivdoc(fromtype, "", "Auftragsbestätigung:", nrbehandlung)
|
f.Visible = False
|
||||||
Case 3
|
f.Print_Rechnung(False, False, 1, 0, 0, Doktype)
|
||||||
Dim f As New frmReportView(reportnr, False, "Druck ", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
|
pdfh.Create_Archivdoc(fromtype, "", "Auftragsbestätigung:", nrbehandlung)
|
||||||
f.Visible = False
|
Case 3
|
||||||
f.Show()
|
Dim f As New frmReportView(reportnr, False, "Druck ", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
|
||||||
f.Print_Rechnung(False, False, 1, 0, 0, Doktype)
|
f.Visible = False
|
||||||
f.Close()
|
f.Show()
|
||||||
pdfh.Create_Archivdoc(fromtype, "", "Lieferschein:", nrbehandlung)
|
f.Print_Rechnung(False, False, 1, 0, 0, Doktype)
|
||||||
Case 4
|
f.Close()
|
||||||
Dim f As New frmReportView(reportnr, False, "Vorschau ", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
|
pdfh.Create_Archivdoc(fromtype, "", "Lieferschein:", nrbehandlung)
|
||||||
f.Show()
|
Case 4
|
||||||
f.Print_Rechnung(False, True, 1, 0, 0, Doktype)
|
Dim f As New frmReportView(reportnr, False, "Vorschau ", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
|
||||||
f.Close()
|
f.Show()
|
||||||
End Select
|
f.Print_Rechnung(False, True, 1, 0, 0, Doktype)
|
||||||
|
f.Close()
|
||||||
|
End Select
|
||||||
Dim asPDF As Boolean = False
|
|
||||||
Dim PerMail As Boolean = False
|
|
||||||
Select Case PDFHandling
|
Dim asPDF As Boolean = False
|
||||||
Case 1
|
Dim PerMail As Boolean = False
|
||||||
pdfh.HandlePDF(True, False, MAILTEXTNR, clsMailClient.EmpfangerFrom.Behandlung, nrbehandlung)
|
Select Case PDFHandling
|
||||||
Case 2
|
Case 1
|
||||||
|
pdfh.HandlePDF(True, False, MAILTEXTNR, clsMailClient.EmpfangerFrom.Behandlung, nrbehandlung)
|
||||||
pdfh.HandlePDF(True, True, MAILTEXTNR, clsMailClient.EmpfangerFrom.Behandlung, nrbehandlung)
|
Case 2
|
||||||
End Select
|
|
||||||
|
pdfh.HandlePDF(True, True, MAILTEXTNR, clsMailClient.EmpfangerFrom.Behandlung, nrbehandlung)
|
||||||
End Sub
|
End Select
|
||||||
|
|
||||||
End Class
|
End Sub
|
||||||
|
|
||||||
|
End Class
|
||||||
|
|||||||
@@ -8,7 +8,7 @@
|
|||||||
<OutputType>WinExe</OutputType>
|
<OutputType>WinExe</OutputType>
|
||||||
<StartupObject>DPM2016.Program</StartupObject>
|
<StartupObject>DPM2016.Program</StartupObject>
|
||||||
<RootNamespace>DPM2016</RootNamespace>
|
<RootNamespace>DPM2016</RootNamespace>
|
||||||
<AssemblyName>PADM</AssemblyName>
|
<AssemblyName>DPM</AssemblyName>
|
||||||
<FileAlignment>512</FileAlignment>
|
<FileAlignment>512</FileAlignment>
|
||||||
<MyType>WindowsFormsWithCustomSubMain</MyType>
|
<MyType>WindowsFormsWithCustomSubMain</MyType>
|
||||||
<TargetFrameworkVersion>v4.6</TargetFrameworkVersion>
|
<TargetFrameworkVersion>v4.6</TargetFrameworkVersion>
|
||||||
@@ -37,7 +37,7 @@
|
|||||||
<DefineDebug>true</DefineDebug>
|
<DefineDebug>true</DefineDebug>
|
||||||
<DefineTrace>true</DefineTrace>
|
<DefineTrace>true</DefineTrace>
|
||||||
<OutputPath>bin\Debug\</OutputPath>
|
<OutputPath>bin\Debug\</OutputPath>
|
||||||
<DocumentationFile>PADM.xml</DocumentationFile>
|
<DocumentationFile>DPM.xml</DocumentationFile>
|
||||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
<Prefer32Bit>false</Prefer32Bit>
|
<Prefer32Bit>false</Prefer32Bit>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
@@ -48,7 +48,7 @@
|
|||||||
<DefineTrace>true</DefineTrace>
|
<DefineTrace>true</DefineTrace>
|
||||||
<Optimize>true</Optimize>
|
<Optimize>true</Optimize>
|
||||||
<OutputPath>bin\Release\</OutputPath>
|
<OutputPath>bin\Release\</OutputPath>
|
||||||
<DocumentationFile>PADM.xml</DocumentationFile>
|
<DocumentationFile>DPM.xml</DocumentationFile>
|
||||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
<Prefer32Bit>false</Prefer32Bit>
|
<Prefer32Bit>false</Prefer32Bit>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
@@ -65,7 +65,7 @@
|
|||||||
<OptionInfer>On</OptionInfer>
|
<OptionInfer>On</OptionInfer>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<PropertyGroup>
|
<PropertyGroup>
|
||||||
<ApplicationIcon>PADM.ico</ApplicationIcon>
|
<ApplicationIcon>DPMNeu.ico</ApplicationIcon>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<PropertyGroup>
|
<PropertyGroup>
|
||||||
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
|
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
|
||||||
|
|||||||
@@ -893,7 +893,7 @@ Public Class clsDB
|
|||||||
Dim faelligkeit As Date
|
Dim faelligkeit As Date
|
||||||
Dim mahngebuehr As Double
|
Dim mahngebuehr As Double
|
||||||
|
|
||||||
mahndatum = daten.Rows(0).Item("Mahndatum")
|
mahndatum = Now()
|
||||||
faelligkeit = daten.Rows(0).Item("Mahnfaelligkeit")
|
faelligkeit = daten.Rows(0).Item("Mahnfaelligkeit")
|
||||||
mahngebuehr = daten.Rows(0).Item("mahnzuschlag")
|
mahngebuehr = daten.Rows(0).Item("mahnzuschlag")
|
||||||
Select Case Stufe
|
Select Case Stufe
|
||||||
|
|||||||
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"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<root>
|
<root>
|
||||||
<!--
|
<!--
|
||||||
Microsoft ResX Schema
|
Microsoft ResX Schema
|
||||||
|
|
||||||
Version 2.0
|
Version 2.0
|
||||||
|
|
||||||
The primary goals of this format is to allow a simple XML format
|
The primary goals of this format is to allow a simple XML format
|
||||||
that is mostly human readable. The generation and parsing of the
|
that is mostly human readable. The generation and parsing of the
|
||||||
various data types are done through the TypeConverter classes
|
various data types are done through the TypeConverter classes
|
||||||
associated with the data types.
|
associated with the data types.
|
||||||
|
|
||||||
Example:
|
Example:
|
||||||
|
|
||||||
... ado.net/XML headers & schema ...
|
... ado.net/XML headers & schema ...
|
||||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
<resheader name="version">2.0</resheader>
|
<resheader name="version">2.0</resheader>
|
||||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
</data>
|
</data>
|
||||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
<comment>This is a comment</comment>
|
<comment>This is a comment</comment>
|
||||||
</data>
|
</data>
|
||||||
|
|
||||||
There are any number of "resheader" rows that contain simple
|
There are any number of "resheader" rows that contain simple
|
||||||
name/value pairs.
|
name/value pairs.
|
||||||
|
|
||||||
Each data row contains a name, and value. The row also contains a
|
Each data row contains a name, and value. The row also contains a
|
||||||
type or mimetype. Type corresponds to a .NET class that support
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
text/value conversion through the TypeConverter architecture.
|
text/value conversion through the TypeConverter architecture.
|
||||||
Classes that don't support this are serialized and stored with the
|
Classes that don't support this are serialized and stored with the
|
||||||
mimetype set.
|
mimetype set.
|
||||||
|
|
||||||
The mimetype is used for serialized objects, and tells the
|
The mimetype is used for serialized objects, and tells the
|
||||||
ResXResourceReader how to depersist the object. This is currently not
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
extensible. For a given mimetype the value must be set accordingly:
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
that the ResXResourceWriter will generate, however the reader can
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
read any of the formats listed below.
|
read any of the formats listed below.
|
||||||
|
|
||||||
mimetype: application/x-microsoft.net.object.binary.base64
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
value : The object must be serialized with
|
value : The object must be serialized with
|
||||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
: and then encoded with base64 encoding.
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
mimetype: application/x-microsoft.net.object.soap.base64
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
value : The object must be serialized with
|
value : The object must be serialized with
|
||||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
: and then encoded with base64 encoding.
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
value : The object must be serialized into a byte array
|
value : The object must be serialized into a byte array
|
||||||
: using a System.ComponentModel.TypeConverter
|
: using a System.ComponentModel.TypeConverter
|
||||||
: and then encoded with base64 encoding.
|
: and then encoded with base64 encoding.
|
||||||
-->
|
-->
|
||||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||||
<xsd:element name="root" msdata:IsDataSet="true">
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
<xsd:complexType>
|
<xsd:complexType>
|
||||||
<xsd:choice maxOccurs="unbounded">
|
<xsd:choice maxOccurs="unbounded">
|
||||||
<xsd:element name="metadata">
|
<xsd:element name="metadata">
|
||||||
<xsd:complexType>
|
<xsd:complexType>
|
||||||
<xsd:sequence>
|
<xsd:sequence>
|
||||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
</xsd:sequence>
|
</xsd:sequence>
|
||||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||||
<xsd:attribute name="type" type="xsd:string" />
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
<xsd:attribute ref="xml:space" />
|
<xsd:attribute ref="xml:space" />
|
||||||
</xsd:complexType>
|
</xsd:complexType>
|
||||||
</xsd:element>
|
</xsd:element>
|
||||||
<xsd:element name="assembly">
|
<xsd:element name="assembly">
|
||||||
<xsd:complexType>
|
<xsd:complexType>
|
||||||
<xsd:attribute name="alias" type="xsd:string" />
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
<xsd:attribute name="name" type="xsd:string" />
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
</xsd:complexType>
|
</xsd:complexType>
|
||||||
</xsd:element>
|
</xsd:element>
|
||||||
<xsd:element name="data">
|
<xsd:element name="data">
|
||||||
<xsd:complexType>
|
<xsd:complexType>
|
||||||
<xsd:sequence>
|
<xsd:sequence>
|
||||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
</xsd:sequence>
|
</xsd:sequence>
|
||||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
<xsd:attribute ref="xml:space" />
|
<xsd:attribute ref="xml:space" />
|
||||||
</xsd:complexType>
|
</xsd:complexType>
|
||||||
</xsd:element>
|
</xsd:element>
|
||||||
<xsd:element name="resheader">
|
<xsd:element name="resheader">
|
||||||
<xsd:complexType>
|
<xsd:complexType>
|
||||||
<xsd:sequence>
|
<xsd:sequence>
|
||||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
</xsd:sequence>
|
</xsd:sequence>
|
||||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
</xsd:complexType>
|
</xsd:complexType>
|
||||||
</xsd:element>
|
</xsd:element>
|
||||||
</xsd:choice>
|
</xsd:choice>
|
||||||
</xsd:complexType>
|
</xsd:complexType>
|
||||||
</xsd:element>
|
</xsd:element>
|
||||||
</xsd:schema>
|
</xsd:schema>
|
||||||
<resheader name="resmimetype">
|
<resheader name="resmimetype">
|
||||||
<value>text/microsoft-resx</value>
|
<value>text/microsoft-resx</value>
|
||||||
</resheader>
|
</resheader>
|
||||||
<resheader name="version">
|
<resheader name="version">
|
||||||
<value>2.0</value>
|
<value>2.0</value>
|
||||||
</resheader>
|
</resheader>
|
||||||
<resheader name="reader">
|
<resheader name="reader">
|
||||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
</resheader>
|
</resheader>
|
||||||
<resheader name="writer">
|
<resheader name="writer">
|
||||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
</resheader>
|
</resheader>
|
||||||
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
<value>17, 17</value>
|
<value>17, 17</value>
|
||||||
</metadata>
|
</metadata>
|
||||||
<metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
<metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
<value>281, 17</value>
|
<value>281, 17</value>
|
||||||
</metadata>
|
</metadata>
|
||||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||||
<data name="C1Zahlungen.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
<data name="C1Zahlungen.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
<value>
|
<value>
|
||||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
|
YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
|
||||||
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
|
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
|
||||||
</value>
|
</value>
|
||||||
</data>
|
</data>
|
||||||
<data name="C1Zahlungen.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
<data name="C1Zahlungen.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
<value>
|
<value>
|
||||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
|
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
|
||||||
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||||
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||||
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||||
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||||
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||||
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||||
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||||
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||||
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||||
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||||
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||||
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||||
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||||
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||||
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||||
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||||
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||||
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
||||||
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
||||||
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
||||||
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
||||||
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
||||||
</value>
|
</value>
|
||||||
</data>
|
</data>
|
||||||
<data name="C1Zahlungen.PropBag" xml:space="preserve">
|
<data name="C1Zahlungen.PropBag" xml:space="preserve">
|
||||||
<value><?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>
|
<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>
|
</data>
|
||||||
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
<value>124, 17</value>
|
<value>124, 17</value>
|
||||||
</metadata>
|
</metadata>
|
||||||
<data name="C1OffeneRechnungen.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
<data name="C1OffeneRechnungen.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
<value>
|
<value>
|
||||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
|
YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
|
||||||
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
|
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
|
||||||
</value>
|
</value>
|
||||||
</data>
|
</data>
|
||||||
<data name="C1OffeneRechnungen.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
<data name="C1OffeneRechnungen.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
<value>
|
<value>
|
||||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
|
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
|
||||||
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||||
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||||
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||||
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||||
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||||
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||||
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||||
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||||
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||||
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||||
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||||
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||||
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||||
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||||
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||||
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||||
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||||
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
||||||
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
||||||
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
||||||
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
||||||
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
||||||
</value>
|
</value>
|
||||||
</data>
|
</data>
|
||||||
<data name="C1OffeneRechnungen.PropBag" xml:space="preserve">
|
<data name="C1OffeneRechnungen.PropBag" xml:space="preserve">
|
||||||
<value><?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>
|
<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>
|
</data>
|
||||||
</root>
|
</root>
|
||||||
@@ -1,371 +1,371 @@
|
|||||||
Imports C1.Win.C1TrueDBGrid
|
Imports C1.Win.C1TrueDBGrid
|
||||||
|
|
||||||
Public Class Finanzen
|
Public Class Finanzen
|
||||||
|
|
||||||
Dim dbz As New clsDB
|
Dim dbz As New clsDB
|
||||||
Dim dbk As New clsDB
|
Dim dbk As New clsDB
|
||||||
Dim spalten As New Tabellenspalte
|
Dim spalten As New Tabellenspalte
|
||||||
Dim m_patientnr As Integer
|
Dim m_patientnr As Integer
|
||||||
Property Patientnr As Integer
|
Property Patientnr As Integer
|
||||||
Get
|
Get
|
||||||
Return m_patientnr
|
Return m_patientnr
|
||||||
End Get
|
End Get
|
||||||
Set(value As Integer)
|
Set(value As Integer)
|
||||||
m_patientnr = value
|
m_patientnr = value
|
||||||
refresh_konto()
|
refresh_konto()
|
||||||
Refresh_Zahlungen()
|
Refresh_Zahlungen()
|
||||||
End Set
|
End Set
|
||||||
End Property
|
End Property
|
||||||
|
|
||||||
Dim Zahlungen As New DataTable
|
Dim Zahlungen As New DataTable
|
||||||
Dim Offene_Rechnungen As New DataTable
|
Dim Offene_Rechnungen As New DataTable
|
||||||
Sub Refresh_Zahlungen()
|
Sub Refresh_Zahlungen()
|
||||||
Try
|
Try
|
||||||
dbz.Get_Tabledata("Zahlung", "", dbz.Get_SQL(19), Me.Patientnr.ToString)
|
dbz.Get_Tabledata("Zahlung", "", dbz.Get_SQL(19), Me.Patientnr.ToString)
|
||||||
Zahlungen = dbz.dsDaten.Tables(0).Copy
|
Zahlungen = dbz.dsDaten.Tables(0).Copy
|
||||||
Me.C1Zahlungen.DataSource = Nothing
|
Me.C1Zahlungen.DataSource = Nothing
|
||||||
Me.C1Zahlungen.DataSource = Zahlungen
|
Me.C1Zahlungen.DataSource = Zahlungen
|
||||||
Me.C1Zahlungen.DataMember = dbz.dsDaten.Tables(0).TableName
|
Me.C1Zahlungen.DataMember = dbz.dsDaten.Tables(0).TableName
|
||||||
spalten.Spaltentitel_aktualisieren(Me.C1Zahlungen, "Zahlungen", Zahlungen)
|
spalten.Spaltentitel_aktualisieren(Me.C1Zahlungen, "Zahlungen", Zahlungen)
|
||||||
dbz.Get_Tabledata("OffeneRechnungen", "", dbz.Get_SQL(22), Me.Patientnr.ToString)
|
dbz.Get_Tabledata("OffeneRechnungen", "", dbz.Get_SQL(22), Me.Patientnr.ToString)
|
||||||
Offene_Rechnungen = dbz.dsDaten.Tables(0).Copy
|
Offene_Rechnungen = dbz.dsDaten.Tables(0).Copy
|
||||||
Me.C1OffeneRechnungen.DataSource = Nothing
|
Me.C1OffeneRechnungen.DataSource = Nothing
|
||||||
Me.C1OffeneRechnungen.DataSource = Offene_Rechnungen
|
Me.C1OffeneRechnungen.DataSource = Offene_Rechnungen
|
||||||
Me.C1OffeneRechnungen.DataMember = Offene_Rechnungen.TableName
|
Me.C1OffeneRechnungen.DataMember = Offene_Rechnungen.TableName
|
||||||
spalten.Spaltentitel_aktualisieren(Me.C1OffeneRechnungen, "Offene_Rechnungen", Offene_Rechnungen)
|
spalten.Spaltentitel_aktualisieren(Me.C1OffeneRechnungen, "Offene_Rechnungen", Offene_Rechnungen)
|
||||||
|
|
||||||
Me.Mahndatum1.Text = ""
|
Me.Mahndatum1.Text = ""
|
||||||
Me.Mahndatum2.Text = ""
|
Me.Mahndatum2.Text = ""
|
||||||
Me.Mahndatum3.Text = ""
|
Me.Mahndatum3.Text = ""
|
||||||
Me.Mahnfaelligkeit1.Text = ""
|
Me.Mahnfaelligkeit1.Text = ""
|
||||||
Me.Mahnfaelligkeit2.Text = ""
|
Me.Mahnfaelligkeit2.Text = ""
|
||||||
Me.Mahnfaelligkeit3.Text = ""
|
Me.Mahnfaelligkeit3.Text = ""
|
||||||
Me.Mahngebühr1.Text = ""
|
Me.Mahngebühr1.Text = ""
|
||||||
Me.Mahngebühr2.Text = ""
|
Me.Mahngebühr2.Text = ""
|
||||||
Me.Mahngebühr3.Text = ""
|
Me.Mahngebühr3.Text = ""
|
||||||
|
|
||||||
Me.btnZurücksetzen1.Visible = False
|
Me.btnZurücksetzen1.Visible = False
|
||||||
Me.btnzurücksetzen2.Visible = False
|
Me.btnzurücksetzen2.Visible = False
|
||||||
Me.btnzurücksetzen3.Visible = False
|
Me.btnzurücksetzen3.Visible = False
|
||||||
|
|
||||||
|
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
MsgBox(ex.Message)
|
MsgBox(ex.Message)
|
||||||
End Try
|
End Try
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
Public Sub Refresh_Data()
|
Public Sub Refresh_Data()
|
||||||
refresh_konto()
|
refresh_konto()
|
||||||
Refresh_Zahlungen()
|
Refresh_Zahlungen()
|
||||||
Get_Mahndaten()
|
Get_Mahndaten()
|
||||||
End Sub
|
End Sub
|
||||||
Sub refresh_konto()
|
Sub refresh_konto()
|
||||||
dbk.Get_Tabledata("Konto", "where aktiv=1 order by reihenfolge")
|
dbk.Get_Tabledata("Konto", "where aktiv=1 order by reihenfolge")
|
||||||
Me.cbboxKonto.DataSource = dbk.dsDaten.Tables(0)
|
Me.cbboxKonto.DataSource = dbk.dsDaten.Tables(0)
|
||||||
Me.cbboxKonto.Displaymember = "Konto"
|
Me.cbboxKonto.Displaymember = "Konto"
|
||||||
Me.cbboxKonto.Valuemember = "nrkonto"
|
Me.cbboxKonto.Valuemember = "nrkonto"
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub txtRGNummer_TextChanged(sender As Object, e As EventArgs) Handles txtRGNummer.TextChanged
|
Private Sub txtRGNummer_TextChanged(sender As Object, e As EventArgs) Handles txtRGNummer.TextChanged
|
||||||
If Me.txtRGNummer.Text <> "" Then
|
If Me.txtRGNummer.Text <> "" Then
|
||||||
Me.chkVorauszahlung.Checked = False
|
Me.chkVorauszahlung.Checked = False
|
||||||
Me.chkVorauszahlung.Enabled = False
|
Me.chkVorauszahlung.Enabled = False
|
||||||
Else
|
Else
|
||||||
Me.chkVorauszahlung.Enabled = True
|
Me.chkVorauszahlung.Enabled = True
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub btnBuchen_Click(sender As Object, e As EventArgs) Handles btnBuchen.Click
|
Private Sub btnBuchen_Click(sender As Object, e As EventArgs) Handles btnBuchen.Click
|
||||||
Dim db5 As New clsDB
|
Dim db5 As New clsDB
|
||||||
Dim vz As String = ""
|
Dim vz As String = ""
|
||||||
Dim Storno As String = ""
|
Dim Storno As String = ""
|
||||||
Dim Debitor As Integer = 0
|
Dim Debitor As Integer = 0
|
||||||
If chkVorauszahlung.Checked = False And Me.txtRGNummer.Text = "" Then
|
If chkVorauszahlung.Checked = False And Me.txtRGNummer.Text = "" Then
|
||||||
MsgBox("Zahlung kann nicht verbucht werden. Entweder als Vorauszahlung oder mit gültiger Rechnungsnummer.", MsgBoxStyle.Exclamation)
|
MsgBox("Zahlung kann nicht verbucht werden. Entweder als Vorauszahlung oder mit gültiger Rechnungsnummer.", MsgBoxStyle.Exclamation)
|
||||||
Exit Sub
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
Dim newkey As Integer = dbz.Get_DBKey("Zahlung")
|
Dim newkey As Integer = dbz.Get_DBKey("Zahlung")
|
||||||
dbz.Get_Tabledata("Zahlung", "where nrzahlung=0")
|
dbz.Get_Tabledata("Zahlung", "where nrzahlung=0")
|
||||||
Dim r As DataRow = dbz.dsDaten.Tables(0).NewRow
|
Dim r As DataRow = dbz.dsDaten.Tables(0).NewRow
|
||||||
r("nrzahlung") = newkey
|
r("nrzahlung") = newkey
|
||||||
If Me.chkVorauszahlung.Checked = True Then r("nrfaktura") = 0 Else r("nrfaktura") = txtRGNummer.Text
|
If Me.chkVorauszahlung.Checked = True Then r("nrfaktura") = 0 Else r("nrfaktura") = txtRGNummer.Text
|
||||||
r("vorauszahlung") = chkVorauszahlung.Checked
|
r("vorauszahlung") = chkVorauszahlung.Checked
|
||||||
r("mandant") = 1
|
r("mandant") = 1
|
||||||
If r("nrfaktura") <> 0 Then
|
If r("nrfaktura") <> 0 Then
|
||||||
Try
|
Try
|
||||||
db5.Get_Tabledata("Fakt", "", "Select * from faktura where nrfaktura='" + r("nrfaktura").ToString + "'")
|
db5.Get_Tabledata("Fakt", "", "Select * from faktura where nrfaktura='" + r("nrfaktura").ToString + "'")
|
||||||
Debitor = db5.dsDaten.Tables(0).Rows(0).Item("nrdebitor")
|
Debitor = db5.dsDaten.Tables(0).Rows(0).Item("nrdebitor")
|
||||||
Catch
|
Catch
|
||||||
Debitor = 0
|
Debitor = 0
|
||||||
End Try
|
End Try
|
||||||
|
|
||||||
End If
|
End If
|
||||||
If Me.Patientnr <> Debitor And Debitor > 0 Then
|
If Me.Patientnr <> Debitor And Debitor > 0 Then
|
||||||
r("nrdebotir") = Debitor
|
r("nrdebotir") = Debitor
|
||||||
Else
|
Else
|
||||||
r("nrdebitor") = Me.Patientnr
|
r("nrdebitor") = Me.Patientnr
|
||||||
End If
|
End If
|
||||||
r("nrdebitor") = Me.Patientnr
|
r("nrdebitor") = Me.Patientnr
|
||||||
r("betrag") = Me.diBetrag.Value
|
r("betrag") = Me.diBetrag.Value
|
||||||
r("nrkonto") = cbboxKonto.SelectedValue
|
r("nrkonto") = cbboxKonto.SelectedValue
|
||||||
r("valuta") = Me.dtdatum.Value
|
r("valuta") = Me.dtdatum.Value
|
||||||
r("nrbehandlung") = 0
|
r("nrbehandlung") = 0
|
||||||
r("status") = 0
|
r("status") = 0
|
||||||
If chkVorauszahlung.Checked Then
|
If chkVorauszahlung.Checked Then
|
||||||
r("status") = 1
|
r("status") = 1
|
||||||
vz = "J"
|
vz = "J"
|
||||||
End If
|
End If
|
||||||
r("statusdatum") = Now
|
r("statusdatum") = Now
|
||||||
r("erstellt_am") = Now
|
r("erstellt_am") = Now
|
||||||
r("mutiert_am") = Now
|
r("mutiert_am") = Now
|
||||||
r("mutierer") = Globals.ActUser
|
r("mutierer") = Globals.ActUser
|
||||||
r("aktiv") = True
|
r("aktiv") = True
|
||||||
dbz.dsDaten.Tables(0).Rows.Add(r)
|
dbz.dsDaten.Tables(0).Rows.Add(r)
|
||||||
dbz.Update_Data()
|
dbz.Update_Data()
|
||||||
|
|
||||||
db5.Insert_ZJournal(r("nrfaktura"), r("nrdebitor"), db5.Get_Datavalue("Select dbo.get_name(" + r.Item("nrdebitor").ToString + ")"), r.Item("Betrag"), db5.Get_Datavalue("Select Konto from konto where nrkonto=" + r.Item("nrkonto").ToString), vz, "")
|
db5.Insert_ZJournal(r("nrfaktura"), r("nrdebitor"), db5.Get_Datavalue("Select dbo.get_name(" + r.Item("nrdebitor").ToString + ")"), r.Item("Betrag"), db5.Get_Datavalue("Select Konto from konto where nrkonto=" + r.Item("nrkonto").ToString), vz, "")
|
||||||
db5.Exec_SQL("Update debitor set mutiert_am=getdate(),betrag=betrag-" + r("betrag").ToString + "where nrfaktura=" + r("nrfaktura").ToString)
|
db5.Exec_SQL("Update debitor set mutiert_am=getdate(),betrag=betrag-" + r("betrag").ToString + "where nrfaktura=" + r("nrfaktura").ToString)
|
||||||
Me.Refresh_Zahlungen()
|
Me.Refresh_Zahlungen()
|
||||||
If vz = "J" Then
|
If vz = "J" Then
|
||||||
If MsgBox("Vorauszahlung einer Behandlung zuweisen?", vbYesNo + vbQuestion) Then
|
If MsgBox("Vorauszahlung einer Behandlung zuweisen?", vbYesNo + vbQuestion) Then
|
||||||
VorauszahlungAnBehandlungZuweisenToolStripMenuItem_Click(sender, e)
|
VorauszahlungAnBehandlungZuweisenToolStripMenuItem_Click(sender, e)
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
|
Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub C1OffeneRechnungen_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1OffeneRechnungen.RowColChange
|
Private Sub C1OffeneRechnungen_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1OffeneRechnungen.RowColChange
|
||||||
Try
|
Try
|
||||||
Me.dtdatum.Value = Now
|
Me.dtdatum.Value = Now
|
||||||
Me.txtRGNummer.Text = Me.C1OffeneRechnungen.Columns("nrfaktura").Value
|
Me.txtRGNummer.Text = Me.C1OffeneRechnungen.Columns("nrfaktura").Value
|
||||||
Me.diBetrag.Value = Me.C1OffeneRechnungen.Columns("Betrag").Value
|
Me.diBetrag.Value = Me.C1OffeneRechnungen.Columns("Betrag").Value
|
||||||
get_mahndaten
|
Get_Mahndaten()
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
|
|
||||||
End Try
|
End Try
|
||||||
End Sub
|
End Sub
|
||||||
Sub Get_Mahndaten()
|
Sub Get_Mahndaten()
|
||||||
Me.Mahndatum1.Text = ""
|
Me.Mahndatum1.Text = ""
|
||||||
Me.Mahndatum2.Text = ""
|
Me.Mahndatum2.Text = ""
|
||||||
Me.Mahndatum3.Text = ""
|
Me.Mahndatum3.Text = ""
|
||||||
Me.Mahnfaelligkeit1.Text = ""
|
Me.Mahnfaelligkeit1.Text = ""
|
||||||
Me.Mahnfaelligkeit2.Text = ""
|
Me.Mahnfaelligkeit2.Text = ""
|
||||||
Me.Mahnfaelligkeit3.Text = ""
|
Me.Mahnfaelligkeit3.Text = ""
|
||||||
Me.Mahngebühr1.Text = ""
|
Me.Mahngebühr1.Text = ""
|
||||||
Me.Mahngebühr2.Text = ""
|
Me.Mahngebühr2.Text = ""
|
||||||
Me.Mahngebühr3.Text = ""
|
Me.Mahngebühr3.Text = ""
|
||||||
Me.btnZurücksetzen1.Visible = False
|
Me.btnZurücksetzen1.Visible = False
|
||||||
Me.btnzurücksetzen2.Visible = False
|
Me.btnzurücksetzen2.Visible = False
|
||||||
Me.btnzurücksetzen3.Visible = False
|
Me.btnzurücksetzen3.Visible = False
|
||||||
Dim dd As Date
|
Dim dd As Date
|
||||||
Try
|
Try
|
||||||
Me.Mahndatum1.Text = ShortDate(Me.C1OffeneRechnungen.Columns("Mahndatum1").Value.ToString)
|
Me.Mahndatum1.Text = ShortDate(Me.C1OffeneRechnungen.Columns("Mahndatum1").Value.ToString)
|
||||||
Me.Mahndatum2.Text = ShortDate(Me.C1OffeneRechnungen.Columns("Mahndatum2").Value.ToString)
|
Me.Mahndatum2.Text = ShortDate(Me.C1OffeneRechnungen.Columns("Mahndatum2").Value.ToString)
|
||||||
Me.Mahndatum3.Text = ShortDate(Me.C1OffeneRechnungen.Columns("Mahndatum3").Value.ToString)
|
Me.Mahndatum3.Text = ShortDate(Me.C1OffeneRechnungen.Columns("Mahndatum3").Value.ToString)
|
||||||
|
|
||||||
Me.Mahnfaelligkeit1.Text = ShortDate(Me.C1OffeneRechnungen.Columns("mahnfaelligkeit1").Value.ToString)
|
Me.Mahnfaelligkeit1.Text = ShortDate(Me.C1OffeneRechnungen.Columns("mahnfaelligkeit1").Value.ToString)
|
||||||
Me.Mahnfaelligkeit2.Text = ShortDate(Me.C1OffeneRechnungen.Columns("mahnfaelligkeit2").Value.ToString)
|
Me.Mahnfaelligkeit2.Text = ShortDate(Me.C1OffeneRechnungen.Columns("mahnfaelligkeit2").Value.ToString)
|
||||||
Me.Mahnfaelligkeit3.Text = ShortDate(Me.C1OffeneRechnungen.Columns("mahnfaelligkeit3").Value.ToString)
|
Me.Mahnfaelligkeit3.Text = ShortDate(Me.C1OffeneRechnungen.Columns("mahnfaelligkeit3").Value.ToString)
|
||||||
|
|
||||||
Me.Mahngebühr1.Text = Me.C1OffeneRechnungen.Columns("mahngebuehr1").Value.ToString
|
Me.Mahngebühr1.Text = Me.C1OffeneRechnungen.Columns("mahngebuehr1").Value.ToString
|
||||||
Me.Mahngebühr2.Text = Me.C1OffeneRechnungen.Columns("mahngebuehr2").Value.ToString
|
Me.Mahngebühr2.Text = Me.C1OffeneRechnungen.Columns("mahngebuehr2").Value.ToString
|
||||||
Me.Mahngebühr3.Text = Me.C1OffeneRechnungen.Columns("mahngebuehr3").Value.ToString
|
Me.Mahngebühr3.Text = Me.C1OffeneRechnungen.Columns("mahngebuehr3").Value.ToString
|
||||||
|
|
||||||
If Me.Mahndatum3.Text <> "" Then
|
If Me.Mahndatum3.Text <> "" Then
|
||||||
Me.btnzurücksetzen3.Visible = True
|
Me.btnzurücksetzen3.Visible = True
|
||||||
Else
|
Else
|
||||||
If Me.Mahndatum2.Text <> "" Then
|
If Me.Mahndatum2.Text <> "" Then
|
||||||
Me.btnzurücksetzen2.Visible = True
|
Me.btnzurücksetzen2.Visible = True
|
||||||
Else
|
Else
|
||||||
If Me.Mahndatum1.Text <> "" Then
|
If Me.Mahndatum1.Text <> "" Then
|
||||||
Me.btnZurücksetzen1.Visible = True
|
Me.btnZurücksetzen1.Visible = True
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Catch
|
Catch
|
||||||
End Try
|
End Try
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Function ShortDate(ByVal dd As String) As String
|
Function ShortDate(ByVal dd As String) As String
|
||||||
Try
|
Try
|
||||||
Dim d As Date
|
Dim d As Date
|
||||||
d = dd
|
d = dd
|
||||||
Return d
|
Return d
|
||||||
Catch
|
Catch
|
||||||
Return ""
|
Return ""
|
||||||
End Try
|
End Try
|
||||||
|
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
|
|
||||||
Private Sub ZahlungBuchenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZahlungBuchenToolStripMenuItem.Click
|
Private Sub ZahlungBuchenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZahlungBuchenToolStripMenuItem.Click
|
||||||
btnBuchen_Click(sender, e)
|
btnBuchen_Click(sender, e)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub ZahlungStornierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZahlungStornierenToolStripMenuItem.Click
|
Private Sub ZahlungStornierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZahlungStornierenToolStripMenuItem.Click
|
||||||
If MsgBox("Zahlung stornieren?", vbYesNo + vbQuestion) <> vbYes Then Exit Sub
|
If MsgBox("Zahlung stornieren?", vbYesNo + vbQuestion) <> vbYes Then Exit Sub
|
||||||
Dim fakt As New clsFakturierung
|
Dim fakt As New clsFakturierung
|
||||||
fakt.Storno_Zahlung(Me.C1Zahlungen.Columns("nrzahlung").Value)
|
fakt.Storno_Zahlung(Me.C1Zahlungen.Columns("nrzahlung").Value)
|
||||||
Me.Refresh_Zahlungen()
|
Me.Refresh_Zahlungen()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||||
Me.txtRGNummer.Text = ""
|
Me.txtRGNummer.Text = ""
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub ContextMenuStrip2_CursorChanged(sender As Object, e As EventArgs) Handles ContextMenuStrip2.Opening
|
Private Sub ContextMenuStrip2_CursorChanged(sender As Object, e As EventArgs) Handles ContextMenuStrip2.Opening
|
||||||
If Me.C1Zahlungen.Columns("Zahlungsstatus").Value = "Vorauszahlung" Then
|
If Me.C1Zahlungen.Columns("Zahlungsstatus").Value = "Vorauszahlung" Then
|
||||||
If Me.C1Zahlungen.Columns("nrbehandlung").Value = 0 Then
|
If Me.C1Zahlungen.Columns("nrbehandlung").Value = 0 Then
|
||||||
|
|
||||||
VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Enabled = True
|
VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Enabled = True
|
||||||
VorauszahlungVonBehandlungLösenToolStripMenuItem.Enabled = False
|
VorauszahlungVonBehandlungLösenToolStripMenuItem.Enabled = False
|
||||||
|
|
||||||
Exit Sub
|
Exit Sub
|
||||||
Else
|
Else
|
||||||
VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Enabled = False
|
VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Enabled = False
|
||||||
VorauszahlungVonBehandlungLösenToolStripMenuItem.Enabled = True
|
VorauszahlungVonBehandlungLösenToolStripMenuItem.Enabled = True
|
||||||
Exit Sub
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
Else
|
Else
|
||||||
If Me.C1Zahlungen.Columns("Status").Value = 9 Then
|
If Me.C1Zahlungen.Columns("Status").Value = 9 Then
|
||||||
ZahlungStornierenToolStripMenuItem.Enabled = False
|
ZahlungStornierenToolStripMenuItem.Enabled = False
|
||||||
Else
|
Else
|
||||||
ZahlungStornierenToolStripMenuItem.Enabled = True
|
ZahlungStornierenToolStripMenuItem.Enabled = True
|
||||||
End If
|
End If
|
||||||
VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Enabled = False
|
VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Enabled = False
|
||||||
VorauszahlungVonBehandlungLösenToolStripMenuItem.Enabled = False
|
VorauszahlungVonBehandlungLösenToolStripMenuItem.Enabled = False
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub VorauszahlungAnBehandlungZuweisenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Click
|
Private Sub VorauszahlungAnBehandlungZuweisenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Click
|
||||||
Dim f As New frmOffeneBehandlungen
|
Dim f As New frmOffeneBehandlungen
|
||||||
f.NrPatient = Me.Patientnr
|
f.NrPatient = Me.Patientnr
|
||||||
f.ShowDialog()
|
f.ShowDialog()
|
||||||
If f.DialogResult = DialogResult.OK Then
|
If f.DialogResult = DialogResult.OK Then
|
||||||
Dim db As New clsDB
|
Dim db As New clsDB
|
||||||
db.Exec_SQL("Update zahlung set nrbehandlung=" + f.NrBehandlung.ToString + ", mutiert_am=getdate() where nrzahlung=" + Me.C1Zahlungen.Columns("nrzahlung").Value.ToString)
|
db.Exec_SQL("Update zahlung set nrbehandlung=" + f.NrBehandlung.ToString + ", mutiert_am=getdate() where nrzahlung=" + Me.C1Zahlungen.Columns("nrzahlung").Value.ToString)
|
||||||
Me.Refresh_Zahlungen()
|
Me.Refresh_Zahlungen()
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub VorauszahlungVonBehandlungLösenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorauszahlungVonBehandlungLösenToolStripMenuItem.Click
|
Private Sub VorauszahlungVonBehandlungLösenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorauszahlungVonBehandlungLösenToolStripMenuItem.Click
|
||||||
If MsgBox("Vorauszahlung von Behandlung entfernen?", vbYesNo + vbQuestion) = vbYes Then
|
If MsgBox("Vorauszahlung von Behandlung entfernen?", vbYesNo + vbQuestion) = vbYes Then
|
||||||
Dim db As New clsDB
|
Dim db As New clsDB
|
||||||
db.Exec_SQL("Update zahlung set nrbehandlung=0, mutiert_am=getdate() where nrzahlung=" + Me.C1Zahlungen.Columns("nrzahlung").Value.ToString)
|
db.Exec_SQL("Update zahlung set nrbehandlung=0, mutiert_am=getdate() where nrzahlung=" + Me.C1Zahlungen.Columns("nrzahlung").Value.ToString)
|
||||||
Me.Refresh_Zahlungen()
|
Me.Refresh_Zahlungen()
|
||||||
|
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub dtdatum_Click(sender As Object, e As EventArgs) Handles dtdatum.Click
|
Private Sub dtdatum_Click(sender As Object, e As EventArgs) Handles dtdatum.Click
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub dtdatum_KeyDown(sender As Object, e As KeyEventArgs) Handles dtdatum.KeyDown
|
Private Sub dtdatum_KeyDown(sender As Object, e As KeyEventArgs) Handles dtdatum.KeyDown
|
||||||
|
|
||||||
If e.KeyCode = Keys.Escape Then delete_date(sender)
|
If e.KeyCode = Keys.Escape Then delete_date(sender)
|
||||||
If e.KeyCode = Keys.Decimal Then SendKeys.SendWait("{TAB}")
|
If e.KeyCode = Keys.Decimal Then SendKeys.SendWait("{TAB}")
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
Sub delete_date(sender)
|
Sub delete_date(sender)
|
||||||
sender.value = Nothing
|
sender.value = Nothing
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub btnZurücksetzen1_Click(sender As Object, e As EventArgs) Handles btnZurücksetzen1.Click
|
Private Sub btnZurücksetzen1_Click(sender As Object, e As EventArgs) Handles btnZurücksetzen1.Click
|
||||||
If MsgBox("Mahnstufe 1 zurückseten?", vbYesNo + vbQuestion) = vbYes Then
|
If MsgBox("Mahnstufe 1 zurückseten?", vbYesNo + vbQuestion) = vbYes Then
|
||||||
Mahnstufe_Zurücksetzen(1)
|
Mahnstufe_Zurücksetzen(1)
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
Private Sub btnzurücksetzen2_Click(sender As Object, e As EventArgs) Handles btnzurücksetzen2.Click
|
Private Sub btnzurücksetzen2_Click(sender As Object, e As EventArgs) Handles btnzurücksetzen2.Click
|
||||||
If MsgBox("Mahnstufe 2 zurückseten?", vbYesNo + vbQuestion) = vbYes Then
|
If MsgBox("Mahnstufe 2 zurückseten?", vbYesNo + vbQuestion) = vbYes Then
|
||||||
Mahnstufe_Zurücksetzen(2)
|
Mahnstufe_Zurücksetzen(2)
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub btnzurücksetzen3_Click(sender As Object, e As EventArgs) Handles btnzurücksetzen3.Click
|
Private Sub btnzurücksetzen3_Click(sender As Object, e As EventArgs) Handles btnzurücksetzen3.Click
|
||||||
If MsgBox("Mahnstufe 3 zurückseten?", vbYesNo + vbQuestion) = vbYes Then
|
If MsgBox("Mahnstufe 3 zurückseten?", vbYesNo + vbQuestion) = vbYes Then
|
||||||
Mahnstufe_Zurücksetzen(3)
|
Mahnstufe_Zurücksetzen(3)
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Sub Mahnstufe_Zurücksetzen(ByVal typ As Integer)
|
Sub Mahnstufe_Zurücksetzen(ByVal typ As Integer)
|
||||||
Dim db As New clsDB
|
Dim db As New clsDB
|
||||||
Dim sql As String
|
Dim sql As String
|
||||||
|
|
||||||
Select Case typ
|
Select Case typ
|
||||||
Case 1
|
Case 1
|
||||||
sql = "Exec sp_reset_mahnstufe 1," + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
sql = "Exec sp_reset_mahnstufe 1," + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||||
db.Exec_SQL(sql)
|
db.Exec_SQL(sql)
|
||||||
Case 2
|
Case 2
|
||||||
sql = "Exec sp_reset_mahnstufe 2," + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
sql = "Exec sp_reset_mahnstufe 2," + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||||
db.Exec_SQL(sql)
|
db.Exec_SQL(sql)
|
||||||
Case 3
|
Case 3
|
||||||
sql = "Exec sp_reset_mahnstufe 3," + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
sql = "Exec sp_reset_mahnstufe 3," + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||||
db.Exec_SQL(sql)
|
db.Exec_SQL(sql)
|
||||||
|
|
||||||
End Select
|
End Select
|
||||||
Refresh_Zahlungen()
|
Refresh_Zahlungen()
|
||||||
Get_Mahndaten()
|
Get_Mahndaten()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub C1Zahlungen_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Zahlungen.MouseDown
|
Private Sub C1Zahlungen_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Zahlungen.MouseDown
|
||||||
Me.C1Zahlungen.Bookmark = Me.C1Zahlungen.RowContaining(e.Y)
|
Me.C1Zahlungen.Bookmark = Me.C1Zahlungen.RowContaining(e.Y)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub C1OffeneRechnungen_MouseDown(sender As Object, e As MouseEventArgs) Handles C1OffeneRechnungen.MouseDown
|
Private Sub C1OffeneRechnungen_MouseDown(sender As Object, e As MouseEventArgs) Handles C1OffeneRechnungen.MouseDown
|
||||||
Me.C1OffeneRechnungen.Bookmark = Me.C1OffeneRechnungen.RowContaining(e.Y)
|
Me.C1OffeneRechnungen.Bookmark = Me.C1OffeneRechnungen.RowContaining(e.Y)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub ContextMenuStrip1_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
|
Private Sub ContextMenuStrip1_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
|
||||||
Me.ErsteMahnungMenuItem.Visible = False
|
Me.ErsteMahnungMenuItem.Visible = False
|
||||||
Me.ZweiteMahnungMenuItem.Visible = False
|
Me.ZweiteMahnungMenuItem.Visible = False
|
||||||
Me.LetzteMahnungMenuItem.Visible = False
|
Me.LetzteMahnungMenuItem.Visible = False
|
||||||
Dim db As New clsDB
|
Dim db As New clsDB
|
||||||
Try
|
Try
|
||||||
db.Get_Tabledata("Mahnung", "", "Select * from View_Offene_Mahnungen where nrfaktura=" + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString, "", False)
|
db.Get_Tabledata("Mahnung", "", "Select * from View_Offene_Mahnungen where nrfaktura=" + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString, "", False)
|
||||||
If DB.dsDaten.Tables(0).Rows.Count > 0 Then
|
If db.dsDaten.Tables(0).Rows.Count > 0 Then
|
||||||
Select Case DB.dsDaten.Tables(0).Rows(0).Item("Mahnstufe")
|
Select Case db.dsDaten.Tables(0).Rows(0).Item("Mahnstufe")
|
||||||
Case 1
|
Case 1
|
||||||
ErsteMahnungMenuItem.Visible = True
|
ErsteMahnungMenuItem.Visible = True
|
||||||
Case 2
|
Case 2
|
||||||
ZweiteMahnungMenuItem.Visible = True
|
ZweiteMahnungMenuItem.Visible = True
|
||||||
Case 3
|
Case 3
|
||||||
LetzteMahnungMenuItem.Visible = True
|
LetzteMahnungMenuItem.Visible = True
|
||||||
End Select
|
End Select
|
||||||
Else
|
Else
|
||||||
|
|
||||||
End If
|
End If
|
||||||
Catch
|
Catch
|
||||||
End Try
|
End Try
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub DruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ErsteMahnungMenuItem.Click, ZweiteMahnungMenuItem.Click, LetzteMahnungMenuItem.Click
|
Private Sub DruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ErsteMahnungMenuItem.Click, ZweiteMahnungMenuItem.Click, LetzteMahnungMenuItem.Click
|
||||||
Try
|
Try
|
||||||
Select Case sender.name
|
Select Case sender.name
|
||||||
Case "ErsteMahnungMenuItem"
|
Case "ErsteMahnungMenuItem"
|
||||||
Dim s As String = Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
Dim s As String = Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||||
Globals.Rg_Funktionen.Mahnung(s, 1, False, False)
|
Globals.Rg_Funktionen.Mahnung(s, 1, False, False, True)
|
||||||
Refresh_Data()
|
Refresh_Data()
|
||||||
Case "ZweiteMahnungMenuItem"
|
Case "ZweiteMahnungMenuItem"
|
||||||
Dim s As String = Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
Dim s As String = Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||||
Globals.Rg_Funktionen.Mahnung(s, 2, False, False)
|
Globals.Rg_Funktionen.Mahnung(s, 2, False, False, True)
|
||||||
Refresh_Data()
|
Refresh_Data()
|
||||||
Case "LetzteMahnungMenuItem"
|
Case "LetzteMahnungMenuItem"
|
||||||
Dim s As String = Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
Dim s As String = Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||||
Globals.Rg_Funktionen.Mahnung(s, 3, False, False)
|
Globals.Rg_Funktionen.Mahnung(s, 3, False, False, True)
|
||||||
Refresh_Data()
|
Refresh_Data()
|
||||||
End Select
|
End Select
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
|
|
||||||
End Try
|
End Try
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
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
|
Public Class Patient
|
||||||
|
|
||||||
Dim m_nrpatient As Integer
|
Dim m_nrpatient As Integer
|
||||||
Property PatientNr As Integer
|
Property PatientNr As Integer
|
||||||
Get
|
Get
|
||||||
Return m_nrpatient
|
Return m_nrpatient
|
||||||
End Get
|
End Get
|
||||||
Set(value As Integer)
|
Set(value As Integer)
|
||||||
Cursor = Cursors.WaitCursor
|
Cursor = Cursors.WaitCursor
|
||||||
Globals.OnLoad = True
|
Globals.OnLoad = True
|
||||||
m_nrpatient = value
|
m_nrpatient = value
|
||||||
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
|
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
|
||||||
Me.PatientDetailsFirma1.PatientNr = value
|
Me.PatientDetailsFirma1.PatientNr = value
|
||||||
Else
|
Else
|
||||||
Me.PatientDetails1.PatientNr = value
|
Me.PatientDetails1.PatientNr = value
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
Me.PatientAbrechnung1.PatientNr = value
|
Me.PatientAbrechnung1.PatientNr = value
|
||||||
Me.Behandlung1.PatientNr = value
|
Me.Behandlung1.PatientNr = value
|
||||||
Me.Finanzen1.Patientnr = value
|
Me.Finanzen1.Patientnr = value
|
||||||
Me.Recall1.Patientnr = value
|
Me.Recall1.Patientnr = value
|
||||||
Me.ClsDokumente1.Patientnr = value
|
Me.ClsDokumente1.Patientnr = value
|
||||||
Globals.OnLoad = False
|
Globals.OnLoad = False
|
||||||
|
|
||||||
Cursor = Cursors.Default
|
Cursor = Cursors.Default
|
||||||
End Set
|
End Set
|
||||||
End Property
|
End Property
|
||||||
|
|
||||||
Dim WithEvents evh As Generic_Event_Handler = Globals.EVH
|
Dim WithEvents evh As Generic_Event_Handler = Globals.EVH
|
||||||
|
|
||||||
Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs)
|
Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs)
|
||||||
Me.Close()
|
Me.Close()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub Patient_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
Private Sub Patient_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||||
If detail_has_changes() = False Then
|
If detail_has_changes() = False Then
|
||||||
e.Cancel = True
|
e.Cancel = True
|
||||||
|
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Function detail_has_changes()
|
Function detail_has_changes()
|
||||||
Dim res As Boolean = False
|
Dim res As Boolean = False
|
||||||
If Me.PatientDetails1.HasChanges Then res = True
|
If Me.PatientDetails1.HasChanges Then res = True
|
||||||
If Me.PatientDetailsFirma1.HasChanges Then res = True
|
If Me.PatientDetailsFirma1.HasChanges Then res = True
|
||||||
If PatientAbrechnung1.HasChanges Then res = True
|
If PatientAbrechnung1.HasChanges Then res = True
|
||||||
If res = True Then
|
If res = True Then
|
||||||
Dim qres As MsgBoxResult
|
Dim qres As MsgBoxResult
|
||||||
qres = MsgBox("Daten wurden verändert. Änderungen speichern?", vbYesNoCancel + vbQuestion)
|
qres = MsgBox("Daten wurden verändert. Änderungen speichern?", vbYesNoCancel + vbQuestion)
|
||||||
Select Case qres
|
Select Case qres
|
||||||
Case MsgBoxResult.Cancel
|
Case MsgBoxResult.Cancel
|
||||||
Return False
|
Return False
|
||||||
Case MsgBoxResult.No
|
Case MsgBoxResult.No
|
||||||
Return True
|
Return True
|
||||||
Case MsgBoxResult.Yes
|
Case MsgBoxResult.Yes
|
||||||
save_data()
|
save_data()
|
||||||
Return True
|
Return True
|
||||||
End Select
|
End Select
|
||||||
Else
|
Else
|
||||||
Return True
|
Return True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
Private Sub Patient_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
Private Sub Patient_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||||
Select Case Globals.Funktionsstufe
|
Select Case Globals.Funktionsstufe
|
||||||
Case 2
|
Case 2
|
||||||
'Me.Behandlungen.Visible = False
|
'Me.Behandlungen.Visible = False
|
||||||
'Me.Finanzen.Visible = False
|
'Me.Finanzen.Visible = False
|
||||||
End Select
|
End Select
|
||||||
If Globals.License.DMS = False Then
|
If Globals.License.DMS = False Then
|
||||||
Me.SuperTabControl1.Tabs("Dokumente").Visible = False
|
Me.SuperTabControl1.Tabs("Dokumente").Visible = False
|
||||||
End If
|
End If
|
||||||
|
|
||||||
' Me.tsbtnfirst_Click(sender, e)
|
' Me.tsbtnfirst_Click(sender, e)
|
||||||
Dim db As New clsDB
|
Dim db As New clsDB
|
||||||
If db.Get_Option(9999) = "" Then
|
If db.Get_Option(9999) = "" Then
|
||||||
Me.tsbtnVTX.Visible = False
|
Me.tsbtnVTX.Visible = False
|
||||||
Me.btnVTX.Visible = False
|
Me.btnVTX.Visible = False
|
||||||
Else
|
Else
|
||||||
Me.tsbtnVTX.Visible = True
|
Me.tsbtnVTX.Visible = True
|
||||||
Me.btnVTX.Visible = True
|
Me.btnVTX.Visible = True
|
||||||
End If
|
End If
|
||||||
Dim db1 As New clsDB
|
Dim db1 As New clsDB
|
||||||
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
|
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
|
||||||
'Me.PatientDetails1.chklbAdresstyp.Visible = False
|
'Me.PatientDetails1.chklbAdresstyp.Visible = False
|
||||||
Me.SuperTabControl1.Tabs("Stammdaten").Visible = False
|
Me.SuperTabControl1.Tabs("Stammdaten").Visible = False
|
||||||
Me.SuperTabControl1.Tabs("Stammdaten_Firma").Visible = True
|
Me.SuperTabControl1.Tabs("Stammdaten_Firma").Visible = True
|
||||||
Me.PatientDetails1.Label13.Visible = False
|
Me.PatientDetails1.Label13.Visible = False
|
||||||
Me.PatientDetailsFirma1.Label13.Visible = False
|
Me.PatientDetailsFirma1.Label13.Visible = False
|
||||||
Me.SuperTabControl1.Tabs("Behandlungen").Text = "Projekte"
|
Me.SuperTabControl1.Tabs("Behandlungen").Text = "Projekte"
|
||||||
Me.SuperTabControl1.Tabs("Recall").Visible = False
|
Me.SuperTabControl1.Tabs("Recall").Visible = False
|
||||||
Me.SuperTabControl1.Tabs("Abrechnung").Visible = False
|
Me.SuperTabControl1.Tabs("Abrechnung").Visible = False
|
||||||
Me.PatientDetails1.lblName.Text = "Name/Firma"
|
Me.PatientDetails1.lblName.Text = "Name/Firma"
|
||||||
Else
|
Else
|
||||||
Me.SuperTabControl1.Tabs("Stammdaten").Visible = True
|
Me.SuperTabControl1.Tabs("Stammdaten").Visible = True
|
||||||
Me.SuperTabControl1.Tabs("Stammdaten_Firma").Visible = False
|
Me.SuperTabControl1.Tabs("Stammdaten_Firma").Visible = False
|
||||||
|
|
||||||
End If
|
End If
|
||||||
If UCase(db1.Get_Option("60020")) = "FALSE" Then Exit Sub
|
If UCase(db1.Get_Option("60020")) = "FALSE" Then Exit Sub
|
||||||
Try
|
Try
|
||||||
' Globals.sec.Set_Form_Security(Me)
|
' Globals.sec.Set_Form_Security(Me)
|
||||||
Catch
|
Catch
|
||||||
End Try
|
End Try
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles tsbtnSave.Click
|
Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles tsbtnSave.Click
|
||||||
save_data()
|
save_data()
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub tsbtnquit_Click(sender As Object, e As EventArgs) Handles tsbtnquit.Click
|
Private Sub tsbtnquit_Click(sender As Object, e As EventArgs) Handles tsbtnquit.Click
|
||||||
Me.Close()
|
Me.Close()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub tstxtsuche_KeyDown(sender As Object, e As KeyEventArgs) Handles tstxtsuche.KeyDown
|
Private Sub tstxtsuche_KeyDown(sender As Object, e As KeyEventArgs) Handles tstxtsuche.KeyDown
|
||||||
If e.KeyCode = Keys.Enter Then
|
If e.KeyCode = Keys.Enter Then
|
||||||
Dim db As New clsDB
|
Dim db As New clsDB
|
||||||
Dim nrprivat As Integer = db.Search("Patient", Me.tstxtsuche.Text)
|
Dim nrprivat As Integer = db.Search("Patient", Me.tstxtsuche.Text)
|
||||||
If nrprivat <> -1 Then Me.PatientNr = nrprivat
|
If nrprivat <> -1 Then Me.PatientNr = nrprivat
|
||||||
If Me.SuperTabControl1.SelectedTab.Name = "Dokumente" Then
|
If Me.SuperTabControl1.SelectedTab.Name = "Dokumente" Then
|
||||||
Me.ClsDokumente1.Patientnr = Me.PatientNr
|
Me.ClsDokumente1.Patientnr = Me.PatientNr
|
||||||
Me.ClsDokumente1.Refresh_Grid()
|
Me.ClsDokumente1.Refresh_Grid()
|
||||||
|
|
||||||
End If
|
End If
|
||||||
If Me.SuperTabControl1.SelectedTab.Name = "Krankengeschichte" Or Me.SuperTabControl1.SelectedTab.Name = "Journal" Then
|
If Me.SuperTabControl1.SelectedTab.Name = "Krankengeschichte" Or Me.SuperTabControl1.SelectedTab.Name = "Journal" Then
|
||||||
Me.Krankengeschichte1.Patientnr = Me.PatientNr
|
Me.Krankengeschichte1.Patientnr = Me.PatientNr
|
||||||
End If
|
End If
|
||||||
db.Dispose()
|
db.Dispose()
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub evh_PatName_Changed(name As String, nr As Integer) Handles evh.PatName_Changed
|
Private Sub evh_PatName_Changed(name As String, nr As Integer) Handles evh.PatName_Changed
|
||||||
|
|
||||||
If nr = Me.PatientNr Then Me.Text = name
|
If nr = Me.PatientNr Then Me.Text = name
|
||||||
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
|
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
|
||||||
Me.Label1.Text = PatientDetailsFirma1.Patientname
|
Me.Label1.Text = PatientDetailsFirma1.Patientname
|
||||||
Else
|
Else
|
||||||
Me.Label1.Text = PatientDetails1.Patientname
|
Me.Label1.Text = PatientDetails1.Patientname
|
||||||
End If
|
End If
|
||||||
Me.Label1.Left = Me.Width / 2 - 8 - Me.Label1.Width / 2
|
Me.Label1.Left = Me.Width / 2 - 8 - Me.Label1.Width / 2
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
|
Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
|
||||||
Me.Close()
|
Me.Close()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub save_data()
|
Private Sub save_data()
|
||||||
evh.Fire_PatSaved(Me.PatientNr)
|
evh.Fire_PatSaved(Me.PatientNr)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub evh_PatSaved(Nr As Integer) Handles evh.PatSaved
|
Private Sub evh_PatSaved(Nr As Integer) Handles evh.PatSaved
|
||||||
If Me.PatientNr = Nr Then
|
If Me.PatientNr = Nr Then
|
||||||
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
|
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
|
||||||
Me.Text = PatientDetailsFirma1.Patientname
|
Me.Text = PatientDetailsFirma1.Patientname
|
||||||
Me.Label1.Text = PatientDetailsFirma1.Patientname
|
Me.Label1.Text = PatientDetailsFirma1.Patientname
|
||||||
Else
|
Else
|
||||||
Me.Text = PatientDetails1.Patientname
|
Me.Text = PatientDetails1.Patientname
|
||||||
Me.Label1.Text = PatientDetails1.Patientname
|
Me.Label1.Text = PatientDetails1.Patientname
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
Public Sub tsbtnfirst_Click(sender As Object, e As EventArgs) Handles tsbtnfirst.Click
|
Public Sub tsbtnfirst_Click(sender As Object, e As EventArgs) Handles tsbtnfirst.Click
|
||||||
If detail_has_changes() = False Then Return
|
If detail_has_changes() = False Then Return
|
||||||
Dim db As New clsDB
|
Dim db As New clsDB
|
||||||
db.Get_Tabledata("Patient", "", "Select top 1 * from privat where nrprivat>0 order by name, vorname, ort,nrprivat")
|
db.Get_Tabledata("Patient", "", "Select top 1 * from privat where nrprivat>0 order by name, vorname, ort,nrprivat")
|
||||||
Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
|
Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
|
||||||
db.Dispose()
|
db.Dispose()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub tsbtnlast_Click(sender As Object, e As EventArgs) Handles tsbtnlast.Click
|
Private Sub tsbtnlast_Click(sender As Object, e As EventArgs) Handles tsbtnlast.Click
|
||||||
If detail_has_changes() = False Then Return
|
If detail_has_changes() = False Then Return
|
||||||
Dim db As New clsDB
|
Dim db As New clsDB
|
||||||
db.Get_Tabledata("Patient", "", db.Get_SQL(10))
|
db.Get_Tabledata("Patient", "", db.Get_SQL(10))
|
||||||
Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
|
Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
|
||||||
db.Dispose()
|
db.Dispose()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub tsbtnnext_Click(sender As Object, e As EventArgs) Handles tsbtnnext.Click
|
Private Sub tsbtnnext_Click(sender As Object, e As EventArgs) Handles tsbtnnext.Click
|
||||||
If detail_has_changes() = False Then Return
|
If detail_has_changes() = False Then Return
|
||||||
Dim xx As Integer = 0
|
Dim xx As Integer = 0
|
||||||
Dim db As New clsDB
|
Dim db As New clsDB
|
||||||
Try
|
Try
|
||||||
Me.Cursor = Cursors.WaitCursor
|
Me.Cursor = Cursors.WaitCursor
|
||||||
db.Get_Tabledata("Patient", "", "select * from privat where nrprivat=" + Me.PatientNr.ToString)
|
db.Get_Tabledata("Patient", "", "select * from privat where nrprivat=" + Me.PatientNr.ToString)
|
||||||
Dim searchstring As String = ""
|
Dim searchstring As String = ""
|
||||||
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("Name").ToString
|
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("Name").ToString
|
||||||
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("Vorname").ToString
|
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("Vorname").ToString
|
||||||
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("ort").ToString
|
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("ort").ToString
|
||||||
db.Get_Tabledata("Patient", "", "Select top 1 * from privat where name <>'' and nrprivat>0 and name+vorname+ort>='" + searchstring + "' and nrprivat<>" + Me.PatientNr.ToString + " order by name, vorname, ort, nrprivat")
|
db.Get_Tabledata("Patient", "", "Select top 1 * from privat where name <>'' and nrprivat>0 and name+vorname+ort>='" + searchstring + "' and nrprivat<>" + Me.PatientNr.ToString + " order by name, vorname, ort, nrprivat")
|
||||||
' db.Get_Tabledata("Patient", "", db.Get_SQL(11), Me.m_nrpatient.ToString)
|
' db.Get_Tabledata("Patient", "", db.Get_SQL(11), Me.m_nrpatient.ToString)
|
||||||
Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
|
Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
'MsgBox(ex.Message)
|
'MsgBox(ex.Message)
|
||||||
Me.PatientNr = Me.PatientNr
|
Me.PatientNr = Me.PatientNr
|
||||||
End Try
|
End Try
|
||||||
db.Dispose()
|
db.Dispose()
|
||||||
Me.Cursor = Cursors.Default
|
Me.Cursor = Cursors.Default
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub tsbtprev_Click(sender As Object, e As EventArgs) Handles tsbtprev.Click
|
Private Sub tsbtprev_Click(sender As Object, e As EventArgs) Handles tsbtprev.Click
|
||||||
If detail_has_changes() = False Then Return
|
If detail_has_changes() = False Then Return
|
||||||
Dim xx As Integer = 0
|
Dim xx As Integer = 0
|
||||||
Dim db As New clsDB
|
Dim db As New clsDB
|
||||||
Try
|
Try
|
||||||
Me.Cursor = Cursors.WaitCursor
|
Me.Cursor = Cursors.WaitCursor
|
||||||
db.Get_Tabledata("Patient", "", "select * from privat where nrprivat=" + Me.PatientNr.ToString)
|
db.Get_Tabledata("Patient", "", "select * from privat where nrprivat=" + Me.PatientNr.ToString)
|
||||||
Dim searchstring As String = ""
|
Dim searchstring As String = ""
|
||||||
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("Name").ToString
|
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("Name").ToString
|
||||||
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("Vorname").ToString
|
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("Vorname").ToString
|
||||||
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("ort").ToString
|
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("ort").ToString
|
||||||
db.Get_Tabledata("Patient", "", "Select top 1 * from privat where name <>'' and nrprivat>0 and name+vorname+ort<='" + searchstring + "' and nrprivat<>" + Me.PatientNr.ToString + " order by name desc, vorname desc, ort desc , nrprivat desc")
|
db.Get_Tabledata("Patient", "", "Select top 1 * from privat where name <>'' and nrprivat>0 and name+vorname+ort<='" + searchstring + "' and nrprivat<>" + Me.PatientNr.ToString + " order by name desc, vorname desc, ort desc , nrprivat desc")
|
||||||
' db.Get_Tabledata("Patient", "", db.Get_SQL(11), Me.m_nrpatient.ToString)
|
' db.Get_Tabledata("Patient", "", db.Get_SQL(11), Me.m_nrpatient.ToString)
|
||||||
Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
|
Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
'MsgBox(ex.Message)
|
'MsgBox(ex.Message)
|
||||||
Me.PatientNr = Me.PatientNr
|
Me.PatientNr = Me.PatientNr
|
||||||
End Try
|
End Try
|
||||||
db.Dispose()
|
db.Dispose()
|
||||||
Me.Cursor = Cursors.Default
|
Me.Cursor = Cursors.Default
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles tsbtnnew.Click
|
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles tsbtnnew.Click
|
||||||
Dim db As New clsDB
|
Dim db As New clsDB
|
||||||
Dim newkey As Integer = db.Get_DBKey("Privat")
|
Dim newkey As Integer = db.Get_DBKey("Privat")
|
||||||
|
|
||||||
db.Get_Tabledata("Privat", " where nrprivat=0")
|
db.Get_Tabledata("Privat", " where nrprivat=0")
|
||||||
|
|
||||||
Dim r As DataRow
|
Dim r As DataRow
|
||||||
r = db.dsDaten.Tables(0).NewRow
|
r = db.dsDaten.Tables(0).NewRow
|
||||||
|
|
||||||
For Each c As DataColumn In db.dsDaten.Tables(0).Columns
|
For Each c As DataColumn In db.dsDaten.Tables(0).Columns
|
||||||
r.Item(c) = db.dsDaten.Tables(0).Rows(0).Item(c)
|
r.Item(c) = db.dsDaten.Tables(0).Rows(0).Item(c)
|
||||||
Next
|
Next
|
||||||
|
|
||||||
db.dsDaten.Tables(0).Rows(0).Item(0) = newkey
|
db.dsDaten.Tables(0).Rows(0).Item(0) = newkey
|
||||||
db.dsDaten.Tables(0).Rows(0).Item("Erstellt_am") = Now
|
db.dsDaten.Tables(0).Rows(0).Item("Erstellt_am") = Now
|
||||||
db.dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
|
db.dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
|
||||||
db.dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.ActUser
|
db.dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.ActUser
|
||||||
db.dsDaten.Tables(0).Rows(0).Item("aktiv") = True
|
db.dsDaten.Tables(0).Rows(0).Item("aktiv") = True
|
||||||
db.dsDaten.Tables(0).Rows(0).Item("Gueltigab") = Now
|
db.dsDaten.Tables(0).Rows(0).Item("Gueltigab") = Now
|
||||||
db.dsDaten.Tables(0).Rows(0).Item("GEBDAT") = Now
|
db.dsDaten.Tables(0).Rows(0).Item("GEBDAT") = Now
|
||||||
db.dsDaten.Tables(0).Rows.Add(r)
|
db.dsDaten.Tables(0).Rows.Add(r)
|
||||||
db.Update_Data()
|
db.Update_Data()
|
||||||
Me.PatientNr = newkey
|
Me.PatientNr = newkey
|
||||||
db.Dispose()
|
db.Dispose()
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
Private Sub SuperTabControl1_SelectedTabChanged(sender As Object, e As DevComponents.DotNetBar.SuperTabStripSelectedTabChangedEventArgs) Handles SuperTabControl1.SelectedTabChanged
|
Private Sub SuperTabControl1_SelectedTabChanged(sender As Object, e As DevComponents.DotNetBar.SuperTabStripSelectedTabChangedEventArgs) Handles SuperTabControl1.SelectedTabChanged
|
||||||
If SuperTabControl1.SelectedTab.Name = "Krankengeschichte" Or SuperTabControl1.SelectedTab.Name = "Journal" Then
|
If SuperTabControl1.SelectedTab.Name = "Krankengeschichte" Or SuperTabControl1.SelectedTab.Name = "Journal" Then
|
||||||
Me.Krankengeschichte1.Patientnr = Me.PatientNr
|
Me.Krankengeschichte1.Patientnr = Me.PatientNr
|
||||||
End If
|
End If
|
||||||
If SuperTabControl1.SelectedTab.Name = "Finanzen" Then
|
If SuperTabControl1.SelectedTab.Name = "Finanzen" Then
|
||||||
Me.Finanzen1.Refresh_Data()
|
Me.Finanzen1.Refresh_Data()
|
||||||
End If
|
End If
|
||||||
If SuperTabControl1.SelectedTab.Name = "Dokumente" Then
|
If SuperTabControl1.SelectedTab.Name = "Dokumente" Then
|
||||||
Me.ClsDokumente1.Patientnr = Me.PatientNr
|
Me.ClsDokumente1.Patientnr = Me.PatientNr
|
||||||
Me.ClsDokumente1.Refreshdata()
|
Me.ClsDokumente1.refreshdata()
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub evh_Recall_Anzeigen(Datum As Date, patient As Integer, behandler As Integer) Handles evh.Recall_Anzeigen
|
Private Sub evh_Recall_Anzeigen(Datum As Date, patient As Integer, behandler As Integer) Handles evh.Recall_Anzeigen
|
||||||
If Me.PatientNr = patient Then
|
If Me.PatientNr = patient Then
|
||||||
SuperTabControl1.SelectNextTab()
|
SuperTabControl1.SelectNextTab()
|
||||||
SuperTabControl1.SelectNextTab()
|
SuperTabControl1.SelectNextTab()
|
||||||
Me.Recall1.SetValues(Datum, patient, behandler)
|
Me.Recall1.SetValues(Datum, patient, behandler)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub evh_Finanzen_Anzeigen(patient As Integer) Handles evh.Finanzen_Anzeigen
|
Private Sub evh_Finanzen_Anzeigen(patient As Integer) Handles evh.Finanzen_Anzeigen
|
||||||
If Me.PatientNr = patient Then
|
If Me.PatientNr = patient Then
|
||||||
SuperTabControl1.SelectNextTab()
|
SuperTabControl1.SelectNextTab()
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub tsbtnVTX_Click(sender As Object, e As EventArgs) Handles tsbtnVTX.Click
|
Private Sub tsbtnVTX_Click(sender As Object, e As EventArgs) Handles tsbtnVTX.Click
|
||||||
Dim db As New clsDB
|
Dim db As New clsDB
|
||||||
db.Get_Tabledata("Privat", "where nrprivat=" + Me.PatientNr.ToString)
|
db.Get_Tabledata("Privat", "where nrprivat=" + Me.PatientNr.ToString)
|
||||||
If db.dsDaten.Tables(0).Rows(0).Item("Name") = "" Or db.dsDaten.Tables(0).Rows(0).Item("Vorname") = "" Or db.dsDaten.Tables(0).Rows(0).Item("Strasse") = "" Or db.dsDaten.Tables(0).Rows(0).Item("PLZ") = "" Or db.dsDaten.Tables(0).Rows(0).Item("Ort") = "" Or db.dsDaten.Tables(0).Rows(0).Item("gebdat").ToString = "" Then
|
If db.dsDaten.Tables(0).Rows(0).Item("Name") = "" Or db.dsDaten.Tables(0).Rows(0).Item("Vorname") = "" Or db.dsDaten.Tables(0).Rows(0).Item("Strasse") = "" Or db.dsDaten.Tables(0).Rows(0).Item("PLZ") = "" Or db.dsDaten.Tables(0).Rows(0).Item("Ort") = "" Or db.dsDaten.Tables(0).Rows(0).Item("gebdat").ToString = "" Then
|
||||||
MsgBox("Name, Vorname, Strasse, PLZ, Ort und Geburtsdatum sind Pflichtfelder. Bitte Daten korrigieren.")
|
MsgBox("Name, Vorname, Strasse, PLZ, Ort und Geburtsdatum sind Pflichtfelder. Bitte Daten korrigieren.")
|
||||||
db.Dispose()
|
db.Dispose()
|
||||||
Exit Sub
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Dim vddsmodule As String = db.Get_Option(9999)
|
Dim vddsmodule As String = db.Get_Option(9999)
|
||||||
Dim vdspath As String = db.Get_Option(9998) + "\"
|
Dim vdspath As String = db.Get_Option(9998) + "\"
|
||||||
Dim filename As String = vdspath + Me.PatientNr.ToString + ".ini"
|
Dim filename As String = vdspath + Me.PatientNr.ToString + ".ini"
|
||||||
FileOpen(1, filename, OpenMode.Output)
|
FileOpen(1, filename, OpenMode.Output)
|
||||||
PrintLine(1, "[Patient]")
|
PrintLine(1, "[Patient]")
|
||||||
PrintLine(1, "PVS=DPM")
|
PrintLine(1, "PVS=DPM")
|
||||||
PrintLine(1, "BVS=VixWinPRO_Imaging")
|
PrintLine(1, "BVS=VixWinPRO_Imaging")
|
||||||
PrintLine(1, "PATID=" + Me.PatientNr.ToString)
|
PrintLine(1, "PATID=" + Me.PatientNr.ToString)
|
||||||
|
|
||||||
PrintLine(1, "LASTNAME=" + db.dsDaten.Tables(0).Rows(0).Item("name").ToString)
|
PrintLine(1, "LASTNAME=" + db.dsDaten.Tables(0).Rows(0).Item("name").ToString)
|
||||||
PrintLine(1, "FIRSTNAME=" + db.dsDaten.Tables(0).Rows(0).Item("vorname").ToString)
|
PrintLine(1, "FIRSTNAME=" + db.dsDaten.Tables(0).Rows(0).Item("vorname").ToString)
|
||||||
PrintLine(1, "BIRTYDAY=" + Format(db.dsDaten.Tables(0).Rows(0).Item("gebdat").ToString, "yyyyMMdd"))
|
PrintLine(1, "BIRTYDAY=" + Format(db.dsDaten.Tables(0).Rows(0).Item("gebdat").ToString, "yyyyMMdd"))
|
||||||
If db.dsDaten.Tables(0).Rows(0).Item("geschlecht").ToString = "1" Then
|
If db.dsDaten.Tables(0).Rows(0).Item("geschlecht").ToString = "1" Then
|
||||||
PrintLine(1, "SEX=F")
|
PrintLine(1, "SEX=F")
|
||||||
Else
|
Else
|
||||||
PrintLine(1, "SEX=M")
|
PrintLine(1, "SEX=M")
|
||||||
End If
|
End If
|
||||||
PrintLine(1, "STREET=" + db.dsDaten.Tables(0).Rows(0).Item("strasse").ToString)
|
PrintLine(1, "STREET=" + db.dsDaten.Tables(0).Rows(0).Item("strasse").ToString)
|
||||||
PrintLine(1, "CITY=" + db.dsDaten.Tables(0).Rows(0).Item("Ort").ToString)
|
PrintLine(1, "CITY=" + db.dsDaten.Tables(0).Rows(0).Item("Ort").ToString)
|
||||||
PrintLine(1, "ZIP=" + db.dsDaten.Tables(0).Rows(0).Item("plz").ToString)
|
PrintLine(1, "ZIP=" + db.dsDaten.Tables(0).Rows(0).Item("plz").ToString)
|
||||||
PrintLine(1, "READY=0")
|
PrintLine(1, "READY=0")
|
||||||
PrintLine(1, "ERRORLEVEL=0")
|
PrintLine(1, "ERRORLEVEL=0")
|
||||||
PrintLine(1, "ERRORTEXT=0")
|
PrintLine(1, "ERRORTEXT=0")
|
||||||
FileClose(1)
|
FileClose(1)
|
||||||
Try
|
Try
|
||||||
' MsgBox(vddsmodule + " " + filename)
|
' MsgBox(vddsmodule + " " + filename)
|
||||||
Process.Start(vddsmodule, filename)
|
Process.Start(vddsmodule, filename)
|
||||||
Catch
|
Catch
|
||||||
End Try
|
End Try
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub tnVTX_Click(sender As Object, e As EventArgs) Handles btnVTX.Click
|
Private Sub tnVTX_Click(sender As Object, e As EventArgs) Handles btnVTX.Click
|
||||||
Me.tsbtnVTX_Click(sender, e)
|
Me.tsbtnVTX_Click(sender, e)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub Patient_Resize(sender As Object, e As EventArgs) Handles Me.Resize
|
Private Sub Patient_Resize(sender As Object, e As EventArgs) Handles Me.Resize
|
||||||
Me.Label1.Left = Me.Width / 2 - 8 - Me.Label1.Width / 2
|
Me.Label1.Left = Me.Width / 2 - 8 - Me.Label1.Width / 2
|
||||||
Me.Krankengeschichte1.Refresh_KG()
|
Me.Krankengeschichte1.Refresh_KG()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
|
Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub Patient_TextChanged(sender As Object, e As EventArgs) Handles MyBase.TextChanged
|
Private Sub Patient_TextChanged(sender As Object, e As EventArgs) Handles MyBase.TextChanged
|
||||||
Create_temp_form()
|
Create_temp_form()
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
Public Function Create_temp_form()
|
Public Function Create_temp_form()
|
||||||
Exit Function
|
Exit Function
|
||||||
Try
|
Try
|
||||||
Dim f As New frmdummy
|
Dim f As New frmdummy
|
||||||
|
|
||||||
f.Width = 0
|
f.Width = 0
|
||||||
f.Height = 0
|
f.Height = 0
|
||||||
f.Visible = False
|
f.Visible = False
|
||||||
f.MdiParent = Me.MdiParent
|
f.MdiParent = Me.MdiParent
|
||||||
f.Show()
|
f.Show()
|
||||||
f.Close()
|
f.Close()
|
||||||
f = Nothing
|
f = Nothing
|
||||||
Catch
|
Catch
|
||||||
End Try
|
End Try
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
Private Sub tstxtsuche_Click(sender As Object, e As EventArgs) Handles tstxtsuche.Click
|
Private Sub tstxtsuche_Click(sender As Object, e As EventArgs) Handles tstxtsuche.Click
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Private Sub Finanzen1_Load(sender As Object, e As EventArgs) Handles Finanzen1.Load
|
||||||
|
|
||||||
|
End Sub
|
||||||
End Class
|
End Class
|
||||||
@@ -66,19 +66,20 @@ Public Class frmReportView
|
|||||||
db.Rechnung_buchen(1, daten.Tables("esdaten").Rows(0).Item("fakturanr"), rate, daten.Tables("behandlungsdaten").Rows(0).Item("nrbehandlung"), Betrag)
|
db.Rechnung_buchen(1, daten.Tables("esdaten").Rows(0).Item("fakturanr"), rate, daten.Tables("behandlungsdaten").Rows(0).Item("nrbehandlung"), Betrag)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Public Sub Mahnungg(ByVal Stufe As Integer, ByVal reportnr As String, ByVal nrbehandlung As Integer, ByVal Parameter As String, ByVal rate As Integer, Optional kopie As Integer = 0, Optional fakturanr As Integer = 0, Optional buchen As Boolean = True, Optional Preview As Boolean = False, Optional design As Boolean = False)
|
Public Sub Mahnungg(ByVal Stufe As Integer, ByVal reportnr As String, ByVal nrbehandlung As Integer, ByVal Parameter As String, ByVal rate As Integer, Optional kopie As Integer = 0, Optional fakturanr As Integer = 0, Optional buchen As Boolean = True, Optional Preview As Boolean = False, Optional design As Boolean = False, Optional aspdf As Boolean = False)
|
||||||
Me.ReportNr = reportnr
|
Me.ReportNr = reportnr
|
||||||
Me.Parameter = Parameter
|
Me.Parameter = Parameter
|
||||||
Me.NrBehandlung = nrbehandlung
|
Me.NrBehandlung = nrbehandlung
|
||||||
If Globals.FakturaNr <> 0 Then fakturanr = Globals.FakturaNr
|
If Globals.FakturaNr <> 0 Then fakturanr = Globals.FakturaNr
|
||||||
Print_Mahnung(Stufe, Preview, design, rate, 1, fakturanr)
|
Print_Mahnung(Stufe, Preview, design, rate, 1, fakturanr, aspdf)
|
||||||
If Preview Then Exit Sub
|
If Preview Then Exit Sub
|
||||||
If buchen = False Then Exit Sub
|
If buchen = False Then Exit Sub
|
||||||
db.Mahnung_Buchen(fakturanr, Stufe, daten.Tables("esdaten"))
|
db.Mahnung_Buchen(fakturanr, Stufe, daten.Tables("esdaten"))
|
||||||
|
|
||||||
' rechnung_buchen(rate, daten.Tables("ESDaten").Rows(0).Item("Nur_Franken") + daten.Tables("ESDaten").Rows(0).Item("Nur_Rappen") / 100)
|
' rechnung_buchen(rate, daten.Tables("ESDaten").Rows(0).Item("Nur_Franken") + daten.Tables("ESDaten").Rows(0).Item("Nur_Rappen") / 100)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Public Sub Print_Mahnung(ByVal Stufe As Integer, Optional vorschau As Boolean = False, Optional design As Boolean = False, Optional Rate As Integer = 0, Optional kopie As Integer = 0, Optional Fakturanr As Integer = 0)
|
Public Sub Print_Mahnung(ByVal Stufe As Integer, Optional vorschau As Boolean = False, Optional design As Boolean = False, Optional Rate As Integer = 0, Optional kopie As Integer = 0, Optional Fakturanr As Integer = 0, Optional aspdf As Boolean = False)
|
||||||
If Rate > 1 Then ReportNr = ReportNr + 1
|
If Rate > 1 Then ReportNr = ReportNr + 1
|
||||||
Dim kopien As Integer = 1
|
Dim kopien As Integer = 1
|
||||||
|
|
||||||
@@ -243,6 +244,41 @@ Public Class frmReportView
|
|||||||
freport.Preview = Me.previewControl1
|
freport.Preview = Me.previewControl1
|
||||||
freport.Show()
|
freport.Show()
|
||||||
|
|
||||||
|
End If
|
||||||
|
If aspdf Then
|
||||||
|
If aspdf Then
|
||||||
|
Dim s As String = My.Settings.DocArchivPath + "\" + Now.ToString("yyyyddMMhhmmssfff") + "_" + Me.NrBehandlung.ToString
|
||||||
|
Dim xpsfilename As String = s + ".xps"
|
||||||
|
Dim pdffilename As String = s + ".pdf"
|
||||||
|
Dim imagefilename As String = s + ".jpg"
|
||||||
|
Dim rtffilename As String = s + ".rtf"
|
||||||
|
|
||||||
|
Dim pdfexport As New FastReport.Export.Pdf.PDFExport
|
||||||
|
pdfexport.ShowProgress = False
|
||||||
|
pdfexport.Subject = "Export"
|
||||||
|
pdfexport.Title = "Export"
|
||||||
|
pdfexport.Compressed = UCase(db.Get_Option(50000)) = "TRUE"
|
||||||
|
pdfexport.AllowPrint = UCase(db.Get_Option(50002)) = "TRUE"
|
||||||
|
pdfexport.TextInCurves = UCase(db.Get_Option(50001)) = "TRUE"
|
||||||
|
'pdfexport.EmbeddingFonts = True
|
||||||
|
'pdfexport.PdfCompliance = FastReport.Export.Pdf.PDFExport.PdfStandard.PdfX_4
|
||||||
|
'pdfexport.Compressed = False
|
||||||
|
'pdfexport.AllowPrint = True
|
||||||
|
' pdfexport.EmbeddingFonts = True
|
||||||
|
'pdfexport.TextInCurves = True
|
||||||
|
'pdfexport.Compressed = True
|
||||||
|
'pdfexport.PdfCompliance = FastReport.Export.Pdf.PDFExport.PdfStandard.PdfA_2a
|
||||||
|
freport.Prepare()
|
||||||
|
freport.Export(pdfexport, s + ".PDF")
|
||||||
|
|
||||||
|
'Process.Start(s + ".pdf")
|
||||||
|
Dim pdfitem As New clspdfcollectionitem(Globals.FakturaNr.ToString, s + ".pdf")
|
||||||
|
Globals.pdfCollection.Add(pdfitem)
|
||||||
|
' Globals.pdfCollection.Add(s + ".pdf")
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
If vorschau = False And design = False Then
|
If vorschau = False And design = False Then
|
||||||
Dim printer As New clsPrinter
|
Dim printer As New clsPrinter
|
||||||
|
|||||||
@@ -142,24 +142,24 @@
|
|||||||
<data name="tsbtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
<data name="tsbtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
<value>
|
<value>
|
||||||
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAP4SURBVEhLnZVtbFN1FMaZGl8hzPjJmKDxE2owxkRdlrrb
|
YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAP2SURBVEhLnZVtbFN1FMaZGl8hjPiJmKDxE2owxkRdlrrb
|
||||||
dl2cOBMlThdHNCQmyId9MaiJUUdkCASKvGSCa6NCO0bSWLe5TKf4EmFCS63QbEAwa9qusoEbay3r7cu9
|
dl2cOBMlThdHNCQmyId9MYgJUUdkCESqwIJgO42sGyNprNtcplNQ48CWUhpoVlg0a9pusoEbay3r6733
|
||||||
9/Gc2/svlw4Y2T95crbm3ud3nnNubxeJMzAw8LAsy5dIM9lsNjVy5pyy8cS/kAZDqjT0lyoNBtWV7oC2
|
8Zzb+y+XDhjZP3lytube53eec25vl4gzMDDwaCaTuUKaTafTiZHwqLz99L+QBv2KNHRGkQZ9ylqHV107
|
||||||
cjCJFvewFhsfT8fj8WM9PT0PSZJ0G4tsqkpu1zgej+dR0Ekmk1pR1fDxkTiW7Q1h6c4AlpC4LvecRav3
|
OIEmx7AaHR9PxmIxb09PzyOSJN3FIpuKotsNjsvlehx04vG4WlBUfDwcw6qDASzfewrLSFxXu0bR3HUC
|
||||||
KDq/8mqZTAZTU1MYGRlRnE6n5HA4lra3t99i2M09LpfrcQG4OFtEa28M9++KoHr7SVRvC6PaeQp2XwKf
|
7V93qqlUCtPT0xgZGZHtdrtks9mWt7a23qHbzT9Op/NJAbg8V0BzbxQr94VQuecsKj8LotJ+DlZ3HJ/u
|
||||||
7t6H6elpFItFXalUCsFgUHW73e8TZBkluZPs5iSp6urqeoIBfFKygvU/p7DCdQGPfDGJ5fsm8NiXl/CG
|
P4SZmRkUCgVNiUQCPp9P6ejo+IAgqyjJvWQ3L0mFw+F4igF8EhkZm48nsMZ5CY99NYXVhybxxDdX8JY7
|
||||||
Lw7nzl1QVVUXAzhJOp1GIBBQyeNdhjQ1Nd1dmUYHaJpWulHR0BVWYPcqsOwv4tkDRVgPAev84wTYU+6e
|
BvvefVAURRMDOEkymYTX61XI432GNDQ03F+eRgOoqlq8UVbhCMqwdskwHS7g+c4CzEeBTZ5xArSXumfR
|
||||||
RfvSAQLS1tb2qt1uf6CxsfEOM6QMUBQFXL85o+ElH2D1APVewMGA3vPY8lmnblwoFJBIJDA6OopwOIxI
|
vjSAgLS0tLxutVofqq+vv8cIKQFkWQbX7y6oeMUNmF1AbRdgY0DvRez64oBmnM/neZwIh8MIBoMIhULa
|
||||||
JKL/TeNK1tXVPVVfX39fc3PzrYb/FYDQj2MaVvcC0gFQEsB2EFjTN4Mtu116E0K8A1427yUajSIUCimU
|
336/f6KmpuaZ2traBxsbG+/U/a8BhH4eU7G+F5A6QUkAyxFgQ98sdu13ak0I8Q542byXSCSCQCAgU4KN
|
||||||
YK3NZnuQALcb/lcn4DGFzqtYN0gJDIC1G2jxZ7B1r0fvniWScM3n8zqMIWS+nlKsqKmpucvwLwHE8ljR
|
FovlYQLcrftfn4DHFLioYNMgJdAB5m6gyZPC7oMurXuWSMI1l8tpMIaQ+WZKsaaqquo+3b8IEMtjRZIq
|
||||||
tIaPfqfxkLGNE1B9rU+D09VTnr9ZAspjo/FsoBRPNjQ03GP4lwCXcwouZ2XIuRxOJ2ewaTiP52n2vAeG
|
PvqDxkPGFk5A9Y0+FXZnT2n+Rgkoj43Gs41SPF1XV/eA7l8EXM3KuJrOIJPN4vzELHaczOFFmj3vgSFN
|
||||||
tHwPdH7t0424YzbmKv7P0X0GoIP3MAeQllUEE1k4h/7G9p+SeO9wHi/ToiUDsKoP+Nx/BFk5h1mZDAv0
|
PwIHvnVrRtwxG3MV/2fpPh3QxnuYB0hmFPjjadiH/saeXyaw5VgOr9KiJR2wrg/40jOMdCaLuQwZ5ukp
|
||||||
FOVKADavBNB3YrHhf2VEhaKC4KSGzQHgncPA698aAJLDq+Gt73LYfFzFnrCG/tEMJmey5fGwbgjgBXNs
|
yhYBbF4OoO/EUt3/2ojyBRn+KRU7TwHvHQPe/F4HkGxdKt75IYudPgXtQRX94RSmZtOl8bBuCeAFc2yu
|
||||||
rn/+o+CTo8DbP5QeU4bwqF6gRGt/BT70ncTZ+AW965tOwMZ8saiRiQI6aA+r/EDdfuA52sebQ8AO/zFM
|
Z/6R8ckJ4N2fio8pQ3hUL1Gijb8BH7rPYjR2Sev6thOwMV8samgyjzbawzoPUHMYeIH28fYQ8LnHi8nL
|
||||||
XJwqG4v504tyfoBIITR86hw++OU/vELfiTX9WfQGE+Wu2bhSN5VAPB1Cv504jU3HNfwRzZS7Fp1z16LO
|
0yVjMX96US4MECmETp77C1t//Q+v0XdiQ38avf54qWs2LtdtJRBPh9Dvp89jh0/Fn5FUqWvROXct6oIJ
|
||||||
m0AYVwJmZ0uLrHxihLGoCwKIcVSamo35c37pseYFsNm1JIBmCahZNwQII67mm/izyq7NnYs6bwJzxwJW
|
hHE5YG6uuMjyJ0YYi7oogBhHuanRmD/nlx5rQQCb3UgCaJSAGnVLgDDiaryJPyvv2ti5qAsmMHYsYOUy
|
||||||
KTPYLAG9LqC7u/tFs+n1TEStlDkB/aptpZfd07W1tUsM/0VV9B5vjcVi+gUL1djYmC4y32i1Wp+5CmCx
|
go0S0JsCuru7Xzaa3sxE1HIZE9Cv2m562T1bXV29TPdfUkHv8eZoNKpdsFiNjY1pIvPtZrP5uesAJpNp
|
||||||
WO6lSBZSB+kQXdC/QB2k+zeURiQt/h8hRTZ62wkMuQAAAABJRU5ErkJggg==
|
BUUykdpIR+mC/kXqCN2/rTgiaen/Xd02RBehQoMAAAAASUVORK5CYII=
|
||||||
</value>
|
</value>
|
||||||
</data>
|
</data>
|
||||||
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
|||||||
@@ -1,79 +1,81 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<configuration>
|
<configuration>
|
||||||
<configSections>
|
<configSections>
|
||||||
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||||
<section name="DPM2016.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
|
<section name="DPM2016.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
|
||||||
</sectionGroup>
|
</sectionGroup>
|
||||||
</configSections>
|
</configSections>
|
||||||
<system.diagnostics>
|
<system.diagnostics>
|
||||||
<sources>
|
<sources>
|
||||||
<!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
|
<!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
|
||||||
<source name="DefaultSource" switchName="DefaultSwitch">
|
<source name="DefaultSource" switchName="DefaultSwitch">
|
||||||
<listeners>
|
<listeners>
|
||||||
<add name="FileLog" />
|
<add name="FileLog" />
|
||||||
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
|
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
|
||||||
<!--<add name="EventLog"/>-->
|
<!--<add name="EventLog"/>-->
|
||||||
</listeners>
|
</listeners>
|
||||||
</source>
|
</source>
|
||||||
</sources>
|
</sources>
|
||||||
<switches>
|
<switches>
|
||||||
<add name="DefaultSwitch" value="Information" />
|
<add name="DefaultSwitch" value="Information" />
|
||||||
</switches>
|
</switches>
|
||||||
<sharedListeners>
|
<sharedListeners>
|
||||||
<add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter" />
|
<add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter" />
|
||||||
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
|
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
|
||||||
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
|
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
|
||||||
</sharedListeners>
|
</sharedListeners>
|
||||||
</system.diagnostics>
|
</system.diagnostics>
|
||||||
<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6" /></startup>
|
<startup>
|
||||||
<userSettings>
|
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6" />
|
||||||
<DPM2016.My.MySettings>
|
</startup>
|
||||||
<setting name="LogLevel" serializeAs="String">
|
<userSettings>
|
||||||
<value>2</value>
|
<DPM2016.My.MySettings>
|
||||||
</setting>
|
<setting name="LogLevel" serializeAs="String">
|
||||||
<setting name="TempPath" serializeAs="String">
|
<value>2</value>
|
||||||
<value>h:\dpm\dmp1\dmp2</value>
|
</setting>
|
||||||
</setting>
|
<setting name="TempPath" serializeAs="String">
|
||||||
<setting name="DocArchivPath" serializeAs="String">
|
<value>h:\dpm\dmp1\dmp2</value>
|
||||||
<value>h:\dpm\docarchiv</value>
|
</setting>
|
||||||
</setting>
|
<setting name="DocArchivPath" serializeAs="String">
|
||||||
<setting name="ConnectionString" serializeAs="String">
|
<value>h:\dpm\docarchiv</value>
|
||||||
<value>data source=shu00;initial catalog=SHUB_PADM;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
|
</setting>
|
||||||
</setting>
|
<setting name="ConnectionString" serializeAs="String">
|
||||||
<setting name="ConnectionStringMobie" serializeAs="String">
|
<value>data source=shu00;initial catalog=SHUB_PADM;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
|
||||||
<value>data source=shu00;initial catalog=DPM_Mobile;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
|
</setting>
|
||||||
</setting>
|
<setting name="ConnectionStringMobie" serializeAs="String">
|
||||||
<setting name="APIKey" serializeAs="String">
|
<value>data source=shu00;initial catalog=DPM_Mobile;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
|
||||||
<value>BgWSbwCNM3pEiCxgIlDEyD7HFpUgKPeL8OPDqH9n</value>
|
</setting>
|
||||||
</setting>
|
<setting name="APIKey" serializeAs="String">
|
||||||
<setting name="IV" serializeAs="String">
|
<value>BgWSbwCNM3pEiCxgIlDEyD7HFpUgKPeL8OPDqH9n</value>
|
||||||
<value>Q.6qYq0_C+mGmymX</value>
|
</setting>
|
||||||
</setting>
|
<setting name="IV" serializeAs="String">
|
||||||
<setting name="SecretKey" serializeAs="String">
|
<value>Q.6qYq0_C+mGmymX</value>
|
||||||
<value>3hba8fOumOPrMG0.G?-mkF-scGOkPwyW</value>
|
</setting>
|
||||||
</setting>
|
<setting name="SecretKey" serializeAs="String">
|
||||||
<setting name="WebAPI" serializeAs="String">
|
<value>3hba8fOumOPrMG0.G?-mkF-scGOkPwyW</value>
|
||||||
<value>http://192.168.111.67</value>
|
</setting>
|
||||||
</setting>
|
<setting name="WebAPI" serializeAs="String">
|
||||||
<setting name="SoftwareType" serializeAs="String">
|
<value>http://192.168.111.67</value>
|
||||||
<value>PADM</value>
|
</setting>
|
||||||
</setting>
|
<setting name="SoftwareType" serializeAs="String">
|
||||||
</DPM2016.My.MySettings>
|
<value>DPM</value>
|
||||||
</userSettings>
|
</setting>
|
||||||
<runtime>
|
</DPM2016.My.MySettings>
|
||||||
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
|
</userSettings>
|
||||||
<dependentAssembly>
|
<runtime>
|
||||||
<assemblyIdentity name="DevComponents.DotNetBar2" publicKeyToken="7eb7c3a35b91de04" culture="neutral" />
|
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
|
||||||
<bindingRedirect oldVersion="0.0.0.0-12.9.0.0" newVersion="12.9.0.0" />
|
<dependentAssembly>
|
||||||
</dependentAssembly>
|
<assemblyIdentity name="DevComponents.DotNetBar2" publicKeyToken="7eb7c3a35b91de04" culture="neutral" />
|
||||||
<dependentAssembly>
|
<bindingRedirect oldVersion="0.0.0.0-12.9.0.0" newVersion="12.9.0.0" />
|
||||||
<assemblyIdentity name="Syncfusion.Shared.Base" publicKeyToken="3d67ed1f87d44c89" culture="neutral" />
|
</dependentAssembly>
|
||||||
<bindingRedirect oldVersion="0.0.0.0-16.2350.0.41" newVersion="16.2350.0.41" />
|
<dependentAssembly>
|
||||||
</dependentAssembly>
|
<assemblyIdentity name="Syncfusion.Shared.Base" publicKeyToken="3d67ed1f87d44c89" culture="neutral" />
|
||||||
<dependentAssembly>
|
<bindingRedirect oldVersion="0.0.0.0-16.2350.0.41" newVersion="16.2350.0.41" />
|
||||||
<assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral" />
|
</dependentAssembly>
|
||||||
<bindingRedirect oldVersion="0.0.0.0-13.0.0.0" newVersion="13.0.0.0" />
|
<dependentAssembly>
|
||||||
</dependentAssembly>
|
<assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral" />
|
||||||
</assemblyBinding>
|
<bindingRedirect oldVersion="0.0.0.0-13.0.0.0" newVersion="13.0.0.0" />
|
||||||
</runtime>
|
</dependentAssembly>
|
||||||
</configuration>
|
</assemblyBinding>
|
||||||
|
</runtime>
|
||||||
|
</configuration>
|
||||||
|
|||||||
@@ -1,20 +1,20 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<asmv1:assembly xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" manifestVersion="1.0" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns="urn:schemas-microsoft-com:asm.v2" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xrml="urn:mpeg:mpeg21:2003:01-REL-R-NS" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:asmv3="urn:schemas-microsoft-com:asm.v3" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns:co.v1="urn:schemas-microsoft-com:clickonce.v1" xmlns:co.v2="urn:schemas-microsoft-com:clickonce.v2">
|
<asmv1:assembly xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" manifestVersion="1.0" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns="urn:schemas-microsoft-com:asm.v2" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xrml="urn:mpeg:mpeg21:2003:01-REL-R-NS" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:asmv3="urn:schemas-microsoft-com:asm.v3" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns:co.v1="urn:schemas-microsoft-com:clickonce.v1" xmlns:co.v2="urn:schemas-microsoft-com:clickonce.v2">
|
||||||
<assemblyIdentity name="PADM.application" version="1.0.0.2" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" xmlns="urn:schemas-microsoft-com:asm.v1" />
|
<assemblyIdentity name="DPM.application" version="1.0.0.2" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" xmlns="urn:schemas-microsoft-com:asm.v1" />
|
||||||
<description asmv2:publisher="PADM" asmv2:product="PADM" xmlns="urn:schemas-microsoft-com:asm.v1" />
|
<description asmv2:publisher="DPM" asmv2:product="DPM" xmlns="urn:schemas-microsoft-com:asm.v1" />
|
||||||
<deployment install="true" mapFileExtensions="true" />
|
<deployment install="true" mapFileExtensions="true" />
|
||||||
<compatibleFrameworks xmlns="urn:schemas-microsoft-com:clickonce.v2">
|
<compatibleFrameworks xmlns="urn:schemas-microsoft-com:clickonce.v2">
|
||||||
<framework targetVersion="4.6" profile="Full" supportedRuntime="4.0.30319" />
|
<framework targetVersion="4.6" profile="Full" supportedRuntime="4.0.30319" />
|
||||||
</compatibleFrameworks>
|
</compatibleFrameworks>
|
||||||
<dependency>
|
<dependency>
|
||||||
<dependentAssembly dependencyType="install" codebase="PADM.exe.manifest" size="90978">
|
<dependentAssembly dependencyType="install" codebase="DPM.exe.manifest" size="90974">
|
||||||
<assemblyIdentity name="PADM.exe" version="1.0.0.2" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
|
<assemblyIdentity name="DPM.exe" version="1.0.0.2" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
|
||||||
<hash>
|
<hash>
|
||||||
<dsig:Transforms>
|
<dsig:Transforms>
|
||||||
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
|
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
|
||||||
</dsig:Transforms>
|
</dsig:Transforms>
|
||||||
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
|
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
|
||||||
<dsig:DigestValue>iEajZlzvX50g+NuuamiCaVSi2CsN7TaU+Z7RZ1gbtNA=</dsig:DigestValue>
|
<dsig:DigestValue>8nOiS+q84n7KLg9Pe9Dhu2cEJXROPY7nrwS7tZEQ4JM=</dsig:DigestValue>
|
||||||
</hash>
|
</hash>
|
||||||
</dependentAssembly>
|
</dependentAssembly>
|
||||||
</dependency>
|
</dependency>
|
||||||
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"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<asmv1:assembly xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" manifestVersion="1.0" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns="urn:schemas-microsoft-com:asm.v2" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:co.v1="urn:schemas-microsoft-com:clickonce.v1" xmlns:asmv3="urn:schemas-microsoft-com:asm.v3" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns:co.v2="urn:schemas-microsoft-com:clickonce.v2">
|
<asmv1:assembly xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" manifestVersion="1.0" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns="urn:schemas-microsoft-com:asm.v2" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:co.v1="urn:schemas-microsoft-com:clickonce.v1" xmlns:asmv3="urn:schemas-microsoft-com:asm.v3" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns:co.v2="urn:schemas-microsoft-com:clickonce.v2">
|
||||||
<asmv1:assemblyIdentity name="PADM.exe" version="1.0.0.2" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
|
<asmv1:assemblyIdentity name="DPM.exe" version="1.0.0.2" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
|
||||||
<description asmv2:iconFile="PADM.ico" xmlns="urn:schemas-microsoft-com:asm.v1" />
|
<description asmv2:iconFile="DPMNeu.ico" xmlns="urn:schemas-microsoft-com:asm.v1" />
|
||||||
<application />
|
<application />
|
||||||
<entryPoint>
|
<entryPoint>
|
||||||
<assemblyIdentity name="PADM" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
|
<assemblyIdentity name="DPM" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
|
||||||
<commandLine file="PADM.exe" parameters="" />
|
<commandLine file="DPM.exe" parameters="" />
|
||||||
</entryPoint>
|
</entryPoint>
|
||||||
<trustInfo>
|
<trustInfo>
|
||||||
<security>
|
<security>
|
||||||
@@ -162,6 +162,18 @@
|
|||||||
</hash>
|
</hash>
|
||||||
</dependentAssembly>
|
</dependentAssembly>
|
||||||
</dependency>
|
</dependency>
|
||||||
|
<dependency>
|
||||||
|
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="DPM.exe" size="7444480">
|
||||||
|
<assemblyIdentity name="DPM" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
|
||||||
|
<hash>
|
||||||
|
<dsig:Transforms>
|
||||||
|
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
|
||||||
|
</dsig:Transforms>
|
||||||
|
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
|
||||||
|
<dsig:DigestValue>fs3SsvqE8fJNUPQ057vWQLK5pDXVQ3LvNJg+F48mypc=</dsig:DigestValue>
|
||||||
|
</hash>
|
||||||
|
</dependentAssembly>
|
||||||
|
</dependency>
|
||||||
<dependency>
|
<dependency>
|
||||||
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="FastReport.dll" size="6450184">
|
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="FastReport.dll" size="6450184">
|
||||||
<assemblyIdentity name="FastReport" version="2022.2.0.0" publicKeyToken="DB7E5CE63278458C" language="neutral" processorArchitecture="msil" />
|
<assemblyIdentity name="FastReport" version="2022.2.0.0" publicKeyToken="DB7E5CE63278458C" language="neutral" processorArchitecture="msil" />
|
||||||
@@ -462,18 +474,6 @@
|
|||||||
</hash>
|
</hash>
|
||||||
</dependentAssembly>
|
</dependentAssembly>
|
||||||
</dependency>
|
</dependency>
|
||||||
<dependency>
|
|
||||||
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PADM.exe" size="7382528">
|
|
||||||
<assemblyIdentity name="PADM" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
|
|
||||||
<hash>
|
|
||||||
<dsig:Transforms>
|
|
||||||
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
|
|
||||||
</dsig:Transforms>
|
|
||||||
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
|
|
||||||
<dsig:DigestValue>REnZZ21iKAM8//xzZ6sNyrWYrpGVwnfG4P10nYD6nZk=</dsig:DigestValue>
|
|
||||||
</hash>
|
|
||||||
</dependentAssembly>
|
|
||||||
</dependency>
|
|
||||||
<dependency>
|
<dependency>
|
||||||
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PropertyGridEx.dll" size="48128">
|
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PropertyGridEx.dll" size="48128">
|
||||||
<assemblyIdentity name="PropertyGridEx" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
|
<assemblyIdentity name="PropertyGridEx" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
|
||||||
@@ -1512,6 +1512,15 @@
|
|||||||
<dsig:DigestValue>T92PpISzKuFvoRCaXDKcSaiMyMOICRIrhQVQN101KX8=</dsig:DigestValue>
|
<dsig:DigestValue>T92PpISzKuFvoRCaXDKcSaiMyMOICRIrhQVQN101KX8=</dsig:DigestValue>
|
||||||
</hash>
|
</hash>
|
||||||
</file>
|
</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">
|
<file name="DPMNeu.ico" size="156974">
|
||||||
<hash>
|
<hash>
|
||||||
<dsig:Transforms>
|
<dsig:Transforms>
|
||||||
@@ -1521,15 +1530,6 @@
|
|||||||
<dsig:DigestValue>NLnqVMsy3w9jN63XtqsXl3zuDEd+8S6tWSYv9gZKS4Q=</dsig:DigestValue>
|
<dsig:DigestValue>NLnqVMsy3w9jN63XtqsXl3zuDEd+8S6tWSYv9gZKS4Q=</dsig:DigestValue>
|
||||||
</hash>
|
</hash>
|
||||||
</file>
|
</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">
|
<file name="PADM.ico" size="96694">
|
||||||
<hash>
|
<hash>
|
||||||
<dsig:Transforms>
|
<dsig:Transforms>
|
||||||
Binary file not shown.
@@ -2,7 +2,7 @@
|
|||||||
<doc>
|
<doc>
|
||||||
<assembly>
|
<assembly>
|
||||||
<name>
|
<name>
|
||||||
PADM
|
DPM
|
||||||
</name>
|
</name>
|
||||||
</assembly>
|
</assembly>
|
||||||
<members>
|
<members>
|
||||||
Binary file not shown.
|
After Width: | Height: | Size: 80 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 78 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 80 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 78 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 78 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 78 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 78 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 78 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 78 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 78 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 78 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 78 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 78 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 81 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 81 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 80 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 80 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 80 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 80 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 80 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 80 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 80 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 80 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 80 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 80 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 80 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 79 KiB |
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user