Ejemplos de programacion en visual foxpro

**PROGRAMA DE INGRESO DE CLIENTES
**ELABORADO POR: DANIELA JOSSELIN GONZALES URBINA
USE CLIENTE INDEX ORDN_CLI
SET DECIMALS TO 2
DO WHILE .T.
CLEAR
@0,0 SAY SYS(5)+'SAKURA\10.JPG'BITMAP STRE
@2,90 SAY 'INGRESO DE CLIENTES' FONT 'ARIAL BLACK',18 STYLE 'BS'
VN_CLI=0
@6,20 SAY 'INGRESE NUMERO DEL CLIENTE'FONT 'ARIAL BLACK',10 STYLE 'BI'GET VN_CLI FONT 'ARIAL BLACK',10 STYLE 'BI'
READIF LASTKEY ()=27
EXIT
ENDIF
IF VN_CLI=0
WAIT WINDOW 'DATO VACIO'
LOOP
ENDIF
GO TOP
SEEK VN_CLI
IF FOUND()
WAIT WINDOW 'NUMERO DE CLIENTE YA ESTA REGISTRADO'
LOOP
ENDIF
STORE 0 TO VID,VTEL,VMOVIL,VT_TRAB,VS_MEN,VO_ING,VT_ING,VID_CONY,VS_CONY
STORE SPACE (30) TO VCLI,VDIR,VE_CIV,VSEXO,VS_TRAB,VL_TRAB,VD_TRAB,VPUESTO,VCONY,VLT_CONY,VREF_COMER,VREF_BAN,VT_CLIENTE
@8,20 SAY 'NOMBREDEL CLIENTE'FONT 'ARIAL BLACK',10 STYLE 'BI' GET VCLI FONT 'ARIAL BLACK',10 STYLE 'BI'
@10,20 SAY 'IDENTIDAD'FONT 'ARIAL BLACK',10 STYLE 'BI'GET VID FONT 'ARIAL BLACK',10 STYLE 'BI'
@12,20 SAY 'DIRECCION'FONT 'ARIAL BLACK',10 STYLE 'BI'GET VDIR FONT 'ARIAL BLACK',10 STYLE 'BI'
@14,20 SAY 'TELEFONO'FONT 'ARIAL BLACK',10 STYLE 'BI'GET VTEL FONT 'ARIAL BLACK',10 STYLE 'BI'
@16,20 SAY 'MOVIL'FONT'ARIAL BLACK',10 STYLE 'BI' GET VMOVIL FONT 'ARIAL BLACK',10 STYLE 'BI'
read
X=1
VE_CIV=SPACE(15)
@18,20 SAY 'ESTADO CIVIL'FONT 'ARIAL BLACK',10 STYLE 'BI'GET x FONT 'ARIAL BLACK',10 STYLE 'BI' FUNCTION '^ SOLTERO; CASADO; VIUDO; DIVORCIADO'
READ
IF X=1
VE_CIV='SOLTERO'
ENDIF
IF X=2
VE_CIV='CASADO'
ENDIF
IF X=3
VE_CIV ='VIUDO'
ENDIF
IF X=4
VE_CIV='DIVORCIADO'ENDIF
IF VE_CIV='CASADO' THEN
@20,20 SAY 'CONYUGE'FONT 'ARIAL BLACK',10 STYLE 'BI' GET VCONY FONT 'ARIAL BLACK',10 STYLE 'BI'
@22,20 SAY 'IDE_CONYUGE'FONT 'ARIAL BLACK',10 STYLE 'BI'GET VID_CONY FONT 'ARIAL BLACK',10 STYLE 'BI'
@24,20 SAY 'S_CONYUGE'FONT 'ARIAL BLACK',10 STYLE 'BI'GET VS_CONY FONT 'ARIAL BLACK',10 STYLE 'BI'
@26,20 SAY 'LUG_TRAB_CONYUGE'FONT 'ARIAL BLACK',10 STYLE 'BI'GETVLT_CONY FONT 'ARIAL BLACK',10 STYLE 'BI'
ENDIF
STORE 1 TO sexo
@ 28,20 say 'SEXO'FONT 'ARIAL BLACK',10 STYLE 'BI' GET vsexo FONT 'ARIAL BLACK',10 STYLE 'BI' FUNCTION '*Rtv MASCULINO;FEMENINO'
READ
STORE 1 TO SEC_TRAB
@32,20 SAY 'SECTOR DE TRABAJO'FONT 'ARIAL BLACK',10 STYLE 'BI' GET VS_TRAB FONT 'ARIAL BLACK',10 STYLE 'BI' FUNCTION '*Rtv PUBLICO; PRIVADO; INDEPENDIENTE'
READ
@36,20 SAY'LUGAR TRABAJO'FONT 'ARIAL BLACK',10 STYLE 'BI'GET VL_TRAB FONT 'ARIAL BLACK',10 STYLE 'BI'
@8,110 SAY 'DIRECCION TRABAJO'FONT 'ARIAL BLACK',10 STYLE 'BI'GET VD_TRAB FONT 'ARIAL BLACK',10 STYLE 'BI'
@10,110 SAY 'TELEFONO TRABAJO'FONT 'ARIAL BLACK',10 STYLE 'BI'GET VT_TRAB FONT 'ARIAL BLACK',10 STYLE 'BI'
@12,110 SAY 'PUESTO'FONT 'ARIAL BLACK',10 STYLE 'BI'GET VPUESTO FONT 'ARIAL BLACK',10 STYLE 'BI'@14,110 SAY 'SUELDO MENSUAL'FONT 'ARIAL BLACK',10 STYLE 'BI'GET VS_MEN FONT 'ARIAL BLACK',10 STYLE 'BI'
@16,110 SAY 'OTROS INGRESOS'FONT 'ARIAL BLACK',10 STYLE 'BI'GET VO_ING FONT 'ARIAL BLACK',10 STYLE 'BI'
READ
VT_ING=(VS_MEN+VO_ING)
@18,110 SAY 'TOTAL_ING'
@18,130 SAY VT_ING
@20,110 SAY 'REFERENCIA COMERCIALES'FONT 'ARIAL BLACK',10 STYLE 'BI'GET VREF_COMER FONT 'ARIAL BLACK',10 STYLE'BI'
@22,110 SAY 'REFERENCIA BANCORIAS' FONT 'ARIAL BLACK',10 STYLE 'BI'GET VREF_BAN FONT 'ARIAL BLACK',10 STYLE 'BI'
Z=1
VT_CLIENTE=SPACE(15)
@24,110SAY 'TIPO CLIENTE'FONT 'ARIAL BLACK',10 STYLE 'BI'GET Z FONT 'ARIAL BLACK',10 STYLE 'BI' FUNCTION '^ PARTICULAR; MAYORISTA'
READ
IF Z=1
VT_CLIENTE='PARTICULAR'
ENDIF
IF Z=2
VT_CLIENTE='MAYORISTA'
ENDIF
READ
APPEND BLANK
REPLACE N_CLIENTEWITH VN_CLI
REPLACE CLIENTE WITH VCLI
REPLACE IDENTIDAD WITH VID
REPLACE DIRECCION WITH VDIR
REPLACE TEL WITH VTEL
REPLACE MOVIL WITH VMOVIL
REPLACE E_CIVIL WITH VE_CIV
REPLACE CONYUGE WITH VCONY
REPLACE IDE_CONY WITH VID_CONY
REPLACE S_CONYUGE WITH VS_CONY
REPLACE LUGTRABCON WITH VLT_CONY
REPLACE SEXO WITH VSEXO
REPLACE SEC_TRAB WITH VS_TRAB
REPLACE LUG_TRAB WITH VL_TRAB
REPLACE...