Update 2024-01-10
This commit is contained in:
Stefan Hutter
@@ -1,6 +1,12 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports SB
|
||||
Imports System.Windows.Input
|
||||
Imports C1.Win
|
||||
Imports C1.Win.C1TrueDBGrid
|
||||
Imports C1.Win.C1TrueDBGrid.BaseGrid
|
||||
Imports Gnostice.Documents
|
||||
Imports Syncfusion.Windows.Forms.Edit.Utils.Serializers
|
||||
Imports Syncfusion.Windows.Forms.Tools
|
||||
|
||||
Public Class LeistungDruck
|
||||
|
||||
@@ -606,7 +612,21 @@ Public Class LeistungDruck
|
||||
|
||||
End If
|
||||
End If
|
||||
Dim found As Integer
|
||||
Try
|
||||
For Each t As DataTable In IntTables.Inttables.Tables
|
||||
If t.TableName = "Tarif" Then
|
||||
found = True
|
||||
End If
|
||||
If Not found Then
|
||||
Dim xdb As New clsDB
|
||||
db.Get_Tarif()
|
||||
xdb.Dispose()
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
Dim dv As New DataView(IntTables.Inttables.Tables("Tarif"), "nrtarif=" + Me.lbtarif1.SelectedValue.ToString, "", DataViewRowState.CurrentRows)
|
||||
For Each drv As DataRowView In dv
|
||||
Me.txtPosition.Text = drv.Item("sso_nummer").ToString
|
||||
@@ -1493,6 +1513,15 @@ Public Class LeistungDruck
|
||||
|
||||
Private Sub C1Leistungen_AfterColUpdate(sender As Object, e As ColEventArgs) Handles C1Leistungen.AfterColUpdate
|
||||
'ldb.dsDaten.AcceptChanges()
|
||||
Dim i As Integer
|
||||
Try
|
||||
i = Me.C1Leistungen.Bookmark
|
||||
Me.C1Leistungen.Bookmark = -1
|
||||
Me.C1Leistungen.Bookmark = i
|
||||
Me.C1Leistungen.Columns("Total").Value = Me.C1Leistungen.Columns("Menge").Value * Me.C1Leistungen.Columns("Frankenprotaxpunkt").Value
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
Me.C1Leistungen.UpdateData()
|
||||
ldb.Update_Data()
|
||||
update_lagerbesatnd()
|
||||
@@ -1539,6 +1568,8 @@ Public Class LeistungDruck
|
||||
|
||||
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
|
||||
Dim f As New frmprodukt
|
||||
f.produktnr = 0
|
||||
f.Load_Data()
|
||||
f.ShowDialog()
|
||||
If f.DialogResult = DialogResult.OK Then
|
||||
Dim pbh As New clsDB
|
||||
@@ -1550,12 +1581,12 @@ Public Class LeistungDruck
|
||||
Dim r As DataRow = pbh.dsDaten.Tables(0).NewRow
|
||||
r.Item("ID") = newkey
|
||||
r.Item("Behandlungnr") = Me.Behandlungnr
|
||||
r.Item("produktnr") = f.cbboxprodukt.SelectedValue
|
||||
r.Item("produktnr") = f.ComboBoxEx1.SelectedValue
|
||||
r.Item("Erstellt_am") = Now
|
||||
r.Item("mutiert_am") = Now
|
||||
r.Item("mutierer") = Globals.ActUser
|
||||
r.Item("aktiv") = True
|
||||
r.Item("Bezeichnung") = f.cbboxprodukt.Text
|
||||
r.Item("Bezeichnung") = f.ComboBoxEx1.Text
|
||||
r.Item("Anzahl") = 0
|
||||
r.Item("Kalkulation") = 0
|
||||
r.Item("Zusatzpositionen") = 0
|
||||
@@ -1572,7 +1603,7 @@ Public Class LeistungDruck
|
||||
r = pbh.dsDaten.Tables(0).NewRow
|
||||
r.Item(0) = newkey
|
||||
r.Item(1) = pkey
|
||||
r.Item(2) = f.C1Produkte.Columns("ID").CellValue(i).ToString
|
||||
r.Item(2) = f.C1Produkte.Columns("Nr").CellValue(i).ToString
|
||||
r.Item(3) = f.C1Produkte.Columns("Beschreibung").CellValue(i).ToString
|
||||
r.Item("Erstellt_am") = Now
|
||||
r.Item("mutiert_am") = Now
|
||||
@@ -1616,6 +1647,15 @@ Public Class LeistungDruck
|
||||
Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click
|
||||
C1Produkte.Columns("aktiv").Value = 0
|
||||
ToolStripButton3_Click(sender, e)
|
||||
Dim i As Integer
|
||||
Try
|
||||
i = Me.C1Produkte.Bookmark
|
||||
Me.C1Produkte.Bookmark = -1
|
||||
Me.C1Produkte.Bookmark = i
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click
|
||||
@@ -1641,11 +1681,15 @@ Public Class LeistungDruck
|
||||
End Sub
|
||||
|
||||
Private Sub C1Produkte_AfterColEdit(sender As Object, e As ColEventArgs) Handles C1Produkte.AfterColEdit
|
||||
Dim bm As Integer = C1Produkte.Bookmark
|
||||
C1Produkte.Bookmark = -1
|
||||
C1Produkte.Update()
|
||||
pdb.Update_Data()
|
||||
C1Produkte.Bookmark = bm
|
||||
Try
|
||||
Dim bm As Integer = C1Produkte.Bookmark
|
||||
C1Produkte.Bookmark = -1
|
||||
C1Produkte.Update()
|
||||
pdb.Update_Data()
|
||||
C1Produkte.Bookmark = bm
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub C1Produkte_AfterColUpdate(sender As Object, e As ColEventArgs) Handles C1Produkte.AfterColUpdate
|
||||
@@ -1667,4 +1711,104 @@ Public Class LeistungDruck
|
||||
GroupBox1.Width = Panel3.Width / 2
|
||||
GroupBox2.Width = Panel3.Width / 2
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
|
||||
Try
|
||||
Dim f As New frmDetailbeschreibung
|
||||
f.TextBox1.Text = Me.C1Produktzusatz.Columns("detail").Value
|
||||
f.ShowDialog()
|
||||
If f.DialogResult = DialogResult.OK Then
|
||||
Me.C1Produktzusatz.Columns("detail").Value = f.TextBox1.Text
|
||||
|
||||
End If
|
||||
f.Dispose()
|
||||
Dim i As Integer
|
||||
i = Me.C1Produktzusatz.Bookmark
|
||||
Me.C1Produktzusatz.Bookmark = -1
|
||||
Me.C1Produktzusatz.Bookmark = i
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub GroupBox2_Resize(sender As Object, e As EventArgs) Handles GroupBox2.Resize
|
||||
Try
|
||||
Me.C1Produktzusatz.Splits(0).DisplayColumns("detail").Width = Me.C1Produktzusatz.Width - (20 + Me.C1Produktzusatz.Splits(0).DisplayColumns("bezeichnung").Width + Me.C1Produktzusatz.Splits(0).DisplayColumns("aktiv").Width)
|
||||
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub C1Produktzusatz_FetchRowStyle(sender As Object, e As FetchRowStyleEventArgs) Handles C1Produktzusatz.FetchRowStyle
|
||||
GroupBox2_Resize(sender, e)
|
||||
'For Each row As ViewRow In C1Produktzusatz.Splits(0).Rows
|
||||
' row.AutoSize()
|
||||
' row.Height = row.Height * 2
|
||||
'Next
|
||||
End Sub
|
||||
|
||||
Private Sub C1Produkte_Resize(sender As Object, e As EventArgs) Handles C1Produkte.Resize
|
||||
Try
|
||||
'Dim w As Integer = 20
|
||||
'For i As Integer = 0 To Me.C1Produkte.Splits(0).DisplayColumns.Count - 1
|
||||
' If Me.C1Produkte.Splits(0).DisplayColumns(i).Visible = True Then w = w + Me.C1Produkte.Splits(0).DisplayColumns(i).Width
|
||||
'Next
|
||||
'Me.C1Produkte.Splits(0).DisplayColumns("Bezeichnung").Width = Me.C1Produkte.Width - w
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles ToolStripButton6.Click
|
||||
Dim f As New frmprodukt
|
||||
f.produktbehanldungid = C1Produkte.Columns(0).Value
|
||||
|
||||
|
||||
f.Load_Data()
|
||||
f.ComboBoxEx1.SelectedValue = Me.C1Produkte.Columns("PRODUKTNR").Value
|
||||
f.ShowDialog()
|
||||
If f.DialogResult = DialogResult.OK Then
|
||||
For i = 0 To f.C1Produkte.Splits(0).Rows.Count - 1
|
||||
db.Exec_SQL("Update produkt_zusatz set detail='" + f.C1Produkte.Columns(2).CellValue(i).ToString + "',mutiert_am = getdate(),mutierer=" + Globals.ActUser.ToString + " where id=" + f.C1Produkte.Columns(3).CellValue(i).ToString)
|
||||
Next
|
||||
Dim ib As Integer
|
||||
Try
|
||||
ib = C1Produkte.Bookmark
|
||||
C1Produkte.Bookmark = -1
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
refresh_produkte()
|
||||
Refresh_Produktzusatz()
|
||||
Try
|
||||
C1Produkte.Bookmark = ib
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub NeuesProduktToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuesProduktToolStripMenuItem.Click
|
||||
ToolStripButton1_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub ProduktBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ProduktBearbeitenToolStripMenuItem.Click
|
||||
ToolStripButton6_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub ProduktLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ProduktLöschenToolStripMenuItem.Click
|
||||
ToolStripButton4_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub SpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeichernToolStripMenuItem.Click
|
||||
ToolStripButton3_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub ProduktKopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ProduktKopierenToolStripMenuItem.Click
|
||||
ToolStripButton5_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton7_Click(sender As Object, e As EventArgs) Handles ToolStripButton7.Click
|
||||
ToolStripMenuItem1_Click(sender, e)
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user