que onda hermano otrra vez molestandote.
mira me dice que no encuentra variable READ pero se supone que READ es una palabra del compilador , ya cheque bien mi code y no =(
que sera.
Procedure materia
clear
use confis index Iespe,Iclav
set confirm on
set bell off
@2,8 to 23,73 double
@1,19 say "Control de Pagos de Examenes Extraordinarios"
@3,20 say ">>>..Escriba la Especialidad y la Materia..<<<"
@5,26 say " "
@6,17 say "Escribe la letra de la especialidad"
@8,17 say "B = Bachillerato T = Tecnico S = Secretariado"
@10,16 say "Digite la letra de opcion *[ ]*"
esp = " "
Do while esp < "a" .or. esp > "z"
@10,47 get esp picture "a"
READ
enddo
set index to iclav
@12,54 say " "
@13,17 say "Escriba la clave de la Materia"
@15,17 say "Correspondiente a la Especialidad"
@17,15 say "*[ ]*"
cla = 1
Do while cla < 1 .or. cla > 9
@17,18 get cla picture "9
READ
locate for LETRAESPE = esp .and. CLAVEMAT = cla
if found() then
Wait "Sus Consultas son correctas , presione una tecla para continuar"
do opciones
else
do Errores
endif
return
<EMBED src="http://www.recursoft.com/wc.swf" quality=high wmode=transparent WIDTH="105" HEIGHT="146" NAME="wc"></EMBED>
<p><a href="http://www.recursoft.com" target="otra">
Aprende , Desarolla e Impacta! </a>