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