egtbeamwall/EgtBEAMWALL.Core/BTLStructure.vb

Imports System.Collections.ObjectModel
Imports EgtUILib
Imports EgtWPFLib5

Public Class BTLStructure
   Inherits VMBase

   Dim m_bOldEnMod As Boolean = False
   Dim m_nBTLInfoId As Integer = 0

   ' pezzi da BTL
   Protected m_PartList As New ObservableCollection(Of BTLPart)
   Public Property PartList As ObservableCollection(Of BTLPart)
      Get
         Return m_PartList
      End Get
      Set(value As ObservableCollection(Of BTLPart))
         m_PartList = value
      End Set
   End Property

   Protected m_SelPart As BTLPart
   Public Overridable Property SelPart As BTLPart
      Get
         Return m_SelPart
      End Get
      Set(value As BTLPart)
         m_SelPart = value
      End Set
   End Property

   ' grezzi da BTL
   Protected m_BTLRawPartList As List(Of BTLRawPart)

#Region "Parametri generici"

   Protected m_sPROJNUM As String
   Public Overridable Property sPROJNUM As String
      Get
         Return m_sPROJNUM
      End Get
      Set(value As String)
         m_sPROJNUM = value
      End Set
   End Property

   Protected m_sPROJNAME As String
   Public Overridable Property sPROJNAME As String
      Get
         Return m_sPROJNAME
      End Get
      Set(value As String)
         m_sPROJNAME = value
      End Set
   End Property

   Protected m_sPROJPART As String
   Public Overridable Property sPROJPART As String
      Get
         Return m_sPROJPART
      End Get
      Set(value As String)
         m_sPROJPART = value
      End Set
   End Property

   Protected m_sPROJGUID As String
   Public Overridable Property sPROJGUID As String
      Get
         Return m_sPROJGUID
      End Get
      Set(value As String)
         m_sPROJGUID = value
      End Set
   End Property

   Protected m_sLISTNAME As String
   Public Overridable Property sLISTNAME As String
      Get
         Return m_sLISTNAME
      End Get
      Set(value As String)
         m_sLISTNAME = value
      End Set
   End Property

   Protected m_sCUSTOMER As String
   Public Overridable Property sCUSTOMER As String
      Get
         Return m_sCUSTOMER
      End Get
      Set(value As String)
         m_sCUSTOMER = value
      End Set
   End Property

   Protected m_sARCHITECT As String
   Public Overridable Property sARCHITECT As String
      Get
         Return m_sARCHITECT
      End Get
      Set(value As String)
         m_sARCHITECT = value
      End Set
   End Property

   Protected m_sEDITOR As String
   Public Overridable Property sEDITOR As String
      Get
         Return m_sEDITOR
      End Get
      Set(value As String)
         m_sEDITOR = value
      End Set
   End Property

   Protected m_sDELIVDATE As String
   Public Overridable Property sDELIVDATE As String
      Get
         Return m_sDELIVDATE
      End Get
      Set(value As String)
         m_sDELIVDATE = value
      End Set
   End Property

   Protected m_sEXPDATE As String
   Public Overridable Property sEXPDATE As String
      Get
         Return m_sEXPDATE
      End Get
      Set(value As String)
         m_sEXPDATE = value
      End Set
   End Property

   Protected m_sEXPTIME As String
   Public Overridable Property sEXPTIME As String
      Get
         Return m_sEXPTIME
      End Get
      Set(value As String)
         m_sEXPTIME = value
      End Set
   End Property

   Protected m_sEXPRELEASE As String
   Public Overridable Property sEXPRELEASE As String
      Get
         Return m_sEXPRELEASE
      End Get
      Set(value As String)
         m_sEXPRELEASE = value
      End Set
   End Property

   Protected m_sLANGUAGE As String
   Public Overridable Property sLANGUAGE As String
      Get
         Return m_sLANGUAGE
      End Get
      Set(value As String)
         m_sLANGUAGE = value
      End Set
   End Property

   Protected m_ocRANGE As New ObservableCollection(Of Object)({New IdNameStruct(Range.STANDARD, EgtMsg(61710)),
                                                               New IdNameStruct(Range.EXTENDED, EgtMsg(61711))})
   Public ReadOnly Property ocRANGE As ObservableCollection(Of Object)
      Get
         Return m_ocRANGE
      End Get
   End Property

   Protected m_SelRANGE As Integer
   Public Overridable Property SelRANGE As Integer
      Get
         Return m_SelRANGE
      End Get
      Set(value As Integer)
         m_SelRANGE = value
      End Set
   End Property

   Protected m_ocPROCESSINGQUALITY As New ObservableCollection(Of Object)({New IdNameStruct(ProcessingQuality.AUTOMATIC, EgtMsg(61658)),
                                                                          New IdNameStruct(ProcessingQuality.VISIBLE, EgtMsg(61659)),
                                                                          New IdNameStruct(ProcessingQuality.FAST, EgtMsg(61660))})
   Public ReadOnly Property ocPROCESSINGQUALITY As ObservableCollection(Of Object)
      Get
         Return m_ocPROCESSINGQUALITY
      End Get
   End Property

   Protected m_SelPROCESSINGQUALITY As Integer
   Public Overridable Property SelPROCESSINGQUALITY As Integer
      Get
         Return m_SelPROCESSINGQUALITY
      End Get
      Set(value As Integer)
         m_SelPROCESSINGQUALITY = value
      End Set
   End Property

   Protected m_sCOMPUTERNAME As String
   Public Overridable Property sCOMPUTERNAME As String
      Get
         Return m_sCOMPUTERNAME
      End Get
      Set(value As String)
         m_sCOMPUTERNAME = value
      End Set
   End Property

   Protected m_sUSER As String
   Public Overridable Property sUSER As String
      Get
         Return m_sUSER
      End Get
      Set(value As String)
         m_sUSER = value
      End Set
   End Property

   Protected m_sSRCFILE As String
   Public Overridable Property sSRCFILE As String
      Get
         Return m_sSRCFILE
      End Get
      Set(value As String)
         m_sSRCFILE = value
      End Set
   End Property

   Protected m_sEXPFILE As String
   Public Overridable Property sEXPFILE As String
      Get
         Return m_sEXPFILE
      End Get
      Set(value As String)
         m_sEXPFILE = value
      End Set
   End Property

   Protected m_ocRECESS As New ObservableCollection(Of Object)({New IdNameStruct(Recess.AUTOMATIC, EgtMsg(61658)),
                                                                New IdNameStruct(Recess.MANUAL, EgtMsg(61661))})
   Public ReadOnly Property ocRECESS As ObservableCollection(Of Object)
      Get
         Return m_ocRECESS
      End Get
   End Property

   Protected m_SelRECESS As Integer
   Public Overridable Property SelRECESS As Integer
      Get
         Return m_SelRECESS
      End Get
      Set(value As Integer)
         m_SelRECESS = value
      End Set
   End Property

   Protected m_sUSERATTRIBUTE As String
   Public Overridable Property sUSERATTRIBUTE As String
      Get
         Return m_sUSERATTRIBUTE
      End Get
      Set(value As String)
         m_sUSERATTRIBUTE = value
      End Set
   End Property

#End Region ' Parametri generici

#Region "MESSAGES"

   ' Info del pezzo
   Public ReadOnly Property PDN_Msg As String
      Get
         Return EgtMsg(61601)
      End Get
   End Property

   Public ReadOnly Property DO_Msg As String
      Get
         Return EgtMsg(61602)
      End Get
   End Property

   Public ReadOnly Property NAM_Msg As String
      Get
         Return EgtMsg(61603)
      End Get
   End Property

   Public ReadOnly Property L_Msg As String
      Get
         Return EgtMsg(61604)
      End Get
   End Property

   Public ReadOnly Property W_Msg As String
      Get
         Return EgtMsg(61605)
      End Get
   End Property

   Public ReadOnly Property H_Msg As String
      Get
         Return EgtMsg(61606)
      End Get
   End Property

   Public ReadOnly Property MAT_Msg As String
      Get
         Return EgtMsg(61607)
      End Get
   End Property

   Public ReadOnly Property CNT_Msg As String
      Get
         Return EgtMsg(61608)
      End Get
   End Property

   Public ReadOnly Property TBP_Msg As String
      Get
         Return EgtMsg(61609)
      End Get
   End Property

   Public ReadOnly Property DON_Msg As String
      Get
         Return EgtMsg(61610)
      End Get
   End Property

   Public ReadOnly Property ROT_Msg As String
      Get
         Return EgtMsg(61611)
      End Get
   End Property

   Public ReadOnly Property GRP_Msg As String
      Get
         Return EgtMsg(61612)
      End Get
   End Property

   Public ReadOnly Property UNT_Msg As String
      Get
         Return EgtMsg(61613)
      End Get
   End Property

#End Region ' MESSAGES

#Region "CONSTRUCTOR"

#End Region    ' CONSTRUCTOR

#Region "METHODS"

   Public Function NewPDN() As Integer
      Dim nMaxPDN As Integer = 0
      If Not IsNothing(PartList) And PartList.Count > 0 Then
         nMaxPDN = PartList.Max(Function(x) x.nPDN)
      End If
      Return nMaxPDN + 1
   End Function

   Public Shared Function Empty()
      Return New BTLStructure
   End Function

#End Region    ' METHODS

End Class

Public Class BTLRawPart

End Class