[RESOLVIDO] Ajuda com PUT em AT dinâmico

Discussão em 'EMS , HCM e Totvs 11' iniciado por pfdallagnol, Abril 3, 2013.

Status do Tópico:
Não esta aberto para novas mensagens.
  1. pfdallagnol

    pfdallagnol Sem Pontuação

    Boa tarde,

    Existe a possibilidade de eu usar um PUT com um AT dinâmico?

    Ex:
    Código:
    PUT UNFORMAT tt-item-depos.saldo-atual    AT tt-item-depos.pos-coluna FORMAT '->>,>>>,>>9.99' SKIP.

    Agradeço!

    Abraço.
  2. Mokwa

    Mokwa Membro Participativo

    O exemplo que você montou já esta funcionando como você quer (acho).

    Código:
    DEFINE VARIABLE c AS CHARACTER  NO-UNDO.
    DEFINE VARIABLE i AS INTEGER    NO-UNDO.
    
    ASSIGN c = SESSION:TEMP-DIR + 'teste.txt'.
    
    DEFINE TEMP-TABLE tt-item-depos
        FIELD saldo-atual AS DECIMAL
        FIELD pos-colunas AS INTEGER.
    
    DO i = 1 TO 10:
        CREATE tt-item-depos.
        ASSIGN tt-item-depos.saldo-atual = 1  * i
               tt-item-depos.pos-colunas = 10 * i.
    END.
    
    OUTPUT TO VALUE(c).
    
    FOR EACH tt-item-depos:
        PUT UNFORMAT tt-item-depos.saldo-atual    AT tt-item-depos.pos-coluna FORMAT '->>,>>>,>>9.99' SKIP.
    END.
    
    OUTPUT CLOSE.
    
    OS-COMMAND SILENT VALUE(c).
    
  3. pfdallagnol

    pfdallagnol Sem Pontuação

    Sim, funcionou!

    Obrigado.
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página