Demetrio Cassarino
21 lines
541 B
VB.net
21 lines
541 B
VB.net
Imports EgtBEAMWALL.Core
|
|
|
|
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 CurrProj In nProjIdList
|
|
Dim TempProj As ProjFileM = DbControllers.m_ProjController.FindByProjIdConv(CurrProj)
|
|
If Not IsNothing(TempProj) Then sBTLFileName &= TempProj.sListName
|
|
Next
|
|
SetBTLFileName(sBTLFileName)
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTORS
|
|
|
|
End Class |