Hi guys.I tried the following code and i am stuck.
Report ZTRIAL
no standard page heading line-size 255.
include zbdcrecx1.
TABLES: BSEG, BKPF.
TYPES: BEGIN OF it_lines, "Work table used for upload
line(1000) TYPE c,
END OF it_lines.
DATA: HEADER LIKE bapiache09,
accountgl LIKE bapiacgl09 OCCURS 0 WITH HEADER LINE,
t_return LIKE bapiret2 OCCURS 0 WITH HEADER LINE,
CURRENCYAMOUNT LIKE bapiaccr09 OCCURS 0 WITH HEADER LINE,
w_item_gl TYPE bapiacgl09,
t_item_gl TYPE STANDARD TABLE OF bapiacgl09.
TYPES:BEGIN OF it_posting, "Work table used for upload
company(4) TYPE N,
doc_date(10) TYPE N,
pstng_date(10) TYPE N,
doc_type(2) Type N,
fiscal_yr(10) TYPE N,
ref_doc_no(15) TYPE N,
pkey(2) type N,
gl_account(018) TYPE N,
busarea(4) TYPE N,
pcenter(010) TYPE N,
assignment(018) TYPE N,
text(050) TYPE N,
amount(016) TYPE N,
tax(004) TYPE N,
END OF it_posting.
Data: it_posting TYPE STANDARD TABLE OF it_posting,
w_postings type it_posting,
t_curr TYPE STANDARD TABLE OF t001 ,
w_curr type t001,
w_item_curr TYPE bapiaccr09,
t_item_curr TYPE STANDARD TABLE OF bapiaccr09.
DATA : g_credit_total like bseg-dmbtr,
g_debit_total like bseg-dmbtr.
CONSTANTS: g_error_flag VALUE 'X'. " Flag.
CONSTANTS : c_x VALUE 'X'. " Flag
data:
g_obj_type like bapiache02-obj_type,
g_obj_key like bapiache02-obj_key,
g_obj_sys like bapiache02-obj_sys.
DATA: it_lines TYPE it_lines OCCURS 0 WITH HEADER LINE.
DATA: p_file1 TYPE string.
PARAMETERS: p_file LIKE rlgrap-filename OBLIGATORY.
initialization.
user = sy-uname.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
CHANGING
file_name = p_file
EXCEPTIONS
mask_too_long = 1
OTHERS = 2.
START-OF-SELECTION.
p_file1 = p_file.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = p_file1
filetype = 'ASC'
TABLES
data_tab = it_lines .
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 it_lines.
SPLIT it_lines-line AT ',' INTO
w_postings-company
w_postings-doc_date
w_postings-pstng_date
w_postings-ref_doc_no
w_postings-pkey
w_postings-gl_account
w_postings-busarea
w_postings-pcenter
w_postings-assignment
w_postings-text
w_postings-amount
w_postings-tax
w_postings-amount .
APPEND w_postings TO it_posting.
*ENDIF.
ENDLOOP.
CLEAR:
w_postings.
LOOP AT it_posting into w_postings.
endloop.
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""'
FORM populate_bapi USING rlv_counter TYPE posnr_acc.
**Populate line item details
CONSTANTS : c_x VALUE 'X'. " Flag
data g_cross_flag.
IF w_postings-company NE Header-comp_code.
g_cross_flag = c_x.
ENDIF.
*Fill Credit line item data
IF w_postings-pkey = 25.
w_item_gl-itemno_acc = rlv_counter.
w_item_gl-comp_code = w_postings-company.
w_item_gl-gl_account = w_postings-gl_account.
w_item_gl-pstng_date = header-pstng_date.
w_item_gl-BUS_AREA = w_postings-busarea.
w_item_gl-profit_ctr = w_postings-pcenter.
*w_item_gl-tax_code = w_postings-tax_code.
w_item_gl-ALLOC_NMBR = w_postings-assignment.
w_item_gl-ITEM_TEXT = w_postings-text.
APPEND w_item_gl TO t_item_gl.
* To fetch company code currency
READ TABLE t_curr INTO w_curr
WITH KEY bukrs = w_postings-company
BINARY SEARCH.
w_item_curr-currency = w_curr-waers.
w_item_curr-amt_doccur = w_postings-amount * -1.
APPEND w_item_curr TO t_item_curr.
CLEAR w_item_curr.
g_credit_total = g_credit_total + w_postings-amount.
* Clear variables
CLEAR: w_postings,
w_item_curr,
w_curr,
w_item_gl.
*Fill Debit line item data
ELSEIF w_postings-pkey = 50.
w_item_gl-itemno_acc = rlv_counter.
w_item_gl-comp_code = w_postings-company.
w_item_gl-gl_account = w_postings-gl_account.
w_item_gl-pstng_date = header-pstng_date.
w_item_gl-BUS_AREA = w_postings-busarea.
w_item_gl-profit_ctr = w_postings-pcenter.
w_item_gl-tax_code = w_postings-tax.
w_item_gl-ALLOC_NMBR = w_postings-assignment.
w_item_gl-ITEM_TEXT = w_postings-text.
APPEND w_item_gl TO t_item_gl.
READ TABLE t_curr INTO w_curr
WITH KEY bukrs = w_postings-company
BINARY SEARCH.
w_item_curr-currency = w_curr-waers.
w_item_curr-amt_doccur = w_postings-amount * -1.
APPEND w_item_curr TO t_item_curr.
CLEAR w_item_curr.
g_credit_total = g_credit_total + w_postings-amount.
* Clear variables
CLEAR: w_postings,
w_item_curr,
w_curr,
w_item_gl.
endif.
endform.
FORM post_document.
TYPES:BEGIN OF type_bkpf,
bukrs TYPE bkpf-bukrs,
belnr TYPE bkpf-belnr,
gjahr TYPE bkpf-gjahr,
END OF type_bkpf.
*Local variable declarations
DATA: lv_belnr TYPE belnr_d,
lv_bukrs TYPE bukrs,
lv_gjahr TYPE gjahr,
*lw_message TYPE type_message,
lv_msg TYPE symsgv,
*lv_rdate TYPE sy-datum,
lt_return TYPE STANDARD TABLE OF bapiret2,
lw_return TYPE bapiret2, "#EC NEEDED
lt_bkpf TYPE STANDARD TABLE OF type_bkpf,
lw_bkpf TYPE type_bkpf.
*lv_bvorg TYPE bvor-bvorg.
*Clear local work area and variables
*lw_message,
CLEAR:
lv_msg,
lw_return,
lw_bkpf.
CLEAR: header-obj_type,
header-obj_key,
header-obj_sys.
IF g_error_flag NE c_x.
IF g_credit_total <> 0 AND g_debit_total <> 0.
CALL FUNCTION 'BAPI_ACC_DOCUMENT_CHECK'
EXPORTING
documentheader = header
TABLES
accountgl = t_item_gl
currencyamount = t_item_curr
return = t_return.
If t_return is not initial.
* Posting journal entries
CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
EXPORTING
documentheader = header
IMPORTING
obj_type = g_obj_type
obj_key = g_obj_key
obj_sys = g_obj_sys
TABLES
accountgl = t_item_gl
currencyamount = t_item_curr
return = t_return.
IF sy-subrc <> 0.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = c_x.
ENDIF.
Endif.
Endif.
ENDIF.
ENDFORM." POPULATE_BAPI
Bluesky
