diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb
index 43c95d644..fa676a5bd 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) As Boolean
+                                         Optional IdPoliza As Integer = -1, Optional CvePrePoliza As Integer = -1, Optional CvePromocion As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_HistorialBitacoraGet")
 
@@ -2542,6 +2542,7 @@ Public Class ClsGenerales
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
             .Add("@IdPoliza", SqlDbType.Int).Value = IdPoliza
+            .Add("@CvePromocion", SqlDbType.Int).Value = CvePromocion
 
         End With
         'SqlTypes.SqlDateTime.Null
@@ -2582,7 +2583,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")
 
@@ -2604,7 +2605,10 @@ 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
         Try
diff --git a/Ventas/Promociones.aspx b/Ventas/Promociones.aspx
index 2f576384e..7a09fdfad 100644
--- a/Ventas/Promociones.aspx
+++ b/Ventas/Promociones.aspx
@@ -211,6 +211,44 @@
     </div>
 
 
+
+   <div class="row" id="divBitacora" runat="server" visible="false">
+        <asp:UpdatePanel runat="server" ID="UpHistorialModificacion" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="col-md-12">
+                    <div class="portlet light bordered xspadding">
+                        <div class="portlet-title">
+                            <div class="caption font-green">
+                                <i class="icon-pin font-green"></i>
+                                <span class="caption-subject bold uppercase">Historial de Modificación</span>
+                            </div>
+                            <div class="actions">
+                                <div class="btn-group">
+                                </div>
+                            </div>
+                        </div>
+                        <div class="portlet-body">
+                            <asp:GridView ID="GvBitacora" runat="server" GridLines="None" Width="100%" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" CellSpacing="0" AutoGenerateColumns="False">
+                                <Columns>
+                                    <asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Center">
+                                        <ItemTemplate>
+                                            <asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng") %>'></asp:Literal>
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
+                                    <asp:BoundField DataField="ConceptoHistorialBitacora" HeaderText="Campo" ItemStyle-HorizontalAlign="Left" />
+                                    <asp:BoundField DataField="Anterior" HeaderText="Anterior" ItemStyle-HorizontalAlign="Left" />
+                                    <asp:BoundField DataField="Actual" HeaderText="Actual" ItemStyle-HorizontalAlign="Left" />
+                                    <asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" />
+                                </Columns>
+                            </asp:GridView>
+                        </div>
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
+
+
     <table width="100%">
         <tr>
             <td align="center">
diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb
index 5b7812691..15e8a3df5 100644
--- a/Ventas/Promociones.aspx.vb
+++ b/Ventas/Promociones.aspx.vb
@@ -17,6 +17,16 @@ Partial Class Ventas_Promociones
             ViewState("TempDT") = value
         End Set
     End Property
+
+    Private Property TempDTOrigial As DataTable
+        Get
+            Return CType(ViewState("TempDTOrigial"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("TempDTOrigial") = value
+        End Set
+    End Property
+
     Private Property CvePromocion As Integer
         Get
             Return ViewState("CvePromocion").ToString.ToEntero
@@ -46,6 +56,7 @@ Partial Class Ventas_Promociones
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+
         If Not Page.IsPostBack Then
             CvePromocion = -1
             CargaValoresIniciales()
@@ -53,16 +64,46 @@ Partial Class Ventas_Promociones
             If Request("CvePromocion") IsNot Nothing AndAlso Request("CvePromocion").ToString.ToEntero > 0 Then
                 CvePromocion = Request("CvePromocion").ToString.ToEntero
                 CargaDatos()
+
+
+
             Else
                 ChkEstatus.Enabled = True
                 ChkEstatus.Checked = True
                 CreaDT()
             End If
 
+
+            CargaGvBitacora()
+
         End If
+
     End Sub
 
 
+
+#Region "BITACORA"
+
+    Private Sub CargaGvBitacora()
+
+        If CvePromocion > 0 Then
+            divBitacora.Visible = True
+            Dim ObjGral As New ClsGenerales()
+            If ObjGral.GetHistorialBitacora(-1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, CvePromocion:=CvePromocion) Then
+                GvBitacora.DataSource = ObjGral.DtResultados
+            End If
+            ObjGral.Dispose()
+            GvBitacora.DataBind()
+            UpHistorialModificacion.Update()
+        Else
+            divBitacora.Visible = False
+        End If
+
+    End Sub
+
+#End Region
+
+
 #Region "  VALORES INICIALES  "
 
     Private Sub CargaValoresIniciales()
@@ -148,6 +189,32 @@ Partial Class Ventas_Promociones
         TempDT.Columns.Add("AplicaDomingo", GetType(Boolean))
 
         TempDT.Columns.Add("IncluyeImpuestos", GetType(Boolean))
+
+
+        TempDTOrigial = TempDT.Copy
+
+        '366 Estatus
+        '367 CvePS
+        '368 PUPromocion
+        '369 CveTipoPromocion
+        '370 Cantidad Minima
+        '371 AplicaRestriccion
+        '372 HoraInicio
+        '373 HoraFin
+        '374 AplicaLunes
+        '375 AplicaMartes
+        '376 AplicaMiercoles
+        '377 AplicaJueves
+        '378 AplicaViernes
+        '379 AplicaSabado
+        '380 AplicaDomingo
+        '381 IncluyeImpuestos
+
+
+
+
+
+
     End Sub
 
 #Region "  PS  "
@@ -197,7 +264,8 @@ Partial Class Ventas_Promociones
             DdlTipoAplicacion.SelectedValueExist(Dr("TipoAplicacion").ToString)
 
             If ObjVentas.GetPromocionesDetalle(CvePromocion, UsuarioActual.CveEmpresa) Then
-                TempDT = ObjVentas.DtResultados
+                TempDT = ObjVentas.DtResultados.Copy
+                TempDTOrigial = ObjVentas.DtResultados.Copy
                 CargaGrid()
             Else
                 Alert("Ocurrió un error al consultar los detalles de la promoción. Por favor vuelva a intentar.", TipoMensaje.MsgError)
@@ -324,6 +392,9 @@ Partial Class Ventas_Promociones
             Dr("AplicaDomingo") = False
         End If
 
+
+        Dr("IncluyeImpuestos") = ChkIncluyeImpuesto.Checked
+
         If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
             Dr("CveRinTamaño") = DdlRin.SelectedValue.ToEntero
         Else
@@ -456,9 +527,12 @@ Partial Class Ventas_Promociones
         Dim CveCliente As Integer = If(DdlClientes.SelectedValue = "", -1, DdlClientes.SelectedValue.ToEntero)
 
         Dim ObjVentas As New ClsVentas
+
         Dim TieneError = False
         ObjVentas.IniciaTransacSQL()
 
+        Dim ObjGral As New ClsGenerales(ObjVentas.IniciaTransacSQL)
+
         If ObjVentas.UpdatePromociones(TxtPromocion.Text.Trim, If(IsDate(TxtFechaI.Text), TxtFechaI.Text.ToDate, MinFecha), If(IsDate(TxtFechaF.Text), TxtFechaF.Text.ToDate, MaxFecha),
                                        DdlVendedor.SelectedValue.ToEntero, CveCliente, ChkEstatus.Checked, DdlMoneda.SelectedValue.ToEntero, UsuarioActual.CveUsuario,
                                        CvePromocion, DdlSubProyecto.SelectedValue.ToEntero, DdlTipoAplicacion.SELECTEDVALUE.TOENTERO, UsuarioActual.CveEmpresa, CveMarca:=DdlMarca.SelectedValue.ToEntero) Then
@@ -470,6 +544,18 @@ Partial Class Ventas_Promociones
                     TieneError = True
                     Exit For
                 End If
+
+
+                If Not TieneError Then
+                    If Not ObjGral.AddHistorialBitacora(364, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", Dr("CodigoPS").ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
+                        TieneError = True
+                        Exit For
+                    End If
+                End If
+
+
+
+
             Next
 
             If Not TieneError Then
@@ -480,6 +566,171 @@ Partial Class Ventas_Promociones
                         TieneError = True
                         Exit For
                     End If
+
+
+                    If Not TieneError Then
+
+                        '366 Estatus
+
+                        '367 CvePS
+                        '368 PUPromocion
+                        '369 CveTipoPromocion
+                        '370 Cantidad Minima
+                        '371 AplicaRestriccion
+                        '372 HoraInicio
+                        '373 HoraFin
+
+                        '374 AplicaLunes
+                        '375 AplicaMartes
+                        '376 AplicaMiercoles
+                        '377 AplicaJueves
+                        '378 AplicaViernes
+                        '379 AplicaSabado
+                        '380 AplicaDomingo
+                        '381 IncluyeImpuestos
+
+
+                        Dim Dr2 As DataRow = TempDTOrigial.FiltraParametros($"CvePromocionDetalle = {Dr("CvePromocionDetalle").ToString}").Rows(0)
+
+                        If Not TieneError And Dr("CvePS").ToString <> Dr2("CvePS").ToString Then
+                            If Not ObjGral.AddHistorialBitacora(367, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr("CodigoPS").ToString, Dr2("CodigoPS").ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
+                                TieneError = True
+                                Exit For
+                            End If
+                        End If
+
+
+                        If Not TieneError And Dr("CveTipoPromocion").ToString <> Dr2("CveTipoPromocion").ToString Then
+                            If Not ObjGral.AddHistorialBitacora(369, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr2("TipoPromocion").ToString, $"{Dr("CodigoPS").ToString} - {Dr("TipoPromocion").ToString}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
+                                TieneError = True
+                                Exit For
+                            End If
+                        End If
+
+
+                        If Not TieneError And Dr("CantidadMinima").ToString <> Dr2("CantidadMinima").ToString Then
+                            If Not ObjGral.AddHistorialBitacora(370, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr2("CantidadMinima").ToString, $"{Dr("CodigoPS").ToString} - {Dr("CantidadMinima").ToString}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
+                                TieneError = True
+                                Exit For
+                            End If
+                        End If
+
+
+                        'If Not TieneError And Dr("AplicaRestriccion").ToString <> Dr2("AplicaRestriccion").ToString Then
+                        '    If Not ObjGral.AddHistorialBitacora(371, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr2("AplicaRestriccion").ToString, $"{Dr("CodigoPS").ToString} - {Dr("AplicaRestriccion").ToString}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
+                        '        TieneError = True
+                        '        Exit For
+                        '    End If
+                        'End If
+
+                        If Not TieneError And Dr("HoraInicio").ToString <> Dr2("HoraInicio").ToString Then
+                            If Not ObjGral.AddHistorialBitacora(372, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr2("HoraInicio").ToString, $"{Dr("CodigoPS").ToString} - {Dr("HoraInicio").ToString}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
+                                TieneError = True
+                                Exit For
+                            End If
+                        End If
+
+                        If Not TieneError And Dr("HoraFin").ToString <> Dr2("HoraFin").ToString Then
+                            If Not ObjGral.AddHistorialBitacora(373, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr2("HoraFin").ToString, $"{Dr("CodigoPS").ToString} - {Dr("HoraFin").ToString}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
+                                TieneError = True
+                                Exit For
+                            End If
+                        End If
+
+
+                        If Not TieneError And Dr("AplicaLunes").ToString <> Dr2("AplicaLunes").ToString Then
+
+                            Dim EstadoAnterior As String = If(Boolean.Parse(Dr2("AplicaLunes").ToString), "Aplica", "No aplica")
+                            Dim EstadoActual As String = If(Boolean.Parse(Dr("AplicaLunes").ToString), "Aplica", "No aplica")
+
+                            If Not ObjGral.AddHistorialBitacora(374, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, EstadoActual, $"{Dr("CodigoPS").ToString} - { EstadoAnterior }", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
+                                TieneError = True
+                                Exit For
+                            End If
+                        End If
+
+
+                        If Not TieneError And Dr("AplicaMartes").ToString <> Dr2("AplicaMartes").ToString Then
+
+                            Dim EstadoAnterior As String = If(Boolean.Parse(Dr2("AplicaMartes").ToString), "Aplica", "No aplica")
+                            Dim EstadoActual As String = If(Boolean.Parse(Dr("AplicaMartes").ToString), "Aplica", "No aplica")
+
+                            If Not ObjGral.AddHistorialBitacora(375, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, EstadoActual, $"{Dr("CodigoPS").ToString} - { EstadoAnterior }", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
+                                TieneError = True
+                                Exit For
+                            End If
+                        End If
+
+                        If Not TieneError And Dr("AplicaMiercoles").ToString <> Dr2("AplicaMiercoles").ToString Then
+
+                            Dim EstadoAnterior As String = If(Boolean.Parse(Dr2("AplicaMiercoles").ToString), "Aplica", "No aplica")
+                            Dim EstadoActual As String = If(Boolean.Parse(Dr("AplicaMiercoles").ToString), "Aplica", "No aplica")
+
+                            If Not ObjGral.AddHistorialBitacora(376, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, EstadoActual, $"{Dr("CodigoPS").ToString} - { EstadoAnterior }", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
+                                TieneError = True
+                                Exit For
+                            End If
+                        End If
+
+                        If Not TieneError And Dr("AplicaJueves").ToString <> Dr2("AplicaJueves").ToString Then
+
+                            Dim EstadoAnterior As String = If(Boolean.Parse(Dr2("AplicaJueves").ToString), "Aplica", "No aplica")
+                            Dim EstadoActual As String = If(Boolean.Parse(Dr("AplicaJueves").ToString), "Aplica", "No aplica")
+
+                            If Not ObjGral.AddHistorialBitacora(377, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, EstadoActual, $"{Dr("CodigoPS").ToString} - { EstadoAnterior }", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
+                                TieneError = True
+                                Exit For
+                            End If
+                        End If
+
+                        If Not TieneError And Dr("AplicaViernes").ToString <> Dr2("AplicaViernes").ToString Then
+
+                            Dim EstadoAnterior As String = If(Boolean.Parse(Dr2("AplicaViernes").ToString), "Aplica", "No aplica")
+                            Dim EstadoActual As String = If(Boolean.Parse(Dr("AplicaViernes").ToString), "Aplica", "No aplica")
+
+                            If Not ObjGral.AddHistorialBitacora(378, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, EstadoActual, $"{Dr("CodigoPS").ToString} - { EstadoAnterior }", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
+                                TieneError = True
+                                Exit For
+                            End If
+                        End If
+
+                        If Not TieneError And Dr("AplicaSabado").ToString <> Dr2("AplicaSabado").ToString Then
+
+                            Dim EstadoAnterior As String = If(Boolean.Parse(Dr2("AplicaSabado").ToString), "Aplica", "No aplica")
+                            Dim EstadoActual As String = If(Boolean.Parse(Dr("AplicaSabado").ToString), "Aplica", "No aplica")
+
+                            If Not ObjGral.AddHistorialBitacora(379, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, EstadoActual, $"{Dr("CodigoPS").ToString} - { EstadoAnterior }", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
+                                TieneError = True
+                                Exit For
+                            End If
+                        End If
+
+
+                        If Not TieneError And Dr("AplicaDomingo").ToString <> Dr2("AplicaDomingo").ToString Then
+
+                            Dim EstadoAnterior As String = If(Boolean.Parse(Dr2("AplicaDomingo").ToString), "Aplica", "No aplica")
+                            Dim EstadoActual As String = If(Boolean.Parse(Dr("AplicaDomingo").ToString), "Aplica", "No aplica")
+
+                            If Not ObjGral.AddHistorialBitacora(380, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, EstadoActual, $"{Dr("CodigoPS").ToString} - { EstadoAnterior }", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
+                                TieneError = True
+                                Exit For
+                            End If
+                        End If
+
+                        If Not TieneError And Dr("IncluyeImpuestos").ToString <> Dr2("IncluyeImpuestos").ToString Then
+
+                            Dim EstadoAnterior As String = If(Boolean.Parse(Dr2("IncluyeImpuestos").ToString), "Incluye", "No Incluye")
+                            Dim EstadoActual As String = If(Boolean.Parse(Dr("IncluyeImpuestos").ToString), "Incluye", "No Incluye")
+
+                            If Not ObjGral.AddHistorialBitacora(381, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, EstadoActual, $"{Dr("CodigoPS").ToString} - { EstadoAnterior }", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
+                                TieneError = True
+                                Exit For
+                            End If
+                        End If
+
+
+                    End If
+
                 Next
             End If
 
@@ -489,6 +740,16 @@ Partial Class Ventas_Promociones
                         TieneError = True
                         Exit For
                     End If
+
+                    If Not TieneError Then
+                        If Not ObjGral.AddHistorialBitacora(365, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", Dr("CodigoPS").ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
+                            TieneError = True
+                            Exit For
+                        End If
+                    End If
+
+
+
                 Next
             End If
 
@@ -511,6 +772,7 @@ Partial Class Ventas_Promociones
 
 #Region "  ELIMINAR  "
     Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs)
+
         Dim ObjVentas As New ClsVentas
         ObjVentas.IniciaTransacSQL()
         Dim TieneError = False
@@ -541,4 +803,13 @@ Partial Class Ventas_Promociones
     '        DivCantMinima.Visible = False
     '    End If
     'End Sub
+
+
+
+
+
+
+
+
+
 End Class
\ No newline at end of file