36 lines
1.1 KiB
VB.net
36 lines
1.1 KiB
VB.net
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
|