Imports Extensiones

Partial Class RegOp
    Inherits Page
    'tIENE QUE SER page, porque esta página no se debe de validar la sesión

#Region "Propiedades"
    Private Property CveOrdenCompra As Integer
        Get
            CveOrdenCompra = ViewState("CveOrdenCompra").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveOrdenCompra") = value
        End Set
    End Property

    Private Property CveUsuario As Integer
        Get
            CveUsuario = ViewState("CveUsuario").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveUsuario") = value
        End Set
    End Property
#End Region

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            Master.EsPopup = True

            If Request("p") IsNot Nothing Then
                If Decripta(Request("p")).Length > 0 Then

                    Dim Par As Hashtable = ClsPaginas.UrlParametros
                    Select Case Par("OP").ToString

                        Case "SUPERVISAR"
                            CambiarEstatus(2, Par("OC").ToString.ToEntero, Par("CVEUSUARIO").ToString.ToEntero)
                        Case "AUTORIZAR"
                            CambiarEstatus(3, Par("OC").ToString.ToEntero, Par("CVEUSUARIO").ToString.ToEntero)
                        Case "CANCELAR"
                            CveOrdenCompra = Par("OC").ToString.ToEntero
                            CveUsuario = Par("CVEUSUARIO").ToString.ToEntero
                            tbCancelar.Visible = True
                    End Select

                End If
            End If
        End If
    End Sub

    Private Sub CambiarEstatus(pCveEstatus As Integer, pCveOrdenCompra As Integer, pCveUsuario As Integer)
        '    Dim OC As New ClsOC
        '    If OC.GetOC(pCveOrdenCompra, usuarioactual.cveempresa) Then
        '        Dim Actualiza As Boolean = False
        '        Dim Motivo As String = ""
        '        'verifico si todavía está en el estatus que debe de ser, para que no afecte cuando esté más avanzada la oc y la regrese.
        '        If OC.CveEstatusOrdenCompra = 1 And pCveEstatus = 2 Then Actualiza = True
        '        If OC.CveEstatusOrdenCompra = 2 And pCveEstatus = 3 Then Actualiza = True
        '        If OC.CveEstatusOrdenCompra.Contiene(1, 2) And pCveEstatus = 3 Then Actualiza = True

        '        If Actualiza Then
        '            OC.UpdateOrdenCompraEstatus(pCveEstatus, pCveOrdenCompra, pCveUsuario, 2, Motivo)
        '            Alert("La Orden de compra ha sido Actualizada", TipoMensaje.MsgInformacion)
        '        Else
        '            If OC.CveEstatusOrdenCompra = pCveEstatus Then
        '                Alert("La orden de compra ya fue actualizada a este estatus", TipoMensaje.MsgInformacion, "window.close();")
        '            Else
        '                Alert("No se puede actualizar la Orden de compra", TipoMensaje.MsgError, "window.close();")
        '            End If

        '        End If

        '    End If

        '    OC.Dispose()
    End Sub





    Protected Sub BtnCancelar_Click(sender As Object, e As EventArgs) Handles BtnCancelar.Click
        CambiarEstatus(4, CveOrdenCompra, CveUsuario)
    End Sub
End Class