RE: [sqr-users] Page break issue

[Darshil Mehta <darshilm@yahoo.com>]

Thanks for the prompt respose.

But where in main-logic I have to add new-page?

My program produces two type of outputs. .XLS & .HTML.

In .xls, there break comes properly after each
customer code but in .html it does not.

Thanx in advance....

Darshil

--- "Bartlett, Dwain" <dbartlett@state.mt.us> wrote:
> Do a new-page in your main-logic procedure, this
> will solve your problem.
> 
> Dwain Bartlett
> SABHRS Services Bureau, ITSD
> HR Systems Analyst
> (406) 444-0418
> dbartlett@state.mt.us
> 
> 
> -----Original Message-----
> From: Darshil Mehta [mailto:darshilm@yahoo.com]
> Sent: Monday, June 07, 2004 7:35 AM
> To: sqr-users@sqrug.org
> Subject: [sqr-users] Page break issue
> 
> 
> Hi,
> 
> I have following requirement;
> 
> If user enters ALL as corp code, system will display
> heading as Corp : ALL
> 
> And If user enters multiple corp code using comma,
> then system has to display corp description on each
> page. New corp description will be displayed on new
> page.
> 
> I have used New-Page function of SQR. This is giving
> me proper result. But I always get 1st page blank.
> 
> Here's my code. Can anyone help? 
> 
> ------------------------------------------------
>   use-procedure before-page=print_local_headings
> 
> do main_logic                                 
> 
> begin-procedure main_logic                    
>   do write_file_headings
> 
>   do main_query
> 
> end-procedure !main_logic
> 
> begin-select on-error=record_sql_error
> ($sql-error,'MAJOR',$sql_report,'main_query')
> crmserv.descr         &desc=char ()  on-break
> level=1
> print=never before=comp_proc 
> crmserv.priority      &priority
> crmserv.open          &open=NUMBER
> crmserv.inprogress    &inprogress=NUMBER
> crmserv.pending       &pending=NUMBER
> crmserv.closed        &closed=NUMBER
> crmserv.cancelled     &cancelled=NUMBER
> crmserv.otherstat     &otherstat=NUMBER
> 
>   move  &desc              to $desc
>   move  &priority          to $priority
>   move  &open              to $open
>   move  &inprogress        to $inprogress
>   move  &pending           to $pending
>   move  &closed            to $closed
>   move  &cancelled         to $cancelled
>   move  &otherstat         to $otherstat
> 
>   add 1 to #llopp
> 
>   add &open        to #opentot
>   add &inprogress  to #inprogresstot
>   add &pending     to #pendingtot
>   add &closed      to #closedtot
>   add &cancelled   to #cancelledtot
>   add &otherstat   to #otherstattot
> 
>   do write_file_detail
> 
>   do print_report_detail
> from 
> [$from_clause]
> where 1=1
> end-select
>   do write_file_summary
> end-procedure ! main_query
> 
> 
>    
> begin-procedure print_local_headings
>   let $col0_label    = 'Customer Name: ' || &desc 
>   let #col0_column    = 2
>   alter-printer font=3 point-size=8
>   if $report_section = 'REPORT'
>     let #report_box_width = (#report_width + 3)
>     graphic (0,1,#report_box_width) box
> #local_heading_height 10 16 
>     evaluate $report_section
>       when = 'REPORT'
>         print $col0_label  (1,#col0_column,0) bold 
>         print $col1_label  (+1,#col1_column,0)
>         print $col2_label  (0,#col2_column,0)
>         print $col3_label  (0,#col3_column,0)  
>         print $col4_label  (0,#col4_column,0)
>         print $col5_label  (0,#col5_column,0)  
>         print $col6_label  (0,#col6_column,0)
>         print $col7_label  (0,#col7_column,0) 
>         break
>       when-other
>         break
>     end-evaluate
>     let #report_start_position =
> #local_heading_height
> + 1
>     position (#report_start_position,1)
>     let #report_box_width = (#report_width + 3)
>     let #main_report_height = 40 -
> #local_heading_height
>     graphic (0,1,#report_box_width) box
> #main_report_height 10 1
>     alter-printer font=3 point-size=8
>   end-if
> end-procedure ! local_headings
> 
>    
> begin-procedure comp_proc
>   write 1 from 'Company : ' &desc 
>   new-page
> end-procedure !cust_count
> 
> ------------------------------------------- 
> 
> Thanks in advance....
> 
> Darshil
> 
> 
>       
>               
> __________________________________
> Do you Yahoo!?
> Friends.  Fun.  Try the all-new Yahoo! Messenger.
> http://messenger.yahoo.com/ 
> 
> _______________________________________________
> sqr-users mailing list
> sqr-users@sqrug.org
> http://www.sqrug.org/mailman/listinfo/sqr-users
> 
> _______________________________________________
> sqr-users mailing list
> sqr-users@sqrug.org
> http://www.sqrug.org/mailman/listinfo/sqr-users



        
                
__________________________________
Do you Yahoo!?
Friends.  Fun.  Try the all-new Yahoo! Messenger.
http://messenger.yahoo.com/ 

_______________________________________________
sqr-users mailing list
sqr-users@sqrug.org
http://www.sqrug.org/mailman/listinfo/sqr-users