Option Explicit On
Option Strict On

Imports Extensiones
Partial Class Ventas_RepComisionesDetalle
    Inherits ClsPaginas


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


#Region "  INICIALIZA VALORES  "

    Private Sub InicializaValores()
        txtFechaI.Text = FirstDayOfMonth(Now).ToShortDateString
        txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString

        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
        DdlVendedor.DataBind()

        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
        DdlSubProyecto.DataBind()
    End Sub

#End Region


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

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

        txtFechaI.Text = If(FechaI = "1", "", FechaI)
        txtFechaF.Text = If(FechaI = "1", "", FechaF)
        DdlVendedor.SelectedValue = CveVendedor
        DdlSubProyecto.SelectedValue = CveSubProyecto

        BtnConsultar_Click(BtnConsultar, EventArgs.Empty)
    End Sub
#End Region


#Region "  CARGA DATOS  "
    Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
        CargaDatos()
        UPDatos.Update()
    End Sub

    Private Sub CargaDatos()
        Dim ObjComisiones As New ClsEsquemasComisiones()

        Dim FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim().ToDate, MinFecha)
        Dim FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim().ToDate, MaxFecha)

        If ObjComisiones.GetRepComisionesDetalle(DdlVendedor.SelectedValue.ToEntero, FechaI, FechaF, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
            GvDatos.DataSource = ObjComisiones.DtResultados
        Else
            GvDatos.DataSource = Nothing
        End If

        If ObjComisiones.DtResultados.Rows.Count > 0 Then
            ImgExcel.Visible = True
        Else
            ImgExcel.Visible = False
        End If

        ObjComisiones.Dispose()

        GvDatos.DataBind()

    End Sub
#End Region


#Region "  GV DATOS  "
    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then

            If e.Row.DBCampo("CveVenta") = "" Then
                e.Row.FCHyperLink("HLVenta").NavigateUrl = ""
                e.Row.FCHyperLink("HLVenta").Text = e.Row.DBCampo("Vendedor")
                e.Row.CssClass = "SubTotales"
                e.Row.Cells(0).CssClass = "SubTotales sinlink"
                e.Row.Attributes.Add("style", "background:#CCCCCC !important")
            ElseIf e.Row.DBCampo("CveVenta") = "99999999999" Then
                e.Row.Cells(5).Text = ""
            Else
                e.Row.FCHyperLink("HLVenta").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DBCampo("CveVenta"))
            End If

            e.Row.FCHyperLink("HLGanancia").NavigateUrl = String.Format("/Ventas/RepComisionesDetallePS.aspx?CveVendedor={0}&FI={1}&FF={2}&CveVenta={3}&CveSubProyecto={4}", e.Row.DBCampo("CveVendedor"), If(txtFechaI.Text.Trim() = "", "-1", txtFechaI.Text.Trim()), If(txtFechaF.Text.Trim() = "", "-1", txtFechaF.Text.Trim()), If(e.Row.DBCampo("CveVenta") = "", "-1", e.Row.DBCampo("CveVenta")), DdlSubProyecto.SelectedValue.ToEntero)


        End If
    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