Commit inicial Ventas Productivo

OC/RegOp.aspx.vb

@@ -0,0 +1,87 @@
+
+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