diff --git a/Ventas/CatImpuestosLocales.aspx.vb b/Ventas/CatImpuestosLocales.aspx.vb
index 9c236d2a6..407d49483 100644
--- a/Ventas/CatImpuestosLocales.aspx.vb
+++ b/Ventas/CatImpuestosLocales.aspx.vb
@@ -60,7 +60,7 @@ Partial Class Ventas_CatImpuestosLocales
     End Sub
 
     Private Sub CargaCuentasContables()
-        If UsuarioActual.Empresa.UsaContabilidad OrElse UsuarioActual.Empresa.UsaAC Then
+        If UsuarioActual.Empresa.TipoContabilidad = 2 OrElse UsuarioActual.Empresa.UsaAC Then
             Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
             'UsuarioActual.Empresa.Funcionalidad(208).ToEntero
             If ObjContabilidad.GetCuentasRecursiva(1, 1) Then
@@ -82,7 +82,7 @@ Partial Class Ventas_CatImpuestosLocales
 
     Protected Sub GvImpuestos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvImpuestos.RowDeleting
         Dim ObjVentas As New ClsVentas()
-        Dim TieneError = False
+        Dim TieneError As Boolean = False
 
         Dim CveImpuesto As Integer = GvImpuestos.Rows(e.RowIndex).DataKey("CveImpuestoLocal").ToEntero
 
@@ -155,7 +155,7 @@ Partial Class Ventas_CatImpuestosLocales
 
     Private Sub BtnAgregarImpuesto_Click(sender As Object, e As EventArgs) Handles BtnAgregarImpuesto.Click
         Dim ObjVentas As New ClsVentas
-        Dim Estatus = 0
+        Dim Estatus As Integer = 0
 
         If CveImpuestoLocal = -1 Then
             If ChkEstatus.Checked Then Estatus = 1
@@ -169,11 +169,11 @@ Partial Class Ventas_CatImpuestosLocales
             TxtImpuesto.Focus()
         Else
             If CveImpuestoLocal <> -1 Then
-                Dim TieneError = False
+                Dim TieneError As Boolean = False
                 Dim Impuesto As String = TxtImpuesto.Text.Trim
                 Dim Porcentaje As Decimal = TxtPorcentaje.Text.ToDecimal
-                Dim Orden = TxtOrden.Text.ToEntero
-                Dim TipoImpuesto = DdlTipoImpuesto.SelectedValue.ToEntero
+                Dim Orden As Integer = TxtOrden.Text.ToEntero
+                Dim TipoImpuesto As Integer = DdlTipoImpuesto.SelectedValue.ToEntero
                 If ChkEstatus.Checked Then Estatus = 1
 
                 If Not ObjVentas.UpdateImpuestosLocales(CveImpuestoLocal, Impuesto, Porcentaje, Orden, TipoImpuesto, Estatus, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero) Then