-- sincroniza las cuentas faltantes de contapaq a SIG

This commit is contained in:
2023-11-21 21:08:31 -07:00
parent 3f88aa7ef9
commit 3bb2b47a2c

View File

@@ -73,6 +73,13 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
Private Sub CargaDatosModal() Private Sub CargaDatosModal()
DdlConceptoNomina.DataSource = GlobalDTNomConceptos(UsuarioActual.CveEmpresa) 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 Dim ObjConta As New ClsContabilidad
If ObjConta.GetConta_ConceptosContables() Then If ObjConta.GetConta_ConceptosContables() Then
@@ -85,6 +92,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
DdlCuentaGlobal.DataSource = ObjConta.DtResultados DdlCuentaGlobal.DataSource = ObjConta.DtResultados
End If End If
ObjConta.Dispose() ObjConta.Dispose()
DdlProveedor.setEsWebService(True) 'GlobalDTCompProveedores(UsuarioActual.CveEmpresa) DdlProveedor.setEsWebService(True) 'GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
DdlClientes.setEsWebService(True) DdlClientes.setEsWebService(True)