From 0e1daf743bbe2751c0b54c12818355973c69a0c8 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 4 Sep 2024 13:31:19 -0700 Subject: [PATCH] Reporte de Pedidos edicon PS --- Ventas/RepPedidosSTF.aspx | 37 ++++++++++++++++++++++++++---------- Ventas/RepPedidosSTF.aspx.vb | 16 ++++++++++++++++ 2 files changed, 43 insertions(+), 10 deletions(-) diff --git a/Ventas/RepPedidosSTF.aspx b/Ventas/RepPedidosSTF.aspx index 48ff40fa4..33ce5f120 100644 --- a/Ventas/RepPedidosSTF.aspx +++ b/Ventas/RepPedidosSTF.aspx @@ -120,23 +120,33 @@
+
- - + + + + + + + + + + + + - - - + - + + @@ -149,11 +159,18 @@ - + - + + - + + + + + + + diff --git a/Ventas/RepPedidosSTF.aspx.vb b/Ventas/RepPedidosSTF.aspx.vb index a7acaaf1e..d78cd04fd 100644 --- a/Ventas/RepPedidosSTF.aspx.vb +++ b/Ventas/RepPedidosSTF.aspx.vb @@ -160,9 +160,25 @@ Partial Class Ventas_RepPedidosSTF Dim PSNuevo As String = GvDatos.Rows(e.RowIndex).FCDropDownList("DdlPS").SelectedItem.Text Dim PU As Decimal = DTProductosEdicion.FiltroPrimeroValor("Precio", $"CvePS = {CvePSNuevo}").ToDecimal + If Not CvePSNuevo > 0 Then + Alert("Producto no encontrado.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + If Not Cantidad > 0 Then + Alert("Debe especificar la cantidad.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + If Not PU > 0 Then + Alert("El precio del producto no puede ser 0.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + DatosGV.Rows(GvDatos.EditIndex)("Cantidad") = Cantidad DatosGV.Rows(GvDatos.EditIndex)("CvePS") = CvePSNuevo DatosGV.Rows(GvDatos.EditIndex)("CodigoPS") = PSNuevo + DatosGV.Rows(GvDatos.EditIndex)("PU") = PU DatosGV.AcceptChanges()