VISUAL FOXPRO pag.18

VISUAL FOXPRO pag.17

VISUAL FOXPRO pag.16

VISUAL FOXPRO pag.15

VISUAL FOXPRO pag.14

VISUAL FOXPRO pag.13

VISUAL FOXPRO pag.12

VISUAL FOXPRO pag.11

VISUAL FOXPRO pag.10

VISUAL FOXPRO pag.9

VISUAL FOXPRO pag.8

VISUAL FOXPRO pag.7

VISUAL FOXPRO pag.6

VISUAL FOXPRO pag.5

VISUAL FOXPRO pag.4

VISUAL FOXPRO pag.3

VISUAL FOXPRO pag.2

VISUAL FOXPRO pag.1

SEMINARIO-Diag.Proc. Venta de Contado 2

SEMINARIO-Diag.de Tiempo

SEMINARIO-Diag.Proceso Venta Contado 1

CORTE DE CONTROL (APUNTES)

EJERCICIO (Move Windows)

**********************************************************************
*Objetivo: Mover una ventana
**********************************************************************
define windows ventana from 1,1 to 20,40 title "VENTANA EN MOVIMIENTO"
activate windows ventana
wait "oprima una tecla para continuar" windows
for i=1 to 25
for x=1 to 1000000 && esto sirve para hacer mas lento el movimiento
endfor
* mueve ventana variando la linea desde 1 hasta 25 manteniendo la forma original
move windows ventana to i,1
endfor
wait "oprima una tecla para continuar" windows
deactivate windows ventana
return

PROCESO ABM

******************************************************************************
ALTA, BAJA Y MODIFICACION EN UN SOLO PROCESO

Este proceso permite ingresar,eliminar y modificar un registro de una tabla.
******************************************************************************
close databases
on key label f1 do ayuda with varread()
use clientes
set order to codigo
define windows mant from 1,1 to 20,100 title "MANTENIMENTO DE CLIENTES"
activate windows mant
control=1
do while control=1
cod=0
nom=space(30)
dom=space(30)
op=1
@ 1,1 say "Codigo Cliente:" get cod picture "99"
read
if lastkey()=27
control=0
loop
endif
if empty(cod)
loop
endif
seek cod
if !found()
@ 1,40 say "Cliente Nuevo"
@ 3,1 say "Nombre :" get nom function "!"
@ 5,1 say "Direccion :" get dom function "!"
@ 7,3 get op function "*H GRABAR NUEVO CLIENTE;CANCELAR GRABACION" size 3,25
read cycle
do case
case op=1
append blank
replace codigo with cod
replace nombre with nom
replace direccion with dom
clea
loop
case op=2
clea
loop
endcase
endif
nom=nombre
dom=direccion
@ 3,1 say "Nombre :" get nom function "!"
@ 5,1 say "Direccion :" get dom function "!"
@ 7,1 get op function "*H GRABAR CAMBIOS;BORRAR CLIENTE;CANCELAR" size 3,25
read cycle
do case
case op=1
replace nombre with nom
replace direccion with dom
clea
loop
case op=2
delete
pack
clea
loop
case op=3
clea
loop
endcase
enddo
deactivate windows mant
return
******************************************************************************
procedure ayuda
parameters VARI
if VARI<>"COD"
wait "NO HAY AYUDA DISPONIBLE..." windows nowait
return
endif
if reccount()=0
wait "NO HAY CLIENTES CARGADOS..." windows nowait
return
endif
set order to nombre
define popup ayu from 1,15 to 10,48 title "ELIJA CLIENTE" margin scroll prompt field nombre
on selection popup ayu do saca with prompt()
activate popup ayu
if lastkey()=27
deactivate popup ayu
set order to codigo
return
endif
set order to codigo
keyboard chr(13)
return
*******************************************************************************
procedure saca
parameters pa
seek pa
cod=codigo
deactivate popup ayu
return
*******************************************************************************

EJERCICIO (Botones de Radio + Boton de Comandos)

*-------------------------------------------------------------------------------------------
Ingresar un par de valores y haciendo uso de BOTONES DE COMANDOS (COMMAND BOTTOM)+ BOTONES DE RADIO (RADIO BOTTOM) permitir la posibilidad de realizar las 4 operaciones elementales.
*-------------------------------------------------------------------------------------------
clea
control=1
do while control=1
que=1
resul=0
op=1
store 0 to a,b
define windows ventana from 1,1 to 30,80 title "CARGA DE DATOS"
activate windows ventana
@ 1,1 say "Ingrese un numero :" font "arial,12"
@ 1,16 get a font "arial,10"
@ 4,1 say "Ingrese un numero :" font "arial,12"
@ 4,16 get b font "arial,10"
@ 8,1 get op function "*R SUMA;RESTA;MULTIPLICACION;DIVISION;SALIR" font arial,12"
@ 20,1 get que function "*H ACEPTAR;CANCELAR;SALIR" size 4,15,1 font "arial,10"
read cycle
if lastkey()=27
clea
deactivate windows ventana
exit
endif
do case
case que=1
do case
case op=1
resul=a+b
case op=2
resul=a-b
case op=3
resul=a*b
case op=4
resul=a/b
endcase
case que=2
loop
case que=3
exit
endcase
@ 16,1 say "RESULTADO :" + str(resul) font "arial,10"
wait "OPRIMA UNA TECLA PARA CONTINUAR....." windows
if lastkey()=27
exit
endif
enddo
deactivate windows ventana
clea
return
*-------------------------------------------------------------------------------------------

EJERCICIO (Boton de Comandos)

*-------------------------------------------------------------------------------------------
Ingresar un par de valores y haciendo uso de BOTONES DE COMANDOS (COMMAND BOTTOM) permitir la posibilidad de realizar las 4 operaciones elementales.
*-------------------------------------------------------------------------------------------

clea
control=1
do while control=1
resul=0
op=1
store 0 to a,b
define windows ventana from 1,1 to 40,80 title "CARGA DE DATOS"
activate windows ventana
@ 1,1 say "Ingrese un numero :" font "arial,12"
@ 1,16 get a font "arial,10"
@ 4,1 say "Ingrese un numero :" font "arial,12"
@ 4,16 get b font "arial,10"
@ 8,1 get op function "*H SUMA;RESTA;MULTIPLICACION;DIVISION;SALIR" size 4,15,1 font "arial,10"
read cycle
if lastkey()=27
clea
deactivate windows ventana
exit
endif
do case
case op=1
resul=a+b
case op=2
resul=a-b
case op=3
resul=a*b
case op=4
resul=a/b
case op=5
exit
endcase
@ 18,1 say "RESULTADO :" + str(resul)
wait "OPRIMA UNA TECLA PARA CONTINUAR....." windows
enddo
deactivate windows ventana
clea
return