- aggiunta proprieta proj su pezzi

- aggiunto progetto Optimizer
2025-04-05 12:59:22 +02:00
parent 55879d431e
commit 13b2dd29d1
540 changed files with 61195 additions and 0 deletions
@@ -0,0 +1,97 @@
+Imports System.IO
+Imports EgtBEAMWALL.Core
+Imports EgtUILib
+
+Public Class ProdFileVM
+   Inherits Core.ProdFileVM
+
+#Region "CONSTRUCTORS"
+
+   Sub New(ProdFileM As ProdFileM)
+      MyBase.New(ProdFileM)
+      ' aggiungo nome btl
+      Dim sBTLFileName As String = ""
+      For Each TempCurrProj In nProjIdList
+         Dim TempProj As ProjFileM = DbControllers.m_ProjController.FindByProjIdConv(TempCurrProj)
+         If Not IsNothing(TempProj) Then sBTLFileName &= TempProj.sListName
+      Next
+      SetBTLFileName(sBTLFileName)
+      ' verifico valore description
+      If Not IsNothing(ProdFileM) AndAlso String.IsNullOrWhiteSpace(ProdFileM.sName) Then
+         For Each TempCurrProj In nProjIdList
+            Dim TempProj As ProjFileM = DbControllers.m_ProjController.FindByProjIdConv(TempCurrProj)
+            If Not IsNothing(TempProj) AndAlso Not String.IsNullOrWhiteSpace(TempProj.sBTLFileName) Then
+               DbControllers.m_ProdController.UpdateDescription(ProdFileM.nProdId, TempProj.sBTLFileName)
+               ProdFileM.sName = TempProj.sBTLFileName
+            End If
+         Next
+      End If
+   End Sub
+
+#End Region    ' CONSTRUCTORS
+
+   Friend Function GetProjPath(nProjId As Integer)
+      Dim sPath As String = String.Empty
+      If nProjId = 0 Then Return String.Empty
+      Return refMainWindowVM.MainWindowM.sProjsDir & "\" & nProjId.ToString("0000") & "\" & nProjId.ToString("0000") & ".nge"
+   End Function
+
+   Friend Shared Function VerifyProjectModification(CurrProject As ProdFileVM) As MessageBoxResult
+      If IsNothing(CurrProject) Then Return True
+      Dim bNewProject As Boolean = False
+      Dim sProjectDirPath As String = ""
+      sProjectDirPath = CurrProject.sProdDirPath
+      Dim VerifyResult As MessageBoxResult = MessageBoxResult.None
+      ' verifico se progetto modificato, e chiedo se salvare
+      If EgtGetModified() OrElse CurrProject.bIsNew OrElse Map.refCALCPanelVM.IsMachineModified() Then
+         VerifyResult = MessageBox.Show(EgtMsg(61875), "", MessageBoxButton.YesNoCancel, MessageBoxImage.Question)
+         Select Case VerifyResult
+            Case MessageBoxResult.Yes
+               ' salvo proj
+               If Not IsNothing(Map.refProdManagerVM) Then
+                  Map.refProdManagerVM.Save()
+               ElseIf Not IsNothing(Map.refOnlyProdManagerVM) Then
+                  Map.refOnlyProdManagerVM.Save()
+               End If
+            Case MessageBoxResult.Cancel
+               Return MessageBoxResult.Cancel
+            Case Else   ' No
+               EgtResetModified()
+               Map.refCALCPanelVM.RevertToOriginalMachine()
+               If CurrProject.bIsNew Then
+                  ' lo elimino
+                  Try
+                     Directory.Delete(sProjectDirPath, True)
+                  Catch ex As Exception
+                  End Try
+                  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 Not IsNothing(Map.refProjManagerVM) AndAlso CurrProject.nProdId = ProjectManagerVM.CurrProj.nProdId Then
+                     ' reset prod in path proj
+                     Map.refProjManagerVM.UpdateCurrProj()
+                  ElseIf Not IsNothing(Map.refOnlyProdManagerVM) AndAlso CurrProject.nProdId = ProjectManagerVM.CurrProj.nProdId Then
+                     ' reset prod in path proj
+                     Map.refOnlyProdManagerVM.UpdateCurrProj()
+                  End If
+                  If Not IsNothing(Map.refProdManagerVM) Then
+                     ProjectManagerVM.CurrProd = Nothing
+                  End If
+                  EgtResetModified()
+                  Return MessageBoxResult.No
+               End If
+         End Select
+      Else
+         EgtResetModified()
+      End If
+      DbControllers.m_ProdController.ResetController()
+      DbControllers.m_ProdController.LockByProdId(CurrProject.nProdId, False, Map.refMainWindowVM.MainWindowM.GetKeyNumber())
+      Return VerifyResult
+   End Function
+
+End Class