diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index a575e622e..e501478f8 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -15762,7 +15762,7 @@ Partial Class Ventas
             If UsuarioActual.CveEmpresa.Contiene(126) Then
                 If CveVenta > 0 And DdlOrdenProduccion.SelectedValue.ToEntero > 0 Then
                     If Not ObjCGame.UpdateOrdenProduccionVenta(DdlOrdenProduccion.SelectedValue.ToEntero(), CveVenta) Then
-                        ErrorList.Add("Ocurrió un error al actualizar la orden de producción")
+                        OcurrioError = True
                     End If
                 End If
             End If
@@ -15772,7 +15772,7 @@ Partial Class Ventas
             If ObjConta.ValorPolizaDescuadre > 0 Then
                 If ObjConta.ValorPolizaDescuadre = 2 Then
                     OcurrioError = True
-                    ErrorList.Add(ObjConta.MensajePolizaDescuadre)
+                    Alert(ObjConta.MensajePolizaDescuadre, TipoMensaje.MsgError)
                 End If
             End If
         End If