- Correzzione warning

- Cambiata gestione tipo progetto e macchina associata
2021-09-14 17:46:56 +02:00
parent ae795ae501
commit 59253eb4de
20 changed files with 303 additions and 371 deletions
@@ -27,15 +27,16 @@ Public Class ProdFileM
      Return New ProdFileM
   End Function

-    Public Shared Function CreateProdFileM(nProdId As Integer, nProjIdList As List(Of Integer), dtCreateProjDate As DateTime, sName As String, nType As BWType) As ProdFileM
-        Dim NewProjectFileM As New ProdFileM
-        NewProjectFileM.m_nProdId = nProdId
-        NewProjectFileM.m_nProjIdList = nProjIdList
-        NewProjectFileM.m_dtCreateDate = dtCreateProjDate
-        NewProjectFileM.m_sName = sName
-        NewProjectFileM.m_nType = nType
-        Return NewProjectFileM
-    End Function
+   Public Shared Function CreateProdFileM(nProdId As Integer, nProjIdList As List(Of Integer), dtCreateProjDate As DateTime, sName As String, nType As BWType, sMachine As String) As ProdFileM
+      Dim NewProjectFileM As New ProdFileM
+      NewProjectFileM.m_nProdId = nProdId
+      NewProjectFileM.m_nProjIdList = nProjIdList
+      NewProjectFileM.m_dtCreateDate = dtCreateProjDate
+      NewProjectFileM.m_sName = sName
+      NewProjectFileM.m_nType = nType
+      NewProjectFileM.m_sMachine = sMachine
+      Return NewProjectFileM
+   End Function

 #End Region    ' CONSTRUCTORS