From db3f7f24dc54e4483c05f7b6358702cbaf181293 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 23 Mar 2020 17:50:50 -0700 Subject: [PATCH] - cambios de agrupadores --- Contabilidad/ContabilizacionCompras.aspx.cs | 22 ++++++++++----------- Contabilidad2/CatCuentas.aspx.vb | 10 ++-------- 2 files changed, 13 insertions(+), 19 deletions(-) diff --git a/Contabilidad/ContabilizacionCompras.aspx.cs b/Contabilidad/ContabilizacionCompras.aspx.cs index ec8ae0aba..17ffb188a 100644 --- a/Contabilidad/ContabilizacionCompras.aspx.cs +++ b/Contabilidad/ContabilizacionCompras.aspx.cs @@ -53,21 +53,21 @@ public partial class Contabilidad_ContabilizacionCompras : ClsPaginas //DdlProveedores.DataSource = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa); //DdlProveedores.DataBind(); - - DdlPersonal.DataSource = get_GlobalDTRHPersonal(UsuarioActual.CveEmpresa); - DdlPersonal.DataBind(); - - DdlPlantillasPolizas.DataSource = get_GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa); - DdlPlantillasPolizas.Items.Insert(0, new ListItem("Todos", "-1")); - DdlPlantillasPolizas.DataBind(); - - txtFechaI.Text = DateTime.Now.FirstDayOfMonth().AddMonths(-1).ToShortDateString(); - txtFechaF.Text = DateTime.Now.ToShortDateString(); - + //CargaDatos(); } + DdlPersonal.DataSource = get_GlobalDTRHPersonal(UsuarioActual.CveEmpresa); + DdlPersonal.DataBind(); + + DdlPlantillasPolizas.DataSource = get_GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa); + DdlPlantillasPolizas.Items.Insert(0, new ListItem("Todos", "-1")); + DdlPlantillasPolizas.DataBind(); + + txtFechaI.Text = DateTime.Now.FirstDayOfMonth().AddMonths(-1).ToShortDateString(); + txtFechaF.Text = DateTime.Now.ToShortDateString(); + if (UsuarioActual.CveRol == 1 || UsuarioActual.CveUsuario == 17 || UsuarioActual.CveUsuario == 171 || UsuarioActual.TienePermisoProceso(221)) { TienePermisoEditar = true; diff --git a/Contabilidad2/CatCuentas.aspx.vb b/Contabilidad2/CatCuentas.aspx.vb index 7dbef8341..7a8cecb4e 100644 --- a/Contabilidad2/CatCuentas.aspx.vb +++ b/Contabilidad2/CatCuentas.aspx.vb @@ -111,19 +111,13 @@ Partial Class Contabilidad2_CatCuentas End Sub Private Sub CargaMonedas() - 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) - Dim ObJConta As New ClsContabilidad - - If ObJConta.GetMonedas() Then - DdlMoneda.DataSource = ObJConta.DtResultados - End If - ObJConta.Dispose() + DdlMoneda.DataSource = GlobalDTMonedas DdlMoneda.DataBind() End Sub Private Sub CargaAgrupadorSAT() - 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) + Dim ObjConta As New ClsContabilidad If ObjConta.GetAgrupadoresSAT(UsuarioActual.CveEmpresa) Then