abap 中的材料主数据导入程序(基本视图、公司代码视图、采购视图、银行视图)
最编程
2024-04-01 18:20:58
...
REPORT zmmb_003 LINE-SIZE 400
MESSAGE-ID zmm
NO STANDARD PAGE HEADING.
*--------------------------------------------------------------------
* tables(聲明使用到的數據庫表)
*--------------------------------------------------------------------
TABLES: sscrfields.
*----------------------------------------------------------------------*
* type-pools define(定義使用到的類型池)
*----------------------------------------------------------------------*
TYPE-POOLS:
icon.
*----------------------------------------------------------------------*
* ALV 相關
*----------------------------------------------------------------------*
DATA w_layout TYPE lvc_s_layo.
DATA it_fieldcat_lvc TYPE lvc_t_fcat.
DATA w_fieldcat TYPE lvc_s_fcat.
DATA: gs_fcode TYPE char10.
DATA: gv_error TYPE c.
DATA: gs_functxt TYPE smp_dyntxt.
*--------------------------------------------------------------------
* define internal table(定義類型結構)
*--------------------------------------------------------------------
TYPES: BEGIN OF typ_return,
flagf TYPE char4,
msg(255),
END OF typ_return.
*基本視圖
TYPES: BEGIN OF typ_upload_basic,
partner TYPE but100-partner , " 業務夥伴編號編碼
bu_role TYPE bu_role_screen , " "BP 角色"
name_org1 TYPE but000-name_org1 , " 供應商名稱
name_org2 TYPE but000-name_org2 , " 組織名稱 2
name_org3 TYPE but000-name_org3 , " 組織名稱 3
name_org4 TYPE but000-name_org4 , " 組織名稱 4
bu_sort1 TYPE but000-bu_sort1 , " 搜索詞1
bu_sort2 TYPE but000-bu_sort2 , " 搜索詞2
street TYPE adrc-street, "街道地址1
str_suppl1 TYPE adrc-str_suppl1, "街道地址2
country TYPE adrc-country , " 國家代碼
city1 TYPE adrc-city1 , " 城市
region TYPE addr1_data-region , " 地區
post_code1 TYPE adrc-post_code1 , " 城市郵遞區號
house_num1 TYPE adrc-house_num1 , " 門牌號
langu TYPE char2 , " 語言代碼
tel_number TYPE adrc-tel_number , " 送貨聯繫電話
tel_number2 TYPE adrc-tel_number , " 送貨聯繫電話2
telf2 TYPE kna1-telf2 , " 行動電話
fax_number TYPE adrc-fax_number , " 傳真號
smtp_addr TYPE adr6-smtp_addr , " 電子郵件
smtp_addr2 TYPE adr6-smtp_addr , " 電子郵件2
taxtype TYPE dfkkbptaxnum-taxtype , " 稅碼類別
taxnumxl LIKE dfkkbptaxnum-taxnumxl, " 統一編號(稅號)
END OF typ_upload_basic.
TYPES: BEGIN OF typ_basic_result.
INCLUDE TYPE typ_upload_basic.
INCLUDE TYPE typ_return.
TYPES: END OF typ_basic_result.
TYPES: BEGIN OF typ_upload_pur,
partner TYPE but100-partner , " 供應商編碼
name_org1 TYPE but000-name_org1 , " 供應商名稱
ekorg TYPE lfm1-ekorg , " 採購組織
waers TYPE lfm1-waers , " 採購訂單貨幣
zterm TYPE lfm1-zterm , " 付款條件
inco1 TYPE lfm1-inco1 , " 貿易條款
inco2 TYPE lfm1-inco2 , " 貿易條款地點1
vsbed TYPE lfm1-vsbed , " 裝運條件
webre TYPE lfm1-webre , " 發票驗證
verkf TYPE lfm1-verkf, "業務人員
END OF typ_upload_pur.
TYPES: BEGIN OF typ_pur_result.
INCLUDE TYPE typ_upload_pur.
INCLUDE TYPE typ_return.
TYPES: END OF typ_pur_result.
TYPES: BEGIN OF typ_upload_company,
partner TYPE but100-partner , " 供應商編碼
name_org1 TYPE but000-name_org1 , " 供應商名稱
bukrs TYPE lfb1-bukrs , " "公司代碼
akont TYPE lfb1-akont , " "總帳的統馭科目
zterm TYPE lfb1-zterm , " 付款條件
zwels TYPE lfb1-zwels , " 付款方式
hbkid TYPE lfb1-hbkid , " 往來銀行
END OF typ_upload_company.
TYPES: BEGIN OF typ_company_result.
INCLUDE TYPE typ_upload_company.
INCLUDE TYPE typ_return.
TYPES: END OF typ_company_result.
TYPES: BEGIN OF typ_upload_bank,
partner TYPE but000-partner, "供應商名稱
banks TYPE knbk-banks, "银行国家代码參考國家頁籤
bkdsc TYPE knbk-ebpp_accname, "銀行名稱
bankl TYPE knbk-bankl, "银行代碼
koinh TYPE knbk-koinh, "帳戶持有的公司名稱
bankn TYPE knbk-bankn, "銀行帳號
END OF typ_upload_bank.
TYPES: BEGIN OF typ_bank_result.
INCLUDE TYPE typ_upload_bank.
INCLUDE TYPE typ_return.
TYPES: END OF typ_bank_result.
DATA: it_upload_basic TYPE TABLE OF typ_upload_basic,
it_upload_pur TYPE TABLE OF typ_upload_pur,
it_upload_company TYPE TABLE OF typ_upload_company,
it_upload_bank TYPE TABLE OF typ_upload_bank,
it_basic_result TYPE TABLE OF typ_basic_result,
it_pur_result TYPE TABLE OF typ_pur_result,
it_company_result TYPE TABLE OF typ_company_result,
it_bank_result TYPE TABLE OF typ_bank_result.
*CONSTANTS : c_parvw1 TYPE parvw VALUE 'PI',
* c_parvw2 TYPE parvw VALUE 'OA',
* c_parvw3 TYPE parvw VALUE 'VN'.
*-------------------------------------------------------------------
* selection-screen(定義選擇螢幕)
*-------------------------------------------------------------------
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-000.
SELECTION-SCREEN FUNCTION KEY 1.
PARAMETERS:
p_basic RADIOBUTTON GROUP g1 DEFAULT 'X' USER-COMMAND com1,
p_pur RADIOBUTTON GROUP g1,
p_comp RADIOBUTTON GROUP g1,
p_bank RADIOBUTTON GROUP g1.
SELECTION-SCREEN: END OF BLOCK b1.
SELECTION-SCREEN: BEGIN OF BLOCK b5 WITH FRAME TITLE TEXT-002.
PARAMETERS: p_path LIKE rlgrap-filename .
SELECTION-SCREEN: END OF BLOCK b5.
*SELECTION-SCREEN FUNCTION KEY 2.
*--------------------------------------------------------------------
* initialization(螢幕的初始化)
*--------------------------------------------------------------------
INITIALIZATION.
PERFORM f_init_scr.
*------------------------------------------------------------------
* at selection-screen(處理用於在選擇螢幕上的操作)
*------------------------------------------------------------------
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path.
PERFORM f_get_filepath USING p_path.
AT SELECTION-SCREEN.
PERFORM f_auth_check.
* 螢幕處理 範本下載
PERFORM frm_at_sle_scr.
*--------------------------------------------------------------------
* start-of-selection(調用perform)
*--------------------------------------------------------------------
START-OF-SELECTION.
PERFORM frm_check_filepath.
"* set function code
PERFORM f_set_fcode.
"* upload data from file
PERFORM f_upload_data.
* 導入數據
PERFORM f_maintain_data.
*--------------------------------------------------------------------
* end-of-selection(調用perform)
*--------------------------------------------------------------------
END-OF-SELECTION.
*********************************************************************
* subroutines(子例程)
*********************************************************************
*&------------------------------------------------------------------*
*& Form f_get_filepath
*&------------------------------------------------------------------*
* get the file to be updated
*-------------------------------------------------------------------*
FORM f_get_filepath USING pr_path.
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
mask =
',All Files,*.*,Excel(*.XLSX;*.XLS),*.XLSX,*.XLS.'
mode = 'O'
IMPORTING
filename = pr_path
EXCEPTIONS
inv_winsys = 1
no_batch = 2
selection_cancel = 3
selection_error = 4
OTHERS = 5.
ENDFORM. " f_get_filepath
*&------------------------------------------------------------------*
*& Form f_set_fcode
*&------------------------------------------------------------------*
FORM f_set_fcode .
CASE 'X'.
WHEN p_basic.
gs_fcode = 'V_BASIC'.
WHEN p_pur.
gs_fcode = 'V_PUR'.
WHEN p_comp.
gs_fcode = 'V_COMPANY'.
WHEN p_bank.
gs_fcode = 'V_BANK'.
ENDCASE.
IF gs_fcode IS INITIAL.
MESSAGE i208(00) WITH 'Please run prgram via TCode!'.
STOP.
ENDIF.
ENDFORM.
*&-------------------------------------------------------------------*
*& Form f_upload_data
*&-------------------------------------------------------------------*
* Upload data for maitain material
*-------------------------------------------------------------------*
FORM f_upload_data .
CASE gs_fcode.
WHEN 'V_BASIC'.
PERFORM f_upl_data TABLES it_upload_basic.
LOOP AT it_upload_basic ASSIGNING FIELD-SYMBOL(<fs_basic>).
* PERFORM frm_matnr_input USING <fs_basic>-matnr CHANGING <fs_basic>-matnr.
<fs_basic>-partner = |{ <fs_basic>-partner ALPHA = IN }|. ."
ENDLOOP.
WHEN 'V_PUR'.
PERFORM f_upl_data TABLES it_upload_pur.
LOOP AT it_upload_pur ASSIGNING FIELD-SYMBOL(<fs_pur>).
* PERFORM frm_matnr_input USING <fs_PUR>-matnr CHANGING <fs_PUR>-matnr.
<fs_pur>-partner = |{ <fs_pur>-partner ALPHA = IN }|. "
ENDLOOP.
WHEN 'V_COMPANY'.
PERFORM f_upl_data TABLES it_upload_company.
LOOP AT it_upload_company ASSIGNING FIELD-SYMBOL(<fs_company>).
* PERFORM frm_matnr_input USING <fs_company>-matnr CHANGING <fs_company>-matnr.
<fs_company>-partner = |{ <fs_company>-partner ALPHA = IN }|. "
<fs_company>-akont = | { <fs_company>-akont ALPHA = IN }|. "
ENDLOOP.
WHEN 'V_BANK'.
PERFORM f_upl_data TABLES it_upload_bank.
LOOP AT it_upload_pur ASSIGNING FIELD-SYMBOL(<fs_bank>).
* PERFORM frm_matnr_input USING <fs_PUR>-matnr CHANGING <fs_PUR>-matnr.
<fs_bank>-partner = |{ <fs_bank>-partner ALPHA = IN }|. "
ENDLOOP.
WHEN OTHERS.
ENDCASE.
* BREAK-POINT.
ENDFORM. " f_upload_data
*&-------------------------------------------------------------------*
*& Form f_upl_data
*&-------------------------------------------------------------------*
FORM f_upl_data TABLES pt_data .
DATA: lt_raw TYPE truxs_t_text_data.
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
* I_FIELD_SEPERATOR =
i_line_header = 'X'
"if this flag is set,first row of record will be ignored during import.
i_tab_raw_data = lt_raw " working buffer
i_filename = p_path " input Excel file.
TABLES
i_tab_converted_data = pt_data "internal table holding the Excel 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.
EXIT.
ENDIF.
IF pt_data[] IS INITIAL.
MESSAGE s999 WITH TEXT-001 DISPLAY LIKE 'E'.
LEAVE LIST-PROCESSING AND RETURN TO SCREEN 0.
ENDIF.
ENDFORM. " f_upl_purchase
*&-------------------------------------------------------------------*
*& Form f_maintain_data
*&-------------------------------------------------------------------*
* Call BAPI to maintain material master
*--------------------------------------------------------------------*
FORM f_maintain_data .
CHECK gv_error IS INITIAL.
CASE gs_fcode.
WHEN 'V_BASIC'.
PERFORM f_maintain_basic.
WHEN 'V_PUR'.
PERFORM f_maintain_pur.
WHEN 'V_COMPANY'.
PERFORM f_maintain_company.
WHEN 'V_BANK'.
PERFORM f_maintain_bank.
WHEN OTHERS.
ENDCASE.
ENDFORM. " f_maintain_data
*&------------------------------------------------------------------*
*& Form f_maintain_BASIC
*&------------------------------------------------------------------*
* 基本視圖
*-------------------------------------------------------------------*
FORM f_maintain_basic .
DATA: ls_basic_result TYPE typ_basic_result,
ls_return TYPE bapiret2.
DATA : ls_data TYPE cvis_ei_extern,
lt_data TYPE cvis_ei_extern_t.
DATA : ls_partner TYPE bus_ei_extern,
ls_vendor TYPE vmds_ei_extern.
* 根據夥伴GUID取出供應商編號
DATA : lt_partnerguid_list TYPE bu_partner_guid_t,
ls_partnerguid_list LIKE LINE OF lt_partnerguid_list.
DATA : lt_vendor_list TYPE cvis_vend_link_t,
ls_vendor_list TYPE cvi_vend_link.
DATA : ls_header TYPE vmds_ei_header,
ls_central_data TYPE vmds_ei_central_data,
ls_company_data TYPE vmds_ei_vmd_company,
ls_purchasing_data TYPE vmds_ei_vmd_purchasing.
DATA : lt_roles TYPE bus_ei_bupa_roles_t,
ls_roles TYPE bus_ei_bupa_roles,
lt_ident_numbers TYPE bus_ei_bupa_identification_t,
ls_ident_numbers TYPE bus_ei_bupa_identification,
lt_addresses TYPE bus_ei_bupa_address_t,
ls_addresses TYPE bus_ei_bupa_address,
lt_phone TYPE bus_ei_bupa_telephone_t,
ls_phone TYPE bus_ei_bupa_telephone,
lt_fax TYPE bus_ei_bupa_fax_t,
ls_fax TYPE bus_ei_bupa_fax,
lt_smtp TYPE bus_ei_bupa_smtp_t,
ls_smtp TYPE bus_ei_bupa_smtp,
lt_tax TYPE bus_ei_bupa_taxnumber_t,
ls_tax TYPE bus_ei_bupa_taxnumber,
ls_central TYPE vmds_ei_vmd_central,
lt_company TYPE vmds_ei_company_t,
ls_company TYPE vmds_ei_company,
lt_purchasing TYPE vmds_ei_purchasing_t,
ls_purchasing TYPE vmds_ei_purchasing,
lt_functions TYPE vmds_ei_functions_t,
ls_functions TYPE vmds_ei_functions,
lt_texts TYPE cvis_ei_text_t,
ls_texts TYPE cvis_ei_text,
lt_tab TYPE tline_tab,
ls_tab TYPE tline,
ls_remarks TYPE bus_ei_bupa_comrem,
lt_remarks TYPE bus_ei_bupa_comrem_t.
DATA : lv_bpartnerguid TYPE bu_partner_guid_bapi,
lv_partner TYPE bu_partner.
LOOP AT it_upload_basic INTO DATA(ls_basic).
MOVE-CORRESPONDING ls_basic TO ls_basic_result.
SELECT SINGLE *
FROM but000
INTO @DATA(ls_but000)
WHERE partner = @ls_basic-partner.
*sy-subrc=0表示找到,M表示供應商已經存在修改,I表示新建
*I插入 U更新 M修改 D删除 C当前状态
IF sy-subrc = 0.
DATA(lv_object_task) = 'M'.
lv_bpartnerguid = ls_but000-partner_guid.
ELSE.
lv_object_task = 'I'.
TRY .
lv_bpartnerguid = cl_uuid_factory=>create_system_uuid( )->create_uuid_x16( ).
CATCH cx_uuid_error.
ENDTRY.
ENDIF.
CLEAR:lt_roles.
ls_roles-task = lv_object_task.
ls_roles-data_key = ls_basic-bu_role."BP角色
APPEND ls_roles TO lt_roles.
ls_partner-central_data-role-roles = lt_roles.
ls_partner-header-object_task = lv_object_task.
ls_partner-header-object_instance-bpartner = ls_basic-partner."業務夥伴編號編碼
ls_partner-header-object_instance-bpartnerguid = lv_bpartnerguid.
****業務合作夥伴數據的中心數據***********************************
ls_partner-central_data-common-data-bp_control-category = '2'. "業務夥伴類別
ls_partner-central_data-common-data-bp_control-grouping = 'Z002'. "業務夥伴分組
ls_partner-central_data-common-data-bp_centraldata-title_key = '0003'. "固定值,代表公司
ls_partner-central_data-common-data-bp_organization-name1 = ls_basic-name_org1. "供應商名稱1
ls_partner-central_data-common-data-bp_organization-name2 = ls_basic-name_org2. "供應商名稱2
ls_partner-central_data-common-data-bp_organization-name3 = ls_basic-name_org3. "供應商名稱3
ls_partner-central_data-common-data-bp_organization-name4 = ls_basic-name_org4. "供應商名稱4
ls_partner-central_data-common-data-bp_centraldata-searchterm1 = ls_basic-bu_sort1. "檢索項
ls_partner-central_data-common-data-bp_centraldata-searchterm2 = ls_basic-bu_sort2. "檢索項
ls_partner-central_data-common-datax-bp_centraldata-title_key = abap_true.
ls_partner-central_data-common-datax-bp_organization-name1 = abap_true.
ls_partner-central_data-common-datax-bp_organization-name2 = abap_true.
ls_partner-central_data-common-datax-bp_organization-name3 = abap_true.
ls_partner-central_data-common-datax-bp_organization-name4 = abap_true.
ls_partner-central_data-common-datax-bp_centraldata-searchterm1 = abap_true.
ls_partner-central_data-common-datax-bp_centraldata-searchterm2 = abap_true.
***地址資訊
CLEAR:lt_remarks,lt_phone,lt_fax,lt_smtp,lt_addresses.
ls_addresses-task = lv_object_task.
ls_addresses-data-postal-data-street = ls_basic-street. "街道1
ls_addresses-data-postal-data-str_suppl1 = ls_basic-str_suppl1." 街道2
ls_addresses-data-postal-data-country = ls_basic-country. "國家
ls_addresses-data-postal-data-city = ls_basic-city1. "城市
ls_addresses-data-postal-data-region = ls_basic-region. "地區
ls_addresses-data-postal-data-postl_cod1 = ls_basic-post_code1 . "郵編
ls_addresses-data-postal-data-house_no = ls_basic-house_num1. " 門牌號
ls_addresses-data-postal-data-languiso = ls_basic-langu. "語言
ls_addresses-data-postal-datax-postl_cod1 = abap_true.
ls_addresses-data-postal-datax-city = abap_true.
ls_addresses-data-postal-datax-street = abap_true.
ls_addresses-data-postal-datax-str_suppl1 = abap_true.
ls_addresses-data-postal-datax-country = abap_true.
ls_addresses-data-postal-datax-region = abap_true. "地區
ls_addresses-data-postal-datax-langu_iso = abap_true. "語言
ls_addresses-data-postal-datax-house_no = abap_true. " 門牌號
CLEAR:ls_phone.
ls_phone-contact-task = lv_object_task.
ls_phone-contact-data-telephone = ls_basic-tel_number. "送貨聯繫電話
ls_phone-contact-datax-telephone = abap_true.
APPEND ls_phone TO lt_phone.
CLEAR ls_phone.
ls_phone-contact-task = lv_object_task.
ls_phone-contact-data-telephone = ls_basic-tel_number2. "送貨聯繫電話2
ls_phone-contact-datax-telephone = abap_true.
APPEND ls_phone TO lt_phone.
CLEAR ls_phone.
ls_phone-contact-task = lv_object_task.
ls_phone-contact-data-telephone = ls_basic-telf2. "行動電話
ls_phone-contact-datax-telephone = abap_true.
ls_phone-contact-data-r_3_user = '3'. "3行動電話
ls_phone-contact-datax-r_3_user = abap_true. "3行動電話
APPEND ls_phone TO lt_phone.
CLEAR:lt_fax.
ls_fax-contact-task = lv_object_task.
ls_fax-contact-data-fax = ls_basic-fax_number. "傳真號
ls_fax-contact-datax-fax = abap_true.
APPEND ls_fax TO lt_fax.
ls_addresses-data-communication-fax-fax = lt_fax.
CLEAR:lt_smtp.
ls_smtp-contact-task = lv_object_task.
ls_smtp-contact-data-e_mail = ls_basic-smtp_addr . "電子郵件
ls_smtp-contact-datax-e_mail = abap_true.
APPEND ls_smtp TO lt_smtp.
ls_addresses-data-communication-smtp-smtp = lt_smtp.
APPEND ls_addresses TO lt_addresses.
CLEAR:lt_smtp.
ls_smtp-contact-task = lv_object_task.
ls_smtp-contact-data-e_mail = ls_basic-smtp_addr2. "電子郵件2
ls_smtp-contact-datax-e_mail = abap_true.
APPEND ls_smtp TO lt_smtp.
ls_addresses-data-communication-smtp-smtp = lt_smtp.
APPEND ls_addresses TO lt_addresses.
CLEAR: lt_tax.
ls_tax-task = lv_object_task.
ls_tax-data_key-taxtype = ls_basic-taxtype.
ls_tax-data_key-taxnumxl = ls_basic-taxnumxl.
APPEND ls_tax TO lt_tax.
ls_partner-central_data-address-addresses = lt_addresses.
ls_partner-central_data-communication-phone-phone = lt_phone.
ls_partner-central_data-communication-fax-fax = lt_fax.
ls_partner-central_data-communication-smtp-smtp = lt_smtp.
ls_partner-central_data-taxnumber-taxnumbers = lt_tax.
ls_vendor-header-object_instance-lifnr = ls_basic-partner.
ls_vendor-header-object_task = lv_object_task.
* ls_data-vendor = ls_vendor.
ls_data-partner = ls_partner.
APPEND ls_data TO lt_data.
PERFORM frm_cvi_ei USING lv_bpartnerguid
CHANGING lt_data
ls_return
lv_partner."創建BP用戶
IF ls_return-type = 'E'.
ls_basic_result-flagf = icon_red_light.
ELSE.
ls_basic_result-flagf = icon_green_light.
ls_basic_result-partner = lv_partner.
ENDIF.
ls_basic_result-msg = ls_return-message.
APPEND ls_basic_result TO it_basic_result.
CLEAR ls_basic_result .
CLEAR ls_return.
ENDLOOP.
*ALV SHOW.
PERFORM frm_create_row USING 'FLAGF' '標記'(t04) ''.
PERFORM frm_create_row USING 'MSG' '消息'(t07) ''.
PERFORM frm_create_row USING 'PARTNER' '業務夥伴編號編碼'(t08) ''.
PERFORM frm_create_row USING 'BU_ROLE' 'BP 角色'(t15) ''.
PERFORM frm_create_row USING 'NAME_ORG1' '供應商名稱'(t16) ''.
PERFORM frm_create_row USING 'NAME_ORG2' '組織名稱 2'(t17) ''.
PERFORM frm_create_row USING 'NAME_ORG3' '組織名稱 3'(t18) ''.
PERFORM frm_create_row USING 'NAME_ORG4' '組織名稱 4'(t19) ''.
PERFORM frm_create_row USING 'BU_SORT1' '搜索詞1'(t20) ''.
PERFORM frm_create_row USING 'BU_SORT2' '搜索詞2'(t21) ''.
PERFORM frm_create_row USING 'STREET' '街道地址1'(t22) ''.
PERFORM frm_create_row USING 'STR_SUPPL1' '街道地址2'(t23) ''.
PERFORM frm_create_row USING 'COUNTRY' '國家代碼'(t24) ''.
PERFORM frm_create_row USING 'CITY1' '城市'(t25) ''.
PERFORM frm_create_row USING 'REGION' '地區'(t26) ''.
PERFORM frm_create_row USING 'POST_CODE1' '城市郵遞區號'(t27) ''.
PERFORM frm_create_row USING 'HOUSE_NUM1' '門牌號'(t28) ''.
PERFORM frm_create_row USING 'LANGU' '語言代碼'(t29) ''.
PERFORM frm_create_row USING 'TEL_NUMBER' '送貨聯繫電話'(t30) ''.
PERFORM frm_create_row USING 'TEL_NUMBER2' '送貨聯繫電話2'(t31) ''.
PERFORM frm_create_row USING 'TELF2' '行動電話'(t32) ''.
PERFORM frm_create_row USING 'FAX_NUMBER' '傳真號'(t33) ''.
PERFORM frm_create_row USING 'SMTP_ADDR' '電子郵件'(t34) ''.
PERFORM frm_create_row USING 'SMTP_ADDR2' '電子郵件2'(t35) ''.
PERFORM frm_create_row USING 'TAXTYPE' '稅碼類別'(t36) ''.
PERFORM frm_create_row USING 'TAXNUMXL' '統一編號(稅號)'(t37) ''.
PERFORM display_result TABLES it_basic_result.
ENDFORM. " f_maintain_BASIC
*********************************************************************
* SUBROUTINES(子例程)
*********************************************************************
*&------------------------------------------------------------------*
*& Form F_INIT_SCR
*&------------------------------------------------------------------*
FORM f_init_scr .
gs_functxt-icon_id = icon_export.
gs_functxt-icon_text = '範本下載'(t01).
sscrfields-functxt_01 = gs_functxt.
ENDFORM. " F_INIT_SCR
*&------------------------------------------------------------------*
*& Form F_AUTH_CHECK
*&------------------------------------------------------------------*
FORM f_auth_check .
DATA: lv_tcode TYPE sy-tcode.
MOVE sy-tcode TO lv_tcode. " DECK901081
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD lv_tcode.
IF sy-subrc NE 0.
MESSAGE i172(00) WITH lv_tcode.
EXIT.
ENDIF.
ENDFORM. " F_AUTH_CHECK
*&---------------------------------------------------------------------*
*& Form FRM_AT_SLE_SCR
*&---------------------------------------------------------------------*
FORM frm_at_sle_scr .
DATA:
ls_wwwdata_item LIKE wwwdatatab,
lv_file TYPE rlgrap-filename,
lv_rc LIKE sy-subrc.
CASE sscrfields-ucomm.
WHEN 'FC01'.
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
def_filename = '採購資訊紀錄導入範本.xlsx'(t02)
def_path = 'C:\'
mask = ',EXCEL FILES(*.XLSX),*.XLSX,ALL FILES(*.*),*.*,'
mode = 'S'
title = '選擇範本匯入檔'(t03)
IMPORTING
filename = lv_file
EXCEPTIONS
inv_winsys = 1
no_batch = 2
selection_cancel = 3
selection_error = 4
OTHERS = 5.
IF sy-subrc <> 0.
EXIT.
ENDIF.
SELECT SINGLE *
INTO CORRESPONDING FIELDS OF ls_wwwdata_item
FROM wwwdata
WHERE srtf2 = 0
AND relid = 'MI'
********************************UPDATE BY HAND 20201210 START
* AND OBJID = 'ZBT_PP0003I'.
AND objid = 'ZGY_MM001'.
********************************UPDATE BY HAND 20201210 END
IF sy-subrc NE 0 OR ls_wwwdata_item-objid EQ space.
MESSAGE '模版檔不存在!'(m01) TYPE 'E'.
EXIT.
ENDIF.
CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'
EXPORTING
key = ls_wwwdata_item
destination = lv_file
IMPORTING
rc = lv_rc.
IF lv_rc = 0.
MESSAGE s398(00) DISPLAY LIKE 'S' WITH '模版檔下載成功'(m02).
ELSE.
MESSAGE s398(00) DISPLAY LIKE 'E' WITH '模版檔下載失敗'(m03).
ENDIF.
ENDCASE.
ENDFORM.
*&-----------------------------------------------------------------*
*& Form FRM_CHECK_FILEPATH
*&-----------------------------------------------------------------*
* 校驗路徑
*------------------------------------------------------------------*
FORM frm_check_filepath .
IF p_path IS INITIAL .
MESSAGE s000 WITH '檔路徑為空,是否點錯了?'(m04) DISPLAY LIKE 'E'.
STOP.
ENDIF.
ENDFORM. " FRM_CHECK_FILEPATH
*&-----------------------------------------------------------------*
*& Form FRM_MATNR_INPUT
*&-----------------------------------------------------------------*
FORM frm_matnr_input USING fu_matnr TYPE matnr
CHANGING fc_matnr TYPE matnr.
CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
EXPORTING
input = fu_matnr
IMPORTING
output = fc_matnr.
ENDFORM.
*&-----------------------------------------------------------------*
*& Form FRM_MATNR_OUTPUT
*&-----------------------------------------------------------------*
FORM frm_matnr_output USING fu_matnr
CHANGING fc_matnr TYPE matnr.
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
EXPORTING
input = fu_matnr
IMPORTING
output = fc_matnr.
ENDFORM.
*&-----------------------------------------------------------------*
*& Form FRM_CUNIT_INPUT
*&-----------------------------------------------------------------*
FORM frm_cunit_input USING fu_input
CHANGING fc_input.
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_INPUT'
EXPORTING
input = fu_input
language = sy-langu
IMPORTING
output = fc_input
EXCEPTIONS
unit_not_found = 1
OTHERS = 2.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form frm_isola_input
*&---------------------------------------------------------------------*
FORM frm_isola_input USING fu_input
CHANGING fc_output.
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_INPUT'
EXPORTING
input = fu_input
IMPORTING
output = fc_output
EXCEPTIONS
unknown_language = 1
OTHERS = 2.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& display_result.
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& 顯示結果
*&---------------------------------------------------------------------*
FORM display_result TABLES ft_result.
* w_layout-detailtitl = 'TEST'.
w_layout-cwidth_opt = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
EXPORTING
i_callback_program = sy-repid
is_layout_lvc = w_layout
it_fieldcat_lvc = it_fieldcat_lvc[]
TABLES
t_outtab = ft_result.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form f_maintain_PUR
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM f_maintain_pur .
DATA: ls_pur_result TYPE typ_pur_result,
ls_return TYPE bapiret2.
DATA : ls_data TYPE cvis_ei_extern,
lt_data TYPE cvis_ei_extern_t.
DATA : ls_partner TYPE bus_ei_extern,
ls_vendor TYPE vmds_ei_extern.
* 根據夥伴GUID取出供應商編號
DATA : lt_partnerguid_list TYPE bu_partner_guid_t,
ls_partnerguid_list LIKE LINE OF lt_partnerguid_list.
DATA : lt_vendor_list TYPE cvis_vend_link_t,
ls_vendor_list TYPE cvi_vend_link.
DATA : ls_header TYPE vmds_ei_header,
ls_central_data TYPE vmds_ei_central_data,
ls_company_data TYPE vmds_ei_vmd_company,
ls_purchasing_data TYPE vmds_ei_vmd_purchasing.
DATA : lt_roles TYPE bus_ei_bupa_roles_t,
ls_roles TYPE bus_ei_bupa_roles,
lt_ident_numbers TYPE bus_ei_bupa_identification_t,
ls_ident_numbers TYPE bus_ei_bupa_identification,
lt_addresses TYPE bus_ei_bupa_address_t,
ls_addresses TYPE bus_ei_bupa_address,
lt_phone TYPE bus_ei_bupa_telephone_t,
ls_phone TYPE bus_ei_bupa_telephone,
lt_fax TYPE bus_ei_bupa_fax_t,
ls_fax TYPE bus_ei_bupa_fax,
lt_smtp TYPE bus_ei_bupa_smtp_t,
ls_smtp TYPE bus_ei_bupa_smtp,
lt_tax TYPE bus_ei_bupa_taxnumber_t,
ls_tax TYPE bus_ei_bupa_taxnumber,
ls_central TYPE vmds_ei_vmd_central,
lt_company TYPE vmds_ei_company_t,
ls_company TYPE vmds_ei_company,
lt_purchasing TYPE vmds_ei_purchasing_t,
ls_purchasing TYPE vmds_ei_purchasing,
lt_functions TYPE vmds_ei_functions_t,
ls_functions TYPE vmds_ei_functions,
lt_texts TYPE cvis_ei_text_t,
ls_texts TYPE cvis_ei_text,
lt_tab TYPE tline_tab,
ls_tab TYPE tline,
ls_remarks TYPE bus_ei_bupa_comrem,
lt_remarks TYPE bus_ei_bupa_comrem_t.
DATA : lv_bpartnerguid TYPE bu_partner_guid_bapi,
lv_partner TYPE bu_partner.
LOOP AT it_upload_pur INTO DATA(ls_pur).
MOVE-CORRESPONDING ls_pur TO ls_pur_result.
*通过查询采购组织判断是创建还是查询
SELECT SINGLE *
FROM but000
INTO @DATA(ls_but000)
WHERE partner = @ls_pur-partner.
IF sy-subrc = 0.
DATA(lv_object_task) = 'M'.
lv_bpartnerguid = ls_but000-partner_guid.
ELSE.
lv_object_task = 'I'.
TRY .
lv_bpartnerguid = cl_uuid_factory=>create_system_uuid( )->create_uuid_x16( ).
CATCH cx_uuid_error.
ENDTRY.
ENDIF.
"採購角色
CLEAR:lt_roles.
ls_roles-task = lv_object_task.
ls_roles-data_key = 'FLVN00' .
APPEND ls_roles TO lt_roles.
ls_partner-central_data-role-roles = lt_roles.
ls_partner-header-object_task = lv_object_task.
ls_partner-header-object_instance-bpartner = ls_pur-partner." 供應商編碼
ls_partner-header-object_instance-bpartnerguid = lv_bpartnerguid.
ls_partner-central_data-common-data-bp_organization-name1 = ls_pur-name_org1. "供應商名稱1
ls_partner-central_data-common-datax-bp_organization-name1 = abap_true. "供應商名稱1
CLEAR:lt_functions,lt_purchasing.
ls_purchasing-task = lv_object_task.
ls_purchasing-data_key-ekorg = ls_pur-ekorg. "採購組織
ls_purchasing-data-waers = ls_pur-waers. "採購訂單貨幣
ls_purchasing-data-zterm = ls_pur-zterm. "付款條件
ls_purchasing-data-inco1 = ls_pur-inco1. "貿易條款
ls_purchasing-data-inco2 = ls_pur-inco2. "貿易條款地點1
ls_purchasing-data-vsbed = ls_pur-vsbed. "裝運條件
ls_purchasing-data-webre = ls_pur-webre. "發票驗證
ls_purchasing-data-verkf = ls_pur-verkf. "業務人員
ls_purchasing-datax-waers = abap_true."採購訂單貨幣
ls_purchasing-datax-zterm = abap_true. "付款條件
ls_purchasing-datax-inco1 = abap_true. "貿易條款
ls_purchasing-datax-inco2 = abap_true. "貿易條款地點1
ls_purchasing-datax-vsbed = abap_true. "裝運條件
ls_purchasing-datax-webre = abap_true. "發票驗證
ls_purchasing-datax-verkf = abap_true. "業務人員
APPEND ls_purchasing TO lt_purchasing.
ls_purchasing_data-purchasing = lt_purchasing.
ls_vendor-purchasing_data = ls_purchasing_data.
ls_vendor-header-object_instance-lifnr = ls_pur-partner.
ls_vendor-header-object_task = lv_object_task.
ls_data-partner = ls_partner.
* ls_data-vendor = ls_vendor.
APPEND ls_data TO lt_data.
PERFORM frm_cvi_ei USING lv_bpartnerguid
CHANGING lt_data
ls_return
lv_partner.
IF ls_return-type = 'E'.
ls_pur_result-flagf = icon_red_light.
ELSE.
ls_pur_result-flagf = icon_green_light.
ls_pur_result-partner = lv_partner.
ENDIF.
ls_pur_result-msg = ls_return-message.
APPEND ls_pur_result TO it_pur_result.
CLEAR ls_pur_result .
CLEAR ls_return.
* BREAK-POINT.
ENDLOOP.
*ALV SHOW.
PERFORM frm_create_row USING 'FLAGF' '標記'(t04) ''.
PERFORM frm_create_row USING 'MSG' '消息'(t07) ''.
PERFORM frm_create_row USING 'PARTNER' '業務夥伴種類 '(t38) ''.
PERFORM frm_create_row USING 'NAME_ORG1' '供應商名稱'(t16) ''.
PERFORM frm_create_row USING 'EKORG' '採購組織'(t40) ''.
PERFORM frm_create_row USING 'WAERS' '採購訂單貨幣'(t41) ''.
PERFORM frm_create_row USING 'ZTERM' '付款條件'(t12) ''.
PERFORM frm_create_row USING 'INCO1' '貿易條款'(t43) ''.
PERFORM frm_create_row USING 'INCO2' '貿易條款地點1'(t44) ''.
PERFORM frm_create_row USING 'VSBED' '裝運條件'(t45) ''.
PERFORM frm_create_row USING 'WEBRE' '發票驗證'(t46) ''.
PERFORM frm_create_row USING 'VERKF' '業務人員'(t52) ''.
PERFORM display_result TABLES it_pur_result.
ENDFORM.
FORM f_maintain_company .
DATA: ls_company_result TYPE typ_company_result,
ls_return TYPE bapiret2.
DATA : ls_data TYPE cvis_ei_extern,
lt_data TYPE cvis_ei_extern_t.
DATA : ls_partner TYPE bus_ei_extern,
ls_vendor TYPE vmds_ei_extern.
* 根據夥伴GUID取出供應商編號
DATA : lt_partnerguid_list TYPE bu_partner_guid_t,
ls_partnerguid_list LIKE LINE OF lt_partnerguid_list.
DATA : lt_vendor_list TYPE cvis_vend_link_t,
ls_vendor_list TYPE cvi_vend_link.
DATA : ls_header TYPE vmds_ei_header,
ls_central_data TYPE vmds_ei_central_data,
ls_company_data TYPE vmds_ei_vmd_company,
ls_purchasing_data TYPE vmds_ei_vmd_purchasing.
DATA : lt_roles TYPE bus_ei_bupa_roles_t,
ls_roles TYPE bus_ei_bupa_roles,
lt_ident_numbers TYPE bus_ei_bupa_identification_t,
ls_ident_numbers TYPE bus_ei_bupa_identification,
lt_addresses TYPE bus_ei_bupa_address_t,
ls_addresses TYPE bus_ei_bupa_address,
lt_phone TYPE bus_ei_bupa_telephone_t,
ls_phone TYPE bus_ei_bupa_telephone,
lt_fax TYPE bus_ei_bupa_fax_t,
ls_fax TYPE bus_ei_bupa_fax,
lt_smtp TYPE bus_ei_bupa_smtp_t,
ls_smtp TYPE bus_ei_bupa_smtp,
lt_tax TYPE bus_ei_bupa_taxnumber_t,
ls_tax TYPE bus_ei_bupa_taxnumber,
ls_central TYPE vmds_ei_vmd_central,
lt_company TYPE vmds_ei_company_t,
ls_company TYPE vmds_ei_company,
lt_purchasing TYPE vmds_ei_purchasing_t,
ls_purchasing TYPE vmds_ei_purchasing,
lt_functions TYPE vmds_ei_functions_t,
ls_functions TYPE vmds_ei_functions,
lt_texts TYPE cvis_ei_text_t,
ls_texts TYPE cvis_ei_text,
lt_tab TYPE tline_tab,
ls_tab TYPE tline,
ls_remarks TYPE bus_ei_bupa_comrem,
lt_remarks TYPE bus_ei_bupa_comrem_t.
DATA : lv_bpartnerguid TYPE bu_partner_guid_bapi,
lv_partner TYPE bu_partner.
LOOP AT it_upload_company INTO DATA(ls_comp).
MOVE-CORRESPONDING ls_comp TO ls_company_result.
*通过查询采购组织判断是创建还是查询
SELECT SINGLE *
FROM but000
INTO @DATA(ls_but000)
WHERE partner = @ls_comp-partner.
IF sy-subrc = 0.
DATA(lv_object_task) = 'M'.
lv_bpartnerguid = ls_but000-partner_guid.
ELSE.
lv_object_task = 'I'.
TRY .
lv_bpartnerguid = cl_uuid_factory=>create_system_uuid( )->create_uuid_x16( ).
CATCH cx_uuid_error.
ENDTRY.
ENDIF.
"公司角色
CLEAR:lt_roles.
ls_roles-task = lv_object_task.
ls_roles-data_key = 'FLVN01' . "
APPEND ls_roles TO lt_roles.
ls_partner-central_data-role-roles = lt_roles.
ls_partner-header-object_task = lv_object_task.
ls_partner-header-object_instance-bpartner = ls_comp-partner." 供應商編碼
ls_partner-header-object_instance-bpartnerguid = lv_bpartnerguid.
ls_partner-central_data-common-data-bp_organization-name1 = ls_comp-name_org1. "供應商名稱1
ls_partner-central_data-common-datax-bp_organization-name1 = abap_true. "供應商名稱1
ls_company-task = lv_object_task.
ls_company-data_key-bukrs = ls_comp-bukrs. "公司代碼
ls_company-data-akont = ls_comp-akont. "總帳的統馭科目
ls_company-data-zterm = ls_comp-zterm. "付款條件
ls_company-data-zwels = ls_comp-zwels." 付款方式
ls_company-data-hbkid = ls_comp-hbkid. " 往來銀行
ls_company-datax-akont = abap_true.
ls_company-datax-zterm = abap_true.
ls_company-datax-zwels = abap_true.
ls_company-datax-hbkid = abap_true.
APPEND ls_company TO lt_company.
ls_vendor-company_data-company = lt_company.
ls_vendor-header-object_task = lv_object_task.
ls_data-partner = ls_partner.
* ls_data-vendor = ls_vendor.
APPEND ls_data TO lt_data.
PERFORM frm_cvi_ei USING lv_bpartnerguid
CHANGING lt_data
ls_return
lv_partner.
IF ls_return-type = 'E'.
ls_company_result-flagf = icon_red_light.
ELSE.
ls_company_result-flagf = icon_green_light.
ls_company_result-partner = lv_partner.
ENDIF.
ls_company_result-msg = ls_return-message.
APPEND ls_company_result TO it_company_result.
CLEAR ls_company_result .
CLEAR ls_return.
ENDLOOP.
*ALV SHOW.
PERFORM frm_create_row USING 'FLAGF' '標記'(t04) ''.
PERFORM frm_create_row USING 'MSG' '消息'(t07) ''.
PERFORM frm_create_row USING 'PARTNER' '業務夥伴種類'(t38) ''.
PERFORM frm_create_row USING 'NAME_ORG1' '供應商名稱'(t09) ''.
PERFORM frm_create_row USING 'BUKRS' '公司代碼'(t10) ''.
PERFORM frm_create_row USING 'AKONT' '總帳的統馭科目'(t11) ''.
PERFORM frm_create_row USING 'ZTERM' '付款條件'(t12) ''.
PERFORM frm_create_row USING 'ZWELS' '付款方式'(t13) ''.
PERFORM frm_create_row USING 'HBKID' '往來銀行'(t14) ''.
PERFORM display_result TABLES it_company_result.
ENDFORM.
FORM f_maintain_bank .
DATA: ls_bank_result TYPE typ_bank_result,
ls_return TYPE bapiret2.
DATA : ls_data TYPE cvis_ei_extern,
lt_data TYPE cvis_ei_extern_t.
DATA : ls_partner TYPE bus_ei_extern,
ls_vendor TYPE vmds_ei_extern.
* 根據夥伴GUID取出供應商編號
DATA : lt_partnerguid_list TYPE bu_partner_guid_t,
ls_partnerguid_list LIKE LINE OF lt_partnerguid_list.
DATA : lt_vendor_list TYPE cvis_vend_link_t,
ls_vendor_list TYPE cvi_vend_link.
DATA : ls_header TYPE vmds_ei_header,
ls_central_data TYPE vmds_ei_central_data,
ls_company_data TYPE vmds_ei_vmd_company,
ls_purchasing_data TYPE vmds_ei_vmd_purchasing.
DATA : lt_roles TYPE bus_ei_bupa_roles_t,
ls_roles TYPE bus_ei_bupa_roles,
lt_ident_numbers TYPE bus_ei_bupa_identification_t,
ls_ident_numbers TYPE bus_ei_bupa_identification,
lt_addresses TYPE bus_ei_bupa_address_t,
ls_addresses TYPE bus_ei_bupa_address,
lt_phone TYPE bus_ei_bupa_telephone_t,
ls_phone TYPE bus_ei_bupa_telephone,
lt_bankdetails TYPE bus_ei_bupa_bankdetail_t,
ls_bankdetails TYPE bus_ei_bupa_bankdetail,
lt_fax TYPE bus_ei_bupa_fax_t,
ls_fax TYPE bus_ei_bupa_fax,
lt_smtp TYPE bus_ei_bupa_smtp_t,
ls_smtp TYPE bus_ei_bupa_smtp,
lt_tax TYPE bus_ei_bupa_taxnumber_t,
ls_tax TYPE bus_ei_bupa_taxnumber,
ls_central TYPE vmds_ei_vmd_central,
lt_company TYPE vmds_ei_company_t,
ls_company TYPE vmds_ei_company,
lt_purchasing TYPE vmds_ei_purchasing_t,
ls_purchasing TYPE vmds_ei_purchasing,
lt_functions TYPE vmds_ei_functions_t,
ls_functions TYPE vmds_ei_functions,
lt_texts TYPE cvis_ei_text_t,
ls_texts TYPE cvis_ei_text,
lt_tab TYPE tline_tab,
ls_tab TYPE tline,
ls_remarks TYPE bus_ei_bupa_comrem,
lt_remarks TYPE bus_ei_bupa_comrem_t.
DATA : lv_bpartnerguid TYPE bu_partner_guid_bapi,
lv_partner TYPE bu_partner.
LOOP AT it_upload_bank INTO DATA(ls_bank).
MOVE-CORRESPONDING ls_bank TO ls_bank_result.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = ls_bank-partner
IMPORTING
output = ls_bank-partner.
SELECT SINGLE *
FROM but000
INTO @DATA(ls_but000)
WHERE partner = @ls_bank-partner.
IF sy-subrc = 0.
DATA(lv_object_task) = 'U'.
lv_bpartnerguid = ls_but000-partner_guid.
ELSE.
lv_object_task = 'I'.
TRY .
lv_bpartnerguid = cl_uuid_factory=>create_system_uuid( )->create_uuid_x16( ).
CATCH cx_uuid_error.
ENDTRY.
ENDIF.
CLEAR:lt_roles.
ls_roles-task = lv_object_task."lv_object_task'.
ls_roles-data_key = 'FLVN00' .
APPEND ls_roles TO lt_roles.
ls_partner-central_data-role-roles = lt_roles.
ls_partner-header-object_task = lv_object_task.
ls_partner-header-object_instance-bpartner = ls_bank-partner." 供應商編碼
ls_partner-header-object_instance-bpartnerguid = lv_bpartnerguid.
CLEAR lt_bankdetails.
ls_bankdetails-task = lv_object_task.
ls_bankdetails-data_key = '0001'.
ls_bankdetails-data-bank_ctry = ls_bank-banks. "银行国家代码參考國家頁籤
ls_bankdetails-data-bankaccountname = ls_bank-bkdsc. "银行名称
ls_bankdetails-data-bank_key = ls_bank-bankl. "银行代码
ls_bankdetails-data-accountholder = ls_bank-koinh. "帳戶所有人
ls_bankdetails-data-bank_acct = ls_bank-bankn. "银行帐户号码
ls_bankdetails-datax-bank_ctry = abap_true.
ls_bankdetails-datax-bankaccountname = abap_true.
ls_bankdetails-datax-bank_key = abap_true.
ls_bankdetails-datax-accountholder = abap_true.
ls_bankdetails-datax-bank_acct = abap_true.
APPEND ls_bankdetails TO lt_bankdetails.
ls_partner-central_data-bankdetail-bankdetails = lt_bankdetails.
ls_vendor-header-object_instance-lifnr = ls_bank-partner.
ls_vendor-header-object_task = lv_object_task. "U
ls_data-partner = ls_partner.
* ls_data-vendor = ls_vendor.
APPEND ls_data TO lt_data.
PERFORM frm_cvi_ei USING lv_bpartnerguid
CHANGING lt_data
ls_return
lv_partner.
IF ls_return-type = 'E'.
ls_bank_result-flagf = icon_red_light.
ELSE.
ls_bank_result-flagf = icon_green_light.
ls_bank_result-partner = lv_partner.
ENDIF.
ls_bank_result-msg = ls_return-message.
APPEND ls_bank_result TO it_bank_result.
CLEAR ls_bank_result .
CLEAR ls_return.
ENDLOOP.
*ALV SHOW.
PERFORM frm_create_row USING 'FLAGF' '標記'(t04) ''.
PERFORM frm_create_row USING 'MSG' '消息'(t07) ''.
PERFORM frm_create_row USING 'PARTNER' '業務夥伴種類'(t38) ''.
PERFORM frm_create_row USING 'BANKS' '银行国家代码參考國家頁籤'(t47) ''.
PERFORM frm_create_row USING 'BKDSC' '银行名称'(t48) ''.
PERFORM frm_create_row USING 'BANKL' '银行代码'(t49) ''.
PERFORM frm_create_row USING 'KOINH' '帳戶持有的公司名稱'(t50) ''.
PERFORM frm_create_row USING 'BANKN' '銀行帳號'(t51) ''.
PERFORM display_result TABLES it_bank_result.
ENDFORM.
FORM frm_cvi_ei USING fu_guid TYPE bu_partner_guid_bapi
CHANGING ft_data TYPE cvis_ei_extern_t
fc_return TYPE bapiret2
fc_partner TYPE bu_partner.
DATA: lt_return TYPE bapiretm,
lv_msg TYPE string.
* 根據夥伴GUID取出供應商編號
DATA : lt_partnerguid_list TYPE bu_partner_guid_t,
ls_partnerguid_list LIKE LINE OF lt_partnerguid_list.
DATA : lt_vendor_list TYPE cvis_vend_link_t,
ls_vendor_list TYPE cvi_vend_link.
"通過方法創建供應商住數據
CALL FUNCTION 'CVI_EI_INBOUND_MAIN'
EXPORTING
i_data = ft_data
* I_EXT_DATA =
IMPORTING
e_return = lt_return.
* CLEAR LV_MSG.
LOOP AT lt_return INTO DATA(ls_return).
LOOP AT ls_return-object_msg INTO DATA(ls_msg) WHERE type CA 'EAX'.
CONCATENATE lv_msg ls_msg-message INTO lv_msg.
ENDLOOP.
ENDLOOP.
IF lv_msg IS INITIAL.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = abap_true.
** 根據夥伴GUID取出供應商編號
ls_partnerguid_list = fu_guid.
SELECT SINGLE partner
FROM but000
INTO fc_partner
WHERE partner_guid = fu_guid.
IF sy-subrc = 0.
fc_return-type = 'S'.
CONCATENATE '供应商' fc_partner '導入或修改成功!' lv_msg INTO lv_msg.
fc_return-message = lv_msg.
ENDIF.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK' .
fc_return-type = 'E'.
fc_return-message = lv_msg.
ENDIF.
CLEAR ft_data.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_CREATE_ROW
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM frm_create_row USING pv_name TYPE c
pv_txt TYPE c
pv_outputlen TYPE c.
w_fieldcat-fieldname = pv_name.
w_fieldcat-scrtext_l = pv_txt.
w_fieldcat-outputlen = pv_outputlen.
APPEND w_fieldcat TO it_fieldcat_lvc.
CLEAR w_fieldcat.
ENDFORM. " FRM_CREATE_ROW
fk03查看物料主数据信息。 该程序是根据选择的文件来导入主数据。 使用的方法是(两个都可以):
- RFC_CVI_EI_INBOUND_MAIN RFC_CVI_EI_INBOUND_MAIN的使用
- CVI_EI_INBOUND_MAIN CVI_EI_INBOUND_MAIN的使用
上一篇: Java 安全编码指南:表达式规则说明
下一篇: 十亿物流企业资源规划系统编码规则
推荐阅读
-
SSM三大框架基础面试题-一、Spring篇 什么是Spring框架? Spring是一种轻量级框架,提高开发人员的开发效率以及系统的可维护性。 我们一般说的Spring框架就是Spring Framework,它是很多模块的集合,使用这些模块可以很方便地协助我们进行开发。这些模块是核心容器、数据访问/集成、Web、AOP(面向切面编程)、工具、消息和测试模块。比如Core Container中的Core组件是Spring所有组件的核心,Beans组件和Context组件是实现IOC和DI的基础,AOP组件用来实现面向切面编程。 Spring的6个特征: 核心技术:依赖注入(DI),AOP,事件(Events),资源,i18n,验证,数据绑定,类型转换,SpEL。 测试:模拟对象,TestContext框架,Spring MVC测试,WebTestClient。 数据访问:事务,DAO支持,JDBC,ORM,编组XML。 Web支持:Spring MVC和Spring WebFlux Web框架。 集成:远程处理,JMS,JCA,JMX,电子邮件,任务,调度,缓存。 语言:Kotlin,Groovy,动态语言。 列举一些重要的Spring模块? Spring Core:核心,可以说Spring其他所有的功能都依赖于该类库。主要提供IOC和DI功能。 Spring Aspects:该模块为与AspectJ的集成提供支持。 Spring AOP:提供面向切面的编程实现。 Spring JDBC:Java数据库连接。 Spring JMS:Java消息服务。 Spring ORM:用于支持Hibernate等ORM工具。 Spring Web:为创建Web应用程序提供支持。 Spring Test:提供了对JUnit和TestNG测试的支持。 谈谈自己对于Spring IOC和AOP的理解 IOC(Inversion Of Controll,控制反转)是一种设计思想: 在程序中手动创建对象的控制权,交由给Spring框架来管理。IOC在其他语言中也有应用,并非Spring特有。IOC容器实际上就是一个Map(key, value),Map中存放的是各种对象。 将对象之间的相互依赖关系交给IOC容器来管理,并由IOC容器完成对象的注入。这样可以很大程度上简化应用的开发,把应用从复杂的依赖关系中解放出来。IOC容器就像是一个工厂一样,当我们需要创建一个对象的时候,只需要配置好配置文件/注解即可,完全不用考虑对象是如何被创建出来的。在实际项目中一个Service类可能由几百甚至上千个类作为它的底层,假如我们需要实例化这个Service,可能要每次都搞清楚这个Service所有底层类的构造函数,这可能会把人逼疯。如果利用IOC的话,你只需要配置好,然后在需要的地方引用就行了,大大增加了项目的可维护性且降低了开发难度。 Spring中的bean的作用域有哪些? 1.singleton:该bean实例为单例 2.prototype:每次请求都会创建一个新的bean实例(多例)。 3.request:每一次HTTP请求都会产生一个新的bean,该bean仅在当前HTTP request内有效。 4.session:每一次HTTP请求都会产生一个新的bean,该bean仅在当前HTTP session内有效。 5.global-session:全局session作用域,仅仅在基于Portlet的Web应用中才有意义,Spring5中已经没有了。Portlet是能够生成语义代码(例如HTML)片段的小型Java Web插件。它们基于Portlet容器,可以像Servlet一样处理HTTP请求。但是与Servlet不同,每个Portlet都有不同的会话。 Spring中的单例bean的线程安全问题了解吗? 概念用于理解:大部分时候我们并没有在系统中使用多线程,所以很少有人会关注这个问题。单例bean存在线程问题,主要是因为当多个线程操作同一个对象的时候,对这个对象的非静态成员变量的写操作会存在线程安全问题。 有两种常见的解决方案(用于回答的点): 1.在bean对象中尽量避免定义可变的成员变量(不太现实)。 2.在类中定义一个ThreadLocal成员变量,将需要的可变成员变量保存在ThreadLocal(线程本地化对象)中(推荐的一种方式)。 ThreadLocal解决多线程变量共享问题(参考博客):https://segmentfault.com/a/1190000009236777 Spring中Bean的生命周期: 1.Bean容器找到配置文件中Spring Bean的定义。 2.Bean容器利用Java Reflection API创建一个Bean的实例。 3.如果涉及到一些属性值,利用set方法设置一些属性值。 4.如果Bean实现了BeanNameAware接口,调用setBeanName方法,传入Bean的名字。 5.如果Bean实现了BeanClassLoaderAware接口,调用setBeanClassLoader方法,传入ClassLoader对象的实例。 6.如果Bean实现了BeanFactoryAware接口,调用setBeanClassFacotory方法,传入ClassLoader对象的实例。 7.与上面的类似,如果实现了其他*Aware接口,就调用相应的方法。 8.如果有和加载这个Bean的Spring容器相关的BeanPostProcessor对象,执postProcessBeforeInitialization方法。 9.如果Bean实现了InitializingBean接口,执行afeterPropertiesSet方法。 10.如果Bean在配置文件中的定义包含init-method属性,执行指定的方法。 11.如果有和加载这个Bean的Spring容器相关的BeanPostProcess对象,执行postProcessAfterInitialization方法。 12.当要销毁Bean的时候,如果Bean实现了DisposableBean接口,执行destroy方法。 13.当要销毁Bean的时候,如果Bean在配置文件中的定义包含destroy-method属性,执行指定的方法。 Spring框架中用到了哪些设计模式? 1.工厂设计模式:Spring使用工厂模式通过BeanFactory和ApplicationContext创建bean对象。 2.代理设计模式:Spring AOP功能的实现。 3.单例设计模式:Spring中的bean默认都是单例的。 4.模板方法模式:Spring中的jdbcTemplate、hibernateTemplate等以Template结尾的对数据库操作的类,它们就使用到了模板模式。 5.包装器设计模式:我们的项目需要连接多个数据库,而且不同的客户在每次访问中根据需要会去访问不同的数据库。这种模式让我们可以根据客户的需求能够动态切换不同的数据源。 6.观察者模式:Spring事件驱动模型就是观察者模式很经典的一个应用。 7.适配器模式:Spring AOP的增强或通知(Advice)使用到了适配器模式、Spring MVC中也是用到了适配器模式适配Controller。 还有很多。。。。。。。 @Component和@Bean的区别是什么 1.作用对象不同。@Component注解作用于类,而@Bean注解作用于方法。 2.@Component注解通常是通过类路径扫描来自动侦测以及自动装配到Spring容器中(我们可以使用@ComponentScan注解定义要扫描的路径)。@Bean注解通常是在标有该注解的方法中定义产生这个bean,告诉Spring这是某个类的实例,当我需要用它的时候还给我。 3.@Bean注解比@Component注解的自定义性更强,而且很多地方只能通过@Bean注解来注册bean。比如当引用第三方库的类需要装配到Spring容器的时候,就只能通过@Bean注解来实现。 @Configuration public class AppConfig { @Bean public TransferService transferService { return new TransferServiceImpl; } } <beans> <bean id="transferService" class="com.kk.TransferServiceImpl"/> </beans> @Bean public OneService getService(status) { case (status) { when 1: return new serviceImpl1; when 2: return new serviceImpl2; when 3: return new serviceImpl3; } } 将一个类声明为Spring的bean的注解有哪些? 声明bean的注解: @Component 组件,没有明确的角色 @Service 在业务逻辑层使用(service层) @Repository 在数据访问层使用(dao层) @Controller 在展现层使用,控制器的声明 注入bean的注解: @Autowired:由Spring提供 @Inject:由JSR-330提供 @Resource:由JSR-250提供 *扩:JSR 是 java 规范标准 Spring事务管理的方式有几种? 1.编程式事务:在代码中硬编码(不推荐使用)。 2.声明式事务:在配置文件中配置(推荐使用),分为基于XML的声明式事务和基于注解的声明式事务。 Spring事务中的隔离级别有哪几种? 在TransactionDefinition接口中定义了五个表示隔离级别的常量:ISOLATION_DEFAULT:使用后端数据库默认的隔离级别,Mysql默认采用的REPEATABLE_READ隔离级别;Oracle默认采用的READ_COMMITTED隔离级别。ISOLATION_READ_UNCOMMITTED:最低的隔离级别,允许读取尚未提交的数据变更,可能会导致脏读、幻读或不可重复读。ISOLATION_READ_COMMITTED:允许读取并发事务已经提交的数据,可以阻止脏读,但是幻读或不可重复读仍有可能发生ISOLATION_REPEATABLE_READ:对同一字段的多次读取结果都是一致的,除非数据是被本身事务自己所修改,可以阻止脏读和不可重复读,但幻读仍有可能发生。ISOLATION_SERIALIZABLE:最高的隔离级别,完全服从ACID的隔离级别。所有的事务依次逐个执行,这样事务之间就完全不可能产生干扰,也就是说,该级别可以防止脏读、不可重复读以及幻读。但是这将严重影响程序的性能。通常情况下也不会用到该级别。 Spring事务中有哪几种事务传播行为? 在TransactionDefinition接口中定义了八个表示事务传播行为的常量。 支持当前事务的情况:PROPAGATION_REQUIRED:如果当前存在事务,则加入该事务;如果当前没有事务,则创建一个新的事务。PROPAGATION_SUPPORTS: 如果当前存在事务,则加入该事务;如果当前没有事务,则以非事务的方式继续运行。PROPAGATION_MANDATORY: 如果当前存在事务,则加入该事务;如果当前没有事务,则抛出异常。(mandatory:强制性)。 不支持当前事务的情况:PROPAGATION_REQUIRES_NEW: 创建一个新的事务,如果当前存在事务,则把当前事务挂起。PROPAGATION_NOT_SUPPORTED: 以非事务方式运行,如果当前存在事务,则把当前事务挂起。PROPAGATION_NEVER: 以非事务方式运行,如果当前存在事务,则抛出异常。 其他情况:PROPAGATION_NESTED: 如果当前存在事务,则创建一个事务作为当前事务的嵌套事务来运行;如果当前没有事务,则该取值等价于PROPAGATION_REQUIRED。 二、SpringMVC篇 什么是Spring MVC ?简单介绍下你对springMVC的理解? Spring MVC是一个基于Java的实现了MVC设计模式的请求驱动类型的轻量级Web框架,通过把Model,View,Controller分离,将web层进行职责解耦,把复杂的web应用分成逻辑清晰的几部分,简化开发,减少出错,方便组内开发人员之间的配合。 Spring MVC的工作原理了解嘛? image.png Springmvc的优点: (1)可以支持各种视图技术,而不仅仅局限于JSP; (2)与Spring框架集成(如IoC容器、AOP等); (3)清晰的角色分配:前端控制器(dispatcherServlet) , 请求到处理器映射(handlerMapping), 处理器适配器(HandlerAdapter), 视图解析器(ViewResolver)。 (4) 支持各种请求资源的映射策略。 Spring MVC的主要组件? (1)前端控制器 DispatcherServlet(不需要程序员开发) 作用:接收请求、响应结果,相当于转发器,有了DispatcherServlet 就减少了其它组件之间的耦合度。 (2)处理器映射器HandlerMapping(不需要程序员开发) 作用:根据请求的URL来查找Handler (3)处理器适配器HandlerAdapter 注意:在编写Handler的时候要按照HandlerAdapter要求的规则去编写,这样适配器HandlerAdapter才可以正确的去执行Handler。 (4)处理器Handler(需要程序员开发) (5)视图解析器 ViewResolver(不需要程序员开发) 作用:进行视图的解析,根据视图逻辑名解析成真正的视图(view) (6)视图View(需要程序员开发jsp) View是一个接口, 它的实现类支持不同的视图类型(jsp,freemarker,pdf等等) springMVC和struts2的区别有哪些? (1)springmvc的入口是一个servlet即前端控制器(DispatchServlet),而struts2入口是一个filter过虑器(StrutsPrepareAndExecuteFilter)。 (2)springmvc是基于方法开发(一个url对应一个方法),请求参数传递到方法的形参,可以设计为单例或多例(建议单例),struts2是基于类开发,传递参数是通过类的属性,只能设计为多例。 (3)Struts采用值栈存储请求和响应的数据,通过OGNL存取数据,springmvc通过参数解析器是将request请求内容解析,并给方法形参赋值,将数据和视图封装成ModelAndView对象,最后又将ModelAndView中的模型数据通过reques域传输到页面。Jsp视图解析器默认使用jstl。 SpringMVC怎么样设定重定向和转发的? (1)转发:在返回值前面加"forward:",譬如"forward:user.do?name=method4" (2)重定向:在返回值前面加"redirect:",譬如"redirect:http://www.baidu.com" SpringMvc怎么和AJAX相互调用的? 通过Jackson框架就可以把Java里面的对象直接转化成Js可以识别的Json对象。具体步骤如下 : (1)加入Jackson.jar (2)在配置文件中配置json的映射 (3)在接受Ajax方法里面可以直接返回Object,List等,但方法前面要加上@ResponseBody注解。 如何解决POST请求中文乱码问题,GET的又如何处理呢? (1)解决post请求乱码问题: 在web.xml中配置一个CharacterEncodingFilter过滤器,设置成utf-8; <filter> <filter-name>CharacterEncodingFilter</filter-name> <filter-class>org.springframework.web.filter.CharacterEncodingFilter</filter-class> <init-param> <param-name>encoding</param-name> <param-value>utf-8</param-value> </init-param> </filter> <filter-mapping> <filter-name>CharacterEncodingFilter</filter-name> <url-pattern>/*</url-pattern> </filter-mapping> (2)get请求中文参数出现乱码解决方法有两个: ①修改tomcat配置文件添加编码与工程编码一致,如下: <ConnectorURIEncoding="utf-8" connectionTimeout="20000" port="8080" protocol="HTTP/1.1" redirectPort="8443"/> ②另外一种方法对参数进行重新编码: String userName = new String(request.getParamter("userName").getBytes("ISO8859-1"),"utf-8") ISO8859-1是tomcat默认编码,需要将tomcat编码后的内容按utf-8编码。 Spring MVC的异常处理 ? 统一异常处理: Spring MVC处理异常有3种方式: (1)使用Spring MVC提供的简单异常处理器SimpleMappingExceptionResolver; (2)实现Spring的异常处理接口HandlerExceptionResolver 自定义自己的异常处理器; (3)使用@ExceptionHandler注解实现异常处理; 统一异常处理的博客:https://blog.csdn.net/ctwy291314/article/details/81983103 SpringMVC的控制器是不是单例模式,如果是,有什么问题,怎么解决? 是单例模式,所以在多线程访问的时候有线程安全问题,不要用同步,会影响性能的,解决方案是在控制器里面不能写成员变量。(此题目类似于上面Spring 中 第5题 有两种解决方案) SpringMVC常用的注解有哪些? @RequestMapping:用于处理请求 url 映射的注解,可用于类或方法上。用于类上,则表示类中的所有响应请求的方法都是以该地址作为父路径。 @RequestBody:注解实现接收http请求的json数据,将json转换为java对象。 @ResponseBody:注解实现将conreoller方法返回对象转化为json对象响应给客户。 SpingMvc中的控制器的注解一般用那个,有没有别的注解可以替代? 一般用@Controller注解,也可以使用@RestController,@RestController注解相当于@ResponseBody + @Controller,表示是表现层,除此之外,一般不用别的注解代替。 如果在拦截请求中,我想拦截get方式提交的方法,怎么配置? 可以在@RequestMapping注解里面加上method=RequestMethod.GET。 怎样在方法里面得到Request,或者Session? 直接在方法的形参中声明request,SpringMVC就自动把request对象传入。 如果想在拦截的方法里面得到从前台传入的参数,怎么得到? 直接在形参里面声明这个参数就可以,但必须名字和传过来的参数一样。 如果前台有很多个参数传入,并且这些参数都是一个对象的,那么怎么样快速得到这个对象? 直接在方法中声明这个对象,SpringMVC就自动会把属性赋值到这个对象里面。 SpringMVC中函数的返回值是什么? 返回值可以有很多类型,有String, ModelAndView。ModelAndView类把视图和数据都合并的一起的。 SpringMVC用什么对象从后台向前台传递数据的? 通过ModelMap对象,可以在这个对象里面调用put方法,把对象加到里面,前台就可以拿到数据。 怎么样把ModelMap里面的数据放入Session里面? 可以在类上面加上@SessionAttributes注解,里面包含的字符串就是要放入session里面的key。 SpringMvc里面拦截器是怎么写的: 有两种写法,一种是实现HandlerInterceptor接口,另外一种是继承适配器类,接着在接口方法当中,实现处理逻辑;然后在SpringMvc的配置文件中配置拦截器即可: <!-- 配置SpringMvc的拦截器 --> <mvc:interceptors> <!-- 配置一个拦截器的Bean就可以了 默认是对所有请求都拦截 --> <bean id="myInterceptor" class="com.zwp.action.MyHandlerInterceptor"></bean> <!-- 只针对部分请求拦截 --> <mvc:interceptor> <mvc:mapping path="/modelMap.do" /> <bean class="com.zwp.action.MyHandlerInterceptorAdapter" /> </mvc:interceptor> </mvc:interceptors> 注解原理: 注解本质是一个继承了Annotation的特殊接口,其具体实现类是Java运行时生成的动态代理类。我们通过反射获取注解时,返回的是Java运行时生成的动态代理对象。通过代理对象调用自定义注解的方法,会最终调用AnnotationInvocationHandler的invoke方法。该方法会从memberValues这个Map中索引出对应的值。而memberValues的来源是Java常量池 三、Mybatis篇 什么是MyBatis? MyBatis是一个可以自定义SQL、存储过程和高级映射的持久层框架。 讲下MyBatis的缓存 MyBatis的缓存分为一级缓存和二级缓存,一级缓存放在session里面,默认就有, 二级缓存放在它的命名空间里,默认是不打开的,使用二级缓存属性类需要实现Serializable序列化接口, 可在它的映射文件中配置<cache/> Mybatis是如何进行分页的?分页插件的原理是什么? 1)Mybatis使用RowBounds对象进行分页,也可以直接编写sql实现分页,也可以使用Mybatis的分页插件。 2)分页插件的原理:实现Mybatis提供的接口,实现自定义插件,在插件的拦截方法内拦截待执行的sql,然后重写sql。 举例:select * from student,拦截sql后重写为:select t.* from (select * from student)t limit 0,10 简述Mybatis的插件运行原理,以及如何编写一个插件? 1)Mybatis仅可以编写针对ParameterHandler、ResultSetHandler、StatementHandler、 Executor这4种接口的插件,Mybatis通过动态代理, 为需要拦截的接口生成代理对象以实现接口方法拦截功能, 每当执行这4种接口对象的方法时,就会进入拦截方法, 具体就是InvocationHandler的invoke方法,当然, 只会拦截那些你指定需要拦截的方法。 2)实现Mybatis的Interceptor接口并复写intercept方法, 然后在给插件编写注解,指定要拦截哪一个接口的哪些方法即可, 记住,别忘了在配置文件中配置你编写的插件。 Mybatis动态sql是做什么的?都有哪些动态sql?能简述一下动态sql的执行原理不? 1)Mybatis动态sql可以让我们在Xml映射文件内, 以标签的形式编写动态sql,完成逻辑判断和动态拼接sql的功能。 2)Mybatis提供了9种动态sql标签:trim|where|set|foreach|if|choose|when|otherwise|bind。 3)其执行原理为,使用OGNL从sql参数对象中计算表达式的值, 根据表达式的值动态拼接sql,以此来完成动态sql的功能。 #{}和${}的区别是什么? 1)#{}是预编译处理,${}是字符串替换。 2)Mybatis在处理#{}时,会将sql中的#{}替换为?号,调用PreparedStatement的set方法来赋值(有效的防止SQL注入); 3)Mybatis在处理${}时,就是把${}替换成变量的值。 为什么说Mybatis是半自动ORM映射工具?它与全自动的区别在哪里? Hibernate属于全自动ORM映射工具, 使用Hibernate查询关联对象或者关联集合对象时, 可以根据对象关系模型直接获取,所以它是全自动的。 而Mybatis在查询关联对象或关联集合对象时, 需要手动编写sql来完成,所以,称之为半自动ORM映射工具。 Mybatis是否支持延迟加载?如果支持,它的实现原理是什么? 1)Mybatis仅支持association关联对象和collection关联集合对象的延迟加载, association指的就是一对一,collection指的就是一对多查询。 在Mybatis配置文件中, 可以配置是否启用延迟加载lazyLoadingEnabled=true|false。 2)它的原理是,使用CGLIB创建目标对象的代理对象, 当调用目标方法时,进入拦截器方法, 比如调用a.getB.getName, 拦截器invoke方法发现a.getB是null值, 那么就会单独发送事先保存好的查询关联B对象的sql, 把B查询上来,然后调用a.setB(b), 于是a的对象b属性就有值了, 接着完成a.getB.getName方法的调用。 这就是延迟加载的基本原理。 MyBatis与Hibernate有哪些不同? 1)Mybatis和hibernate不同,它不完全是一个ORM框架, 因为MyBatis需要程序员自己编写Sql语句, 不过mybatis可以通过XML或注解方式灵活配置要运行的sql语句, 并将java对象和sql语句映射生成最终执行的sql, 最后将sql执行的结果再映射生成java对象。 2)Mybatis学习门槛低,简单易学,程序员直接编写原生态sql, 可严格控制sql执行性能,灵活度高,非常适合对关系数据模型要求不高的软件开发, 例如互联网软件、企业运营类软件等,因为这类软件需求变化频繁, 一但需求变化要求成果输出迅速。但是灵活的前提是mybatis无法做到数据库无关性, 如果需要实现支持多种数据库的软件则需要自定义多套sql映射文件,工作量大。 3)Hibernate对象/关系映射能力强,数据库无关性好, 对于关系模型要求高的软件(例如需求固定的定制化软件) 如果用hibernate开发可以节省很多代码,提高效率。 但是Hibernate的缺点是学习门槛高,要精通门槛更高, 而且怎么设计O/R映射,在性能和对象模型之间如何权衡, 以及怎样用好Hibernate需要具有很强的经验和能力才行。 总之,按照用户的需求在有限的资源环境下只要能做出维护性、 扩展性良好的软件架构都是好架构,所以框架只有适合才是最好。 MyBatis的好处是什么? 1)MyBatis把sql语句从Java源程序中独立出来,放在单独的XML文件中编写, 给程序的维护带来了很大便利。 2)MyBatis封装了底层JDBC API的调用细节,并能自动将结果集转换成Java Bean对象, 大大简化了Java数据库编程的重复工作。 3)因为MyBatis需要程序员自己去编写sql语句, 程序员可以结合数据库自身的特点灵活控制sql语句, 因此能够实现比Hibernate等全自动orm框架更高的查询效率,能够完成复杂查询。 简述Mybatis的Xml映射文件和Mybatis内部数据结构之间的映射关系? Mybatis将所有Xml配置信息都封装到All-In-One重量级对象Configuration内部。 在Xml映射文件中,<parameterMap>标签会被解析为ParameterMap对象, 其每个子元素会被解析为ParameterMapping对象。 <resultMap>标签会被解析为ResultMap对象, 其每个子元素会被解析为ResultMapping对象。 每一个<select>、<insert>、<update>、<delete> 标签均会被解析为MappedStatement对象, 标签内的sql会被解析为BoundSql对象。 什么是MyBatis的接口绑定,有什么好处? 接口映射就是在MyBatis中任意定义接口,然后把接口里面的方法和SQL语句绑定, 我们直接调用接口方法就可以,这样比起原来了SqlSession提供的方法我们可以有更加灵活的选择和设置. 接口绑定有几种实现方式,分别是怎么实现的? 接口绑定有两种实现方式,一种是通过注解绑定,就是在接口的方法上面加 上@Select@Update等注解里面包含Sql语句来绑定, 另外一种就是通过xml里面写SQL来绑定,在这种情况下, 要指定xml映射文件里面的namespace必须为接口的全路径名. 什么情况下用注解绑定,什么情况下用xml绑定? 当Sql语句比较简单时候,用注解绑定;当SQL语句比较复杂时候,用xml绑定,一般用xml绑定的比较多 MyBatis实现一对一有几种方式?具体怎么操作的? 有联合查询和嵌套查询,联合查询是几个表联合查询,只查询一次, 通过在resultMap里面配置association节点配置一对一的类就可以完成; 嵌套查询是先查一个表,根据这个表里面的结果的外键id, 去再另外一个表里面查询数据,也是通过association配置, 但另外一个表的查询通过select属性配置。 Mybatis能执行一对一、一对多的关联查询吗?都有哪些实现方式,以及它们之间的区别? 能,Mybatis不仅可以执行一对一、一对多的关联查询, 还可以执行多对一,多对多的关联查询,多对一查询, 其实就是一对一查询,只需要把selectOne修改为selectList即可; 多对多查询,其实就是一对多查询,只需要把selectOne修改为selectList即可。 关联对象查询,有两种实现方式,一种是单独发送一个sql去查询关联对象, 赋给主对象,然后返回主对象。另一种是使用嵌套查询,嵌套查询的含义为使用join查询, 一部分列是A对象的属性值,另外一部分列是关联对象B的属性值, 好处是只发一个sql查询,就可以把主对象和其关联对象查出来。 MyBatis里面的动态Sql是怎么设定的?用什么语法? MyBatis里面的动态Sql一般是通过if节点来实现,通过OGNL语法来实现, 但是如果要写的完整,必须配合where,trim节点,where节点是判断包含节点有 内容就插入where,否则不插入,trim节点是用来判断如果动态语句是以and 或or 开始,那么会自动把这个and或者or取掉。 Mybatis是如何将sql执行结果封装为目标对象并返回的?都有哪些映射形式? 第一种是使用<resultMap>标签,逐一定义列名和对象属性名之间的映射关系。 第二种是使用sql列的别名功能,将列别名书写为对象属性名, 比如T_NAME AS NAME,对象属性名一般是name,小写, 但是列名不区分大小写,Mybatis会忽略列名大小写,
-
abap 中的材料主数据导入程序(基本视图、公司代码视图、采购视图、银行视图)