From 7e6cbb6ed55cd39c73c275bb1d13215c54cfed57 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Thu, 16 Nov 2023 11:41:42 -0700
Subject: [PATCH 1/2] Correcion de formato de hora, para validar existencias

---
 Inventarios/EntradasSalidas.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 143fc8895..5b86ad316 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -1414,7 +1414,7 @@ Partial Class Inventarios_EntradasSalidas
     Private Function GetExistencias(CvePS As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer, CveAlmacen As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional Serie As String = "-1", Optional Lote As String = "-1", Optional FechaCaducidad As Date = MinFecha) As Decimal
 
         Dim FechaMovimiento As DateTime = TxtFecha.Text.Replace(",", "").ToDateTime
-        Dim FechaMovtoStr As String = $"{FechaMovimiento.ToString("yyyy/MM/dd")} {FechaMovimiento.ToString("hh:mm")}"
+        Dim FechaMovtoStr As String = $"{FechaMovimiento.ToString("yyyy/MM/dd")} {FechaMovimiento.ToString("HH:mm")}"
 
         Dim Inv As New ClsInventarios
 

From a66a8bd0d21cd6b0846592c647526d80cec75dea Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Thu, 16 Nov 2023 11:42:17 -0700
Subject: [PATCH 2/2] Guardar mensaje de NoSeGuardoPoliza en log

---
 Ventas/Ventas.aspx.vb | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 9b396ac6b..1cc12c87e 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -10447,6 +10447,7 @@ Partial Class Ventas
 
                         'MUESTA ALERT ERROR
                         Alert("Ocurrió un error al procesar los datos. Por favor rectifique y vuelta a intentar.", TipoMensaje.MsgError)
+                        GuardaLog("1.0 - Ocurrió un error al procesar los datos. Por favor rectifique y vuelta a intentar. SeGuardoPrePoliza: " + If(SeGuardoPrePoliza, "Si", "No") + " TipoDocto: " + ObjFactura.TipoDocto)
                     End If
 
                     ObjVentas.Dispose()
@@ -10472,6 +10473,7 @@ Partial Class Ventas
 
                     'MUESTA ALERT ERROR
                     Alert("Ocurrió un error al procesar los datos. Por favor rectifique y vuelta a intentar.", TipoMensaje.MsgError)
+
                     ObjVentas.Dispose()
                     ObjConta.Dispose()
                     ObjInventario.Dispose()
@@ -10485,6 +10487,8 @@ Partial Class Ventas
 
                     TmpDT = TmpDTError.Copy
                     CalculaTotalesVenta(RecalcularTotalOriginal:=False)
+
+                    GuardaLog("2.0- Ocurrió un error al procesar los datos. Por favor rectifique y vuelta a intentar. SeGuardoPrePoliza: " + If(SeGuardoPrePoliza, "Si", "No") + " TipoDocto: " + ObjFactura.TipoDocto)
                 End If
                 ObjFactura = Nothing
                 ListaNotasCreditoGeneradas = Nothing