Ingenieria Informatica

SOURCE CODE:
*Global DATA declarations
TYPES: BEGIN OF type_upload, "Work table used for upload
rec(500) TYPE c,
END OF type_upload.
*Global work area declarations
DATA: w_postingsTYPE ,
w_header TYPE bapiache09,
w_bukrs TYPE type_bukrs,w_upload TYPE type_upload,
w_item_gl TYPE bapiacgl09,
w_dummy(1) TYPE c, "#EC NEEDED
w_item_curr TYPE bapiaccr09.
DATA:t_posting TYPE STANDARD TABLE OF ,
t_return TYPE STANDARD TABLE OF bapiret2,
t_bukrs TYPE STANDARD TABLE OF type_bukrs,t_item_gl TYPE STANDARD TABLE OF bapiacgl09,
t_upload TYPE STANDARD TABLE OF type_upload,
t_filename TYPE STANDARD TABLE OF type_filename,
t_item_curr TYPE STANDARD TABLE OF bapiaccr09.
*&--------------------------------------------------------------------*
*&Form UPLOAD_FROM_EXCEL*&--------------------------------------------------------------------*
FORM upload_from_excel.
REFRESH t_upload.
*--upload data from excel to internal table
DATA: lw_filename TYPE string.
lw_filename = p_file.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTINGfilename = lw_filename
filetype = 'ASC'
TABLES
data_tab = t_upload
EXCEPTIONS
file_open_error = 1
file_read_error = 2
no_batch = 3
gui_refuse_filetransfer = 4invalid_type = 5
no_authority = 6
unknown_error = 7
bad_data_format = 8
header_not_allowed = 9
separator_not_allowed = 10
header_too_long = 11
unknown_dp_error = 12
access_denied= 13
dp_out_of_memory = 14
disk_full = 15
dp_timeout = 16
OTHERS = 17.
*- End of change @ECC
ENDFORM." UPLOAD_FROM_EXCEL
*&--------------------------------------------------------------------**&Form SPLIT_INTO_RECORDS
*&--------------------------------------------------------------------*
FORM split_into_records.
DATA: lv_doc_date TYPE sy-datum,
lv_account TYPE char10,
lv_product TYPE char20,
lv_period TYPE char2,
lv_kursf TYPE char9,lv_aufnr TYPE char12,
lv_plant TYPE char10,
lv_customer TYPE kunnr,
lv_cust_hie2 TYPE hiezu02,
lv_pstng_date TYPE sy-datum,
lv_amount TYPE char30.
CLEAR:lv_doc_date,
lv_account,
lv_product,
lv_period,lv_kursf,
lv_plant,
lv_customer,
lv_cust_hie2,
lv_pstng_date,
lv_amount.
*Split header data
LOOP AT t_upload INTO w_upload.
CASE sy-tabix.
* start of insert @007
WHEN 2.
SPLIT w_upload...