Egalware/egtbeamwall
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
7857588b186749a03f8d2db0e99fa5fb6f8c7631
egtbeamwall/EgtBEAMWALL.Optimizer/BTLViewModel/BTLPartVM.vb
T
Demetrio Cassarino f1a7d0dfba -gestione visibilità pulsante resetall 
-sistemato bug su livello utenza
2025-10-21 14:42:26 +02:00

2729 lines
106 KiB
VB.net
Raw Blame History

Imports System.Collections.ObjectModel
Imports System.Collections.Specialized
Imports System.ComponentModel
Imports EgtBEAMWALL.Core
Imports EgtUILib
Imports EgtWPFLib5
Public Class BTLPartVM
Inherits VMBase
#Region "FIELDS & PROPERTIES"
Private WithEvents m_BTLPartM As BTLPartM
Public ReadOnly Property BTLPartM As BTLPartM
Get
Return m_BTLPartM
End Get
End Property
Private m_BTLStructureM As BTLStructureM
Public ReadOnly Property nPartId As Integer
Get
Return m_BTLPartM.nPartId
End Get
End Property
Public Property nPROJ As Integer
Get
Return m_BTLPartM.nPROJ
End Get
Set(value As Integer)
m_BTLPartM.nPROJ = value
End Set
End Property
Public Property nPDN As Integer
Get
Return m_BTLPartM.nPDN
End Get
Set(value As Integer)
m_BTLPartM.nPDN = value
End Set
End Property
Public Property bDO As Boolean
Get
Return m_BTLPartM.bDO
End Get
Set(value As Boolean)
m_BTLPartM.bDO = value
EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_DO, If(value, 1, 0))
NotifyPropertyChanged(NameOf(Calc_BorderBrush))
End Set
End Property
Public Property sNAM As String
Get
Return m_BTLPartM.sNAM
End Get
Set(value As String)
If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_NAM, value) Then
m_BTLPartM.sNAM = value
End If
NotifyPropertyChanged(NameOf(sNAM))
End Set
End Property
Private Function SetBtlLHW(dBtlL As Double, dBtlH As Double, dBtlW As Double) As Boolean
Dim OldSection As SectionXMaterial = Section
' verifico se ci sono già copie in grezzi
Dim nDuploCount As Integer = 0
If EgtDuploCount(m_BTLPartM.nPartId, nDuploCount) AndAlso nDuploCount > 0 Then
' se modalità travi e trave
If Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.BEAM OrElse
Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.WALL Then
If dBtlW <> m_BTLPartM.dBtlW OrElse dBtlH <> m_BTLPartM.dBtlH OrElse dBtlL <> m_BTLPartM.dBtlL Then
' se pezzo gia' in produzione
Dim DuploList As New List(Of Integer)
EgtDuploList(m_BTLPartM.nPartId, DuploList)
Dim bDuploInProduction As Boolean = False
For Each DuploId In DuploList
Dim nSwapItem As Integer = GDB_ID.NULL
Dim sSwapItem As String = String.Empty
EgtGetInfo(DuploId, "!LST", sSwapItem)
Dim LSTValues() As String = sSwapItem.Split(","c)
If Not IsNothing(LSTValues(LSTValues.Count - 1)) AndAlso Integer.TryParse(LSTValues(LSTValues.Count - 1), nSwapItem) AndAlso nSwapItem > 0 Then
Dim nMachgroupId As Integer = EgtGetParent(EgtGetParent(EgtGetParent(nSwapItem)))
If nMachgroupId = GDB_ID.NULL Then
EgtOutLog("Trovato Duplo Ghost")
Else
Dim MachGroupModel = Nothing
If Not IsNothing(Map.refOnlyProdManagerVM) Then
MachGroupModel = DbControllers.m_MachGroupController.FindByMachGroupId(ProjectManagerVM.CurrProj.nProdId, nMachgroupId)
End If
If Not IsNothing(MachGroupModel) AndAlso MachGroupModel.State > ItemState.ND Then
bDuploInProduction = True
Exit For
End If
End If
End If
Next
If bDuploInProduction Then
MessageBox.Show("Impossible change dimension because already in production!", "", MessageBoxButton.OK, MessageBoxImage.Exclamation)
Return False
End If
' lo impedisco
' avviso che tutti i pezzi verranno tolti dai grezzi e chiedo di confermare
If MessageBox.Show(String.Format(EgtMsg(61851), nDuploCount), EgtMsg(15003), MessageBoxButton.YesNo, MessageBoxImage.Information) = MessageBoxResult.Yes Then
MyMachGroupPanelM.DuploSetToDelete(m_BTLPartM.nPartId)
DeleteDuplo_OnlyProdPage(DuploList)
Else
' reimposto vecchio valore
Return False
End If
End If
End If
End If
' verifico se solido attivo
Dim bShowSolid As Boolean = Map.refShowBeamPanelVM.ShowSolid_IsChecked
If bShowSolid Then Map.refProjectVM.BTLStructureVM.ShowSolid(GDB_ID.NULL, False, False)
If Not EgtBeamSetPartBox(dBtlL, dBtlH, dBtlW, False) Then Return False
' imposto modificato per copie
MyMachGroupPanelM.SetDuploModified(m_BTLPartM.nPartId)
' ricalcolo tutte le feature contenute
UpdateFeatures()
' setto part da ricalcolare
ResetCalcTotalPart()
m_BTLPartM.dBtlL = dBtlL
m_BTLPartM.dBtlH = dBtlH
m_BTLPartM.dBtlW = dBtlW
' aggiorno sezioni
Map.refProjectVM.BTLStructureVM.UpdateSection(Section, OldSection)
' eventualmente ripristino solido
If bShowSolid Then Map.refProjectVM.BTLStructureVM.ShowSolid(GDB_ID.NULL, True, False)
EgtDraw()
Return True
End Function
Private Sub DeleteDuplo_OnlyProdPage(DuploList As List(Of Integer))
For Each nDuploId In DuploList
' recupero grezzo cui appartiene
Dim nRawPartId As Integer = MyMachGroupPanelM.DuploGetRawPart(nDuploId)
' recupero gruppo di lavorazione
Dim nMachGroupId As Integer = EgtGetParent(EgtGetParent(nRawPartId))
' lo setto come corrente
EgtSetCurrMachGroup(nMachGroupId)
' elimino pezzo copia
EgtRemovePartFromRawPart(nDuploId)
EgtErase(nDuploId)
' recupero gruppo di lavorazione e trave dell'interfaccia
Dim BeamMachGroup As MyMachGroupVM = Map.refMachGroupPanelVM.MachGroupVMList.FirstOrDefault(Function(x) x.Id = nMachGroupId)
If Not IsNothing(BeamMachGroup) Then
Dim Beam As PartVM = BeamMachGroup.PartVMList.FirstOrDefault(Function(x) x.nPartId = nDuploId)
EgtSetCurrMachGroup(BeamMachGroup.Id)
Beam.DeletePart()
End If
' reset necessario per poter ottenere nMachGroupId corretto
EgtResetCurrMachGroup()
' aggiorno dati utilizzo barra
BeamMachGroup.UpdateUsage()
Next
' aggiorno quantita' in prod
Dim BTLPart As BTLPartVM = CALCPanelVM.GetBTLPartVMFromBTLPartId(m_BTLPartM.nPartId)
BTLPart.RefreshPartInProd()
End Sub
Private Function GetOrigFrameGroup(nPartId As Integer) As Integer
Dim nCOP As Integer = GDB_ID.NULL
Dim nBAS As Integer = GDB_ID.NULL
EgtGetInfo(nPartId, "!COP", nCOP)
EgtGetInfo(nPartId, "!BAS", nBAS)
If nCOP = GDB_ID.NULL Then
Return nBAS
Else
EgtGetInfo(nCOP, "!BAS", nBAS)
Return nBAS
End If
End Function
Public Property sL As String
Get
Dim nOrigGroupId As Integer = nPartId
If Map.refMainMenuVM.SelPage = Pages.VIEW AndAlso EgtBeamGetBuildingIsOn() AndAlso Map.refShowBeamPanelVM.bShowAll Then
nOrigGroupId = GetOrigFrameGroup(nPartId)
End If
Dim frBeam As New Frame3d
EgtGetGroupGlobFrame(nOrigGroupId, frBeam)
If IsX(frBeam.VersX(), EPS_SMALL) Then
Return LenToString(m_BTLPartM.dBtlL, 3)
ElseIf IsX(frBeam.VersY(), EPS_SMALL) Then
Return LenToString(m_BTLPartM.dBtlH, 3)
Else
Return LenToString(m_BTLPartM.dBtlW, 3)
End If
End Get
Set(value As String)
Dim dVal As Double
If StringToLenAdv(value, dVal, True) Then
Dim dBtlL = m_BTLPartM.dBtlL
Dim dBtlW = m_BTLPartM.dBtlW
Dim dBtlH = m_BTLPartM.dBtlH
Dim frBeam As New Frame3d
EgtGetGroupGlobFrame(nPartId, frBeam)
If IsX(frBeam.VersX(), EPS_SMALL) Then
dBtlL = dVal
ElseIf IsX(frBeam.VersY(), EPS_SMALL) Then
dBtlH = dVal
Else
dBtlW = dVal
End If
SetBtlLHW(dBtlL, dBtlH, dBtlW)
End If
NotifyPropertyChanged(NameOf(sL))
NotifyPropertyChanged(NameOf(sH))
NotifyPropertyChanged(NameOf(sW))
ResetCalcTotalPart()
End Set
End Property
Public ReadOnly Property dL As Double
Get
Dim frBeam As New Frame3d
EgtGetGroupGlobFrame(nPartId, frBeam)
If IsX(frBeam.VersX(), EPS_SMALL) Then
Return m_BTLPartM.dBtlL
ElseIf IsX(frBeam.VersY(), EPS_SMALL) Then
Return m_BTLPartM.dBtlH
Else
Return m_BTLPartM.dBtlW
End If
End Get
End Property
Public ReadOnly Property dBtlL As Double
Get
Return m_BTLPartM.dBtlL
End Get
End Property
Public Property sW As String
Get
Dim nOrigGroupId As Integer = nPartId
If Map.refMainMenuVM.SelPage = Pages.VIEW AndAlso EgtBeamGetBuildingIsOn() AndAlso Map.refShowBeamPanelVM.bShowAll Then
nOrigGroupId = GetOrigFrameGroup(nPartId)
End If
Dim frBeam As New Frame3d
EgtGetGroupGlobFrame(nOrigGroupId, frBeam)
If IsY(frBeam.VersX(), EPS_SMALL) Then
Return LenToString(m_BTLPartM.dBtlL, 3)
ElseIf IsY(frBeam.VersY(), EPS_SMALL) Then
Return LenToString(m_BTLPartM.dBtlH, 3)
Else
Return LenToString(m_BTLPartM.dBtlW, 3)
End If
End Get
Set(value As String)
Dim dVal As Double
If StringToLenAdv(value, dVal, True) Then
Dim dBtlL = m_BTLPartM.dBtlL
Dim dBtlW = m_BTLPartM.dBtlW
Dim dBtlH = m_BTLPartM.dBtlH
Dim frBeam As New Frame3d
EgtGetGroupGlobFrame(nPartId, frBeam)
If IsY(frBeam.VersX(), EPS_SMALL) Then
dBtlL = dVal
ElseIf IsY(frBeam.VersY(), EPS_SMALL) Then
dBtlH = dVal
Else
dBtlW = dVal
End If
SetBtlLHW(dBtlL, dBtlH, dBtlW)
End If
NotifyPropertyChanged(NameOf(sL))
NotifyPropertyChanged(NameOf(sH))
NotifyPropertyChanged(NameOf(sW))
ResetCalcTotalPart()
End Set
End Property
Public ReadOnly Property dW As Double
Get
Dim frBeam As New Frame3d
EgtGetGroupGlobFrame(nPartId, frBeam)
If IsY(frBeam.VersX(), EPS_SMALL) Then
Return m_BTLPartM.dBtlL
ElseIf IsY(frBeam.VersY(), EPS_SMALL) Then
Return m_BTLPartM.dBtlH
Else
Return m_BTLPartM.dBtlW
End If
End Get
End Property
Public ReadOnly Property dBtlW As Double
Get
Return m_BTLPartM.dBtlW
End Get
End Property
Public Property sH As String
Get
Dim nOrigGroupId As Integer = nPartId
If Map.refMainMenuVM.SelPage = Pages.VIEW AndAlso EgtBeamGetBuildingIsOn() AndAlso Map.refShowBeamPanelVM.bShowAll Then
nOrigGroupId = GetOrigFrameGroup(nPartId)
End If
Dim frBeam As New Frame3d
EgtGetGroupGlobFrame(nOrigGroupId, frBeam)
If IsZ(frBeam.VersX(), EPS_SMALL) Then
Return LenToString(m_BTLPartM.dBtlL, 3)
ElseIf IsZ(frBeam.VersY(), EPS_SMALL) Then
Return LenToString(m_BTLPartM.dBtlH, 3)
Else
Return LenToString(m_BTLPartM.dBtlW, 3)
End If
End Get
Set(value As String)
Dim dVal As Double
If StringToLenAdv(value, dVal, True) Then
Dim dBtlL = m_BTLPartM.dBtlL
Dim dBtlW = m_BTLPartM.dBtlW
Dim dBtlH = m_BTLPartM.dBtlH
Dim frBeam As New Frame3d
EgtGetGroupGlobFrame(nPartId, frBeam)
If IsZ(frBeam.VersX(), EPS_SMALL) Then
dBtlL = dVal
ElseIf IsZ(frBeam.VersY(), EPS_SMALL) Then
dBtlH = dVal
Else
dBtlW = dVal
End If
SetBtlLHW(dBtlL, dBtlH, dBtlW)
End If
NotifyPropertyChanged(NameOf(sL))
NotifyPropertyChanged(NameOf(sH))
NotifyPropertyChanged(NameOf(sW))
ResetCalcTotalPart()
End Set
End Property
Public ReadOnly Property dH As Double
Get
Dim frBeam As New Frame3d
EgtGetGroupGlobFrame(nPartId, frBeam)
If IsZ(frBeam.VersX(), EPS_SMALL) Then
Return m_BTLPartM.dBtlL
ElseIf IsZ(frBeam.VersY(), EPS_SMALL) Then
Return m_BTLPartM.dBtlH
Else
Return m_BTLPartM.dBtlW
End If
End Get
End Property
Public ReadOnly Property dBtlH As Double
Get
Return m_BTLPartM.dBtlH
End Get
End Property
#Region "Parametri pezzo"
Public Property nSINGLEMEMBERNUM As Integer
Get
Return m_BTLPartM.nSINGLEMEMBERNUM
End Get
Set(value As Integer)
If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_SINGLEMEMBERNUM, value) Then
m_BTLPartM.nSINGLEMEMBERNUM = value
Else
NotifyPropertyChanged(NameOf(nSINGLEMEMBERNUM))
End If
End Set
End Property
Public Property sASSEMBLYNUM As String
Get
Return m_BTLPartM.sASSEMBLYNUM
End Get
Set(value As String)
If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_ASSEMBLYNUM, value) Then
m_BTLPartM.sASSEMBLYNUM = value
Else
NotifyPropertyChanged(NameOf(sASSEMBLYNUM))
End If
End Set
End Property
Public Property nORDERNUM As Integer
Get
Return m_BTLPartM.nORDERNUM
End Get
Set(value As Integer)
If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_ORDERNUM, value) Then
m_BTLPartM.nORDERNUM = value
Else
NotifyPropertyChanged(NameOf(nORDERNUM))
End If
End Set
End Property
Public Property sDESIGN As String
Get
Return m_BTLPartM.sDESIGN
End Get
Set(value As String)
If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_DESIGNATION, value) Then
m_BTLPartM.sDESIGN = value
Else
NotifyPropertyChanged(NameOf(sDESIGN))
End If
End Set
End Property
Public Property sANNOT As String
Get
Return m_BTLPartM.sANNOT
End Get
Set(value As String)
If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_ANNOTATION, value) Then
m_BTLPartM.sANNOT = value
Else
NotifyPropertyChanged(NameOf(sANNOT))
End If
End Set
End Property
Public Property sSTOREY As String
Get
Return m_BTLPartM.sSTOREY
End Get
Set(value As String)
If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_STOREY, value) Then
m_BTLPartM.sSTOREY = value
Else
NotifyPropertyChanged(NameOf(sSTOREY))
End If
End Set
End Property
Public Property sGROUP As String
Get
Return m_BTLPartM.sGROUP
End Get
Set(value As String)
If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_GROUP, value) Then
m_BTLPartM.sGROUP = value
Else
NotifyPropertyChanged(NameOf(sGROUP))
End If
End Set
End Property
Public Property sPACKAGE As String
Get
Return m_BTLPartM.sPACKAGE
End Get
Set(value As String)
If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_PACKAGE, value) Then
m_BTLPartM.sPACKAGE = value
Else
NotifyPropertyChanged(NameOf(sPACKAGE))
End If
End Set
End Property
Public Property sMATERIAL As String
Get
Return m_BTLPartM.sMATERIAL
End Get
Set(value As String)
If value <> m_BTLPartM.sMATERIAL Then
If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_MATERIAL, value) Then
' verifico se ci sono altri pezzi con la sezione vecchia
Dim bOtherSection As Boolean = Map.refProjectVM.BTLStructureVM.BTLPartVMList.Any(Function(x) x IsNot Me AndAlso x.Section = Section)
Dim OldSection As SectionXMaterial = Nothing
If Not bOtherSection Then
' recupero indice
OldSection = Map.refProjectVM.BTLStructureVM.SectionList.FirstOrDefault(Function(x) x = Section)
End If
m_BTLPartM.sMATERIAL = value
' aggiorno sezione
If bOtherSection Then
' se sezione nuova non presente
If Not Map.refProjectVM.BTLStructureVM.SectionList.Contains(Section) Then
' creo nuova sezione
Map.refProjectVM.BTLStructureVM.SectionList.Add(Section)
End If
Else
' se sezione nuova gia' presente
If Map.refProjectVM.BTLStructureVM.SectionList.Contains(Section) Then
' cancello sezione vecchia
Map.refProjectVM.BTLStructureVM.SectionList.Remove(OldSection)
Else
' altrimenti la modifico
If Not IsNothing(OldSection) Then
OldSection.sMaterial.Clear()
OldSection.sMaterial.Add(sMATERIAL)
End If
End If
End If
End If
NotifyPropertyChanged(NameOf(sMATERIAL))
End If
End Set
End Property
Public Property sTIMBERGRADE As String
Get
Return m_BTLPartM.sTIMBERGRADE
End Get
Set(value As String)
If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_TIMBERGRADE, value) Then
m_BTLPartM.sTIMBERGRADE = value
Else
NotifyPropertyChanged(NameOf(sTIMBERGRADE))
End If
End Set
End Property
Public Property sQUALITYGRADE As String
Get
Return m_BTLPartM.sQUALITYGRADE
End Get
Set(value As String)
If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_QUALITYGRADE, value) Then
m_BTLPartM.sQUALITYGRADE = value
Else
NotifyPropertyChanged(NameOf(sQUALITYGRADE))
End If
End Set
End Property
Public ReadOnly Property PartColour As Brush
Get
Return New SolidColorBrush(Color.FromArgb(m_BTLPartM.colCOLOR.ToColor().A,
CByte(m_BTLPartM.colCOLOR.R),
CByte(m_BTLPartM.colCOLOR.G),
CByte(m_BTLPartM.colCOLOR.B)))
End Get
End Property
Public Property sCOLRGB As String
Get
Return m_BTLPartM.colCOLOR.R & "," &
m_BTLPartM.colCOLOR.G & "," &
m_BTLPartM.colCOLOR.B & "," &
nCOLA
End Get
Set(value As String)
Dim sValArray() As String = value.Split(",")
If sValArray.Count() >= 4 Then
m_BTLPartM.m_colCOLOR.R = Color3d.Clamp(sValArray(0), 0, 255)
m_BTLPartM.m_colCOLOR.G = Color3d.Clamp(sValArray(1), 0, 255)
m_BTLPartM.m_colCOLOR.B = Color3d.Clamp(sValArray(2), 0, 255)
m_BTLPartM.m_colCOLOR.A = Color3d.Clamp(nCOLA, 0, 100)
EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_COLOUR, m_BTLPartM.colCOLOR.ToString())
Else
NotifyPropertyChanged(NameOf(sCOLRGB))
End If
End Set
End Property
Public Property nCOLA As Integer
Get
Return m_BTLPartM.colCOLOR.A
End Get
Set(value As Integer)
If m_BTLPartM.colCOLOR.A <> value Then
m_BTLPartM.m_colCOLOR.A = Color3d.Clamp(value, 0, 100)
EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_COLOUR, m_BTLPartM.colCOLOR.ToString())
NotifyPropertyChanged(NameOf(nCOLA))
NotifyPropertyChanged(NameOf(PartColour))
End If
End Set
End Property
Public Property dPLANINGLEN As String
Get
Return LenToString(m_BTLPartM.dPLANINGLEN, 3)
End Get
Set(value As String)
Dim dTempPlaningLen As Double
If StringToLenAdv(value, dTempPlaningLen, True) AndAlso EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_PLANINGLENGTH, dTempPlaningLen) Then
m_BTLPartM.dPLANINGLEN = dTempPlaningLen
Else
NotifyPropertyChanged(NameOf(dPLANINGLEN))
End If
End Set
End Property
Public Property dSTARTOFFSET As String
Get
Return LenToString(m_BTLPartM.dSTARTOFFSET, 3)
End Get
Set(value As String)
Dim dTempStartOffset As Double
If StringToLenAdv(value, dTempStartOffset, True) AndAlso EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_STARTOFFSET, dTempStartOffset) Then
m_BTLPartM.dSTARTOFFSET = dTempStartOffset
Else
NotifyPropertyChanged(NameOf(dSTARTOFFSET))
End If
End Set
End Property
Public Property dENDOFFSET As String
Get
Return LenToString(m_BTLPartM.dENDOFFSET, 3)
End Get
Set(value As String)
Dim dTempEndOffset As Double
If StringToLenAdv(value, dTempEndOffset, True) AndAlso EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_ENDOFFSET, dTempEndOffset) Then
m_BTLPartM.dENDOFFSET = dTempEndOffset
Else
NotifyPropertyChanged(NameOf(dENDOFFSET))
End If
End Set
End Property
Public ReadOnly Property ocUID As ObservableCollection(Of Integer)
Get
Return m_BTLPartM.ocUID
End Get
End Property
Public Property SelUID As Integer
Get
Return m_BTLPartM.SelUID
End Get
Set(value As Integer)
If m_BTLPartM.SelUID <> value Then
m_BTLPartM.m_refTransf = m_BTLPartM.refTransfList(value)
m_BTLPartM.SelUID = value
NotifyPropertyChanged(NameOf(TransfOrig))
NotifyPropertyChanged(NameOf(TransfVersX))
NotifyPropertyChanged(NameOf(TransfVersY))
Else
NotifyPropertyChanged(NameOf(SelUID))
End If
End Set
End Property
Public Property TransfOrig As String
Get
If SelUID >= 0 AndAlso
SelUID < m_BTLPartM.refTransfList.Count AndAlso
Not IsNothing(m_BTLPartM.refTransfList(SelUID)) Then
Return LenToString(m_BTLPartM.refTransfList(SelUID).Orig().x, 3) & "," &
LenToString(m_BTLPartM.refTransfList(SelUID).Orig().y, 3) & "," &
LenToString(m_BTLPartM.refTransfList(SelUID).Orig().z, 3)
Else
Return Nothing
End If
End Get
Set(value As String)
Dim sValArray() As String = value.Split(",")
Dim ptOri As New Point3d
If sValArray.Count() >= 3 AndAlso
StringToLenAdv(sValArray(0), ptOri.x, True) AndAlso
StringToLenAdv(sValArray(1), ptOri.y, True) AndAlso
StringToLenAdv(sValArray(2), ptOri.z, True) AndAlso
m_BTLPartM.refTransf.ChangeOrigin(ptOri) Then
EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_TRANSFORMATION & (SelUID + 1), LenToString(m_BTLPartM.refTransf.Orig.x, 3) & "," &
LenToString(m_BTLPartM.refTransf.Orig.y, 3) & "," &
LenToString(m_BTLPartM.refTransf.Orig.z, 3) & "," &
DoubleToString(m_BTLPartM.refTransf.VersX.x, 6) & "," &
DoubleToString(m_BTLPartM.refTransf.VersX.y, 6) & "," &
DoubleToString(m_BTLPartM.refTransf.VersX.z, 6) & "," &
DoubleToString(m_BTLPartM.refTransf.VersY.x, 6) & "," &
DoubleToString(m_BTLPartM.refTransf.VersY.y, 6) & "," &
DoubleToString(m_BTLPartM.refTransf.VersY.z, 6))
Else
NotifyPropertyChanged(NameOf(TransfOrig))
End If
End Set
End Property
Public Property TransfVersX As String
Get
If SelUID >= 0 AndAlso
SelUID < m_BTLPartM.refTransfList.Count AndAlso
Not IsNothing(m_BTLPartM.refTransfList(SelUID)) Then
Return DoubleToString(m_BTLPartM.refTransfList(SelUID).VersX().x, 6) & "," &
DoubleToString(m_BTLPartM.refTransfList(SelUID).VersX().y, 6) & "," &
DoubleToString(m_BTLPartM.refTransfList(SelUID).VersX().z, 6)
Else
Return Nothing
End If
End Get
Set(value As String)
Dim ptOri As New Point3d(m_BTLPartM.refTransf.Orig())
Dim vtVersY As New Vector3d(m_BTLPartM.refTransf.VersY())
Dim sValArray() As String = value.Split(",")
Dim vtVersX As New Vector3d
If sValArray.Count() >= 3 AndAlso
StringToDoubleAdv(sValArray(0), vtVersX.x, True) AndAlso
StringToDoubleAdv(sValArray(1), vtVersX.y, True) AndAlso
StringToDoubleAdv(sValArray(2), vtVersX.z, True) AndAlso
m_BTLPartM.refTransf.Setup(ptOri, ptOri + vtVersX, ptOri + vtVersY) Then
EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_TRANSFORMATION & (SelUID + 1), LenToString(m_BTLPartM.refTransf.Orig.x, 3) & "," &
LenToString(m_BTLPartM.refTransf.Orig.y, 3) & "," &
LenToString(m_BTLPartM.refTransf.Orig.z, 3) & "," &
DoubleToString(m_BTLPartM.refTransf.VersX.x, 6) & "," &
DoubleToString(m_BTLPartM.refTransf.VersX.y, 6) & "," &
DoubleToString(m_BTLPartM.refTransf.VersX.z, 6) & "," &
DoubleToString(m_BTLPartM.refTransf.VersY.x, 6) & "," &
DoubleToString(m_BTLPartM.refTransf.VersY.y, 6) & "," &
DoubleToString(m_BTLPartM.refTransf.VersY.z, 6))
NotifyPropertyChanged(NameOf(TransfVersX))
NotifyPropertyChanged(NameOf(TransfVersY))
Else
NotifyPropertyChanged(NameOf(TransfVersX))
End If
End Set
End Property
Public Property TransfVersY As String
Get
If SelUID >= 0 AndAlso
SelUID < m_BTLPartM.refTransfList.Count AndAlso
Not IsNothing(m_BTLPartM.refTransfList(SelUID)) Then
Return DoubleToString(m_BTLPartM.refTransfList(SelUID).VersY().x, 6) & "," &
DoubleToString(m_BTLPartM.refTransfList(SelUID).VersY().y, 6) & "," &
DoubleToString(m_BTLPartM.refTransfList(SelUID).VersY().z, 6)
Else
Return Nothing
End If
End Get
Set(value As String)
Dim ptOri As New Point3d(m_BTLPartM.refTransf.Orig())
Dim vtVersX As New Vector3d(m_BTLPartM.refTransf.VersX())
Dim sValArray() As String = value.Split(",")
Dim vtVersY As New Vector3d
If sValArray.Count() >= 3 AndAlso
StringToDoubleAdv(sValArray(0), vtVersY.x, True) AndAlso
StringToDoubleAdv(sValArray(1), vtVersY.y, True) AndAlso
StringToDoubleAdv(sValArray(2), vtVersY.z, True) AndAlso
m_BTLPartM.refTransf.Setup(ptOri, ptOri + vtVersX, ptOri + vtVersY) Then
EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_TRANSFORMATION & (SelUID + 1), LenToString(m_BTLPartM.refTransf.Orig.x, 3) & "," &
LenToString(m_BTLPartM.refTransf.Orig.y, 3) & "," &
LenToString(m_BTLPartM.refTransf.Orig.z, 3) & "," &
DoubleToString(m_BTLPartM.refTransf.VersX.x, 6) & "," &
DoubleToString(m_BTLPartM.refTransf.VersX.y, 6) & "," &
DoubleToString(m_BTLPartM.refTransf.VersX.z, 6) & "," &
DoubleToString(m_BTLPartM.refTransf.VersY.x, 6) & "," &
DoubleToString(m_BTLPartM.refTransf.VersY.y, 6) & "," &
DoubleToString(m_BTLPartM.refTransf.VersY.z, 6))
NotifyPropertyChanged(NameOf(TransfVersX))
NotifyPropertyChanged(NameOf(TransfVersY))
Else
NotifyPropertyChanged(NameOf(TransfVersY))
End If
End Set
End Property
Public ReadOnly Property ocCAMBERSIDE As ObservableCollection(Of Integer)
Get
Return m_BTLPartM.ocCAMBERSIDE
End Get
End Property
Public Property SelCAMBERSIDE As Integer
Get
Return m_BTLPartM.SelCAMBERSIDE
End Get
Set(value As Integer)
Dim sValArray() As String = CamberParams.Split(",")
If sValArray.Count() >= 4 AndAlso
StringToLenAdv(sValArray(0), m_BTLPartM.m_dCamberLen1, True) AndAlso
StringToLenAdv(sValArray(1), m_BTLPartM.m_dCamberLen2, True) AndAlso
StringToLenAdv(sValArray(2), m_BTLPartM.m_dCamberLen3, True) AndAlso
StringToLenAdv(sValArray(3), m_BTLPartM.m_dCamberCross3, True) AndAlso
EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_CAMBER, "SIDE: " & (value + 1) &
" P01: " & sValArray(0) &
" P02: " & sValArray(1) &
" P03: " & sValArray(2) &
" P04: " & sValArray(3)) Then
m_BTLPartM.SelCAMBERSIDE = value
Else
NotifyPropertyChanged(NameOf(SelCAMBERSIDE))
End If
End Set
End Property
Public Property CamberParams As String
Get
Return LenToString(m_BTLPartM.m_dCamberLen1, 3) & "," &
LenToString(m_BTLPartM.m_dCamberLen2, 3) & "," &
LenToString(m_BTLPartM.m_dCamberLen3, 3) & "," &
LenToString(m_BTLPartM.m_dCamberCross3, 3)
End Get
Set(value As String)
Dim sValArray() As String = value.Split(",")
If sValArray.Count() >= 4 AndAlso
StringToLenAdv(sValArray(0), m_BTLPartM.m_dCamberLen1, True) AndAlso
StringToLenAdv(sValArray(1), m_BTLPartM.m_dCamberLen2, True) AndAlso
StringToLenAdv(sValArray(2), m_BTLPartM.m_dCamberLen3, True) AndAlso
StringToLenAdv(sValArray(3), m_BTLPartM.m_dCamberCross3, True) Then
EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_CAMBER, " SIDE: " & (SelCAMBERSIDE + 1) &
" P01: " & sValArray(0) &
" P02: " & sValArray(1) &
" P03: " & sValArray(2) &
" P04: " & sValArray(3))
Else
NotifyPropertyChanged(NameOf(CamberParams))
End If
End Set
End Property
Public ReadOnly Property ocREFSIDEFIXCLAMP As ObservableCollection(Of Object)
Get
Return m_BTLPartM.ocREFSIDEFIXCLAMP
End Get
End Property
Public Property SelREFSIDEFIXCLAMP As Integer
Get
Return m_BTLPartM.SelREFSIDEFIXCLAMP
End Get
Set(value As Integer)
Dim nValue As Integer = IdNameStruct.IdFromInd(value, ocREFSIDEFIXCLAMP)
Dim sValue As String = ocREFSIDEFIXCLAMP(nValue).Name '[Enum].GetName(GetType(PartOffset_RefSideFixClamp), nValue)
Dim sValArray() As String = PartOffsetParams.Split(",")
If sValArray.Count() >= 4 AndAlso
StringToLenAdv(sValArray(0), m_BTLPartM.m_dPartOffsetSide1, True) AndAlso
StringToLenAdv(sValArray(1), m_BTLPartM.m_dPartOffsetSide2, True) AndAlso
StringToLenAdv(sValArray(2), m_BTLPartM.m_dPartOffsetSide3, True) AndAlso
StringToLenAdv(sValArray(3), m_BTLPartM.m_dPartOffsetSide4, True) AndAlso
EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_PARTOFFSET, " P04: " & sValue &
" P11: " & sValArray(0) &
" P12: " & sValArray(1) &
" P13: " & sValArray(2) &
" P14: " & sValArray(3)) Then
m_BTLPartM.SelREFSIDEFIXCLAMP = value
Else
NotifyPropertyChanged(NameOf(SelREFSIDEFIXCLAMP))
End If
End Set
End Property
Public Property PartOffsetParams As String
Get
Return LenToString(m_BTLPartM.m_dPartOffsetSide1, 3) & "," &
LenToString(m_BTLPartM.m_dPartOffsetSide2, 3) & "," &
LenToString(m_BTLPartM.m_dPartOffsetSide3, 3) & "," &
LenToString(m_BTLPartM.m_dPartOffsetSide4, 3)
End Get
Set(value As String)
Dim nValue As Integer = IdNameStruct.IdFromInd(SelREFSIDEFIXCLAMP, ocREFSIDEFIXCLAMP)
Dim sValue As String = ocREFSIDEFIXCLAMP(nValue).Name '[Enum].GetName(GetType(PartOffset_RefSideFixClamp), nValue)
Dim sValArray() As String = value.Split(",")
If sValArray.Count() >= 4 AndAlso
StringToLenAdv(sValArray(0), m_BTLPartM.m_dPartOffsetSide1, True) AndAlso
StringToLenAdv(sValArray(1), m_BTLPartM.m_dPartOffsetSide2, True) AndAlso
StringToLenAdv(sValArray(2), m_BTLPartM.m_dPartOffsetSide3, True) AndAlso
StringToLenAdv(sValArray(3), m_BTLPartM.m_dPartOffsetSide4, True) Then
EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_PARTOFFSET, " P04: " & sValue &
" P11: " & sValArray(0) &
" P12: " & sValArray(1) &
" P13: " & sValArray(2) &
" P14: " & sValArray(3))
Else
NotifyPropertyChanged(NameOf(PartOffsetParams))
End If
End Set
End Property
Public ReadOnly Property ocPROCESSINGQUALITY As ObservableCollection(Of Object)
Get
Return m_BTLPartM.ocPROCESSINGQUALITY
End Get
End Property
Public Property SelPROCESSINGQUALITY As Integer
Get
Return m_BTLPartM.SelPROCESSINGQUALITY
End Get
Set(value As Integer)
Dim nValue As Integer = IdNameStruct.IdFromInd(value, ocPROCESSINGQUALITY)
Dim sValue As String = [Enum].GetName(GetType(ProcessingQuality), nValue)
If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_PROCESSINGQUALITY, sValue) Then
m_BTLPartM.SelPROCESSINGQUALITY = value
Else
NotifyPropertyChanged(NameOf(SelPROCESSINGQUALITY))
End If
End Set
End Property
Public ReadOnly Property ocRECESS As ObservableCollection(Of Object)
Get
Return m_BTLPartM.ocRECESS
End Get
End Property
Public Property SelRECESS As Integer
Get
Return m_BTLPartM.SelRECESS
End Get
Set(value As Integer)
Dim nValue As Integer = IdNameStruct.IdFromInd(value, ocRECESS)
Dim sValue As String = [Enum].GetName(GetType(Recess), nValue)
If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_RECESS, sValue) Then
m_BTLPartM.SelRECESS = value
Else
NotifyPropertyChanged(NameOf(SelRECESS))
End If
End Set
End Property
Public ReadOnly Property ocSTOREYTYPE As ObservableCollection(Of Object)
Get
Return m_BTLPartM.ocSTOREYTYPE
End Get
End Property
Public Property SelSTOREYTYPE As Integer
Get
Return m_BTLPartM.SelSTOREYTYPE
End Get
Set(value As Integer)
Dim nValue As Integer = IdNameStruct.IdFromInd(value, ocSTOREYTYPE)
Dim sValue As String = [Enum].GetName(GetType(StoreyType), nValue)
If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_STOREYTYPE, sValue) Then
m_BTLPartM.SelSTOREYTYPE = value
Else
NotifyPropertyChanged(NameOf(SelSTOREYTYPE))
End If
End Set
End Property
Public Property sELEMENTNUM As String
Get
Return m_BTLPartM.sELEMENTNUM
End Get
Set(value As String)
If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_ELEMENTNUM, value) Then
m_BTLPartM.sELEMENTNUM = value
Else
NotifyPropertyChanged(NameOf(sELEMENTNUM))
End If
End Set
End Property
Public Property nLAYER As Integer
Get
Return m_BTLPartM.nLAYER
End Get
Set(value As Integer)
If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_LAYER, value) Then
m_BTLPartM.nLAYER = value
Else
NotifyPropertyChanged(NameOf(nLAYER))
End If
End Set
End Property
Public Property sMODULENUM As String
Get
Return m_BTLPartM.sMODULENUM
End Get
Set(value As String)
If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_MODULENUM, value) Then
m_BTLPartM.sMODULENUM = value
Else
NotifyPropertyChanged(NameOf(sMODULENUM))
End If
End Set
End Property
Public Property sCOMMENT As String
Get
Return m_BTLPartM.sCOMMENT
End Get
Set(value As String)
If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_COMMENT, value) Then
m_BTLPartM.sCOMMENT = value
Else
NotifyPropertyChanged(NameOf(sCOMMENT))
End If
End Set
End Property
Public Property GrainDirection As String
Get
Return DoubleToString(m_BTLPartM.refGrainDir.x, 6) & "," &
DoubleToString(m_BTLPartM.refGrainDir.y, 6) & "," &
DoubleToString(m_BTLPartM.refGrainDir.z, 6)
End Get
Set(value As String)
Dim sValArray() As String = value.Split(",")
Dim dX, dY, dZ As Double
If sValArray.Count() >= 3 AndAlso
StringToDoubleAdv(sValArray(0), dX, True) AndAlso
StringToDoubleAdv(sValArray(1), dY, True) AndAlso
StringToDoubleAdv(sValArray(2), dZ, True) Then
m_BTLPartM.refGrainDir = New Vector3d(dX, dY, dZ)
EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_GRAINDIR, sValArray(0) & "," &
sValArray(1) & "," &
sValArray(2) & ";" &
If(bGRAINDIRALIGN, 1, 0))
Else
NotifyPropertyChanged(NameOf(GrainDirection))
End If
End Set
End Property
Public Property bGRAINDIRALIGN As Boolean
Get
Return m_BTLPartM.bGRAINDIRALIGN
End Get
Set(value As Boolean)
Dim sValArray() As String = GrainDirection.Split(",")
If sValArray.Count() >= 3 AndAlso
StringToDoubleAdv(sValArray(0), m_BTLPartM.refGrainDir.x, True) AndAlso
StringToDoubleAdv(sValArray(1), m_BTLPartM.refGrainDir.y, True) AndAlso
StringToDoubleAdv(sValArray(2), m_BTLPartM.refGrainDir.z, True) AndAlso
EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_GRAINDIR, sValArray(0) & "," &
sValArray(1) & "," &
sValArray(2) & ";" &
If(value, 1, 0)) Then
m_BTLPartM.bGRAINDIRALIGN = value
NotifyPropertyChanged(NameOf(bGRAINDIRALIGN))
End If
End Set
End Property
Public ReadOnly Property ocREFSIDE As ObservableCollection(Of Integer)
Get
Return m_BTLPartM.ocREFSIDE
End Get
End Property
Public Property SelREFSIDE As Integer
Get
Return m_BTLPartM.SelREFSIDE
End Get
Set(value As Integer)
If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_REFSIDE, (value + 1) & ";" & If(bREFSIDEALIGN, 1, 0)) Then
m_BTLPartM.SelREFSIDE = value
Else
NotifyPropertyChanged(NameOf(SelREFSIDE))
End If
End Set
End Property
Public Property bREFSIDEALIGN As Boolean
Get
Return m_BTLPartM.bREFSIDEALIGN
End Get
Set(value As Boolean)
If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_REFSIDE, (SelREFSIDE + 1) & ";" & If(value, 1, 0)) Then
m_BTLPartM.bREFSIDEALIGN = value
NotifyPropertyChanged(NameOf(bREFSIDEALIGN))
End If
End Set
End Property
Public ReadOnly Property ocALIGNLOCATION As ObservableCollection(Of Object)
Get
Return m_BTLPartM.ocALIGNLOCATION
End Get
End Property
Public Property SelALIGNLOCATION As Integer
Get
Return m_BTLPartM.SelALIGNLOCATION
End Get
Set(value As Integer)
Dim nValue As Integer = IdNameStruct.IdFromInd(value, ocALIGNLOCATION)
Dim sValueLoc As String = [Enum].GetName(GetType(AlignmentLocation), nValue)
nValue = IdNameStruct.IdFromInd(SelALIGNENDTYPE, ocALIGNENDTYPE)
Dim sValueEnd As String = [Enum].GetName(GetType(AlignmentEndtype), nValue)
If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_ALIGNMENT, sValueLoc & ": " & sValueEnd) Then
m_BTLPartM.SelALIGNLOCATION = value
Else
NotifyPropertyChanged(NameOf(SelALIGNLOCATION))
End If
End Set
End Property
Public ReadOnly Property ocALIGNENDTYPE As ObservableCollection(Of Object)
Get
Return m_BTLPartM.ocALIGNENDTYPE
End Get
End Property
Public Property SelALIGNENDTYPE As Integer
Get
Return m_BTLPartM.SelALIGNENDTYPE
End Get
Set(value As Integer)
Dim nValue As Integer = IdNameStruct.IdFromInd(SelALIGNLOCATION, ocALIGNLOCATION)
Dim sValueLoc As String = [Enum].GetName(GetType(AlignmentLocation), nValue)
nValue = IdNameStruct.IdFromInd(value, ocALIGNENDTYPE)
Dim sValueEnd As String = [Enum].GetName(GetType(AlignmentEndtype), nValue)
If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_ALIGNMENT, sValueLoc & ": " & sValueEnd) Then
m_BTLPartM.SelALIGNENDTYPE = value
Else
NotifyPropertyChanged(NameOf(SelALIGNENDTYPE))
End If
End Set
End Property
Public ReadOnly Property ocMATERIALTYPEGRP As ObservableCollection(Of Object)
Get
Return m_BTLPartM.ocMATERIALTYPEGRP
End Get
End Property
Public Property SelMATERIALTYPEGRP As Integer
Get
Return m_BTLPartM.SelMATERIALTYPEGRP
End Get
Set(value As Integer)
Dim nValue As Integer = IdNameStruct.IdFromInd(value, ocMATERIALTYPEGRP)
Dim sValue As String = ocMATERIALTYPEGRP(nValue).Name '[Enum].GetName(GetType(MaterialType), nValue)
If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_MATERIALTYPE, sValue & ": " & sMATERIALTYPESPEC) Then
m_BTLPartM.SelMATERIALTYPEGRP = value
Else
NotifyPropertyChanged(NameOf(SelMATERIALTYPEGRP))
End If
End Set
End Property
Public Property sMATERIALTYPESPEC As String
Get
Return m_BTLPartM.sMATERIALTYPESPEC
End Get
Set(value As String)
Dim nValue As Integer = IdNameStruct.IdFromInd(SelMATERIALTYPEGRP, ocMATERIALTYPEGRP)
Dim sValue As String = ocMATERIALTYPEGRP(nValue).Name '[Enum].GetName(GetType(MaterialType), nValue)
If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_MATERIALTYPE, sValue & ": " & value) Then
m_BTLPartM.sMATERIALTYPESPEC = value
Else
NotifyPropertyChanged(NameOf(sMATERIALTYPESPEC))
End If
End Set
End Property
#End Region ' Parametri pezzo
Public Property sCNT As String
Get
Return m_BTLPartM.nCNT
End Get
Set(value As String)
Dim nTempCNT As Integer
If Integer.TryParse(value, nTempCNT) AndAlso nTempCNT > 0 AndAlso EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_CNT, value) Then
m_BTLPartM.nCNT = nTempCNT
End If
NotifyPropertyChanged(NameOf(sCNT))
End Set
End Property
Public ReadOnly Property nCNT As Integer
Get
Return m_BTLPartM.nCNT
End Get
End Property
Public Property sADDED As String
Get
Return m_BTLPartM.nADDED
End Get
Set(value As String)
Dim nTempADDED As Integer
' verificare che non venga inserito unn numero minore di quelli gia' in prod!!!!! e dare messagio!!!
If Integer.TryParse(value, nTempADDED) AndAlso nTempADDED >= 0 Then
If nTempADDED >= nINPROD Then
m_BTLPartM.nADDED = nTempADDED
Else
MessageBox.Show(EgtMsg(61857), "", MessageBoxButton.OK, MessageBoxImage.Warning)
End If
End If
NotifyPropertyChanged(NameOf(sADDED))
End Set
End Property
Public ReadOnly Property nADDED As Integer
Get
Return m_BTLPartM.nADDED
End Get
End Property
Public ReadOnly Property nINPROD As Integer
Get
Dim nTotInProd As Integer = m_BTLPartM.nINPROD
' recupero numero di scrap
Dim nProjId As Integer = GDB_ID.NULL
EgtGetInfo(nPartId, PROJ, nProjId)
Dim nScrapCnt As Integer = DbControllers.m_ProjController.getCountItemState(nProjId, nPartId, ItemState.Scrapped)
If nScrapCnt > 0 Then nTotInProd -= nScrapCnt
Return nTotInProd
End Get
End Property
Public ReadOnly Property Foreground As SolidColorBrush
Get
Return If(nINPROD = nCNT + nADDED, Brushes.Green, Brushes.Black)
End Get
End Property
Public ReadOnly Property FontWeight As FontWeight
Get
Return If(nINPROD = nCNT + nADDED, FontWeights.Bold, FontWeights.Normal)
End Get
End Property
Public Property nDONE As Integer
Get
Dim nTotDone As Integer = 0
' recupero pezzi lavorati da Db
Dim nProjId As Integer = GDB_ID.NULL
EgtGetInfo(nPartId, PROJ, nProjId)
Dim nDoneCnt As Integer = DbControllers.m_ProjController.getCountItemState(nProjId, nPartId, ItemState.Produced)
Return nDoneCnt
End Get
Set(value As Integer)
Dim nTempDONE As Integer
If Integer.TryParse(value, nTempDONE) AndAlso nTempDONE > 0 AndAlso EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_DONE, value) Then
m_BTLPartM.nDONE = nTempDONE
End If
NotifyPropertyChanged(NameOf(nDONE))
End Set
End Property
Public ReadOnly Property Background As SolidColorBrush
Get
If nDONE = nCNT + nADDED Then
Return Brushes.Yellow
ElseIf nDONE > 0 AndAlso nDONE < nCNT + nADDED Then
Return Brushes.Orange
Else
Return Brushes.White
End If
End Get
End Property
Public ReadOnly Property sINVERTED As String
Get
Return m_BTLPartM.nINVERTED & "°"
End Get
End Property
Public ReadOnly Property nINVERTED As Integer
Get
Return m_BTLPartM.nINVERTED
End Get
End Property
Public Property bLockInversion As Boolean
Get
Return m_BTLPartM.bLockInversion
End Get
Set(value As Boolean)
If EgtSetInfo(nPartId, LOCK_FLIP, value) Then
m_BTLPartM.bLockInversion = value
NotifyPropertyChanged(NameOf(bLockInversion))
End If
End Set
End Property
Public ReadOnly Property sROTATED As String
Get
Return m_BTLPartM.nROTATED & "°"
End Get
End Property
Public ReadOnly Property nROTATED As Integer
Get
Return m_BTLPartM.nROTATED
End Get
End Property
Public Property bLockRotation As Boolean
Get
Return m_BTLPartM.bLockRotation
End Get
Set(value As Boolean)
If EgtSetInfo(nPartId, LOCK_ROT, value) Then
m_BTLPartM.bLockRotation = value
NotifyPropertyChanged(NameOf(bLockRotation))
End If
End Set
End Property
Public ReadOnly Property nCALC_ERR As Integer
Get
Return m_BTLPartM.nCALC_ERR
End Get
End Property
Public ReadOnly Property nCALC_FALL As Integer
Get
Return m_BTLPartM.nCALC_FALL
End Get
End Property
Public ReadOnly Property sCALC_MSG As String
Get
NotifyPropertyChanged(NameOf(CALC_MSG_Visibility))
Return m_BTLPartM.sCALC_MSG
End Get
End Property
Public Property nCALC_ROT As Integer
Get
Return m_BTLPartM.nCALC_ROT
End Get
Set(value As Integer)
m_BTLPartM.nCALC_ROT = value
End Set
End Property
Public Property nCALC_TIME As Integer
Get
Return m_BTLPartM.nCALC_TIME
End Get
Set(value As Integer)
m_BTLPartM.nCALC_TIME = value
End Set
End Property
Public Property nGlobalState As CalcStates
Get
Return m_BTLPartM.nGlobalState
End Get
Set(value As CalcStates)
m_BTLPartM.nGlobalState = value
End Set
End Property
Public ReadOnly Property nFeaturesGlobalState As CalcStates
Get
Return m_BTLPartM.nFeaturesGlobalState
End Get
End Property
Public Property nState As CalcStates
Get
Return m_BTLPartM.nState
End Get
Set(value As CalcStates)
m_BTLPartM.nState = value
End Set
End Property
Public ReadOnly Property Calc_BorderBrush As SolidColorBrush
Get
If Not m_BTLPartM.bDO Then Return Brushes.Aqua
Select Case m_BTLPartM.nGlobalState
Case CalcStates.ERROR_, CalcStates.COLLISION
Return Brushes.Red
Case CalcStates.WARNING
Return Brushes.Orange
Case CalcStates.INFO, CalcStates.OK
Return Brushes.Green
Case CalcStates.NOTCALCULATED
Return Brushes.LightGray
Case Else
Return Brushes.Red
End Select
End Get
End Property
Public ReadOnly Property CALC_ROT_Visibility As Visibility
Get
Return If(m_BTLPartM.nCALC_ROT <> 0, Visibility.Visible, Visibility.Collapsed)
End Get
End Property
Public ReadOnly Property CALC_FALL_Visibility As Visibility
Get
Return If(m_BTLPartM.nCALC_FALL <> 0, Visibility.Visible, Visibility.Collapsed)
End Get
End Property
Public ReadOnly Property CALC_ERR_Letter As String
Get
Select Case m_BTLPartM.m_nGlobalState
Case CalcStates.COLLISION
Return "c"
Case CalcStates.ERROR_
Return "e"
Case CalcStates.WARNING
Return "w"
Case CalcStates.INFO
Return "i"
Case Else
Return ""
End Select
End Get
End Property
Public ReadOnly Property CALC_ERR_Foreground As SolidColorBrush
Get
Select Case m_BTLPartM.m_nGlobalState
Case CalcStates.ERROR_, CalcStates.COLLISION
Return Brushes.Red
Case CalcStates.WARNING
Return Brushes.Orange
Case CalcStates.INFO
Return Brushes.Green
Case Else
Return Brushes.Red
End Select
End Get
End Property
Public ReadOnly Property CALC_MSG_Visibility As Visibility
Get
Return If(String.IsNullOrWhiteSpace(m_BTLPartM.sCALC_MSG), Visibility.Collapsed, Visibility.Visible)
End Get
End Property
Public ReadOnly Property Section As SectionXMaterial
Get
Dim nOrigGroupId As Integer = nPartId
If Map.refMainMenuVM.SelPage = Pages.VIEW AndAlso EgtBeamGetBuildingIsOn() AndAlso Map.refShowBeamPanelVM.bShowAll Then
nOrigGroupId = GetOrigFrameGroup(nPartId)
End If
Dim frBeam As New Frame3d
EgtGetGroupGlobFrame(nOrigGroupId, frBeam)
Dim dL As Double
If IsX(frBeam.VersX(), EPS_SMALL) Then
dL = m_BTLPartM.dBtlL
ElseIf IsX(frBeam.VersY(), EPS_SMALL) Then
dL = m_BTLPartM.dBtlH
Else
dL = m_BTLPartM.dBtlW
End If
Dim dW As Double
If IsY(frBeam.VersX(), EPS_SMALL) Then
dW = m_BTLPartM.dBtlL
ElseIf IsY(frBeam.VersY(), EPS_SMALL) Then
dW = m_BTLPartM.dBtlH
Else
dW = m_BTLPartM.dBtlW
End If
Dim dH As Double
If IsZ(frBeam.VersX(), EPS_SMALL) Then
dH = m_BTLPartM.dBtlL
ElseIf IsZ(frBeam.VersY(), EPS_SMALL) Then
dH = m_BTLPartM.dBtlH
Else
dH = m_BTLPartM.dBtlW
End If
Return New SectionXMaterial(dW, dH, dL, m_BTLPartM.sMATERIAL)
End Get
End Property
Public Property dUnitVolume As Double
Get
Return BTLPartM.dVolume
End Get
Set(value As Double)
If EgtSetInfo(nPartId, BTL_PRT_VOLUME, value) Then
m_BTLPartM.dVolume = value
Else
NotifyPropertyChanged(NameOf(dUnitVolume))
End If
End Set
End Property
Public ReadOnly Property sUnitVolume As String
Get
Return If(EgtUiUnitsAreMM(), DoubleToString(dUnitVolume / 1000000000, 3), DoubleToString(dUnitVolume * (12 / ONEINCH), 3))
End Get
End Property
Public ReadOnly Property sTotVolume As String
Get
Return If(EgtUiUnitsAreMM(), DoubleToString(dUnitVolume * (nCNT + nADDED) / 1000000000, 3), DoubleToString(dUnitVolume * (12 / ONEINCH) * nCNT, 3))
End Get
End Property
Public ReadOnly Property sUnitTime As String
Get
Return TimeSpan.FromSeconds(nCALC_TIME).ToString()
End Get
End Property
Public ReadOnly Property sTotTime As String
Get
Return TimeSpan.FromSeconds(nCALC_TIME * (nCNT + nADDED)).ToString()
End Get
End Property
Public Property bDOALL As Boolean?
Get
If BTLFeatureVMList.Count = 0 Then Return False
Dim bTemp As Boolean = BTLFeatureVMList(0).bDO
For FeatureIndex = 1 To BTLFeatureVMList.Count - 1
If BTLFeatureVMList(FeatureIndex).bDO <> bTemp Then Return Nothing
Next
Return bTemp
End Get
Set(value As Boolean?)
If BTLFeatureVMList.Count = 0 Then
NotifyPropertyChanged(NameOf(bDOALL))
Return
End If
' imposto modalita' update multiplo
BTLFeatureVM.bDO_MultipleUpdate = True
For FeatureIndex = 0 To BTLFeatureVMList.Count - 1
If FeatureIndex = BTLFeatureVMList.Count - 1 Then
' reset modalita' update multiplo
BTLFeatureVM.bDO_MultipleUpdate = False
End If
Dim Feature As BTLFeatureVM = BTLFeatureVMList(FeatureIndex)
Feature.bDO = value
Next
End Set
End Property
' lista delle feature del pezzo
Private m_BTLFeatureVMList_ViewSource As CollectionViewSource = Nothing
Private m_BTLFeatureVMList_View As ListCollectionView = Nothing
Public m_BTLFeatureVMList As ObservableCollection(Of BTLFeatureVM)
Public Property BTLFeatureVMList As ObservableCollection(Of BTLFeatureVM)
Get
Return m_BTLFeatureVMList
End Get
Set(value As ObservableCollection(Of BTLFeatureVM))
m_BTLFeatureVMList = value
End Set
End Property
Public ReadOnly Property BTLFeatureVMList_View As ListCollectionView
Get
Return m_BTLFeatureVMList_View
End Get
End Property
Private m_PrevSelBTLFeatureVM As BTLFeatureVM
Public m_SelBTLFeatureVM As BTLFeatureVM
Public Property SelBTLFeatureVM As BTLFeatureVM
Get
Return m_SelBTLFeatureVM
End Get
Set(value As BTLFeatureVM)
If Not IsNothing(m_PrevSelBTLFeatureVM) Then m_PrevSelBTLFeatureVM.DeselGeomFeature()
m_SelBTLFeatureVM = value
If Not IsNothing(m_SelBTLFeatureVM) Then
m_SelBTLFeatureVM.SelGeomFeature()
m_PrevSelBTLFeatureVM = value
Map.refPParameterListVM.SetCurrDraw(DirectCast(m_SelBTLFeatureVM, BTLFeatureVM).sDrawPath)
' deseleziono i parametri
If Not IsNothing(SelBTLFeatureVM.SelPBTLParam) Then SelBTLFeatureVM.SelPBTLParam = Nothing
' rinfresco bottoni freecontour
m_SelBTLFeatureVM.RefreshFCMBtnVisibility()
Map.refStatisticsTimePanelVM.SetViewPage_Visibility(Visibility.Visible)
Map.refStatisticsTimePanelVM.SetMachiningPage_Visibility(Visibility.Collapsed)
' Controlo se nPRC è 900 rendo visibile combobox Variant
If m_SelBTLFeatureVM.nPRC = 900 Then
Map.refFeatureManagerVM.SetVariant_Visibility(Visibility.Visible)
Dim nVariant As Integer = 0
If Integer.TryParse(m_SelBTLFeatureVM.sDES, nVariant) Then
m_SelBTLFeatureVM.nSelVARIANT = nVariant
End If
If m_SelBTLFeatureVM.nSelVARIANT > 0 AndAlso
System.IO.File.Exists(Map.refMainWindowVM.MainWindowM.sResourcesRoot & "\Features\" & m_SelBTLFeatureVM.sDescGRP & "." & m_SelBTLFeatureVM.sDES & ".png") Then
' imposto path disegno da mostrare in BottomPanel
Map.refPParameterListVM.SetCurrDraw(Map.refMainWindowVM.MainWindowM.sResourcesRoot & "\Features\" & m_SelBTLFeatureVM.sDescGRP & "." & m_SelBTLFeatureVM.sDES & ".png")
Else
Map.refPParameterListVM.SetCurrDraw(Map.refMainWindowVM.MainWindowM.sResourcesRoot & "\Features\" & m_SelBTLFeatureVM.sDescGRP & ".png")
End If
Else
Map.refFeatureManagerVM.SetVariant_Visibility(Visibility.Collapsed)
End If
' Forzo strategia
'Map.refForcedStrategyBTLVM.Init(m_SelBTLFeatureVM.BTLFeatureM)
Map.refForcedStrategyPanelVM.Init(m_SelBTLFeatureVM.BTLFeatureM)
'Else
' EgtDeselectAll()
End If
If Not IsNothing(Map.refFeatureListManagerVM) Then Map.refFeatureListManagerVM.FeatureSelectionChanged()
EgtDraw()
NotifyPropertyChanged(NameOf(SelBTLFeatureVM))
' se modalità building, la tolgo
If Not IsNothing(m_SelBTLFeatureVM) AndAlso Map.refShowBeamPanelVM.ShowBuilding_IsChecked Then
Map.refProjectVM.BTLStructureVM.ShowBuilding(False, False)
Map.refShowBeamPanelVM.SetShowBuilding(False)
End If
End Set
End Property
'Public Property SelBTLFeatureVMOnlyGraph As BTLFeatureVM
' Get
' Return m_SelBTLFeatureVM
' End Get
' Set(value As BTLFeatureVM)
' m_SelBTLFeatureVM = value
' If Not IsNothing(m_SelBTLFeatureVM) Then
' m_SelBTLFeatureVM.SelGeomFeature()
' ' deseleziono i parametri
' If Not IsNothing(SelBTLFeatureVM.SelPBTLParam) Then SelBTLFeatureVM.SelPBTLParam = Nothing
' End If
' If Not IsNothing(Map.refFeatureListManagerVM) Then Map.refFeatureListManagerVM.FeatureSelectionChanged()
' EgtResetCurrMachGroup()
' ResetSearchFound()
' Map.refStatisticsTimePanelVM.SetViewPage_Visibility(Visibility.Visible)
' Map.refStatisticsTimePanelVM.SetMachiningPage_Visibility(Visibility.Collapsed)
' EgtDraw()
' NotifyPropertyChanged(NameOf(SelBTLFeatureVM))
' NotifyPropertyChanged(NameOf(SelBTLFeatureVMOnlyGraph))
' ' se modalità building, la tolgo
' If Not IsNothing(m_SelBTLFeatureVM) AndAlso Map.refShowBeamPanelVM.ShowBuilding_IsChecked Then
' Map.refProjectVM.BTLStructureVM.ShowBuilding(False, False)
' Map.refShowBeamPanelVM.SetShowBuilding(False)
' End If
' End Set
'End Property
Private m_Calc_PartEnd As Boolean = False
Public ReadOnly Property Calc_PartEnd As Boolean
Get
Return m_Calc_PartEnd
End Get
End Property
Private m_bSearchFound As Boolean
Public ReadOnly Property bSearchFound As Boolean
Get
Return m_bSearchFound
End Get
End Property
Friend Sub SetSearchFound()
m_bSearchFound = True
NotifyPropertyChanged(NameOf(Search_Background))
End Sub
Friend Sub ResetSearchFound()
m_bSearchFound = False
NotifyPropertyChanged(NameOf(Search_Background))
End Sub
Public ReadOnly Property Search_Background As SolidColorBrush
Get
Return If(m_bSearchFound, Brushes.Purple, Brushes.Transparent)
End Get
End Property
Private m_bOpenFeatureList As Boolean = False
Public Property bOpenFeatureList As Boolean
Get
Return m_bOpenFeatureList
End Get
Set(value As Boolean)
m_bOpenFeatureList = value
End Set
End Property
Friend Sub SetOpenFeatureList(Value As Boolean)
m_bOpenFeatureList = Value
NotifyPropertyChanged(NameOf(bOpenFeatureList))
End Sub
Private m_IsSettingBtnOpen As Boolean = False
Public Property IsSettingBtnOpen As Boolean
Get
Return m_IsSettingBtnOpen
End Get
Set(value As Boolean)
m_IsSettingBtnOpen = value
End Set
End Property
Friend Sub SetIsSettingBtnOpen(bIsSettingBtnOpen As Boolean)
m_IsSettingBtnOpen = bIsSettingBtnOpen
NotifyPropertyChanged(NameOf(IsSettingBtnOpen))
End Sub
Public Property IsInverted As Boolean
Get
Return BTLPartM.nINVERTED = 180
End Get
Set(value As Boolean)
' eseguo inversione
m_BTLPartM.Inversion(Map.refProjectVM.BTLStructureVM.nPROJTYPE)
' setto part e tutte le feature da ricalcolare
ResetCalcTotalPart()
EgtDraw()
' imposto lock
bLockInversion = True
NotifyPropertyChanged(NameOf(IsInverted))
End Set
End Property
Private m_IsRowEnabled As Boolean = True
Public ReadOnly Property IsRowEnabled As Boolean
Get
Return m_IsRowEnabled
End Get
End Property
Friend Sub SetIsRowEnabled(bIsRowEnabled As Boolean)
m_IsRowEnabled = bIsRowEnabled
NotifyPropertyChanged(NameOf(IsRowEnabled))
End Sub
' Definizione comandi
Private m_cmdInvert As ICommand
Private m_cmdBackRotation As ICommand
Private m_cmdForwardRotation As ICommand
Private m_cmdXRotation As ICommand
Private m_cmdPartColour As ICommand
Private m_cmdShowPopUpSettingBtnCmd As ICommand
Private m_cmdVerify As ICommand
Private m_cmdAddToRawPart As ICommand
#Region "MESSAGES"
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 ForwardRotation_ToolTip As String
Get
Return EgtMsg(61997)
End Get
End Property
Public ReadOnly Property Verify_ToolTip As String
Get
Return EgtMsg(61901)
End Get
End Property
Public ReadOnly Property AddToRawPart_ToolTip As String
Get
Return EgtMsg(61904)
End Get
End Property
#End Region
#End Region ' FIELDS & PROPERTIES
#Region "CONSTRUCTOR"
Sub New(BTLPartM As BTLPartM, BTLStructureM As BTLStructureM)
m_BTLPartM = BTLPartM
AddHandler m_BTLPartM.BTLFeatureAdded, AddressOf OnBTLFeatureAdded
m_BTLStructureM = BTLStructureM
CreateBTLFeatureVMList()
m_BTLFeatureVMList_ViewSource = New CollectionViewSource With {.Source = m_BTLFeatureVMList}
m_BTLFeatureVMList_View = m_BTLFeatureVMList_ViewSource.View
m_BTLFeatureVMList_View.CustomSort = New FeatureSorter
m_BTLFeatureVMList_View.Filter = AddressOf FeatureFilter
' Aggiorno check DOALL
NotifyPropertyChanged(NameOf(bDOALL))
' Aggiorno stato da stati feature
CalcGlobalUpdate()
NotifyPropertyChanged(NameOf(CALC_FALL_Visibility))
NotifyPropertyChanged(NameOf(IsInverted))
End Sub
Private Function FeatureFilter(Feature As Object) As Boolean
Return BTLFeatureVMList.IndexOf(Feature) < 30
End Function
Public Class FeatureSorter
Implements IComparer
Public Function Compare(x As Object, y As Object) As Integer Implements IComparer.Compare
Dim FeatureX As BTLFeatureVM = x
Dim FeatureY As BTLFeatureVM = y
Return -FeatureX.nCALC_ERR.CompareTo(FeatureY.nCALC_ERR)
End Function
End Class
#End Region ' CONSTRUCTOR
#Region "METHODS"
Private Sub CreateBTLFeatureVMList()
Dim all As List(Of BTLFeatureVM) = (From BTLFeatureM In m_BTLPartM.GetBTLFeatures()
Select New BTLFeatureVM(BTLFeatureM, m_BTLPartM)).ToList()
For Each BTLFeatureVM As BTLFeatureVM In all
AddHandler BTLFeatureVM.PropertyChanged, AddressOf OnBTLFeatureVMPropertyChanged
For Each BTLParamVM As BTLParamVM In BTLFeatureVM.PBTLParamVMList
AddHandler BTLParamVM.PropertyChanged, AddressOf OnBTLPParamVMPropertyChanged
Next
AddHandler BTLFeatureVM.PBTLParamVMList.CollectionChanged, AddressOf OnBTLPParamVMListChanged
For Each BTLParamVM As BTLParamVM In BTLFeatureVM.QBTLParamVMList
AddHandler BTLParamVM.PropertyChanged, AddressOf OnBTLQParamVMPropertyChanged
Next
AddHandler BTLFeatureVM.QBTLParamVMList.CollectionChanged, AddressOf OnBTLQParamVMListChanged
Next
m_BTLFeatureVMList = New ObservableCollection(Of BTLFeatureVM)(all)
AddHandler m_BTLFeatureVMList.CollectionChanged, AddressOf OnBTLFeatureVMListChanged
End Sub
Public Sub Rotation(IsPositive As Boolean, SelectedMachineType As MachineType, Optional bRedraw As Boolean = True, Optional dAng As Double = 90, Optional bVerifyDuplo As Boolean = True)
Dim OldSection As SectionXMaterial = Section
If m_BTLPartM.Rotation(IsPositive, SelectedMachineType, bRedraw, dAng) Then
' aggiorno visualizzazione dimensioni
NotifyPropertyChanged(NameOf(sW))
NotifyPropertyChanged(NameOf(sH))
NotifyPropertyChanged(NameOf(sL))
' setto part e tutte le feature da ricalcolare
ResetCalcTotalPart()
' aggiorno sezioni
Map.refProjectVM.BTLStructureVM.UpdateSection(Section, OldSection)
End If
NotifyPropertyChanged(NameOf(sROTATED))
End Sub
' funzione che aggiorna lo stato e gli errori dopo calcolo
Friend Sub CalcPartUpdate(ERR As Integer, ROT As Integer, MSG As String)
EgtSetInfo(nPartId, ITG_PROJ_ERR, ERR, True)
EgtSetInfo(nPartId, ITG_PROJ_MSG, MSG, True)
EgtSetInfo(nPartId, ITG_PROJ_ROT, ROT, True)
m_BTLPartM.nCALC_ERR = ERR
m_BTLPartM.nCALC_ROT = ROT
m_BTLPartM.sCALC_MSG = MSG
Select Case ERR
Case 0
nState = CalcStates.OK
Case 22
nState = CalcStates.COLLISION
Case 17, 19
nState = CalcStates.WARNING
Case < 0
nState = CalcStates.INFO
Case > 0
nState = CalcStates.ERROR_
End Select
NotifyPropertyChanged(NameOf(Calc_BorderBrush))
NotifyPropertyChanged(NameOf(CALC_ERR_Letter))
NotifyPropertyChanged(NameOf(CALC_ERR_Foreground))
NotifyPropertyChanged(NameOf(sCALC_MSG))
End Sub
Friend Sub ResetCalcPart()
EgtRemoveInfo(nPartId, ITG_PROJ_ERR)
EgtRemoveInfo(nPartId, ITG_PROJ_MSG)
EgtRemoveInfo(nPartId, ITG_PROJ_ROT)
EgtRemoveInfo(nPartId, ITG_PROJ_FALL)
m_BTLPartM.nGlobalState = CalcStates.NOTCALCULATED
m_BTLPartM.nState = CalcStates.NOTCALCULATED
m_BTLPartM.nCALC_GlobalERR = 0
m_BTLPartM.nCALC_ERR = 0
m_BTLPartM.nCALC_ROT = 0
m_BTLPartM.nCALC_FALL = 0
m_BTLPartM.sCALC_MSG = ""
' aggiorno lista feature in iconcina calcolo
BTLFeatureVMList_View.Refresh()
NotifyPropertyChanged(NameOf(Calc_BorderBrush))
NotifyPropertyChanged(NameOf(CALC_FALL_Visibility))
NotifyPropertyChanged(NameOf(CALC_ROT_Visibility))
NotifyPropertyChanged(NameOf(CALC_ERR_Letter))
NotifyPropertyChanged(NameOf(CALC_ERR_Foreground))
NotifyPropertyChanged(NameOf(sCALC_MSG))
End Sub
Friend Sub ResetCalcTotalPart()
ResetCalcPart()
For Each Feature In m_BTLFeatureVMList
Feature.ResetCalcFeature()
Next
End Sub
Friend Sub CalcFallUpdate(FALL As Integer)
EgtSetInfo(nPartId, ITG_PROJ_FALL, FALL, True)
m_BTLPartM.nCALC_FALL = FALL
NotifyPropertyChanged(NameOf(CALC_FALL_Visibility))
End Sub
Friend Sub CalcTimeUpdate(TIME As Integer)
EgtSetInfo(nPartId, ITG_PROJ_TIME, TIME, True)
m_BTLPartM.nCALC_TIME = TIME
NotifyPropertyChanged(NameOf(sTotTime))
NotifyPropertyChanged(NameOf(sUnitTime))
End Sub
' funzione che aggiorna lo stato e gli errori dopo calcolo
Friend Sub CalcGlobalUpdate(Optional bFeatureFirst As Boolean = False)
m_BTLPartM.nCALC_GlobalERR = nCALC_ERR
m_BTLPartM.nGlobalState = nState
m_BTLPartM.nFeaturesGlobalState = CalcStates.NOTCALCULATED
If nState > CalcStates.NOTCALCULATED Then
For Each Feature In BTLFeatureVMList
If Not Feature.bDO And Not bFeatureFirst Then
If Feature.nState = CalcStates.COLLISION AndAlso Feature.nState > m_BTLPartM.nGlobalState Then
m_BTLPartM.nGlobalState = Feature.nState
m_BTLPartM.nCALC_GlobalERR = Feature.nCALC_ERR
Else
Continue For
End If
End If
If ((Feature.nState = CalcStates.NOTCALCULATED And nState < CalcStates.WARNING) Or Not Feature.bDO) And bFeatureFirst Then
m_BTLPartM.nGlobalState = Feature.nState
m_BTLPartM.nCALC_GlobalERR = Feature.nCALC_ERR
EgtRemoveInfo(nPartId, ITG_PROJ_ERR)
Exit For
ElseIf Feature.nState = CalcStates.NOTCALCULATED And nState < CalcStates.WARNING Then
m_BTLPartM.nGlobalState = Feature.nState
m_BTLPartM.nCALC_GlobalERR = Feature.nCALC_ERR
EgtRemoveInfo(nPartId, ITG_PROJ_ERR)
Exit For
ElseIf Feature.nState > m_BTLPartM.nGlobalState Then
m_BTLPartM.nGlobalState = Feature.nState
m_BTLPartM.nCALC_GlobalERR = Feature.nCALC_ERR
End If
If Feature.nState > m_BTLPartM.nFeaturesGlobalState Then
m_BTLPartM.nFeaturesGlobalState = Feature.nState
End If
If Feature.nCALC_ROT <> 0 Then
m_BTLPartM.m_nCALC_ROT = Feature.nCALC_ROT
End If
Next
If m_BTLPartM.nGlobalState = CalcStates.NOTCALCULATED Then
EgtRemoveInfo(nPartId, ITG_PROJ_ERR)
End If
End If
NotifyPropertyChanged(NameOf(Calc_BorderBrush))
NotifyPropertyChanged(NameOf(CALC_ROT_Visibility))
NotifyPropertyChanged(NameOf(CALC_ERR_Letter))
NotifyPropertyChanged(NameOf(CALC_ERR_Foreground))
NotifyPropertyChanged(NameOf(sCALC_MSG))
m_Calc_PartEnd = True
End Sub
Friend Sub ResetCalcPartEnd()
m_Calc_PartEnd = False
End Sub
Public Function Copy() As BTLPartM
' creo nuovo part
Dim nNewPartId As Integer = EgtBeamCreatePart()
If nNewPartId = GDB_ID.NULL Then Return Nothing
' scrivo info proj
If Not IsNothing(Map.refOnlyProdManagerVM) Then
EgtSetInfo(nNewPartId, BTL_PRT_PROJ, ProjectManagerVM.CurrProd.nProjIdList(0))
End If
EgtBeamSetPartProdNbr(m_BTLStructureM.NewPDN())
EgtBeamSetPartName(m_BTLPartM.sNAM)
EgtBeamSetPartCount(m_BTLPartM.nCNT)
EgtBeamSetPartBox(m_BTLPartM.dBtlL, m_BTLPartM.dBtlH, m_BTLPartM.dBtlW)
EgtSetInfo(nNewPartId, BTL_PRT_DO, m_BTLPartM.bDO)
EgtSetInfo(nNewPartId, BTL_PRT_CNT, m_BTLPartM.m_nCNT)
EgtSetInfo(nNewPartId, BTL_PRT_ADDED, m_BTLPartM.m_nADDED)
EgtSetInfo(nNewPartId, BTL_PRT_ASSEMBLYNUM, m_BTLPartM.m_sASSEMBLYNUM)
EgtSetInfo(nNewPartId, BTL_PRT_ORDERNUM, m_BTLPartM.m_nORDERNUM)
EgtSetInfo(nNewPartId, BTL_PRT_DESIGNATION, m_BTLPartM.m_sDESIGN)
EgtSetInfo(nNewPartId, BTL_PRT_ANNOTATION, m_BTLPartM.m_sANNOT)
EgtSetInfo(nNewPartId, BTL_PRT_STOREY, m_BTLPartM.m_sSTOREY)
EgtSetInfo(nNewPartId, BTL_PRT_GROUP, m_BTLPartM.m_sGROUP)
EgtSetInfo(nNewPartId, BTL_PRT_PACKAGE, m_BTLPartM.m_sPACKAGE)
EgtSetInfo(nNewPartId, BTL_PRT_TIMBERGRADE, m_BTLPartM.m_sTIMBERGRADE)
EgtSetInfo(nNewPartId, BTL_PRT_QUALITYGRADE, m_BTLPartM.m_sQUALITYGRADE)
EgtSetInfo(nNewPartId, BTL_PRT_COLOUR, m_BTLPartM.m_colCOLOR.ToString())
EgtSetInfo(nNewPartId, BTL_PRT_PLANINGLENGTH, m_BTLPartM.m_dPLANINGLEN)
EgtSetInfo(nNewPartId, BTL_PRT_STARTOFFSET, m_BTLPartM.m_dSTARTOFFSET)
EgtSetInfo(nNewPartId, BTL_PRT_ENDOFFSET, m_BTLPartM.m_dENDOFFSET)
Dim ind As Integer = 1
For Each UIDItem In m_BTLPartM.m_ocUID
EgtSetInfo(nNewPartId, BTL_PRT_UID & ind, UIDItem)
EgtSetInfo(nNewPartId, BTL_PRT_TRANSFORMATION & ind, LenToString(m_BTLPartM.refTransf.Orig.x, 3) & "," &
LenToString(m_BTLPartM.refTransf.Orig.y, 3) & "," &
LenToString(m_BTLPartM.refTransf.Orig.z, 3) & "," &
DoubleToString(m_BTLPartM.refTransf.VersX.x, 6) & "," &
DoubleToString(m_BTLPartM.refTransf.VersX.y, 6) & "," &
DoubleToString(m_BTLPartM.refTransf.VersX.z, 6) & "," &
DoubleToString(m_BTLPartM.refTransf.VersY.x, 6) & "," &
DoubleToString(m_BTLPartM.refTransf.VersY.y, 6) & "," &
DoubleToString(m_BTLPartM.refTransf.VersY.z, 6))
Next
EgtSetInfo(nNewPartId, BTL_PRT_CAMBER, " SIDE: " & (m_BTLPartM.SelCAMBERSIDE + 1) &
" P01: " & LenToString(m_BTLPartM.m_dCamberLen1, 3) &
" P02: " & LenToString(m_BTLPartM.m_dCamberLen2, 3) &
" P03: " & LenToString(m_BTLPartM.m_dCamberLen3, 3) &
" P04: " & LenToString(m_BTLPartM.m_dCamberCross3, 3))
Dim nValue As Integer = IdNameStruct.IdFromInd(m_BTLPartM.SelREFSIDEFIXCLAMP, ocREFSIDEFIXCLAMP)
Dim sValue As String = ocREFSIDEFIXCLAMP(nValue).Name
EgtSetInfo(nNewPartId, BTL_PRT_PARTOFFSET, " P04: " & sValue &
" P11: " & m_BTLPartM.m_dPartOffsetSide1 &
" P12: " & m_BTLPartM.m_dPartOffsetSide2 &
" P13: " & m_BTLPartM.m_dPartOffsetSide3 &
" P14: " & m_BTLPartM.m_dPartOffsetSide4)
If m_BTLPartM.m_SelPROCESSINGQUALITY > -1 Then
nValue = IdNameStruct.IdFromInd(m_BTLPartM.m_SelPROCESSINGQUALITY, ocPROCESSINGQUALITY)
sValue = [Enum].GetName(GetType(ProcessingQuality), nValue)
EgtSetInfo(nNewPartId, BTL_PRT_PROCESSINGQUALITY, sValue)
End If
If m_BTLPartM.m_SelRECESS > -1 Then
nValue = IdNameStruct.IdFromInd(m_BTLPartM.m_SelRECESS, ocRECESS)
sValue = [Enum].GetName(GetType(Recess), nValue)
EgtSetInfo(nNewPartId, BTL_PRT_RECESS, sValue)
End If
If m_BTLPartM.m_SelSTOREYTYPE > -1 Then
nValue = IdNameStruct.IdFromInd(m_BTLPartM.m_SelSTOREYTYPE, ocSTOREYTYPE)
sValue = [Enum].GetName(GetType(StoreyType), nValue)
EgtSetInfo(nNewPartId, BTL_PRT_STOREYTYPE, sValue)
End If
EgtSetInfo(nNewPartId, BTL_PRT_ELEMENTNUM, m_BTLPartM.m_sELEMENTNUM)
EgtSetInfo(nNewPartId, BTL_PRT_LAYER, m_BTLPartM.m_nLAYER)
EgtSetInfo(nNewPartId, BTL_PRT_MODULENUM, m_BTLPartM.m_sMODULENUM)
'EgtSetInfo(nNewPartId, BTL_PRT_USERATTRIBUTE, m_sUSERATTRIBUTE)
EgtSetInfo(nNewPartId, BTL_PRT_COMMENT, m_BTLPartM.m_sCOMMENT)
EgtSetInfo(nNewPartId, BTL_PRT_GRAINDIR, m_BTLPartM.refGrainDir.x & "," &
m_BTLPartM.refGrainDir.y & "," &
m_BTLPartM.refGrainDir.z & ";" &
If(m_BTLPartM.bGRAINDIRALIGN, 1, 0))
EgtSetInfo(nNewPartId, BTL_PRT_REFSIDE, (m_BTLPartM.m_SelREFSIDE + 1) & ";" & If(m_BTLPartM.bREFSIDEALIGN, 1, 0))
nValue = IdNameStruct.IdFromInd(m_BTLPartM.SelALIGNLOCATION, ocALIGNLOCATION)
Dim sValueLoc As String = [Enum].GetName(GetType(AlignmentLocation), nValue)
nValue = IdNameStruct.IdFromInd(SelALIGNENDTYPE, ocALIGNENDTYPE)
Dim sValueEnd As String = [Enum].GetName(GetType(AlignmentEndtype), nValue)
EgtSetInfo(nNewPartId, BTL_PRT_ALIGNMENT, sValueLoc & ": " & sValueEnd)
nValue = IdNameStruct.IdFromInd(m_BTLPartM.SelMATERIALTYPEGRP, ocMATERIALTYPEGRP)
sValue = ocMATERIALTYPEGRP(nValue).Name
EgtSetInfo(nNewPartId, BTL_PRT_MATERIALTYPE, sValue & ": " & m_BTLPartM.sMATERIALTYPESPEC)
EgtSetInfo(nNewPartId, BTL_PRT_ROTATED, m_BTLPartM.nROTATED)
EgtSetInfo(nNewPartId, BTL_PRT_INVERTED, m_BTLPartM.nINVERTED)
EgtSetInfo(nNewPartId, BTL_PRT_MATERIAL, m_BTLPartM.m_sMATERIAL)
' aggiungo dati pezzo
Dim NewPart As BTLPartM = BTLPartM.CreateBTLPart(nNewPartId)
'aggiungo tutte le sue feature
For Each Feature In m_BTLFeatureVMList
Feature.Copy(NewPart)
Next
' recupero box del pezzo
Dim b3Part As New BBox3d
EgtGetBBoxGlob(nNewPartId, GDB_BB.STANDARD, b3Part)
' ripristino le rotazioni di ROT e FLIP
If Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.BEAM Then
EgtRotate(nNewPartId, b3Part.Center, Vector3d.X_AX, nROTATED)
EgtRotate(nNewPartId, b3Part.Center, Vector3d.Z_AX, nINVERTED)
Else
EgtRotate(nNewPartId, b3Part.Center, -Vector3d.Z_AX, nROTATED)
EgtRotate(nNewPartId, b3Part.Center, Vector3d.X_AX, nINVERTED)
End If
' aggiungo pezzo alla lista
m_BTLStructureM.AddBTLPart(NewPart)
Return NewPart
End Function
' funzione che aggiorna tutte le feature dopo modifica dimensioni pezzo
Private Sub UpdateFeatures()
' ricalcolo tutte le feature contenute
For Each Feature In m_BTLFeatureVMList
Feature.BTLFeatureM.UpdateParams(False)
' setto feature da ricalcolare
Feature.ResetCalcFeature()
Next
EgtBeamUpdatePart()
End Sub
Friend Sub AddNewPartToAdded(Optional PartQty As Integer = 1)
m_BTLPartM.nADDED += PartQty
NotifyPropertyChanged(NameOf(sADDED))
End Sub
Friend Sub RefreshPartInProd()
NotifyPropertyChanged(NameOf(nINPROD))
NotifyPropertyChanged(NameOf(Foreground))
NotifyPropertyChanged(NameOf(FontWeight))
End Sub
Friend Function CanAddPartToCount(Optional Qty As Integer = 1, Optional ByRef Added As Integer = 0) As Boolean
' verifico se ci sono pezzi da aggiungere
Added = Math.Min(Qty, m_BTLPartM.nCNT + m_BTLPartM.nADDED - m_BTLPartM.nINPROD)
Return Qty = Added
End Function
' funzione che dato l'Id di un Part(Duplo) restituisce il BTLPart di origine
Friend Shared Function RetrieveBTLPartFromPart(nPartId As Integer) As BTLPartVM
Dim BTLPartId As Integer = MyMachGroupPanelM.DuploGetOriginal(nPartId)
Return Map.refProjectVM.BTLStructureVM.BTLPartVMList.FirstOrDefault(Function(x) x.nPartId = BTLPartId)
End Function
' funzione che calcola il volume del pezzo
Friend Sub CalcBTLPartVolume()
Select Case Map.refProjectVM.BTLStructureVM.nPROJTYPE
Case MachineType.BEAM
dUnitVolume = dBtlH * dBtlW * dBtlL
Case MachineType.WALL
Dim nOutlineLayerId As Integer = EgtGetFirstNameInGroup(nPartId, OUTLINE)
' cerco Id feature
Dim nOutlineFeatureId = GDB_ID.NULL
For Each Feature In BTLFeatureVMList
If Feature.nPRC = 251 Then nOutlineFeatureId = Feature.nFeatureId
Exit For
Next
' recupero AuxId
If nOutlineFeatureId <> GDB_ID.NULL Then
Dim nAuxId As Integer = 0
If EgtGetInfo(nOutlineFeatureId, BTL_FTR_AUXID, nAuxId) Then
nOutlineFeatureId += nAuxId
End If
' calcolo area
Dim dArea As Double = 0
Dim vtN As New Vector3d
Dim dDist As Double = 0
EgtCurveArea(nOutlineFeatureId, vtN, dDist, dArea)
dUnitVolume = dArea * dH
Else
dUnitVolume = dBtlH * dBtlW * dBtlL
End If
End Select
End Sub
Private Function VerifyPartCount(SelParts As List(Of BTLPartVM)) As Boolean
' verifico se ci sono pezzi da aggiungere
Dim ToAddList As New List(Of String)
Dim ToAddVM As New List(Of BTLPartVM)
For Each SelPart In SelParts
If Not SelPart.CanAddPartToCount Then
ToAddList.Add(SelPart.nCNT & EgtMsg(61864) & SelPart.nADDED & EgtMsg(61865))
ToAddVM.Add(SelPart)
End If
Next
' se non ci sono, chiedo se aggiungerne uno nuovo
If ToAddList.Count > 0 Then
Dim sMessage As String = EgtMsg(61863) & Environment.NewLine
For Each sPart In ToAddList
sMessage &= " - " & sPart & Environment.NewLine
Next
If MessageBox.Show(sMessage & EgtMsg(61893), "", MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
For Each PartVM In ToAddVM
PartVM.AddNewPartToAdded()
Next
Else
Return False
End If
End If
Return True
End Function
#End Region ' METHODS
#Region "COMMANDS"
#Region "Invert"
Public ReadOnly Property Invert_Command As ICommand
Get
If m_cmdInvert Is Nothing Then
m_cmdInvert = New Command(AddressOf Invert)
End If
Return m_cmdInvert
End Get
End Property
Public Sub Invert()
' eseguo inversione
m_BTLPartM.Inversion(Map.refProjectVM.BTLStructureVM.nPROJTYPE)
' setto part e tutte le feature da ricalcolare
ResetCalcTotalPart()
EgtDraw()
' imposto lock
bLockInversion = True
NotifyPropertyChanged(NameOf(sINVERTED))
End Sub
#End Region ' Invert
#Region "BackRotation"
Public ReadOnly Property BackRotation_Command As ICommand
Get
If m_cmdBackRotation Is Nothing Then
m_cmdBackRotation = New Command(AddressOf BackRotationCmd)
End If
Return m_cmdBackRotation
End Get
End Property
Public Sub BackRotationCmd()
BackRotation(True)
End Sub
Public Sub BackRotation(Optional bUpdateSection As Boolean = False, Optional bRedraw As Boolean = True)
' salvo sezione impostata
Dim CurrSection As SectionXMaterial = Map.refProjectVM.BTLStructureVM.SelSection
' ruoto
Rotation(False, Map.refProjectVM.BTLStructureVM.nPROJTYPE, bRedraw)
' imposto lock
bLockRotation = True
' se progetto travi e sezione precedente diversa da vuota (tutti i pezzi)
If bUpdateSection AndAlso Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.BEAM AndAlso CurrSection <> SectionXMaterial.Empty Then
' se esiste, imposto sezione inversa
Dim InverseSection As SectionXMaterial = Map.refProjectVM.BTLStructureVM.SectionList.FirstOrDefault(Function(x) x.dH = CurrSection.dW AndAlso x.dW = CurrSection.dH AndAlso x.sMaterial(0) = CurrSection.sMaterial(0))
If Not IsNothing(InverseSection) Then Map.refProjectVM.BTLStructureVM.SetSelSection(InverseSection)
End If
End Sub
#End Region ' BackRotation
#Region "ForwardRotation"
Public ReadOnly Property ForwardRotation_Command As ICommand
Get
If m_cmdForwardRotation Is Nothing Then
m_cmdForwardRotation = New Command(AddressOf ForwardRotationCmd)
End If
Return m_cmdForwardRotation
End Get
End Property
Public Sub ForwardRotationCmd(Optional bUpdateSection As Boolean = False)
ForwardRotation(True)
End Sub
Public Sub ForwardRotation(Optional bUpdateSection As Boolean = False, Optional bRedraw As Boolean = True)
' salvo sezione impostata
Dim CurrSection As SectionXMaterial = Map.refProjectVM.BTLStructureVM.SelSection
Rotation(True, Map.refProjectVM.BTLStructureVM.nPROJTYPE, bRedraw)
' imposto lock
bLockRotation = True
' se progetto travi e sezione precedente diversa da vuota (tutti i pezzi)
If bUpdateSection AndAlso Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.BEAM AndAlso CurrSection <> SectionXMaterial.Empty Then
' se esiste, imposto sezione inversa
Dim InverseSection As SectionXMaterial = Map.refProjectVM.BTLStructureVM.SectionList.FirstOrDefault(Function(x) x.dH = CurrSection.dW AndAlso x.dW = CurrSection.dH AndAlso x.sMaterial(0) = CurrSection.sMaterial(0))
If Not IsNothing(InverseSection) Then Map.refProjectVM.BTLStructureVM.SetSelSection(InverseSection)
End If
End Sub
#End Region ' ForwardRotation
' Comando inutilizzato ma conservato per eventuale rotazione a causa di importazione con rotazione sbagliata
#Region "XRotation"
Public ReadOnly Property XRotation_Command As ICommand
Get
If m_cmdXRotation Is Nothing Then
m_cmdXRotation = New Command(AddressOf XRotation)
End If
Return m_cmdXRotation
End Get
End Property
Public Sub XRotation()
If Map.refProjectVM.BTLStructureVM.nPROJTYPE <> MachineType.WALL Then Return
Dim OldSection As SectionXMaterial = Section
' recupero il box del pezzo
Dim nLs As Integer = EgtGetFirstNameInGroup(nPartId, "Box")
Dim b3Solid As New BBox3d
EgtGetBBoxGlob(nLs, GDB_BB.STANDARD, b3Solid)
If b3Solid.IsEmpty() Then
EgtOutLog("ERROR: Box non definito per la trave " & sNAM)
Return
End If
Dim vtAxes As Vector3d = Vector3d.X_AX
' eseguo rotazione di 90 gradi
If EgtRotate(nPartId, b3Solid.Center, vtAxes, 90, GDB_RT.GLOB) Then
' imposto modificato per copie
MyMachGroupPanelM.SetDuploModified(nPartId)
End If
' aggiorno visualizzazione dimensioni
NotifyPropertyChanged(NameOf(sW))
NotifyPropertyChanged(NameOf(sH))
NotifyPropertyChanged(NameOf(sL))
' setto part e tutte le feature da ricalcolare
ResetCalcTotalPart()
' aggiorno sezioni
Map.refProjectVM.BTLStructureVM.UpdateSection(Section, OldSection)
End Sub
#End Region ' XRotation
#Region "PartColour"
Public ReadOnly Property PartColour_Command As ICommand
Get
If m_cmdPartColour Is Nothing Then
m_cmdPartColour = New Command(AddressOf PartColourCmd)
End If
Return m_cmdPartColour
End Get
End Property
Public Sub PartColourCmd()
Dim PartColor As New Color3d(192, 192, 192)
' Eseguo modifica con dialogo
If SelectColor(m_BTLPartM.colCOLOR, PartColor) Then
sCOLRGB = PartColor.ToString
NotifyPropertyChanged(NameOf(PartColour))
End If
End Sub
Private Function SelectColor(Col As Color3d, ByRef NewCol As Color3d) As Boolean
' Creo dialogo colori
'Dim ColorDlg As New System.Windows.Forms.ColorDialog With {
' .FullOpen = True,
' .Color = Col.ToColor()
'}
Dim ColorDlg As New OnlyProdEgtColorPickerV(Application.Current.MainWindow, New EgtColorPickerVM()) With {
.Color = Col.ToColor()
}
' Visualizzo dialogo
If ColorDlg.ShowDialog() <> Forms.DialogResult.OK Then Return False
' Recupero colore scelto
NewCol.FromString(ColorDlg.Color.R & "," & ColorDlg.Color.G & "," & ColorDlg.Color.B & "," & ColorDlg.Color.A) 'NewCol.FromColor(ColorDlg.Color)
Return True
End Function
#End Region ' PartColour
#Region "ShowPopUpSettingBtnCommand"
Public ReadOnly Property ShowPopUpSettingBtnCommand As ICommand
Get
If m_cmdShowPopUpSettingBtnCmd Is Nothing Then
m_cmdShowPopUpSettingBtnCmd = New Command(AddressOf ShowPopUpSettingBtn)
End If
Return m_cmdShowPopUpSettingBtnCmd
End Get
End Property
Public Sub ShowPopUpSettingBtn(ByVal param As Object)
If m_IsSettingBtnOpen Then
SetIsSettingBtnOpen(False)
Else
SetIsSettingBtnOpen(True)
End If
End Sub
#End Region ' ShowPopUpSettingBtnCommand
#Region "Verify"
''' <summary>
''' Returns a command that do Open.
''' </summary>
Public ReadOnly Property Verify_Command As ICommand
Get
If m_cmdVerify Is Nothing Then
m_cmdVerify = New Command(AddressOf Verify)
End If
Return m_cmdVerify
End Get
End Property
''' <summary>
''' Execute the Open. This method is invoked by the OpenCommand.
''' </summary>
Friend Sub Verify()
If IsNothing(ProjectManagerVM.CurrProd) OrElse IsNothing(Map.refProjectVM.BTLStructureVM) OrElse IsNothing(Map.refProjectVM.MachGroupPanelVM) Then Return
Map.refCALCPanelVM.Verify(ProjectType.PROJ)
Return
End Sub
#End Region ' Verify
#Region "AddToRawPart"
''' <summary>
''' Returns a command that do Exec.
''' </summary>
Public ReadOnly Property AddToRawPart_Command As ICommand
Get
If m_cmdAddToRawPart Is Nothing Then
m_cmdAddToRawPart = New Command(AddressOf AddToRawPart)
End If
Return m_cmdAddToRawPart
End Get
End Property
''' <summary>
''' Execute the Exec. This method is invoked by the ExecCommand.
''' </summary>
Public Sub AddToRawPart()
If IsNothing(ProjectManagerVM.CurrProd) Then Return
Dim SelPart As BTLPartVM
If Map.refProjectVM.BTLStructureVM.SelBTLParts.Count <= 0 Then
Return
Else
SelPart = Map.refProjectVM.BTLStructureVM.SelBTLParts(0)
End If
Dim SelParts As List(Of BTLPartVM) = Map.refProjectVM.BTLStructureVM.SelBTLParts.ToList()
For Index = 0 To SelParts.Count() - 1
If IsNothing(SelParts(Index)) Then
SelParts.RemoveAt(Index)
End If
Next
If IsNothing(SelPart) Then Return
If IsNothing(SelParts) OrElse SelParts.Count <= 0 Then Return
Dim SelMachGroup As MyMachGroupVM = Map.refMachGroupPanelVM.SelectedMachGroup
If IsNothing(SelMachGroup) Then Return
' se pareti e piu' di uno selezionato, esco
If Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.WALL And SelParts.Count > 1 Then
MessageBox.Show(EgtMsg(61971), EgtMsg(30007))
Return
End If
' se MachGroup gia' mandato in produzione, esco
If SelMachGroup.nProduction_State >= ItemState.Assigned Then Return
' verifico se sono gia' stati messi tutti i pezzi richiesti
If Not VerifyPartCount(SelParts) Then Return
' verifico se impostato gruppo di lavorazione
Dim nCurrMachgroupId As Integer = EgtGetCurrMachGroup()
' se nullo o diverso da quello selezionato in lista
If nCurrMachgroupId = GDB_ID.NULL OrElse nCurrMachgroupId <> SelMachGroup.Id Then
' lo imposto
EgtSetCurrMachGroup(SelMachGroup.Id)
End If
If Map.refProjectVM.BTLStructureVM.nPROJTYPE = MachineType.BEAM Then
Dim BeamMachGroup As MyMachGroupVM = SelMachGroup
' verifico sezione e materiale
For Each Part In SelParts
If Part.Section <> BeamMachGroup.Section Then
MessageBox.Show(EgtMsg(61866), EgtMsg(30007))
Return
End If
Next
' verifico lunghezza totale
If Not VerifyTotLength(BeamMachGroup, SelParts) Then
MessageBox.Show(EgtMsg(61867), EgtMsg(30007))
Return
End If
If AddPartToBeam(BeamMachGroup, SelParts) Then
' aggiorno contatore pezzi usati in Prod
For Each Part In SelParts
Part.RefreshPartInProd()
Next
' resetto stato di calc
SelMachGroup.ResetCalcMachGroup()
End If
' aggiorno dati ultilizzo barra
BeamMachGroup.UpdateUsage()
Core.ViewPanelVM.BWSetView(VT.ISO_SW, False)
ElseIf Map.refProjectVM.BTLStructureVM.nPROJTYPE = MachineType.WALL Then
Dim WallMachGroup As MyMachGroupVM = SelMachGroup
' verifico spessore
If SelPart.Section <> WallMachGroup.Section Then
MessageBox.Show(EgtMsg(61868), EgtMsg(30007))
Return
End If
If AddPartToWall(WallMachGroup, SelPart) Then
' aggiorno contatore pezzi usati in Prod
SelPart.RefreshPartInProd()
' resetto stato di calc
SelMachGroup.ResetCalcMachGroup()
End If
' aggiorno dati ultilizzo barra
WallMachGroup.UpdateUsage()
Core.ViewPanelVM.BWSetView(VT.TOP, False)
End If
EgtZoom(ZM.ALL)
End Sub
Friend Function VerifyTotLength(BeamMachGroup As MyMachGroupVM, PartsToAdd As List(Of BTLPartVM)) As Boolean
Dim dNewPartPos As Double = 0
If BeamMachGroup.PartVMList.Count > 0 Then
Dim LastPart As PartVM = BeamMachGroup.PartVMList(BeamMachGroup.PartVMList.Count - 1)
dNewPartPos += LastPart.dPOSX + LastPart.dL
End If
For Each Part In PartsToAdd
dNewPartPos += WarehouseHelper.GetOffset(BeamMachGroup.nType) + Part.dL
Next
Return dNewPartPos < BeamMachGroup.dL
End Function
Friend Function AddPartToBeam(BeamMachGroup As MyMachGroupVM, PartsToAdd As List(Of BTLPartVM)) As Boolean
' ordino i pezzi da aggiungere
PartsToAdd = PartsToAdd.OrderBy(Function(x) x.dL).ToList()
' creo copie dei pezzi
Dim nPartDuploIdList As New List(Of Integer)
For Each Part In PartsToAdd
Dim nDuploId As Integer = EgtDuploNew(Part.nPartId)
' elimino valori calcolo dell'originale
MyMachGroupPanelVM.DuploRemoveProjCalc(nDuploId)
' lo rendo std
EgtSetMode(nDuploId, GDB_MD.STD)
nPartDuploIdList.Add(nDuploId)
Next
' calcolo posizione nuovo pezzo per rispettare ordine lunghezze
Dim nInsertIndex As Integer
' scrivo dati di tutti i pezzi
Dim dPosX As Double = BeamMachGroup.dStartCut
Dim nPartIndex As Integer = 0
Dim nIndex As Integer
Dim bDuploInfo As Boolean = False
' ciclo sui pezzi
For nIndex = 0 To BeamMachGroup.PartVMList.Count - 1
For PartsToAddIndex = nPartIndex To PartsToAdd.Count - 1
Dim Part As BTLPartVM = PartsToAdd(PartsToAddIndex)
' se non ancora aggiunto e lunghezza minore del pezzo corrente, lo aggiungo
If nPartIndex < nPartDuploIdList.Count() AndAlso BeamMachGroup.PartVMList(nIndex).dL > Part.dL Then
' se non è primo, aggiungo offset tra barre standard
If nIndex <> 0 OrElse nPartIndex <> 0 Then
dPosX += WarehouseHelper.GetOffset(BeamMachGroup.nType)
End If
EgtSetInfo(BeamMachGroup.Id, MGR_RPT_PART & nIndex + nPartIndex + 1, nPartDuploIdList(nPartIndex) & "," & DoubleToString(dPosX, 3))
' incremento posizione della sua lunghezza
dPosX += Part.dL
' conservo indice d'inserimento
nInsertIndex = nIndex
nPartIndex += 1
Else
Exit For
End If
Next
' se non è primo, aggiungo offset del pezzo
If nIndex <> 0 Then
dPosX += BeamMachGroup.PartVMList(nIndex).dOffset
' se sono a indice primo ed è stato aggiunto pezzo nuovo
ElseIf nIndex = 0 AndAlso nPartIndex > 0 Then
' aggiungo offset tra barre standard
dPosX += WarehouseHelper.GetOffset(BeamMachGroup.nType)
End If
EgtSetInfo(BeamMachGroup.Id, MGR_RPT_PART & nIndex + nPartIndex + 1, BeamMachGroup.PartVMList(nIndex).nPartId & "," & DoubleToString(dPosX, 3))
' incremento posizione della sua lunghezza
dPosX += BeamMachGroup.PartVMList(nIndex).dL
Next
' se non è ancora stato aggiunto
For PartsToAddIndex = nPartIndex To PartsToAdd.Count - 1
' aggiungo offset tra barre standard
dPosX += WarehouseHelper.GetOffset(BeamMachGroup.nType)
' lo aggiungo in fondo
EgtSetInfo(BeamMachGroup.Id, MGR_RPT_PART & nIndex + nPartIndex + 1, nPartDuploIdList(nPartIndex) & "," & DoubleToString(dPosX, 3))
' incremento posizione della sua lunghezza
dPosX += PartsToAdd(nPartIndex).dL
' conservo indice d'inserimento
nInsertIndex = nIndex
nPartIndex += 1
Next
' elimino vecchio grezzo ed eseguo script creazione nuovo
Dim nRawId As Integer = EgtGetFirstRawPart()
While nRawId <> GDB_ID.NULL
EgtRemoveRawPart(nRawId)
nRawId = EgtGetFirstRawPart()
End While
Dim sLogPath As String = Map.refMainWindowVM.MainWindowM.sTempDir & "\RawPartLog.txt"
If Not ExecBeam(sLogPath, ProjectManagerVM.CurrProd.sMachine, CalcIntegration.CmdTypes.RAWPART, False) Then
EgtOutLog("Fallito inserimento grezzo nella barra in AddPartToBeam")
' elimino duplo
For Each nDuploId In nPartDuploIdList
EgtErase(nDuploId)
Next
' aggiorno info grezzo
For nIndex = 0 To BeamMachGroup.PartVMList.Count - 1
EgtSetInfo(BeamMachGroup.Id, MGR_RPT_PART & nIndex + 1, BeamMachGroup.PartVMList(nIndex).nPartId & "," & DoubleToString(BeamMachGroup.PartVMList(nIndex).dPOSX, 3))
Next
' rimuovo info duplo
While EgtGetInfo(BeamMachGroup.Id, MGR_RPT_PART & nIndex + 1, nPartDuploIdList(0))
bDuploInfo = EgtGetInfo(BeamMachGroup.Id, MGR_RPT_PART & nIndex + 1, nPartDuploIdList(0))
EgtRemoveInfo(BeamMachGroup.Id, MGR_RPT_PART & nIndex + 1)
nIndex += 1
End While
' elimino vecchio grezzo ed eseguo script creazione nuovo
nRawId = EgtGetFirstRawPart()
While nRawId <> GDB_ID.NULL
EgtRemoveRawPart(nRawId)
nRawId = EgtGetFirstRawPart()
End While
If Not ExecBeam(sLogPath, ProjectManagerVM.CurrProd.sMachine, CalcIntegration.CmdTypes.RAWPART, False) Then
EgtOutLog("Fallita esecuzione ExecBeam. ERRORE")
End If
End If
For nDuploIndex = 0 To PartsToAdd.Count - 1
EgtSetInfo(nPartDuploIdList(nDuploIndex), MGR_PRT_ROT, PartsToAdd(nDuploIndex).nROTATED)
EgtSetInfo(nPartDuploIdList(nDuploIndex), MGR_PRT_FLIP, PartsToAdd(nDuploIndex).nINVERTED)
Next
' aggiorno lista pezzi
BeamMachGroup.MyMachGroupM.RefreshPartList()
' seleziono pezzo aggiunto
If BeamMachGroup.PartVMList.Count > nInsertIndex Then
BeamMachGroup.SelPart = BeamMachGroup.PartVMList(nInsertIndex)
ElseIf bDuploInfo Then
BeamMachGroup.SelPart = BeamMachGroup.PartVMList(BeamMachGroup.PartVMList.Count - 1)
End If
Return True
End Function
Friend Function AddPartToWall(WallMachGroup As MyMachGroupVM, PartToAdd As BTLPartVM) As Boolean
' creo copia del pezzo
Dim nPartDuploId As Integer = EgtDuploNew(PartToAdd.nPartId)
' lo rendo std
EgtSetMode(nPartDuploId, GDB_MD.STD)
' Posizione di inserimento
Dim dPosX As Double = WarehouseHelper.GetKerf()
Dim dPosY As Double = WarehouseHelper.GetKerf()
' Se ci sono pezzi già inseriti
If WallMachGroup.PartVMList.Count > 0 Then
Dim LastWall As PartVM = WallMachGroup.PartVMList(WallMachGroup.PartVMList.Count - 1)
Dim LastWallPosX As Double = LastWall.dPOSX
Dim LastWallPosY As Double = LastWall.PartM.dPOSY
' converto posizione ultimo pezzo nel riferimento BL
Select Case CurrentMachine.NestingCorner
Case MCH_CR.TL
LastWallPosY = WallMachGroup.dW - LastWall.dW - LastWall.PartM.dPOSY
Case MCH_CR.BL
Case MCH_CR.TR
LastWallPosX = WallMachGroup.dL - LastWall.dL - LastWall.dPOSX
LastWallPosY = WallMachGroup.dW - LastWall.dW - LastWall.PartM.dPOSY
Case MCH_CR.BR
LastWallPosX = WallMachGroup.dL - LastWall.dL - LastWall.dPOSX
End Select
' verifico se posso metterlo sopra in Y
Dim NextPosY = LastWallPosY + LastWall.dW + WarehouseHelper.GetOffset(WallMachGroup.nType)
If WallMachGroup.dW - NextPosY > PartToAdd.dW + 10 Then
dPosX = LastWallPosX
dPosY = NextPosY
Else
' altrimenti lo affianco in X
dPosX = 10
For i As Integer = 0 To WallMachGroup.PartVMList.Count - 1
Dim CurrWall As PartVM = WallMachGroup.PartVMList(i)
Dim CurrWallPosX As Double = CurrWall.dPOSX
' converto posizione pezzo corrente nel riferimento BL
Select Case CurrentMachine.NestingCorner
Case MCH_CR.TL
Case MCH_CR.BL
Case MCH_CR.TR
CurrWallPosX = WallMachGroup.dL - CurrWall.dL - CurrWall.dPOSX
Case MCH_CR.BR
CurrWallPosX = WallMachGroup.dL - CurrWall.dL - CurrWall.dPOSX
End Select
Dim NextPosX = CurrWallPosX + CurrWall.dL + WarehouseHelper.GetOffset(WallMachGroup.nType)
If NextPosX > dPosX Then
dPosX = NextPosX
End If
Next
dPosY = 10
End If
End If
' converto posizione trovata da riferimento BL a quello corrente
Select Case CurrentMachine.NestingCorner
Case MCH_CR.TL
dPosY = WallMachGroup.dW - PartToAdd.dW - dPosY
Case MCH_CR.BL
Case MCH_CR.TR
dPosX = WallMachGroup.dL - PartToAdd.dL - dPosX
dPosY = WallMachGroup.dW - PartToAdd.dW - dPosY
Case MCH_CR.BR
dPosX = WallMachGroup.dL - PartToAdd.dL - dPosX
End Select
' aggiungo il pezzo al grezzo
If EgtAddPartToRawPart(nPartDuploId, New Point3d(dPosX, dPosY, 0), WallMachGroup.MyMachGroupM.nRawPartId) Then
EgtSetInfo(nPartDuploId, MGR_PRT_POSX, dPosX)
EgtSetInfo(nPartDuploId, MGR_PRT_POSY, dPosY)
EgtSetInfo(nPartDuploId, MGR_PRT_ROT, PartToAdd.nROTATED)
EgtSetInfo(nPartDuploId, MGR_PRT_FLIP, PartToAdd.nINVERTED)
Else
Return False
End If
'aggiorno lista pezzi
WallMachGroup.MyMachGroupM.RefreshPartList()
' seleziono pezzo aggiunto
If WallMachGroup.PartVMList.Count > 0 Then WallMachGroup.SelPart = WallMachGroup.PartVMList.FirstOrDefault(Function(x) x.nPartId = nPartDuploId)
Return True
End Function
#End Region ' AddToRawPart
#End Region ' COMMANDS
#Region "EVENTS"
Private Sub OnBTLFeatureAdded(sender As Object, e As BTLFeatureAddedEventArgs)
Dim BTLFeatureVM As BTLFeatureVM = New BTLFeatureVM(e.NewBTLFeature, m_BTLPartM)
BTLFeatureVMList.Add(BTLFeatureVM)
End Sub
Private Sub OnBTLFeatureVMListChanged(sender As Object, e As NotifyCollectionChangedEventArgs)
If Not IsNothing(e.NewItems) AndAlso e.NewItems.Count > 0 Then
For Each BTLFeatureVM As BTLFeatureVM In e.NewItems
AddHandler BTLFeatureVM.PropertyChanged, AddressOf OnBTLFeatureVMPropertyChanged
Next
End If
If Not IsNothing(e.OldItems) AndAlso e.OldItems.Count > 0 Then
For Each BTLFeatureVM As BTLFeatureVM In e.OldItems
RemoveHandler BTLFeatureVM.PropertyChanged, AddressOf OnBTLFeatureVMPropertyChanged
m_BTLPartM.BTLFeatureMList.Remove(BTLFeatureVM.BTLFeatureM)
Next
End If
End Sub
Private Sub OnBTLPParamVMListChanged(sender As Object, e As NotifyCollectionChangedEventArgs)
If Not IsNothing(e.NewItems) AndAlso e.NewItems.Count > 0 Then
For Each BTLParamVM As BTLParamVM In e.NewItems
AddHandler BTLParamVM.PropertyChanged, AddressOf OnBTLPParamVMPropertyChanged
Next
End If
If Not IsNothing(e.OldItems) AndAlso e.OldItems.Count > 0 Then
For Each BTLParamVM As BTLParamVM In e.OldItems
RemoveHandler BTLParamVM.PropertyChanged, AddressOf OnBTLPParamVMPropertyChanged
Next
End If
End Sub
Private Sub OnBTLQParamVMListChanged(sender As Object, e As NotifyCollectionChangedEventArgs)
If Not IsNothing(e.NewItems) AndAlso e.NewItems.Count > 0 Then
For Each BTLParamVM As BTLParamVM In e.NewItems
AddHandler BTLParamVM.PropertyChanged, AddressOf OnBTLQParamVMPropertyChanged
Next
End If
If Not IsNothing(e.OldItems) AndAlso e.OldItems.Count > 0 Then
For Each BTLParamVM As BTLParamVM In e.OldItems
RemoveHandler BTLParamVM.PropertyChanged, AddressOf OnBTLQParamVMPropertyChanged
Next
End If
End Sub
Private Sub OnBTLFeatureVMPropertyChanged(sender As Object, e As PropertyChangedEventArgs)
Select Case e.PropertyName
Case NameOf(sender.nSelGRP), NameOf(sender.nSelSIDE)
CalcGlobalUpdate(True)
' imposto path disegno da mostrare in BottomPanel
Dim SelPBTLParam As BTLParamVM = Map.refProjectVM.BTLStructureVM.SelBTLPart.SelBTLFeatureVM.SelPBTLParam
If Not IsNothing(Map.refProjectVM) AndAlso Not IsNothing(SelPBTLParam) Then Map.refPParameterListVM.SetCurrDraw(SelPBTLParam.sDrawPath)
Case NameOf(sender.bDO), NameOf(sender.sPriority)
NotifyPropertyChanged(NameOf(bDOALL))
' setto pezzo da ricalcolare
CalcGlobalUpdate(True)
End Select
End Sub
Private Sub OnBTLPParamVMPropertyChanged(sender As Object, e As PropertyChangedEventArgs)
Select Case e.PropertyName
Case NameOf(sender.dValue), NameOf(sender.sValue)
CalcGlobalUpdate(True)
End Select
End Sub
Private Sub OnBTLQParamVMPropertyChanged(sender As Object, e As PropertyChangedEventArgs)
Select Case e.PropertyName
Case NameOf(sender.dValue), NameOf(sender.sValue)
CalcGlobalUpdate(True)
End Select
End Sub
#End Region ' EVENTS
End Class
Reference in New Issue View Git Blame Copy Permalink