Procedimientos medicos cat detalles
This commit is contained in:
rakcsle
285
Ventas/CatProcedimientoDetalle.aspx.vb
Normal file
285
Ventas/CatProcedimientoDetalle.aspx.vb
Normal file
@@ -0,0 +1,285 @@
|
||||
Imports System.Data
|
||||
Imports System.Drawing
|
||||
Imports Extensiones
|
||||
Imports Microsoft.Owin.Security.Provider
|
||||
Imports Microsoft.Reporting.WebForms
|
||||
Partial Class Ventas_CatProcedimientoDetalle
|
||||
Inherits ClsPaginas
|
||||
#Region "Propiedades"
|
||||
Private Property CveProcedimiento As Integer
|
||||
Get
|
||||
|
||||
If ViewState("CveProcedimiento") Is Nothing Then
|
||||
ViewState("CveProcedimiento") = -1
|
||||
End If
|
||||
|
||||
Return ViewState("CveProcedimiento").ToString.ToEntero
|
||||
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveProcedimiento") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property CveProcedimientoProducto As Integer
|
||||
Get
|
||||
|
||||
If ViewState("CveProcedimientoProducto") Is Nothing Then
|
||||
ViewState("CveProcedimientoProducto") = -1
|
||||
End If
|
||||
|
||||
Return ViewState("CveProcedimientoProducto").ToString.ToEntero
|
||||
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveProcedimientoProducto") = value
|
||||
End Set
|
||||
End Property
|
||||
#End Region
|
||||
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not IsPostBack Then
|
||||
|
||||
CveProcedimiento = If(Request("CveProcedimiento") <> "", Request("CveProcedimiento").ToString.ToEntero, "-1".ToEntero)
|
||||
|
||||
If CveProcedimiento > 0 Then
|
||||
CargaDatos()
|
||||
CargaProductos()
|
||||
CargaVentas()
|
||||
End If
|
||||
|
||||
|
||||
DdlProducto.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
|
||||
|
||||
If Not DdlProducto.UsaWebService AndAlso CType(DdlProducto.DataSource, DataTable) Is Nothing Then
|
||||
DdlProducto.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoPS = 2")
|
||||
DdlProducto.DataBind()
|
||||
DdlProducto.ddl.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaVentas()
|
||||
|
||||
|
||||
Dim objVenta As New ClsVentas
|
||||
|
||||
If objVenta.GetProcedimientoVentas(CveProcedimiento, UsuarioActual.CveEmpresa) Then
|
||||
GvVentas.DataSource = objVenta.DtResultados
|
||||
End If
|
||||
|
||||
objVenta.Dispose()
|
||||
|
||||
GvVentas.DataBind()
|
||||
|
||||
UpTabVentas.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDatos()
|
||||
|
||||
|
||||
If CveProcedimiento > 0 Then
|
||||
|
||||
Dim DTProcedimiento As New DataTable
|
||||
Dim Objeto As New ClsVentas
|
||||
If Objeto.GetProcedimientos(CveProcedimiento, UsuarioActual.CveEmpresa, -1) Then
|
||||
|
||||
DTProcedimiento = Objeto.DtResultados
|
||||
|
||||
If DTProcedimiento.Rows.Count > 0 Then
|
||||
LblProcedimiento.Text = DTProcedimiento.FiltroPrimeroValor("Procedimiento")
|
||||
TxtProcedimiento.Text = DTProcedimiento.FiltroPrimeroValor("Procedimiento")
|
||||
|
||||
ChkEstatus.Checked = Boolean.Parse(DTProcedimiento.FiltroPrimeroValor("Estatus"))
|
||||
|
||||
LblFecha.Text = DTProcedimiento.FiltroPrimeroValor("FechaIng").ToDate.ToShortDateString
|
||||
LblUsuario.Text = DTProcedimiento.FiltroPrimeroValor("Usuario")
|
||||
Else
|
||||
Dim Liga As String = $"document.location.href=""/Ventas/CatProcedimientos.aspx"";"
|
||||
Alert("El Procedimiento solicitado no existe.", TipoMensaje.MsgAdvertencia, Liga)
|
||||
End If
|
||||
|
||||
Objeto.Dispose()
|
||||
End If
|
||||
Else
|
||||
|
||||
LblFechaAlta.Visible = False
|
||||
LblUsuarioAlta.Visible = False
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
|
||||
|
||||
Dim ProcesoOK = False
|
||||
Dim ObjVentas As New ClsVentas
|
||||
|
||||
|
||||
If CveProcedimiento > 0 Then
|
||||
If ObjVentas.UpdateProcedimiento(CveProcedimiento, TxtProcedimiento.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
ProcesoOK = True
|
||||
End If
|
||||
'Else
|
||||
' If ObjVentas.AddProcedimiento(TxtProcedimiento.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
' ProcesoOK = True
|
||||
' End If
|
||||
End If
|
||||
|
||||
ObjVentas.Dispose()
|
||||
|
||||
If ProcesoOK Then
|
||||
Alert($"Procedimiento {If(CveProcedimiento > 0, "Actualizado", "Guardado")} Correctamente.")
|
||||
RegistraScript("$('#DVAgregarProcedimiento').modal('hide');")
|
||||
CargaDatos()
|
||||
CargaGlobal()
|
||||
UpDatos.Update()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs)
|
||||
|
||||
'Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
'CveProcedimiento = GvRow.DataKey("CveProcedimiento").ToEntero
|
||||
|
||||
Dim ObjVentas As New ClsVentas
|
||||
Dim ProcesoOK = False
|
||||
|
||||
If ObjVentas.RemoveProcedimiento(CveProcedimiento, UsuarioActual.CveEmpresa) Then
|
||||
ProcesoOK = True
|
||||
End If
|
||||
|
||||
ObjVentas.Dispose()
|
||||
|
||||
|
||||
If ProcesoOK Then
|
||||
CargaGlobal()
|
||||
Dim Liga As String = $"document.location.href=""/Ventas/CatProcedimientos.aspx"";"
|
||||
Alert("Procedimiento eliminando correctamente.", TipoMensaje.MsgInformacion, Liga)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub CargaGlobal()
|
||||
GlobalDTProcedimientos(UsuarioActual.CveEmpresa) = Nothing
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkAgregarProducto_Click() Handles LnkAgregarProducto.Click
|
||||
|
||||
limpiarModal()
|
||||
UpAgregar.Update()
|
||||
RegistraScript("$('#ModalAgregar').modal()")
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub limpiarModal()
|
||||
|
||||
LtlTituloAgregar.Text = "Agregar Producto"
|
||||
CveProcedimientoProducto = -1
|
||||
DdlProducto.SelectedValue = "-1"
|
||||
DdlProducto.SelectedText = ""
|
||||
DVProdcutoEstatus.Visible = False
|
||||
UpAgregar.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub LkAgregarProducto_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim ProcesoOK As Boolean = False
|
||||
|
||||
Dim objVenta As New ClsVentas
|
||||
|
||||
If CveProcedimientoProducto > 0 Then
|
||||
|
||||
If objVenta.UpdateProcedimientoProducto(CveProcedimientoProducto, DdlProducto.SelectedValue.ToEntero, False, True, UsuarioActual.CveUsuario) Then
|
||||
ProcesoOK = True
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
If objVenta.AddProcedimientoProducto(CveProcedimiento, DdlProducto.SelectedValue.ToEntero, False, True, UsuarioActual.CveUsuario) Then
|
||||
ProcesoOK = True
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
objVenta.Dispose()
|
||||
|
||||
If ProcesoOK Then
|
||||
RegistraScript("$('#ModalAgregar').modal('hide')")
|
||||
|
||||
Alert($"Producto {If(CveProcedimientoProducto > 0, "actualizado", "agregado")} correctamente.")
|
||||
|
||||
CargaProductos()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CargaProductos()
|
||||
|
||||
Dim objVenta As New ClsVentas
|
||||
|
||||
If objVenta.GetProcedimientoProducto(CveProcedimiento, -1, UsuarioActual.CveEmpresa) Then
|
||||
GvProductos.DataSource = objVenta.DtResultados
|
||||
End If
|
||||
|
||||
objVenta.Dispose()
|
||||
|
||||
GvProductos.DataBind()
|
||||
|
||||
UpTabProductos.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkEditarProducto_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
|
||||
CveProcedimientoProducto = GvRow.DataKey("CveProcedimientoProducto").ToEntero
|
||||
Dim CvePS As String = GvRow.DataKey("CvePS")
|
||||
Dim CodigoPS As String = GvRow.DataKey("CodigoPS")
|
||||
Dim Estatus As Boolean = Boolean.Parse(GvRow.DataKey("Estatus"))
|
||||
|
||||
DdlProducto.ddl.SelectedValueExist(CvePS)
|
||||
DdlProducto.txtText.Value = CodigoPS
|
||||
DdlProducto.txtValue.Value = CvePS
|
||||
ChkEstatusProducto.Checked = Estatus
|
||||
LtlTituloAgregar.Text = "Actualizar producto"
|
||||
|
||||
DVProdcutoEstatus.Visible = True
|
||||
UpAgregar.Update()
|
||||
|
||||
RegistraScript("$('#ModalAgregar').modal()")
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkEliminarProducto_Click(sender As Object, e As EventArgs)
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
|
||||
Dim CveProcedimientoProductoEliminar = GvRow.DataKey("CveProcedimientoProducto").ToEntero
|
||||
|
||||
Dim ObjVentas As New ClsVentas
|
||||
Dim ProcesoOK = False
|
||||
|
||||
If ObjVentas.RemoveProcedimientoProducto(CveProcedimientoProductoEliminar, UsuarioActual.CveEmpresa) Then
|
||||
ProcesoOK = True
|
||||
End If
|
||||
|
||||
ObjVentas.Dispose()
|
||||
|
||||
If ProcesoOK Then
|
||||
Alert("Producto eliminando correctamente.")
|
||||
CargaProductos()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user