diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 11e958064..a3217200f 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -6100,22 +6100,25 @@ Public Class ClsVentas End Function - Public Function AddProcedimiento(Procedimiento As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Public Function AddProcedimiento(Procedimiento As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Integer - Dim Retorno As Boolean = False + Dim Retorno As Integer = -1 DataAdapter("PA_Vta_ProcedimientosAdd") With SqlAdapter.SelectCommand.Parameters .Add("@Procedimiento", SqlDbType.VarChar).Value = Procedimiento .Add("@Estatus", SqlDbType.Int).Value = Estatus .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveProcedimiento", SqlDbType.Int).Direction = ParameterDirection.Output End With Try SqlAdapter.Fill(Data) - Retorno = True + Retorno = SqlAdapter.SelectCommand.Parameters("@CveProcedimiento").Value.ToString.ToEntero + Catch ex As Exception OnError("Ocurrió un error al guardar el Procedimiento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try + Return Retorno End Function diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 5c0405d79..a67cae929 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -5528,6 +5528,9 @@ Partial Class Inventarios_EntradasSalidas End If End If + End If + End If + Catch ex As Exception ErrorMovInv = True End Try diff --git a/Ventas/CatProcedimientoDetalle.aspx b/Ventas/CatProcedimientoDetalle.aspx index 6191532b1..34d26b50e 100644 --- a/Ventas/CatProcedimientoDetalle.aspx +++ b/Ventas/CatProcedimientoDetalle.aspx @@ -11,11 +11,11 @@ - +
  • - +
    • @@ -61,7 +61,7 @@
    - +
    @@ -81,7 +81,7 @@ - + @@ -148,7 +148,7 @@ - + diff --git a/Ventas/CatProcedimientoDetalle.aspx.vb b/Ventas/CatProcedimientoDetalle.aspx.vb index 5663495a2..d666e49bd 100644 --- a/Ventas/CatProcedimientoDetalle.aspx.vb +++ b/Ventas/CatProcedimientoDetalle.aspx.vb @@ -44,12 +44,17 @@ Partial Class Ventas_CatProcedimientoDetalle CveProcedimiento = If(Request("CveProcedimiento") <> "", Request("CveProcedimiento").ToString.ToEntero, "-1".ToEntero) If CveProcedimiento > 0 Then + CargaDatos() CargaProductos() CargaVentas() + TabProductos.Visible = True + TabVentas.Visible = True + LnkAgregarProducto.Visible = True + Else + ChkEstatus.Checked = True End If - DdlProducto.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") If Not DdlProducto.UsaWebService AndAlso CType(DdlProducto.DataSource, DataTable) Is Nothing Then @@ -124,19 +129,28 @@ Partial Class Ventas_CatProcedimientoDetalle If CveProcedimiento > 0 Then If ObjVentas.UpdateProcedimiento(CveProcedimiento, TxtProcedimiento.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + Alert($"Procedimiento Actualizado Correctamente.") ProcesoOK = True End If - 'Else - ' If ObjVentas.AddProcedimiento(TxtProcedimiento.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - ' ProcesoOK = True - ' End If + Else + + CveProcedimiento = ObjVentas.AddProcedimiento(TxtProcedimiento.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + If CveProcedimiento > 0 Then + ProcesoOK = True + TabProductos.Visible = True + TabVentas.Visible = True + LnkAgregarProducto.Visible = True + UpDatos.Update() + Alert($"Procedimiento Guardado Correctamente.") + End If + End If ObjVentas.Dispose() If ProcesoOK Then - Alert($"Procedimiento {If(CveProcedimiento > 0, "Actualizado", "Guardado")} Correctamente.") - RegistraScript("$('#DVAgregarProcedimiento').modal('hide');") + + 'RegistraScript("$('#DVAgregarProcedimiento').modal('hide');") CargaDatos() CargaGlobal() UpDatos.Update() diff --git a/Ventas/CatProcedimientos.aspx b/Ventas/CatProcedimientos.aspx index e47af474b..90624dd83 100644 --- a/Ventas/CatProcedimientos.aspx +++ b/Ventas/CatProcedimientos.aspx @@ -17,7 +17,8 @@
  • - + Agregar Procedimiento
    • diff --git a/Ventas/CatProcedimientos.aspx.vb b/Ventas/CatProcedimientos.aspx.vb index aeffa4613..038380e6e 100644 --- a/Ventas/CatProcedimientos.aspx.vb +++ b/Ventas/CatProcedimientos.aspx.vb @@ -56,7 +56,7 @@ Partial Class Ventas_CatProcedimientos ProcesoOK = True End If Else - If ObjVentas.AddProcedimiento(TxtProcedimiento.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + If ObjVentas.AddProcedimiento(TxtProcedimiento.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) > 0 Then ProcesoOK = True End If End If diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 84675133f..112dd042c 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -8428,7 +8428,7 @@
    - +
    @@ -8449,24 +8449,26 @@ <%--Medico Procedimiento--%>
    -
    - Médico: + +
    Seleccione uno - - + + Médico:
    -
    - Procedimiento: +
    Seleccione uno - + + Procedimiento:
    diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 04c334b26..ae1336765 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -13508,8 +13508,8 @@ Partial Class Ventas End If End If - If ObjVentas.SincronizacionProcedimientoProducto(DdlProcedimiento.SelectedValue.ToEntero, factura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - ErrorList.Add("Ocurrió un error al guardar la los productos al procedimiento") + If Not ObjVentas.SincronizacionProcedimientoProducto(DdlProcedimiento.SelectedValue.ToEntero, factura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + ErrorList.Add("Ocurrió un error al guardar los productos al procedimiento") End If End If @@ -35734,7 +35734,7 @@ Partial Class Ventas If DdlProcedimientoModal.SelectedValue.ToEntero > 0 Then Dim objVenta As New ClsVentas - If objVenta.GetProcedimientoProducto(DdlProcedimientoModal.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then + If objVenta.GetProcedimientoProducto(DdlProcedimientoModal.SelectedValue.ToEntero, 1, UsuarioActual.CveEmpresa) Then GvProductosProcedimiento.DataSource = objVenta.DtResultados End If