diff --git a/Contabilidad/PopUpAuxiliar.aspx.vb b/Contabilidad/PopUpAuxiliar.aspx.vb
index d7547cfe2..6f0951149 100644
--- a/Contabilidad/PopUpAuxiliar.aspx.vb
+++ b/Contabilidad/PopUpAuxiliar.aspx.vb
@@ -268,7 +268,7 @@ Partial Class PopUpAuxiliar
End If
If Not TieneError Then
- If IdPoliza > 0 Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso IdPoliza > 0 Then
If UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad Then
ObjContPaq = New ClsContPAQi(UsuarioActual.Empresa)
ObjContPaq.IniciaTransacSQL()
@@ -410,8 +410,9 @@ Partial Class PopUpAuxiliar
RegistraScript(" $('#DivCancelar').modal('hide'); ")
If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
If ObjContabilidad.ContabilizarPrePoliza(CvePrePolizaNueva, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
- Str.AppendFormat("Ver Poliza", ObjContabilidad.ContaIdPoliza)
-
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ Str.AppendFormat("Ver Poliza", ObjContabilidad.ContaIdPoliza)
+ End If
End If
End If
Alert(Str.ToString)
@@ -420,8 +421,6 @@ Partial Class PopUpAuxiliar
End If
-
-
ObjContabilidad.Dispose()
CargaDatos()