AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

tolower

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2019-06-04 09:10:38 +02:00
parent 269e64be50
commit a285639cc0
3 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
GUIs.ClientSuite/Common/ClassCommonViews.vb
View File

@ -13,7 +13,7 @@ Public Class ClassCommonViews
Try Try
My.Channel.CreateDatabaseRequest("Load Controls", True) My.Channel.CreateDatabaseRequest("Load Controls", True)
Dim oSQL As String = $"SELECT * FROM VWIDB_FORMCONTROL WHERE FORMID = {FormId}" Dim oSQL As String = $"SELECT * FROM VWIDB_FORM_CONTROL WHERE FORMID = {FormId}"
Dim oResult = Await My.Channel.ReturnDatatableAsync(oSQL) Dim oResult = Await My.Channel.ReturnDatatableAsync(oSQL)
Dim oTable = oResult.Table Dim oTable = oResult.Table
@ -35,7 +35,7 @@ Public Class ClassCommonViews
Try Try
My.Channel.CreateDatabaseRequest("Load Control Data", True) My.Channel.CreateDatabaseRequest("Load Control Data", True)
Dim oSQL As String = $"SELECT * FROM VWIDB_WF_REQUESTCONTROLDATA WHERE FORMID = {FormId} AND REQUESTID = {RequestId}" Dim oSQL As String = $"SELECT * FROM VWIDB_WF_REQU_CTRL_DATA WHERE FORMID = {FormId} AND REQUESTID = {RequestId}"
Dim oResult = Await My.Channel.ReturnDatatableAsync(oSQL) Dim oResult = Await My.Channel.ReturnDatatableAsync(oSQL)
Dim oTable = oResult.Table Dim oTable = oResult.Table

3
GUIs.ClientSuite/FormWorkflow/frmWorkflowStep.vb
View File

@ -24,8 +24,9 @@ Public Class frmWorkflowStep
Private Async Function GetRequestData(RequestId) As Task Private Async Function GetRequestData(RequestId) As Task
Await My.Channel.CreateDatabaseRequestAsync("Get Request Data", True) Await My.Channel.CreateDatabaseRequestAsync("Get Request Data", True)
Dim oSQL = $"SELECT PROCESS_NAME, TITLE, FORM_ID FROM VWIDB_WF_REQUEST WHERE RECORD_ID = {RequestId}"
Dim oResult = Await My.Channel.ReturnDatatableAsync($"SELECT PROCESS_NAME, TITLE, FORM_ID FROM VWIDB_WF_REQUEST WHERE RECORD_ID = {RequestId}") Dim oResult = Await My.Channel.ReturnDatatableAsync(oSQL)
If Not oResult.OK Then If Not oResult.OK Then
Throw New ApplicationException("Request data could not be fetched!") Throw New ApplicationException("Request data could not be fetched!")

2
Modules.Interfaces/ZUGFeRDInterface.vb
View File

@ -68,7 +68,7 @@ Public Class ZUGFeRDInterface
Throw ex Throw ex
End Try End Try
If Not oProcessOutput.Contains(ZUGFERD_CONVERTER_SUCCESS_MESSAGE) Then If Not oProcessOutput.ToLower.Contains(ZUGFERD_CONVERTER_SUCCESS_MESSAGE.ToLower) Then
_logger.Warn("File {0} is not a valid ZUGFeRD File!", Path) _logger.Warn("File {0} is not a valid ZUGFeRD File!", Path)
Throw New ZUGFeRDExecption(ErrorType.NoValidFile, "Datei ist kein gültiges ZUGFeRD Format.") Throw New ZUGFeRDExecption(ErrorType.NoValidFile, "Datei ist kein gültiges ZUGFeRD Format.")
End If End If