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

SET Ext

PROPÓSITO

Determinar o retorno da função EXT( ) (singular e plural).

Sintaxe

SET EXT TO <cad1> <cad2> <cad3> <cad4> [<cad5>]

Argumentos

<cad1>

representa o valor inteiro no singular.

<cad2>

representa o valor inteiro no plural.

<cad3>

representa o valor decimal no singular.

<cad4>

representa o valor decimal no plural.

<cad5>

representa o complemento do extenso.

Utilização

Para alterar a saída da função de extenso (EXT( )), possibilitando imprimir por extenso diversas medidas .

Exemplo

O exemplo a seguir mostra a impressão do extenso do valor de var_num em três medidas diferentes.

PROG

SET DECIMALS TO 2 ON var_num

var_num = 10.80

? EXT (var_num,1,80,1)

SET EXT TO "Metro" "Metros" "Centímetro" Centímetros"

? EXT (var_num,1,80,1)

SET EXT TO "Dollar" "Dollars" "Cent" "Cents"

? EXT (var_num,1,80,1)

Consulte

$LENTMP e EXT( ).

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