AppCustom/MultiTool
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Show Template name in Report

Browse Source
This commit is contained in:
Jonathan Jenne 2022-03-16 12:04:45 +01:00
parent 18cc418fba
commit 80e40fbc23
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
MultiTool.Shared/Report/ReportGenerator.vb
View File

@ -10,7 +10,6 @@ Imports MultiTool.Shared.Templates
Public Class ReportGenerator(Of TReport As IReport)
Inherits BaseClass
Private ReadOnly Database As MSSQLServer
Private ReadOnly TemplateConfig As TemplateConfig
Private ReadOnly GeneralConfig As GeneralConfig
Private ReadOnly Patterns As Patterns
@ -32,7 +31,7 @@ Public Class ReportGenerator(Of TReport As IReport)
Return oFilePath
End Function
Public Function GenerateReport(pDocument As Document) As TReport
Public Function GenerateReport(pDocument As Document, pTemplate As Template) As TReport
Dim oMapperConfig As New Mapper(LogConfig)
Dim oHeadMapper = oMapperConfig.GetMapper(Of ReportHead)(New Dictionary(Of String, String) From {
@ -57,7 +56,7 @@ Public Class ReportGenerator(Of TReport As IReport)
})
Dim oSQLConfig = TemplateConfig.Items.
Where(Function(item) item.Function.Name = "SQL").
Where(Function(item) item.Function.Name = Constants.FUNCTION_SQL).
ToList()
FillFieldValuesFromSQL(pDocument, oSQLConfig)
@ -71,7 +70,7 @@ Public Class ReportGenerator(Of TReport As IReport)
ToList()
Dim oReportHead = oHeadMapper.Map(Of Dictionary(Of String, FieldValue), ReportHead)(oHeadRow)
oReportHead.Title = "EDI Bestellung (orders)"
oReportHead.Title = pTemplate.Name
oReportHead.Subtitle = "Schaum"
oReportHead.Filename = pDocument.FileName