57 lines
1.8 KiB
VB.net
57 lines
1.8 KiB
VB.net
Namespace Templates
|
|
Public Class Template
|
|
Public Property Guid As Integer
|
|
Public Property Name As String
|
|
Public Property FileName As String
|
|
Public Property Description As String
|
|
Public Property IsImport As Boolean
|
|
Public Property Parameter1 As String
|
|
Public Property Parameter2 As String
|
|
Public Property FinalSQL As String
|
|
|
|
Public Property Tables As New List(Of Table)
|
|
|
|
Public Property InputDirectory As String
|
|
Public Property OutputDirectory As String
|
|
Public Property ArchiveDirectory 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
|
|
|
|
Class Table
|
|
Public Property Name As String
|
|
Public Property Columns As New List(Of Column)
|
|
End Class
|
|
|
|
Class Column
|
|
Public Property Name As String
|
|
Public Property DataType As Constants.ColumnType
|
|
''' <summary>
|
|
''' Required value from Schema. This value will be written in the ColumnConfig and is not relevant from that point on.
|
|
''' </summary>
|
|
Public Property IsRequired As Boolean
|
|
Public Property Config As TemplateConfigItem
|
|
|
|
Public Overrides Function ToString() As String
|
|
Return Name
|
|
End Function
|
|
End Class
|
|
End Class
|
|
End Namespace
|
|
|