- aggiunta gestione archiviazione progetti

This commit is contained in:
Emmanuele Sassi
2023-08-25 11:53:04 +02:00
parent 92f347cd7e
commit b7a127c1cd
7 changed files with 157 additions and 181 deletions
@@ -91,7 +91,7 @@ Public Class OpenProjectFileDialogVM
If File.Exists(sPath) Then
m_ProjectList.Add(New ProdFileVM(Project))
Else
DbControllers.m_ProdController.DeleteProd(Project.nProdId)
DbControllers.m_ProdController.DeleteProd(Project.nProdId, True)
EgtOutLog("Found project on Db without the folder and erased it! Prod number " & Project.nProdId.ToString("0000"))
End If
End If
@@ -104,7 +104,7 @@ Public Class OpenProjectFileDialogVM
If File.Exists(sPath) Then
m_ProjectList.Add(New ProdFileVM(Project))
Else
DbControllers.m_ProdController.DeleteProd(Project.nProdId)
DbControllers.m_ProdController.DeleteProd(Project.nProdId, True)
EgtOutLog("Found project on Db without the folder and erased it! Prod number " & Project.nProdId.ToString("0000"))
End If
Next
@@ -159,7 +159,7 @@ Public Class OpenProjectFileDialogVM
Map.refProdManagerVM.m_MruFiles.Remove(SelProject.sProdPath)
Map.refProdManagerVM.NotifyPropertyChanged(NameOf(Map.refProdManagerVM.MruFileNames))
' cancello progetto
DbControllers.m_ProdController.DeleteProd(SelProject.nProdId)
DbControllers.m_ProdController.DeleteProd(SelProject.nProdId, True)
' riporto prod in proj
Dim nCurrCtx As Integer = EgtGetCurrentContext()
Dim nTempCtx As Integer = EgtInitContext()