Commit inicial Ventas Productivo

OC/OCCompras.aspx.vb

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