Option Explicit On
Option Strict On

Imports Extensiones
Partial Class Ventas_RepComisionesDetallePS
    Inherits ClsPaginas

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


#Region "  CARGA PARAMETROS URL  "
    Private Sub CargaParametrosUrl()
        Dim FechaI, FechaF As String
        Dim CveVendedor, CveVenta, CveSubProyecto As Integer

        CveVendedor = If(Request("CveVendedor") IsNot Nothing AndAlso Request("CveVendedor").ToEntero() > 0, Request("CveVendedor").ToEntero(), -1)
        CveSubProyecto = If(Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto").ToEntero() > 0, Request("CveSubProyecto").ToEntero(), -1)
        CveVenta = If(Request("CveVenta") IsNot Nothing AndAlso Request("CveVenta").ToEntero() > 0, Request("CveVenta").ToEntero(), -1)
        FechaI = If(Request("FI") IsNot Nothing, Request("FI").ToString, "-1").ToString
        FechaF = If(Request("FF") IsNot Nothing, Request("FF").ToString, "-1").ToString

        CargaDatos(CveVendedor, FechaI, FechaF, CveVenta, CveSubProyecto)
    End Sub
#End Region


#Region "  CARGA DATOS  "
    Private Sub CargaDatos(CveVendedor As Integer, FI As String, FF As String, CveVenta As Integer, CveSubProyecto As Integer)

        Dim FechaI = If(IsDate(FI), FI.ToDate, MinFecha)
        Dim FechaF = If(IsDate(FF), FF.ToDate, MaxFecha)

        Dim ObjComisiones As New ClsEsquemasComisiones()
        If ObjComisiones.GetRepComisionesDetallePS(CveVendedor, FechaI, FechaF, CveVenta, CveSubProyecto, UsuarioActual.CveEmpresa) Then
            GvDatos.DataSource = ObjComisiones.DtResultados
        Else
            GvDatos.DataSource = Nothing
        End If
        ObjComisiones.Dispose()


        If (GvDatos.Rows.Count > 0) Then
            GvDatos.UseAccessibleHeader = True
            GvDatos.HeaderRow.TableSection = TableRowSection.TableHeader
            RegistraScript("OrdenarGV();")
            ImgExcel.Visible = True
        Else
            ImgExcel.Visible = False
        End If

        GvDatos.DataBind()

        UPDatos.Update()

    End Sub
#End Region


#Region "  EXCEL  "
    Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
        GvDatos.ExportToExcel("ReporteComisionesDetalle_" & Now.ToShortDateString)
    End Sub
#End Region

End Class