From 4b89f2c59b0dfaab829a14e7a0279478f445fc6a Mon Sep 17 00:00:00 2001
From: Raul Pimienta <raul.pimienta@adssistemas.mx>
Date: Fri, 30 Aug 2019 14:52:02 -0700
Subject: [PATCH] Soporte Editar Remision

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

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