From 4320558b59518fe65851c2bf00662b2e3b53e6ca Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 13 Oct 2020 13:35:15 -0700 Subject: [PATCH] -- candado de cantidad de precio venta sea mayor a cero --- Ventas/ProductosServicios.aspx.vb | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index 6a56b6f1a..a086596c8 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -1162,6 +1162,16 @@ Partial Class ProductosyServicios Return End If + If UsuarioActual.CveEmpresa = 119 Then + If TxtVentaMinima.Text.ToDecimal < 1 Then + Alert("La cantidad de venta mínima debe de ser especificada(mayor a 1)", TipoMensaje.MsgAdvertencia) + Return + End If + + End If + + + Dim ObjProductosServicios As New ClsProductosServicios() Dim ObjInv As New ClsInventarios(ObjProductosServicios.IniciaTransacSQL()) @@ -1176,6 +1186,7 @@ Partial Class ProductosyServicios CveProveedor = DdlProveedor.txtValue.Value.ToEntero End If + Dim CveMarca As Integer = 0 If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) And CvePS = -1 Then CveMarca = DdlMarcaPSDes.SelectedValue.ToEntero Else CveMarca = DdlMarca.SelectedValue.ToEntero