Finish FinalSQL, GLN/EAN for export, double click to open template, exporting multiple documents

MultiTool.Shared/Winline/WebServiceData.vb

@@ -15,16 +15,18 @@ Namespace Winline
         Private ReadOnly Config As WebServiceConfig
         Private ReadOnly Serializer As Serializer
         Private ReadOnly GeneralConfig As GeneralConfig
+        Private ReadOnly Winline As WinlineData
         Private ReadOnly FileEx As File
 
         Public Event WebServiceProgress As EventHandler(Of String)
 
-        Public Sub New(pLogConfig As LogConfig, pWebserviceConfig As WebServiceConfig, pGeneralConfig As GeneralConfig)
+        Public Sub New(pLogConfig As LogConfig, pWinline As WinlineData, pWebserviceConfig As WebServiceConfig, pGeneralConfig As GeneralConfig)
             MyBase.New(pLogConfig)
             Serializer = New Serializer(pLogConfig)
             Config = pWebserviceConfig
             GeneralConfig = pGeneralConfig
             FileEx = New DigitalData.Modules.Filesystem.File(LogConfig)
+            Winline = pWinline
         End Sub
 
         Public Sub RaiseWebServiceProgress(pMessage As String)
@@ -208,6 +210,9 @@ Namespace Winline
             Dim oBaseFileName As String = FileEx.GetDateTimeString()
             Dim oFileName = FileEx.GetFilenameWithSuffix(oBaseFileName, "Request", "xml")
 
+            ' Save the filename to the document
+            pDocument.FilenameExport = oFileName
+
             ' Absolute Path to copy Request file
             Dim oImportAbsolutePath = IO.Path.Combine(oWS.ImportBasePath, oWS.ImportRelativePath)
             Dim oImportAbsoluteFilePath = IO.Path.Combine(FileEx.GetDateDirectory(oImportAbsolutePath), oFileName)
@@ -242,18 +247,21 @@ Namespace Winline
             ' --- Bring the action!
             Try
                 Dim oResponse As HttpResponseMessage = Await oClient.GetAsync(oURL)
-                Await HandleExportResponse(oResponse, pTemplate, oBaseFileName)
+                Await HandleExportResponse(oResponse, pTemplate, pMandator, oBaseFileName)
 
                 Return True
+
             Catch ex As Exception
                 Logger.Error(ex)
                 Throw ex
+
             Finally
                 oClient.Dispose()
+
             End Try
         End Function
 
-        Private Async Function HandleExportResponse(pResponse As HttpResponseMessage, pTemplate As Template, pBaseFileNAme As String) As Task
+        Private Async Function HandleExportResponse(pResponse As HttpResponseMessage, pTemplate As Template, pMandator As Mandator, pBaseFileNAme As String) As Task
             pResponse.EnsureSuccessStatusCode()
             Dim oResponseBody As String = Await pResponse.Content.ReadAsStringAsync()
             Dim oContentType = pResponse.Content.Headers.ContentType.MediaType
@@ -261,11 +269,13 @@ Namespace Winline
 
             RaiseEvent WebServiceProgress(Me, "Antwort verarbeiten")
 
+            oResponseBody = ApplyItemFunctionsForExport(pTemplate, pMandator, oResponseBody)
+
             Select Case oContentType
                 Case "text/xml"
                     WriteResponseFile(pTemplate.OutputWebserviceDirectory, pBaseFileNAme, oResponseBody, "xml")
                     WriteResponseFile(pTemplate.OutputXmlFileDirectory, pBaseFileNAme, oResponseBody, "xml")
-                    WriteResponseFile(FileEx.GetDateDirectory(pTemplate.ArchiveDirectory), pBaseFileNAme, oResponseBody, "xml")
+                    WriteResponseFile(FileEx.CreateDateDirectory(pTemplate.ArchiveDirectory), pBaseFileNAme, oResponseBody, "xml")
 
                 Case "text/html"
                     WriteResponseFile(pTemplate.OutputWebserviceDirectory, pBaseFileNAme, oResponseBody, "txt")
@@ -276,9 +286,54 @@ Namespace Winline
                     Throw New ApplicationException(oResponseBody)
             End Select
         End Function
+
+        Private Function ApplyItemFunctionsForExport(pTemplate As Template, pMandator As Mandator, oResponseBody As String) As String
+            Dim oDoc As New XmlDocument()
+            oDoc.LoadXml(oResponseBody)
+
+            For Each oTable In pTemplate.Tables
+                For Each oItem As Template.Column In oTable.Columns
+                    Dim oTableName As String = oTable.Name
+                    Dim oItemName As String = oItem.Name
+
+                    If oItem.Config.Function Is Nothing Then
+                        Continue For
+                    End If
+
+                    Dim oFunction = oItem.Config.Function.Name
+                    Dim oNode = oDoc.SelectSingleNode($"//MESOWebService/{oTableName}/{oItemName}")
+
+                    If oItem.Config.Function.Name = "GLN" Then
+                        Dim oGLN = Winline.TryGetGLN(oNode.InnerText, pMandator)
+                        If oGLN Is Nothing Then
+                            Throw New Exceptions.MissingAttributeException("GLN")
+                        End If
+
+                        oNode.InnerText = oGLN
+                    ElseIf oItem.Config.Function.Name = "EAN" Then
+                        Dim oEAN = Winline.TryGetEAN(oNode.InnerText, pMandator)
+                        If oEAN Is Nothing Then
+                            Throw New Exceptions.MissingAttributeException("EAN")
+                        End If
+
+                        oNode.InnerText = oEAN
+                    End If
+                Next
+            Next
+
+            Dim oArray As Byte()
+            Using oStream As New IO.MemoryStream
+                oDoc.Save(oStream)
+                oArray = oStream.ToArray()
+            End Using
+
+            Dim oXml = Text.Encoding.UTF8.GetString(oArray)
+            oResponseBody = oXml
+            Return oResponseBody
+        End Function
 #End Region
 
-        Private Function WriteResponseFile(pPath As String, pBaseFileName As String, pResponseBody As String, pExtension As String)
+        Private Function WriteResponseFile(pPath As String, pBaseFileName As String, pResponseBody As String, pExtension As String) As Boolean
             Try
                 Dim oRequestFileName As String = FileEx.GetFilenameWithSuffix(pBaseFileName, "Response", pExtension)
                 Dim oFilePath As String = IO.Path.Combine(pPath, oRequestFileName)