diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index d63910d2f..e974a2f66 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -9371,6 +9371,7 @@ Public Class ClsPaginas
PaginaDict.Add("/Ventas/RepIndicadoresPorProyecto.aspx".ToUpper(), 617)
PaginaDict.Add("/Ventas/CatMedicos.aspx".ToUpper(), 1343)
PaginaDict.Add("/Ventas/CatProcedimientos.aspx".ToUpper(), 1344)
+ PaginaDict.Add("/Ventas/CatProcedimientoDetalle.aspx".ToUpper(), 1344)
PaginaDict.Add("/Ventas/VentasMedicas.aspx".ToUpper(), 1345)
diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 6f2f06af9..11e958064 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -6149,9 +6149,16 @@ Public Class ClsVentas
.Add("@CveProcedimiento", SqlDbType.Int).Value = CveProcedimiento
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
+
Try
SqlAdapter.Fill(Data)
Retorno = True
+ Catch Ex1 As SqlException
+ If Ex1.Message.Contains("Número: 547;") Then
+ Alert("La Procedimiento no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia)
+ Else
+ OnError("Ocurrió un error al eliminar el Procedimiento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End If
Catch ex As Exception
OnError("Ocurrió un error al eliminar el Procedimiento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
@@ -6159,6 +6166,135 @@ Public Class ClsVentas
End Function
+
+ Public Function AddProcedimientoProducto(CveProcedimiento As Integer, CvePS As Integer, Autogenerado As Boolean, Estatus As Boolean, CveUsuario As Integer) As Boolean
+
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_Vta_ProcedimientosProductosAdd")
+ With SqlAdapter.SelectCommand.Parameters
+
+ .Add("@CveProcedimiento", SqlDbType.Int).Value = CveProcedimiento
+ .Add("@CvePS", SqlDbType.Int).Value = CvePS
+ .Add("@Autogenerado", SqlDbType.Bit).Value = Autogenerado
+ .Add("@Estatus", SqlDbType.Bit).Value = Estatus
+ .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al guardar el producto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return Retorno
+
+ End Function
+
+
+ Public Function UpdateProcedimientoProducto(CveProcedimientoProducto As Integer, CvePS As Integer, Autogenerado As Boolean, Estatus As Boolean, CveUsuario As Integer) As Boolean
+
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_Vta_ProcedimientosProductosUpdate")
+ With SqlAdapter.SelectCommand.Parameters
+
+ .Add("@CveProcedimientoProducto", SqlDbType.Int).Value = CveProcedimientoProducto
+ .Add("@CvePS", SqlDbType.Int).Value = CvePS
+ .Add("@Autogenerado", SqlDbType.Bit).Value = Autogenerado
+ .Add("@Estatus", SqlDbType.Bit).Value = Estatus
+ .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al actualizar el producto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return Retorno
+
+ End Function
+
+
+ Public Function SincronizacionProcedimientoProducto(CveProcedimiento As Integer, CveVenta As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_Vta_ProcedimientosProductosSincronizacion")
+ With SqlAdapter.SelectCommand.Parameters
+
+ .Add("@CveProcedimiento", SqlDbType.Int).Value = CveProcedimiento
+ .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+ .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al sincronizar los Productos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return Retorno
+
+ End Function
+
+ Public Function GetProcedimientoProducto(CveProcedimiento As Integer, Estatus As Integer, CveEmpresa As Integer) As Boolean
+
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_Vta_ProcedimientosProductosGet")
+ With SqlAdapter.SelectCommand.Parameters
+
+ .Add("@CveProcedimiento", SqlDbType.Int).Value = CveProcedimiento
+ .Add("@Estatus", SqlDbType.Int).Value = Estatus
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener los Productos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return Retorno
+
+ End Function
+
+ Public Function RemoveProcedimientoProducto(CveProcedimientoProducto As Integer, CveEmpresa As Integer) As Boolean
+
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_Vta_ProcedimientosProductosRemove")
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveProcedimientoProducto", SqlDbType.Int).Value = CveProcedimientoProducto
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al eliminar los Productos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return Retorno
+
+ End Function
+
+
+
+
+ Public Function GetProcedimientoVentas(CveProcedimiento As Integer, CveEmpresa As Integer) As Boolean
+
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_Vta_ProcedimientosVentasGet")
+ With SqlAdapter.SelectCommand.Parameters
+
+ .Add("@CveProcedimiento", SqlDbType.Int).Value = CveProcedimiento
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener las ventas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return Retorno
+
+ End Function
+
+
#End Region
#Region "IDisposable Support"
diff --git a/Ventas/CatProcedimientoDetalle.aspx b/Ventas/CatProcedimientoDetalle.aspx
new file mode 100644
index 000000000..6191532b1
--- /dev/null
+++ b/Ventas/CatProcedimientoDetalle.aspx
@@ -0,0 +1,260 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatProcedimientoDetalle.aspx.vb" Inherits="Ventas_CatProcedimientoDetalle" %>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Ventas/CatProcedimientoDetalle.aspx.vb b/Ventas/CatProcedimientoDetalle.aspx.vb
new file mode 100644
index 000000000..5663495a2
--- /dev/null
+++ b/Ventas/CatProcedimientoDetalle.aspx.vb
@@ -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
diff --git a/Ventas/CatProcedimientos.aspx b/Ventas/CatProcedimientos.aspx
index d50048c14..e47af474b 100644
--- a/Ventas/CatProcedimientos.aspx
+++ b/Ventas/CatProcedimientos.aspx
@@ -34,44 +34,47 @@