diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 482e3bee4..1a7713d2c 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -5773,7 +5773,8 @@ Public Class ClsContabilidad
 
     Public Function AddCuentasAsignaciones(Optional CveConceptoContable As Integer = -1, Optional CveEmpresa As Integer = -1, Optional CveCuenta As Integer = -1, Optional IdCtaContable As Integer = -1,
                                            Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveClasificacion As Integer = -1,
-                                           Optional CveAlmacen As Integer = -1, Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1, Optional CveBancoCuenta As Integer = -1) As Boolean
+                                           Optional CveAlmacen As Integer = -1, Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1, Optional CveBancoCuenta As Integer = -1,
+                                           Optional CveSubProyecto As Integer = -1) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta_CuentasAsignacionesAdd")
@@ -5791,6 +5792,7 @@ Public Class ClsContabilidad
             .Add("@PorcentajeIVA", SqlDbType.Decimal).Value = PorcentajeIVA
             .Add("@CveConceptoNomina", SqlDbType.Decimal).Value = CveConceptoNomina
             .Add("@CveBancoCuenta", SqlDbType.Int).Value = CveBancoCuenta
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
         End With
 
         Try
@@ -5825,7 +5827,8 @@ Public Class ClsContabilidad
     Public Function UpdateCuentasAsignaciones(CveConceptoAsignacion As Integer, Optional CveConceptoContable As Integer = -1, Optional CveCuenta As Integer = -1,
                                               Optional IdCtaContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1,
                                               Optional CvePersonal As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveAlmacen As Integer = -1,
-                                              Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1, Optional CveBancoCuenta As Integer = -1) As Boolean
+                                              Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1, Optional CveBancoCuenta As Integer = -1,
+                                              Optional CveSubProyecto As Integer = -1) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta_CuentasAsignacionesUpdate")
@@ -5843,6 +5846,7 @@ Public Class ClsContabilidad
             .Add("@PorcentajeIVA", SqlDbType.Decimal).Value = PorcentajeIVA
             .Add("@CveConceptoNomina", SqlDbType.Decimal).Value = CveConceptoNomina
             .Add("@CveBancoCuenta", SqlDbType.Int).Value = CveBancoCuenta
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
         End With
 
         Try