VISUAL FOXPRO

En este ejercicio pondremos un formulario de Visual Foxpro en la Web

Favor de visitar este hipervinculo

http://docs.google.com/View?id=ddszph42_86c5h66nhj

Nota adicional: Se hace regerencia a otro ejercio, esto hay que aplicarlo al proyecto de Actualización de Stock.

Objeto: CmdAceptar Procedimiento: Click

nX = Thisform.TxtX.Value
nA = Int(Thisform.TxtX.Value)
X = nX - nA
nB = INT(1000 * X)
If nA > nB Then
nMay = nA
Else
nMay = nB
EndIf

Thisform.TxtMay.Value = nMay
Thisform.Refresh

De manera análoga ingresar el siguiente código para el control CmdLimpiar:

Objeto: CmdLimpiar Procedimiento: Click

Thisform.TxtX.Value = 0
Thisform.TxtMay.Value = 0
Thisform.TxtX.Setfocus
Thisform.Refresh

Finalmente proceder a ingresar el siguiente código para el control CmdSalir:

Objeto: CmdSalir Procedimiento: Click

Release Thisform

Ejercicio 1 - Ventas:
http://docs.google.com/Presentation?id=ddszph42_47drpwnjc2

Ejercicio 2 - Actualización de Stock
http://docs.google.com/Presentation?id=ddszph42_68dr635fds