doni_foundation
1st May 2013, 05:08
Dear all,
i wanna ask something, i create form purchase requisition
when i try to print out, there's always a space between item detail
the print like this
------------------------------
1 book 20
2 book 20
------------------------------
it should be
------------------------------
1 book 20
2 book 20
------------------------------
i want there is no space between item in detail
help me please..
this is my code
select tcibd001.*
from tcibd001
where tcibd001.item = {:tdpur201.item}
selectdo
temp.dsca1 = tcibd001.dsca(1;20)
temp.dsca2 = tcibd001.dsca(21;10)
select tdpcg031.*
from tdpcg031
where tdpcg031.item = {:tdpur201.item}
selectdo
select sum(whinp100.qana):soonhand
from whinp100
where whinp100.item = {:tdpur201.item}
and whinp100.koor = 3
and whinp100.kotr = 2
group by whinp100.item
selectdo
select tcibd100.*
from tcibd100
where tcibd100.item = {:tdpur201.item}
selectdo
select tdsls401.*
from tdsls401
where tdsls401.item = {:tdpur201.item}
selectdo
select
sum(tdsls406.qnvc):temp.qnvc
from tdsls406
where tdsls406.orno = {:tdpur401.orno}
selectdo
on case mm.invd <> 00
case (mm.invd - 3):
temp.3months = temp.qnvc/3
break
case (mm.invd - 6):
temp.6months = temp.qnvc/6
break
endcase
endselect
endselect
endselect
endselect
endselect
endselect
i wanna ask something, i create form purchase requisition
when i try to print out, there's always a space between item detail
the print like this
------------------------------
1 book 20
2 book 20
------------------------------
it should be
------------------------------
1 book 20
2 book 20
------------------------------
i want there is no space between item in detail
help me please..
this is my code
select tcibd001.*
from tcibd001
where tcibd001.item = {:tdpur201.item}
selectdo
temp.dsca1 = tcibd001.dsca(1;20)
temp.dsca2 = tcibd001.dsca(21;10)
select tdpcg031.*
from tdpcg031
where tdpcg031.item = {:tdpur201.item}
selectdo
select sum(whinp100.qana):soonhand
from whinp100
where whinp100.item = {:tdpur201.item}
and whinp100.koor = 3
and whinp100.kotr = 2
group by whinp100.item
selectdo
select tcibd100.*
from tcibd100
where tcibd100.item = {:tdpur201.item}
selectdo
select tdsls401.*
from tdsls401
where tdsls401.item = {:tdpur201.item}
selectdo
select
sum(tdsls406.qnvc):temp.qnvc
from tdsls406
where tdsls406.orno = {:tdpur401.orno}
selectdo
on case mm.invd <> 00
case (mm.invd - 3):
temp.3months = temp.qnvc/3
break
case (mm.invd - 6):
temp.6months = temp.qnvc/6
break
endcase
endselect
endselect
endselect
endselect
endselect
endselect