[Date Prev][Date Next][Thread Prev][Thread Next]
[Author Index] [Date Index] [Thread Index]
[SQR-USERS Info] [SQRUG Home Page]

Re: Printing data on last sheet and at bottom of page.



Bob, the next-listing will not work because this is not being done in a
begin-select statement.  It is a separate procedure, designed to printed on
the bottom of the very last page.  There are other procedures that are
called during the program so it would be thought to put it in a select
statement.

Franck,  I tried adding this(below) to the first line of my procedure but
got SQR 3701 invalid command.

position=#sqr-max-lines -12
next-listing need 12
if position > #current-line
    new-page
end-if
next-listing
y-offset=position - #current-line
print  ' ' (y-offset,1)

What I am trying to print on the bottom of the last page.

BEGIN-PROCEDURE  signoff
graphic (+10,1,20) HORZ-LINE 15
    Print 'Work Order Completion Information' () center Bold
graphic (,22,37) box 1  15
graphic (,60,20)  HORZ-LINE 15
    print 'Problem ______________  Cause _________________ Remedy
______________________' (+2,1)
    print 'Do any steps or instructions need to be added or deleted? Did you
find any  ' (+2,1)
    print 'deficiencies. If so, please check box and write the information
on the back ' (+1,1)
    print 'and return a copy to Plant Maintenance Engineering.
_______________________'  (+1,1)
graphic (,76,2) box 1 15
    print 'Did you generate a follow-up Work Order?  Number ___________ Date
___/___/___' (+2,1)
    print 'Employee Number   Date    Start Time  End  Time  S/O/D  Notes'
(+2,1)
    print '______________  __/__/__  _____:____  ____:____  _____
_____________________' (+1,1)
    print '______________  __/__/__  _____:____  ____:____  _____
_____________________' (+1,1)
    print '______________  __/__/__  _____:____  ____:____  _____
_____________________' (+1,1)
    print '______________  __/__/__  _____:____  ____:____  _____
_____________________' (+1,1)
    print 'Manager/Supervisor Review: ___________________________  Date:
____/____/____' (+2,1)
END-PROCEDURE
Larry

-----Original Message-----
From: Franck Masson [mailto:franck.masson@BRIO.COM]
Sent: Wednesday, March 21, 2001 5:28 PM
To: SQR-USERS@list.iex.net
Subject: Re: Printing data on last sheet and at bottom of page.


hi,

you can try something like this. (if #current-line is what i think it
must work)

you know the maximum line in your page (#sqr-max-lines)
you know the current-line (#current-line)
you need 12 lines

position=#sqr-max-lines -12
next-listing need 12
if position > #current-line
        new page
endif
next-listing
y-offset=position - #current-line
print 'text ...' (y-offset,1)
print 'text1 ...' (+1,1)
...


franck,


Bob Helm wrote:
>
> As for the first part, I have a very similar need and no answer yet.
> As for the second part, I would try "next-listing need=12" instead of
> on-break.
>
> Bob Helm