76 lines
2.3 KiB
VB.net
76 lines
2.3 KiB
VB.net
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
|