*&---------------------------------------------------------------------* *& Include ZSDB0002_FILE_INCLUDE *&---------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Form frm_get_fn *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM frm_get_fn . CALL FUNCTION 'WS_FILENAME_GET' EXPORTING * DEF_FILENAME = ' ' * DEF_PATH = ' ' mask = ',*.txt.' mode = 'O' title = '客户主数据' IMPORTING filename = p_fn * RC = EXCEPTIONS inv_winsys = 1 no_batch = 2 selection_cancel = 3 selection_error = 4 OTHERS = 5. IF sy-subrc <> 0. * MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno * WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. ENDFORM. "frm_get_fn *&---------------------------------------------------------------------* *& Form frm_get_logfn *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* *FORM frm_get_logfn . * * CALL FUNCTION 'WS_FILENAME_GET' * EXPORTING ** DEF_FILENAME = ' ' ** DEF_PATH = ' ' * mask = ',*.txt.' * mode = 'O' * title = '日志文件' * IMPORTING * filename = p_logfn ** RC = * EXCEPTIONS * inv_winsys = 1 * no_batch = 2 * selection_cancel = 3 * selection_error = 4 * OTHERS = 5. * IF sy-subrc <> 0. ** MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno ** WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. * ENDIF. * *ENDFORM. "frm_get_logfn *&---------------------------------------------------------------------* *& Form frm_chech_filename *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM frm_chech_filename . IF p_fn IS INITIAL. MESSAGE i010."主数据文件，路径和文件名，不能为空！ STOP. ENDIF. ENDFORM. "frm_chech_filename *&---------------------------------------------------------------------* *& Form frm_upload_data *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM frm_upload_data TABLES fu_data. REFRESH fu_data[]. CALL FUNCTION 'WS_UPLOAD' EXPORTING * CODEPAGE = ' ' filename = p_fn filetype = 'DAT' * HEADLEN = ' ' * LINE_EXIT = ' ' * TRUNCLEN = ' ' * USER_FORM = ' ' * USER_PROG = ' ' * DAT_D_FORMAT = ' ' * IMPORTING * FILELENGTH = TABLES data_tab = fu_data[] EXCEPTIONS conversion_error = 1 file_open_error = 2 file_read_error = 3 invalid_type = 4 no_batch = 5 unknown_error = 6 invalid_table_width = 7 gui_refuse_filetransfer = 8 customer_error = 9 no_authority = 10 OTHERS = 11 . IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. IF fu_data[] IS INITIAL. MESSAGE '文件为空！' TYPE 'I'. STOP. ENDIF. ENDFORM. "frm_upload_data *&---------------------------------------------------------------------* *& Form frm_fill_partner *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM frm_fill_partner_data. REFRESH lt_cust. DATA:lt_data TYPE STANDARD TABLE OF ty_knvp, lw_data TYPE ty_knvp. REFRESH lt_data. LOOP AT t_partner INTO w_partner. lwa_cust-header-object_task = 'C'. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = w_partner-kunnr IMPORTING output = lwa_cust-header-object_instance-kunnr. * lwa_cust-header-object_instance-kunnr = w_partner-kunnr. CLEAR lwa_sale. REFRESH lt_sale. lwa_sale-task = 'U'. lwa_sale-data_key-vkorg = w_partner-vkorg. lwa_sale-data_key-vtweg = w_partner-vtweg. lwa_sale-data_key-spart = w_partner-spart. * lwa_cust-central_data-central-data-ktokd = 'Z002'."账户组 * lwa_cust-central_data-central-datax-ktokd = 'X'. REFRESH lt_functions. CLEAR w_knvp. MOVE-CORRESPONDING w_partner TO w_knvp. PERFORM frm_fill_partner01 USING w_partner-parvw_zp w_partner-kunnr_zp w_knvp. PERFORM frm_fill_partner01 USING w_partner-parvw_sm w_partner-kunnr_sm w_knvp. PERFORM frm_fill_partner01 USING w_partner-parvw_we w_partner-kunnr_we w_knvp. lwa_sale-functions-functions = lt_functions. APPEND lwa_sale TO lt_sale. CLEAR lwa_sale. lwa_cust-sales_data-sales = lt_sale. REFRESH lt_sale. APPEND lwa_cust TO lt_cust. MOVE-CORRESPONDING w_partner TO lw_data. APPEND lw_data TO lt_data. CLEAR lw_data. CLEAR lwa_cust. ENDLOOP. ls_main-customers = lt_cust. PERFORM frm_write_data_sap TABLES lt_data. FREE ls_main. REFRESH lt_cust. ENDFORM. "frm_fill_partner *&---------------------------------------------------------------------* *& Form FRM_INPUT_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_fill_data . * 主数据 DATA:lt_data TYPE STANDARD TABLE OF ty_knvp, lw_data TYPE ty_knvp. REFRESH lt_cust. data:l_kunnr1 type knvp-kunnr. DATA:l_kunnr TYPE kna1-kunnr. DATA:lt_kna1 TYPE STANDARD TABLE OF kna1. DATA:lw_kna1 TYPE kna1. *切割数据 "客户+公司信息 LOOP AT t_data INTO w_data. MOVE-CORRESPONDING w_data TO w_basis. MOVE-CORRESPONDING w_data TO w_com. MOVE-CORRESPONDING w_data TO w_org. APPEND w_basis TO t_basis. APPEND w_com TO t_com. APPEND w_org TO t_org. CLEAR:w_com,w_org,w_basis,w_data. ENDLOOP. SORT t_basis BY kunnr. SORT t_org BY kunnr vkorg vtweg spart. SORT t_com BY kunnr bukrs. "客户+基本信息 DELETE ADJACENT DUPLICATES FROM t_basis COMPARING kunnr. DELETE ADJACENT DUPLICATES FROM t_org COMPARING kunnr vkorg vtweg spart . DELETE ADJACENT DUPLICATES FROM t_com COMPARING kunnr bukrs. "客户+销售组织信息 LOOP AT t_basis INTO w_basis. "判定该客户是否存在 "获取默认合作伙伴 REFRESH t_tpakd. SELECT * FROM tpakd INTO CORRESPONDING FIELDS OF TABLE t_tpakd WHERE ktokd = w_basis-ktokd. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = w_basis-kunnr IMPORTING output = lwa_cust-header-object_instance-kunnr. CLEAR l_kunnr. SELECT SINGLE kunnr FROM kna1 INTO l_kunnr WHERE kunnr = lwa_cust-header-object_instance-kunnr. * lwa_cust-header-object_instance-kunnr = w_data-kunnr."客户编码 lwa_cust-central_data-central-data-ktokd = w_basis-ktokd."账户组 IF l_kunnr IS INITIAL. lwa_cust-header-object_task = 'I'. ELSE. lwa_cust-header-object_task = 'M'. ENDIF. lwa_cust-central_data-central-data-brsch = w_basis-brsch."行业 lwa_cust-central_data-central-data-umsa1 = w_basis-umsa1. lwa_cust-central_data-central-data-kukla = w_basis-kukla. lwa_cust-central_data-central-data-katr1 = w_basis-katr1. lwa_cust-central_data-central-data-katr2 = w_basis-katr2. lwa_cust-central_data-central-data-katr3 = w_basis-katr3. lwa_cust-central_data-central-data-katr6 = w_basis-katr6. lwa_cust-central_data-central-data-uwaer = w_basis-uwaer. lwa_cust-central_data-central-data-stceg = w_basis-stceg."增值税号 lwa_cust-central_data-central-data-umjah = w_basis-umjah."货币 lwa_cust-central_data-central-datax-katr1 = 'X'. lwa_cust-central_data-central-datax-katr2 = 'X'. lwa_cust-central_data-central-datax-katr3 = 'X'. lwa_cust-central_data-central-datax-katr6 = 'X'. lwa_cust-central_data-central-datax-brsch = 'X'. lwa_cust-central_data-central-datax-umsa1 = 'X'. lwa_cust-central_data-central-datax-uwaer = 'X'."货币 lwa_cust-central_data-central-datax-umjah = 'X'."货币 lwa_cust-central_data-central-data-civve = 'X'. lwa_cust-central_data-central-datax-ktokd = 'X'. lwa_cust-central_data-central-datax-civve = 'X'. * 地址数据 lwa_cust-central_data-address-task = con_insert. lwa_cust-central_data-address-postal-data-title = w_basis-chhu. lwa_cust-central_data-address-postal-data-name = w_basis-name1. lwa_cust-central_data-address-postal-data-name_2 = w_basis-name2. lwa_cust-central_data-address-postal-data-street = w_basis-street. lwa_cust-central_data-address-postal-data-region = w_basis-regio. lwa_cust-central_data-address-postal-data-langu = sy-langu. lwa_cust-central_data-address-postal-data-country = w_basis-land1. lwa_cust-central_data-address-postal-data-sort1 = w_basis-sortl. lwa_cust-central_data-address-postal-datax-sort1 = 'X'. lwa_cust-central_data-address-postal-data-sort2 = w_basis-sort2. lwa_cust-central_data-address-postal-datax-sort2 = 'X'. lwa_cust-central_data-address-postal-datax-title = 'X'. lwa_cust-central_data-address-postal-datax-name = 'X'. lwa_cust-central_data-address-postal-datax-name_2 = 'X'. lwa_cust-central_data-address-postal-datax-langu = 'X'. lwa_cust-central_data-address-postal-datax-country = 'X'. lwa_cust-central_data-address-postal-datax-street = 'X'. lwa_cust-central_data-address-postal-datax-region = 'X'. *地址注释 CLEAR lwa_remark. REFRESH lt_remark. lwa_remark-task = con_insert. lwa_remark-data-langu = sy-langu. lwa_remark-data-adr_notes = w_basis-remark. lwa_remark-datax-langu = 'X'. lwa_remark-datax-adr_notes = 'X'. APPEND lwa_remark TO lt_remark. lwa_cust-central_data-address-remark-remarks = lt_remark. *电话 CLEAR:lwa_phone. REFRESH lt_phone. lwa_phone-contact-task = con_insert. lwa_phone-contact-data-telephone = w_basis-tel. lwa_phone-contact-datax-telephone = 'X'. APPEND lwa_phone TO lt_phone. lwa_cust-central_data-address-communication-phone-phone = lt_phone. *传真 CLEAR:lwa_fax. REFRESH lt_fax. lwa_fax-contact-task = con_insert. lwa_fax-contact-data-fax = w_basis-fax. lwa_fax-contact-datax-fax = 'X'. APPEND lwa_fax TO lt_fax. lwa_cust-central_data-address-communication-fax-fax = lt_fax. *电子邮件 CLEAR:lwa_mail. REFRESH lt_mail. lwa_mail-contact-task = con_insert. lwa_mail-contact-data-e_mail = w_basis-smtp. lwa_mail-contact-datax-e_mail = 'X'. APPEND lwa_mail TO lt_mail. lwa_cust-central_data-address-communication-smtp-smtp = lt_mail. *联系人1 *CLEAR:g_parnr. *CALL FUNCTION 'NUMBER_GET_NEXT' * EXPORTING * nr_range_nr = 'AP' * object = 'PARTNER' * quantity = '1' * IMPORTING * number = g_parnr * EXCEPTIONS * interval_not_found = 1 * number_range_not_intern = 2 * object_not_found = 3 * quantity_is_0 = 4 * quantity_is_not_1 = 5 * interval_overflow = 6 * buffer_overflow = 7 * OTHERS = 8. * *lwa_contact-task = 'I'. *lwa_contact-address_type_3-task = 'I'. *lwa_contact-data_key-parnr = g_parnr. *lwa_contact-address_type_3-postal-data-firstname = 'aa'. *lwa_contact-address_type_3-postal-data-lastname = 'bb'. *lwa_contact-address_type_3-postal-datax-firstname = 'X'. *lwa_contact-address_type_3-postal-datax-lastname = 'X'. * *"联系人电话 * *lwa_phone1-contact-task = 'I'. *lwa_phone1-contact-data-telephone = '89999888'. *lwa_phone1-contact-data-extension = '3434343'. *lwa_phone1-contact-datax-extension = 'X'. *lwa_phone1-contact-datax-telephone = 'X'. *APPEND lwa_phone1 TO lt_phone1. * *lwa_contact-address_type_3-communication-phone-phone = lt_phone1. *APPEND lwa_contact TO lt_contact. REFRESH lt_contact. PERFORM frm_fill_contact USING w_basis-name11 w_basis-telf11. PERFORM frm_fill_contact USING w_basis-name12 w_basis-telf12. PERFORM frm_fill_contact USING w_basis-name13 w_basis-telf13. lwa_cust-central_data-contact-contacts = lt_contact. *会计注释 * CLEAR:lwa_text. REFRESH lt_text. * CLEAR:lwa_content. * REFRESH lt_content. * lwa_text-task = 'M'. * lwa_text-data_key-text_id = '0002'. * lwa_text-data_key-langu = sy-langu. * lwa_content-tdformat = '*'. * lwa_content-tdline = 'TEST001'. * APPEND lwa_content TO lt_content. * CLEAR lwa_content. * lwa_text-data = lt_content. * * APPEND lwa_text TO lt_text. *备注 * REFRESH lt_content. * CLEAR lwa_content. * CLEAR lwa_text. * lwa_text-task = 'M'. * lwa_text-data_key-text_id = 'Z301'. * lwa_text-data_key-langu = sy-langu. * lwa_content-tdformat = '*'. * lwa_content-tdline = 'TEST002'. * APPEND lwa_content TO lt_content. * CLEAR lwa_content. * lwa_text-data = lt_content. * * APPEND lwa_text TO lt_text. PERFORM frm_fill_text USING 'Z301' w_basis-zbz. *有无店招广告 * REFRESH lt_content. * REFRESH lt_content. * CLEAR lwa_content. * CLEAR lwa_text. * lwa_text-task = 'M'. * lwa_text-data_key-text_id = 'Z302'. * lwa_text-data_key-langu = sy-langu. * lwa_content-tdformat = '*'. * lwa_content-tdline = 'TEST003'. * APPEND lwa_content TO lt_content. * CLEAR lwa_content. * lwa_text-data = lt_content. * APPEND lwa_text TO lt_text. PERFORM frm_fill_text USING 'Z302' w_basis-zywgg. lwa_cust-central_data-text-texts = lt_text. REFRESH lt_company. * 公司代码数据 LOOP AT t_com INTO w_com WHERE kunnr = w_basis-kunnr. CLEAR lwa_company. lwa_company-task = 'M'. lwa_company-data_key-bukrs = w_com-bukrs. * lwa_company-data-zuawa = '001'. lwa_company-data-akont = w_com-akont. * lwa_company-datax-zuawa = 'X'. lwa_company-datax-akont = 'X'. APPEND lwa_company TO lt_company. CLEAR:w_com. ENDLOOP. lwa_cust-company_data-company = lt_company. *销售数据 "销售数据文本 *称重要求 *tax REFRESH lt_sale. LOOP AT t_org INTO w_org WHERE kunnr = w_basis-kunnr. CLEAR lwa_sale. REFRESH lt_text. PERFORM frm_fill_text USING 'Z201' w_org-zbz. * REFRESH lt_content. * CLEAR:lwa_text,lwa_content. * lwa_text-task = 'M'. * lwa_text-data_key-text_id = 'Z201'. * lwa_text-data_key-langu = sy-langu. * lwa_content-tdformat = '*'. * lwa_content-tdline = w_data-zczyq. * APPEND lwa_content TO lt_content. * CLEAR lwa_content. * lwa_text-data = lt_content. * APPEND lwa_text TO lt_text. PERFORM frm_fill_text USING 'Z202' w_org-zbz. * REFRESH lt_content. * CLEAR:lwa_text,lwa_content. * lwa_text-task = 'M'. * lwa_text-data_key-text_id = 'Z202'. * lwa_text-data_key-langu = sy-langu. * lwa_content-tdformat = '*'. * lwa_content-tdline = w_data-zqyg. * APPEND lwa_content TO lt_content. * CLEAR lwa_content. * lwa_text-data = lt_content. * APPEND lwa_text TO lt_text. PERFORM frm_fill_text USING 'Z203' w_org-zmdg. * REFRESH lt_content. * CLEAR:lwa_text,lwa_content. * lwa_text-task = 'M'. * lwa_text-data_key-text_id = 'Z203'. * lwa_text-data_key-langu = sy-langu. * lwa_content-tdformat = '*'. * lwa_content-tdline = w_data-zmdg. * APPEND lwa_content TO lt_content. * CLEAR lwa_content. * lwa_text-data = lt_content. * APPEND lwa_text TO lt_text. * REFRESH lt_content. * * lwa_text-task = 'M'. * lwa_text-data_key-text_id = 'Z204'. * lwa_text-data_key-langu = sy-langu. * lwa_content-tdformat = '*'. * lwa_content-tdline = w_data-zmdd. * APPEND lwa_content TO lt_content. * CLEAR lwa_content. * lwa_text-data = lt_content. * * APPEND lwa_text TO lt_text. * REFRESH lt_content. * CLEAR:lwa_text,lwa_content. * lwa_text-task = 'M'. * lwa_text-data_key-text_id = 'Z205'. * lwa_text-data_key-langu = sy-langu. * lwa_content-tdformat = '*'. * lwa_content-tdline = w_data-zdttj. * APPEND lwa_content TO lt_content. * CLEAR lwa_content. * lwa_text-data = lt_content. * APPEND lwa_text TO lt_text. PERFORM frm_fill_text USING 'Z205' w_org-zdttj. lwa_sale-texts-texts = lt_text. lwa_sale-task = 'M'. lwa_sale-data_key-vkorg = w_org-vkorg. lwa_sale-data_key-vtweg = w_org-vtweg. lwa_sale-data_key-spart = w_org-spart. lwa_sale-data-zterm = w_org-zterm. lwa_sale-data-vkgrp = w_org-vkgrp. lwa_sale-data-vkbur = w_org-vkbur. lwa_sale-data-waers = w_org-waers. lwa_sale-data-kvgr1 = w_org-kvgr1. lwa_sale-data-kvgr2 = w_org-kvgr2. lwa_sale-data-inco1 = w_org-inco1. lwa_sale-data-inco2 = w_org-inco2. lwa_sale-data-bzirk = w_org-bzirk. lwa_sale-data-kdgrp = w_org-kdgrp."客户组 lwa_sale-data-versg = w_org-versg."客户统计组 lwa_sale-data-vsbed = w_org-vsbed."装运条件 lwa_sale-data-vwerk = w_org-vwerk. lwa_sale-data-ktgrd = w_org-ktgrd."账户分配 lwa_sale-data-klabc = w_org-klabc."ABC等级 lwa_sale-data-konda = w_org-konda."价格租 lwa_sale-data-pltyp = w_org-pltyp."价格清单 IF w_org-konda IS NOT INITIAL. lwa_sale-datax-konda = 'X'."价格租 ENDIF. IF w_org-pltyp IS NOT INITIAL. lwa_sale-datax-pltyp = 'X'."价格清单 ENDIF. IF w_org-klabc IS NOT INITIAL. lwa_sale-datax-klabc = 'X'."ABC等级 ENDIF. IF w_org-zterm IS NOT INITIAL. lwa_sale-datax-zterm = 'X'. ENDIF. IF w_org-vkgrp IS NOT INITIAL. lwa_sale-datax-vkgrp = 'X'. ENDIF. IF w_org-vkbur IS NOT INITIAL. lwa_sale-datax-vkbur = 'X'. ENDIF. IF w_org-waers IS NOT INITIAL. lwa_sale-datax-waers = 'X'. ENDIF. IF w_org-kvgr1 IS NOT INITIAL. lwa_sale-datax-kvgr1 = 'X'. ENDIF. IF w_org-kvgr2 IS NOT INITIAL. lwa_sale-datax-kvgr2 = 'X'. ENDIF. IF w_org-inco1 IS NOT INITIAL. lwa_sale-datax-inco1 = 'X'. ENDIF. IF w_org-inco2 IS NOT INITIAL. lwa_sale-datax-inco2 = 'X'. ENDIF. IF w_org-bzirk IS NOT INITIAL. lwa_sale-datax-bzirk = 'X'. ENDIF. IF w_org-kdgrp IS NOT INITIAL. lwa_sale-datax-kdgrp = 'X'."客户组 ENDIF. IF w_org-versg IS NOT INITIAL. lwa_sale-datax-versg = 'X'."客户统计组 ENDIF. IF w_org-vsbed IS NOT INITIAL. lwa_sale-datax-vsbed = 'X'."装运条件 ENDIF. IF w_org-vwerk IS NOT INITIAL. lwa_sale-datax-vwerk = 'X'. ENDIF. IF w_org-ktgrd IS NOT INITIAL. lwa_sale-datax-ktgrd = 'X'."账户分配 ENDIF. REFRESH lt_functions. CLEAR w_knvp. MOVE-CORRESPONDING w_org TO w_knvp. LOOP AT t_tpakd INTO w_tpakd. select SINGLE kunnr FROM knvp INTO l_kunnr1 WHERE kunnr = w_basis-kunnr and vkorg = w_org-vkorg and vtweg = w_org-vtweg and spart = w_org-spart. if sy-subrc ne 0. PERFORM frm_fill_partner USING w_tpakd-parvw lwa_cust-header-object_instance-kunnr w_knvp. ENDIF. ENDLOOP. * CLEAR lwa_functions. * lwa_functions-task = 'I'. * lwa_functions-data_key-parvw = 'I'. * lwa_functions-data_key-parvw = 'WE'. ** lwa_functions-data-partner = 'AY9'. * lwa_functions-data-defpa = 'X'. * lwa_functions-datax-defpa = 'X'. * lwa_functions-datax-partner = 'X'. * APPEND lwa_functions TO lt_functions. * * CLEAR lwa_functions. * lwa_functions-task = 'I'. * lwa_functions-data_key-parvw = 'I'. * lwa_functions-data_key-parvw = 'RG'. ** lwa_functions-data-partner = 'AY9'. * lwa_functions-data-defpa = 'X'. * lwa_functions-datax-defpa = 'X'. * lwa_functions-datax-partner = 'X'. * APPEND lwa_functions TO lt_functions. * * * CLEAR lwa_functions. * lwa_functions-task = 'I'. * lwa_functions-data_key-parvw = 'I'. * lwa_functions-data_key-parvw = 'SM'. ** lwa_functions-data-partner = 'GX0001'. * lwa_functions-data-defpa = 'X'. * lwa_functions-datax-defpa = 'X'. * lwa_functions-datax-partner = 'X'. * APPEND lwa_functions TO lt_functions. * * * CLEAR lwa_functions. * lwa_functions-task = 'I'. * lwa_functions-data_key-parvw = 'I'. * lwa_functions-data_key-parvw = 'AG'. * lwa_functions-data-defpa = 'X'. * lwa_functions-datax-defpa = 'X'. * APPEND lwa_functions TO lt_functions. * * * CLEAR lwa_functions. * lwa_functions-task = 'I'. * lwa_functions-data_key-parvw = 'I'. * lwa_functions-data_key-parvw = 'RE'. * lwa_functions-data-defpa = 'X'. * lwa_functions-datax-defpa = 'X'. * APPEND lwa_functions TO lt_functions. CLEAR lwa_tax. REFRESH lt_tax. lwa_tax-task = 'M'. lwa_tax-data_key-aland = 'CN'. lwa_tax-data_key-tatyp = 'MWST' . lwa_tax-data-taxkd = w_org-taxkd. lwa_tax-datax-taxkd = 'X'. APPEND lwa_tax TO lt_tax. lwa_sale-functions-functions = lt_functions. APPEND lwa_sale TO lt_sale. CLEAR lwa_sale. CLEAR:w_org. endloop. lwa_cust-central_data-tax_ind-tax_ind = lt_tax. lwa_cust-sales_data-sales = lt_sale. * lwa_cust-sales_data-CURRENT_STATE = 'X'. REFRESH lt_sale. APPEND lwa_cust TO lt_cust. MOVE-CORRESPONDING w_basis TO lw_data. APPEND lw_data TO lt_data. CLEAR lw_data. CLEAR lwa_cust. ENDLOOP. ls_main-customers = lt_cust. PERFORM frm_write_data_sap TABLES lt_data."创建数据到SAP中 FREE ls_main. REFRESH lt_cust. ENDFORM. " FRM_INPUT_DATA *&---------------------------------------------------------------------* *& Form frm_fill_contact *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->FU_NAME text * -->FU_PHONE text *----------------------------------------------------------------------* FORM frm_fill_contact USING fu_name fu_phone. IF fu_name IS NOT INITIAL OR fu_phone IS NOT INITIAL. CLEAR lwa_contact. CLEAR:g_parnr. CALL FUNCTION 'NUMBER_GET_NEXT' EXPORTING nr_range_nr = 'AP' object = 'PARTNER' quantity = '1' IMPORTING number = g_parnr EXCEPTIONS interval_not_found = 1 number_range_not_intern = 2 object_not_found = 3 quantity_is_0 = 4 quantity_is_not_1 = 5 interval_overflow = 6 buffer_overflow = 7 OTHERS = 8. lwa_contact-task = 'I'. lwa_contact-address_type_3-task = 'I'. lwa_contact-data_key-parnr = g_parnr. *lwa_contact-address_type_3-postal-data-firstname = 'aa'. lwa_contact-address_type_3-postal-data-lastname = fu_name. *lwa_contact-address_type_3-postal-datax-firstname = 'X'. lwa_contact-address_type_3-postal-datax-lastname = 'X'. "联系人电话 CLEAR:lwa_phone1. REFRESH lt_phone1. lwa_phone1-contact-task = 'I'. lwa_phone1-contact-data-telephone = fu_phone. *lwa_phone1-contact-data-extension = '3434343'. *lwa_phone1-contact-datax-extension = 'X'. lwa_phone1-contact-datax-telephone = 'X'. APPEND lwa_phone1 TO lt_phone1. lwa_contact-address_type_3-communication-phone-phone = lt_phone1. APPEND lwa_contact TO lt_contact. ENDIF. ENDFORM. "frm_fill_contact *&---------------------------------------------------------------------* *& Form frm_fill_text *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->FU_ID text * -->FU_CONTENT text *----------------------------------------------------------------------* FORM frm_fill_text USING fu_id fu_content. REFRESH lt_content. REFRESH lt_content. CLEAR lwa_content. CLEAR lwa_text. lwa_text-task = 'M'. lwa_text-data_key-text_id = fu_id. lwa_text-data_key-langu = sy-langu. lwa_content-tdformat = '*'. lwa_content-tdline = fu_content. APPEND lwa_content TO lt_content. CLEAR lwa_content. lwa_text-data = lt_content. APPEND lwa_text TO lt_text. ENDFORM. "frm_fill_text *&---------------------------------------------------------------------* *& Form FRM_WRITE_DATA_SAP *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_write_data_sap TABLES fu_data TYPE STANDARD TABLE. DATA:l_ilines TYPE i . DATA:l_message TYPE string. DATA:l_iindex TYPE i. FREE:ls_main1,ls_main2,ls_mesg,ls_mesg1. DATA:lw_data TYPE ty_knvp. * FREE:cmd_ei_api=>gt_global_kna1_old. DESCRIBE TABLE fu_data[] LINES l_ilines. CALL METHOD cmd_ei_api=>maintain_bapi EXPORTING iv_test_run = p_test iv_collect_messages = 'X' is_master_data = ls_main IMPORTING es_master_data_correct = ls_main1 es_message_correct = ls_mesg1 es_master_data_defective = ls_main2 es_message_defective = ls_mesg. REFRESH lt_msg. CLEAR lv_flg. lt_msg = ls_mesg-messages. l_iindex = 0. DO l_ilines TIMES. l_iindex = l_iindex + 1. READ TABLE fu_data INTO lw_data INDEX l_iindex. READ TABLE lt_msg INTO lwa_msg WITH KEY row = l_iindex. IF sy-subrc NE 0."没有任何改行的信息，表明成功 CLEAR w_log. CLEAR l_message. w_log-row = l_iindex. w_log-kunnr = lw_data-kunnr. w_log-type = 'S'. CONCATENATE '客户' w_log-kunnr '创建/修改成功' INTO l_message. w_log-mesg = l_message. APPEND w_log TO t_log. COMMIT WORK. ELSE. CLEAR lv_flg. LOOP AT lt_msg INTO lwa_msg WHERE row = l_iindex. CLEAR l_message. l_message = lwa_msg-message. * WRITE: / lwa_cust-header-OBJECT_INSTANCE-kunnr,lwa_msg-type,l_message. IF lwa_msg-type = 'E' OR lwa_msg-type = 'A'. CLEAR w_log. w_log-row = l_iindex. w_log-kunnr = lw_data-kunnr. w_log-type = lwa_msg-type. w_log-mesg = l_message. APPEND w_log TO t_log. lv_flg = 'X'. ENDIF. CLEAR:lwa_msg. ENDLOOP. IF lv_flg IS INITIAL. CLEAR w_log. CLEAR l_message. w_log-row = l_iindex. w_log-kunnr = lw_data-kunnr. w_log-type = 'S'. CONCATENATE '客户' w_log-kunnr '创建/修改成功' INTO l_message. w_log-mesg = l_message. APPEND w_log TO t_log. COMMIT WORK. ELSE. ROLLBACK WORK. ENDIF. ENDIF. ENDDO. * LOOP AT lt_msg INTO lwa_msg. * CLEAR l_message. * l_message = lwa_msg-message. * ** WRITE: / lwa_cust-header-OBJECT_INSTANCE-kunnr,lwa_msg-type,l_message. * IF lwa_msg-type = 'E' OR lwa_msg-type = 'A'. * CLEAR w_log. * w_log-kunnr = lwa_cust-header-object_instance-kunnr. * w_log-type = lwa_msg-type. * w_log-mesg = l_message. * APPEND w_log TO t_log. * lv_flg = 'X'. * ENDIF. * CLEAR:lwa_msg. * ENDLOOP. * IF lv_flg IS INITIAL. * CLEAR w_log. * CLEAR l_message. * w_log-kunnr = lwa_cust-header-object_instance-kunnr. * w_log-type = 'S'. * CONCATENATE '客户' w_log-kunnr '创建/修改成功' INTO l_message. * w_log-mesg = l_message. * APPEND w_log TO t_log. * COMMIT WORK. * ELSE. * ROLLBACK WORK. * ENDIF. * WAIT UP TO '0.5' SECONDS. ENDFORM. " FRM_WRITE_DATA_SAP *&---------------------------------------------------------------------* *& Form frm_fill_partner *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->FU_PARVW text *----------------------------------------------------------------------* FORM frm_fill_partner USING fu_parvw fu_kunnr fu_data TYPE ty_knvp. DATA:l_parza TYPE knvp-parza. CLEAR l_parza. CLEAR lwa_functions. lwa_functions-task = 'M'. lwa_functions-data_key-parvw = 'M'. lwa_functions-data_key-parvw = fu_parvw. * IF NOT fu_kunnr IS INITIAL. * SELECT SINGLE MAX( parza ) * FROM knvp * INTO l_parza * WHERE kunnr = fu_data-kunnr * AND vkorg = fu_data-vkorg * AND vtweg = fu_data-vtweg * AND spart = fu_data-spart * AND parvw = fu_parvw. * l_parza = l_parza + 1. * lwa_functions-data_key-parza = '000'. lwa_functions-data-partner = fu_kunnr. lwa_functions-datax-partner = 'X'. * ELSE. * lwa_functions-data-partner = 'AY9'. * lwa_functions-data-defpa = 'X'. * lwa_functions-datax-defpa = 'X'. * lwa_functions-datax-partner = 'X'. * ENDIF. APPEND lwa_functions TO lt_functions. ENDFORM. "frm_fill_partner *&---------------------------------------------------------------------* *& Form FRM_INSERT_PARTNER *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_insert_partner . CALL METHOD cmd_ei_api=>maintain_bapi EXPORTING iv_test_run = p_test iv_collect_messages = 'X' is_master_data = ls_main IMPORTING es_master_data_correct = ls_main1 es_message_correct = ls_mesg1 es_master_data_defective = ls_main2 es_message_defective = ls_mesg. lt_msg = ls_mesg-messages. LOOP AT lt_msg INTO lwa_msg. WRITE: / lwa_msg-type,lwa_msg-message. IF lwa_msg-type = 'E' OR lwa_msg-type = 'A'. lv_flg = 'X'. ENDIF. ENDLOOP. IF lv_flg IS INITIAL. COMMIT WORK. ELSE. ROLLBACK WORK. ENDIF. ENDFORM. " FRM_INSERT_PARTNER *&---------------------------------------------------------------------* *& Form FRM_WRITE_LOG *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_write_log . LOOP AT t_log INTO w_log. IF w_log-type = 'E'. WRITE:/ w_log-kunnr UNDER w_log-kunnr COLOR COL_NEGATIVE, w_log-type UNDER w_log-type COLOR COL_NEGATIVE, w_log-mesg UNDER w_log-mesg COLOR COL_NEGATIVE. ELSEIF w_log-type = 'A'. WRITE:/ w_log-kunnr UNDER w_log-kunnr COLOR COL_NEGATIVE, w_log-type UNDER w_log-type COLOR COL_NEGATIVE, w_log-mesg UNDER w_log-mesg COLOR COL_NEGATIVE. ELSEIF w_log-type = 'W'. WRITE:/ w_log-kunnr UNDER w_log-kunnr COLOR COL_TOTAL, w_log-type UNDER w_log-type COLOR COL_TOTAL, w_log-mesg UNDER w_log-mesg COLOR COL_TOTAL. ELSEIF w_log-type = 'S'. WRITE:/ w_log-kunnr UNDER w_log-kunnr COLOR COL_POSITIVE , w_log-type UNDER w_log-type COLOR COL_POSITIVE , w_log-mesg UNDER w_log-mesg COLOR COL_POSITIVE . ELSE. * WRITE:/ w_log-kunnr UNDER w_log-kunnr COLOR COL_HEADING , * w_log-type UNDER w_log-type COLOR COL_HEADING , * w_log-mesg UNDER w_log-mesg COLOR COL_HEADING . ENDIF. CLEAR w_log. ENDLOOP. ENDFORM. " FRM_WRITE_LOG *&---------------------------------------------------------------------* *& Form FRM_SHOR_MESSAGE *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_shor_message . PERFORM frm_layout_build."设置 layout PERFORM frm_fieldcat_build."填充 fieldcat PERFORM frm_display_data."显示 ALV ENDFORM. " FRM_SHOR_MESSAGE *&---------------------------------------------------------------------* *& Form FRM_LAYOUT_BUILD *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_layout_build . CLEAR: g_title,g_repid,g_layout. g_title = '日志'. g_repid = sy-repid. g_layout-info_fieldname = 'COLOR'. g_layout-colwidth_optimize = 'X'."最优化列宽度 g_layout-zebra = 'X'."可选行颜色,如果设置了，出现了间隔色带 * g_layout-no_vline = 'X'."不显示列间竖线 g_layout-f2code = '&ETA'."双击弹出显示详细信息的窗口 g_layout-detail_popup = 'X'."是否弹出详细信息窗口 g_layout-detail_initial_lines = 'X'."设置弹出窗口的？ g_layout-detail_titlebar = '详细显示'."设置弹出窗口的标题栏 ENDFORM. " FRM_LAYOUT_BUILD *&---------------------------------------------------------------------* *& Form FRM_FIELDCAT_BUILD *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_fieldcat_build . CLEAR it_fieldcat[]. DEFINE mc_fieldcatt_build. clear wa_fieldcat. wa_fieldcat-col_pos = &1. wa_fieldcat-fieldname = &2. * wa_fieldcat-seltext_s = &3. wa_fieldcat-seltext_m = &3. wa_fieldcat-seltext_l = &3. append wa_fieldcat to it_fieldcat. END-OF-DEFINITION. mc_fieldcatt_build: '1' 'ROW' '序号', '2' 'KUNNR' '客户', '3' 'TYPE' '信息类型', '4' 'MESG' '信息文本'. ENDFORM. " FRM_FIELDCAT_BUILD *&---------------------------------------------------------------------* *& Form FRM_DISPLAY_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_display_data . CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING * I_INTERFACE_CHECK = ' ' * I_BYPASSING_BUFFER = ' ' * I_BUFFER_ACTIVE = ' ' i_callback_program = g_repid * I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS' * I_CALLBACK_USER_COMMAND = 'USER_COMMEND' * I_CALLBACK_TOP_OF_PAGE = ' ' * I_CALLBACK_HTML_TOP_OF_PAGE = ' ' * I_CALLBACK_HTML_END_OF_LIST = ' ' * I_STRUCTURE_NAME = * I_BACKGROUND_ID = ' ' i_grid_title = g_title * I_GRID_SETTINGS = is_layout = g_layout it_fieldcat = it_fieldcat[] * IT_EXCLUDING = * IT_SPECIAL_GROUPS = * IT_SORT = * IT_FILTER = * IS_SEL_HIDE = * I_DEFAULT = 'X' i_save = 'A'"可以保存所有变式 * IS_VARIANT = * IT_EVENTS = * IT_EVENT_EXIT = * IS_PRINT = * IS_REPREP_ID = * I_SCREEN_START_COLUMN = 0 * I_SCREEN_START_LINE = 0 * I_SCREEN_END_COLUMN = 0 * I_SCREEN_END_LINE = 0 * I_HTML_HEIGHT_TOP = 0 * I_HTML_HEIGHT_END = 0 * IT_ALV_GRAPHICS = * IT_HYPERLINK = * IT_ADD_FIELDCAT = * IT_EXCEPT_QINFO = * IR_SALV_FULLSCREEN_ADAPTER = * IMPORTING * E_EXIT_CAUSED_BY_CALLER = * ES_EXIT_CAUSED_BY_USER = TABLES t_outtab = t_log[] EXCEPTIONS program_error = 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. ENDFORM. " FRM_DISPLAY_DATA *&---------------------------------------------------------------------* *& Form frm_fill_partner01 *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->FU_PARVW text * -->FU_KUNNR text * -->FU_DATA text *----------------------------------------------------------------------* FORM frm_fill_partner01 USING fu_parvw fu_kunnr fu_data TYPE ty_knvp. IF fu_kunnr IS NOT INITIAL. DATA:l_parza TYPE knvp-parza. CLEAR l_parza. CLEAR lwa_functions. lwa_functions-task = 'M'. lwa_functions-data_key-parvw = 'M'. lwa_functions-data_key-parvw = fu_parvw. IF NOT fu_kunnr IS INITIAL. SELECT SINGLE MAX( parza ) FROM knvp INTO l_parza WHERE kunnr = fu_data-kunnr AND vkorg = fu_data-vkorg AND vtweg = fu_data-vtweg AND spart = fu_data-spart AND parvw = fu_parvw. l_parza = l_parza + 1. lwa_functions-data_key-parza = l_parza. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = fu_kunnr IMPORTING output = lwa_functions-data-partner. * lwa_functions-data-partner = fu_kunnr. lwa_functions-datax-partner = 'X'. ELSE. * lwa_functions-data-partner = 'AY9'. lwa_functions-data-defpa = 'X'. lwa_functions-datax-defpa = 'X'. lwa_functions-datax-partner = 'X'. ENDIF. APPEND lwa_functions TO lt_functions. ENDIF. ENDFORM. "frm_fill_partner01
