Rename Shared to Common

2022-04-06 14:55:15 +02:00
parent 54ba722ecb
commit 8b6821adde
66 changed files with 268 additions and 152 deletions
--- a/MultiTool.Common/Patterns.vb
+++ b/MultiTool.Common/Patterns.vb
@@ -0,0 +1,122 @@
+Imports System.Text.RegularExpressions
+Imports DigitalData.Modules.Logging
+Imports MultiTool.Common.Documents
+Imports MultiTool.Common.Templates
+Imports MultiTool.Common.Winline.Entities
+
+Public Class Patterns
+    Inherits BaseClass
+
+    Private ReadOnly GeneralConfig As GeneralConfig
+
+    Public Sub New(pLogConfig As LogConfig, pGeneralConfig As GeneralConfig)
+        MyBase.New(pLogConfig)
+        GeneralConfig = pGeneralConfig
+    End Sub
+
+    Public Function ReplaceForImport(pDocument As Documents.Document, pRow As DocumentRow, oString As String)
+        Dim oRegex = New Regex("{#(\w+)#([\w\s_-]+)}+")
+        Dim oMatches As MatchCollection = oRegex.Matches(oString)
+
+        For Each oMatch As Match In oMatches
+            Dim oPlaceholderString As String = oMatch.Groups.Item(0)?.Value
+            Dim oPlaceholderType As String = oMatch.Groups.Item(1)?.Value
+            Dim oPlaceholderValue As String = oMatch.Groups.Item(2)?.Value
+
+            Select Case oPlaceholderType.ToUpper
+                Case "FIELD"
+                    Dim oFieldName = oPlaceholderValue
+                    Dim oTargetField = pRow.Fields.
+                       Where(Function(field) field.Key = oFieldName).
+                       SingleOrDefault()
+
+                    oString = oString.Replace(oPlaceholderString, oTargetField.Value.Final)
+
+                Case "CONST"
+                    Dim oValue = ""
+
+                    Select Case oPlaceholderValue.ToUpper
+                        Case "MESOYEAR"
+                            oValue = GeneralConfig.GetWinLineYear()
+
+                        Case "MESOCOMP"
+                            oValue = pDocument.Mandator.Id
+
+                        Case "USERNAME"
+                            oValue = Environment.UserName
+
+                        Case "CURRENTDATE"
+                            oValue = Now.ToString()
+
+                        Case "FILENAME"
+                            oValue = pDocument.FileName
+
+                        Case "MANDATORDB"
+                            oValue = pDocument.Mandator.Database
+
+                        Case Else
+                            oValue = ""
+
+                    End Select
+
+                    If oValue <> "" Then
+                        oString = oString.Replace(oPlaceholderString, oValue)
+                    End If
+            End Select
+        Next
+
+        Return oString
+    End Function
+
+    Public Function ReplaceForExport(pDocument As ExportDocument, pMandator As Mandator, oString As String)
+        Dim oRegex = New Regex("{#(\w+)#([\w\s_-]+)}+")
+        Dim oMatches As MatchCollection = oRegex.Matches(oString)
+
+        For Each oMatch As Match In oMatches
+            Dim oPlaceholderString As String = oMatch.Groups.Item(0)?.Value
+            Dim oPlaceholderType As String = oMatch.Groups.Item(1)?.Value
+            Dim oPlaceholderValue As String = oMatch.Groups.Item(2)?.Value
+
+            Select Case oPlaceholderType.ToUpper
+                Case "CONST"
+                    Dim oValue = ""
+
+                    Select Case oPlaceholderValue.ToUpper
+                        Case "MESOYEAR"
+                            oValue = GeneralConfig.GetWinLineYear()
+
+                        Case "MESOCOMP"
+                            oValue = pMandator.Id
+
+                        Case "USERNAME"
+                            oValue = Environment.UserName
+
+                        Case "CURRENTDATE"
+                            oValue = Now.ToString()
+
+                        Case "FILENAME"
+                            oValue = pDocument.FilenameExport
+
+                        Case "ACCOUNTNUMBER"
+                            oValue = pDocument.Account.Id
+
+                        Case "RUNNINGNUMBER"
+                            oValue = pDocument.RunningNumber
+
+                        Case "MANDATORDB"
+                            oValue = pMandator.Database
+
+                        Case Else
+                            oValue = ""
+
+                    End Select
+
+                    If oValue <> "" Then
+                        oString = oString.Replace(oPlaceholderString, oValue)
+                    End If
+            End Select
+        Next
+
+        Return oString
+    End Function
+End Class