Dúvida Campo Lógico no Browse - add Check no Browser

Bom dia a todos!

Gostaria de saber se é possível adicionar uma espécie de "CheckBox" no Browser?

Ex: Hoje possuo um campo lógico (nome = Cancelado) no browser, na qual coloco "SIM ou NÃO", gostaria de que quando cancelado ao invés de colocar "SIM" apenas da uma Check no campo.

Isso é possível?

No Aguardo,
Danilo Valim

Exemplo em anexo.

Amigo,
Quando rodo o arquivo esta aparecendo uma mensagem de erro:
"Invalid number of arguments for attribute add-like-column,
Não entendi linha 46."

Você pode me ajudar?

Se possível, poderia me enviar um exemplo em SmartWindow?

Agradeço desde já!

Danilo Valim

Se estiver usando Progress 10, basta colocar um VIEW-AS no DISPLAY do campo.
Infelizmente Progress 9 não suporta essa cláusula na sintaxe do browse.

Código:

DEFINE VARIABLE conta AS INTEGER.

DEFINE TEMP-TABLE tt FIELD codigo    AS INTEGER
                     FIELD nome      AS CHARACTER
                     FIELD ehFumante AS LOGICAL.
                  
DEFINE QUERY q1 FOR tt.

DEFINE BROWSE b1 QUERY q1
       DISPLAY tt.Codigo
               tt.Nome
               tt.ehFumante VIEW-AS TOGGLE-BOX
       WITH SEPARATORS 10 DOWN.
  
DO conta = 1 to 100:
   CREATE tt.
   ASSIGN tt.Codigo    = conta
          tt.Nome      = STRING(conta).
          tt.EhFumante = IF conta MOD 2 = 0 THEN YES ELSE NO.
END.
   
OPEN QUERY q1 FOR EACH tt.
UPDATE b1.

Para permitir edição, basta da um ENABLE na lista de campos desejada

Código:

DEFINE VARIABLE conta AS INTEGER.

DEFINE TEMP-TABLE tt FIELD codigo    AS INTEGER
                     FIELD nome      AS CHARACTER
                     FIELD ehFumante AS LOGICAL.
                  
DEFINE QUERY q1 FOR tt.

DEFINE BROWSE b1 QUERY q1
       DISPLAY tt.Codigo
               tt.Nome
               tt.ehFumante VIEW-AS TOGGLE-BOX
       ENABLE tt.Nome tt.EhFumante        
       WITH SEPARATORS 10 DOWN.
  

DO conta = 1 to 100:
   CREATE tt.
   ASSIGN tt.Codigo    = conta
          tt.Nome      = "Nome " + STRING(conta).
          tt.EhFumante = IF conta MOD 2 = 0 THEN YES ELSE NO.
END.
   
OPEN QUERY q1 FOR EACH tt.
UPDATE b1.

Bom dia Agnaldo!

A versão do Progress que utilizamos é a 10.1a, coloquei meu código conforme seu exemplo, e esta aparecendo 2 mensagens de erro,

A 1ª dizendo "Não entendi apos: "tt.ehfumante" :

DEFINE BROWSE b1 QUERY q1
DISPLAY tt.Codigo
tt.Nome
tt.ehFumante VIEW-AS TOGGLE-BOX
ENABLE tt.Nome tt.EhFumante
WITH SEPARATORS 10 DOWN.

E a outra "Unknown field or variable name - b1."


Como estou iniciando na Linguagem Progress, ainda não tenho a percepção de solucionar esse erro, você pode me ajudar, fazendo favor?

Abraço

Puxa, eu testei sobre Progress 9 e 10.1B.
Sobre versão 9 não rodou, pois não aceita a clausula VIEW-AS ali no browser.
ACho que sobre 10.1A também não.