criando menus e submenus

[Gelson]

Olá, pessol

Estou tentando melhorar meu menus, porém estou com o seguinte problema:

crei um alguns menu, e sub-menus, dos meus consigo chamar a procedure dos sub-menus, porém o inverso eu não estou conseguindo.

Ex: menus ( Cadastro, Tabela, Relatório,Cópias,Fim)
Dentro de Tabela(Tipo, nome,Preço,etc)

Queria que quando fosse precionada qualquer tecl diferente das opções presentes no sub-menu que a seleção voltasse para o menu principal.




[/code] procedure MENU
for i=2 to 23
@i,00 say replicate("±",80) // ± = chr(177)
next
setcolor("GR+/B")
@01,00 clear to 01,79
@01,05 PROMPT"INCLUSAO"
@01,15 PROMPT"EXCLUSAO"
@01,25 PROMPT"CONSULTA"
@01,35 PROMPT"RELATORIOS"
@01,47 PROMPT"COPIAS"
@01,55 PROMPT"RESTAURA"
@01,65 PROMPT"FIM"
menu to opc
setcolor("w/n")
save screen to tela1
do case
case opc=1
do caixp02

case opc=2
do caixp03

case opc=3
do SMENU1

case opc=4
do caixp04

case opc=5
do caixp07

case opc=6
do caixp08
endcase
return

*********************************
procedure SMENU1

setcolor("GR+/B")
@02,24 TO 05,41 DOUBLE
@03,25 prompt"PESQ.LANCAMENTOS"
@04,25 prompt"PESQ.VR.EM ORDEM"
menu to opc
setcolor("w/n")
do case
case opc==1
do caixp10
case opc==2
do caixp11
otherwise // tentei também case opc!=1 .or. opc!=2
do MENU // no menu principal coloque save to tela1
endcase // restore screen from tela1
clear
return

[rrfsistemas]

Caro Gelson tente assim :

Coloque um do while lastkey() = 27 no 1º menu na linha após o setcolor("GR+/B") e um enddo na linha logo após o endcase assim o menu entrará em um loop e só saira quando vc pressionar a tecla ESC.

[Gelson]

Olá, rrfsistema, tudo bem ?
Fiz as alterações, porém quando dou ENTER em consulta o sub-menu não é mostrado, e é executado o " PESQ.LACAMENTOS" conforme abaixo.

setcolor("GR+/B")
@02,24 TO 05,41 DOUBLE
@03,25 prompt"PESQ.LANCAMENTOS" //esta executando este
@04,25 prompt"PESQ.VR.EM ORDEM"

o que será ?