From 3bb2b47a2cf1a90a2f3bd0842043618cbba735dd Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 21 Nov 2023 21:08:31 -0700
Subject: [PATCH] -- sincroniza las cuentas faltantes de contapaq a SIG

---
 Contabilidad2/CatCuentasAsignaciones.aspx.vb | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx.vb b/Contabilidad2/CatCuentasAsignaciones.aspx.vb
index 7a8c0c868..2bc12af94 100644
--- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb
+++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb
@@ -72,7 +72,14 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
 
     Private Sub CargaDatosModal()
         DdlConceptoNomina.DataSource = GlobalDTNomConceptos(UsuarioActual.CveEmpresa)
-        DdlConceptoNomina.DataBind()
+        DdlConceptoNomina.DataBind()
+
+        If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+            Dim Con As New ClsContPAQi(UsuarioActual.Empresa)
+            Con.SincronizaCuentas(UsuarioActual.CveEmpresa)
+            Con.Dispose()
+        End If
+
         Dim ObjConta As New ClsContabilidad
 
         If ObjConta.GetConta_ConceptosContables() Then
@@ -84,7 +91,8 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
             DdlCuenta.DataSource = ObjConta.DtResultados
             DdlCuentaGlobal.DataSource = ObjConta.DtResultados
         End If
-        ObjConta.Dispose()
+        ObjConta.Dispose()
+
         DdlProveedor.setEsWebService(True) 'GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
 
         DdlClientes.setEsWebService(True)