From b330684423eb593c58ddf336111704d738060ed2 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 28 Feb 2023 12:42:07 -0700
Subject: [PATCH] Redondeo de comercio exterior, lineas adicionales con egs y
 dev

---
 Ventas/Ventas.aspx    | 2 +-
 Ventas/Ventas.aspx.vb | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index e654fa7f1..9df8b7f41 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -2596,7 +2596,7 @@
                                                                                     <asp:BoundField DataField="CodigoPS" HeaderText="Producto ó Servicio" />
                                                                                     <asp:TemplateField HeaderText="Valor Unitario">
                                                                                         <ItemTemplate>
-                                                                                            <asp:TextBox ID="TxtValorUnitario" runat="server" Text='<%# Eval("PU", "{0:N2}") %>' Width="60px"></asp:TextBox>
+                                                                                            <asp:TextBox ID="TxtValorUnitario" runat="server" Text='<%# Eval("PU") %>' Width="60px"></asp:TextBox>
                                                                                         </ItemTemplate>
                                                                                     </asp:TemplateField>
                                                                                     <asp:BoundField DataField="ClaveSATFraccionArancelariaDescripcion" HeaderText="Fracción Arancelaria" />
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 51dd9afac..456043f51 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -8921,7 +8921,7 @@ Partial Class Ventas
             Exit Sub
         End If
 
-        If DdlLineaAdicional.SelectedValue.ToEntero() > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") Then
+        If DdlLineaAdicional.SelectedValue.ToEntero() > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Egs", "Dev") Then
             Alert("No se puede seleccionar una linea adicional de crédito si no se genera una remisón.", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If