Inscripcion

Alta contacto
use tablacontacto index idxclave
reindex
clea

varclave=space(10)
varcontacto=space(70)
vartel=space(9)
varcel=space(17)
varrfc=space(13)
varciudad=space(30)

@2,50 say "altas de contactos"
@6,30 say "clave del contacto: " get varclave
read

seek val(varclave)
if found()
clea
@8,35 say "el registro ya existe"
@12,25 say "la clave del contacto es: "
@12,65say clave
@15,25 say "contacto: "
@15,65 say contacto
@17,25 say "telefono: "
@17,65 say tel
@19,25 say "celular: "
@19,65 say cel
@21,25 say "rfc: "
@21,65 say rfc
@23,25 say "ciudad: "
@23,65 say ciudad


else

read
clea

@3,55 say "altas de contactos"
@6,25 say "teclea la clave: " get varclave
@8,25 say "teclea el contacto: " get varcontacto@10,25 say "teclea el telefono: " get vartel
@12,25 say "teclea el celular: " get varcel
@14,25 say "teclea el rfc: " get varrfc
@16,25 say "nombre de la ciudad: " get varciudad
read

append blank

replace clave with val(varclave)
replace contacto with varcontacto
replace tel with vartel
replace cel with varcel
replace rfc with varrfc
replace ciudad with varciudad

@25,25 say"datos guardados"
read
endif
close all

baja contacto

USE TABLACONTACTO INDEX IDXCLAVE
REINDEX
CLEAR

VARCLAVE=SPACE(10)
RESP=SPACE(1)

@1,45 SAY "BAJAS DE CONTACTOS"

SCAN
@1,45 SAY "BAJAS DE CONTACTOS"
@3,35 SAY "CONTACTOS CON POSIBILIDAD A DAR DE BAJA"
@8,51 SAY CLAVE
@11,55 SAY CONTACTO
@14,55 SAY TEL
@17,55 SAY CEL
@20,55 SAY RFC@23,55 SAY CIUDAD
READ
CLEAR
ENDSCAN
@1,45 SAY "BAJAS DE CONTACTOS"
@3,25 SAY "CLAVE A DAR DE BAJA: " GET VARCLAVE
READ

SEEK VAL(VARCLAVE)
IF FOUND()
CLEAR
@1,45 SAY "BAJAS DE CONTACTOS"
@5,25 SAY "CLAVE DEL CONTACTO: "
@5,65 SAY CLAVE
@8,25 SAY "NOMBRE DEL CONTACTO: "
@8,65 SAY CONTACTO@11,25 SAY "TELEFONO: "
@11,65 SAY TEL
@14,25 SAY "CELULAR: "
@14,65 SAY CEL
@17,25 SAY "RFC: "
@17,65 SAY RFC
@20,25 SAY "CIUDAD: "
@20,65 SAY CIUDAD
@27,25 SAY "REALMENTE DESEAS ELIMINAR EL REGISTRO S/N: " GET RESP
READ
IF RESP="S" THEN
DELETE
PACKCLEAR
@10,45 SAY "EL REGISTRO HA SIDO ELIMINADO"
@20,45 SAY "PULSA ENTER PARA SALIR"
READ
ELSE
@20,45 SAY "PULSA ENTER PARA SALIR"
ENDIF
ELSE
CLEAR
@10,25 SAY "EL REGISTRO NO EXISTE PULSA ENTER PARA SALIR"
READ
ENDIF
CLOSE ALLModificación por campo
use tablaclientes index idxcla
reindex
clea
varclave=space(10)
varnombre=space(70)
vartelefono=space(9)
vardireccion=space(70)
varcelular=space(17)
varcorreo=space(70)
dato=space(70)

SCAN
@1,45 SAY "MODIFICACIONES POR CAMPO"
@8,51 SAY CLAVE
@11,55 SAY NOMBRE
@14,55 SAY TELEFONO
@17,55 SAY DIRECCION@20,55 SAY CELULAR
@23,55 SAY CORREO
READ
CLEAR
ENDSCAN

@24,25 say "clave del cliente a modificar: " get varclave
read
seek val(varclave)
IF FOUND()
CLEAR
@1,45 SAY "MODIFICACIONES POR CAMPO"
@5,25 SAY "CLAVE DEL CLIENTE: "
@5,65 SAY CLAVE
@8,25 SAY "NOMBRE DEL CLIENTE: "
@8,65 SAYNOMBRE
@11,25 SAY "TELEFONO: "
@11,65 SAY TELEFONO
@14,25 SAY "DOMICILIO: "
@14,65 SAY DIRECCION
@17,25 SAY "MOVIL: "
@17,65 SAY CELULAR
@20,25 SAY "CORREO ELECTRONICO: "
@20,65 SAY CORREO

@24,30 SAY "QUE DATO DE REGISTRO DECEAS MODIFICAR: " GET DATO
READ
IF DATO=NOMBRE THEN...