Função Alert e Alert1 e Menus

[Ricardo Sales Ribeiro]

Bom Dia Amigos!

Más uma vez venho ao socorro de vcs. Desta vez é muito simples, pelo menos para vcs, q já são feras. É o seguinte, já visitei a parte do forum sobre fontes, lá encontrei duas opções de menus, más eu gostaria de uma coisa mais simples, tipo, na parte de cima da tela, colocaria os tópicos, tipo

Cadastro Consultas Relatorios Movimentos Fim

E ao clicar em cada tópico, aparecer logo em baixo as funções tipo

Cadastro Consultas
Clientes Clientes
Fornecedores
E assim por diante, é possivel?, bem simples.

Outra coisa não sei como utilizar a função alert, com alternativas para responder SIM, ou NÃO, e como testar qual opção q o usuário escolheu, para dar prosseguimento a rotina.

São duas rotinas faceis de fazer, gostaria da ajuda dos colegas
Um grande abraço

[MARCELOG]

Caro Ricardo,
são coisas simples de fazer (ou não?).
Na seção de download´s do site existe a opção - FUNCÕES.
Click na mesma e procure uma que contenha algum menu, baixe e verifique se lhe atende.
Normalmente, o texto faz referência relativa ao conteúdo.
Já a função alert(), como o nome indica, serve para informar/ alertar o usuário, ou obter alguma informação para prosseguimento da aplicação.
Há várias maneiras de usá-la, então vou mostrar duas bem simples.
Importante, baixe o ng relativo a sua versão do clipper e verifique a síntese desta e outras funções (a internet também tem muitos exemplos, etc.).
Digite ALERT() no google apenas para testar.

nAlert := Alert("Quer saber o valor de alert?",{"Sim","Não"})
? nAlert

Viu, se você escolheu SIM, NÃO ou abandonou a função (ESC), o valor de nAlert mudou.


IF Alert("Quer ver outro alert()?",{"Sim","Não"}) == 1
Alert("Então tá!")
ENDIF

Viu, se você escolheu SIM, o valor de alert é igual a 1 e o outro alert foi executado.

Espero ter ajudado.

MarceloG

[digitom]

Com relação ao Alert ainda você pode mudar as cores (a padrão é branco com vermelho de fundo):

OPT:={'Sim',[Não]}
NCOR:='8/2,0/3,,7/0'
OPC:=ALERT("Deseja prosseguir ?",OPT,NCOR)
IF OPC#1 //Se a escolher NAO ou Pressionar ESC
LOOP
ENDIF
.....

ou

Poder ser assim também
IF ALERT("Deseja prosseguir?",{"Sim","Não"},"BG+/R")#(1)
Loop
Endif
Alert("Você escolheu a opção de prosseguir")

[Ricardo Sales Ribeiro]

Obrigado pela ajuda dos colegas!

Vou encrementar minhas rotinas.