cambios de extensiones .SUM de double a decimal

Inventarios/ResguardoMaterial.aspx.vb

@@ -1165,12 +1165,6 @@ Partial Class Inventarios_ResguardoMaterial
 
     Private Sub DdlAlmacenDestinoLiberacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlAlmacenDestinoLiberacion.SelectedIndexChanged
         Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenDestinoLiberacion.selectedvalue.toentero).FiltroPrimeroValor("CveSubProyecto").ToEntero
-        'RMF condición temporal
-        If UsuarioActual.CveEmpresa = 119 AndAlso CveSubProyecto.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
-            ValidaLoteCaducidad = True
-        Else
-            ValidaLoteCaducidad = False
-        End If
 
         CargaResguardos()
     End Sub