SIG/Inventarios/RepTraspasoAlmacen.aspx.vb

Option Explicit On
Option Strict On

Imports System.Data
Imports Microsoft.Reporting.WebForms
Imports Extensiones
Partial Class RepTraspasoAlmacen
    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 DtInventarios As DataTable
        Get
            Return DirectCast(ViewState("DtInventarios"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtInventarios") = 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

            CargaAlmacenOrigen()
            CargaAlmacenDestino()
            CargaDatos()
            OrdenaDatos()

        End If
    End Sub

#Region " C A R G A - D A T O S "
    Public Sub CargaDatos()
        Dim ObjInventarios As New ClsInventarios

        FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), MinFecha.ToShortDateString)
        FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), MaxFecha.ToShortDateString)
        'CveCliente = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1)

        'Sucursales = IIf(DdlSubProyectos.GetSelectedValuesM = "", "-1", DdlSubProyectos.GetSelectedValuesM).ToString

        If ObjInventarios.RepTraspasoAlmacen(FechaI.ToDate, FechaF.ToDate, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero, ChkRecibido.Checked, UsuarioActual.CveEmpresa) Then
            GvDatos.DataSource = ObjInventarios.DtResultados
            DtInventarios = ObjInventarios.DtResultados
            GvDatos.DataBind()
            UPDatos.Update()
        End If

        ObjInventarios.Dispose()
    End Sub
#End Region

#Region "O R D E N A M I E N T O"
    Private Sub OrdenaDatos()
        'If (GvDatos.Rows.Count > 0) Then
        '    GvDatos.UseAccessibleHeader = True
        '    GvDatos.HeaderRow.TableSection = TableRowSection.TableHeader
        '    RegistraScript("OrdenarGV();")
        'End If
    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 Origen: {0}&nbsp;&nbsp;&nbsp;&nbsp; Almacen Destino: {1} &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Responsable: {2}", e.Row.DBCampo("Almacen"), e.Row.DBCampo("AlmacenDestino"), e.Row.DBCampo("Recibio"))
            End If

        End If
    End Sub
#End Region

#Region "CARGA COMBOS FILTRO"
    Private Sub CargaAlmacenOrigen()
        DdlAlmacenOrigen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (3,4,9,10,11,21)")
        DdlAlmacenOrigen.Items.Insert(0, New ListItem(" Todos ", "-1"))
        DdlAlmacenOrigen.SelectedValue = "-1"
        DdlAlmacenOrigen.DataBind()
        DdlAlmacenOrigen.SelectedValueExist(UsuarioActual.CveAlmacen)
    End Sub
    Private Sub CargaAlmacenDestino()
        DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (3,4,9,10,11,21)")
        DdlAlmacenDestino.DataBind()
        DdlAlmacenDestino.Items.Insert(0, New ListItem("Todos", "-1"))
        DdlAlmacenDestino.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