diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index a974ad4ba..dd56a1943 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -2186,16 +2186,17 @@ Partial Class Inventarios_EntregaAlmacen
                 DtDatos.Rows(Index)("CantidadGV") = gvr.FCTextBox("TbCantidadF").Text.ToDecimal
                 DtDatos.Rows(Index)("CveSeccion") = gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero()
 
-                If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
-                    'Esto es por que 
+                If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+
                     Dim DdlCaducidadProducto As DropDownList = gvr.FCDropDownList("DdlCaducidadProducto")
-                    Dim ArrayCaducidad As String() = DdlCaducidadProducto.SelectedValue.Split("|"c)
-                    Dim Lote As String = ArrayCaducidad(0)
-                    Dim FechaCaducidad As String = ArrayCaducidad(1)
-
-                    DtDatos.Rows(Index)("FechaCaducidad") = FechaCaducidad.ToDate
-                    DtDatos.Rows(Index)("Lote") = Lote
+                    If DdlCaducidadProducto.SelectedValue <> "" AndAlso DdlCaducidadProducto.SelectedValue <> "|" Then
+                        Dim ArrayCaducidad As String() = DdlCaducidadProducto.SelectedValue.Split("|"c)
+                        Dim Lote As String = ArrayCaducidad(0)
+                        Dim FechaCaducidad As String = ArrayCaducidad(1)
 
+                        DtDatos.Rows(Index)("FechaCaducidad") = FechaCaducidad.ToDate
+                        DtDatos.Rows(Index)("Lote") = Lote
+                    End If
                 Else
                     DtDatos.Rows(Index)("FechaCaducidad") = gvr.FCTextBox("TxtCaducidad").Text.ToDate
                     DtDatos.Rows(Index)("Lote") = gvr.FCTextBox("TxtLote").Text