hai all
i write the program its script. i create the Z-Table also for it name"zvoucher" ... normally that program execute we can see the print window...now i can print form and print preview... i want to print only one time in each document number. plz tel me how should i do it.... ???? AND how should i recognized "print command "and "print preview " command?
my program is below.
*&----
*
*& Report ZFORM1
*&
*&----
*
*&
*&
*&----
*
report zform1_p.
*PARAMETERS:P_VBLNR LIKE REGUH-VBLNR.
*PARAMETERS:Payment Document No LIKE REGUH-VBLNR.
tables: reguh,
regup,
bseg,
skat,
payr,
zvoucher. " ztable
parameters : p_vblnr like reguh-vblnr obligatory.
parameters : p_gjahr like bseg-gjahr obligatory.
parameters : p_bukrs like bseg-bukrs default 'EPFD'.
parameters : p_fil type payr-zanre.
parameters : p_bud type payr-zanre.
data: z_vblnr like reguh-vblnr.
z_vblnr = p_vblnr.
data n1 type i.
data scarr_wa type zvoucher.
data :w_anum like zvoucher-anum,
w_anum_n like zvoucher-anum,
w_val like zvoucher-anum.
*DATA: CRAMT TYPE P DECIMALS 2,
DRAMT TYPE P DECIMALS 2,
TOTCR TYPE P DECIMALS 2,
TMP_WORDS TYPE STRING,
TOTDR TYPE P DECIMALS 2.
data: cramt like bseg-dmbtr,
dramt like bseg-dmbtr,
totcr like bseg-dmbtr,
tmp_words type string,
totdr like bseg-dmbtr.
data: somme type p.
data: i_tab like reguh occurs 0 with header line.
data: i_tab1 like payr occurs 0 with header line.
data: i_tab2 like bseg occurs 0 with header line.
data: i_tab3 like skat occurs 0 with header line.
data: i_tab4 like regup occurs 0 with header line.
data: i_inwords like spell occurs 0 with header line.
types :begin of ty_tab,
anum like zvoucher-anum,
pr like zvoucher-pr,
vblnr like zvoucher-vblnr,
gjahr like zvoucher-gjahr,
end of ty_tab.
data : it_tab type standard table of ty_tab,
wa_tab type ty_tab.
select * from reguh where vblnr = p_vblnr.
move-corresponding reguh to i_tab.
append i_tab.
endselect.
select * from payr where vblnr = p_vblnr
and gjahr = p_gjahr.
move-corresponding payr to i_tab1.
append i_tab1.
endselect.
select * from bseg where belnr = p_vblnr
and gjahr = p_gjahr.
move-corresponding bseg to i_tab2.
append i_tab2.
endselect.
select * from regup where vblnr = p_vblnr
and gjahr = p_gjahr.
move-corresponding regup to i_tab4.
append i_tab4.
endselect.
call function 'OPEN_FORM'
exporting
form = 'ZPAY_VOUCHER_P'
device = 'PRINTER'.
call function 'START_FORM'.
*CALL FUNCTION 'WRITE_FORM'
*EXPORTING
*window = 'HEADER'.
call function 'WRITE_FORM'
exporting
element = 'ITEM_HEADER'
window = 'MAIN'.
loop at i_tab.
p_vblnr = i_tab.
read table i_tab1 with key vblnr = p_vblnr.
dramt = 0.
cramt = 0.
totdr = 0.
totcr = 0.
loop at i_tab2.
bseg = i_tab2.
somme = 0.
select * from skat where saknr = i_tab2-hkont.
move-corresponding skat to i_tab3.
append i_tab3.
endselect.
if bseg-bschl = '25'.
dramt = bseg-dmbtr.
totdr = totdr + dramt.
cramt = 0.
endif.
if bseg-bschl = '50'.
cramt = bseg-dmbtr.
totcr = totcr + cramt.
dramt = 0.
endif.
read table i_tab3 with key saknr = i_tab2-hkont.
**Insert Data Into the ZTABLE.
select single anum from zvoucher into w_val
where vblnr = z_vblnr.
scarr_wa-anum = w_val.
if w_val = ''.
select max( anum ) from zvoucher into w_anum.
w_anum_n = w_anum + 1.
scarr_wa-anum = w_anum_n.
scarr_wa-vblnr = i_tab-vblnr.
scarr_wa-gjahr = i_tab2-gjahr.
insert into zvoucher values scarr_wa.
endif.
call function 'WRITE_FORM'
exporting
element = 'ITEM_DETAIL1'
function = 'APPEND'
window = 'MAIN'.
endloop.
call function 'WRITE_FORM'
exporting
element = 'TOTAL_1'
window = 'MAIN'.
endloop.
call function 'WRITE_FORM'
exporting
element = 'ITEM_HEADER1'
window = 'MAIN'.
dramt = 0.
cramt = 0.
totdr = 0.
totcr = 0.
loop at i_tab4.
regup = i_tab4.
somme = 0.
clear i_tab2[].
select * from bseg where belnr = i_tab4-belnr.
move-corresponding bseg to i_tab2.
append i_tab2.
endselect.
loop at i_tab2.
bseg = i_tab2.
somme = 0.
clear i_tab3[].
select * from skat where saknr = i_tab2-hkont.
move-corresponding skat to i_tab3.
append i_tab3.
endselect.
read table i_tab3 with key saknr = i_tab2-hkont.
if bseg-bschl = '40'.
dramt = bseg-dmbtr.
totdr = totdr + dramt.
cramt = 0.
endif.
if bseg-bschl = '31'.
cramt = bseg-dmbtr.
totcr = totcr + cramt.
dramt = 0.
endif.
call function 'WRITE_FORM'
exporting
element = 'ITEM_DETAIL2'
function = 'APPEND'
window = 'MAIN'.
endloop.
endloop.
call function 'WRITE_FORM'
exporting
element = 'TOTAL_2'
window = 'MAIN'.
call function 'SPELL_AMOUNT'
exporting
amount = totcr
currency = 'LKR '
language = sy-langu
importing
in_words = i_inwords
exceptions
not_found = 1
too_large = 2
others = 3 .
if i_inwords-decword = 'ZERO'.
concatenate i_inwords-word 'Only' into tmp_words
separated by space.
else.
concatenate i_inwords-word 'AND CENTS' i_inwords-decword 'ONLY' into
tmp_words separated by space.
endif.
call function 'WRITE_FORM'
exporting
element = 'ITEM_END'
window = 'MAIN'.
call function 'END_FORM'.
call function 'CLOSE_FORM'.
regard
nawa
Bluesky
