Reporte de Pedidos edicon PS

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()