-- mejora conexión contpaqi

This commit is contained in:
2022-05-19 16:57:38 -07:00
parent f21fb602bf
commit cc40fb3f4b

View File

@@ -156,7 +156,7 @@ Partial Class Inicio
LtlTitulo.Text = "Sistema Integral de Información Gluyas"
End If
If UsuarioActual.Empresa.UsaContabilidad Then
If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaContabilidad Then
Dim ObjPolizas As New ClsContPAQi(UsuarioActual.Empresa)
If ObjPolizas.GetPolizasCuadre() And ObjPolizas.DtResultados.Rows.Count > 0 Then
Dim ObjNotificacion = ItemNotificaciones(String.Format("Polizas de cuadre {0}", ObjPolizas.DtResultados.Rows.Count), Ico:="icon-calculator", Tipo:="warning", Link:="/Contabilidad/RepPolizasCuadre.aspx")