Anterior Sumário Próximo OpenBASE! o Banco de Dados inteligente. Fale conosco!

SET Truncate

Propósito

Truncar valores numéricos maiores que suas máscaras.

Sintaxe

SET TRUNCATE ON / off

Utilização

Quando ligado (ON), os valores numéricos que tenham mais dígitos que os definidos em suas máscaras de edição (PICTURE E TRANSFORM), são truncados perdendo os dígitos mais à esquerda. Para que isto não ocorra, basta desligar (OFF) este comando. Neste caso, serão exibidos asteriscos no lugar dos valores truncados.

EXEMPLO

O exemplo a seguir mostra como utilizar este comando.

PROG

SET DECIMALS TO 2 ON var_num

var_num = 327654.88

@ 10,10 SAY "Valor Truncado (TRUNCATE ON)    = "

@ 10,45 SAY var_num PIC "99,99"            && Exibira 54,88

@ 11,45 SAY TRANSFORM ("99,99", var_num)        && Exibira 54,88

SET TRUNCATE OFF

@ 13,10 SAY "Valor Asteriscos (TRUNCATE OFF) = "

@ 13,45 SAY var_num PIC "99,99"            && Exibira **,**

@ 14,45 SAY TRANSFORM ("99,99", var_num)        && Exibira **,**

Anterior Sumário Próximo OpenBASE! o Banco de Dados inteligente. Fale conosco!