Abaixo estou passando como esta meu comando.
A ideia seria no achoice ao dar o SPACE selecionar o que desejo.
Obrigado
Código: Selecionar todos
//=============================================================================
static FUNCTION teste()
LOCAL CTELA := SAVESCREEN() , alista , npos , nrow := 0
alista := {}
aadd(alista,' ³Geral ')
aadd(alista,' ³Entrada Nota ')
aadd(alista,' ³Outras Entrada ')
aadd(alista,' ³Devolu‡„o ')
aadd(alista,' ³Entrada Condicional')
aadd(alista,' ³Sa¡da Nota ')
aadd(alista,' ³Outras Sa¡das ')
aadd(alista,' ³Vendas ')
aadd(alista,' ³Sa¡da Condicional ')
Relevo(10,36,21,59)
@ 20,37 say " <SPACE> Seleciona " color "w+/n"
WHILE .T.
nvar := ACHOICE(11,37,19,58,alista,.t.,"AC_BAIXA",NPOS,NROW)
IF LASTKEY() == 27
EXIT
ELSEIF LASTKEY() == 13
exit
ELSEIF LASTKEY() == 32
if subs(alista[nvar],1,1) == 'x'
alista[nvar] := ' '+subs(alista[nvar],2)
else
alista[nvar] := 'x'+subs(alista[nvar],2)
XC++
endif
ENDIF
ENDDO
RESTSCREEN(00,00,24,79,ctela)
RETURN .t.
/****************************************************************************/
FUNCTION AC_BAIXA(MODO,ELE,ROW)
NROW := ROW
DO CASE
CASE MODO == 1
KEYBOARD CHR(30)
CASE MODO == 2
KEYBOARD CHR(31)
CASE MODO == 3
DO CASE
CASE LASTKEY() == 027 //ESC
RETURN (0)
CASE LASTKEY() == 013 //enter
RETURN (1)
CASE LASTKEY() == 032 //SPACO
RETURN (1)
ENDCASE
Endcase
RETURN (2)---
Nota da Moderação (Maligno):
A presente mensagem teve de ser editada para a inclusão das tags de indentação de código. Por favor, futuramente, não deixe de usar essas tags. Ler o código alheio já é tarefa difícil. Muito mais difícil fica sem a devida indentação.
