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
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 Return True
End If End If
WebService.RaiseWebServiceProgress("Bericht erzeugen")
' Generate the report ' Generate the report
WebService.RaiseWebServiceProgress("Bericht erzeugen")
' TODO: Call GetReportFilePath in GenerateReport to better control
' when filename is generated and use it as placeholder
Dim oReportResult = ReportGenerator.GenerateReport(pDocument, CurrentTemplate) Dim oReportResult = ReportGenerator.GenerateReport(pDocument, CurrentTemplate)
WebService.RaiseWebServiceProgress("Bericht exportieren")
' Export it to pdf ' Export it to pdf
WebService.RaiseWebServiceProgress("Bericht exportieren")
oReportResult.Report.ExportToPdf(oReportResult.FileName) oReportResult.Report.ExportToPdf(oReportResult.FileName)
' Mark Document as Imported, will be moved on Form Close or File Reload ' 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 If oField.Value.HasError Then
e.Appearance.BackColor = Color.LightCoral e.Appearance.BackColor = Color.LightCoral
End If 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 End If
'If oField.Value.HasError Then
' e.Appearance.BackColor = Color.LightCoral
'End If
End Sub End Sub
Private Sub frmRowEditor_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown Private Sub frmRowEditor_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown