<< Start-Of-Selection
*&---------------------------------------------------------------------*
*& Form WRITE_RESULT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form write_result .
data : lv_mode type string.
if p_test = 'X'.
lv_mode = 'Test Run'.
else.
lv_mode = 'Operation Run'.
endif.
format color 6.
write : / 'Run Mode : ',lv_mode.
format color off.
new-line.
write : / gv_uri.
new-line.
write : / 'Execute Date:',p_date.
write : / 'As of Date:',gv_adate.
write : / 'Release Date:',gv_rdate.
write : / 'Last working day of month:',gv_edate.
write : / 'Last working day of pervios month:',gv_pdate.
write : / '1st working day of month:',gv_fdate.
write : / 'Recent Working Day:',gv_bdate.
new-line.
if not gi_rate[] is initial.
new-line.
format color 3.
write at : /(5) 'No',
(10) 'Currency',
(12) 'Buying Bill',
(12) 'Buying TT',
(12) 'Average Sell'.
format color off.
endif.
.
loop at gi_rate.
write at : /(5) sy-tabix,
(10) gi_rate-waers,
(12) gi_rate-sb,
(12) gi_rate-tt,
(12) gi_rate-asr.
endloop.
sort gi_result by rate_type zindex.
loop at gi_result.
at first.
format color 3.
write at : /(5) 'ExRt.',
(15) 'Valid From',
(15) 'From Currency',
(15) 'To Currency',
(10) 'Rate',
(10) 'From Ratio',
(10) 'To Ratio',
(6) 'Status',
(50) 'Error Message'.
format color off.
endat.
write at : /(5) gi_result-rate_type,
(15) gi_result-valid_from,
(15) gi_result-from_curr,
(15) gi_result-to_currncy,
(10) gi_result-exch_rate,
(10) gi_result-from_factor,
(10) gi_result-to_factor,
(6) gi_result-status,
(50) gi_result-msg.
endloop.
endform. " WRITE_RESULT
<< Start-Of-Selection
ไม่มีความคิดเห็น:
แสดงความคิดเห็น