AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2022-11-11 18:11:23 -07:00
parent 1e7b7730a5 b2158864e6
commit cc112c28c2
7 changed files with 40 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/ClsCRM.vb
View File

@@ -1101,7 +1101,8 @@ Public Class ClsCRM
Return retorno Return retorno
End Function 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 Dim retorno As Boolean = False
DataAdapter("PA_CRM_RepAcercamientosDetalle", CommandType.StoredProcedure) DataAdapter("PA_CRM_RepAcercamientosDetalle", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -1114,6 +1115,7 @@ Public Class ClsCRM
.Add("@SFechaIni", SqlDbType.VarChar).Value = sFechaIni .Add("@SFechaIni", SqlDbType.VarChar).Value = sFechaIni
.Add("@SFechaFin", SqlDbType.VarChar).Value = sFechaFin .Add("@SFechaFin", SqlDbType.VarChar).Value = sFechaFin
.Add("@CveTipoProceso", SqlDbType.Int).Value = CveTipoProceso .Add("@CveTipoProceso", SqlDbType.Int).Value = CveTipoProceso
.Add("@CveRechazoMotivo", SqlDbType.Int).Value = CveRechazoMotivo
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

1
App_Code/modExtensiones.vb
View File

@@ -2154,6 +2154,7 @@ Namespace Extensiones
Dim worksheet = excel.Worksheets(0) Dim worksheet = excel.Worksheets(0)
worksheet.Rows.InsertEmpty(0, TotalRowHeader) worksheet.Rows.InsertEmpty(0, TotalRowHeader)
Dim celdasConTexto = worksheet.GetUsedCellRange(True) 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" celdasConTexto.Style.Font.Name = "Calibri Light"
Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex) Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex)

4
Bancos/FluctuacionCambiaria.aspx
View File

@@ -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" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server"> <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content> </asp:Content>
@@ -128,7 +128,7 @@
<asp:LinkButton ID="LinkPDF" runat="server"> <i class="fa fa-ad-pdf"></i> Imprimir</asp:LinkButton> <asp:LinkButton ID="LinkPDF" runat="server"> <i class="fa fa-ad-pdf"></i> Imprimir</asp:LinkButton>
</li>--%> </li>--%>
<li> <li>
<asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-ad-excel"></i> Exportar Excel</asp:LinkButton> <asp:LinkButton ID="LnkExportar" runat="server"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Exportar Excel</asp:LinkButton>
</li> </li>
</asp:Content> </asp:Content>

22
Bancos/FluctuacionCambiaria.aspx.vb
View File

@@ -1286,28 +1286,32 @@ Partial Class Bancos_FluctuacionCambiaria
#Region " EXPORTA EXCEL " #Region " EXPORTA EXCEL "
Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
If (T.ActiveTabIndex = 0) Then 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 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 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 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 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 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 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 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 ElseIf (T.ActiveTabIndex = 8) Then
GvDeudores.ExportToExcel("FluctuacionCambiariaDeudores_" & Now.ToShortDateString) GvDeudores.ExportToExcelGembox("FCDeudores_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Deudores")
End If End If
' ImprimirReportePdf("Excel") ' ImprimirReportePdf("Excel")
End Sub End Sub
Public Overrides Sub VerifyRenderingInServerForm(control As Control)
End Sub
#End Region #End Region
End Class End Class

10
CRM/RepAcercamientosProcesosDetalle.aspx
View File

@@ -269,27 +269,27 @@
<asp:HyperLink href='<%# Eval("CveAcercamiento","/CRM/Acercamiento.aspx?CveAcercamiento={0}")%>' runat="server" Text='<%# Eval("Vendedor")%>'></asp:HyperLink> <asp:HyperLink href='<%# Eval("CveAcercamiento","/CRM/Acercamiento.aspx?CveAcercamiento={0}")%>' runat="server" Text='<%# Eval("Vendedor")%>'></asp:HyperLink>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Nombre Acercamiento"> <asp:TemplateField HeaderText="Acercamiento">
<ItemTemplate> <ItemTemplate>
<asp:HyperLink href='<%# Eval("CveAcercamiento","/CRM/Acercamiento.aspx?CveAcercamiento={0}")%>' runat="server" Text='<%# Eval("NombreAcercamiento")%>'></asp:HyperLink> <asp:HyperLink href='<%# Eval("CveAcercamiento","/CRM/Acercamiento.aspx?CveAcercamiento={0}")%>' runat="server" Text='<%# Eval("NombreAcercamiento")%>'></asp:HyperLink>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Medio Captación"> <asp:TemplateField HeaderText="Captación">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="lblmedioCaptacion" runat="server" Text='<%# Eval("MedioCaptacion")%>'> </asp:Label> <asp:Label ID="lblmedioCaptacion" runat="server" Text='<%# Eval("MedioCaptacion")%>'> </asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Etapa del Proceso"> <asp:TemplateField HeaderText="Etapa">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="lbletapaProceso" runat="server" Text='<%# Eval("EtapaProceso")%>'> </asp:Label> <asp:Label ID="lbletapaProceso" runat="server" Text='<%# Eval("EtapaProceso")%>'> </asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Probabilidad Acercamiento"> <asp:TemplateField HeaderText="Probabilidad">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="lblprobabilidadAcercamiento" runat="server" Text='<%# Eval("ProbabilidadAcercamiento")%>'> </asp:Label> <asp:Label ID="lblprobabilidadAcercamiento" runat="server" Text='<%# Eval("ProbabilidadAcercamiento")%>'> </asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Nombre del Contacto"> <asp:TemplateField HeaderText="Contacto">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="lblnombre" runat="server" Text='<%# Eval("Nombre")%>'> </asp:Label> <asp:Label ID="lblnombre" runat="server" Text='<%# Eval("Nombre")%>'> </asp:Label>
</ItemTemplate> </ItemTemplate>

14
CRM/RepAcercamientosProcesosDetalle.aspx.cs
View File

@@ -38,6 +38,14 @@ public partial class CRM_RepAcercamientosProcesosDetalle : ClsPaginas
get { return (ViewState["RcveEtapaProceso"] == null) ? 0 : Convert.ToInt32(ViewState["RcveEtapaProceso"]); } get { return (ViewState["RcveEtapaProceso"] == null) ? 0 : Convert.ToInt32(ViewState["RcveEtapaProceso"]); }
set { ViewState["RcveEtapaProceso"] = value; } set { ViewState["RcveEtapaProceso"] = value; }
} }
private int CveRechazoMotivo
{
get { return (ViewState["CveRechazoMotivo"] == null) ? 0 : Convert.ToInt32(ViewState["CveRechazoMotivo"]); }
set { ViewState["CveRechazoMotivo"] = value; }
}
private string RsFecha private string RsFecha
{ {
get { return (ViewState["RsFecha"] == null) ? "" : Convert.ToString(ViewState["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(); RcveMedioCaptacion = Request["cveMedioCaptacion"] == null ? -1 : Request["cveMedioCaptacion"].ToString().ToEntero();
RcveProbabilidadAcercamiento = Request["cveProbabilidadAcercamiento"] == null ? -1 : Request["cveProbabilidadAcercamiento"].ToString().ToEntero(); RcveProbabilidadAcercamiento = Request["cveProbabilidadAcercamiento"] == null ? -1 : Request["cveProbabilidadAcercamiento"].ToString().ToEntero();
RcveEtapaProceso = Request["cveEtapaProceso"] == null ? -1 : Request["cveEtapaProceso"].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(); RsFecha = Request["Fecha"] == null ? Extensiones.ModExtensiones.MinFecha.ToString() : Request["Fecha"].ToString();
RsFechaIni = Request["FechaInicio"] == null ? Extensiones.ModExtensiones.MinFecha.ToString() : Request["FechaInicio"].ToString(); RsFechaIni = Request["FechaInicio"] == null ? Extensiones.ModExtensiones.MinFecha.ToString() : Request["FechaInicio"].ToString();
RsFechaFin = Request["FechaFin"] == null ? Extensiones.ModExtensiones.MaxFecha.ToString() : Request["FechaFin"].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() protected void cargarDatos()
{ {
ClsCRM ObjRepA = new ClsCRM(); 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; GVRepAcercamientosDetalle.DataSource = ObjRepA.DtResultados;
DTRepAcercamientosDetalle = ObjRepA.DtResultados; DTRepAcercamientosDetalle = ObjRepA.DtResultados;
ObjRepA.Dispose(); ObjRepA.Dispose();

5
CRM/RepAcercamientosRechazos.aspx.cs
View File

@@ -194,8 +194,9 @@ public partial class CRM_RepAcercamientosRechazos : ClsPaginas
HyperLinkField hyp = new HyperLinkField(); HyperLinkField hyp = new HyperLinkField();
hyp.DataTextField = $"C_{row["CveRechazoMotivo"]}"; hyp.DataTextField = $"C_{row["CveRechazoMotivo"]}";
hyp.HeaderText = $"{row["RechazoMotivo"]}"; hyp.HeaderText = $"{row["RechazoMotivo"]}";
hyp.DataNavigateUrlFields = new string[] { "CveGrupo1", "CveGrupo2" }; hyp.DataNavigateUrlFields = new string[] { "CveGrupo1", "CveGrupo2", "CveVendedor" };
hyp.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.ASPX?CveTipoProceso={cveTipoProceso}&CveGrupo1={{0}}&CveGrupo2={{1}}&FechaInicio={TxtFechaInicio.Text}&FechaFin={TxtFechaFin.Text}&CveRechazoMotivo={row["CveRechazoMotivo"]}"; 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); GVRepAcercamientosEtapas.Columns.Add(hyp);
} }
} }