字體：小 中 大 |
|
|
|
| 2018/12/14 13:56:55瀏覽1658｜回應0｜推薦0 | |
銀行代碼主檔資料
table : BNKA
建立 TCODE:FI01
批次建立似乎無TCODE可執行
有BAPI 可批次建立
銀行代碼為KEY值,無法更改.只能新增.
同一間銀行,銀行不變,代碼卻更改了.在SAP內.代碼是不能更改的.
只能新增.
TYPE-POOLS: truxs.
PARAMETERS: p_file TYPE rlgrap-filename.
" 這個內表 擺放 EXCEL 欄位
TYPES: BEGIN OF t_datatab,
col1 TYPE BNKA-BANKL,
col2(30) TYPE c,
col3(30) TYPE c,
col4(30) TYPE c,
END OF t_datatab.
DATA: it_datatab type standard table of t_datatab,
wa_datatab type t_datatab.
DATA: it_raw TYPE truxs_t_text_data.
* At selection screen
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CALL FUNCTION F4_FILENAME
EXPORTING
field_name = P_FILE
IMPORTING
file_name = p_file.
***********************************************************************
*START-OF-SELECTION.
START-OF-SELECTION.
CALL FUNCTION TEXT_CONVERT_XLS_TO_SAP
EXPORTING
* I_FIELD_SEPERATOR =
i_line_header = X
i_tab_raw_data = it_raw " WORK TABLE
i_filename = p_file
TABLES
i_tab_converted_data = it_datatab[] "ACTUAL DATA
EXCEPTIONS
conversion_failed = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
***********************************************************************
* END-OF-SELECTION.
END-OF-SELECTION.
DATA : BANK_ADDRESS TYPE BAPI1011_ADDRESS,
RETURN TYPE BAPIRET2.
LOOP AT it_datatab INTO wa_datatab.
BANK_ADDRESS-BANK_NAME = wa_datatab-col2.
BANK_ADDRESS-STREET = wa_datatab-col4.
BANK_ADDRESS-CITY = .
BANK_ADDRESS-BANK_BRANCH = wa_datatab-col3.
call function BAPI_BANK_CREATE
exporting
bank_ctry = TW
BANK_KEY = wa_datatab-col1
bank_address = BANK_ADDRESS
* BANK_METHOD =
* BANK_FORMATTING =
* BANK_ADDRESS1 =
* I_XUPDATE = X
IMPORTING
RETURN = RETURN
* BANKCOUNTRY =
* BANKKEY =
.
call function BAPI_TRANSACTION_COMMIT
* EXPORTING
* WAIT =
* IMPORTING
* RETURN =
.
IF RETURN IS INITIAL.
MESSAGE The bank is created successfully TYPE S.
ELSE.
WRITE : / RETURN-MESSAGE.
ENDIF.
ENDLOOP.
IF sy-subrc = 0.
MESSAGE 資料已轉入OK! TYPE S.
ENDIF.
|
|
| ( 知識學習｜商業管理 ) |
