diff --git a/Contabilidad/FiltraPolizas.aspx.vb b/Contabilidad/FiltraPolizas.aspx.vb
index 757c4db73..5c37015df 100644
--- a/Contabilidad/FiltraPolizas.aspx.vb
+++ b/Contabilidad/FiltraPolizas.aspx.vb
@@ -26,33 +26,18 @@ Partial Class Contabilidad_FiltraPolizas
     End Property
 
 
-    Public Property ContabilidadSIG As Boolean
-        Get
-            If ViewState("ContabilidadSIG") Is Nothing Then
-                ViewState("ContabilidadSIG") = False
-            End If
-
-            Return Boolean.Parse(ViewState("ContabilidadSIG").ToString)
-
-        End Get
-        Set(value As Boolean)
-            ViewState("ContabilidadSIG") = value
-        End Set
-    End Property
-
 #End Region
 
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
 
         If Not Page.IsPostBack Then
-            ContabilidadSIG = UsuarioActual.Empresa.TipoContabilidad
             ViewState("Orden") = ""
             DdlPeriodo.SelectedValue = Now.Month.ToString
             TxtFechaICredito.Text = Now.FirstDayOfMonth.ToShortDateString
             TxtFechaFCredito.Text = Now.LastDayOfMonth.ToShortDateString
 
-            If UsuarioActual.Empresa.UsaContabilidad Or ContabilidadSIG Then
+            If UsuarioActual.Empresa.UsaContabilidad OrElse UsuarioActual.Empresa.TipoContabilidad > 0 Then
 
                 CargaSegmentoNeg()
                 CargaEjercicios()
@@ -81,7 +66,7 @@ Partial Class Contabilidad_FiltraPolizas
         Dim Ejercicio As Integer = DdlEjercicio.SelectedValue.ToString().ToEntero()
         Dim Periodo As Integer = DdlPeriodo.SelectedValue.ToString().ToEntero()
 
-        If ContabilidadSIG Then
+        If UsuarioActual.Empresa.TipoContabilidad = 1 Then
 
             Dim ObjConta As New ClsContabilidad
 
@@ -123,7 +108,7 @@ Partial Class Contabilidad_FiltraPolizas
 
         DdlSegmentoNeg.Items.Clear()
 
-        If ContabilidadSIG Then
+        If UsuarioActual.Empresa.TipoContabilidad = 1 Then
             DdlSegmentoNeg.DataValueField = "CveSubProyecto"
             DdlSegmentoNeg.DataTextField = "SubProyecto"
             DdlSegmentoNeg.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
@@ -148,7 +133,7 @@ Partial Class Contabilidad_FiltraPolizas
 
         DdlEjercicio.Items.Clear()
 
-        If ContabilidadSIG Then
+        If UsuarioActual.Empresa.TipoContabilidad = 1 Then
 
             Dim ObjConta As New ClsContabilidad
 
@@ -603,7 +588,7 @@ Partial Class Contabilidad_FiltraPolizas
 
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-            If ContabilidadSIG Then
+            If UsuarioActual.Empresa.TipoContabilidad = 1 Then
 
                 e.Row.Cells(2).Text = $"<a href='/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={e.Row.DataKey("Id")}' class='Texto' Target='_blank' >{e.Row.DataKey("Folio")}</a>"
                 e.Row.Cells(6).Text = $"<a href='/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={e.Row.DataKey("Id")}' class='Texto' Target='_blank'><i class='fa fa-arrow-right' style='color:#686868;'></i></a>"