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

-rimosso distinzione tra view, machining page

Browse Source
This commit is contained in:
Demetrio Cassarino
2025-04-22 16:46:32 +02:00
parent 06899fadfd
commit 8b36b65b37
21 changed files with 468 additions and 460 deletions
Download Patch File Download Diff File Expand all files Collapse all files
EgtBEAMWALL.Optimizer/ProjectFileVM/ProjFileVM.vb
+11 -11
View File
@@ -35,9 +35,9 @@ Public Class ProjFileVM
Select Case MessageBox.Show(EgtMsg(61875), "", MessageBoxButton.YesNoCancel, MessageBoxImage.Question)
Case MessageBoxResult.Yes
' salvo proj
If Not IsNothing(Map.refProjManagerVM) Then
Map.refProjManagerVM.Save()
ElseIf Not IsNothing(Map.refOnlyProdManagerVM) Then
'If Not IsNothing(Map.refProjManagerVM) Then
' Map.refProjManagerVM.Save()
If Not IsNothing(Map.refOnlyProdManagerVM) Then
Map.refOnlyProdManagerVM.Save()
End If
Map.refCALCPanelVM.IsMachineApplied = False
@@ -52,19 +52,19 @@ Public Class ProjFileVM
If Directory.Exists(sProjectDirPath) Then
Directory.Delete(sProjectDirPath, True)
End If
If Not IsNothing(Map.refProjManagerVM) Then
Map.refProjManagerVM.m_MruFiles.Remove(CurrProject.sProjPath)
Map.refProjManagerVM.NotifyPropertyChanged(NameOf(Map.refProjManagerVM.MruFileNames))
ElseIf Not IsNothing(Map.refOnlyProdManagerVM) Then
'If Not IsNothing(Map.refProjManagerVM) Then
' Map.refProjManagerVM.m_MruFiles.Remove(CurrProject.sProjPath)
' Map.refProjManagerVM.NotifyPropertyChanged(NameOf(Map.refProjManagerVM.MruFileNames))
If Not IsNothing(Map.refOnlyProdManagerVM) Then
Map.refOnlyProdManagerVM.m_MruFiles.Remove(CurrProject.sProjPath)
Map.refOnlyProdManagerVM.NotifyPropertyChanged(NameOf(Map.refProjManagerVM.MruFileNames))
Map.refOnlyProdManagerVM.NotifyPropertyChanged(NameOf(Map.refOnlyProdManagerVM.MruFileNames))
End If
' CheckMe impostata come cancellazione FISICA dal DB...
DbControllers.m_ProjController.DeleteProj(CurrProject.nProjId, False)
If Not IsNothing(Map.refProjManagerVM) Then
ProjectManagerVM.CurrProj = Nothing
ElseIf Not IsNothing(Map.refOnlyProdManagerVM) Then
'If Not IsNothing(Map.refProjManagerVM) Then
' ProjectManagerVM.CurrProj = Nothing
If Not IsNothing(Map.refOnlyProdManagerVM) Then
ProjectManagerVM.CurrProj = Nothing
End If
EgtResetModified()