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).