Sub aplicarDescuento(descuentoPorcentaje As Int, idM As Int)
Dim cDescuento As Cursor
Dim precioActual As Float
Dim nuevoPrecio As Float
nuevoPrecio=0
Dim idDetalle As Int
Dim cursorPrueba As Cursor
Dim idPrueba As Int
Dim idPrueba2 As Int
cDescuento=s.ExecQuery("SELECT * FROM DetallePedido WHERE DetallePedido.idPedido = '" & idM & "' AND DetallePedido.descuento=0")
If cDescuento.ColumnCount>0 Then
For j=0 To cDescuento.RowCount-1
cDescuento.Position=j
precioActual = cDescuento.GetString("precio")
nuevoPrecio = (precioActual - (precioActual*descuentoPorcentaje/100))
idDetalle = cDescuento.GetString("idDetallePedido")
s.ExecQuery("UPDATE DetallePedido SET precio='" & nuevoPrecio & "' WHERE idDetallePedido ='" & idDetalle & "'")
Next
End If
End Sub