- Piccole correzioni a SParam aggiunti e salvati in Warehouse

This commit is contained in:
RenzoL
2022-03-04 12:13:06 +01:00
parent 5d0a7705d5
commit 1c2f87d79f
@@ -660,7 +660,7 @@ Public Class WarehouseWndVM
Return
End If
For Each SPItem In SParamList
If SParamList(ParamIndex - 1).dL <= 0 Then
If IsNothing(SParamList(ParamIndex - 1).SectXMat) OrElse SParamList(ParamIndex - 1).dL <= 0 Then
MessageBox.Show(IncorrectValues_Msg, Error_Msg)
Return
End If
@@ -701,7 +701,7 @@ Public Class WarehouseWndVM
Return
End If
For Each SPItem In SParamList
If SParamList(ParamIndex - 1).dW <= 0 OrElse SParamList(ParamIndex - 1).dL <= 0 Then
If IsNothing(SParamList(ParamIndex - 1).SectXMat) OrElse SParamList(ParamIndex - 1).dW <= 0 OrElse SParamList(ParamIndex - 1).dL <= 0 Then
MessageBox.Show(IncorrectValues_Msg, Error_Msg)
Return
End If
@@ -1463,7 +1463,7 @@ Public Class SParam
Public ReadOnly Property sMaterial As String
Get
Return SectXMat.sMaterial(0)
Return If(IsNothing(SectXMat), "", SectXMat.sMaterial(0))
End Get
End Property