diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb index 2853c3502..54044a384 100644 --- a/App_Code/ClsOIEventos.vb +++ b/App_Code/ClsOIEventos.vb @@ -1356,6 +1356,109 @@ Public Class ClsOIEventos End Function #End Region +#Region "Circular" + Public Function GetCircular(CveEmpresa As Integer, Optional CveCircular As Integer = -1, Optional FechaI As String = "-1", Optional FechaF As String = "-1") As Boolean + + FechaI = If(FechaI = "-1", Today.AddYears(-1).ToString, FechaI) + FechaF = If(FechaF = "-1", Today.AddYears(1).ToString, FechaF) + + Dim Retorno As Boolean = False + + DataAdapter("PA_OI_CircularesGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveCircular", SqlDbType.Int).Value = CveCircular + .Add("@FechaI", SqlDbType.DateTime).Value = FechaI + .Add("@FechaF", SqlDbType.DateTime).Value = FechaF + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al consultar el Circular.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function AddCircular(Asunto As String, Circular As String, CorreosInternos As String, FechaIng As String, CveUsuario As Integer, CveEmpresa As Integer, Optional CorreosExternos As String = "-1") As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_OI_CircularesAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@Asunto", SqlDbType.VarChar).Value = Asunto + .Add("@Circular", SqlDbType.VarChar).Value = Circular + .Add("@CorreosInternos", SqlDbType.VarChar).Value = CorreosInternos + .Add("@FechaIng", SqlDbType.DateTime).Value = FechaIng + .Add("@CorreosExternos", SqlDbType.VarChar).Value = CorreosExternos + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar el Circular.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function UpdateCircular(CveCircular As Integer, Asunto As String, Circular As String, CorreosInternos As String, CorreosExternos As String, CveUsuario As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_OI_CircularesUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCircular", SqlDbType.Int).Value = CveCircular + .Add("@Asunto", SqlDbType.VarChar).Value = Asunto + .Add("@Circular", SqlDbType.VarChar).Value = Circular + .Add("@CorreosInternos", SqlDbType.VarChar).Value = CorreosInternos + .Add("@CorreosExternos", SqlDbType.VarChar).Value = CorreosExternos + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el Circular.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function DeleteCircular(CveCircular As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_OI_CircularesRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCircular", SqlDbType.Int).Value = CveCircular + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el Circular.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function +#End Region + ' IDisposable Protected Overridable Sub Dispose(ByVal disposing As Boolean) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 76d7411ef..01736af34 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -3976,6 +3976,8 @@ Public Class ClsPaginas PaginaDict.Add("/Compras/CatPaqueteriasGuiasTipo.aspx".ToUpper(), 753) PaginaDict.Add("/Compras/RepEvaluacionesProveedores.aspx".ToUpper(), 754) PaginaDict.Add("/Ventas/RepTopClientesVentas.aspx".ToUpper(), 755) + PaginaDict.Add("/OI/Circular.aspx".ToUpper(), 756) + PaginaDict.Add("/OI/CircularDetalle.aspx".ToUpper(), 757) #End Region diff --git a/App_Code/DtDatos.xsd b/App_Code/DtDatos.xsd index 2d4df0230..a4b0800c5 100644 --- a/App_Code/DtDatos.xsd +++ b/App_Code/DtDatos.xsd @@ -233,6 +233,7 @@ + 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/Empresas/Grales/Formatos/RepIVA.rpt b/Empresas/Grales/Formatos/RepIVA.rpt index 82ef556d2..5b20e8876 100644 Binary files a/Empresas/Grales/Formatos/RepIVA.rpt and b/Empresas/Grales/Formatos/RepIVA.rpt differ diff --git a/OI/Circular.aspx b/OI/Circular.aspx new file mode 100644 index 000000000..a7b7ad95d --- /dev/null +++ b/OI/Circular.aspx @@ -0,0 +1,75 @@ +<%@ Page Title="OI Circular" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Circular.aspx.vb" Inherits="OI_Circular" %> + +<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> + + + + + + + + Circular + + + + +
  • + Agregar Circular +
    • +     +     +     + + + +
    +
    +
    + + "> + +
    +
    +
    +
    Fecha Inicial:
    +
    +
    + + + + +
    + + +
    +
    Fecha Final:
    +
    +
    + + + + +
    + + +
    +
    +
    +
    +
    +     +     + + + + + + + + + + +     + + \ No newline at end of file diff --git a/OI/Circular.aspx.vb b/OI/Circular.aspx.vb new file mode 100644 index 000000000..f9649b090 --- /dev/null +++ b/OI/Circular.aspx.vb @@ -0,0 +1,32 @@ +Imports System.Data +Imports System.Linq +Imports Extensiones + +Partial Class OI_Circular + Inherits ClsPaginas + + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + If Not IsPostBack Then + IniciarFiltros() + CargaDatos() + End If + End Sub + Private Sub IniciarFiltros() + Dim FechaI As DateTime = New DateTime(Today.Year, Today.Month, 1) + Dim FechaF As DateTime = New DateTime(Today.Year, Today.Month, 1).AddMonths(1).AddDays(-1) + TxtFechaI.Text = FechaI.ToString() + TxtFechaF.Text = FechaF.ToString + End Sub + Private Sub CargaDatos() + Dim ObjOI As New ClsOIEventos + If ObjOI.GetCircular(UsuarioActual.CveEmpresa, -1, TxtFechaI.Text, TxtFechaF.Text) Then + GvDatos.DataSource = ObjOI.DtResultados + End If + ObjOI.Dispose() + GvDatos.DataBind() + End Sub + + Protected Sub btConsultar_Click() Handles btConsultar.Click + CargaDatos() + End Sub +End Class diff --git a/OI/CircularDetalle.aspx b/OI/CircularDetalle.aspx new file mode 100644 index 000000000..61f187fd2 --- /dev/null +++ b/OI/CircularDetalle.aspx @@ -0,0 +1,97 @@ +<%@ Page Title="OI Circular" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CircularDetalle.aspx.vb" Inherits="OI_CircularDetalle" %> + +<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> + + + + + + + + Circular Detalle + + + + +
  • + Agregar Circular +
    • +     +     +     + + + +
    +
    + + + <%--Cliente: --%> + <%----%> + <%----%> + <%-- + +
    +
    +
    +
    +
    + +
    + +
    +
    +
    +
    +
    +
    +
    +
    + Asunto: +
    +
    + +
    +
    +
    +
    +
    + Para: +
    +
    + +
    +
    +
    +
    +
    + Correos Adicionales: +
    +
    + +
    +
    +
    +
    +
    + Circular: +
    +
    + +
    +
    +
    +
    + + +
    +
    +
    +
    +
    +     +     +     + + diff --git a/OI/CircularDetalle.aspx.vb b/OI/CircularDetalle.aspx.vb new file mode 100644 index 000000000..c0f1202c5 --- /dev/null +++ b/OI/CircularDetalle.aspx.vb @@ -0,0 +1,79 @@ +Imports System.Data +Imports System.Linq +Imports Extensiones + +Partial Class OI_CircularDetalle + Inherits ClsPaginas + + Private Property CveCircular As Integer + Get + Return ViewState("CveCircular").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("CveCircular") = value + End Set + End Property + + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + If Not IsPostBack Then + CargarCve() + ConfigurarBotones() + CargaDatos() + End If + End Sub + + Private Sub CargarCve() + Dim PreCveCircular As String = Request.Params("CveCircular").ToString + If IsNumeric(PreCveCircular) Then + CveCircular = PreCveCircular.ToEntero + End If + End Sub + + Private Sub ConfigurarBotones() + If CveCircular > 0 Then + BtnGuardar.Text = "Guardar" + BtnEliminar.Visible = True + Else + BtnGuardar.Text = "Actualizar" + End If + End Sub + + Private Sub CargaDatos() + If CveCircular > 0 Then + Dim ObjOI As New ClsOIEventos + If ObjOI.GetCircular(UsuarioActual.CveEmpresa, CveCircular) Then + Dim Circular As DataRow = ObjOI.DtResultados(0) + + TxtAsunto.Text = Circular.Item("Asunto") + TxtCorreo.Value = Circular.Item("CorreosInternos") + TxtCorreoAdicional.Value = Circular.Item("CorreosExternos") + TxtCircular.Value = Circular.Item("Circular") + + UpCliente.Update() + End If + ObjOI.Dispose() + End If + End Sub + + Private Sub BtnGuardar_Click() Handles BtnGuardar.Click + Dim ObjOI As New ClsOIEventos + If CveCircular > 0 Then + If ObjOI.UpdateCircular(CveCircular, TxtAsunto.Text, TxtCircular.Value, TxtCorreo.Value, TxtCorreoAdicional.Value, UsuarioActual.CveUsuario) Then + Alert("Actualizado correctamente") + End If + Else + Dim CorreoExtra As String = If(TxtCorreoAdicional.Value = "", "-1", TxtCorreoAdicional.Value) + If ObjOI.AddCircular(TxtAsunto.Text, TxtCircular.Value, TxtCorreo.Value, Today.ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CorreoExtra) Then + Alert("Ingresado correctamente") + End If + End If + End Sub + + Private Sub BtnEliminar_Click() Handles BtnEliminar.Click + Dim ObjOI As New ClsOIEventos + If ObjOI.DeleteCircular(CveCircular) Then + Response.Redirect("~/OI/CircularDetalle.aspx?CveCircular=-1") + End If + ObjOI.Dispose() + End Sub +End Class 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