diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb
index 9acc9375e..56b39138a 100644
--- a/App_Code/ClsGenerales.vb
+++ b/App_Code/ClsGenerales.vb
@@ -2525,7 +2525,7 @@ Public Class ClsGenerales
     Public Function GetHistorialBitacora(CveAcarreo As Integer, CveOrdenCompra As Integer, CveActivoFijo As Integer,
                                          CveOS As Integer, CvePS As Integer, CveCompra As Integer, CveIE As Integer,
                                          CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional CvePersonal As Integer = -1,
-                                         Optional IdPoliza As Integer = -1, Optional CvePrePoliza As Integer = -1, Optional CvePeriodo As Integer = -1, Optional CveConceptoNomina As Integer = -1) As Boolean
+                                         Optional IdPoliza As Integer = -1, Optional CvePrePoliza As Integer = -1, Optional CvePeriodo As Integer = -1, Optional CveConceptoNomina As Integer = -1, Optional CvePromocion As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_HistorialBitacoraGet")
 
@@ -2544,6 +2544,7 @@ Public Class ClsGenerales
             .Add("@IdPoliza", SqlDbType.Int).Value = IdPoliza
             .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo
             .Add("@CveConceptoNomina", SqlDbType.Int).Value = CveConceptoNomina
+            .Add("@CvePromocion", SqlDbType.Int).Value = CvePromocion
 
 
 
@@ -2586,7 +2587,7 @@ Public Class ClsGenerales
                                          CveActivoFijo As Integer, CveOS As Integer, CvePS As Integer, CveCompra As Integer,
                                          CveIE As Integer, Actual As String, Anterior As String, CveUsuario As Integer,
                                          CveEmpresa As Integer, SeElimino As Integer, Descripcion As String, Tipo As String,
-                                         Id_Clave As String, Optional IdPoliza As Integer = -1) As Boolean
+                                         Id_Clave As String, Optional IdPoliza As Integer = -1, Optional CvePromocion As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_HistorialBitacoraAdd")
 
@@ -2608,6 +2609,7 @@ Public Class ClsGenerales
             .Add("@Tipo", SqlDbType.VarChar).Value = Tipo
             .Add("@Id_Clave", SqlDbType.VarChar, 100).Value = Id_Clave
             .Add("@IdPoliza", SqlDbType.Int).Value = IdPoliza
+            .Add("@CvePromocion", SqlDbType.Int).Value = CvePromocion
 
         End With
         'SqlTypes.SqlDateTime.Null