sang1285
14th October 2014, 10:50
Hello Support,
i have a customized session wherein i want to force a page break before printing a layout based on space left.
I have tried page(), need(), changing lattr.pageno, new page , extra need
but nothing seems to be working.
Can someone please help:
I am posting the script below:
before.shpm.copy.5:
before.layout:
lattr.pageno = 1 |amenon.12102014.n
select tdsls400.* from tdsls400
where tdsls400._index1 = {:whinh431.worn}
selectdo
endselect
shpe.txtn = 0
dlvp.txtn = 0
select tttxt002.* from tttxt002
where tttxt002._index3 = {"2", "Shp "}
order by tttxt002._index3
selectdo
if strip$(tttxt002.kwd2) = str$(whinh431.worn) then
if isspace(tttxt002.kwd4) then
shpe.txtn = tttxt002.ctxt
endif
endif
endselect
select tttxt002.* from tttxt002
where tttxt002._index3 = {"2", "dlvp "}
order by tttxt002._index3
selectdo
if strip$(tttxt002.kwd2) = str$(whinh431.worn) then
if isspace(tttxt002.kwd4) then
dlvp.txtn = tttxt002.ctxt
endif
endif
endselect
before.shpm.copy.8:
before.layout:
if lattr.lineno >= 55 and lattr.lineno <= 75 then
page()
endif
| need(20)
detail.31:
before.layout:
item.shpe.txtn = 0
select tttxt002.* from tttxt002
where tttxt002._index3 = {"2", "Shp "}
order by tttxt002._index3
selectdo
if not isspace(tttxt002.kwd4) then
ret = string.scan(tttxt002.kwd4, "%d/ %d", posno1, seqno1)
else
posno1 = 0
seqno1 = 0
endif
if strip$(tttxt002.kwd2) = str$(whinh431.worn) and
whinh431.wpon = posno1 then
| if strip$(tttxt002.kwd4) = str$(whinh431.wpon) then
item.shpe.txtn = tttxt002.ctxt
| endif
endif
endselect
after.shpm.copy.1: |#78562-1.sn
after.layout:
lattr.pageno = 0 |#78562-1.en
Thanks in advance.
Sangeeta
i have a customized session wherein i want to force a page break before printing a layout based on space left.
I have tried page(), need(), changing lattr.pageno, new page , extra need
but nothing seems to be working.
Can someone please help:
I am posting the script below:
before.shpm.copy.5:
before.layout:
lattr.pageno = 1 |amenon.12102014.n
select tdsls400.* from tdsls400
where tdsls400._index1 = {:whinh431.worn}
selectdo
endselect
shpe.txtn = 0
dlvp.txtn = 0
select tttxt002.* from tttxt002
where tttxt002._index3 = {"2", "Shp "}
order by tttxt002._index3
selectdo
if strip$(tttxt002.kwd2) = str$(whinh431.worn) then
if isspace(tttxt002.kwd4) then
shpe.txtn = tttxt002.ctxt
endif
endif
endselect
select tttxt002.* from tttxt002
where tttxt002._index3 = {"2", "dlvp "}
order by tttxt002._index3
selectdo
if strip$(tttxt002.kwd2) = str$(whinh431.worn) then
if isspace(tttxt002.kwd4) then
dlvp.txtn = tttxt002.ctxt
endif
endif
endselect
before.shpm.copy.8:
before.layout:
if lattr.lineno >= 55 and lattr.lineno <= 75 then
page()
endif
| need(20)
detail.31:
before.layout:
item.shpe.txtn = 0
select tttxt002.* from tttxt002
where tttxt002._index3 = {"2", "Shp "}
order by tttxt002._index3
selectdo
if not isspace(tttxt002.kwd4) then
ret = string.scan(tttxt002.kwd4, "%d/ %d", posno1, seqno1)
else
posno1 = 0
seqno1 = 0
endif
if strip$(tttxt002.kwd2) = str$(whinh431.worn) and
whinh431.wpon = posno1 then
| if strip$(tttxt002.kwd4) = str$(whinh431.wpon) then
item.shpe.txtn = tttxt002.ctxt
| endif
endif
endselect
after.shpm.copy.1: |#78562-1.sn
after.layout:
lattr.pageno = 0 |#78562-1.en
Thanks in advance.
Sangeeta