Gerar relatorio no terminal abrindo com o Bloco de Notas

[albasso]

Ola Pessoal,

Estou com a seguinte dúvida... estou gerando um relatorio porém tem a
opção para gerar no terminal, como faço para chamar o bloco de notas
para mostrar as informações.

Att,

Anderson.

[leonardo vieira]

Você esta dizendo que quando seleciona a opção terminal não aparece nada no bloco de notas ou não chama o bloco de notas.

2009/3/2 albasso <alb...@gmail.com>

--
Leonardo Vieira de Lima
Téc. em informática
tel: 051 81486532
           33074147
leona...@gmail.com

[albasso]

Na realidade gostaria de saber como faço para chamar o bloco de notas
pelo progress...

Att,

Anderson.

On 2 mar, 14:28, leonardo vieira <leonardo...@gmail.com> wrote:
> Você esta dizendo que quando seleciona a opção terminal não aparece nada no
> bloco de notas ou não chama o bloco de notas.
>

> 2009/3/2 albasso <alba...@gmail.com>

>
>
>
> > Ola Pessoal,
>
> > Estou com a seguinte dúvida... estou gerando um relatorio porém tem a
> > opção para gerar no terminal, como faço para chamar o bloco de notas
> > para mostrar as informações.
>
> > Att,
>
> > Anderson.
>
> --
> Leonardo Vieira de Lima
> Téc. em informática
> tel: 051 81486532
>            33074147

> leonardo...@gmail.com

[Jaime Dambros]

Existem outras maneiras, se quiser usar a que está abaixo, testei e funciona:

    DEF VAR cfile AS CHAR.

    cfile = SESSION:TEMP-DIRECTORY.

    SYSTEM-DIALOG GET-FILE cFile TITLE "Abre tudo" INITIAL-DIR cFile.

    

    FILE-INFO:FILE-NAME = cFile.

    IF FILE-INFO:FULL-PATHNAME <> ? THEN DO:

        OS-COMMAND NO-WAIT VALUE('"' + cFile  + '"' ).

    END.

        

Além disso abre qualquer coisa, até executável, o que é melhor pois irá abrir com o programa associado no windows, por exemplo se TXT estiver associado com o editpad, irá usar este ao invés do notepad.

2009/3/2 albasso <alb...@gmail.com>

--
Jaime Alex Dambros
Joinville - SC
Rural 63 (Cristaleira)  em reforma geral

[Wanderley S]

Outra maneira também é a seguinte:

 

RUN winexec (INPUT "C:\windows\notepad.exe " + chr(32) + c-nome-arquivo, INPUT 1).

 

/* procedures */
PROCEDURE WinExec EXTERNAL "kernel32.dll":U:
    DEF INPUT  PARAM prg_name                          AS CHARACTER.
    DEF INPUT  PARAM prg_style                         AS SHORT.
END PROCEDURE

O único inconveniente é que você precisa saber previamente a localização do Notepad.exe, o que torna o programa meio "engessado".

 

O bom dessa solução é que você pode executar qualquer executável a partir do progress.

 

Sds,

 

Wanderley.

 

2009/3/2 Jaime Dambros <jaime....@gmail.com>

"...aos loucos a sua impressão de bem-estar os leva à perdição." Pv 1.32b.

"Denunciei a fome como um flagelo fabricado pelos homens, contra outros homens".
Josué de Castro

[albasso]

Ok, porém como faço para encaixar esses códigos por exemplo nesta
estrutura de programa...

for each customer where
customer.cust-num >= tt-param.cod-ini and
customer.cust-num <= tt-param.cod-fim no-lock:


disp customer.cust-num
customer.name
with stream-io frame f-corp-ct.
down with frame f-corp-ct.

Att,

Anderson.

On 2 mar, 18:34, Wanderley S <wander...@gmail.com> wrote:
> Outra maneira também é a seguinte:
>
> RUN winexec (INPUT "C:\windows\notepad.exe " + chr(32) + c-nome-arquivo,
> INPUT 1).
>
> /* procedures */
> PROCEDURE WinExec EXTERNAL "kernel32.dll":U:
>     DEF INPUT  PARAM prg_name                          AS CHARACTER.
>     DEF INPUT  PARAM prg_style                         AS SHORT.
> END PROCEDURE
>
> O único inconveniente é que você precisa saber previamente a localização do
> Notepad.exe, o que torna o programa meio "engessado".
>
> O bom dessa solução é que você pode executar qualquer executável a partir do
> progress.
>
> Sds,
>
> Wanderley.
>

> 2009/3/2 Jaime Dambros <jaime.damb...@gmail.com>

>
>
>
> > Existem outras maneiras, se quiser usar a que está abaixo, testei e
> > funciona:
> >      DEF VAR cfile AS CHAR.
> >     cfile = SESSION:TEMP-DIRECTORY.
> >     SYSTEM-DIALOG GET-FILE cFile TITLE "Abre tudo" INITIAL-DIR cFile.
>
> >     FILE-INFO:FILE-NAME = cFile.
>
> >     IF FILE-INFO:FULL-PATHNAME <> ? THEN DO:
> >         OS-COMMAND NO-WAIT VALUE('"' + cFile  + '"' ).
> >     END.
>
> > Além disso abre qualquer coisa, até executável, o que é melhor pois irá
> > abrir com o programa associado no windows, por exemplo se TXT estiver
> > associado com o editpad, irá usar este ao invés do notepad.
>

> >  2009/3/2 albasso <alba...@gmail.com>

> --
> Abraço,
>
> Wanderley.
>
> "Nada baixa mais o nível da conversa do que elevar a voz".  Stanley Horowitz