recepcion por oc, considerar lote/caducidad

Inventarios/RecepcionAlmacen.aspx.vb

@@ -4082,6 +4082,8 @@ Partial Class Inventarios_RecepcionAlmacen
                 TipoCambio = 0
                 TipoMovimiento = 1
 
+
+
                 If ObjInventario.RecepcionAlmacenOCGet(CveOC, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
                     DtDatosDetalle = Nothing
                     CreaDtDetalle()
@@ -4120,7 +4122,11 @@ Partial Class Inventarios_RecepcionAlmacen
                         DivDocumentos.Visible = True
                         UpDocumentos.Update()
                     End If
-
+                    'RMF condición temporal
+                    Dim CveSubProyecto As Integer = ObjInventario.DtResultados.Rows(0)("CveSubProyecto").ToString.ToEntero
+                    If UsuarioActual.CveEmpresa = 119 AndAlso CveSubProyecto = 10276 Then
+                        ValidaLoteCaducidad = True
+                    End If
 
                     CargaGVInv()