diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb
index ac69f6856..3e188d6e2 100644
--- a/Inventarios/Kardex.aspx.vb
+++ b/Inventarios/Kardex.aspx.vb
@@ -81,18 +81,27 @@ Partial Class Inventarios_Kardex
 
         ddlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1)
         ddlAlmacen.DataBind()
-        If IfNull(Request("CveAlmacen"), "-1").ToString.ToEntero > 0 Then ddlAlmacen.SelectedValuesIfExist(Request("CveAlmacen").ToString)
+        Dim CveTipoAlmacen As Integer
+        If IfNull(Request("CveAlmacen"), "-1").ToString.ToEntero > 0 Then
+            ddlAlmacen.SelectedValuesIfExist(Request("CveAlmacen").ToString)
+            CveTipoAlmacen = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=Request("CveAlmacen").ToString.ToEntero).FiltroPrimeroValor("CveTipoAlmacen").ToEntero
+            '  If CveTipoAlmacen = 3 Then chktransitorio.checked = True
+        End If
         CargaClasificaciones()
 
+
         CBLTiposAlmacen.DataSource = GlobalDTTipoAlmacen(-1)
         CBLTiposAlmacen.DataBind()
         For Each item As ListItem In CBLTiposAlmacen.Items
             If item.Text.Contiene("Entrega Adelantado", "Transitorio") Then
-                item.Selected = False
+                If CveTipoAlmacen = 3 Then
+                    item.Selected = True
+                Else
+                    item.Selected = False
+                End If
             Else
                 item.Selected = True
             End If
-
         Next
     End Sub
     Private Sub CargaFuncionalidad105()