From 07cb796f3ea1fc2bd043f259f505ff1b70a3b0a1 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 6 Sep 2021 20:49:56 -0700 Subject: [PATCH] Bitacora promosiones --- App_Code/ClsGenerales.vb | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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