Redondeo de comercio exterior, lineas adicionales con egs y dev

2023-02-28 12:42:07 -07:00
parent 13fe315f8b
commit b330684423
2 changed files with 2 additions and 2 deletions
--- 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