From 7f7e47f230def5cd266e5df9a0672f74c1481fb0 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Thu, 16 Apr 2020 11:19:34 -0700 Subject: [PATCH] =?UTF-8?q?filtro=20de=20drop=20down=20en=20p=C3=A1ginas?= =?UTF-8?q?=20de=20CRM?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- CRM/Acercamiento.aspx.cs | 7 +- CRM/CatMediosCaptacion.aspx | 11 ++- CRM/CatMediosCaptacion.aspx.cs | 21 +++++- CRM/CatProbabilidadAcercamiento.aspx | 11 ++- CRM/CatProbabilidadAcercamiento.aspx.cs | 21 +++++- CRM/EmpresaCRM.aspx | 2 +- CRM/EmpresaCRM.aspx.cs | 52 +++++++++++++- CRM/PopUpBuscarAcercamiento.aspx | 2 +- CRM/PopUpBuscarAcercamiento.aspx.cs | 66 ++++++++++++++++++ CRM/RepAcercamientos.aspx.cs | 26 ++++--- CRM/RepAcercamientosProcesos.aspx | 3 +- CRM/RepAcercamientosProcesos.aspx.cs | 45 ++++++++++++ CRM/RepAcercamientosRechazos.aspx | 1 + CRM/RepAcercamientosRechazos.aspx.cs | 43 ++++++++++++ Contabilidad2/CatCuentas.aspx.vb | 92 +++++++++++++------------ Ventas/RepTopClientesVentas.aspx.vb | 4 +- 16 files changed, 336 insertions(+), 71 deletions(-) diff --git a/CRM/Acercamiento.aspx.cs b/CRM/Acercamiento.aspx.cs index 3b8469ae4..9bd14d662 100644 --- a/CRM/Acercamiento.aspx.cs +++ b/CRM/Acercamiento.aspx.cs @@ -366,6 +366,7 @@ public partial class CRM_Acercamiento : ClsPaginas } CargaImagenes(); + CargaDdl(); UpEncabezado.Update(); UPAcercamiento.Update(); @@ -398,8 +399,6 @@ public partial class CRM_Acercamiento : ClsPaginas RecuperaCve(); TxtFechaApertura.Text = DateTime.Now.ToShortDateString(); - - CargaDdl(); } protected void RecuperaCve() @@ -420,7 +419,7 @@ public partial class CRM_Acercamiento : ClsPaginas if (ObjCRM.GetProbabilidadAcercamiento(UsuarioActual.CveEmpresa, 1)) { - DdlProbabilidadAcercamiento.DataSource = ObjCRM.DtResultados; + DdlProbabilidadAcercamiento.DataSource = ObjCRM.DtResultados.FiltraParametros(String.Format("CveTipoProceso = {0}", CveTipoProceso)); } if (ObjCRM.GetEmpresasCRM(UsuarioActual.CveEmpresa)) { @@ -434,7 +433,7 @@ public partial class CRM_Acercamiento : ClsPaginas //} if (ObjCRM.GetMedioCaptacion(UsuarioActual.CveEmpresa, 1)) { - DdlMedioCaptacion.DataSource = ObjCRM.DtResultados; + DdlMedioCaptacion.DataSource = ObjCRM.DtResultados.FiltraParametros(String.Format("CveTipoProceso = {0}",CveTipoProceso)); DdlMedioCaptacion.Items.Insert(0, new ListItem("Seleccione ", "-1")); } diff --git a/CRM/CatMediosCaptacion.aspx b/CRM/CatMediosCaptacion.aspx index 40fd45942..60d82a951 100644 --- a/CRM/CatMediosCaptacion.aspx +++ b/CRM/CatMediosCaptacion.aspx @@ -27,7 +27,7 @@ " style="display: inline-block; margin-right: -20px; width: 150px;" /> " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> - @@ -52,6 +52,11 @@ + + + + + @@ -87,6 +92,10 @@ +
+
+ +
diff --git a/CRM/CatMediosCaptacion.aspx.cs b/CRM/CatMediosCaptacion.aspx.cs index 2091083ef..fac8b05b1 100644 --- a/CRM/CatMediosCaptacion.aspx.cs +++ b/CRM/CatMediosCaptacion.aspx.cs @@ -54,6 +54,7 @@ public partial class CRM_CatMediosCaptacion : ClsPaginas if (!IsPostBack) { CargaDatos(); + CargarModalDatos(); } } @@ -71,6 +72,19 @@ public partial class CRM_CatMediosCaptacion : ClsPaginas GVDatos.DataBind(); UPDatos.Update(); } + + private void CargarModalDatos() + { + ClsCRM ObjCRM = new ClsCRM(); + if (ObjCRM.GetTipoProceso(UsuarioActual.CveEmpresa)) + { + DdlTipoProceso.DataSource = ObjCRM.DtResultados; + } + ObjCRM.Dispose(); + DdlTipoProceso.DataBind(); + DdlTipoProceso.Items.Insert(0,new ListItem("Seleccione","-1")); + } + protected void limpiarCamposModal() { if (EsEditar == 1) @@ -88,6 +102,7 @@ public partial class CRM_CatMediosCaptacion : ClsPaginas TxtMedioCaptacion.Text = ""; TxtDescripcion.Text = ""; ChkEstatus.Checked = true; + DdlTipoProceso.SelectedValue = "-1"; } #endregion @@ -142,7 +157,7 @@ public partial class CRM_CatMediosCaptacion : ClsPaginas TxtMedioCaptacion.Text = GvRow.DataKey("MedioCaptacion").ToString(); TxtDescripcion.Text = GvRow.DataKey("Descripcion").ToString(); ChkEstatus.Checked = GvRow.DataKey("CveEstatus").ToString() == "True" ? true : false; - + DdlTipoProceso.SelectedValue = GvRow.DataKey("CveTipoProceso").ToString(); UPModal.Update(); this.RegistraScript("$('#DivModal').modal();"); @@ -160,14 +175,14 @@ public partial class CRM_CatMediosCaptacion : ClsPaginas if (EsEditar == 0) { - if (ObjCRM.AddMedioCaptacion(MedioCaptacion, Descripcion, UsuarioActual.CveEmpresa, CveUsuarioIng)) + if (ObjCRM.AddMedioCaptacion(MedioCaptacion, Descripcion, UsuarioActual.CveEmpresa, CveUsuarioIng,DdlTipoProceso.SelectedValue.ToEntero())) { Alert("El Medio de Captación fue creado correctamente.", ModExtensiones.TipoMensaje.MsgInformacion); } } else { - if (ObjCRM.UpdateMedioCaptacion(MedioCaptacion, Descripcion, Estatus, CveMedioCaptacion)) + if (ObjCRM.UpdateMedioCaptacion(MedioCaptacion, Descripcion, Estatus, CveMedioCaptacion,DdlTipoProceso.SelectedValue.ToEntero())) { Alert("El Medio de Captación fue actualizado correctamente.", ModExtensiones.TipoMensaje.MsgInformacion); } diff --git a/CRM/CatProbabilidadAcercamiento.aspx b/CRM/CatProbabilidadAcercamiento.aspx index 67b5be56e..e2978bb2b 100644 --- a/CRM/CatProbabilidadAcercamiento.aspx +++ b/CRM/CatProbabilidadAcercamiento.aspx @@ -27,7 +27,7 @@ " style="display: inline-block; margin-right: -20px; width: 150px;" /> " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
- @@ -53,6 +53,11 @@ + + + + + @@ -88,6 +93,10 @@ +
+
+ +
diff --git a/CRM/CatProbabilidadAcercamiento.aspx.cs b/CRM/CatProbabilidadAcercamiento.aspx.cs index 0c3d41a3b..9b9d51d3d 100644 --- a/CRM/CatProbabilidadAcercamiento.aspx.cs +++ b/CRM/CatProbabilidadAcercamiento.aspx.cs @@ -55,6 +55,7 @@ public partial class CRM_CatProbabilidadAcercamiento : ClsPaginas if (!IsPostBack) { CargaDatos(); + CargarModalDatos(); } } @@ -72,6 +73,19 @@ public partial class CRM_CatProbabilidadAcercamiento : ClsPaginas GVDatos.DataBind(); UPDatos.Update(); } + + private void CargarModalDatos() + { + ClsCRM ObjCRM = new ClsCRM(); + if (ObjCRM.GetTipoProceso(UsuarioActual.CveEmpresa)) + { + DdlTipoProceso.DataSource = ObjCRM.DtResultados; + } + ObjCRM.Dispose(); + DdlTipoProceso.DataBind(); + DdlTipoProceso.Items.Insert(0, new ListItem("Seleccione", "-1")); + } + protected void limpiarCamposModal() { if (EsEditar == 1) @@ -86,6 +100,7 @@ public partial class CRM_CatProbabilidadAcercamiento : ClsPaginas BtnGuardar.Text = "Guardar"; DivEstatus.Visible = false; } + DdlTipoProceso.SelectedValue = "-1"; TxtProbabilidadAcercamiento.Text = ""; //TxtDescripcion.Text = ""; ChkEstatus.Checked = true; @@ -113,7 +128,7 @@ public partial class CRM_CatProbabilidadAcercamiento : ClsPaginas TxtProbabilidadAcercamiento.Text = GvRow.DataKey("ProbabilidadAcercamiento").ToString(); //TxtDescripcion.Text = GvRow.DataKey("Descripcion").ToString(); ChkEstatus.Checked = GvRow.DataKey("CveEstatus").ToString() == "True" ? true : false; - + DdlTipoProceso.SelectedValue = GvRow.DataKey("CveTipoProceso").ToString(); UPModal.Update(); this.RegistraScript("$('#DivModal').modal();"); @@ -131,14 +146,14 @@ public partial class CRM_CatProbabilidadAcercamiento : ClsPaginas if (EsEditar == 0) { - if (ObjCRM.AddProbabilidadAcercamiento(ProbabilidadAcercamiento, UsuarioActual.CveEmpresa, CveUsuarioIng)) + if (ObjCRM.AddProbabilidadAcercamiento(ProbabilidadAcercamiento, UsuarioActual.CveEmpresa, CveUsuarioIng,DdlTipoProceso.SelectedValue.ToEntero())) { Alert("La Probabilidad de Acercamiento fue creada correctamente.", ModExtensiones.TipoMensaje.MsgInformacion); } } else { - if (ObjCRM.UpdateProbabilidadAcercamiento(ProbabilidadAcercamiento, Estatus, CveProbabilidadAcercamiento)) + if (ObjCRM.UpdateProbabilidadAcercamiento(ProbabilidadAcercamiento, Estatus, CveProbabilidadAcercamiento,DdlTipoProceso.SelectedValue.ToEntero())) { Alert("La Probabilidad de Acercamiento fue actualizada correctamente.", ModExtensiones.TipoMensaje.MsgInformacion); } diff --git a/CRM/EmpresaCRM.aspx b/CRM/EmpresaCRM.aspx index 30ac67e1c..778b5a390 100644 --- a/CRM/EmpresaCRM.aspx +++ b/CRM/EmpresaCRM.aspx @@ -589,7 +589,7 @@
- +
diff --git a/CRM/EmpresaCRM.aspx.cs b/CRM/EmpresaCRM.aspx.cs index 1ae0436d9..3e3673985 100644 --- a/CRM/EmpresaCRM.aspx.cs +++ b/CRM/EmpresaCRM.aspx.cs @@ -191,6 +191,32 @@ public partial class CRM_EmpresaCRM : ClsPaginas ViewState["CreoCliente"] = value; } } + + private DataTable DtMedioCaptacion + { + get + { + return (DataTable)ViewState["DtMedioCaptacion"]; + } + + set + { + ViewState["DtMedioCaptacion"] = value; + } + } + + private DataTable DtProbabilidadAcercamiento + { + get + { + return (DataTable)ViewState["DtProbabilidadAcercamiento"]; + } + + set + { + ViewState["DtProbabilidadAcercamiento"] = value; + } + } #endregion protected void Page_Load(object sender, EventArgs e) @@ -518,8 +544,9 @@ public partial class CRM_EmpresaCRM : ClsPaginas { DdlMedioCaptacion.DataSource = ObjCRM.DtResultados; DdlMedioCaptacion.Items.Insert(0, new ListItem("Seleccione ", "-1")); - + DdlMedioCaptacionAcercamiento.Items.Clear(); DdlMedioCaptacionAcercamiento.DataSource = ObjCRM.DtResultados; + DtMedioCaptacion = ObjCRM.DtResultados; DdlMedioCaptacionAcercamiento.Items.Insert(0, new ListItem("Seleccione ", "-1")); } ObjCRM.Dispose(); @@ -629,6 +656,21 @@ public partial class CRM_EmpresaCRM : ClsPaginas CargaEventoBitacora(); } } + + protected void DdlTipoProceso_Change(object sender, EventArgs e) + { + DdlMedioCaptacionAcercamiento.Items.Clear(); + DdlMedioCaptacionAcercamiento.DataSource = DtMedioCaptacion.FiltraParametros(String.Format("CveTipoProceso = {0}",DdlTipoProceso.SelectedValue.ToEntero())); + DdlMedioCaptacionAcercamiento.DataBind(); + DdlMedioCaptacionAcercamiento.Items.Insert(0,new ListItem("Seleccione","-1")); + + DdlProbabilidadAcercamiento.Items.Clear(); + DdlProbabilidadAcercamiento.DataSource = DtProbabilidadAcercamiento.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero())); + DdlProbabilidadAcercamiento.DataBind(); + DdlProbabilidadAcercamiento.Items.Insert(0, new ListItem("Seleccione", "-1")); + + UpAltaAcercamiento.Update(); + } #endregion #region "ELIMINAR EMPRESA" @@ -1236,7 +1278,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas { DdlTipoProceso.DataSource = ObjCRM.DtResultados; - if (ObjCRM.DtResultados.Rows.Count > 1) + if (ObjCRM.DtResultados.Rows.Count > 0) DdlTipoProceso.Items.Insert(0, new ListItem("Seleccione ", "-1")); DdlTipoProceso.DataBind(); @@ -1247,6 +1289,8 @@ public partial class CRM_EmpresaCRM : ClsPaginas DdlProbabilidadAcercamiento.DataSource = ObjCRM.DtResultados; DdlProbabilidadAcercamiento.DataBind(); DdlProbabilidadAcercamiento.Items.Insert(0, new ListItem("Seleccione ", "-1")); + + DtProbabilidadAcercamiento = ObjCRM.DtResultados; } DdlVendedor.DataSource = get_GlobalDTVendedores(UsuarioActual.CveEmpresa); @@ -1293,6 +1337,10 @@ public partial class CRM_EmpresaCRM : ClsPaginas } else { + ClsCRM ObjCRM = new ClsCRM(); + CargaMetodosCaptacion(); + InicializaAcercamientos(ObjCRM); + ObjCRM.Dispose(); limpiarCamposModalAcercamiento(); this.RegistraScript("$('#DivModalAltaAcercamiento').modal();"); UpAltaAcercamiento.Update(); diff --git a/CRM/PopUpBuscarAcercamiento.aspx b/CRM/PopUpBuscarAcercamiento.aspx index ec39a8719..d1ad5a07d 100644 --- a/CRM/PopUpBuscarAcercamiento.aspx +++ b/CRM/PopUpBuscarAcercamiento.aspx @@ -34,7 +34,7 @@ Tipo de Proceso: - + diff --git a/CRM/PopUpBuscarAcercamiento.aspx.cs b/CRM/PopUpBuscarAcercamiento.aspx.cs index f19dd40f4..982fd1a6c 100644 --- a/CRM/PopUpBuscarAcercamiento.aspx.cs +++ b/CRM/PopUpBuscarAcercamiento.aspx.cs @@ -10,6 +10,46 @@ using System.Data; public partial class CRM_PopUpBuscarAcercamiento : ClsPaginas { + + private DataTable DtMedioCaptacion + { + get + { + return (DataTable)ViewState["DtMedioCaptacion"]; + } + + set + { + ViewState["DtMedioCaptacion"] = value; + } + } + + private DataTable DtProbabilidadAcercamiento + { + get + { + return (DataTable)ViewState["DtProbabilidadAcercamiento"]; + } + + set + { + ViewState["DtProbabilidadAcercamiento"] = value; + } + } + + private DataTable DtRechazo + { + get + { + return (DataTable)ViewState["DtRechazo"]; + } + + set + { + ViewState["DtRechazo"] = value; + } + } + protected void Page_Load(object sender, EventArgs e) { if (!IsPostBack) @@ -26,8 +66,10 @@ public partial class CRM_PopUpBuscarAcercamiento : ClsPaginas if (ObjCRM.GetProbabilidadAcercamiento(UsuarioActual.CveEmpresa, 1)) { + DdlProbabilidad.Items.Clear(); DdlProbabilidad.DataSource = ObjCRM.DtResultados; DdlProbabilidad.Items.Insert(0, new ListItem("Todas ", "-1")); + DtProbabilidadAcercamiento = ObjCRM.DtResultados; } if (ObjCRM.GetEmpresasCRM(UsuarioActual.CveEmpresa)) { @@ -41,14 +83,18 @@ public partial class CRM_PopUpBuscarAcercamiento : ClsPaginas } if (ObjCRM.GetMedioCaptacion(UsuarioActual.CveEmpresa, 1)) { + DdlMedioCaptacion.Items.Insert(0, new ListItem("Seleccione", "-1")); DdlMedioCaptacion.DataSource = ObjCRM.DtResultados; DdlMedioCaptacion.Items.Insert(0, new ListItem("Todos ", "-1")); + DtMedioCaptacion = ObjCRM.DtResultados; } if (ObjCRM.GetRechazoMotivo(UsuarioActual.CveEmpresa, 1)) { + DdlRechazoMotivo.Items.Clear(); DdlRechazoMotivo.DataSource = ObjCRM.DtResultados; DdlRechazoMotivo.Items.Insert(0, new ListItem("Todos ", "-1")); + DtRechazo = ObjCRM.DtResultados; } DdlVendedor.DataSource = get_GlobalDTVendedores(UsuarioActual.CveEmpresa); @@ -63,6 +109,26 @@ public partial class CRM_PopUpBuscarAcercamiento : ClsPaginas DdlMedioCaptacion.DataBind(); DdlRechazoMotivo.DataBind(); } + + protected void DdlTipoProceso_Change(object sender, EventArgs e) + { + DdlMedioCaptacion.Items.Clear(); + DdlMedioCaptacion.DataSource = DtMedioCaptacion.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero())); + DdlMedioCaptacion.DataBind(); + DdlMedioCaptacion.Items.Insert(0, new ListItem("Seleccione", "-1")); + + DdlProbabilidad.Items.Clear(); + DdlProbabilidad.DataSource = DtProbabilidadAcercamiento.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero())); + DdlProbabilidad.DataBind(); + DdlProbabilidad.Items.Insert(0, new ListItem("Seleccione", "-1")); + + DdlRechazoMotivo.Items.Clear(); + DdlRechazoMotivo.DataSource = DtRechazo.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero())); + DdlRechazoMotivo.DataBind(); + DdlRechazoMotivo.Items.Insert(0, new ListItem("Seleccione", "-1")); + + UpFiltros.Update(); + } #endregion #region "CARGA DATOS" diff --git a/CRM/RepAcercamientos.aspx.cs b/CRM/RepAcercamientos.aspx.cs index 8e9a254bf..b9443e390 100644 --- a/CRM/RepAcercamientos.aspx.cs +++ b/CRM/RepAcercamientos.aspx.cs @@ -42,18 +42,24 @@ public partial class CRM_RepAcercamientos : ClsPaginas { CveVendedor = DdlVendedor.SelectedValue.ToEntero(); - string FechaInicio = TxtFechaInicio.Text == "" ? "-1" : TxtFechaInicio.Text; - string FechaFin = TxtFechaFin.Text == "" ? "-1" : TxtFechaFin.Text; - - ClsCRM ObjCRM = new ClsCRM(); - if (ObjCRM.GetAcercamiento(UsuarioActual.CveEmpresa, CveVendedor: CveVendedor, FechaInicio: FechaInicio, FechaFin: FechaFin)) + if (CveVendedor > 0) { - GVDatos.DataSource = ObjCRM.DtResultados; - GVDatos.DataBind(); - } + string FechaInicio = TxtFechaInicio.Text == "" ? "-1" : TxtFechaInicio.Text; + string FechaFin = TxtFechaFin.Text == "" ? "-1" : TxtFechaFin.Text; - ObjCRM.Dispose(); - UPDatos.Update(); + ClsCRM ObjCRM = new ClsCRM(); + if (ObjCRM.GetAcercamiento(UsuarioActual.CveEmpresa, CveVendedor: CveVendedor, FechaInicio: FechaInicio, FechaFin: FechaFin)) + { + GVDatos.DataSource = ObjCRM.DtResultados; + GVDatos.DataBind(); + } + + ObjCRM.Dispose(); + UPDatos.Update(); + }else + { + Alert("El Campo Vendedor es requerido",ModExtensiones.TipoMensaje.MsgError); + } } protected void GVDatos_RowDataBound(object sender, GridViewRowEventArgs e) diff --git a/CRM/RepAcercamientosProcesos.aspx b/CRM/RepAcercamientosProcesos.aspx index 125880f0c..20b4d8e37 100644 --- a/CRM/RepAcercamientosProcesos.aspx +++ b/CRM/RepAcercamientosProcesos.aspx @@ -28,6 +28,7 @@ + Reporte de Procesos Acercamientos @@ -49,7 +50,7 @@
- +
diff --git a/CRM/RepAcercamientosProcesos.aspx.cs b/CRM/RepAcercamientosProcesos.aspx.cs index 638ebb44d..420dff2cd 100644 --- a/CRM/RepAcercamientosProcesos.aspx.cs +++ b/CRM/RepAcercamientosProcesos.aspx.cs @@ -27,6 +27,32 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas get { return DtDatos = (DataTable)ViewState["DtDatos"]; } set { ViewState["DtDatos"] = value; } } + + private DataTable DtMedioCaptacion + { + get + { + return (DataTable)ViewState["DtMedioCaptacion"]; + } + + set + { + ViewState["DtMedioCaptacion"] = value; + } + } + + private DataTable DtProbabilidadAcercamiento + { + get + { + return (DataTable)ViewState["DtProbabilidadAcercamiento"]; + } + + set + { + ViewState["DtProbabilidadAcercamiento"] = value; + } + } #endregion protected void Page_Load(object sender, EventArgs e) @@ -58,11 +84,14 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas DdlVendedor.DataSource = get_GlobalDTVendedores(UsuarioActual.CveEmpresa); if (ObjCRM.GetMedioCaptacion(UsuarioActual.CveEmpresa)) { + DdlMedioCaptacion.Items.Clear(); DdlMedioCaptacion.DataSource = ObjCRM.DtResultados; + DtMedioCaptacion = ObjCRM.DtResultados; } if (ObjCRM.GetProbabilidadAcercamiento(UsuarioActual.CveEmpresa, -1)) { DdlProbabilidad.DataSource = ObjCRM.DtResultados; + DtProbabilidadAcercamiento = ObjCRM.DtResultados; } ObjCRM.Dispose(); @@ -73,6 +102,7 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas DdlVendedor.Items.Insert(0, new ListItem("Seleccione ", "-1")); DdlMedioCaptacion.Items.Insert(0, new ListItem("Seleccione ", "-1")); DdlProbabilidad.Items.Insert(0, new ListItem("Seleccione ", "-1")); + DdlTipoProceso.Items.Insert(0, new ListItem("Seleccione", "-1")); DdlVendedor.SelectedValue = "-1"; DdlMedioCaptacion.SelectedValue = "-1"; DdlProbabilidad.SelectedValue = "-1"; @@ -289,4 +319,19 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas } UPModalProd.Update(); } + + protected void DdlTipoProceso_Change(object sender, EventArgs e) + { + DdlMedioCaptacion.Items.Clear(); + DdlMedioCaptacion.DataSource = DtMedioCaptacion.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero())); + DdlMedioCaptacion.DataBind(); + DdlMedioCaptacion.Items.Insert(0, new ListItem("Seleccione", "-1")); + + DdlProbabilidad.Items.Clear(); + DdlProbabilidad.DataSource = DtProbabilidadAcercamiento.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero())); + DdlProbabilidad.DataBind(); + DdlProbabilidad.Items.Insert(0, new ListItem("Seleccione", "-1")); + + upDatosRepA.Update(); + } } \ No newline at end of file diff --git a/CRM/RepAcercamientosRechazos.aspx b/CRM/RepAcercamientosRechazos.aspx index 256a90cbb..380159036 100644 --- a/CRM/RepAcercamientosRechazos.aspx +++ b/CRM/RepAcercamientosRechazos.aspx @@ -28,6 +28,7 @@ + Reporte de Rechazos Acercamientos diff --git a/CRM/RepAcercamientosRechazos.aspx.cs b/CRM/RepAcercamientosRechazos.aspx.cs index ddb34f196..2556b6ca7 100644 --- a/CRM/RepAcercamientosRechazos.aspx.cs +++ b/CRM/RepAcercamientosRechazos.aspx.cs @@ -27,6 +27,32 @@ public partial class CRM_RepAcercamientosRechazos : ClsPaginas get { return DtDatos = (DataTable)ViewState["DtDatos"]; } set { ViewState["DtDatos"] = value; } } + + private DataTable DtMedioCaptacion + { + get + { + return (DataTable)ViewState["DtMedioCaptacion"]; + } + + set + { + ViewState["DtMedioCaptacion"] = value; + } + } + + private DataTable DtProbabilidadAcercamiento + { + get + { + return (DataTable)ViewState["DtProbabilidadAcercamiento"]; + } + + set + { + ViewState["DtProbabilidadAcercamiento"] = value; + } + } #endregion protected void Page_Load(object sender, EventArgs e) @@ -59,10 +85,12 @@ public partial class CRM_RepAcercamientosRechazos : ClsPaginas if (ObjCRM.GetMedioCaptacion(UsuarioActual.CveEmpresa)) { DdlMedioCaptacion.DataSource = ObjCRM.DtResultados; + DtMedioCaptacion = ObjCRM.DtResultados; } if (ObjCRM.GetProbabilidadAcercamiento(UsuarioActual.CveEmpresa, -1)) { DdlProbabilidad.DataSource = ObjCRM.DtResultados; + DtProbabilidadAcercamiento = ObjCRM.DtResultados; } ObjCRM.Dispose(); @@ -289,4 +317,19 @@ public partial class CRM_RepAcercamientosRechazos : ClsPaginas } UPModalProd.Update(); } + + protected void DdlTipoProceso_Change(object sender, EventArgs e) + { + DdlMedioCaptacion.Items.Clear(); + DdlMedioCaptacion.DataSource = DtMedioCaptacion.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero())); + DdlMedioCaptacion.DataBind(); + DdlMedioCaptacion.Items.Insert(0, new ListItem("Seleccione", "-1")); + + DdlProbabilidad.Items.Clear(); + DdlProbabilidad.DataSource = DtProbabilidadAcercamiento.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero())); + DdlProbabilidad.DataBind(); + DdlProbabilidad.Items.Insert(0, new ListItem("Seleccione", "-1")); + + upDatosRepA.Update(); + } } \ No newline at end of file diff --git a/Contabilidad2/CatCuentas.aspx.vb b/Contabilidad2/CatCuentas.aspx.vb index ec0703e44..1f9f6f9d5 100644 --- a/Contabilidad2/CatCuentas.aspx.vb +++ b/Contabilidad2/CatCuentas.aspx.vb @@ -295,49 +295,58 @@ Partial Class Contabilidad2_CatCuentas Dim PorcentajeImpuesto As Decimal = TxtPorcentaje.Text.ToDecimal() / 100 Dim CveBancoCuenta As Integer = ddlBancos.SelectedValue.ToEntero Dim CveAlmacen As Integer = DdlAlmacen.SelectedValue.ToEntero() - If ObjConta.UpdateCuenta(IDSelected.ToEntero, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToString.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, TxtNomIngles.Text.ToString, - CveConceptoAdmin:=CveConceptoAdmin, CveProveedor:=CveProveedor, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeImpuesto, CveBancoCuenta:=CveBancoCuenta, CveAlmacen:=CveAlmacen) Then - Dim codigo As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}") + If DdlAgrupadorSAT.SelectedValue.ToEntero > 0 Then - If UsuarioActual.Empresa.TipoContabilidad <> 1 Then + If ObjConta.UpdateCuenta(IDSelected.ToEntero, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, DdlMoneda.SelectedValue.ToEntero, + TxtDigAgrup.Text.ToString.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, TxtNomIngles.Text.ToString, CveConceptoAdmin:=CveConceptoAdmin, + CveProveedor:=CveProveedor, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeImpuesto, + CveBancoCuenta:=CveBancoCuenta, CveAlmacen:=CveAlmacen) Then - Using ObjConta2 As New ClsContPAQi(UsuarioActual.Empresa) + Dim codigo As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}") - If ObjConta2.GetCuentas(-1, "-1", -1) Then - Dim Id As Integer = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"Codigo='{codigo}'").ToEntero - Dim IdAgrupador As Integer + If UsuarioActual.Empresa.TipoContabilidad <> 1 Then - If ObjConta2.GetAgrupadoresSAT() Then - IdAgrupador = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"CodigoNombre='{DdlAgrupadorSAT.SelectedItem.Text}'").ToEntero - End If - If Id > 0 Then - If ObjConta2.UpdateCuenta(Id, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, DdlMoneda.SelectedValue.ToEntero, IdAgrupador, SubCuentaDe:=Tsubcuenta.Text.Trim) > 0 Then + Using ObjConta2 As New ClsContPAQi(UsuarioActual.Empresa) + + If ObjConta2.GetCuentas(-1, "-1", -1) Then + Dim Id As Integer = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"Codigo='{codigo}'").ToEntero + Dim IdAgrupador As Integer + + If ObjConta2.GetAgrupadoresSAT() Then + IdAgrupador = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"CodigoNombre='{DdlAgrupadorSAT.SelectedItem.Text}'").ToEntero + End If + If Id > 0 Then + If ObjConta2.UpdateCuenta(Id, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, DdlMoneda.SelectedValue.ToEntero, IdAgrupador, SubCuentaDe:=Tsubcuenta.Text.Trim) > 0 Then + End If End If End If - End If - End Using + End Using + End If + + Dim customerRow As Data.DataRow + customerRow = DtDatos.Select(String.Format("CveCuenta = {0}", IDSelected))(0) + customerRow("Nombre") = Tnombre.Text + DtDatos.AcceptChanges() + + CargaDatos() + ArbolCuentas.DataSource = DtDatos + + Dim item As CheckBox = DirectCast(ArbolCuentas.FindControl(String.Format("chk{0}", IDSelected)), CheckBox) + item.Text = String.Format("{0} - {1}", customerRow("CuentaFormato").ToString, Tnombre.Text) + 'updatos.Visible = False + 'Guardar.Visible = False + LimpiarCampos() + 'RegistraScript("$get('BtnCambiaAgrupadorSAT').click();") + updatos.Update() + + Alert("La cuenta se guardo correctamente") End If - - Dim customerRow As Data.DataRow - customerRow = DtDatos.Select(String.Format("CveCuenta = {0}", IDSelected))(0) - customerRow("Nombre") = Tnombre.Text - DtDatos.AcceptChanges() - - CargaDatos() - ArbolCuentas.DataSource = DtDatos - - Dim item As CheckBox = DirectCast(ArbolCuentas.FindControl(String.Format("chk{0}", IDSelected)), CheckBox) - item.Text = String.Format("{0} - {1}", customerRow("CuentaFormato").ToString, Tnombre.Text) - 'updatos.Visible = False - 'Guardar.Visible = False - LimpiarCampos() - 'RegistraScript("$get('BtnCambiaAgrupadorSAT').click();") - updatos.Update() - - Alert("La cuenta se guardo correctamente") + Else + Alert("Es necesario agregar el campo 'Agrupador SAT'", TipoMensaje.MsgError) End If + ObjConta.Dispose() End Sub @@ -356,17 +365,14 @@ Partial Class Contabilidad2_CatCuentas Dim CuentaEfectivo As Integer = 0 Dim Afectable As Integer = 1 'If(DcuentaMayor.SelectedValue <> 2, 0, 1) ' cuando sea tipo 2, va a ser afectable Tcuenta.Text.Replace("-", "") + Dim idnew As Integer = 0 - Dim idnew As Integer = ObjConta.AddCuenta( - IDSelected, - TxtCuenta.Text.Replace("-", ""), - Tnombre.Text, - DTcuenta.SelectedValue.ToString, - DcuentaMayor.SelectedValue.ToString.ToEntero, - DdlMoneda.SelectedValue.ToEntero, - TxtDigAgrup.Text.ToEntero, - DdlAgrupadorSAT.SelectedValue.ToEntero, - TxtNomIngles.Text.ToString) + If DdlAgrupadorSAT.SelectedValue.ToEntero > 0 Then + idnew = ObjConta.AddCuenta(IDSelected, TxtCuenta.Text.Replace("-", ""), Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, + DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, TxtNomIngles.Text.ToString) + Else + Alert("Es necesario agregar el campo 'Agrupador SAT'", TipoMensaje.MsgError) + End If If idnew > 0 Then diff --git a/Ventas/RepTopClientesVentas.aspx.vb b/Ventas/RepTopClientesVentas.aspx.vb index 69bfc29ed..c2f37c1ef 100644 --- a/Ventas/RepTopClientesVentas.aspx.vb +++ b/Ventas/RepTopClientesVentas.aspx.vb @@ -105,10 +105,12 @@ Partial Class Ventas_RepTopClientesVentas End Sub Private Sub CambioGrafica() + Dim DtClientesAux As New DataTable + DtClientesAux = DtClientes.FiltraParametros("CveCliente > 0") Dim Dt As New DataTable() Dt.Columns.Add("Cliente") Dt.Columns.Add("Importe") - For Each Dr As DataRow In DtClientes.Rows + For Each Dr As DataRow In DtClientesAux.Rows Dim Row As DataRow = Nothing Row = Dt.NewRow() Row("Cliente") = Dr("NombreComercial").ToString