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
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)

1
App_Code/modExtensiones.vb
View File

@@ -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)

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>
@@ -128,7 +128,7 @@
<asp:LinkButton ID="LinkPDF" runat="server"> <i class="fa fa-ad-pdf"></i> Imprimir</asp:LinkButton>
</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>
</asp:Content>

22
Bancos/FluctuacionCambiaria.aspx.vb
View File

@@ -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

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

5
CRM/RepAcercamientosRechazos.aspx.cs
View File

@@ -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);
}
}