Option Explicit On
Option Strict On

Imports Extensiones
Partial Class OC_RepOCxSurtir
    Inherits ClsPaginas

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

        End If
    End Sub


#Region "  INICIALIZA VALORES  "
    Private Sub InicializaValores()
        TxtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
        TxtFechaF.Text = Now.ToShortDateString

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

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

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

        UPFiltros.Update()
    End Sub
#End Region

#Region "  CARGA DATOS  "
    Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
        CargaDatos()
    End Sub
    Private Sub CargaDatos()
        Dim ObjOC As New ClsOC

        Dim FechaI, FechaF As String
        FechaI = If(IsDate(TxtFechaI.Text.Trim()), TxtFechaI.Text.Trim(), "-1")
        FechaF = If(IsDate(TxtFechaF.Text.Trim()), TxtFechaF.Text.Trim(), "-1")

        If ObjOC.GetPendietePorSurtirOC(FechaI, FechaF, DdlProveedor.SelectedValue.ToEntero, If(TxtFolio.Text = "", -1, TxtFolio.Text.ToEntero), DdlSubProyecto.SelectedValue.ToEntero, DdlCliente.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
            GvDatos.DataSource = ObjOC.DtResultados
        Else
            GvDatos.DataSource = Nothing
        End If

        GvDatos.DataBind()
        ObjOC.Dispose()
        UpDatos.Update()
    End Sub

    Private Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            If e.Row.DBCampo("CveOrdenCompra") = "" Then
                e.Row.CssClass = "Totales"
                e.Row.Cells(3).Visible = False
                e.Row.Cells(2).ColumnSpan = 2
            ElseIf e.Row.DBCampo("CodigoPS") = "" Then
                e.Row.CssClass = "SubTotales2"
            Else
                e.Row.Cells(0).Text = ""
                e.Row.Cells(1).Text = ""
                e.Row.Cells(2).Text = ""
            End If
        End If
    End Sub

#End Region

End Class