88 lines
3.2 KiB
VB.net
88 lines
3.2 KiB
VB.net
|
|
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")) 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
|