标签：
*&---------------------------------------------------------------------*
*& 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
标签：
原文地址：http://www.cnblogs.com/rainysblog/p/4194600.html
