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
*******************************************************************************