Egalware/EgtCAM5
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

EgtCAM5 1.8b2 :

Browse Source 
- corretto problema con sottotipo lavorazione in gestione DB lavorazioni.
This commit is contained in:
Dario Sassi
2017-03-07 11:22:32 +00:00
parent b6c96f8c25
commit 8008a9e48e
4 changed files with 50 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ProjectPage/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/MachiningParameterExpanderViewModel.vb
+20 -20
View File
@@ -99,7 +99,7 @@ Namespace EgtCAM5
m_SelectedWorkSide = value
Dim OrigWorkSide As Integer = 0
EgtGetMachiningParam(MCH_MP.WORKSIDE, OrigWorkSide)
OrigWorkSide = IdNameStruct.SearchToId(OrigWorkSide, WorkSideList)
OrigWorkSide = IdNameStruct.IndFromId(OrigWorkSide, WorkSideList)
m_IsModifiedSelectedWorkSide = If(value <> OrigWorkSide, True, False)
NotifyPropertyChanged("UpdateMachiningBtnIsEnabled")
End If
@@ -129,7 +129,7 @@ Namespace EgtCAM5
m_SelectedHeadSide = value
Dim OrigHeadSide As Integer = 0
EgtGetMachiningParam(MCH_MP.HEADSIDE, OrigHeadSide)
OrigHeadSide = IdNameStruct.SearchToId(OrigHeadSide, HeadSideList)
OrigHeadSide = IdNameStruct.IndFromId(OrigHeadSide, HeadSideList)
m_IsModifiedSelectedHeadSide = If(value <> OrigHeadSide, True, False)
NotifyPropertyChanged("UpdateMachiningBtnIsEnabled")
End If
@@ -176,12 +176,12 @@ Namespace EgtCAM5
Public Property SelectedLeadInType As Integer
Get
If IsNothing(LeadInTypeList) Then Return Nothing
Return IdNameStruct.SearchFromId(m_SelectedLeadInType, LeadInTypeList)
Return IdNameStruct.IdFromInd(m_SelectedLeadInType, LeadInTypeList)
End Get
Set(value As Integer)
If value <> m_SelectedLeadInType Then
If Not IsNothing(LeadInTypeList) Then
m_SelectedLeadInType = IdNameStruct.SearchToId(value, LeadInTypeList)
m_SelectedLeadInType = IdNameStruct.IndFromId(value, LeadInTypeList)
Dim OrigLeadInType As Integer = 0
EgtGetMachiningParam(MCH_MP.LEADINTYPE, OrigLeadInType)
m_IsModifiedSelectedLeadInType = If(value <> OrigLeadInType, True, False)
@@ -205,12 +205,12 @@ Namespace EgtCAM5
Public Property SelectedExtLinkType As Integer
Get
If IsNothing(ExtLinkTypeList) Then Return Nothing
Return IdNameStruct.SearchFromId(m_SelectedExtLinkType, ExtLinkTypeList)
Return IdNameStruct.IdFromInd(m_SelectedExtLinkType, ExtLinkTypeList)
End Get
Set(value As Integer)
If value <> m_SelectedExtLinkType Then
If Not IsNothing(ExtLinkTypeList) Then
m_SelectedExtLinkType = IdNameStruct.SearchToId(value, ExtLinkTypeList)
m_SelectedExtLinkType = IdNameStruct.IndFromId(value, ExtLinkTypeList)
Dim OrigExtLinkType As Integer = 0
EgtGetMachiningParam(MCH_MP.EXTLINKTYPE, OrigExtLinkType)
m_IsModifiedSelectedExtLinkType = If(value <> OrigExtLinkType, True, False)
@@ -254,12 +254,12 @@ Namespace EgtCAM5
Public Property SelectedLeadOutType As Integer
Get
If IsNothing(LeadOutTypeList) Then Return Nothing
Return IdNameStruct.SearchFromId(m_SelectedLeadOutType, LeadOutTypeList)
Return IdNameStruct.IdFromInd(m_SelectedLeadOutType, LeadOutTypeList)
End Get
Set(value As Integer)
If value <> m_SelectedLeadOutType Then
If Not IsNothing(LeadOutTypeList) Then
m_SelectedLeadOutType = IdNameStruct.SearchToId(value, LeadOutTypeList)
m_SelectedLeadOutType = IdNameStruct.IndFromId(value, LeadOutTypeList)
Dim OrigLeadOutType As Integer = 0
EgtGetMachiningParam(MCH_MP.LEADOUTTYPE, OrigLeadOutType)
m_IsModifiedSelectedLeadOutType = If(value <> OrigLeadOutType, True, False)
@@ -288,12 +288,12 @@ Namespace EgtCAM5
Public Property SelectedCurveUse As Integer
Get
If IsNothing(CurveUseList) Then Return Nothing
Return IdNameStruct.SearchFromId(m_SelectedCurveUse, CurveUseList)
Return IdNameStruct.IdFromInd(m_SelectedCurveUse, CurveUseList)
End Get
Set(value As Integer)
If value <> m_SelectedCurveUse Then
If Not IsNothing(CurveUseList) Then
m_SelectedCurveUse = IdNameStruct.SearchToId(value, CurveUseList)
m_SelectedCurveUse = IdNameStruct.IndFromId(value, CurveUseList)
Dim OrigCurveUse As Integer = 0
EgtGetMachiningParam(MCH_MP.CURVEUSE, OrigCurveUse)
m_IsModifiedSelectedCurveUse = If(value <> OrigCurveUse, True, False)
@@ -327,12 +327,12 @@ Namespace EgtCAM5
Public Property SelectedStepType As Integer
Get
If IsNothing(StepTypeList) Then Return Nothing
Return IdNameStruct.SearchFromId(m_SelectedStepType, StepTypeList)
Return IdNameStruct.IdFromInd(m_SelectedStepType, StepTypeList)
End Get
Set(value As Integer)
If value <> m_SelectedStepType Then
If Not IsNothing(StepTypeList) Then
m_SelectedStepType = IdNameStruct.SearchToId(value, StepTypeList)
m_SelectedStepType = IdNameStruct.IndFromId(value, StepTypeList)
Dim OrigStepType As Integer = 0
EgtGetMachiningParam(MCH_MP.STEPTYPE, OrigStepType)
m_IsModifiedSelectedStepType = If(value <> OrigStepType, True, False)
@@ -370,12 +370,12 @@ Namespace EgtCAM5
Public Property SelectedSubType As Integer
Get
If IsNothing(SubTypeList) Then Return Nothing
Return IdNameStruct.SearchFromId(m_SelectedSubType, SubTypeList)
Return IdNameStruct.IdFromInd(m_SelectedSubType, SubTypeList)
End Get
Set(value As Integer)
If value <> m_SelectedSubType Then
If Not IsNothing(SubTypeList) Then
m_SelectedSubType = IdNameStruct.SearchToId(value, SubTypeList)
m_SelectedSubType = IdNameStruct.IndFromId(value, SubTypeList)
Dim OrigSubType As Integer = 0
EgtGetMachiningParam(MCH_MP.SUBTYPE, OrigSubType)
m_IsModifiedSelectedSubType = If(value <> OrigSubType, True, False)
@@ -407,12 +407,12 @@ Namespace EgtCAM5
Public Property SelectedLeadLinkType As Integer
Get
If IsNothing(LeadLinkTypeList) Then Return Nothing
Return IdNameStruct.SearchFromId(m_SelectedLeadLinkType, LeadLinkTypeList)
Return IdNameStruct.IdFromInd(m_SelectedLeadLinkType, LeadLinkTypeList)
End Get
Set(value As Integer)
If value <> m_SelectedLeadLinkType Then
If Not IsNothing(LeadLinkTypeList) Then
m_SelectedLeadLinkType = IdNameStruct.SearchToId(value, LeadLinkTypeList)
m_SelectedLeadLinkType = IdNameStruct.IndFromId(value, LeadLinkTypeList)
Dim OrigLeadLinkType As Integer = 0
EgtGetMachiningParam(MCH_MP.LEADLINKTYPE, OrigLeadLinkType)
m_IsModifiedSelectedLeadLinkType = If(value <> OrigLeadLinkType, True, False)
@@ -2226,7 +2226,7 @@ Namespace EgtCAM5
m_IsModifiedLeaveTab = False
EgtGetMachiningParam(MCH_MP.WORKSIDE, nValue)
If Not IsNothing(WorkSideList) Then
m_SelectedWorkSide = IdNameStruct.SearchToId(nValue, WorkSideList)
m_SelectedWorkSide = IdNameStruct.IndFromId(nValue, WorkSideList)
Else
m_SelectedWorkSide = nValue
End If
@@ -2234,7 +2234,7 @@ Namespace EgtCAM5
m_IsModifiedSelectedWorkSide = False
EgtGetMachiningParam(MCH_MP.HEADSIDE, nValue)
If Not IsNothing(HeadSideList) Then
m_SelectedHeadSide = IdNameStruct.SearchToId(nValue, HeadSideList)
m_SelectedHeadSide = IdNameStruct.IndFromId(nValue, HeadSideList)
Else
m_SelectedHeadSide = nValue
End If
@@ -2433,7 +2433,7 @@ Namespace EgtCAM5
End If
If m_IsModifiedSelectedWorkSide Then
If Not IsNothing(WorkSideList) Then
nValue = IdNameStruct.SearchFromId(m_SelectedWorkSide, WorkSideList)
nValue = IdNameStruct.IdFromInd(m_SelectedWorkSide, WorkSideList)
Else
nValue = m_SelectedWorkSide
End If
@@ -2443,7 +2443,7 @@ Namespace EgtCAM5
End If
If m_IsModifiedSelectedHeadSide Then
If Not IsNothing(HeadSideList) Then
nValue = IdNameStruct.SearchFromId(m_SelectedHeadSide, HeadSideList)
nValue = IdNameStruct.IdFromInd(m_SelectedHeadSide, HeadSideList)
Else
nValue = m_SelectedHeadSide
End If