Hi,
I am posting the FM which I am trying to call in my report and which is giving dump when I pass any value on selection screen.
function z_read_impact_lines.
data: lt_zimpact_quotes type table of zimpact_quotes,
ls_ship_to type zst_ship_to_codes,
ls_sold_to type zst_sold_to_codes,
lv_kunnr type kunnr,
ls_bapireturn type bapireturn.
data: ls_ship_to_range type zst_ship_to_range,
lt_ship_to_range type table of zst_ship_to_range,
ls_sold_to_range type zst_sold_to_range,
lt_sold_to_range type table of zst_sold_to_range.
loop at it_ship_to_codes into ls_ship_to.
select single kunnr from kna1 into lv_kunnr
where kunnr = ls_ship_to-ship_to.
if sy-subrc ne 0.
ls_bapireturn-type = 'E'.
concatenate 'Ship-To ' ls_ship_to-ship_to ' is invalid.'
into ls_bapireturn-message.
append ls_bapireturn to et_bapireturn.
continue.
else.
ls_ship_to_range-sign = 'I'.
ls_ship_to_range-option = 'EQ'.
ls_ship_to_range-low = ls_ship_to-ship_to.
append ls_ship_to_range to lt_ship_to_range.
clear ls_ship_to_range.
endif.
endloop.
loop at it_sold_to_codes into ls_sold_to.
select single kunnr from kna1 into lv_kunnr
where kunnr = ls_sold_to-sold_to.
if sy-subrc ne 0.
ls_bapireturn-type = 'E'.
concatenate 'Sold-To ' ls_sold_to-sold_to ' is invalid.'
into ls_bapireturn-message.
append ls_bapireturn to et_bapireturn.
continue.
else.
ls_sold_to_range-sign = 'I'.
ls_sold_to_range-option = 'EQ'.
ls_sold_to_range-low = ls_sold_to-sold_to.
append ls_sold_to_range to lt_sold_to_range.
clear ls_sold_to_range.
endif.
endloop.
if iv_flag is initial.
select * from zimpact_quotes into table lt_zimpact_quotes
where status in it_status
and entry_date in it_entry_date
and job_quote_id in it_jq_number_range
and ship_to in lt_ship_to_range
and sold_to in lt_sold_to_range
and del_ind ne 'X'
and sales_group in it_sales_group.
else.
select * from zimpact_quotes into table lt_zimpact_quotes
where status in it_status
and entry_date in it_entry_date
and job_quote_id in it_jq_number_range
and ship_to in lt_ship_to_range
and sold_to in lt_sold_to_range
and sales_group in it_sales_group.
endif.
et_zimpact_quotes[] = lt_zimpact_quotes[].
loop at et_zimpact_quotes.
select single name1 into et_zimpact_quotes-sold_to_name from kna1
where kunnr = et_zimpact_quotes-sold_to.
select single land1 regio name1 into
(et_zimpact_quotes-ship_to_country,
et_zimpact_quotes-ship_to_region,
et_zimpact_quotes-ship_to_name) from kna1
where kunnr = et_zimpact_quotes-ship_to.
select single bstnk audat angdt bnddt into
(et_zimpact_quotes-job_name,
et_zimpact_quotes-quote_date,
et_zimpact_quotes-valid_from,
et_zimpact_quotes-valid_to)
from vbak
where vbeln = et_zimpact_quotes-job_quote_id.
select single arktx netpr netwr werks into
(et_zimpact_quotes-product_desc,
et_zimpact_quotes-net_price,
et_zimpact_quotes-net_value,
et_zimpact_quotes-plant)
from vbap
where vbeln = et_zimpact_quotes-job_quote_id and
posnr = et_zimpact_quotes-line_item.
select single dispo into et_zimpact_quotes-planner
from marc
where matnr = et_zimpact_quotes-product_id
and werks = et_zimpact_quotes-plant.
modify et_zimpact_quotes index sy-tabix.
endloop.
endfunction.
Bluesky
