RE: [sqr-users] Multiple Reports: Begin-Header not Breaking Properly (Using New-Reports)

["Bartlett, Dwain" <dbartlett@state.mt.us>]

You need to do a new-report $report-name before the first break.

Dwain Bartlett
SABHRS Services Bureau, ITSD
HR Systems Analyst
(406) 444-0418
dbartlett@state.mt.us


-----Original Message-----
From: Thompson, Carla [mailto:carla.thompson@gwl.com]
Sent: Tuesday, August 03, 2004 10:59 AM
To: sqr-users@sqrug.org
Subject: [sqr-users] Multiple Reports: Begin-Header not Breaking
Properly (Using New-Reports)


SQR/6.2/UNIX Sun/SunOS 5.6/Oracle 8.1.7/Oct 29 2001

We have an SQR Report that generates separate .pdf files for a Group.  We
use New-Report to specify the new report name to be used when the Group
Number Changes. 
  
I've added "Begin-Header" to create Headers at each page Break, however, the
reports are not "Breaking" properly.  The reports are being generated,
however, the .pdf file name is for Group #1, and the Detail within the
report is for Group #2. 

I can't figure out how to keep the output file name and internal data
information in sync.

Suggestions welcomed... code below.

Carla L. Thompson 
E-mail Carla.Thompson@gwl.com

Begin-Program
 Do Get_Group_Level
End-Program


BEGIN-PROCEDURE Get_Group_Level

!  Select Group Level Information
BEGIN-SELECT DISTINCT
T_GROUP_EXTRACT_KEY    &group_extract_key      ()  on-break  print=never
 LET $report_name = '/reports/grp_ins_by_pol_' || &group_number || '_' ||
datetostr(strtodate(&rpt_end_date,'Month DD, YYYY'),'YYYYMMDD') || '.pdf'
 New-Report $report_name
 Do Get_Detail
T_GROUP_NUMBER         &group_number
T_GROUP_USER_DESC      &group_user_desc
T_GROUP_POLICY_DATE    &group_policy_date
T_GROUP_DESC           &group_desc
T_RPT_END_DATE         &rpt_end_date
FROM TEMP_INS_TABLE
END-SELECT

END-PROCEDURE !Get_Group_Level


BEGIN-PROCEDURE Get_Detail

LET #tot_death_benefit = 0
LET #tot_cash_value = 0
LET #tot_surrender_value = 0
LET #tot_prem_paid_to_date = 0

BEGIN-SELECT
!  Select Detail Records for Group and Total Money Fields
 Alter-Printer Font=4 Point-Size=10
T_CONTRACT                    &policy_number   (+10,5,15)
T_INSURED_NAME                &insured_name     (+,69,35)
T_DEATH_BENEFIT               &death_benefit       (,248) edit
9,999,999,999,999.99pf
 LET #tot_death_benefit       = #tot_death_benefit + &death_benefit
T_TOTAL_ACCT_VAL              &cash_value          (,350) edit
9,999,999,999,999.99pf
 LET #tot_cash_value          = #tot_cash_value + &cash_value
T_CASH_SURRENDER              &surrender_value     (,452) edit
9,999,999,999,999.99pf
 LET #tot_surrender_value     = #tot_surrender_value + &surrender_value
T_TOTAL_DEPOSITS              &prem_paid_to_date   (,554) edit
9,999,999,999,999.99pf
 LET #tot_prem_paid_to_date   = #tot_prem_paid_to_date + &prem_paid_to_date
FROM TEMP_INS_TABLE
WHERE T_GROUP_EXTRACT_KEY = &group_extract_key
END-SELECT

Do Print_Group_Totals

END-PROCEDURE !Get_Detail

BEGIN-HEADING 216 !Display_Page_Headers
 Do Display_Group
 Do Heading_1
 Do Heading_2
END-HEADING   !Display_Page_Headers

_______________________________________________
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