From b400414c1f504cbe2b74479b25659033f54977e5 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Tue, 22 Oct 2019 14:18:01 -0700 Subject: [PATCH] Reporte de Precios de Compras --- App_Code/ClsCompras.vb | 1 - Compras/RepComprasPrecios.aspx | 321 ++++++++++++++++++++++++++++++ Compras/RepComprasPrecios.aspx.vb | 123 ++++++++++++ 3 files changed, 444 insertions(+), 1 deletion(-) create mode 100644 Compras/RepComprasPrecios.aspx create mode 100644 Compras/RepComprasPrecios.aspx.vb diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index 1f9dedf7e..68ed6f984 100644 --- a/App_Code/ClsCompras.vb +++ b/App_Code/ClsCompras.vb @@ -3039,7 +3039,6 @@ Public Class ClsCompras Catch ex As Exception OnError("Ocurrió un error al obtener el reporte de Precios de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - Return Retorno End Function #End Region diff --git a/Compras/RepComprasPrecios.aspx b/Compras/RepComprasPrecios.aspx new file mode 100644 index 000000000..af6c80308 --- /dev/null +++ b/Compras/RepComprasPrecios.aspx @@ -0,0 +1,321 @@ +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepComprasPrecios.aspx.vb" Inherits="RepComprasPrecios" %> + + + + + + + +
  • + PDF +
    • +
  • + Excel +
    • +     + + + + + + + + + <%-- + +
    + +
    +     +     --%> +     + + + + +
    +
    +
    + + "> + +
    +
    +
    + +
    + +
    +
    +
    +
    + +
    > + +
    +
    +     +     +
    +
    +
    + " style="display: inline-block; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +     + + <%----%> + + + + + + + + diff --git a/Compras/RepComprasPrecios.aspx.vb b/Compras/RepComprasPrecios.aspx.vb new file mode 100644 index 000000000..bd90d05a8 --- /dev/null +++ b/Compras/RepComprasPrecios.aspx.vb @@ -0,0 +1,123 @@ +Option Explicit On +Option Strict On + +Imports System.Data +Imports Microsoft.Reporting.WebForms +Imports Extensiones +Partial Class RepComprasPrecios + Inherits ClsPaginas + Private Shared missing As Object = System.Reflection.Missing.Value + +#Region "PROPIEDADES" + Private Property DtCompras As DataTable + Get + Return DirectCast(ViewState("DtCompras"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtCompras") = value + End Set + End Property + +#End Region + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + If Not Page.IsPostBack Then + 'txtFechaI.Text = Now.ToShortDateString + 'txtFechaF.Text = Now.ToShortDateString + + 'CargaSucursal() + CargaProveedor() + CargaDatos() + + End If + End Sub + +#Region " C A R G A - D A T O S " + Public Sub CargaDatos() + Dim ObjCompras As New ClsCompras + + 'FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), MinFecha.ToShortDateString) + 'FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), MaxFecha.ToShortDateString) + + If ObjCompras.GetRepReqOCCompraInv("".ToDate, "".ToDate, DdlProveedor.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then + GvDatos.DataSource = ObjCompras.DtResultados + DtCompras = ObjCompras.DtResultados + GvDatos.DataBind() + UPDatos.Update() + End If + + ObjCompras.Dispose() + End Sub +#End Region + +#Region "G V - D A T O S " + Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + + 'Cuando es titulo + 'If e.Row.DBCampo("PS").ToString.Trim = "" Then + ' e.Row.CssClass = "Totales" + + ' e.Row.Cells(0).Text = String.Format("Folio: {0} ", e.Row.DBCampo("FolioSalida"), e.Row.DBCampo("CveMovimientoSalida")) + ' e.Row.Cells(1).Text = String.Format("{0}", e.Row.DBCampo("FechaMovto").ToString.ToDate.ToShortDateString) + ' e.Row.Cells(3).Text = String.Format("Almacen Destino: {0}       Responsable: {1}", e.Row.DBCampo("AlmacenDestino"), e.Row.DBCampo("Recibio")) + 'End If + + End If + End Sub +#End Region + +#Region "CARGA COMBOS FILTRO" + Private Sub CargaProveedor() + DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) + DdlProveedor.DataBind() + DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1")) + DdlProveedor.SelectedValue = "-1" + End Sub +#End Region + +#Region "IMPRESION" + Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click + Imprime("PDF") + End Sub + Private Sub Imprime(Formato As String) + 'If DtInventarios IsNot Nothing Then + ' Dim StrFiltro As New StringBuilder + ' If txtFechaI.Text <> "" Then StrFiltro.AppendFormat(" Fecha Inicio: {0}", txtFechaI.Text.ToDate.ToShortDateString) + ' If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(" Fecha Fin: {0}", txtFechaF.Text.ToDate.ToShortDateString) + + ' If DdlAlmacenOrigen.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Almacén Origen: {0}", DdlAlmacenOrigen.SelectedItem.Text) + ' If DdlAlmacenDestino.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Almacén Destino: {0}", DdlAlmacenDestino.SelectedItem.Text) + ' If ChkRecibido.Checked Then StrFiltro.AppendFormat(" Recibidos: Si") Else StrFiltro.AppendFormat(" Recibidos: No") + + ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + + ' Dim FechaI, FechaF As String + ' FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text) + ' FechaF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text) + + ' Dim params As New List(Of ReportParameter) + ' params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + ' params.Add(New ReportParameter("FechaInicio", FechaI)) + ' params.Add(New ReportParameter("FechaFin", FechaF)) + ' params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + ' params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) + ' If Imagen.Exists Then + ' params.Add(New ReportParameter("LogoPath", logouri)) + ' Else + ' params.Add(New ReportParameter("LogoPath", "")) + ' End If + ' ImprimirPDF("Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc", DtInventarios, params, String.Format("RepTraspasoAlmacen-{0}", Now.ToDateTime.ToShortDateString), Formato) + 'Else + ' Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) + 'End If + End Sub +#End Region + Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click + CargaDatos() + End Sub + + Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click + Imprime("Excel") + End Sub +End Class