diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 80b3d447f..67afe9096 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
 
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index c77e56988..01bfec8d8 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