diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 81ca7b875..d9ea45471 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -7357,7 +7357,7 @@ Public Class ClsVentas
 
     End Function
 
-    Public Function GetComisionesMedicasRep(FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, CveSubProyecto As Integer, CveProcedimiento As Integer, CveMedico As Integer, CveVendedor As Integer, CveUsuario As Integer, CveTipoVenta As Integer, FechaInicioPago As Date, FechaFinPago As Date) As Boolean
+    Public Function GetComisionesMedicasRep(FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, CveSubProyecto As Integer, CveProcedimiento As Integer, CveMedico As Integer, CveVendedor As Integer, CveUsuarioAtendio As Integer, CveUsuarioConsulta As Integer, CveTipoVenta As Integer, FechaInicioPago As Date, FechaFinPago As Date) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_ComisionesMedicasRepGet")
@@ -7370,9 +7370,10 @@ Public Class ClsVentas
             .Add("@CveMedico", SqlDbType.Int).Value = CveMedico
             .Add("@CveProcedimiento", SqlDbType.Int).Value = CveProcedimiento
             .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveUsuarioAtendio", SqlDbType.Int).Value = CveUsuarioAtendio
             .Add("@CveTipoVenta", SqlDbType.Int).Value = CveTipoVenta
             .Add("@FechaInicioPago", SqlDbType.Date).Value = FechaInicioPago
+            .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
             .Add("@FechaFinPago", SqlDbType.Date).Value = FechaFinPago
 
         End With