Reporte de Precios de Compras

2019-10-22 14:18:01 -07:00
parent bdae815baf
commit b400414c1f
3 changed files with 444 additions and 1 deletions
--- a/Compras/RepComprasPrecios.aspx.vb
+++ 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: <a class=""texto"" style=""color:white;"" target='_blank' href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}'>{0}</a> ", 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} &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 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("&emsp;<b>Fecha Inicio:</b> {0}", txtFechaI.Text.ToDate.ToShortDateString)
+        '    If txtFechaF.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Fin:</b> {0}", txtFechaF.Text.ToDate.ToShortDateString)
+
+        '    If DdlAlmacenOrigen.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Almacén Origen:</b> {0}", DdlAlmacenOrigen.SelectedItem.Text)
+        '    If DdlAlmacenDestino.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Almacén Destino:</b> {0}", DdlAlmacenDestino.SelectedItem.Text)
+        '    If ChkRecibido.Checked Then StrFiltro.AppendFormat("&emsp;<b>Recibidos: </b>Si") Else StrFiltro.AppendFormat("&emsp;<b>Recibidos: </b>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