Rename Shared to Common

MultiTool.Common/Templates/GeneralConfig.vb

@@ -0,0 +1,35 @@
+Namespace Templates
+    Public Class GeneralConfig
+        Public Property TemplateDirectory As String = ""
+
+        Public Property Webservice As New WebServiceConfig()
+        Public Property DefaultYearOverride As Integer = 0
+
+        Public Class WebServiceConfig
+            Public Property BaseUrl As String = "http://127.0.0.1/EWL"
+            Public Property Username As String = "Username"
+            Public Property Password As String = "Password"
+            Public Property ImportBasePath As String = ""
+            Public Property ImportRelativePath As String = ""
+        End Class
+
+        <DebuggerStepThrough>
+        Public Function GetYear() As Integer
+            If DefaultYearOverride > 0 Then
+                Return DefaultYearOverride
+            End If
+
+            Return Now.Year
+        End Function
+
+        <DebuggerStepThrough>
+        Public Function GetWinLineYear()
+            Return GetWinLineYear(GetYear)
+        End Function
+
+        <DebuggerStepThrough>
+        Public Function GetWinLineYear(pYear As Integer)
+            Return (pYear - 1900) * 12
+        End Function
+    End Class
+End Namespace