106 lines
3.1 KiB
Plaintext
106 lines
3.1 KiB
Plaintext
|
|
Imports System.Data
|
|
Imports Extensiones
|
|
|
|
Partial Class PopOCCotizaciones
|
|
Inherits ClsPaginas
|
|
|
|
|
|
#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 DtDetalle As DataTable
|
|
Get
|
|
DtDetalle = DirectCast(ViewState("DtDetalle"), DataTable)
|
|
End Get
|
|
Set(ByVal value As DataTable)
|
|
ViewState("DtDetalle") = 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
|
|
|
|
If Not Request("OC") Is Nothing AndAlso Request("OC").ToString.ToEntero > 0 Then
|
|
|
|
Master.EsPopup = True
|
|
CveOrdenCompra = Request("OC").ToEntero
|
|
CargaCotizaciones(CveOrdenCompra)
|
|
|
|
CboProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
|
|
CboProveedores.DataBind()
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub CargaCotizaciones(CveOrden As Integer)
|
|
|
|
Dim Cotizaciones As New ClsOC
|
|
|
|
If Cotizaciones.GetCotizaciones(CveOrden) Then
|
|
DtDetalle = Cotizaciones.DtResultados
|
|
GVC.DataSource = DtDetalle
|
|
GVC.DataBind()
|
|
End If
|
|
|
|
Cotizaciones.Dispose()
|
|
|
|
End Sub
|
|
|
|
Protected Sub ImgAddFactura_Click(sender As Object, e As ImageClickEventArgs) Handles ImgAddFactura.Click
|
|
|
|
If FUArchivo.HasFile Then
|
|
|
|
Dim Cotizaciones As New ClsOC
|
|
Dim CveCotizacion As Integer = Cotizaciones.AddCotizacion(TxtDescripcion.Text, CveOrdenCompra, CboProveedores.SelectedValue.ToEntero, 0, TxtTotal.Text.ToDouble, TxtFecha.Text.ToDate, IO.Path.GetExtension(FUArchivo.FileName), UsuarioActual.CveUsuario)
|
|
|
|
If CveCotizacion > 0 Then
|
|
|
|
FUArchivo.SaveAs(String.Format("{0}/OC/Cotizaciones/{1}{2}", AppDomain.CurrentDomain.BaseDirectory, CveCotizacion, IO.Path.GetExtension(FUArchivo.FileName)))
|
|
|
|
GVC.DataSource = Cotizaciones.DtResultados
|
|
GVC.DataBind()
|
|
End If
|
|
|
|
Cotizaciones.Dispose()
|
|
|
|
Else
|
|
Alert("No se pudo cargar el archivo")
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Protected Sub GVC_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GVC.RowCommand
|
|
|
|
If e.CommandName = "Eliminar" Then
|
|
Dim Cotizaciones As New ClsOC
|
|
Dim NombreArchivo As String = Cotizaciones.RemoveCotizacion(e.CommandArgument.ToString.ToEntero)
|
|
|
|
If NombreArchivo <> "" Then
|
|
If IO.File.Exists("~/OC/Cotizaciones/" & NombreArchivo) Then
|
|
IO.File.Exists("~/OC/Cotizaciones/" & NombreArchivo)
|
|
End If
|
|
|
|
GVC.DataSource = Cotizaciones.DtResultados
|
|
GVC.DataBind()
|
|
End If
|
|
|
|
Cotizaciones.Dispose()
|
|
End If
|
|
|
|
End Sub
|
|
End Class
|