21.03.2013 Views

Object Oriented ABAP

Object Oriented ABAP

Object Oriented ABAP

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

*&---------------------------------------------------------------------*<br />

* Close the document when user leaves the program<br />

*----------------------------------------------------------------------*<br />

FORM f_close_document .<br />

* Close document<br />

IF NOT r_proxy IS INITIAL.<br />

CALL METHOD r_proxy->close_document<br />

IMPORTING<br />

error = r_error<br />

retcode = wf_retcode.<br />

IF r_error->has_failed = abap_true.<br />

CALL METHOD r_error->raise_message<br />

EXPORTING<br />

type = 'E'.<br />

ENDIF.<br />

ENDIF.<br />

ENDFORM. " f_close_document<br />

*&---------------------------------------------------------------------*<br />

*& Form f_save_document<br />

*&---------------------------------------------------------------------*<br />

* Save the modified entries into database table<br />

*----------------------------------------------------------------------*<br />

FORM f_save_document .<br />

DATA: locint_ranges TYPE soi_range_list,<br />

locwa_ranges TYPE soi_range_item,<br />

locint_moddata TYPE soi_generic_table,<br />

locwa_moddata TYPE soi_generic_item,<br />

locint_agents_mod TYPE TABLE OF ysm_agents,<br />

locwa_agents_mod TYPE ysm_agents,<br />

loc_error_row TYPE i.<br />

* Initialize the colour of the editable range<br />

CALL METHOD r_excel->set_color<br />

EXPORTING<br />

rangename = 'EDIT'<br />

front = 1<br />

back = 4<br />

IMPORTING<br />

error = r_error<br />

retcode = wf_retcode.<br />

IF r_error->has_failed = abap_true.<br />

CALL METHOD r_error->raise_message<br />

EXPORTING<br />

type = 'E'.<br />

ENDIF.<br />

* Define the range from which data needs to be read<br />

locwa_ranges-name = 'AGENTS'.<br />

locwa_ranges-rows = wf_entries.<br />

locwa_ranges-columns = 3.<br />

APPEND locwa_ranges TO locint_ranges.<br />

* Get modified data

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!