Bitacora Promociones

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