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()