-- mejora en manejo de liga para prepoliza

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("<a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' target='_blank' class='Texto'>Ver Poliza</a>", ObjContabilidad.ContaIdPoliza)
-
+                    If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                        Str.AppendFormat("<a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' target='_blank' class='Texto'>Ver Poliza</a>", ObjContabilidad.ContaIdPoliza)
+                    End If
                 End If
             End If
             Alert(Str.ToString)
@@ -420,8 +421,6 @@ Partial Class PopUpAuxiliar
 
         End If
 
-
-
         ObjContabilidad.Dispose()
         CargaDatos()