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

clean up

Browse Source
This commit is contained in:
Jonathan Jenne 2022-04-27 10:48:33 +02:00
parent fa4ac39074
commit 623e1717d6
2 changed files with 2 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
MultiTool.Form/frmImportMain.vb
View File

@ -741,17 +741,12 @@ Public Class frmImportMain
Return True
End If
WebService.RaiseWebServiceProgress("Bericht erzeugen")
' Generate the report
' TODO: Call GetReportFilePath in GenerateReport to better control
' when filename is generated and use it as placeholder
WebService.RaiseWebServiceProgress("Bericht erzeugen")
Dim oReportResult = ReportGenerator.GenerateReport(pDocument, CurrentTemplate)
WebService.RaiseWebServiceProgress("Bericht exportieren")
' Export it to pdf
WebService.RaiseWebServiceProgress("Bericht exportieren")
oReportResult.Report.ExportToPdf(oReportResult.FileName)
' Mark Document as Imported, will be moved on Form Close or File Reload

13
MultiTool.Form/frmRowEditor.vb
View File

@ -310,20 +310,7 @@ Public Class frmRowEditor
If oField.Value.HasError Then
e.Appearance.BackColor = Color.LightCoral
End If
' TODO: Remove this workaround if the conditions for errors are good now
'If e.DisplayText = String.Empty And (
' oField.Value.Error = FieldError.AccountNotFound Or
' oField.Value.Error = FieldError.ArticleNotFound) Then
' e.Appearance.BackColor = Color.LightCoral
'End If
End If
'If oField.Value.HasError Then
' e.Appearance.BackColor = Color.LightCoral
'End If
End Sub
Private Sub frmRowEditor_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown