Option Explicit On
Option Strict On

Imports System.Data
Imports Extensiones
Imports Microsoft.Reporting.WebForms

Partial Class Compras_RepCartaPorteTraslados
    Inherits ClsPaginas

    'Private Property DTComplemntos As DataTable
    '    Get
    '        If ViewState("DTComplemntos") Is Nothing Then
    '            Return New DataTable
    '        Else
    '            Return DirectCast(ViewState("DTComplemntos"), DataTable)
    '        End If
    '    End Get
    '    Set(value As DataTable)
    '        ViewState("DTComplemntos") = value
    '    End Set
    'End Property


    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then

            InicializaValores()

        End If
    End Sub

#Region "  INICIALIZA VALORES  "
    Private Sub InicializaValores()

        TxtFiltrosFechaInicio.Text = Now.FirstDayOfMonth.ToShortDateString
        TxtFiltrosFechaFin.Text = Now.ToShortDateString

        DdlProveedores.setEsWebService(True)
        DdlProveedores.Attributes.Add("data-metodo", "getproveedores")

        'DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
        'DdlProveedores.DataBind()
        'DdlProveedores.Items.Insert(0, New ListItem("Todos", "-1"))

        'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
        'DdlSubProyecto.DataBind()
        'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))

        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto:=LblSubProyecto)

        DdlUsuarioRegistra.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
        DdlUsuarioRegistra.DataBind()
        DdlUsuarioRegistra.Items.Insert(0, New ListItem("Todos", "-1"))

        UpFiltros.Update()
    End Sub
#End Region


#Region "  CARGA DATOS  "
    Protected Sub BtnConsultarFiltros_Click(sender As Object, e As EventArgs)
        CargaDatos()
    End Sub
    Private Sub CargaDatos()

        LnkExcel.Visible = False

        Dim CveProveedor As Integer = If(DdlProveedores.SelectedValue.ToEntero = 0, -1, DdlProveedores.SelectedValue.ToEntero)
        Dim CveTipoProveedor = DdlTipoProveedor.SelectedValue.ToEntero
        Dim FechaInicio = If(IsDate(TxtFiltrosFechaInicio.Text), TxtFiltrosFechaInicio.Text.ToDate, MinFecha)
        Dim FechaFin = If(IsDate(TxtFiltrosFechaFin.Text), TxtFiltrosFechaFin.Text.ToDate, MaxFecha)
        Dim Count As Integer = 0

        Dim ObjCompras As New ClsCompras
        If ObjCompras.GetComplementoTrasladoRep(UsuarioActual.CveEmpresa, CveProveedor, CveTipoProveedor, FechaInicio, FechaFin, UsuarioActual.CveUsuario, DdlUsuarioRegistra.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero) Then
            GvDatos.DataSource = ObjCompras.DtResultados

            If ObjCompras.DtResultados.Rows.Count > 0 Then
                LnkExcel.Visible = True
            End If
        Else
            GvDatos.DataSource = Nothing
        End If

        ObjCompras.Dispose()

        GvDatos.DataBind()

        UpAcciones.Update()
        UpDatos.Update()


    End Sub
    Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then

        End If
    End Sub
#End Region




#Region "IMPRESION"

    Protected Sub LnkExcel_Click(sender As Object, e As EventArgs)
        GeneraImpresion("Excel")
    End Sub

    Private Sub GeneraImpresion(Optional Formato As String = "PDF")

        GvDatos.ExportToExcel2("RepCartaPorteTraslados.xlsx")

    End Sub
#End Region
End Class