Imports Extensiones

Partial Class Contratos_Estimaciones
    Inherits ClsPaginas



    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
           
            CargaProveedores()
            CargaContratos()
            CargaClasificacion()
            CargaSeccion()
            'DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1"))
            DdlPS.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
        End If
    End Sub


    Private Sub CargaDatos()
        Dim Con As New ClsContratos
        If Con.GetEstimaciones(DdlProveedor.SelectedValue.ToEntero, -1, DdlContrato.SelectedValue.ToEntero, DdlSeccion.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then
            GV.DataSource = Con.DtResultados
            GV.DataBind()
            If Con.DtResultados.Rows.Count > 0 Then
                BtnAgregar.Visible = True
            End If
            UpDatos.Update()
        End If
        Con.Dispose()
    End Sub

#Region "C O M B O S"

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

    Private Sub CargaSeccion()
        DdlSeccion.DataSource = GlobalDTContratosSecciones.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
        DdlSeccion.DataBind()
        DdlSeccion.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
        'Dim ObjSecciones As New ClsContratos
        'If ObjSecciones.GetSecciones() Then
        '    DdlSeccion.DataSource = ObjSecciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
        '    DdlSeccion.DataBind()

        'End If

        'ObjSecciones.Dispose()

    End Sub
    Private Sub CargaContratos()
        DdlContrato.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
        DdlContrato.DataBind()
        DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1"))
    End Sub
    Private Sub CargaClasificacion()
        DdlClasificacion.DataSource = GlobalDTClasificaciones.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
        DdlClasificacion.DataBind()
        DdlClasificacion.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
    End Sub
    Private Sub CargaPS()
        Dim ObjPS As New ClsProductosServicios
        If ObjPS.GetPS(-1, DdlClasificacion.SelectedValue.ToString.ToEntero, UsuarioActual.CveEmpresa) Then
            DdlPS.DataSource = ObjPS.DtResultados
        Else
            DdlPS.DataSource = Nothing
        End If
        DdlPS.DataBind()

        ObjPS.Dispose()
        DdlPS.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
    End Sub
#End Region

    Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GV.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            If e.Row.RowIndex = 0 Then
                e.Row.Cells(0).Width = Unit.Pixel(60)
                e.Row.Cells(1).Width = Unit.Pixel(60) 'Seccion
                e.Row.Cells(2).Width = Unit.Pixel(300) 'SubSeccion
                e.Row.Cells(3).Width = Unit.Pixel(100) 'Cantidad
            End If

            If e.Row.DBCampo("RazonSocial") = "" Then
                e.Row.CssClass = "Totales" : e.Row.Height = 25
            ElseIf e.Row.DBCampo("Contrato") = "" Then
                e.Row.CssClass = "SubTotales2" : e.Row.Height = 25
            ElseIf e.Row.DBCampo("Seccion") = "" Then
                e.Row.CssClass = "SubTotales" : e.Row.Height = 25
            ElseIf e.Row.DBCampo("Clasificacion") = "" Then
                e.Row.CssClass = "SubTotales3" : e.Row.Height = 25
            End If

        End If
    End Sub

    Protected Sub CmdConsultar_Click(sender As Object, e As EventArgs) Handles CmdConsultar.Click
        CargaDatos()
    End Sub

    Protected Sub BtnAgregar_Click(sender As Object, e As EventArgs) Handles BtnAgregar.Click
        Dim Str As New StringBuilder
        For Each gvr As GridViewRow In GV.Rows
            If gvr.FCCheckBox("Chk").Checked Then
                Str.AppendFormat("{0},", gvr.DataKey("CveContratoSeccion"))
            End If
        Next
        'debe de ser por contrato el movimiento
        If Str.Length > 0 Then
            Dim Con As New ClsContratos
            Con.AddEstimaciones(7, Now, -1, -1, Str.ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
            Con.Dispose()
        End If
        CargaDatos()

    End Sub
End Class