-- SMS comisión educ,. médica

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