1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.
  2. Anuncie Aqui
    Anuncie aqui você Também: fdantas@4each.com.br

Extent em tabale temporária.

Discussão em 'Progress 4GL' iniciado por WolffTI, Abril 2, 2012.

  1. WolffTI

    WolffTI Sem Pontuação

    Bom dia senhores,

    Eu precisava criar um extent em campos de uma tabela temporária, é possível?
    Tenho tentado mas não está funcionando.

    Grato,
  2. jdchaves

    jdchaves Membro Participativo

    bom dia
    veja se é isso que vc esta tentando fazer.

    Código:
    DEFINE TEMP-TABLE tt-movto-estoque NO-UNDO
        FIELD ge-codigo       LIKE item.ge-codigo
        FIELD desc-grupo      LIKE grup-estoque.descricao
        FIELD it-codigo       LIKE item.it-codigo
        FIELD desc-item       LIKE ITEM.desc-item
        FIELD tipo-trans      LIKE movto-estoq.tipo-trans
        FIELD dt-trans        LIKE movto-estoq.dt-trans
        FIELD hr-trans        LIKE movto-estoq.hr-trans
        FIELD nro-docto       LIKE movto-estoq.nro-docto
        FIELD cod-emitente    LIKE movto-estoq.cod-emitente
        FIELD nome-emit       LIKE emitente.nome-emit
        FIELD quantidade      LIKE movto-estoq.quantidade
        FIELD oc              LIKE movto-estoq.numero-ordem
        FIELD un              LIKE movto-estoq.un
        FIELD cod-depos       LIKE movto-estoq.cod-depos
        FIELD nome-depos      LIKE deposito.nome
        FIELD nat-operacao    LIKE movto-estoq.nat-operacao
        FIELD denomin-nat-opr LIKE natur-oper.denominacao
        FIELD valor-nota      LIKE movto-estoq.valor-nota
        FIELD teste           AS CHAR EXTENT 3                          /********EXTENT*********/
        INDEX chFamilia ge-codigo .
    
    CREATE tt-movto-estoque.
    ASSIGN tt-movto-estoque.ge-codigo       = 1 .
    assign      tt-movto-estoque.desc-grupo      = 'teste'  .
    assign      tt-movto-estoque.it-codigo       = '0.30.600'  .
    assign      tt-movto-estoque.desc-item       = 'item A'  .
    assign      tt-movto-estoque.tipo-trans      = 1 .
    assign      tt-movto-estoque.dt-trans        = TODAY  .
    assign      tt-movto-estoque.hr-trans        = ''  .
    assign      tt-movto-estoque.nro-docto       = "111"   .
    assign      tt-movto-estoque.cod-emitente    = 3 .
    assign      tt-movto-estoque.nome-emit       = 'Mesbla - SP'  .
    assign      tt-movto-estoque.quantidade      = 100   .
    assign      tt-movto-estoque.oc              = 10   .
    assign      tt-movto-estoque.un              = 'PC'  .
    assign      tt-movto-estoque.cod-depos       = "1"   .
    assign      tt-movto-estoque.nome-depos      = ''  .
    assign      tt-movto-estoque.nat-operacao    = ''  .
    assign      tt-movto-estoque.denomin-nat-opr = ''  .
    assign      tt-movto-estoque.valor-nota      = 1   .
    assign      tt-movto-estoque.teste[1]        = 'testando'.
    
    DISP tt-movto-estoque WITH 1 COL WIDTH 320.
    
    
  3. WolffTI

    WolffTI Sem Pontuação

    Era exatamente isso.
    A minha duvida pairava sob o fato de que por exemplo, caso todos os campos da minha tabela temporária tenham extent [3], se eu poderia jogar a função na própria tabela, como se eles criasse 3 tabelas, ao invés de ter que dar extent em cada campo da tabela temporária.

    Mesmo assim brigadão.

Compartilhe esta Página