Re: print program error

Former Member — Thu, 24 Aug 2006 03:42:00 GMT

Hi Ravi,

here i attached my code. can u go through it and suggest me..itz very urgent for me.

thanks wil reward the points

report zar0020." LINE-SIZE 80 LINE-COUNT 65 NO STANDARD PAGE HEADING.

*----

Release : ECC 5.0
Module : FI-AR

Description : This program will print Tax Invoice on A4
paper

************************************************************************

T A B L E S *

************************************************************************

tables: t001,

bkpf,

kna1,

bsik,

tcurx.

************************************************************************

S E L E C T I O N S C R E E N *

************************************************************************

selection-screen begin of block bl1 with frame title text-101.

parameters: p_bukrs like t001-bukrs memory id buk obligatory,

p_gjahr like bkpf-gjahr default sy-datum(4).

select-options: s_monat for bkpf-monat default sy-datum+4(2),

s_kunnr for kna1-kunnr,

s_lifnr for bsik-lifnr,

s_blart for bkpf-blart,

s_belnr for bkpf-belnr memory id bln,

s_budat for bkpf-budat,

s_bldat for bkpf-bldat,

s_cpudt for bkpf-cpudt.

selection-screen end of block bl1.

selection-screen begin of block bl2 with frame title text-102.

parameters: p_hkont as checkbox.

selection-screen end of block bl2.

selection-screen begin of block bl3 with frame title text-103.

parameters: p_inter as checkbox.

selection-screen end of block bl3.

selection-screen begin of block bl4 with frame title text-104.

parameters: p_rep as checkbox.

selection-screen end of block bl4.

************************************************************************

D A T A D E C L A R A T I O N *

************************************************************************

constants:

c_formname like rsscf-tdform value 'ZTAXINVOICE'.

data: begin of t_inv_hdr occurs 0,

bukrs like bkpf-bukrs,

kunnr like bsid-kunnr,

gjahr like bkpf-gjahr,

belnr like bkpf-belnr,

bldat like bkpf-bldat,

budat like bkpf-budat,

waers like bkpf-waers,

hwaer like bkpf-hwaer,

gst_no like t001z-paval,

reg_no like t001z-paval,

bschl like bsid-bschl,

lifnr like bsik-lifnr,

inv_type(20),

end of t_inv_hdr.

data: begin of t_inv_item occurs 0,

belnr like bseg-belnr,

hkont like bseg-hkont,

bukrs like bseg-bukrs,

gjahr like bseg-gjahr,

buzei like bseg-buzei,

buzid like bseg-buzid,

bschl like bseg-bschl,

koart like bseg-koart,

mwskz like bseg-mwskz,

wrbtr like covp-wogbtr,

dmbtr like covp-wogbtr,

sgtxt like bseg-sgtxt,

tax_rate like covp-wogbtr,

sup_tot like covp-wogbtr,

gst_tot like covp-wogbtr,

pay_tot like covp-wogbtr,

slip_tot type p decimals 2,

total like covp-wogbtr,

shkzg like bseg-shkzg,

lifnr like bsik-lifnr,

***

qsskz like bseg-qsskz,

***

end of t_inv_item.

data:it_item1 like t_inv_item occurs 0 with header line.

data: g_company like t001.

data: it_wrbtr1(20).

data:it_pay_tot1(20).

data:it_mwskz like bseg-mwskz.

data:it_kbetr like bset-kbetr.

data:it_gst type p decimals 2.

data:sup_tot type p decimals 2 .

data:gst_tot type p decimals 2.

data:pay_tot type p decimals 2.

data:pay_tot1 type p decimals 2.

data:pay_tot3 type p decimals 2.

*data:pay_tot3(20).

data:v_pay_tot3 type p decimals 2.

data:v_pay_tot2 type p decimals 2.

data:v_gt_total type p decimals 2.

data:v_pay_total type p decimals 2.

data:sup_tot2 type p decimals 2.

data:gst_tot2 type p decimals 2.

data:pay_tot2 type p decimals 2.

***Revised

data:gst_tot3 type p decimals 2.

data:sup_tot3 type p decimals 2.

*data:gst_tot3(20).

*data:sup_tot3(20).

***

data:pay_tot11(20).

data:k type i.

data:final_sup_tot type p decimals 2 ,

final_gst_tot type p decimals 2,

final_pay_tot type p decimals 2 ,

slip_tot type p decimals 2,

act_total type p decimals 2.

data: final_sup_tot9(20),

final_gst_tot9(20),

act_total9(20),

tax_rate9(20),

pay_tot9(20),

slip_tot9(20).

data:item(3) type c.

data: l_addr_sel like addr1_sel.

data: l_gst_no like t001z-paval,

l_reg_no like t001z-paval.

data:it_adrnr like adrc-addrnumber.

data:begin of it_tax occurs 0,

belnr like bset-belnr,

gjahr like bset-gjahr,

mwskz like bset-mwskz,

hwste like bset-hwste,

fwste like bset-fwste,

fwbas like bset-fwbas,

hwbas like bset-hwbas,

end of it_tax.

data:

v_name1 like adrc-name1,

v_name2 like adrc-name2,

v_name3 like adrc-name3,

v_name4 like adrc-name4,

v_name1_new like adrc-name1,

v_name2_new like adrc-name2,

v_name3_new like adrc-name3,

v_name4_new like adrc-name4,

v_name5(80),

v_name6(80),

v_street5(80),

v_name7(160),

v_name8(160),

v_name9(160),

v_street like adrc-street,

v_street4 like adrc-str_suppl3,

v_city like adrc-city1,

v_post like adrc-post_code1,

v_tele like adrc-tel_number,

v_fax like adrc-fax_number,

v_uri like adr12-uri_srch,

v_regno like t001z-paval,

c_name1 like adrc-name1,

c_name2 like adrc-name2,

c_name3 like adrc-name3,

c_name4 like adrc-name4,

c_nam1 like adrc-name1,

c_nam2 like adrc-name2,

c_nam3 like adrc-name3,

c_nam4 like adrc-name4,

c_name5(80),

c_name6(80),

c_street5(80),

c_street like adrc-street,

c_street4 like adrc-str_suppl3,

c_city like adrc-city1,

c_city1 like adrc-city1,

c_post like adrc-post_code1,

c_tele like adrc-tel_number,

c_fax like adrc-fax_number,

c_country like adrc-country,

c_landx like t005t-landx,

c_country1 like t005t-landx,

c_cntry like t005t-landx,

v_remark like adrct-remark.

data:name like thead-tdname.

data:it_phone like tline occurs 0 with header line.

data:it_name like tline occurs 0 with header line.

data:it_account like tline occurs 0 with header line.

data:it_addi like tline occurs 0 with header line.

data:it_cheque like tline occurs 0 with header line.

data:it_item like tline occurs 0 with header line.

data:it_ben like tline occurs 0 with header line.

data: ls_faede like faede.

data:it_sgtxt like bseg-sgtxt.

data: ls_bkpf like bkpf,

ls_bseg like bseg,

it_duedate(10).

data:it_waers like t001-waers.

data:it_waers1 like t001-waers.

data:n1 type i.

data:diff1 type p decimals 2.

data:tax_rate type p decimals 5.

data:it_header(20).

data:it_bschl like bsid-bschl.

data:it_land like t001-land1.

data:it_landx like t005t-landx.

data:text(2000).

data:text1(200).

data:it_kbetr1 like bset-kbetr,

it_tax1(3) type c.

data:it_acctype(1).

data:it_cust like kna1-lifnr.

data:it_land1 like t001-land1,

it_kalsm like t005-kalsm,

it_text1(50).

data:it_kverm like knb1-kverm.

data: vari1(18),

v_flag(1) value 'F'.

data:it_fwbas(20),

it_fwste(20),

pay_tot19(20),

gst_tot29(20),

sup_tot29(20),

pay_tot29(20),

gst_tot39(20),

sup_tot39(20),

pay_tot39(20),

tax_rate99(20),

v_amt(20),

v_amt1(20),

v_fwbas type bset-fwbas,

v_taxamt(20),

v_total(20),

v_amount type bseg-wrbtr,

gt_amt type p decimals 2,

gt_taxamt type p decimals 2,

gt_netamt type p decimals 2,

gt_tax type p decimals 2,

gt_amt1(20),

gt_total type p decimals 2,

v_grpid like bkpf-grpid,

v_grpid1(3) type c,

v_text(100) type c,

v_text20(20) type c.

*********************

***************************************************

I N I T I A L I Z A T I O N *

************************************************************************

*initialization.

************************************************************************

A T S E L E C T I O N - S C R E E N *

************************************************************************

at selection-screen on p_bukrs.

select single * into g_company

from t001

where bukrs = p_bukrs.

if sy-subrc ne 0.

message e398(00) with 'Company code' p_bukrs 'does not exist'."#EC *

endif.

authority-check object 'F_BKPF_BUK'

id 'BUKRS' field p_bukrs

id 'ACTVT' field '03'.

if sy-subrc ne 0.

message e398(00) with 'You are not authorized to access company '

p_bukrs.

endif.

at selection-screen on p_inter.

if s_lifnr ne '' and p_inter = ''.

message e398(00) with 'Please select Interco check box'."#EC *

elseif s_kunnr ne '' and p_inter ne ''.

message e398(00) with 'Ple dont select Interco when you select Customer '."#EC *

endif.

************************************************************************

S T A R T O F D A T A S E L E C T I O N *

************************************************************************

start-of-selection.

item = '00'.

if p_inter eq ''.

it_acctype = 'D'.

else.

it_acctype = 'K'.

endif.

perform read_customer_invoices.

if t_inv_item[] is initial.

write ' No Records Found'.

endif.

perform form_print_out.

end-of-selection.

************************************************************************

E N D O F D A T A S E L E C T I O N *

************************************************************************

&----

*& Form form_print_out

&----

form form_print_out.

data: itab_options like itcpo occurs 0 with header line.

itab_options-tddest = 'LOCL'.

itab_options-tdpreview = 'X'.

itab_options-tdtitle = sy-title.

itab_options-tdiexit = 'X'.

itab_options-tdnewid = 'X'.

itab_options-tddelete = 'X'.

append itab_options.

call function 'OPEN_FORM'

exporting

APPLICATION = 'TX'
ARCHIVE_INDEX =
ARCHIVE_PARAMS =

device = 'PRINTER'

DIALOG = 'X'

form = c_formname

language = sy-langu

options = itab_options

MAIL_SENDER =
MAIL_RECIPIENT =
MAIL_APPL_OBJECT =
RAW_DATA_INTERFACE = '*'
SPONUMIV =
IMPORTING
LANGUAGE =
NEW_ARCHIVE_PARAMS =
RESULT =

exceptions

canceled = 1

device = 2

form = 3

options = 4

unclosed = 5

mail_options = 6

archive_error = 7

invalid_fax_number = 8

more_params_needed_in_batch = 9

spool_error = 10

codepage = 11

others = 12

if sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

endif.

loop at t_inv_hdr.

clear sup_tot.

clear pay_tot.

clear gst_tot.

clear slip_tot.

clear act_total.

clear it_waers.

clear it_waers1.

clear it_duedate.

clear it_item.

refresh it_item.

clear it_phone.

refresh it_phone.

clear it_account.

refresh it_account.

clear it_name.

refresh it_name.

clear it_addi.

refresh it_addi.

clear it_ben.

refresh it_ben.

clear name.

clear it_cust.

clear it_header.

clear it_land1.

clear it_kalsm.

clear it_text1.

clear it_kverm.

clear pay_tot3.

clear it_item1.

refresh it_item1.

clear k.

clear v_flag.

clear : c_country1, c_cntry.

customer number

if p_inter eq ''.

it_cust = t_inv_hdr-kunnr.

else.

it_cust = t_inv_hdr-lifnr.

endif.

read customer address
if one time vendor

select single name1 name2 name3 name4 pstlz ort01 stras

into (c_name1, c_name2, c_name3, c_name4, c_post, c_city, c_street5)

from bsec where bukrs = t_inv_hdr-bukrs and

belnr = t_inv_hdr-belnr and

gjahr = t_inv_hdr-gjahr.

if sy-subrc <> 0.

*Logic changed bsrao on 27.07.2006

if sy-subrc <> 0 or c_name1 eq ' '.

if p_inter eq ''.

select single adrnr from kna1 into it_adrnr where kunnr = t_inv_hdr-kunnr.

select single kverm from knb1 into it_kverm where kunnr = t_inv_hdr-kunnr and

bukrs = p_bukrs.

else.

select single adrnr from lfa1 into it_adrnr where lifnr = t_inv_hdr-lifnr.

select single kverm from lfb1 into it_kverm where lifnr = t_inv_hdr-lifnr and

bukrs = p_bukrs.

endif.

select single name1 name2 name3 name4 street str_suppl3 city1 post_code1 tel_number fax_number country

from adrc into (c_name1,c_name2,c_name3,c_name4,c_street,c_street4,c_city,c_post,c_tele,c_fax, c_country)

where addrnumber = it_adrnr.

select single landx from t005t into c_landx

where land1 = c_country

and spras = sy-langu.

***Revised

v_city1 = itab_cust-city1.

clear : c_cntry, c_country1.

c_city1 = c_city.

translate c_city1 to lower case.

c_cntry = c_landx.

translate c_cntry to lower case.

if c_city1 ne c_cntry .

c_country1 = c_landx.

endif.

read table itab_t005t with key lnd1 = itab_cust-country.
v_cntry = itab_t005t-landx.
translate v_cntry to lower case.

***

concatenate c_street(35) c_street4(35) into c_street5 separated by space.

endif.

concatenate c_name1(35) c_name2(35) into c_name5 separated by space.

concatenate c_name3(35) c_name4(35) into c_name6 separated by space.

***Revised

*clear : v_name7.

concatenate v_name5(70) v_name6(70) into v_name7 separated by space.

***

concatenate t_inv_hdr-bukrs t_inv_hdr-belnr t_inv_hdr-gjahr into name.

read singnature details
PHONE

call function 'READ_TEXT'

exporting

client = sy-mandt

id = 'Z001'

language = sy-langu

name = name

object = 'BELEG'

tables

lines = it_phone

exceptions

id = 1

language = 2

name = 3

not_found = 4

object = 5

reference_check = 6

wrong_access_to_archive = 7

others = 8.

if sy-subrc <> 0.

select single ztel from ztarinv into it_phone-tdline where bukrs = p_bukrs.

endif.

read table it_phone index 1.

bank name

call function 'READ_TEXT'

exporting

CLIENT = SY-MANDT

id = 'Z002'

language = sy-langu

name = name

object = 'BELEG'

tables

lines = it_name

exceptions

id = 1

language = 2

name = 3

not_found = 4

object = 5

reference_check = 6

wrong_access_to_archive = 7

others = 8

if sy-subrc <> 0.

select single zbankname from ztarinv into it_name-tdline where bukrs = p_bukrs.

endif.

read table it_name index 1.

Account no

call function 'READ_TEXT'

exporting

CLIENT = SY-MANDT

id = 'Z003'

language = sy-langu

name = name

object = 'BELEG'

tables

lines = it_account

exceptions

id = 1

language = 2

name = 3

not_found = 4

object = 5

reference_check = 6

wrong_access_to_archive = 7

others = 8

if sy-subrc <> 0.

select single zbankacc from ztarinv into it_account-tdline where bukrs = p_bukrs.

endif.

read table it_account index 1.

Additional note.

call function 'READ_TEXT'

exporting

CLIENT = SY-MANDT

id = 'Z004'

language = sy-langu

name = name

object = 'BELEG'

tables

lines = it_addi

exceptions

id = 1

language = 2

name = 3

not_found = 4

object = 5

reference_check = 6

wrong_access_to_archive = 7

others = 8

if sy-subrc <> 0.

endif.

read table it_addi index 1.

loop at it_addi.

text1 = it_addi-tdline.

concatenate text text1 into text .

endloop.

cheque payable to

call function 'READ_TEXT'

exporting

CLIENT = SY-MANDT

id = 'Z005'

language = sy-langu

name = name

object = 'BELEG'

tables

lines = it_cheque

exceptions

id = 1

language = 2

name = 3

not_found = 4

object = 5

reference_check = 6

wrong_access_to_archive = 7

others = 8

if sy-subrc <> 0.

endif.

read table it_cheque index 1.

beneficiary

call function 'READ_TEXT'

exporting

CLIENT = SY-MANDT

id = 'Z007'

language = sy-langu

name = name

object = 'BELEG'

tables

lines = it_ben

exceptions

id = 1

language = 2

name = 3

not_found = 4

object = 5

reference_check = 6

wrong_access_to_archive = 7

others = 8

if sy-subrc <> 0.

endif.

read table it_ben index 1.

header text

call function 'READ_TEXT'

exporting

CLIENT = SY-MANDT

id = 'Z008'

language = sy-langu

name = name

object = 'BELEG'

tables

lines = it_item

exceptions

id = 1

language = 2

name = 3

not_found = 4

object = 5

reference_check = 6

wrong_access_to_archive = 7

others = 8

if sy-subrc <> 0.

endif.

read table it_item index 1.

if sy-subrc = 0.

concatenate p_bukrs t_inv_hdr-belnr t_inv_hdr-gjahr into vari1.

v_flag = 'T'.

endif.

due date

select single * from bkpf into ls_bkpf "because of 'BLDAT'

where bukrs = p_bukrs

and belnr = t_inv_hdr-belnr

and gjahr = t_inv_hdr-gjahr.

select single * from bseg into ls_bseg

where bukrs = p_bukrs

and belnr = t_inv_hdr-belnr

and gjahr = t_inv_hdr-gjahr

and zfbdt ne '00000000'.

move-corresponding ls_bkpf to ls_faede.

move-corresponding ls_bseg to ls_faede.

call function 'DETERMINE_DUE_DATE'

exporting

i_faede = ls_faede

importing

e_faede = ls_faede

exceptions

others = 1.

concatenate ls_faede-netdt6(2) '.' ls_faede-netdt4(2) '.' ls_faede-netdt+0(4) into it_duedate.

calculating tax amount

loop at t_inv_item where belnr eq t_inv_hdr-belnr and koart <> it_acctype.

clear it_gst.

clear it_kbetr.

clear it_mwskz.

select single mwskz from bseg into it_mwskz where bukrs = t_inv_item-bukrs and

belnr = t_inv_item-belnr and

gjahr = t_inv_item-gjahr and

buzei = t_inv_item-buzei .

select single kbetr from bset into it_kbetr where bukrs = t_inv_item-bukrs and

belnr = t_inv_item-belnr and

gjahr = t_inv_item-gjahr and

mwskz = t_inv_item-mwskz .

it_gst = it_kbetr / 1000.

it_gst = it_gst * t_inv_item-wrbtr.

t_inv_item-tax_rate = it_gst.

t_inv_item-pay_tot = t_inv_item-wrbtr + t_inv_item-tax_rate.

modify t_inv_item.

endloop.

caluculating actual amount

loop at t_inv_item where bukrs = t_inv_hdr-bukrs and

belnr = t_inv_hdr-belnr and

gjahr = t_inv_hdr-gjahr and

koart eq it_acctype and buzid <> 'T' .

write t_inv_item-wrbtr to it_wrbtr1 currency t_inv_hdr-waers.

act_total = act_total + t_inv_item-wrbtr .

endloop.

act_total = 0 - act_total.

if click gl account check box

data : v_txt like bseg-sgtxt.

clear : v_txt.

sort t_inv_item by belnr.

sort t_inv_item by belnr hkont.

if p_hkont ne '' .

sort t_inv_item by belnr hkont.

loop at t_inv_item where belnr = t_inv_hdr-belnr .

delete t_inv_item where koart = it_acctype and belnr = t_inv_hdr-belnr .

at new hkont.

read table t_inv_item index sy-tabix.

move-corresponding t_inv_item to it_item1.

append it_item1.

endat.

if t_inv_item-koart ne it_acctype.

sup_tot = sup_tot + t_inv_item-wrbtr.

gst_tot = gst_tot + t_inv_item-tax_rate.

pay_tot = sup_tot + gst_tot.

at end of hkont.

k = k + 1.

it_item1-wrbtr = sup_tot .

it_item1-tax_rate = gst_tot .

it_item1-pay_tot = pay_tot.

modify it_item1 index k.

clear sup_tot.

clear gst_tot.

clear pay_tot.

clear it_sgtxt.

endat.

endif.

endloop.

delete t_inv_item where belnr = t_inv_hdr-belnr .

endif.

loop at it_item1 where belnr = t_inv_hdr-belnr.

move-corresponding it_item1 to t_inv_item.

append t_inv_item.

endloop.

if it_item-tdline ne '' and p_hkont ne 'X'.

clear sup_tot.

clear gst_tot.

clear pay_tot.

clear it_sgtxt.

loop at t_inv_item where belnr = t_inv_hdr-belnr .

if t_inv_item-koart ne it_acctype.

sup_tot = sup_tot + t_inv_item-wrbtr.

gst_tot = gst_tot + t_inv_item-tax_rate.

pay_tot = sup_tot + gst_tot.

delete t_inv_item .

endif.

endloop.

if v_flag = 'T'.

clear it_item-tdline.

endif.

t_inv_item-sgtxt = it_item-tdline.

t_inv_item-wrbtr = sup_tot .

t_inv_item-tax_rate = gst_tot .

t_inv_item-pay_tot = pay_tot.

append t_inv_item.

endif.

select belnr gjahr mwskz hwste fwste fwbas hwbas from bset into table it_tax where

bukrs = t_inv_hdr-bukrs and

belnr = t_inv_hdr-belnr and

gjahr = t_inv_hdr-gjahr .

call function 'START_FORM'

exporting

ARCHIVE_INDEX =

form = c_formname

language = sy-langu

startpage = 'FIRST'

PROGRAM = ' '
MAIL_APPL_OBJECT =
IMPORTING
LANGUAGE =

exceptions

form = 1

format = 2

unended = 3

unopened = 4

unused = 5

spool_error = 6

codepage = 7

others = 8

if sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

endif.

if p_inter eq '' and p_rep eq ''.

select single bschl from bsid into it_bschl where bukrs = t_inv_hdr-bukrs and

kunnr = t_inv_hdr-kunnr and

belnr = t_inv_hdr-belnr and

gjahr = t_inv_hdr-gjahr.

if it_bschl = '11'.

it_header = 'Credit Note'.

else.

it_header = 'Tax Invoice'.

endif.

elseif p_inter eq '' and p_rep eq 'X'.

select single bschl from bsad into it_bschl where bukrs = t_inv_hdr-bukrs and

kunnr = t_inv_hdr-kunnr and

belnr = t_inv_hdr-belnr and

gjahr = t_inv_hdr-gjahr.

if it_bschl = '11'.

it_header = 'Credit Note'.

else.

it_header = 'Tax Invoice'.

endif.

elseif p_inter eq 'X' .

select single bschl from bsik into it_bschl where bukrs = t_inv_hdr-bukrs and

lifnr = t_inv_hdr-lifnr and

belnr = t_inv_hdr-belnr and

gjahr = t_inv_hdr-gjahr.

if it_bschl = '31'.

it_header = 'Credit Note'.

else.

it_header = 'Tax Invoice'.

endif.

elseif p_inter eq 'X' and p_rep eq 'X'.

select single bschl from bsak into it_bschl where bukrs = t_inv_hdr-bukrs and

lifnr = t_inv_hdr-lifnr and

belnr = t_inv_hdr-belnr and

gjahr = t_inv_hdr-gjahr.

if it_bschl = '31'.

it_header = 'Credit Note'.

else.

it_header = 'Tax Invoice'.

endif.

currency

call function 'WRITE_FORM'

exporting

element = 'INVOICE_HEADING'

function = 'SET'

type = 'BODY'

window = 'HEADER'

exceptions

element = 1

function = 2

type = 3

unopened = 4

unstarted = 5

window = 6

bad_pageformat_for_print = 7

spool_error = 8

codepage = 9

others = 10.

loop at t_inv_item where bukrs = t_inv_hdr-bukrs and

belnr = t_inv_hdr-belnr and

gjahr = t_inv_hdr-gjahr and

koart <> it_acctype and buzid <> 'T' .

if t_inv_item-qsskz+0(1) eq 'I'.

delete t_inv_item.

endif.

final_sup_tot = final_sup_tot + t_inv_item-wrbtr.

final_gst_tot = final_gst_tot + t_inv_item-tax_rate.

final_pay_tot = final_sup_tot + final_gst_tot.

slip_tot = slip_tot + t_inv_item-wrbtr + t_inv_item-tax_rate.

endloop.

describe table t_inv_item lines n1 .

if act_total ne final_pay_tot .

diff1 = act_total - final_pay_tot.

slip_tot = slip_tot + diff1.

final_gst_tot = final_gst_tot + diff1.

do n1 times .

read table t_inv_item index n1.

if t_inv_item-tax_rate <> 0.

exit.

endif.

n1 = n1 - 1 .

enddo.

t_inv_item-tax_rate = t_inv_item-tax_rate + diff1.

t_inv_item-pay_tot = t_inv_item-pay_tot + diff1.

modify t_inv_item index n1.

endif.

select local currency

select single waers land1 from t001 into (it_waers, it_land) where bukrs = p_bukrs.

select document currency

select single waers from bkpf into it_waers1 where bukrs = t_inv_hdr-bukrs and

belnr = t_inv_hdr-belnr and

gjahr = t_inv_hdr-gjahr.

select local country name

select single landx from t005t into it_landx where spras = sy-langu and land1 = it_land.

write slip_tot to slip_tot9 currency t_inv_hdr-waers.

write pay_tot3 to pay_tot9 currency t_inv_hdr-waers.

call function 'WRITE_FORM'

exporting

element = 'SLIP'

function = 'APPEND'

type = 'BODY'

window = 'PAYMEN_D'

exceptions

element = 1

function = 2

type = 3

unopened = 4

unstarted = 5

window = 6

bad_pageformat_for_print = 7

spool_error = 8

codepage = 9

others = 10.

delete t_inv_item where koart = it_acctype and belnr = t_inv_hdr-belnr.

loop at t_inv_item where bukrs = t_inv_hdr-bukrs and

belnr = t_inv_hdr-belnr and

gjahr = t_inv_hdr-gjahr and

koart <> it_acctype and buzid <> 'T' .

write t_inv_item-wrbtr to it_wrbtr1 currency t_inv_hdr-waers.

write t_inv_item-pay_tot to it_pay_tot1 currency t_inv_hdr-waers.

write t_inv_item-tax_rate to tax_rate9 currency t_inv_hdr-waers.

item = item + 1.

if v_flag = 'T'.

clear item.

call function 'WRITE_FORM'

exporting

element = 'HEAD_TEXT'

function = 'APPEND'

type = 'BODY'

window = 'MAIN'

exceptions

element = 1

function = 2

type = 3

unopened = 4

unstarted = 5

window = 6

bad_pageformat_for_print = 7

spool_error = 8

codepage = 9

others = 10.

endif.

call function 'WRITE_FORM'

exporting

element = 'LINE_ITEM'

function = 'APPEND'

type = 'BODY'

window = 'MAIN'

exceptions

element = 1

function = 2

type = 3

unopened = 4

unstarted = 5

window = 6

bad_pageformat_for_print = 7

spool_error = 8

codepage = 9

others = 10.

call function 'WRITE_FORM'

exporting

element = 'COMP_ADD'

function = 'SET'

type = 'BODY'

window = 'COM_ADDR'

exceptions

element = 1

function = 2

type = 3

unopened = 4

unstarted = 5

window = 6

bad_pageformat_for_print = 7

spool_error = 8

codepage = 9

others = 10.

call function 'WRITE_FORM'

exporting

element = 'COMP_DET'

function = 'SET'

type = 'BODY'

window = 'COMP_DET'

exceptions

element = 1

function = 2

type = 3

unopened = 4

unstarted = 5

window = 6

bad_pageformat_for_print = 7

spool_error = 8

codepage = 9

others = 10.

at end of belnr . "#EC *

item = '00'.

write final_sup_tot to final_sup_tot9 currency t_inv_hdr-waers.

write final_gst_tot to final_gst_tot9 currency t_inv_hdr-waers.

write act_total to act_total9 currency t_inv_hdr-waers.

call function 'WRITE_FORM'

exporting

element = 'TOTAL'

function = 'APPEND'

type = 'BODY'

window = 'MAIN'

exceptions

element = 1

function = 2

type = 3

unopened = 4

unstarted = 5

window = 6

bad_pageformat_for_print = 7

spool_error = 8

codepage = 9

others = 10.

data : v_tabix like sy-tabix,

v_count type i.

clear : v_tabix, v_count.

describe table it_tax lines v_count.

loop at it_tax.

v_tabix = sy-tabix.

pay_tot1 = it_tax-fwbas + it_tax-fwste.

gst_tot2 = gst_tot2 + it_tax-fwbas.

sup_tot2 = sup_tot2 + it_tax-fwste.

pay_tot2 = pay_tot2 + pay_tot1.

gst_tot3 = gst_tot3 + it_tax-hwbas.

sup_tot3 = sup_tot3 + it_tax-hwste.

pay_tot11 = it_tax-hwbas + it_tax-hwste.

pay_tot3 = pay_tot3 + pay_tot11.

select single kbetr from bset into it_kbetr1 where bukrs = p_bukrs and

belnr = it_tax-belnr and

gjahr = it_tax-gjahr and

mwskz = it_tax-mwskz.

it_tax1 = it_kbetr1 / 10.

tax description

select single land1 from t001 into it_land1 where bukrs = p_bukrs.

select single kalsm from t005 into it_kalsm where land1 = it_land1.

select single text1 from t007s into it_text1 where spras = sy-langu and

kalsm = it_kalsm and

mwskz = it_tax-mwskz .

data : it_sgtxt like bseg-sgtxt,

v_string type string,

v_var1 type string,

v_var2 type string.

clear : it_sgtxt, v_string, v_var1, v_var2.

clear : v_amt, v_taxamt, v_total, v_fwbas.

if g_company-land1 = 'SG' and g_company-waers <> 'SGD'.

select single sgtxt from bseg into it_sgtxt

where bukrs = p_bukrs

and belnr = t_inv_hdr-belnr

and gjahr = t_inv_hdr-gjahr

and mwskz = it_tax-mwskz

and buzid = 'T'.

if sy-subrc = 0.

v_string = it_sgtxt.

split v_string at '/' into v_var1 v_var2 .

if v_var1 co '1234567890.'.

v_amt = v_var1.

endif.

if v_var2 co '1234567890.'.

v_taxamt = v_var2.

endif.

gt_amt = gt_amt + v_amt.

gt_taxamt = gt_taxamt + v_var2.

else.

call function 'CONVERT_TO_LOCAL_CURRENCY'

exporting

date = ls_bkpf-budat

foreign_amount = it_tax-fwbas

foreign_currency = ls_bkpf-waers

local_currency = 'SGD'

type_of_rate = 'M'

importing

local_amount = v_fwbas

exceptions

no_rate_found = 1

overflow = 2

no_factors_found = 3

no_spread_found = 4

derived_2_times = 5

others = 6.

v_amt1 = v_fwbas.

gt_amt1 = gt_amt1 + v_amt1.

endif.

gt_netamt = gt_amt + gt_amt1.

gt_tax = gt_taxamt.

gt_total = gt_netamt + gt_tax.

endif.

write it_tax-fwbas to it_fwbas currency t_inv_hdr-waers.

write it_tax-fwste to it_fwste currency t_inv_hdr-waers.

write i_fwste to it_fwste currency t_inv_hdr-waers.

write pay_tot1 to pay_tot19 currency t_inv_hdr-waers.

call function 'WRITE_FORM'

exporting

element = 'TAX'

function = 'APPEND'

type = 'BODY'

window = 'MAIN'

exceptions

element = 1

function = 2

type = 3

unopened = 4

unstarted = 5

window = 6

bad_pageformat_for_print = 7

spool_error = 8

codepage = 9

others = 10.

delete it_tax index v_tabix.

endloop.

if v_count ne 0.

write gst_tot2 to gst_tot29 currency t_inv_hdr-waers.

write sup_tot2 to sup_tot29 currency t_inv_hdr-waers.

write pay_tot2 to pay_tot29 currency t_inv_hdr-waers.

else.

write final_sup_tot9 to gst_tot29 currency t_inv_hdr-waers.

write final_gst_tot9 to sup_tot29 currency t_inv_hdr-waers.

write act_total9 to pay_tot29 currency t_inv_hdr-waers.

endif.

if g_company-land1 = 'SG' and g_company-waers <> 'SGD'.

if v_count ne 0.

write gt_netamt to gst_tot39 .

write gt_taxamt to sup_tot39 .

write gt_total to pay_tot39 .

it_waers = 'SGD'.

else.

clear : v_amount.

call function 'CONVERT_TO_LOCAL_CURRENCY'

exporting

date = ls_bkpf-budat

foreign_amount = act_total

foreign_currency = ls_bkpf-waers

local_currency = 'SGD'

type_of_rate = 'M'

importing

local_amount = v_amount

exceptions

no_rate_found = 1

overflow = 2

no_factors_found = 3

no_spread_found = 4

derived_2_times = 5

others = 6.

pay_tot39 = v_amount.

it_waers = 'SGD'.

endif.

select single * from tcurx where currkey = g_company-waers.

if sy-subrc = 0.

if tcurx-currdec = 0.

v_gt_total = gt_total * 100.

elseif tcurx-currdec = 3.

v_gt_total = gt_total / 10.

endif.

else.

v_gt_total = gt_total.

endif.

select single * from tcurx where currkey = t_inv_hdr-waers.

if sy-subrc = 0.

if tcurx-currdec = 0.

v_pay_total = pay_tot2 * 100.

elseif tcurx-currdec = 3.

v_pay_total = pay_tot2 / 10.

endif.

else.

v_pay_total = pay_tot2.

endif.

if v_pay_total ne 0.

tax_rate = v_gt_total / v_pay_total.

write tax_rate to tax_rate99. "currency g_company-waers.

endif.

else.

select single * from tcurx where currkey = g_company-waers.

if sy-subrc = 0.

if tcurx-currdec = 0.

v_pay_tot3 = pay_tot3 * 100.

elseif tcurx-currdec = 3.

v_pay_tot3 = pay_tot3 / 10.

endif.

else.

v_pay_tot3 = pay_tot3.

endif.

select single * from tcurx where currkey = t_inv_hdr-waers.

if sy-subrc = 0.

if tcurx-currdec = 0.

v_pay_tot2 = pay_tot2 * 100.

elseif tcurx-currdec = 3.

v_pay_tot2 = pay_tot2 / 10.

endif.

else.

v_pay_tot2 = pay_tot2.

endif.

tax_rate = v_pay_tot3 / v_pay_tot2.

write gst_tot3 to gst_tot39 currency g_company-waers.

write sup_tot3 to sup_tot39 currency g_company-waers.

write tax_rate to tax_rate99. "currency g_company-waers.

if v_count ne 0 .

write pay_tot3 to pay_tot39 currency g_company-waers.

endif.

call function 'WRITE_FORM'

exporting

element = 'TAX_TOTAL'

function = 'APPEND'

type = 'BODY'

window = 'MAIN'

exceptions

element = 1

function = 2

type = 3

unopened = 4

unstarted = 5

window = 6

bad_pageformat_for_print = 7

spool_error = 8

codepage = 9

others = 10.

clear final_sup_tot.

clear final_pay_tot.

clear final_gst_tot.

clear gst_tot2.

clear pay_tot2.

clear sup_tot2.

clear gst_tot3.

clear sup_tot3.

clear act_total.

clear it_item1.

clear gt_netamt.

clear gt_tax.

clear gt_total.

clear gt_amt.

clear gt_amt1.

clear gt_taxamt.

clear : gst_tot39.

clear : sup_tot39.

clear : pay_tot39.

refresh it_item1.

delete t_inv_item where belnr = t_inv_hdr-belnr.

endat.

endloop.

***Revised

select single grpid from bkpf into v_grpid where bukrs = p_bukrs

and belnr = t_inv_hdr-belnr

and gjahr = t_inv_hdr-gjahr

and grpid ne ' '.

if sy-subrc = 0.

v_grpid1 = v_grpid+0(3).

select single text20 from ztar001 into v_text20 .

if v_grpid1 = 'GVS'.

clear : v_name7.

concatenate v_name5(70) v_name6(70) into v_name7 separated by space.

concatenate v_name7 '-' v_text20 into v_name7.

if v_name2 eq ' '.

c_nam1 = v_name1.

clear : v_name1.

v_name1 = c_name1.

concatenate c_nam1 '-' v_text20 into v_name1.

concatenate v_name1 '-' v_text20 into c_nam1.

else.

c_nam1 = v_name1.

endif.

if v_name3 eq ''.

c_nam2 = v_name2.

clear : v_name2.

v_name2 = c_name2.

concatenate c_nam2 '-' v_text20 into v_name2.

concatenate v_name2 '-' v_text20 into c_nam2.

else.

c_nam2 = v_name2.

endif.

if v_name4 eq ''.

c_nam3 = v_name3.

clear : v_name3.

v_name2 = c_name3.

concatenate c_nam3 '-' v_text20 into v_name3.

concatenate v_name3 '-' v_text20 into c_nam3.

else.

c_nam3 = v_name3.

endif.

endif.

endif.

else.

c_nam1 = v_name1 .

c_nam2 = v_name2 .

c_nam3 = v_name3 .

c_nam4 = v_name4 .

endif.

select single grpid from bkpf into v_grpid where bukrs = p_bukrs
and belnr = t_inv_hdr-belnr
and gjahr = t_inv_hdr-gjahr.

if sy-subrc = 0.
v_grpid1 = v_grpid+0(3).

if v_grpid1 = 'GVS'.
concatenate v_name7 '-' 'GVS' into v_name7.

else.

v_text = v_name5.

endif.

endif.

***

call function 'WRITE_FORM'

exporting

element = 'SIGNATORY'

function = 'APPEND'

type = 'BODY'

window = 'MAIN'

exceptions

element = 1

function = 2

type = 3

unopened = 4

unstarted = 5

window = 6

bad_pageformat_for_print = 7

spool_error = 8

codepage = 9

others = 10.

call function 'END_FORM'

exceptions

unopened = 1

bad_pageformat_for_print = 2

spool_error = 3

codepage = 4

others = 5.

clear t_inv_hdr.

endloop.

call function 'CLOSE_FORM'

exceptions

unopened = 1

bad_pageformat_for_print = 2

send_error = 3

spool_error = 4

codepage = 5

others = 6.

endform. " form_print_out

&----

*& Form read_customer_invoices

&----

form read_customer_invoices .

clear : v_remark.

Read company

select single * into g_company

from t001

where bukrs = p_bukrs.

Read company address

l_addr_sel-addrnumber = g_company-adrnr.

select single name1 name2 name3 name4 street str_suppl3 city1 post_code1 tel_number fax_number

from adrc into (v_name1,v_name2,v_name3,v_name4,v_street,v_street4,v_city,v_post,v_tele,v_fax)

where addrnumber = l_addr_sel-addrnumber.

c_nam1 = v_name1.

c_nam2 = v_name2.

c_nam3 = v_name3.

c_nam4 = v_name4.

*Remark

select single remark

from adrct into v_remark

where addrnumber = l_addr_sel-addrnumber

and langu = 'EN'.

select single uri_srch from adr12 into v_uri where addrnumber = l_addr_sel-addrnumber.

select single paval from t001z into v_regno where bukrs = p_bukrs

and party = 'SAPI14'.

translate v_uri to lower case. "#EC *

concatenate v_name1(35) v_name2(35) into v_name5 separated by space.

concatenate v_name3(35) v_name4(35) into v_name6 separated by space.

concatenate v_street(35) v_street4(35) into v_street5 separated by space.

clear : v_name7.

concatenate v_name5(70) v_name6(70) into v_name7 separated by space.

Read company GST No

select single paval into l_gst_no

from t001z

where bukrs = p_bukrs

and party = 'SAPI11'.

Read company Registration no

select single paval into l_reg_no

from t001z

where bukrs = p_bukrs

and party = 'SAPI14'.

Read country's tax procedure
select single kalsm into l_tax_proc
from t005
where land1 = g_company-land1.
Due date

if it is customer

if p_inter eq '' and p_rep eq ''.

select * into corresponding fields of t_inv_hdr

from bsid

where bukrs = p_bukrs

and kunnr in s_kunnr

and belnr in s_belnr

and blart in s_blart

and gjahr = p_gjahr

and monat in s_monat

and budat in s_budat

and bldat in s_bldat

and cpudt in s_cpudt.

t_inv_hdr-gst_no = l_gst_no.

t_inv_hdr-reg_no = l_reg_no.

t_inv_hdr-hwaer = g_company-waers.

append t_inv_hdr.

endselect.

elseif p_inter eq '' and p_rep eq 'X'.

if it is cleared items

select * into corresponding fields of t_inv_hdr

from bsad

where bukrs = p_bukrs

and kunnr in s_kunnr

and belnr in s_belnr

and blart in s_blart

and gjahr = p_gjahr

and monat in s_monat

and budat in s_budat

and bldat in s_bldat

and cpudt in s_cpudt.

t_inv_hdr-gst_no = l_gst_no.

t_inv_hdr-reg_no = l_reg_no.

t_inv_hdr-hwaer = g_company-waers.

append t_inv_hdr.

endselect.

elseif p_inter eq 'X' and p_rep eq ''.

if it is vendor

select * into corresponding fields of t_inv_hdr

from bsik

where bukrs = p_bukrs

and lifnr in s_lifnr

and belnr in s_belnr

and blart in s_blart

and gjahr = p_gjahr

and monat in s_monat

and budat in s_budat

and bldat in s_bldat

and cpudt in s_cpudt

and ( blart = 'IA' or blart = 'IB' or blart = 'IC' or blart = 'ID' ).

t_inv_hdr-gst_no = l_gst_no.

t_inv_hdr-reg_no = l_reg_no.

t_inv_hdr-hwaer = g_company-waers.

append t_inv_hdr.

endselect.

if it is cleared items

elseif p_inter eq 'X' and p_rep eq 'X'.

select * into corresponding fields of t_inv_hdr

from bsak

where bukrs = p_bukrs

and lifnr in s_lifnr

and belnr in s_belnr

and blart in s_blart

and gjahr = p_gjahr

and monat in s_monat

and budat in s_budat

and bldat in s_bldat

and cpudt in s_cpudt

and ( blart = 'IA' or blart = 'IB' or blart = 'IC' or blart = 'ID' ).

t_inv_hdr-gst_no = l_gst_no.

t_inv_hdr-reg_no = l_reg_no.

t_inv_hdr-hwaer = g_company-waers.

append t_inv_hdr.

endselect.

endif.

loop at t_inv_hdr.

if it is cusomer

if p_inter eq ''.

if t_inv_hdr-bschl = '11'. "Credit note

t_inv_hdr-inv_type = 'CREDIT NOTE'.

else.

t_inv_hdr-inv_type = 'TAX INVOICE'.

endif.

select * into corresponding fields of t_inv_item

from bseg

where bukrs = t_inv_hdr-bukrs

and belnr = t_inv_hdr-belnr

and gjahr = t_inv_hdr-gjahr

and buzid eq '' .

if t_inv_hdr-inv_type = 'TAX INVOICE'.

if t_inv_item-shkzg = 'S'.

t_inv_item-wrbtr = 0 - t_inv_item-wrbtr.

t_inv_item-dmbtr = 0 - t_inv_item-dmbtr.

endif.

else.

if t_inv_item-shkzg = 'H'.

t_inv_item-wrbtr = 0 - t_inv_item-wrbtr.

t_inv_item-dmbtr = 0 - t_inv_item-dmbtr.

endif.

append t_inv_item.

endselect.

if it is vendor

else.

if t_inv_hdr-bschl = '31'. "Credit note

t_inv_hdr-inv_type = 'CREDIT NOTE'.

else.

t_inv_hdr-inv_type = 'TAX INVOICE'.

endif.

select * into corresponding fields of t_inv_item

from bseg

where bukrs = t_inv_hdr-bukrs

and belnr = t_inv_hdr-belnr

and gjahr = t_inv_hdr-gjahr

and buzid eq '' .

if t_inv_hdr-inv_type = 'TAX INVOICE'.

if t_inv_item-shkzg = 'S'.

t_inv_item-wrbtr = 0 - t_inv_item-wrbtr.

t_inv_item-dmbtr = 0 - t_inv_item-dmbtr.

endif.

else.

if t_inv_item-shkzg = 'H'.

t_inv_item-wrbtr = 0 - t_inv_item-wrbtr.

t_inv_item-dmbtr = 0 - t_inv_item-dmbtr.

endif.

append t_inv_item.

endselect.

endif.

endloop.

endform. "read_customer_invoices

topic Re: print program error in Application Development and Automation Discussions

print program error

Re: print program error

Re: print program error

Re: print program error