From acdf87f337e0cb80453f45ef9b623959216e70d4 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Sat, 4 Jan 2025 13:28:12 -0700
Subject: [PATCH] =?UTF-8?q?Promociones=20Fecha=20y=20usuario=20que=20creo,?=
 =?UTF-8?q?=20=20promociones=20ordenar=20bitacora=20y=20no=20enviar=20fech?=
 =?UTF-8?q?a=20de=20inicio=20de=20fecha=20nulla=20al=20=20cambiar=20horari?=
 =?UTF-8?q?o=20de=20promocion=20cuando=20no=20tenia=20horario=20de=20promo?=
 =?UTF-8?q?ci=C3=B3n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/Promociones.aspx.vb | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb
index e7db582ef..052ce1070 100644
--- a/Ventas/Promociones.aspx.vb
+++ b/Ventas/Promociones.aspx.vb
@@ -222,7 +222,7 @@ Partial Class Ventas_Promociones
             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
+                GvBitacora.DataSource = ObjGral.DtResultados.FiltraParametros("", "CveHistorialBitacora DESC")
             End If
             ObjGral.Dispose()
             GvBitacora.DataBind()
@@ -969,14 +969,20 @@ Partial Class Ventas_Promociones
 
 
                         If Not TieneError And Dr("HoraInicio").ToString <> Dr2("HoraInicio").ToString Then
-                            If Not ObjGral.AddHistorialBitacora(372, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr("HoraInicio").ToString, $"{Dr("CodigoPS").ToString} - {Dr2("HoraInicio").ToString}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
+
+                            Dim Anterior As String = If(Dr2("HoraInicio").ToString.ToDate.Year = 1900, "", Dr2("HoraInicio").ToString)
+
+                            If Not ObjGral.AddHistorialBitacora(372, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr("HoraInicio").ToString, $"{Dr("CodigoPS").ToString} - { Anterior}", 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, Dr("HoraFin").ToString, $"{Dr("CodigoPS").ToString} - {Dr2("HoraFin").ToString}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
+
+                            Dim Anterior As String = If(Dr2("HoraFin").ToString.ToDate.Year = 9999, "", Dr2("HoraFin").ToString)
+
+                            If Not ObjGral.AddHistorialBitacora(373, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr("HoraFin").ToString, $"{Dr("CodigoPS").ToString} - {Anterior}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
                                 TieneError = True
                                 Exit For
                             End If