diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 1fa789d2c..0c79bc652 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -5807,7 +5807,7 @@ 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,
-                                           Optional CveSubProyecto As Integer = -1, Optional CveActivoFijo As Integer = -1) As Boolean
+                                           Optional CveSubProyecto As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional CveTipoGasto As Integer = -1) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta_CuentasAsignacionesAdd")
@@ -5827,6 +5827,7 @@ Public Class ClsContabilidad
             .Add("@CveBancoCuenta", SqlDbType.Int).Value = CveBancoCuenta
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
+            .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto
         End With
 
         Try
@@ -5862,7 +5863,7 @@ Public Class ClsContabilidad
                                               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,
-                                              Optional CveSubProyecto As Integer = -1, Optional CveActivoFijo As Integer = -1) As Boolean
+                                              Optional CveSubProyecto As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional CveTipoGasto As Integer = -1) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta_CuentasAsignacionesUpdate")
@@ -5882,6 +5883,7 @@ Public Class ClsContabilidad
             .Add("@CveBancoCuenta", SqlDbType.Int).Value = CveBancoCuenta
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
+            .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto
         End With
 
         Try