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

Urgente: descobrir definições e dados de uma Temp-table

Discussão em 'Progress 4GL' iniciado por Celso V Alves, Dezembro 10, 2025.

  1. Celso V Alves

    Celso V Alves Sem Pontuação

    Bom dia!
    Tenho este etxtrado de código...

    define input parameter pTTName as character no-undo.
    define input parameter pProcName as character no-undo.
    define input-output parameter hDestTempTable as handle no-undo.

    define variable hTempTable as handle no-undo.
    define variable cProcName as character no-undo.
    define variable iCount as integer no-undo.

    do iCount = 1 TO TempTableInfo:TempTableCount:
    TempTableInfo:GetTableInfoByPosition( input iCount,
    output hTempTable,
    output cProcName) no-error.

    if VALID-HANDLE(hTempTable) and hTempTable:has-records and hTempTable:name = pTTName and cProcName matches pProcName then do:
    hDestTempTable:copy-temp-table(hTempTable, true, false, true).
    hTempTable:empty-temp-table().
    end.
    end.


    Preciso extrair para um .txt a estrutura e os dados da hTempTable.
    Aluguém pode me socorrer???
    Celso V Alves, Dezembro 10, 2025
    #1
  2. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Se ela for uma temp-table válida, dá pra usar o método WRITE-JSON

    hTempTable:WRITE-JSON("FILE","C:\Temp\hTempTable.json",TRUE).

    assim gera um JSON com os dados, somente se tiver pelo menos 1 registro
    rafael.andrade, Dezembro 10, 2025
    #2
  3. Celso V Alves

    Celso V Alves Sem Pontuação

    Bah! Agradeço! Já vou testar.
    Celso V Alves, Dezembro 10, 2025
    #3
    rafael.andrade curtiu isso.
  4. Celso V Alves

    Celso V Alves Sem Pontuação

    Resolveu de primeira!
    Celso V Alves, Dezembro 10, 2025
    #4
    rafael.andrade curtiu isso.
  5. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    eu uso direto, não com handle no seu caso, mas da temp-table direto, tipo:

    TEMP-TABLE ttMinhaTabela:WRITE-JSON("FILE","C:\Temp\ttMinhaTabela.json",TRUE).

    Quando já é handle direto, não precisa escrever TEMP-TABLE antes
    Última edição: Dezembro 10, 2025
    rafael.andrade, Dezembro 10, 2025
    #5

Compartilhe esta Página