diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb
index f08a19c90..03ccd11b5 100644
--- a/App_Code/ClsMovimientos.vb
+++ b/App_Code/ClsMovimientos.vb
@@ -1505,7 +1505,7 @@ Public Class ClsMovimientos
                                        Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = 0, Optional CveClienteClasificacion As Integer = -1,
                                        Optional EsDistribuidor As Integer = -1, Optional FechaAplicadoI As Date = MinFecha, Optional FechaAplicadoF As Date = MaxFecha,
                                        Optional FechaRegistroIEI As Date = MinFecha, Optional FechaRegistroIEF As Date = MaxFecha,
-                                        Optional CveCondicionesPago As Integer = -1) As Boolean
+                                        Optional CveCondicionesPago As Integer = -1, Optional CveTipoTransaccion As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_RepRecuperacion")
         With SqlAdapter.SelectCommand.Parameters
@@ -1530,6 +1530,7 @@ Public Class ClsMovimientos
             .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion
             .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
             .Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago
+            .Add("@CveTipoTransaccion", SqlDbType.Int).Value = CveTipoTransaccion
 
             .Add("@FechaAplicadoI", SqlDbType.Date).Value = FechaAplicadoI.ToShortDateString
             .Add("@FechaAplicadoF", SqlDbType.Date).Value = FechaAplicadoF.ToShortDateString
@@ -1590,7 +1591,8 @@ Public Class ClsMovimientos
                                  Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = 0,
                                  Optional CveMoneda As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional Tipo As Integer = -1,
                                  Optional EsDistribuidor As Integer = -1, Optional FechaAplicadoI As Date = Nothing, Optional FechaAplicadoF As Date = Nothing,
-                                 Optional FechaRegistroIEI As Date = MinFecha, Optional FechaRegistroIEF As Date = MaxFecha) As Boolean
+                                 Optional FechaRegistroIEI As Date = MinFecha, Optional FechaRegistroIEF As Date = MaxFecha,
+                                 Optional CveCondicionesPago As Integer = -1, Optional CveTipoTransaccion As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -1620,6 +1622,8 @@ Public Class ClsMovimientos
             .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion
             .Add("@Tipo", SqlDbType.Int).Value = Tipo
             .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
+            .Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago
+            .Add("@CveTipoTransaccion", SqlDbType.Int).Value = CveTipoTransaccion
 
             .Add("@FechaAplicadoI", SqlDbType.Date).Value = FechaAplicadoI.ToShortDateString
             .Add("@FechaAplicadoF", SqlDbType.Date).Value = FechaAplicadoF.ToShortDateString