Comandos Parte 7

26/05/2019


LC

Transformar string em minúsculo

MESSAGE LC("TEXTO TRANSFORMADO Em Minusculo").

CAPS

Transformar string em maiúsculo

MESSAGE CAPS("Texto Transformado Em Minusculo").

EMPTY TEMP-TABLE

Apagar todos registros de uma temp-table. Este comando não afeta os registros de uma tabela, apenas de temp-table.

DEF TEMP-TABLE tt_customer LIKE customer.

EMPTY TEMP-TABLE tt_customer.

STRING

Transformar um campo em string. O segundo parâmetro é o formato da string, e não é obrigatório.

MESSAGE STRING(true,"afirmativo/negativo").

MESSAGE STRING(2565.5821,">>>,>>9.99").

MESSAGE STRING(TODAY).

INTEGER

Transformar um campo em inteiro. Abreviar: INT.

/* exemplo 1 - menor código possível */
MESSAGE INTEGER("6585").

/* exemplo 2 - definir uma variável integer e tentar atribuir um valor inválido */
DEF VAR n AS INT.

n = INT("10"). /* vai dar certo */
n = INT("65a85") NO-ERROR. /* vai dar erro e nao vai atribuir este valor */

MESSAGE n.

LOGICAL

Transformar um campo em lógico.

MESSAGE LOGICAL('TRUE').

MESSAGE LOGICAL('NO').

MESSAGE LOGICAL(0).

MESSAGE LOGICAL(1).

DATE

Transformar um campo em data

MESSAGE DATE(12,31,2019).

MESSAGE DATE('10/12/2019').

DECIMAL

Transformar um campo em decimal. Abreviar: DEC.

MESSAGE DEC("6585.55").

MESSAGE DECIMAL("65855555").

DAY

Retornar o dia de alguma data.

MESSAGE DAY(TODAY).

MONTH

Retornar o mês de alguma data.

MESSAGE MONTH(10/05/2019).

YEAR

Retornar o ano de alguma data.

MESSAGE YEAR(TODAY).

WEEKDAY

Retornar o dia de semana de alguma data. Domingo é 1.

MESSAGE WEEKDAY(TODAY).

LOG

Retornar o logaritmo de um número.

MESSAGE 'O logaritmo de 16 na base 2 e: ' LOG(16,2).

MESSAGE 'O logaritmo de 9 na base 3 e: ' LOG(9,3).

EXP

Retorna a exponencial de um número

MESSAGE '2 elevado a 3 e: ' EXP(2,3).

MESSAGE '3 elevado a 3 e: ' EXP(3,3).