Alterar SET CONFIRM dentro do GET

[acelconsultoria]

Olá, pessoal do fórum.

Gostaria de saber se há uma forma de alterar o SET CONFIRM dentro de uma sequência de GETs.

Por exemplo:

Código: Selecionar todos

Function MeusGets()
Set Confirm On

Codigo := 0
Nome := Space(40)
Cidade := Space(25)
Obs1 := Space(50)
Obs2 := Space(50)
Obs3 := Space(50)

@ 01,01 GET CODIGO
@ 02,01 GET NOME
@ 03,01 GET CIDADE
/// ==> Aqui, eu deveria desligar o SET CONFIRM
@ 05,01 GET OBS1
@ 06,01 GET OBS2
@ 07,01 GET OBS3
READ

... continua ...

Sugestões

[asimoes]

Não sei o que está acontecendo, fiz esse código para tentar uma solução pro SET CONFIRM

Compilei com harbour e não está funcionando o SET CONFIRM ON teclando enter passa pro próximo get,
alguém sabe o que é isso?

Estranho é que compilei este código com clipper (5.2e) e também não funcionou o SET CONFIRM ON

Código: Selecionar todos

FUNCTION MAIN

   SET CONFIRM ON

   CLS

   cGet1:=Space(8)

   cGet2:=Space(8)

   @ 10,00 SAY "GET 1" GET cGet1
   @ 11,00 SAY "GET 2" GET cGet2
   READ

RETURN Nil

[Pablo César]

Compilei com harbour e não está funcionando o SET CONFIRM ON teclando enter passa pro próximo get, alguém sabe o que é isso?

O SET CONFIRM ON tanto no Harbour como no Clipper é para que após o prenchimento durante a digitação do usuário de determinado GET, precise de um ENTER para passar pro próximo GET. Portanto Alexandre, o ENTER sempre será atendido na navegação entre GETs.

Gostaria de saber se há uma forma de alterar o SET CONFIRM dentro de uma sequência de GETs.

Nesse GET que você deseja que o usuário precise dar um ENTER, adicione um WHEN chamando a uma função que dê o SET CONFIRM ON e ainda nesse mesmo GET adicione um VALID que chame uma função onde irá retornar o SET CONFIRM OFF.

Não testei mas creio que irá funcionar, sim !

[asimoes]

Isso mesmo Pablo, tinha me esquecido desse detalhe, preenchendo todo o get só passa para o próximo get teclando enter.

Código: Selecionar todos

FUNCTION MAIN

   CLS

   cGet1:=Space(8)

   cGet2:=Space(8)
   
   cGet3:=Space(8)

   @ 10,00 SAY "GET 1" GET cGet1 WHEN CONFIRMA(.T.)
   @ 11,00 SAY "GET 2" GET cGet2 WHEN CONFIRMA(.F.)
   @ 12,00 SAY "GET 3" GET cGet3 WHEN CONFIRMA(.F.)
   
   READ

RETURN Nil

FUNCTION CONFIRMA(lConfirma)
   IF lConfirma
      SET CONFIRM ON
   ELSE
      SET CONFIRM OFF
   ENDIF
RETURN.T.

[alxsts]

Olá!

Segue outra forma de se obter o resultado desejado:

Código: Selecionar todos

#include "set.ch"

Function MeusGets()

altd()

Set Confirm On

Codigo := 0
Nome := Space(40)
Cidade := Space(25)
Obs1 := Space(50)
Obs2 := Space(50)
Obs3 := Space(50)

@ 01,01 GET CODIGO
@ 02,01 GET NOME
@ 03,01 GET CIDADE   VALID { || ValType( Set( _SET_CONFIRM, .F. ) ) == "L" }  // Desativa o Set Confirm no post block do get (Valid)
/// ==> Aqui, eu deveria desligar o SET CONFIRM
@ 05,01 GET OBS1
@ 06,01 GET OBS2
@ 07,01 GET OBS3

READ