-- sincroniza las cuentas faltantes de contapaq a SIG

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)