28 lines
969 B
VB.net
28 lines
969 B
VB.net
Namespace Templates
|
|
Public Class GeneralConfig
|
|
Public Property InputDirectory As String = ""
|
|
Public Property OutputDirectory As String = ""
|
|
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
|
|
End Class
|
|
End Namespace
|