diff --git a/App_Code/ClsCRM.vb b/App_Code/ClsCRM.vb
index 3545d849f..7227fdf29 100644
--- a/App_Code/ClsCRM.vb
+++ b/App_Code/ClsCRM.vb
@@ -1101,7 +1101,8 @@ Public Class ClsCRM
Return retorno
End Function
- Public Function RepAcercamientosDetalle(CveEmpresa As Int32, cveVendedor As Int32, cveMedioCaptacion As Int32, cveProbabilidadAcercamiento As Int32, cveEtapaProceso As Int32, sFecha As String, sFechaIni As String, sFechaFin As String, Optional CveTipoProceso As Integer = -1) As Boolean
+ Public Function RepAcercamientosDetalle(CveEmpresa As Int32, cveVendedor As Int32, cveMedioCaptacion As Int32, cveProbabilidadAcercamiento As Int32, cveEtapaProceso As Int32, sFecha As String, sFechaIni As String,
+ sFechaFin As String, Optional CveTipoProceso As Integer = -1, Optional CveRechazoMotivo As Integer = -1) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_CRM_RepAcercamientosDetalle", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters
@@ -1114,6 +1115,7 @@ Public Class ClsCRM
.Add("@SFechaIni", SqlDbType.VarChar).Value = sFechaIni
.Add("@SFechaFin", SqlDbType.VarChar).Value = sFechaFin
.Add("@CveTipoProceso", SqlDbType.Int).Value = CveTipoProceso
+ .Add("@CveRechazoMotivo", SqlDbType.Int).Value = CveRechazoMotivo
End With
Try
SqlAdapter.Fill(Data)
diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb
index 0f511f73d..ba53c315f 100644
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -2154,6 +2154,7 @@ Namespace Extensiones
Dim worksheet = excel.Worksheets(0)
worksheet.Rows.InsertEmpty(0, TotalRowHeader)
Dim celdasConTexto = worksheet.GetUsedCellRange(True)
+ If celdasConTexto Is Nothing Then Exit Sub 'No se recuperaron datos, salir de sin guardar porque soltará error
celdasConTexto.Style.Font.Name = "Calibri Light"
Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex)
diff --git a/Bancos/FluctuacionCambiaria.aspx b/Bancos/FluctuacionCambiaria.aspx
index 898921959..0bbd521d5 100644
--- a/Bancos/FluctuacionCambiaria.aspx
+++ b/Bancos/FluctuacionCambiaria.aspx
@@ -1,4 +1,4 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="FluctuacionCambiaria.aspx.vb" Inherits="Bancos_FluctuacionCambiaria" %>
+<%@ Page Title="" Language="VB" EnableEventValidation="false" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="FluctuacionCambiaria.aspx.vb" Inherits="Bancos_FluctuacionCambiaria" %>
@@ -128,7 +128,7 @@
Imprimir
--%>
- Exportar Excel
+ Exportar Excel
diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb
index 0c377c84e..5a62e3fc0 100644
--- a/Bancos/FluctuacionCambiaria.aspx.vb
+++ b/Bancos/FluctuacionCambiaria.aspx.vb
@@ -1286,28 +1286,32 @@ Partial Class Bancos_FluctuacionCambiaria
#Region " EXPORTA EXCEL "
Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
If (T.ActiveTabIndex = 0) Then
- GvProveedores.ExportToExcel("FluctuacionCambiariaProveedores_" & Now.ToShortDateString)
+ 'GvProveedores.ExportToExcelGembox("FluctuacionCambiariaProveedores_" & Now.ToShortDateString)
+ GvProveedores.ExportToExcelGembox("FCProveedores_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Proveedores")
ElseIf (T.ActiveTabIndex = 1) Then
- GvProveedoresAnt.ExportToExcel("FluctuacionCambiariaProveedoresAnt_" & Now.ToShortDateString)
+ GvProveedoresAnt.ExportToExcelGembox("FCProveedoresAnt_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Proveedores Anticipos")
ElseIf (T.ActiveTabIndex = 2) Then
- GvVentas.ExportToExcel("FluctuacionCambiariaClientes_" & Now.ToShortDateString)
+ GvVentas.ExportToExcelGembox("FCClientes_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Clientes")
ElseIf (T.ActiveTabIndex = 3) Then
- GvClientesAnt.ExportToExcel("FluctuacionCambiariaClientesAnt_" & Now.ToShortDateString)
+ GvClientesAnt.ExportToExcelGembox("FCClientesAnt_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Clientes Anticipos")
ElseIf (T.ActiveTabIndex = 4) Then
- GvAcreedores.ExportToExcel("FluctuacionCambiariaComprasAcreedores_" & Now.ToShortDateString)
+ GvAcreedores.ExportToExcelGembox("FCComprasAcreedores_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Compras Acreedores")
ElseIf (T.ActiveTabIndex = 5) Then
- GvAcreedoresAnt.ExportToExcel("FluctuacionCambiariaAcreedoresAnt_" & Now.ToShortDateString)
+ GvAcreedoresAnt.ExportToExcelGembox("FCAcreedoresAnt_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Acreedores Anticipos")
ElseIf (T.ActiveTabIndex = 6) Then
- GvCuentas.ExportToExcel("FluctuacionCambiariaBancos_" & Now.ToShortDateString)
+ GvCuentas.ExportToExcelGembox("FCBancos_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Bancos")
ElseIf (T.ActiveTabIndex = 7) Then
- GvFiliales.ExportToExcel("FluctuacionCambiariaFilial_" & Now.ToShortDateString)
+ GvFiliales.ExportToExcelGembox("FCFilial_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Filiales")
ElseIf (T.ActiveTabIndex = 8) Then
- GvDeudores.ExportToExcel("FluctuacionCambiariaDeudores_" & Now.ToShortDateString)
+ GvDeudores.ExportToExcelGembox("FCDeudores_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Deudores")
End If
' ImprimirReportePdf("Excel")
End Sub
+
+ Public Overrides Sub VerifyRenderingInServerForm(control As Control)
+ End Sub
#End Region
End Class
diff --git a/CRM/RepAcercamientosProcesosDetalle.aspx b/CRM/RepAcercamientosProcesosDetalle.aspx
index aaff7e62b..eaab47bd7 100644
--- a/CRM/RepAcercamientosProcesosDetalle.aspx
+++ b/CRM/RepAcercamientosProcesosDetalle.aspx
@@ -269,27 +269,27 @@
-
+
-
+
-
+
-
+
-
+
diff --git a/CRM/RepAcercamientosProcesosDetalle.aspx.cs b/CRM/RepAcercamientosProcesosDetalle.aspx.cs
index bc2a7b310..6c55643a0 100644
--- a/CRM/RepAcercamientosProcesosDetalle.aspx.cs
+++ b/CRM/RepAcercamientosProcesosDetalle.aspx.cs
@@ -38,6 +38,14 @@ public partial class CRM_RepAcercamientosProcesosDetalle : ClsPaginas
get { return (ViewState["RcveEtapaProceso"] == null) ? 0 : Convert.ToInt32(ViewState["RcveEtapaProceso"]); }
set { ViewState["RcveEtapaProceso"] = value; }
}
+
+ private int CveRechazoMotivo
+ {
+ get { return (ViewState["CveRechazoMotivo"] == null) ? 0 : Convert.ToInt32(ViewState["CveRechazoMotivo"]); }
+ set { ViewState["CveRechazoMotivo"] = value; }
+ }
+
+
private string RsFecha
{
get { return (ViewState["RsFecha"] == null) ? "" : Convert.ToString(ViewState["RsFecha"]); }
@@ -101,6 +109,9 @@ public partial class CRM_RepAcercamientosProcesosDetalle : ClsPaginas
RcveMedioCaptacion = Request["cveMedioCaptacion"] == null ? -1 : Request["cveMedioCaptacion"].ToString().ToEntero();
RcveProbabilidadAcercamiento = Request["cveProbabilidadAcercamiento"] == null ? -1 : Request["cveProbabilidadAcercamiento"].ToString().ToEntero();
RcveEtapaProceso = Request["cveEtapaProceso"] == null ? -1 : Request["cveEtapaProceso"].ToString().ToEntero();
+
+ CveRechazoMotivo = Request["CveRechazoMotivo"] == null ? -1 : Request["CveRechazoMotivo"].ToString().ToEntero();
+
RsFecha = Request["Fecha"] == null ? Extensiones.ModExtensiones.MinFecha.ToString() : Request["Fecha"].ToString();
RsFechaIni = Request["FechaInicio"] == null ? Extensiones.ModExtensiones.MinFecha.ToString() : Request["FechaInicio"].ToString();
RsFechaFin = Request["FechaFin"] == null ? Extensiones.ModExtensiones.MaxFecha.ToString() : Request["FechaFin"].ToString();
@@ -222,7 +233,8 @@ public partial class CRM_RepAcercamientosProcesosDetalle : ClsPaginas
protected void cargarDatos()
{
ClsCRM ObjRepA = new ClsCRM();
- ObjRepA.RepAcercamientosDetalle(UsuarioActual.CveEmpresa, RcveVendedor, RcveMedioCaptacion, RcveProbabilidadAcercamiento, RcveEtapaProceso, RsFecha, RsFechaIni, RsFechaFin,CveTipoProceso:DdlTipoProceso.SelectedValue.ToEntero());
+ ObjRepA.RepAcercamientosDetalle(UsuarioActual.CveEmpresa, RcveVendedor, RcveMedioCaptacion, RcveProbabilidadAcercamiento, RcveEtapaProceso, RsFecha, RsFechaIni,
+ RsFechaFin,CveTipoProceso:DdlTipoProceso.SelectedValue.ToEntero(), CveRechazoMotivo: CveRechazoMotivo);
GVRepAcercamientosDetalle.DataSource = ObjRepA.DtResultados;
DTRepAcercamientosDetalle = ObjRepA.DtResultados;
ObjRepA.Dispose();
diff --git a/CRM/RepAcercamientosRechazos.aspx.cs b/CRM/RepAcercamientosRechazos.aspx.cs
index 4c71a896a..09141e086 100644
--- a/CRM/RepAcercamientosRechazos.aspx.cs
+++ b/CRM/RepAcercamientosRechazos.aspx.cs
@@ -194,8 +194,9 @@ public partial class CRM_RepAcercamientosRechazos : ClsPaginas
HyperLinkField hyp = new HyperLinkField();
hyp.DataTextField = $"C_{row["CveRechazoMotivo"]}";
hyp.HeaderText = $"{row["RechazoMotivo"]}";
- hyp.DataNavigateUrlFields = new string[] { "CveGrupo1", "CveGrupo2" };
- hyp.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.ASPX?CveTipoProceso={cveTipoProceso}&CveGrupo1={{0}}&CveGrupo2={{1}}&FechaInicio={TxtFechaInicio.Text}&FechaFin={TxtFechaFin.Text}&CveRechazoMotivo={row["CveRechazoMotivo"]}";
+ hyp.DataNavigateUrlFields = new string[] { "CveGrupo1", "CveGrupo2", "CveVendedor" };
+ hyp.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.ASPX?CveTipoProceso={cveTipoProceso}&CveGrupo1={{0}}&CveGrupo2={{1}}&CveVendedor={{2}}&FechaInicio={TxtFechaInicio.Text}&FechaFin={TxtFechaFin.Text}{strfilstros}&CveRechazoMotivo={row["CveRechazoMotivo"]}";
+
GVRepAcercamientosEtapas.Columns.Add(hyp);
}
}