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

Correzione cancellazione progetti

Browse Source
This commit is contained in:
Emmanuele Sassi
2021-05-21 08:32:29 +02:00
parent 9d2b78fd4d
commit 2fc81d3258
1 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
EgtBEAMWALL.ViewerOptimizer/OpenProjectFileDialog/OpenProjectFileDialogVM.vb
+10
View File
@@ -269,6 +269,11 @@ Public Class OpenProjectFileDialogVM
Friend Sub Delete()
If IsNothing(SelProject) Then Return
If m_ProjectType = ProjectType.PROJ Then
' verifico se proj selezionato e' il corrente
If Not IsNothing(Map.refProjManagerVM.CurrProj) AndAlso SelProject.nProjId = Map.refProjManagerVM.CurrProj.nProjId Then
MessageBox.Show("Impossibile cancellare il progetto correntemente aperto", "Avviso", MessageBoxButton.OK, MessageBoxImage.Warning)
Return
End If
' verifico se proj selezionato ha prod
If SelProject.nProdId > 0 Then
MessageBox.Show("Impossibile cancellare il progetto perche' gia' collegato ad una produzione", "Warning", MessageBoxButton.OK, MessageBoxImage.Warning)
@@ -284,6 +289,11 @@ Public Class OpenProjectFileDialogVM
m_ProjectList.Add(New ProjFileVM(Project))
Next
ElseIf m_ProjectType = ProjectType.PROD Then
' verifico se prod selezionato e' il corrente
If Not IsNothing(Map.refProdManagerVM.CurrProd) AndAlso SelProject.nProdId = Map.refProdManagerVM.CurrProd.nProdId Then
MessageBox.Show("Impossibile cancellare il progetto correntemente aperto", "Avviso", MessageBoxButton.OK, MessageBoxImage.Warning)
Return
End If
' verifico se ci sono grezzi mandati al supervisore
If DbControllers.m_ProdController.IsAnyInSupervisor(SelProject.nProdId) Then
MessageBox.Show("Impossibile cancellare il progetto perche' alcuni grezzi sono gia' stati mandati in produzione.", "Warning", MessageBoxButton.OK, MessageBoxImage.Warning)