Pular para o conteúdo
Início » Advpl TM

Advpl TM

    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