Definizione oggetti ProjectM e sistemazioni
This commit is contained in:
Emmanuele Sassi
@@ -1,277 +0,0 @@
|
||||
Imports System.IO
|
||||
Imports EgtBEAMWALL.Core
|
||||
Imports EgtUILib
|
||||
|
||||
Public Class ProjectFileVM
|
||||
Inherits VMBase
|
||||
|
||||
Private m_ProjectFileM As ProjectFileM
|
||||
|
||||
Public ReadOnly Property nProjectType As ProjectType
|
||||
Get
|
||||
Return m_ProjectFileM.nProjectType
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property nProjId As Integer
|
||||
Get
|
||||
Return m_ProjectFileM.nProjId
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property nProdId As Integer
|
||||
Get
|
||||
Return m_ProjectFileM.nProdId
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Friend ReadOnly Property sProjDirPath As String
|
||||
Get
|
||||
If IsNothing(m_ProjectFileM.nProjId) OrElse m_ProjectFileM.nProjId = 0 Then Return String.Empty
|
||||
Return refMainWindowVM.MainWindowM.sProjsDir & "\" & nProjId.ToString("0000")
|
||||
End Get
|
||||
End Property
|
||||
Friend ReadOnly Property sProjPath As String
|
||||
Get
|
||||
Dim sPath As String = String.Empty
|
||||
If IsNothing(m_ProjectFileM.nProjId) OrElse m_ProjectFileM.nProjId = 0 Then Return String.Empty
|
||||
sPath = refMainWindowVM.MainWindowM.sProjsDir & "\" & nProjId.ToString("0000") & "\" & nProjId.ToString("0000") & FILENAMESEPARATOR
|
||||
If Not IsNothing(m_ProjectFileM.nProdId) AndAlso m_ProjectFileM.nProdId > 0 Then
|
||||
sPath &= nProdId.ToString("0000")
|
||||
End If
|
||||
sPath &= FILENAMESEPARATOR & BTLFileName & ".nge"
|
||||
Return sPath
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Friend ReadOnly Property sProdDirPath As String
|
||||
Get
|
||||
Dim sPath As String = String.Empty
|
||||
If IsNothing(m_ProjectFileM.nProdId) OrElse m_ProjectFileM.nProdId = 0 Then Return String.Empty
|
||||
Return refMainWindowVM.MainWindowM.sProdsDir & "\" & nProdId.ToString("0000")
|
||||
End Get
|
||||
End Property
|
||||
Friend ReadOnly Property sProdPath As String
|
||||
Get
|
||||
Dim sPath As String = String.Empty
|
||||
If IsNothing(m_ProjectFileM.nProdId) OrElse m_ProjectFileM.nProdId = 0 Then Return String.Empty
|
||||
Return refMainWindowVM.MainWindowM.sProdsDir & "\" & nProdId.ToString("0000") & "\" & nProdId.ToString("0000") & ".nge"
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property BTLFileName As String
|
||||
Get
|
||||
Return m_ProjectFileM.sBTLFileName
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public Property NewProj As Boolean
|
||||
Get
|
||||
Return m_ProjectFileM.NewProj
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
m_ProjectFileM.NewProj = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property NewProd As Boolean
|
||||
Get
|
||||
Return m_ProjectFileM.NewProd
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
m_ProjectFileM.NewProd = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
' nome del file mostrato nella finestra OpenProjFileDialog
|
||||
Public ReadOnly Property OpenFileName As String
|
||||
Get
|
||||
If m_ProjectFileM.nProjectType = ProjectType.PROJ Then
|
||||
Return m_ProjectFileM.nProjId.ToString("0000") & " " & BTLFileName
|
||||
ElseIf m_ProjectFileM.nProjectType = ProjectType.PROD Then
|
||||
Return m_ProjectFileM.nProdId.ToString("0000")
|
||||
Else
|
||||
Return ""
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
|
||||
#Region "CONSTRUCTORS"
|
||||
|
||||
Sub New(ProjectFileM As ProjectFileM)
|
||||
m_ProjectFileM = ProjectFileM
|
||||
End Sub
|
||||
|
||||
'Sub New(nProjectType As ProjectType, ProjectFileName As String)
|
||||
' m_nProjectType = nProjectType
|
||||
' If m_nProjectType = ProjectType.PROJ Then
|
||||
' Dim DataFromFileName As String() = ProjectFileName.Split(FILENAMESEPARATOR)
|
||||
' If Not String.IsNullOrEmpty(DataFromFileName(0)) Then
|
||||
' Integer.TryParse(DataFromFileName(0), m_nProjId)
|
||||
' End If
|
||||
' If Not String.IsNullOrEmpty(DataFromFileName(1)) Then
|
||||
' Integer.TryParse(DataFromFileName(1), m_nProdId)
|
||||
' Else
|
||||
' m_nProdId = 0
|
||||
' End If
|
||||
' If Not String.IsNullOrEmpty(DataFromFileName(2)) Then
|
||||
' m_BTLFileName = DataFromFileName(2)
|
||||
' End If
|
||||
' ElseIf m_nProjectType = ProjectType.PROD Then
|
||||
' Integer.TryParse(ProjectFileName, m_nProdId)
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Sub New(nProjectType As ProjectType, nProjId As Integer, nProdId As Integer, sBTLFileName As String)
|
||||
' MyBase.New(nProjectType, nProjId, nProdId, sBTLFileName)
|
||||
'End Sub
|
||||
|
||||
#End Region ' CONSTRUCTORS
|
||||
|
||||
Friend Sub SetProdId(nProdId As Integer)
|
||||
' rinomino proj con riferimento a prod
|
||||
Dim OldPath As String = sProjPath
|
||||
m_nProdId = nProdId
|
||||
Dim NewPath As String = sProjPath
|
||||
File.Move(OldPath, NewPath)
|
||||
End Sub
|
||||
|
||||
Friend Sub ResetProdId()
|
||||
SetProdId(0)
|
||||
End Sub
|
||||
|
||||
' funzione che restituisce le parti di nome file
|
||||
Friend Shared Function VerifyProjectFile(nProjectType As ProjectType, ProjectFileName As String, ByRef nProjId As Integer, ByRef nProdId As Integer, ByRef sBTLFileName As String) As Boolean
|
||||
If nProjectType = ProjectType.PROJ Then
|
||||
Dim DataFromFileName As String() = ProjectFileName.Split(FILENAMESEPARATOR)
|
||||
If DataFromFileName.Count = 3 Then
|
||||
If Not String.IsNullOrEmpty(DataFromFileName(0)) Then
|
||||
Integer.TryParse(DataFromFileName(0), nProjId)
|
||||
Else Return False
|
||||
End If
|
||||
If Not String.IsNullOrEmpty(DataFromFileName(1)) Then
|
||||
Integer.TryParse(DataFromFileName(1), nProdId)
|
||||
Else
|
||||
nProdId = 0
|
||||
End If
|
||||
If Not String.IsNullOrEmpty(DataFromFileName(2)) Then
|
||||
sBTLFileName = DataFromFileName(2)
|
||||
End If
|
||||
Return True
|
||||
Else Return False
|
||||
End If
|
||||
ElseIf nProjectType = ProjectType.PROD Then
|
||||
Return Integer.TryParse(ProjectFileName, nProdId)
|
||||
Else Return False
|
||||
End If
|
||||
End Function
|
||||
|
||||
' funzione che dato un nome file e il tipo restituisce il corretto numero di progetto
|
||||
Friend Shared Function GetProjectNumber(nProjectType As ProjectType, ProjectFileName As String, ByRef nProjId As Integer, ByRef nProdId As Integer, ByRef sBTLFileName As String) As Boolean
|
||||
If String.IsNullOrWhiteSpace(ProjectFileName) Then
|
||||
nProjId = 0
|
||||
nProdId = 0
|
||||
sBTLFileName = ""
|
||||
Return False
|
||||
ElseIf ProjectFileName.Contains(FILENAMESEPARATOR) Then
|
||||
Dim DataFromFileName As String() = ProjectFileName.Split(FILENAMESEPARATOR)
|
||||
If DataFromFileName.Count = 3 Then
|
||||
If Not String.IsNullOrEmpty(DataFromFileName(0)) Then
|
||||
Integer.TryParse(DataFromFileName(0), nProjId)
|
||||
Else Return False
|
||||
End If
|
||||
If Not String.IsNullOrEmpty(DataFromFileName(1)) Then
|
||||
Integer.TryParse(DataFromFileName(1), nProdId)
|
||||
Else
|
||||
nProdId = 0
|
||||
End If
|
||||
If Not String.IsNullOrEmpty(DataFromFileName(2)) Then
|
||||
sBTLFileName = DataFromFileName(2)
|
||||
End If
|
||||
Return True
|
||||
Else Return False
|
||||
End If
|
||||
ElseIf nProjectType = ProjectType.PROJ Then
|
||||
Dim ProjectFileNameProd As String = Integer.TryParse(ProjectFileName, nProdId)
|
||||
Dim nTempProjId As Integer = 0
|
||||
Dim nTempProdId As Integer = 0
|
||||
Dim sTempBTLFileName As String = ""
|
||||
' ricavo lista cartelle proj
|
||||
Dim AllDirsInDir As IEnumerable(Of String) = IO.Directory.EnumerateDirectories(Map.refMainWindowVM.MainWindowM.sProjsDir)
|
||||
For Each Directory In AllDirsInDir
|
||||
Dim AllFilesInDir As IEnumerable(Of String) = IO.Directory.EnumerateFiles(Directory)
|
||||
For Each File In AllFilesInDir
|
||||
If Path.GetExtension(File).ToLower() = ".nge" Then
|
||||
If File.Contains(FILENAMESEPARATOR) Then
|
||||
Dim DataFromFileName As String() = ProjectFileName.Split(FILENAMESEPARATOR)
|
||||
If DataFromFileName.Count = 3 Then
|
||||
If Not String.IsNullOrEmpty(DataFromFileName(0)) Then
|
||||
Integer.TryParse(DataFromFileName(0), nTempProjId)
|
||||
Else Return False
|
||||
End If
|
||||
If Not String.IsNullOrEmpty(DataFromFileName(1)) Then
|
||||
Integer.TryParse(DataFromFileName(1), nTempProdId)
|
||||
Else
|
||||
nProdId = 0
|
||||
End If
|
||||
If Not String.IsNullOrEmpty(DataFromFileName(2)) Then
|
||||
sTempBTLFileName = DataFromFileName(2)
|
||||
End If
|
||||
If ProjectFileNameProd = nTempProdId Then
|
||||
nProjId = nTempProjId
|
||||
nProdId = nTempProdId
|
||||
sTempBTLFileName = sBTLFileName
|
||||
Return True
|
||||
End If
|
||||
Else Return False
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Friend Shared Function VerifyProjectModification(CurrProject As ProjectFileVM, Type As ProjectType) As Boolean
|
||||
If IsNothing(CurrProject) Then Return False
|
||||
Dim bNewProject As Boolean = False
|
||||
Dim sProjectDirPath As String = ""
|
||||
If Type = ProjectType.PROJ Then
|
||||
bNewProject = DbControllers.m_ProjController.FindByProjId(CurrProject.m_nProjId).IsNew
|
||||
sProjectDirPath = CurrProject.sProjDirPath
|
||||
Else
|
||||
bNewProject = CurrProject.NewProd
|
||||
sProjectDirPath = CurrProject.sProdDirPath
|
||||
End If
|
||||
' verifico se progetto modificato, e chiedo se salvare
|
||||
If (EgtGetModified() Or bNewProject) Then
|
||||
If MessageBox.Show("Salvare le modifiche apportate al progetto?", "", MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
|
||||
' salvo proj
|
||||
If Type = ProjectType.PROJ Then
|
||||
Map.refProjManagerVM.Save()
|
||||
Else
|
||||
Map.refProdManagerVM.Save()
|
||||
End If
|
||||
Return True
|
||||
Else
|
||||
' se da non salvare e nuovo proj
|
||||
If bNewProject Then
|
||||
' lo elimino
|
||||
Directory.Delete(sProjectDirPath, True)
|
||||
DbControllers.m_ProjController.DeleteProj(CurrProject.m_nProjId)
|
||||
If Type = ProjectType.PROD AndAlso CurrProject.m_nProdId = Map.refProjManagerVM.CurrProj.m_nProdId Then
|
||||
' reset prod in path proj
|
||||
Map.refProjManagerVM.CurrProj.ResetProdId()
|
||||
End If
|
||||
CurrProject = Nothing
|
||||
End If
|
||||
EgtResetModified()
|
||||
Return False
|
||||
End If
|
||||
End If
|
||||
Return True
|
||||
End Function
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user