DE D , schoolrepE01--92DE DE DATABASE zawod MAIN DEFINE zapisx record like kadry.* DEFINE simw char (200), zapr char (300),fn char (18) OPEN form maxprim from "maxprim" DISPLAY form maxprim # CONSTRUCT BY NAME simw ON kadry.* # # LET zapr="select * from kadry where ", simw clipped," order by tabnom " MESSAGE simw PREPARE selpr FROM zapr # DECLARE qquer CURSOR FOR selpr # DISPLAY " CTRL-O" AT 2,40 PROMPT ", ? CR, : " FOR fn IF length(fn)=0 then START REPORT kadryrep # else START REPORT kadryrep TO fn # END IF # FOREACH qquer into zapisx.* # OUTPUT TO REPORT kadryrep(zapisx.*) # END FOREACH FINISH REPORT kadryrep # END MAIN REPORT kadryrep(z) DEFINE nameceh like ceh.nameceh DEFINE z record like kadry.* # nomerceh int, # # tabnom serial, # . # fio char(20), # # dolvn char(20), # # zarplata money(16,2), # # datarovd date # . OUTPUT left margin 0 right margin 80 top margin 0 bottom margin 0 page length 23 ORDER BY z.nomerceh, z.tabnom # FORMAT PAGE HEADER print "-------------------------------------------------------" print "|.| | || " print "_______________________________________________________" ON EVERY ROW print z.nomerceh using "##", column 4,z.tabnom using "#####", column 13,z.fio clipped, column 28,z.dolvn clipped, column 43,z.zarplata using "$####.##", column 53,z.datarovd using "dd-mm-yyyy" BEFORE GROUP OF z.nomerceh select @nameceh into nameceh from ceh where nomerceh=z.nomerceh skip to top of page skip 1 line print " ",nameceh skip 1 line AFTER GROUP OF z.nomerceh need 2 lines print " ",nameceh clipped,2 spaces, group count(*) using "#####" ," , " print " ", group avg(z.zarplata) using "##### .## " PAGE TRAILER print " ", pageno pause " " END REPORT : , , CR, : CONTROL-O [1:4] [ ] . [ ] [* ] [ ] [>500 ] [ ] nomerceh between 1 and 4 and fio matches "**" and zarplata>500 --------------------------------------------------------------- |.| | || _______________________________________________________________ 1 34 $ 4000.00 1 35 . $ 4000.00 2 , 4000 .00 1 --------------------------------------------------------------- |.| | || _______________________________________________________________ 2 12 $ 2000.00 2 14 $ 2000.00 2 18 $ 2000.00 2 21 $ 2000.00 2 24 $ 2000.00 5 , 2000 .00 2 --------------------------------------------------------------- |.| | || _______________________________________________________________ 4 9 $ 1230.00 4 12 $ 2000.00 2 , 1615 .00 3