Tipo: Processamento
Devolve a Picture de impressão de campos numéricos dependendo do espaço disponível.
Sintaxe
TM(nValor, nEdição, nDec)
Parâmetros
nValor – Valor a ser editado
nEdição – Espaço disponível para edição
nDec – Número de casas decimais
Retorna
ExpC1 – Picture ideal para edição do valor nValor.
Comentários
Esta rotina leva em consideração duas variáveis:
MV_MILHAR – Determina se deve haver separação de milhar;
MV_CENT – Número de casas decimais padrão da moeda corrente.
Para ajustar o valor passado (ExpN1) ao espaço disponível (ExpN2) o programa verifica se pode haver separação de milhar, neste caso, a rotina eliminará tantos pontos decimais quantos sejam necessários ao ajuste do tamanho. Caso não seja possível ajustar o valor ao espaço dado, será colocado na picture o caracter de estouro de campo «. O programa também ajusta um valor ao número de decimais (ExpN3), sempre imprimindo a quantidade de decimais passados no parâmetro.
Exemplo
Cabec(Título,Cabec1,Cabec2,NomeProg,Tamanho,nTipo)
Endif
li:=li+1
nSalAnt := nSaldoAtu-nCompras-nRecProd-nRecCons
@li,00 Say cTipAnt
@li,05 Say nSalAnt Picture TM(nSalAnt, 14)
@li,23 Say nCompras Picture TM(nCompras, 17, 3)
Se o conteúdo do campo nSalAnt for: 3.423.659.234,48 o valor será impresso como: 3423659.234,48
Estude para provas de certificações em TI com os simulados Bynem