SIG/Compras/RepReqOCCompraInv.aspx.vb

Option Explicit On
Option Strict On

Imports System.Data
Imports Microsoft.Reporting.WebForms
Imports Extensiones
Partial Class RepReqOCCompraInv
    Inherits ClsPaginas
    Private Shared missing As Object = System.Reflection.Missing.Value

#Region "PROPIEDADES"
    Private Property FechaI As String
        Get
            Return ViewState("FechaI").ToString
        End Get
        Set(value As String)
            ViewState("FechaI") = value
        End Set
    End Property
    Private Property FechaF As String
        Get
            Return ViewState("FechaF").ToString
        End Get
        Set(value As String)
            ViewState("FechaF") = value
        End Set
    End Property
    'Private Property CveCliente As Integer
    '    Get
    '        Return ViewState("CveCliente").ToString.ToEntero
    '    End Get
    '    Set(value As Integer)
    '        ViewState("CveCliente") = value
    '    End Set
    'End Property
    'Private Property Sucursales As String
    '    Get
    '        Return ViewState("Sucursales").ToString
    '    End Get
    '    Set(value As String)
    '        ViewState("Sucursales") = value
    '    End Set
    'End Property
    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(FechaI.ToDate, FechaF.ToDate, DdlProveedor.SelectedValue.ToEntero, DdlSucursal.SelectedValue.ToEntero, 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 CargaSucursal()
        DdlSucursal.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
        DdlSucursal.DataBind()
        DdlSucursal.Items.Insert(0, New ListItem("Todos", "-1"))
        DdlSucursal.SelectedValue = "-1"
    End Sub
    Private Sub CargaProveedor()
        DdlProveedor.setEsWebService(True)
        DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
        DdlProveedor.SelectedText = "Todos"
        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", $"file://{Imagen.FullName}"))
    '        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