Imports Extensiones

Partial Class OC_OCCompras
    Inherits ClsPaginas



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


    Private Sub CargaDatos()

        'Dim OC As New ClsOC
        'GVCot.Caption = ""
        ''Autorizadas para compra
        'If OC.GetOrdenes(UsuarioActual.Empresa.CveEmpresa, -1, -1, -1, 3, ("01/01/2000").ToDate, ("01/01/2900").ToDate, -1, -1) Then
        '    GVAut.DataSource = OC.DtResultados
        '    GVAut.DataBind()

        'End If

        ''Cotizando
        'If OC.GetOrdenes(UsuarioActual.Empresa.CveEmpresa, -1, -1, -1, 5, ("01/01/2000").ToDate, ("01/01/2900").ToDate, -1, -1) Then
        '    GVCot.DataSource = OC.DtResultados
        '    GVCot.DataBind()

        'End If
        ''Comprando
        'If OC.GetOrdenes(UsuarioActual.Empresa.CveEmpresa, -1, -1, -1, 7, ("01/01/2000").ToDate, ("01/01/2900").ToDate, -1, -1) Then
        '    GVCot.DataSource = OC.DtResultados
        '    GVCot.DataBind()

        'End If

        'OC.Dispose()

    End Sub

    Protected Sub GVAut_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GVAut.RowCommand
        If e.CommandName = "Recibir" Then

            Dim OC As New ClsOC
            If OC.UpdateOrdenCompraEstatus(7, e.CommandArgument.ToString.ToEntero, UsuarioActual.CveUsuario, "") Then
                Alert("Se recibió la orden de compra", TipoMensaje.MsgInformacion)
                CargaDatos()
            End If
            OC.Dispose()

        End If

        If e.CommandName = "Cotizada" Then

            Dim OC As New ClsOC
            If OC.UpdateOrdenCompraEstatus(6, e.CommandArgument.ToString.ToEntero, UsuarioActual.CveUsuario, "") Then
                Alert("Se cotizó la orden de compra", TipoMensaje.MsgInformacion)
            End If
            OC.Dispose()
            CargaDatos()
        End If

        If e.CommandName = "Comprada" Then

            Dim OC As New ClsOC
            If OC.UpdateOrdenCompraEstatus(8, e.CommandArgument.ToString.ToEntero, UsuarioActual.CveUsuario, "") Then
                Alert("Se compró la orden de compra", TipoMensaje.MsgInformacion)
            End If
            OC.Dispose()
            CargaDatos()
        End If
    End Sub
End Class