diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index a89c07bd9..262651cb4 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -11067,6 +11067,7 @@ Public Class ClsPaginas 'Reportes de Anticipos-NC-IXC PaginaDict.Add("/Ventas/RepAnticipo-NC-IXC.aspx".ToUpper(), 869) PaginaDict.Add("/Ventas/RepAnticipo-NC-IXCDetalle.aspx".ToUpper(), 869) + PaginaDict.Add("/Ventas/RepAnticipo-NC-IXCAplicados.aspx".ToUpper(), 877) PaginaDict.Add("/Ventas/CatAutorizacionDescuentos.aspx".ToUpper(), 1037) PaginaDict.Add("/Ventas/RepPUESinPago.aspx".ToUpper(), 672) PaginaDict.Add("/Ventas/RepVentasResumen.aspx".ToUpper(), 674) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 223f40d59..9250bda95 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -4771,6 +4771,31 @@ Public Class ClsVentas Return Retorno End Function + Public Function GetRepAnticiposNCIXCAplicados(CveCliente As Integer, CveSubProyecto As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, FechaICorte As Date, FechaFCorte As Date, TipoCambio As Integer, TCEspecifico As Double, Optional CveVendedor As Integer = -1, Optional ConSaldo As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_RepAnt-NC-IXCAplicadosGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@FechaICorte", SqlDbType.Date).Value = FechaICorte + .Add("@FechaFCorte", SqlDbType.Date).Value = FechaFCorte + .Add("@TipoCambio", SqlDbType.Int).Value = TipoCambio + .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@ConSaldo", SqlDbType.Int).Value = ConSaldo + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el reporte de aplicaiones de anticipos - nc - ixc .", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + Public Function GetRepAnticiposNCIXCDetalle(CveCliente As Integer, CveSubProyecto As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, ConSaldo As Integer, Tipo As Integer, CveMoneda As Integer, FechaICorte As Date, FechaFCorte As Date, TipoCambio As Integer, TCEspecifico As Double, Optional CveVendedor As Integer = -1, Optional SaldoMayorA As Decimal = -999999999999, Optional SaldoMenorA As Decimal = 999999999999) As Boolean Dim Retorno As Boolean = False diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb index 5827880e9..75c14e827 100644 --- a/Bancos/RepCortes.aspx.vb +++ b/Bancos/RepCortes.aspx.vb @@ -200,32 +200,7 @@ Partial Class Bancos_RepCortes Fecha = gvr.DataKey("FechaInicial") Nombre = gvr.DataKey("Nombre") - 'If ObjPuntoVenta.GetCortesDetalleVentas(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 2) Then - ' DtCortesVentas = ObjPuntoVenta.DtResultados.Copy() - ' GvD.DataSource = DtCortesVentas - - ' divDetalle.Visible = True - 'End If - - 'If ObjVentas.GetCortesDetalleVentasResumen(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then - ' GvP.DataSource = ObjVentas.DtResultados - ' DtCortesVentasResumen = ObjVentas.DtResultados - 'End If - - 'If UsuarioActual.CveEmpresa.Contiene(190, 192) Then - ' DivIVA.Visible = True - ' If ObjVentas.GetCortesDetalleVentasResumenIVA(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then - ' GvPorIVA.DataSource = ObjVentas.DtResultados - ' End If - 'End If - Dim FechaConsulta = ModExtensiones.MaxFecha - - Dim ConsultaPorSucursal As Boolean = UsuarioActual.Empresa.Funcionalidad(382) = "1" - - If ConsultaPorSucursal Then - 'CveCorte = -1 - FechaConsulta = gvr.DataKey("FechaInicial").ToDate() - End If + Dim FechaConsulta = gvr.DataKey("FechaInicial").ToDate() Dim ObjVentas As New ClsVentas If ObjVentas.GetVta_ReporteCortesDetalle(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Opcion:=2, ConsultaIVA:=UsuarioActual.CveEmpresa.Contiene(190, 192), FechaConsulta:=FechaConsulta) Then diff --git a/Ventas/RepAnticipo-NC-IXCAplicados.aspx b/Ventas/RepAnticipo-NC-IXCAplicados.aspx new file mode 100644 index 000000000..c47a680dd --- /dev/null +++ b/Ventas/RepAnticipo-NC-IXCAplicados.aspx @@ -0,0 +1,182 @@ +<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="RepAnticipo-NC-IXCAplicados.aspx.cs" Inherits="Ventas_RepAnticipo_NC_IXCAplicados" %> + + + + + + + + Reporte de aplicaciones de Anticipos - NC - Ingresos X Comprobar + + + + +
  • + Generar PDF +
    • +
  • + Exporta Excel +
    • +
  • + Ver Dlls en pesos +
    • +     + + + + + +
    +
    +
    + + +
    +
    +
    + +
    + + +
    + +
    + +
    +
    Fecha Ini. Ap:
    +
    +
    + + + + + + + + +
    +
    +
    Fecha Fin Ap:
    +
    +
    + + + + + + + + +
    +
    +
    +
    +
    + +
    +     +     + + +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    + + + + + + + +
    AnticiposNotas de créditoIngresos por Comprobar
    + + + + + + + + + +     +     + + + + + +     + + + diff --git a/Ventas/RepAnticipo-NC-IXCAplicados.aspx.cs b/Ventas/RepAnticipo-NC-IXCAplicados.aspx.cs new file mode 100644 index 000000000..8bd231733 --- /dev/null +++ b/Ventas/RepAnticipo-NC-IXCAplicados.aspx.cs @@ -0,0 +1,224 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Web; +using System.Web.UI.WebControls; +using Extensiones; +using System.Data; +using Microsoft.Reporting.WebForms; +using ADSNetLibrary.SIGAPI.Models.CGame; + +public partial class Ventas_RepAnticipo_NC_IXCAplicados : ClsPaginas +{ + + #region PROPIEDADES + private DataTable DtDatos + { + get { return DtDatos = (DataTable)ViewState["DtDatos"]; } + set { ViewState["DtDatos"] = value; } + } + + private double TCEspecifico + { + get { return TCEspecifico = (double)ViewState["TCEspecifico"]; } + set { ViewState["TCEspecifico"] = value; } + } + + private int TipoCambio + { + get { return TipoCambio = (int)ViewState["TipoCambio"]; } + set { ViewState["TipoCambio"] = value; } + } + + private int Vendedor + { + get { return Vendedor = (int)ViewState["Vendedor"]; } + set { ViewState["Vendedor"] = value; } + } + #endregion + + protected void Page_Load(object sender, EventArgs e) + { + if (!IsPostBack) + { + InicializaValores(); + } + } + + private void InicializaValores() + { + //txtFechaI.Text = "01/01/2000"; + //txtFechaF.Text = DateTime.Today.ToString(); + TxtFechaFCorte.Text = DateTime.Today.ToString(); + TipoCambio = 1; + TCEspecifico = -1; + Vendedor = 0; + CargaSucursales(); + CargaClientes(); + CargaVendedores(); + CargaDatos(); + } + + protected void CargaSucursales() + { + DdlSucursal.DataSource = get_GlobalDTSubProyectos(UsuarioActual.CveEmpresa); + DdlSucursal.DataBind(); + DdlSucursal.Items.Insert(0, new ListItem("Todos", "-1")); + } + + //protected void CargaClientes() + //{ + // DdlCliente.DataSource = get_GlobalDTCliente(UsuarioActual.CveEmpresa,-1); + // DdlCliente.DataBind(); + // DdlCliente.Items.Insert(0, new ListItem("Todos", "-1")); + //} + protected void CargaClientes() + { + DdlCliente.setEsWebService(true); + DdlCliente.Attributes.Add("data-metodo", "getcliente"); + } + protected void CargaVendedores() + { + DdlVendedor.DataSource = get_GlobalDTVendedores(UsuarioActual.CveEmpresa); + DdlVendedor.DataBind(); + DdlVendedor.Items.Insert(0, new ListItem("Todos", "-1")); + //DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor); + } + + protected void CargaDatos() + { + if (TipoCambio == 3 && TxtEspecifico.Text != "") { TCEspecifico = TxtEspecifico.Text.ToDouble(); } else { TCEspecifico = -1; } + DateTime FechaICorte; + if (TxtFechaICorte.Text != "") { FechaICorte = TxtFechaICorte.Text.ToDate(); } else { FechaICorte = ModExtensiones.MinFecha; } + DateTime FechaFCorte; + if (TxtFechaFCorte.Text != "") { FechaFCorte = TxtFechaFCorte.Text.ToDate(); } else { FechaFCorte = ModExtensiones.MaxFecha; } + ClsVentas ObjVenta = new ClsVentas(); + int CveCliente = -1; + if (DdlCliente.SelectedValue.ToEntero() != 0) + { + CveCliente = DdlCliente.SelectedValue.ToEntero(); + } + if (ObjVenta.GetRepAnticiposNCIXCAplicados(CveCliente, DdlSucursal.SelectedValue.ToEntero(), ModExtensiones.MinFecha, + ModExtensiones.MaxFecha, UsuarioActual.CveEmpresa, FechaICorte, FechaFCorte, TipoCambio, TCEspecifico, DdlVendedor.SelectedValue.ToEntero(), DdlConSaldo.SelectedValue.ToEntero())) + { + GvDatos.DataSource = ObjVenta.DtResultados; + DtDatos = ObjVenta.DtResultados; + } + ObjVenta.Dispose(); + GvDatos.DataBind(); + UpDatos.Update(); + } + + protected void BtnConsultar_Click(object sender, EventArgs e) + { + CargaDatos(); + Vendedor = DdlVendedor.SelectedIndex; + } + + protected void LnkExcel_Click(object sender, EventArgs e) + { + GenerarPDF("EXCEL"); + } + + protected void LnkPdf_Click(object sender, EventArgs e) + { + GenerarPDF("PDF"); + } + + protected void GenerarPDF(String Opcion) + { + //String FechaI; + //if (txtFechaI.Text == "" || txtFechaI.Text == "__/__/____") { FechaI = ""; } else { FechaI = $" Fecha Inicial: {txtFechaI.Text}"; } + //String FechaF; + //if (txtFechaF.Text == "" || txtFechaF.Text == "__/__/____") { FechaF = ""; } else { FechaF = $" Fecha Final: {txtFechaF.Text}"; } + String FechaICorte; + if (TxtFechaICorte.Text == "" || TxtFechaICorte.Text == "__/__/____") { FechaICorte = ""; } else { FechaICorte = $" Fecha Inicial Corte: {TxtFechaICorte.Text}"; } + String FechaFCorte; + if (TxtFechaFCorte.Text == "" || TxtFechaFCorte.Text == "__/__/____") { FechaFCorte = ""; } else { FechaFCorte = $" Fecha Final Corte: {TxtFechaFCorte.Text}"; } + String Sucursal; + if (DdlSucursal.SelectedValue != "-1") { Sucursal = $" Sucursal: {DdlSucursal.SelectedItem.Text}"; } else { Sucursal = ""; } + String Cliente; + if (DdlCliente.SelectedValue != "-1") { Cliente = $" Cliente: {DdlCliente.SelectedText}"; } else { Cliente = ""; } + if (DtDatos.Rows.Count > 0) + { + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); + String logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); + List para = new List(); + para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); + para.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)); + para.Add(new ReportParameter("FechaImpresion", NowADS().ToString())); + para.Add(new ReportParameter("AgrupadoPor", $"Agrupado Por: {Cliente}{Sucursal}{FechaICorte}{FechaFCorte}")); + + + + para.Add(new ReportParameter("MostarAnticipos", ChkAnticipos.Checked ? "1" : "0")); + para.Add(new ReportParameter("MostarNCxAplicar", ChkNCxAplicar.Checked ? "1" : "0")); + para.Add(new ReportParameter("MostarIngresosxComprobar", ChkIngresosxComprobar.Checked ? "1" : "0")); + + if (Imagen.Exists) + { + para.Add(new ReportParameter("LogoPath", logouri)); + } + else + { + para.Add(new ReportParameter("LogoPath", "")); + } + ImprimirPDF("Empresas/Grales/Formatos/RepAnt-NC-IXC.rdlc", DtDatos, para, "Reporte de Anticipos - NCXAplicar - IXC", Opcion); + } + else + { + Alert("No hay datos consultados", ModExtensiones.TipoMensaje.MsgAdvertencia); + } + } + + protected void GvDatos_RowDataBound(object sender, GridViewRowEventArgs e) + { + if (e.Row.RowType == DataControlRowType.DataRow) + { + + if (e.Row.DBCampo("CveCliente").ToEntero() < 1) + { + e.Row.CssClass = "Totales"; + if (e.Row.DBCampo("CveMoneda").ToEntero() == 1) + { + e.Row.Cells[0].Text = "Total Pesos"; + } + else if (e.Row.DBCampo("CveMoneda").ToEntero() == 2) + { + e.Row.Cells[0].Text = "Total Dolares"; + } + } + + if (e.Row.DBCampo("CveCliente").ToEntero() > 0) + { + if (e.Row.DBCampo("Tipo").ToEntero() == 0) + { + e.Row.CssClass = "SubTotales"; + } + } + + } + } + + protected void BtnTipoCambio_Click(object sender, EventArgs e) + { + CargaDatos(); + RegistraScript(String.Format("$('#{0}').modal('hide');", "DivTipoCambio")); + } + + protected void RblTipoCambio_SelectedIndexChanged(object sender, EventArgs e) + { + TipoCambio = RblTipoCambio.SelectedValue.ToEntero(); + if (TipoCambio == 3) + { + LiEspecifico.Visible = true; + TCEspecifico = get_GlobalTipoCambio(NowADS()).ToString().ToDouble(); + TxtEspecifico.Text = TCEspecifico.ToString(); + } + else + { + LiEspecifico.Visible = false; + } + UpBodyTipoCambio.Update(); + } +}