Aggiunta View per onlyprod

This commit is contained in:
Demetrio Cassarino
2023-10-27 17:34:39 +02:00
parent fe0db46b69
commit e1954b3731
31 changed files with 1716 additions and 177 deletions
@@ -154,17 +154,22 @@ Public Class ProdFileVM
Directory.Delete(sProjectDirPath, True)
Catch ex As Exception
End Try
Map.refProdManagerVM.m_MruFiles.Remove(CurrProject.sProdPath)
Map.refProdManagerVM.NotifyPropertyChanged(NameOf(Map.refProdManagerVM.MruFileNames))
If Not IsNothing(Map.refProdManagerVM) Then
Map.refProdManagerVM.m_MruFiles.Remove(CurrProject.sProdPath)
Map.refProdManagerVM.NotifyPropertyChanged(NameOf(Map.refProdManagerVM.MruFileNames))
ElseIf Not IsNothing(Map.refOnlyProdManagerVM) Then
Map.refOnlyProdManagerVM.m_MruFiles.Remove(CurrProject.sProdPath)
Map.refOnlyProdManagerVM.NotifyPropertyChanged(NameOf(Map.refProdManagerVM.MruFileNames))
End If
DbControllers.m_ProdController.DeleteProd(CurrProject.nProdId, False)
If CurrProject.nProdId = Map.refProjManagerVM.CurrProj.nProdId Then
If CurrProject.nProdId = Map.refProjManagerVM.CurrProj.nProdId OrElse CurrProject.nProdId = Map.refOnlyProdManagerVM.CurrProj.nProdId Then
' reset prod in path proj
Map.refProjManagerVM.UpdateCurrProj()
End If
Map.refProdManagerVM.CurrProd = Nothing
EgtResetModified()
Return MessageBoxResult.No
End If
EgtResetModified()
Return MessageBoxResult.No
End If
End Select
Else
EgtResetModified()