56 lines
1.8 KiB
VB.net
56 lines
1.8 KiB
VB.net
Namespace Templates
|
|
Public Class GeneralConfig
|
|
Public Property InputDirectory As String = ""
|
|
Public Property OutputDirectory As String = ""
|
|
Public Property TemplateDirectory As String = ""
|
|
|
|
Public ReadOnly Property OutputReportDirectory
|
|
Get
|
|
Return IO.Path.Combine(OutputDirectory, "Reports")
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property OutputWebserviceDirectory
|
|
Get
|
|
Return IO.Path.Combine(OutputDirectory, "WebService")
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property OutputXmlFileDirectory
|
|
Get
|
|
Return IO.Path.Combine(OutputDirectory, "XmlFiles")
|
|
End Get
|
|
End Property
|
|
|
|
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
|