Re: Help !! I dont understanding on break in my report.

[John Milardovic <milardj@SX.COM>]

Use:

Begin-Program
Begin-Select
codgrupo () on-break print=never before=q_grupo
codproduto (,15)
produto      (,28)

                position (+1)

>From    produtos
where   coddepartamento         =       1
and             codsecao        =       8
and             codclasse               =       168
order           by codgrupo
End-Select
End-Program

begin-procedure q_grupo
        print   'Grupo'         (+1,1)
        print   &codgrupo               (,10)
end-procedure


> -----Original Message-----
> From: Ronaldo Delmar M. Fernandes [SMTP:ronaldo@ZAFFARI.COM.BR]
> Sent: Wednesday, July 05, 2000 5:35 PM
> To:   SQR-USERS@list.iex.net
> Subject:      Help !! I dont understanding on break in my report.
>
> look the follow code.
>
> Begin-Program
> Begin-Select
> codgrupo
> codproduto
> produto
>                 print   &codgrupo               (,10)   On-Break procedure
> =
> q_grupo
>                 print   &codproduto     (,15)
>                 print   &produto        (,28)
>
>                 next-listing
>
> From    produtos
> where   coddepartamento         =       1
> and             codsecao        =       8
> and             codclasse               =       168
> order           by codgrupo
> End-Select
> End-Program
>
> begin-procedure q_grupo
>         print   'Grupo'         (+1,1)
> end-procedure
>
> and look the result
>
>         1       189             cerveja tipo1
>                 502             cerveja brahma
>                 924             cerveja skol
>                 1223            cerveja polar
>
> grupo   5       242105          cerveja nortenha
>                 6423            cerveja itaipava
>
> grupo   10      131484          cerveja kroneibier
>                 2368            cerveja tipo 2
>                 4525            cerveja tipo 3
>                 1568            cerveja tipo 99
>
>
> why in the first time the string grupo not printed if &codgrupo printed ?