OmagOFFICE :

- gestione inserimento pezzi in VeinMatching da parametrico e Csv
- correzioni e migliorie a VeinMatching
- correzioni su OpenProject.
This commit is contained in:
Dario Sassi
2017-09-07 18:22:58 +00:00
parent a4f150f105
commit b05bc34ebb
13 changed files with 308 additions and 113 deletions
+7 -5
View File
@@ -607,9 +607,8 @@ Public Class NestingTabVM
' Se non ci sono pezzi selezionati, esco subito
If EgtGetFirstSelectedObj() = GDB_ID.NULL Then Return
' Chiedo conferma prima di procedere
If MessageBox.Show(EgtMsg(MSG_EGTMSGBOX + 21), "", MessageBoxButton.OKCancel, MessageBoxImage.Question) = MessageBoxResult.Cancel Then
Return
End If
If MessageBox.Show(EgtMsg(MSG_EGTMSGBOX + 21), "", MessageBoxButton.OKCancel, MessageBoxImage.Question) = MessageBoxResult.Cancel Then Return
EgtSetCurrentContext(OmagOFFICEMap.refSceneHostV.OmagOFFICEScene.GetCtx())
' Verifico se ci sono pezzi provenienti da liste Csv
Dim bCsvParts As Boolean = False
Dim nId As Integer = EgtGetFirstSelectedObj()
@@ -632,6 +631,7 @@ Public Class NestingTabVM
Case MessageBoxResult.No
bEraseCsvParts = False
End Select
EgtSetCurrentContext(OmagOFFICEMap.refSceneHostV.OmagOFFICEScene.GetCtx())
End If
' Ciclo di cancellazione dei pezzi selezionati
nId = EgtGetFirstSelectedObj()
@@ -642,15 +642,17 @@ Public Class NestingTabVM
If bEraseCsvParts OrElse Not EgtExistsInfo(nId, INFO_CSV_PATH) Then
' Se pezzo in parcheggio cancello direttamente
If EgtIsPart(nId) Then
' Eventuale notifica al VeinMatching
VeinMatching.OnRemovePart(nId)
' Rimuovo le lavorazioni
EraseMachinings(nId)
' Cancello
EgtErase(nId)
' Altrimenti pezzo nel grezzo
' Altrimenti pezzo nel grezzo
ElseIf EgtGetParent(nId) = GetRawId() Then
If EgtRemovePartFromRawPart(nId) Then
' Eventuale notifica al VeinMatching
VeinMatching.OnRemovePartFromRaw(nId)
VeinMatching.OnRemovePart(nId)
' Rimuovo le lavorazioni
EraseMachinings(nId)
'Cancello