Public Function NVL(ByVal pVAR As Object, ByVal pDEFAULT As Object) As Object
If IsDBNull(pVAR) Then
Return pDEFAULT
Else
Return pVAR
End If
End Function
If Not o_dsBOM Is Nothing AndAlso o_dsBOM.Tables("PLANBOM").Rows.Count > 0 Then