Joel J.J. Heber
New Member
OK here is some of my code.......
IN CHUI of course
/* Prepare report column headings*/
OUTPUT TO VALUE(ws-report-dump) APPEND .
PUT UNFORMATTED CHR(10) barred-lines CHR(10) CHR(10)
"Product-ID: " Prod_ID CHR(9)
"Description: " Desc_1 CHR(10) CHR(10).
OUTPUT CLOSE.
OUTPUT TO VALUE(ws-report-dump) APPEND .
PUT UNFORMATTED
CHR(9) "RECEIVED QTY-LEFT UNIT-COST COST-LEFT " CHR(10) CHR(10) CHR(9) CHR(32) .
OUTPUT CLOSE.
OUTPUT TO VALUE(ws-report-dump) APPEND .
FOR EACH fifo-tbl where tmp-prod-recno = rpt_piece3.
PUT
tmp-trans-date
tmp-qty-left
tmp-cost-unit CHR(9)
tmp-cost-left CHR(10)
.
END.
OUTPUT CLOSE.
OUTPUT TO VALUE(ws-report-dump) APPEND .
PUT UNFORMATTED
CHR(10) "Quantity Left" CHR(9)
" Total INV Cost" CHR(9)
" Average Cost"
CHR(10) "************* ************* ************"
CHR(10) CHR(9) qty_left CHR(9) CHR(9)
CHR(9) cost_left CHR(9) CHR(9)
CHR(9) avg_cost CHR(10).
OUTPUT CLOSE.
FOR EACH po-trans-d
WHERE po-trans-d.prod-recno = rpt_piece3
AND COMPLETE <> yes AND trans-code = "OR".
ASSIGN request-date = po-trans-d.request-date.
ASSIGN promise-date = po-trans-d.promise-date.
ASSIGN order-qty = po-trans-d.order-qty.
ASSIGN landed-cost = po-trans-d.landed-cost.
OUTPUT TO VALUE(ws-report-dump) APPEND .
PUT UNFORMATTED
CHR(10)
CHR(10)
CHR(9) "REQUEST PROMISE QTY LANDED-COST " CHR(10) CHR(10) CHR(9) CHR(32) .
OUTPUT CLOSE.
OUTPUT TO VALUE(ws-report-dump) APPEND .
PUT UNFORMATTED
request-date CHR(9)
promise-date CHR(9)
order-qty CHR(9)
landed-cost.
OUTPUT CLOSE.
qty_left = qty_left + order-qty.
cost_left = cost_left + landed-cost.
avg_cost = cost_left / qty_left.
OUTPUT TO VALUE(ws-report-dump) APPEND .
PUT UNFORMATTED
CHR(10) "Proj. Qty " CHR(9)
" Proj. INV Cost" CHR(9)
" Proj. Cost"
CHR(10) "************* ************* ************"
CHR(10) CHR(9) qty_left CHR(9) CHR(9)
CHR(9) cost_left CHR(9) CHR(9)
CHR(9) avg_cost CHR(10).
OUTPUT CLOSE.
NOW HOW THE HELL DO I MAKE THE HEADINGS BOLD.....OR CHANGE FONT.
I print with:
page ./fifo-rpt | lp -dhp1 -o compress
I don't know how to make my headings bigger and bold.....this would make the report a lots more readable.
Thanks.
Joel
:chat:
IN CHUI of course
/* Prepare report column headings*/
OUTPUT TO VALUE(ws-report-dump) APPEND .
PUT UNFORMATTED CHR(10) barred-lines CHR(10) CHR(10)
"Product-ID: " Prod_ID CHR(9)
"Description: " Desc_1 CHR(10) CHR(10).
OUTPUT CLOSE.
OUTPUT TO VALUE(ws-report-dump) APPEND .
PUT UNFORMATTED
CHR(9) "RECEIVED QTY-LEFT UNIT-COST COST-LEFT " CHR(10) CHR(10) CHR(9) CHR(32) .
OUTPUT CLOSE.
OUTPUT TO VALUE(ws-report-dump) APPEND .
FOR EACH fifo-tbl where tmp-prod-recno = rpt_piece3.
PUT
tmp-trans-date
tmp-qty-left
tmp-cost-unit CHR(9)
tmp-cost-left CHR(10)
.
END.
OUTPUT CLOSE.
OUTPUT TO VALUE(ws-report-dump) APPEND .
PUT UNFORMATTED
CHR(10) "Quantity Left" CHR(9)
" Total INV Cost" CHR(9)
" Average Cost"
CHR(10) "************* ************* ************"
CHR(10) CHR(9) qty_left CHR(9) CHR(9)
CHR(9) cost_left CHR(9) CHR(9)
CHR(9) avg_cost CHR(10).
OUTPUT CLOSE.
FOR EACH po-trans-d
WHERE po-trans-d.prod-recno = rpt_piece3
AND COMPLETE <> yes AND trans-code = "OR".
ASSIGN request-date = po-trans-d.request-date.
ASSIGN promise-date = po-trans-d.promise-date.
ASSIGN order-qty = po-trans-d.order-qty.
ASSIGN landed-cost = po-trans-d.landed-cost.
OUTPUT TO VALUE(ws-report-dump) APPEND .
PUT UNFORMATTED
CHR(10)
CHR(10)
CHR(9) "REQUEST PROMISE QTY LANDED-COST " CHR(10) CHR(10) CHR(9) CHR(32) .
OUTPUT CLOSE.
OUTPUT TO VALUE(ws-report-dump) APPEND .
PUT UNFORMATTED
request-date CHR(9)
promise-date CHR(9)
order-qty CHR(9)
landed-cost.
OUTPUT CLOSE.
qty_left = qty_left + order-qty.
cost_left = cost_left + landed-cost.
avg_cost = cost_left / qty_left.
OUTPUT TO VALUE(ws-report-dump) APPEND .
PUT UNFORMATTED
CHR(10) "Proj. Qty " CHR(9)
" Proj. INV Cost" CHR(9)
" Proj. Cost"
CHR(10) "************* ************* ************"
CHR(10) CHR(9) qty_left CHR(9) CHR(9)
CHR(9) cost_left CHR(9) CHR(9)
CHR(9) avg_cost CHR(10).
OUTPUT CLOSE.
NOW HOW THE HELL DO I MAKE THE HEADINGS BOLD.....OR CHANGE FONT.
I print with:
page ./fifo-rpt | lp -dhp1 -o compress
I don't know how to make my headings bigger and bold.....this would make the report a lots more readable.
Thanks.
Joel



