From 6ea4ff1c4acc9f5dc8458cebea804064ab464916 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 17 Feb 2025 21:51:35 -0700 Subject: [PATCH] =?UTF-8?q?--=20SMS=20comisi=C3=B3n=20educ,.=20m=C3=A9dica?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsVentas.vb | 53 +++++++++++++++++++------------------------ 1 file changed, 23 insertions(+), 30 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 2f25b01ec..5a126d9a9 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -6785,9 +6785,6 @@ Public Class ClsVentas End Function - - - Public Function AddMedicoEspecialidad(Especialidad As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -6808,7 +6805,6 @@ Public Class ClsVentas Return Retorno End Function - Public Function UpdateMedicoEspecialidad(CveMedicoEspecialidad As Integer, Especialidad As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -6829,7 +6825,6 @@ Public Class ClsVentas Return Retorno End Function - Public Function RemoveMedicoEspecialidad(CveMedicoEspecialidad As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -6851,7 +6846,6 @@ Public Class ClsVentas #End Region #Region "S U B E S P E C I A L I D A D E S" - Public Function GetMedicosSubEspecialidades(CveMedicoSubEspecialidad As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean Dim Retorno As Boolean = False @@ -6873,10 +6867,6 @@ Public Class ClsVentas Return Retorno End Function - - - - Public Function AddMedicoSubEspecialidad(CveMedicoEspecialidad As Integer, SubEspecialidad As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -6896,7 +6886,6 @@ Public Class ClsVentas OnError("Ocurrió un error al guardar la SubEspecialidad.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno - End Function Public Function UpdateMedicoSubEspecialidad(CveMedicoSubEspecialidad As Integer, CveMedicoEspecialidad As Integer, SubEspecialidad As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean @@ -6942,9 +6931,7 @@ Public Class ClsVentas #End Region -#Region "MEDICO CLIENTE SUCURALES" - - +#Region "MEDICO CLIENTE SUCURSALES" Public Function GetMedicosClientesSucursales(CveMedico As Integer, CveEmpresa As Integer) As Boolean @@ -7025,7 +7012,6 @@ Public Class ClsVentas Return Retorno End Function - Public Function RemoveMedicosClientesSucursales(CveMedicoClienteSucursal As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -7047,7 +7033,7 @@ Public Class ClsVentas #End Region -#Region "PRODEDIMIENTOS" +#Region "PROCEDIMIENTOS" Public Function GetProcedimientos(CveProcedimiento As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean @@ -7137,8 +7123,6 @@ Public Class ClsVentas Return Retorno End Function - - Public Function AddProcedimientoProducto(CveProcedimiento As Integer, CvePS As Integer, Autogenerado As Boolean, Estatus As Boolean, CveUsuario As Integer, Cantidad As Decimal) As Boolean Dim Retorno As Boolean = False @@ -7161,8 +7145,6 @@ Public Class ClsVentas Return Retorno End Function - - Public Function UpdateProcedimientoProducto(CveProcedimientoProducto As Integer, CvePS As Integer, Autogenerado As Boolean, Estatus As Boolean, CveUsuario As Integer, Cantidad As Decimal) As Boolean Dim Retorno As Boolean = False @@ -7185,8 +7167,6 @@ Public Class ClsVentas 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 @@ -7232,7 +7212,6 @@ Public Class ClsVentas Return Retorno End Function - Public Function RemoveProcedimientoProducto(CveProcedimientoProducto As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -7250,10 +7229,6 @@ Public Class ClsVentas Return Retorno End Function - - - - Public Function GetProcedimientoVentas(CveProcedimiento As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -7273,7 +7248,6 @@ Public Class ClsVentas End Function - #End Region #Region "VENTAS MEDICAS COMISIONES" @@ -7356,7 +7330,6 @@ Public Class ClsVentas #End Region - #Region "VENTAS MEDICAS COMISIONES ESPECIALES" Public Function GetComisionesMedicasEspeciales(CveMedico As Integer, CvePS As Integer, CveEmpresa As Integer) As Boolean @@ -7434,7 +7407,7 @@ Public Class ClsVentas #End Region -#Region "DEVOLUICON" +#Region "DEVOLUCION" Public Function UpdateVentasDetalleCantidadDevolucion(CveVentaDetalle As Integer, CantidadDevolucion As Decimal) As Boolean Dim Retorno As Boolean = False @@ -7481,6 +7454,26 @@ Public Class ClsVentas End Function #End Region + Public Function UpdateVentaAdicional(CveVenta As Integer, Opcion As String, Valor As String, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_VentaAdicionalUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@Opcion", SqlDbType.VarChar).Value = Opcion + .Add("@Valor", SqlDbType.VarChar).Value = Valor + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el adicional de la venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function Public Function GetVentasMedicasIndicadoresRep(Grupo As Integer, FechaI As Date, FechaF As Date, CveCliente As Integer, CveMedico As Integer, CveProcedimiento As Integer, CveEmpresa As Integer, CveVendedor As Integer) As Boolean