Line spacing in same frame

jscarcella

New Member
Hello all,
I'm having a problem with this report, it works but I'd like to put a Line feed at the end of the "Product Line Total" and the
display
tr_addr name format "X(24)" tr_part tr_userid tr_effdate tr_so_job
tr_qty_req label "Qty Ordered"
disp_curr base_price label "Unit Price" ext_price
below.

the code is below: with the above text hilited.

for each tr_hist where (tr_part >= part and tr_part <= part1)
and (tr_prod_line >= prod_line and tr_prod_line <= prod_line1)
and (tr_effdate >= trdate and tr_effdate <= trdate1)
and (tr_addr >= addr and tr_addr <= addr1)
and (tr_so_job >= so_job and tr_so_job <= so_job1)
/*D002*/ and (tr_site >= site and tr_site <= site1)
and tr_type = "ORD-SO"
/*G1P6* and ((base_rpt = "base") */
/*G1P6*/ and ((base_rpt = "")
or (tr_curr = base_rpt))
use-index tr_eff_trnbr no-lock,
each cm_mstr where cm_addr = tr_addr and (cm_region >= region and cm_region
<= region1) no-lock
break by tr_prod_line by tr_part by tr_effdate with frame b no-box width 132:
if first-of(tr_prod_line) then do:
find pl_mstr where pl_prod_line = tr_prod_line no-lock no-error.
if available pl_mstr then do:
desc2 = pl_desc.
if page-size - line-counter < 3 then page.
if not summary then display with frame b.
else display with frame c.
/*jps*/ /* put "Product Line: " pl_prod_line
" " pl_desc.*/
end.
end.

base_price = tr_price.
disp_curr = "".
/*G1P6* if base_rpt <> "Base" */
/*G1P6*/ if base_rpt <> ""
and tr_curr <> base_curr then
base_price = base_price * tr_ex_rate.
/*G1P6* if base_rpt = "Base" */
/*G1P6*/ if base_rpt = ""
and tr_curr <> base_curr then
disp_curr = "Y".
ext_price = tr_qty_req * base_price.
gr_margin = tr_price - tr_mtl_std - tr_lbr_std
- tr_bdn_std - tr_ovh_std - tr_sub_std.
/*G1P6* if base_rpt <> "Base" */
/*G1P6*/ if base_rpt <> ""
and tr_curr <> base_curr then
gr_margin = gr_margin * tr_ex_rate.
ext_gr_margin = tr_qty_req * gr_margin.

accumulate ext_gr_margin (total by tr_prod_line by tr_part).
accumulate tr_qty_req (total by tr_prod_line by tr_part).
accumulate ext_price (total by tr_prod_line by tr_part).

find pt_mstr where pt_part = tr_part no-lock no-wait no-error.

if not summary then do:
name = "".
find ad_mstr where ad_addr = tr_addr no-lock no-wait no-error.
if available ad_mstr then name = ad_name.

if first-of(tr_part) then do:
if page-size - line-counter < 4 then page.
/*jps*/ /* display.*/
/*jps*/ /* put "Item: " tr_part " ".*/
/*jps*/ /* if available pt_mstr then put pt_desc1 " " pt_desc2.*/
/*jps*/ /* put " UM: " tr_um
/*F774*/ skip.*/
end.

if page-size - line-counter < 3 then page.
display
tr_addr name format "X(24)" tr_part tr_userid tr_effdate tr_so_job
tr_qty_req label "Qty Ordered"
disp_curr base_price label "Unit Price" ext_price
.

/*jps*/ /* /*F358*/ if show_rev then put space(9)
"Revision: " tr_ord_rev
/*J2JY** " Userid: " tr_userid */
/*J2JY*/ " User ID: " tr_userid
/*F774*/ skip.*/

if last-of(tr_part) then do:
if page-size - line-counter < 2 then page.
underline tr_qty_req ext_price with frame b.

display "Item Total:" @ name
accum total by tr_part (tr_qty_req) @ tr_qty_req
accum total by tr_part (ext_price) @ ext_price with frame b.
/*jps*/ /* accum total by tr_part (ext_gr_margin) @ ext_gr_margin with
frame b.*/
end.

if last-of(tr_prod_line) then do:
if page-size - line-counter < 2 then page.
underline tr_qty_req ext_price with fram b.

display "Product Line Total:" @ name
accum total by tr_prod_line (tr_qty_req) @ tr_qty_req
accum total by tr_prod_line (ext_price) @ ext_price.
/*jps*/ /* accum total by tr_prod_line (ext_gr_margin) @ ext_gr_margin.*/
end.

if last(tr_prod_line) then do:
if page-size - line-counter < 2 then page.
underline tr_qty_req ext_price.

display "Report Total:" @ name
accum total (tr_qty_req) @ tr_qty_req
accum total (ext_price) @ ext_price.
/*jps*/ /*accum total (ext_gr_margin) @ ext_gr_margin.*/
end.
end. /* not summary */

Thank You in Advance

John
 
Top