Programa De Grabacion

*
*
*
SET STATUS OFF
SET TALK OFF
USE empleados
SET ORDER TO

DO WHILE .t.
CLEAR
DEFINE WINDOW vent2 from 0,0 TO 40,100 TITLE "Grabacion de Empleados" CLOSE minimize
activate windvent2
MOVE WINDOW vent2 center

vcod=0
vnom=SPACE(20)
vape=SPACE(20)
vide=0
vsex=0
veda=0
vsue_bas=0
vsue_hor=0
vsue_dia=0
B=0

@4,5 say "Codigo:" get vcod pict "99999" valid Busqueda(vcod)
@6,5 say "Nombre:" get vnom pict "@x20"
@8,45 say "Apellido:" get vape pict "@x20"
@10,5 say "Identidad:" get vide pict "9999-9999-999"
@12,5 say "Sexo:" get vsex pict "@^ F;M" size 4,4@14,45 say "Edad:" get veda spinner 1,20,50
@16,5 say "Sueldo Base:" get vsue_bas pict "99.9999 Lps"
@18,5 say "Sueldo Hora:" get vsue_hor pict "99.9999 Lps"
@20,5 say "Sueldo Dia:" get vsue_dia pict"99.9999 Lps"
@30,30 get b pict "@*ht Grabar;Cancelar;Salir"
READ cycle

DO CASE
CASE B=1
APPEND blank
replace cod WITH vcod
replace nom WITH vnom
replace ape WITH vape
replace ide WITH videreplace sex WITH sex
replace eda WITH eda
replace sue_bas WITH sue_bas
replace sue_hor WITH sue_hor
replace sue_dia WITH sue_dia
LOOP

CASE B=2
LOOP

CASE B=3
CLEAR
DEACTIVATE WINDOWvent2
RELEASE ALL
EXIT
ENDCASE
ENDDO
PROCEDURE Busqueda
PARAMETERS pcod
LOCATE FOR pcod=cod
IF FOUND()
WAIT WINDOW "El codigo existe" timeout 02
_curobj=1
RETURN TO mn_empleados
ENDIFENDPROC

*
*
*
SET STATUS OFF
SET TALK OFF
USE empleados
SET ORDER TO

DO WHILE .t.
CLEAR
DEFINE WINDOW vent2 from 0,0 TO 40,100 TITLE "Modificado de Empleados" CLOSE minimizeactivate wind vent2
MOVE WINDOW vent2 center

vcod=0
vnom=SPACE(20)
vape=SPACE(20)
vide=0
vsex=0
veda=0
vsue_bas=0
vsue_hor=0
vsue_dia=0
B=0

@4,5 say "Codigo:" get vcod pict "99999" validBusqueda (vcod)
@6,5 say "Nombre:" get vnom pict "@x20"
@8,45 say "Apellido:" get vape pict "@x20"
@10,5 say "Identidad:" get vide pict "9999-9999-999"
@12,5 say "Sexo:" get vsex pict "@^ F;M" size...