diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 13fde3fbe..c68979dc6 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -2275,7 +2275,7 @@ Public Class ClsContabilidad
 
 
 
-    Public Function GetDiarioPagosCompras(CveProveedor As Integer, FechaInicio As Date, FechaFin As Date, Opcion As Integer, CveCuenta As Integer, CveTipoTransaccion As Integer, CveEmpresa As Integer) As DataSet
+    Public Function GetDiarioPagosCompras(CveProveedor As Integer, FechaInicio As Date, FechaFin As Date, Opcion As Integer, CveCuenta As Integer, CveTipoTransaccion As Integer, CveEmpresa As Integer, Optional CvePersonal As Integer = -1) As DataSet
         Dim Retorno As New DataSet
         DataAdapter("PA_Conta_DiarioPagosComprasGet33")
 
@@ -2287,6 +2287,7 @@ Public Class ClsContabilidad
             .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
             .Add("@CveTipoTransaccion", SqlDbType.Int).Value = CveTipoTransaccion
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
         End With
 
         Try