EgtDOORCreator/ReportInfo/ReportCompo.vb

Public Class ReportOrder

   Private m_Order As String
   Public Property Order As String
      Get
         Return m_Order
      End Get
      Set(value As String)
         m_Order = value
      End Set
   End Property

   Private m_Image As String
   Public Property Image As String
      Get
         Return m_Image
      End Get
      Set(value As String)
         m_Image = value
      End Set
   End Property

   Public Property OrderParameterList As New List(Of ReportParameter)

   Public Property ReportCompoList As New List(Of ReportCompo)

End Class

Public Class ReportCompo
   Public Sub New(Name__1 As String, Brand__2 As String, Template__3 As String)
      m_Name = Name__1
      m_Brand = Brand__2
      m_Template = Template__3
   End Sub

   Private m_Name As String
   Public Property Name As String
      Get 
         Return m_Name
      End Get
      Set(value As String)
         m_Name = value
      End Set
   End Property

   Private m_Brand As String
   Public Property Brand As String
      Get 
         Return m_Brand
      End Get
      Set(value As String)
         m_Brand = value
      End Set
   End Property

   Private m_Template As String
   Public Property Template As String
      Get 
         Return m_Template
      End Get
      Set(value As String)
         m_Template = value
      End Set
   End Property

   Public Property CompoParameterList As New List(Of ReportParameter)

End Class

' Nuova versione tabella
Public Class TableDoor

   Public Property Order As New List(Of TableOrder)
   Public Property Dimension As New List(Of TableDimension)
   Public Property Proflie As New List(Of TableProfile)
   Public Property OtherInfo As New List(Of TableOtherInfo)
   Public Property HardwareList As New List(Of TableHardaware)
   Public Property MachList As New List(Of TableMach)
   Public Property AttachmentsList As New List(Of ReportAttachments)

End Class

Public Class TableOrder

   ' immagine porta
   Private m_Image As String
   Public Property Image As String
      Get
         Return m_Image
      End Get
      Set(value As String)
         m_Image = value
      End Set
   End Property

   ' lista dei parametri
   Private m_Order_ParametersList As List(Of ReportParameter)
   Public Property Order_ParametersList As List(Of ReportParameter)
      Get
         Return m_Order_ParametersList
      End Get
      Set(value As List(Of ReportParameter))
         m_Order_ParametersList = value
      End Set
   End Property

   Sub New()
      m_Order_ParametersList = New List(Of ReportParameter)
   End Sub

End Class

Public Class TableDimension

   ' lista dei parametri
   Private m_Dimension_ParametersList As List(Of ReportParameter)
   Public Property Dimension_ParametersList As List(Of ReportParameter)
      Get
         Return m_Dimension_ParametersList
      End Get
      Set(value As List(Of ReportParameter))
         m_Dimension_ParametersList = value
      End Set
   End Property

   Sub New()
      m_Dimension_ParametersList = New List(Of ReportParameter)
   End Sub

End Class

Public Class TableProfile

   ' lista dei parametri
   Private m_Profile_ParametersList As List(Of ReportParameter)
   Public Property Profile_ParametersList As List(Of ReportParameter)
      Get
         Return m_Profile_ParametersList
      End Get
      Set(value As List(Of ReportParameter))
         m_Profile_ParametersList = value
      End Set
   End Property

   Sub New()
      m_Profile_ParametersList = New List(Of ReportParameter)
   End Sub

End Class

Public Class TableOtherInfo

   ' lista dei parametri
   Private m_OtherInfo_ParametersList As List(Of ReportParameter)
   Public Property OtherInfo_ParametersList As List(Of ReportParameter)
      Get
         Return m_OtherInfo_ParametersList
      End Get
      Set(value As List(Of ReportParameter))
         m_OtherInfo_ParametersList = value
      End Set
   End Property

   Sub New()
      m_OtherInfo_ParametersList = New List(Of ReportParameter)
   End Sub

End Class

Public Class TableHardaware

   ' disegno quotato Hardware
   Private m_HardwareImg As String = "Empty"
   Public Property HardwareImg As String
      Get
         Return m_HardwareImg
      End Get
      Set(value As String)
         m_HardwareImg = value
      End Set
   End Property

   ' nome Hardware
   Private m_Name As String
   Public Property Name As String
      Get
         Return m_Name
      End Get
      Set(value As String)
         m_Name = value
      End Set
   End Property

   ' marca Hardware
   Private m_Brand As String
   Public Property Brand As String
      Get
         Return m_Brand
      End Get
      Set(value As String)
         m_Brand = value
      End Set
   End Property

   ' modello Hardware
   Private m_Template As String
   Public Property Template As String
      Get
         Return m_Template
      End Get
      Set(value As String)
         m_Template = value
      End Set
   End Property

   ' lista dei parametri
   Private m_Hardware_ParametersList As List(Of ReportParameter)
   Public Property Hardware_ParametersList As List(Of ReportParameter)
      Get
         Return m_Hardware_ParametersList
      End Get
      Set(value As List(Of ReportParameter))
         m_Hardware_ParametersList = value
      End Set
   End Property

   Public Sub New(Name__1 As String, Brand__2 As String, Template__3 As String, Image__4 As String)
      m_Name = Name__1
      m_Brand = Brand__2
      m_Template = Template__3
      m_HardwareImg = Image__4
      m_Hardware_ParametersList = New List(Of ReportParameter)
   End Sub

End Class

Public Class TableMach

   ' disegno quotato Hardware
   Private m_HardwareImg As String = "Empty"
   Public Property HardwareImg As String
      Get
         Return m_HardwareImg
      End Get
      Set(value As String)
         m_HardwareImg = value
      End Set
   End Property

   ' nome Mach
   Private m_Name As String
   Public Property Name As String
      Get
         Return m_Name
      End Get
      Set(value As String)
         m_Name = value
      End Set
   End Property

   ' modello lavorazione
   Private m_Template As String
   Public Property Template As String
      Get
         Return m_Template
      End Get
      Set(value As String)
         m_Template = value
      End Set
   End Property

   ' lista dei parametri
   Private m_Mach_ParametersList As List(Of ReportParameter)
   Public Property Mach_ParametersList As List(Of ReportParameter)
      Get
         Return m_Mach_ParametersList
      End Get
      Set(value As List(Of ReportParameter))
         m_Mach_ParametersList = value
      End Set
   End Property

   Public Sub New(Name__1 As String, Template__2 As String, Image__3 As String)
      m_Name = Name__1
      m_Template = Template__2
      m_HardwareImg = Image__3
      m_Mach_ParametersList = New List(Of ReportParameter)
   End Sub

End Class

Public Class ReportParameter
   Public Sub New(Name__1 As String, Value__2 As String)
      m_Name = Name__1
      m_sValue = Value__2
   End Sub

   Private m_Name As String
   Public Property Name As String
      Get
         Return m_Name
      End Get
      Set(value As String)
         m_Name = value
      End Set
   End Property

   Private m_sValue As String
   Public Property sValue As String
      Get
         Return m_sValue
      End Get
      Set(value As String)
         m_sValue = value
      End Set
   End Property

End Class

Public Class ReportAttachments

   Private m_PDFFile As String
   Public Property PDFFile As String
      Get
         Return m_PDFFile
      End Get
      Set(value As String)
         m_PDFFile = value
      End Set
   End Property

   Sub New(sPDFPath As String)
      m_PDFFile = sPDFPath
   End Sub

End Class