Output stream

Discussão em 'Progress 4GL' iniciado por lucas.rodrigues, Junho 8, 2011.

  1. lucas.rodrigues

    lucas.rodrigues Sem Pontuação

    Boa tarde Srs.

    Estou com um problema na parte de criar dois relatórios utilizando apenas uma leitura na tabela.

    O programa compilado consegue gerar os dois relatórios, só que aparece os mesmos campos nos dois relatórios, sendo que os relatórios possuem campos diferentes.

    Agradeço desde já e fico no aguardo.
    lucas.rodrigues, Junho 8, 2011
    #1
  2. kirchner

    kirchner Membro Participativo Moderador

    Você definiu 2 streams apontando para arquivos diferentes e usa o nome do stream em cada operação de saída?
    kirchner, Junho 8, 2011
    #2
  3. Rodrigo Rossetto

    Rodrigo Rossetto Membro Participativo

    Está utilizando STREAM?

    Poste o código!

    Obs.: Utilize o botão Code em sua resposta, assim o código fica alinhado (tabulado).

    Exemplo:
    Código:
    DEFINE STREAM str-out1.
DEFINE STREAM str-out2.

OUTPUT STREAM str-out1 TO c:\texto1.txt NO-CONVERT.
OUTPUT STREAM str-out2 TO c:\texto2.txt NO-CONVERT.

FOR EACH nota-fiscal 
    FIELDS(cod-estabel
           serie 
           nr-nota-fis 
           vl-tot-nota 
           nome-ab-cli 
           no-ab-reppri 
           dt-emis-nota) NO-LOCK WITH STREAM-IO SCROLLABLE:

    DISPLAY STREAM str-out1 
        nota-fiscal.cod-estabel
        nota-fiscal.serie 
        nota-fiscal.nr-nota-fis 
        nota-fiscal.nome-ab-cli 
        nota-fiscal.vl-tot-nota.

    DISPLAY STREAM str-out1 
        nota-fiscal.cod-estabel
        nota-fiscal.serie 
        nota-fiscal.nr-nota-fis 
        nota-fiscal.no-ab-reppri
        nota-fiscal.vl-tot-nota.

END.

OUTPUT STREAM str-out1 CLOSE.
OUTPUT STREAM str-out2 CLOSE.
    Rodrigo Rossetto, Junho 8, 2011
    #3
  4. lucas.rodrigues

    lucas.rodrigues Sem Pontuação

    Obrigado pela atenção, segue abaixo o código do qual estava tentando compilar, como eu estou em treinamento não tenho uma noção avançada, por isso peço desculpas por qualquer erro básico que possa ocorrer.

    Código:
    DEF STREAM r1.
DEF STREAM r2.

OUTPUT STREAM r1 TO l-info3.rpt.
OUTPUT STREAM r2 TO l-bal3.rpt.

FOR EACH customer:
    
    DISP STREAM r1
                customer.cust-num
                customer.NAME
                customer.city
                customer.country
                WITH SCROLLABLE.

    DISP STREAM r2
                customer.cust-num
                customer.NAME
                customer.sales-rep
                customer.credit-limit
                customer.balance
        WITH SCROLLABLE.
END.

OUTPUT STREAM r1 CLOSE.
OUTPUT STREAM r2 CLOSE.

DOS SILENT START l-info3.rpt.
DOS SILENT START l-bal3.rpt.
    Agradeço desde já e fico no aguardo.
    lucas.rodrigues, Junho 9, 2011
    #4

Compartilhe esta Página