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

Update 2024-01-10

Browse Source
This commit is contained in:
Stefan Hutter
2024-01-10 09:40:00 +01:00
parent 6164ec3d16
commit 2d7f517e98
148 changed files with 2871 additions and 940 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
DPM2016/Reporting/frmReportView.vb
View File

@@ -395,6 +395,13 @@ Public Class frmReportView
paramdaten.Rows.Add(dbr)
End If
If Globals.DruckBranche Then
dbr = paramdaten.NewRow
dbr(0) = "@doktyp"
dbr(1) = doktype
paramdaten.Rows.Add(dbr)
End If
db.Get_Tabledata("sp_get_fakturadata", "", "", "", True, paramdaten)
daten.Tables.Add(db.dsDaten.Tables(0).Copy)
@@ -418,7 +425,12 @@ Public Class frmReportView
dbr(0) = "@ifakturanr"
dbr(1) = Fakturanr
paramdaten.Rows.Add(dbr)
If Globals.DruckBranche Then
dbr = paramdaten.NewRow
dbr(0) = "@doktyp"
dbr(1) = doktype
paramdaten.Rows.Add(dbr)
End If
'paramdaten.Rows.Add(dbr)
db.Get_Tabledata("sp_get_fakturadata", "", "", "", True, paramdaten)
daten.Tables.Add(db.dsDaten.Tables(0).Copy)
@@ -442,7 +454,12 @@ Public Class frmReportView
dbr(0) = "@ifakturanr"
dbr(1) = Fakturanr
paramdaten.Rows.Add(dbr)
If Globals.DruckBranche Then
dbr = paramdaten.NewRow
dbr(0) = "@doktyp"
dbr(1) = doktype
paramdaten.Rows.Add(dbr)
End If
'paramdaten.Rows.Add(dbr)
db.Get_Tabledata("sp_get_fakturadata", "", "", "", True, paramdaten)
daten.Tables.Add(db.dsDaten.Tables(0).Copy)
@@ -465,7 +482,12 @@ Public Class frmReportView
dbr(0) = "@ifakturanr"
dbr(1) = Fakturanr
paramdaten.Rows.Add(dbr)
If Globals.DruckBranche Then
dbr = paramdaten.NewRow
dbr(0) = "@doktyp"
dbr(1) = doktype
paramdaten.Rows.Add(dbr)
End If
db.Get_Tabledata("sp_get_fakturadata", "", "", "", True, paramdaten)
daten.Tables.Add(db.dsDaten.Tables(0).Copy)
daten.Tables(daten.Tables.Count - 1).TableName = "Leistungen_Dentotar"