diff --git a/Inventarios/CatAlmacenes.aspx b/Inventarios/CatAlmacenes.aspx
index c76f3f83a..6325655e6 100644
--- a/Inventarios/CatAlmacenes.aspx
+++ b/Inventarios/CatAlmacenes.aspx
@@ -151,7 +151,7 @@
     </div>
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveAlmacen,IdCtaContable,Inventariable,Modalidad,CveTipoAlmacen,Almacen,Estatus,CveSubProyecto,Orden,CveCuenta,CveUsuarioAutoriza,CveAlmacenVirtual" EmptyDataText="No se encontraron Almacenes" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" data-heighterror="300px" data-freezerows="1" GridLines="None">
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveAlmacen,Inventariable,Modalidad,CveTipoAlmacen,Almacen,Estatus,CveSubProyecto,Orden,CveCuenta,CveUsuarioAutoriza,CveAlmacenVirtual" EmptyDataText="No se encontraron Almacenes" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" data-heighterror="300px" data-freezerows="1" GridLines="None">
                 <Columns>
                     <asp:TemplateField ItemStyle-Width="20%" HeaderText="Almacen">
                         <ItemTemplate>
diff --git a/Inventarios/CatAlmacenes.aspx.vb b/Inventarios/CatAlmacenes.aspx.vb
index 64e9d577f..a65f93a13 100644
--- a/Inventarios/CatAlmacenes.aspx.vb
+++ b/Inventarios/CatAlmacenes.aspx.vb
@@ -166,11 +166,6 @@ Partial Class Inventarios_CatAlmacenes
                 'e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Center
                 'e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Center
 
-                If e.Row.DBCampo("IdCtaContable").ToEntero > 0 Then
-                    e.Row.FCLiteral("LtlCuentaContable").Text = DtCuentasContables.FiltroPrimeroValor("CtaCodigo", $"Id = {e.Row.DBCampo("IdCtaContable")}")
-                    'Else
-                    '    e.Row.FCLiteral("LtlCuentaContable").Text = "Sin Cuenta"
-                End If
             End If
 
             If e.Row.RowType = DataControlRowType.DataRow Then
@@ -243,7 +238,7 @@ Partial Class Inventarios_CatAlmacenes
     Private Sub BtnAgregarAlmacen_Click(sender As Object, e As EventArgs) Handles BtnAgregarAlmacen.Click
         'CargaSucursal()
         Dim ObjAlmacen As New ClsInventarios
-        Dim TieneError = False
+        Dim TieneError As Boolean = False
         Dim Estatus As Boolean = False
         If ChkEstatus.Checked Then Estatus = True
         Dim CuentaContable As Integer = 0
@@ -331,7 +326,6 @@ Partial Class Inventarios_CatAlmacenes
         DdlInventariable.SelectedValueExist(If((GvRow.DataKey("Inventariable")) = "True", 1, 0))
         DdlModalidad.SelectedValueExist(If((GvRow.DataKey("Modalidad")) = "Solo Existencia", 0, 1))
         divddlcc.Visible = If((DdlModalidad.SelectedValue.ToEntero) = 1, True, False)
-        DdlCuentasContables.SelectedValueExist(GvRow.DataKey("IdCtaContable"))
         DdlCuentasSig.SelectedValueExist(-1)
         DdlCuentasSig.SelectedValueExist(GvRow.DataKey("CveCuenta"))
         DdlSubProyecto.SelectedValueExist(GvRow.DataKey("CveSubProyecto"))