H: GUID 1 CRMT_OBJECT_GUID RAW 16 0 CRM 订单对象的 GUID BP_NUMBER 1 BU_PARTNER CHAR 10 0 业务伙伴编号 FIRSTNAME 1 BU_NAMEP_F CHAR 40 0 业务伙伴（人员）的名 PROCESS_TYPE 1 CRMT_PROCESS_TYPE CHAR 4 0 业务类型 LASTNAME 1 BU_NAMEP_L CHAR 40 0 业务伙伴（个人）的姓 STREET 1 AD_STREET CHAR 60 0 街道 HOUSE_NO 1 ZHOUSE_NO CHAR 30 0 POSTAL_CODE 1 AD_PSTCD1 CHAR 10 0 城市邮政编码 CITY 1 AD_CITY1 CHAR 40 0 城市 COUNTRY 1 LAND1 CHAR 3 0 国家键值 STATE 1 REGIO CHAR 3 0 地区（省/自治区/直辖市、市、县） PHONE 1 AD_TELNRCL CHAR 30 0 确定呼叫者的电话号码 MOBIL 1 AD_TELNRCL CHAR 30 0 确定呼叫者的电话号码 SUG_SER_TIME 1 ZSO_FIRST_REPAIR_TIME TIMS 6 0 SER_PRO 1 BU_PARTNER CHAR 10 0 业务伙伴编号 NAME_ORG1 1 BU_NAMEOR1 CHAR 40 0 组织名称 1 SYM_DES 1 CRMT_PROCESS_DESCRIPTION CHAR 40 0 事务描述 BATCH_M 1 DUMMY CHAR 1 0 长度 1 中的哑元函数 ORDER_TYPE 1 CRMT_PROCESS_TYPE CHAR 4 0 业务类型 BATCH_QUN 1 ZACTUALQTY DEC 18 0 SALES_ORG 1 CRMT_SALES_ORG_SHORT CHAR 12 0 销售组织：部门描述 DIS_CHANNEL 1 CRMT_DISTRIBUTION_CHANNEL CHAR 2 0 分销渠道 SALES_OFFICE 1 ZSO_SALES_OFFICE CHAR 14 0 销售办公室 SALES_ORG_RESP 1 ZSO_SALES_ORG_RESP CHAR 14 0 组织单位（销售） SERVICE_ORG 1 ZS0_SERVICE_ORG CHAR 14 0 服务组织 SERVICE_ORG_RESP 1 ZSO_SERVICE_ORG_RESP CHAR 14 0 组织单位（服务） PURCHASE_PRICE 1 ZSO_PURCHASE_PRICE CURR 15 2 购机价格 PROBLEM_DES 1 ZSO_PROBLEM_DES CHAR 255 0 问题描述 STAT 1 ZSO_STAT CHAR 5 0 状态 PRODUCT_ID 1 COMT_PRODUCT_ID CHAR 40 0 产品 ID PRODUCT_ID_DES 1 ZSO_PRODUCT_ID_DES CHAR 40 0 产品描述 SERIALS_NUMBER 1 ZSERIALNO CHAR 30 0 序列号 IB_IBASE 1 IB_IBASE NUMC 18 0 IBase：已安装设备清单/ IBase 编号 IB_INSTANCE 1 IB_INSTANCE NUMC 18 0 IB：组件（示例） PURCHASE_DATE 1 ZSO_PURCHASE_DATE DATS 8 0 购机日期 PURCHASE_TIME 1 ZSO_PURCHASE_TIME TIMS 6 0 RE_PARTNER_NO 1 BU_PARTNER CHAR 10 0 业务伙伴编号 OR_INVOICE 1 CRMT_YOUR_REFERENCE_SOLD CHAR 12 0 售达方参考 CURRENCY 1 CRMT_CURRENCY CUKY 5 0 货币 SER_DATE 1 ZSO_PURCHASE_DATE DATS 8 0 购机日期 SCODE 1 ZDTEL000004 CHAR 30 0 批次号 ZWARRANTYPE 1 ZWARRANTYPE CHAR 20 0 ZREFURBISH 1 ZREFURBISH CHAR 1 0 复检标志 ACCOUNT_NAME 1 BU_DESCRIP CHAR 50 0 业务伙伴的短名称 ZWARRANTYPE1 1 ZWARRANTYPE CHAR 20 0 ZZZSYMPTOMSGROUP 1 ZSYMPTOMSGROUP CHAR 8 0 故障现象大类 ZZZSYMPTOMSCODE 1 ZSYMPTOMSCODE CHAR 4 0 故障现象编码 ZZZDEFECTGROUP 1 ZDEFECTGROUP CHAR 8 0 故障原因大类 ZZZDEFECTCODE 1 ZDEFECTCODE CHAR 4 0 故障原因编码 ZZZREPAIRGROUP 1 ZREPAIRGROUP CHAR 8 0 维修措施大类 ZZZREPAIRCODE 1 ZREPAIRCODE CHAR 4 0 维修措施编码 ZZSECTIONGROUP 1 ZSECTIONGROUP CHAR 8 0 维修部件大类 ZZSECTIONCODE 1 ZSECTIONCODE CHAR 4 0 维修部件编码 ZZCRTSRVID 1 ZCRTSRVID CHAR 6 0 服务码 ZZIMEI 1 ZIMEI CHAR 15 0 IMEI号 ZZWARRANTY 1 ZWARRANTY CHAR 1 0 保修类型 ZZRELATION 1 ZZRELATION CHAR 10 0 服务订单和投诉单的关系 ZZSTATE_TXT 1 BEZEI20 CHAR 20 0 描述 ZZMAIL_FLAG 1 ZEMAIL_FLAG CHAR 1 0 邮件提醒 LO_PARTNER_NO 1 BU_PARTNER CHAR 10 0 业务伙伴编号 ZEMAIL 1 AD_SMTPADR CHAR 241 0 电子邮件地址 ZZDLYRSN 1 ZDLYRSNID CHAR 5 0 未完成原因 ZZFLD00000N 1 ZDTEL00003Y CHAR 2 0 ZZFLD00000O 1 ZDTEL000042 CHAR 3 0 CATEGORY 1 CRMT_ACTIVITY_CATEGORY CHAR 3 0 活动类别 (通讯类型) ZZSOURCE 1 ZADTEL00000M CHAR 3 0 ZZAFLD000008 1 ZADTEL000021 CHAR 2 0 RETAIL_ADDR 1 AD_STREET CHAR 60 0 街道 REFRENCE_NO 1 ZE_REFERENCE_NO CHAR 35 0 CONTACT_PERSON 1 BU_NAMEOR1 CHAR 40 0 组织名称 1 CONTACT_MOBILE 1 AD_MBNMBR1 CHAR 30 0 第一个移动电话号码：区号 + 电话号码 CONTACT_PHONE 1 AD_MBNMBR1 CHAR 30 0 第一个移动电话号码：区号 + 电话号码 CONTACT_E_MAIL 1 AD_SMTPADR CHAR 241 0 电子邮件地址 CONTACT_FAX 1 AD_FXNMBR1 CHAR 30 0 第一个传真号: 拨号 + 编号 ZA_FLAG 1 CHAR1 CHAR 1 0 单字符标记 LOGISTIC_NAME 1 BU_DESCRIP CHAR 50 0 业务伙伴的短名称 SP_NAME 1 BU_DESCRIP CHAR 50 0 业务伙伴的短名称 ZBP_TYPE 1 ZE_ZBPCATE CHAR 2 0 STR_SUPPL1 1 AD_STRSPP1 CHAR 40 0 街道2 ZESCALATION 1 ZESCALATION CHAR 1 0 ZPRIORITY 1 ZE_PRIORITY CHAR 2 0 ZANSWER_DES 1 ZANSWER_DES CHAR 255 0 ZSUB_CMPCAT 1 ZSUB_CMPCAT CHAR 4 0 ZZWARR_CONFIRM 1 ZADTEL00004U CHAR 2 0 ZZSER_TIME 1 ZADTEL00004Y CHAR 2 0 ZZSER_NETWORK 1 ZADTEL000052 CHAR 10 0 ZZCLIENT_TYPE 1 ZADTEL000056 CHAR 2 0 ZZQUOTA_RTL 1 ZADTEL00005A DEC 12 2 ZZQUOTA_USR 1 ZADTEL00005E DEC 12 2 ZZCONS_SER_NET 1 ZADTEL00005I CHAR 10 0 ZZRETAILER_NAME 1 ZADTEL00005M CHAR 40 0 OTCUST_DET 1 BU_PARTNER CHAR 10 0 业务伙伴编号 OTCUST_DET_STREET 1 CHAR255 CHAR 255 0 Char255 USER_STAT_PROC 1 J_STSMA CHAR 8 0 状态参数文件
I结构 GUID 1 CRMT_OBJECT_GUID RAW 16 0 CRM 订单对象的 GUID CORDER_GUID 1 CRMT_OBJECT_GUID RAW 16 0 CRM 订单对象的 GUID PRODUCT_ID 1 COMT_PRODUCT_ID CHAR 40 0 产品 ID PRODUCT_ID_DES 1 ZSO_PRODUCT_ID_DES CHAR 40 0 产品描述 SERIALS_NUMBER 1 ZSERIALNO CHAR 30 0 序列号 IB_IBASE 1 IB_IBASE NUMC 18 0 IBase：已安装设备清单/ IBase 编号 PURCHASE_DATE 1 ZSO_PURCHASE_DATE DATS 8 0 购机日期 PURCHASE_TIME 1 ZSO_PURCHASE_TIME TIMS 6 0 RE_PARTNER_NO 1 CRMT_PARTNER_NO CHAR 32 0 合作伙伴编号 OR_INVOICE 1 CRMT_OBJECT_ID_DB CHAR 10 0 处理标识 PUR_PRICE 1 ZPUR_PRICE CURR 18 2 QUANTITY 1 ZACTUALQTY DEC 18 0 UNIT 1 CRMT_PROCESS_QTY_UNIT_UI CHAR 3 0 出售产品的计量单位 HEADER 1 CRMT_OBJECT_GUID RAW 16 0 CRM 订单对象的 GUID NUMBER_H 1 ZSO_ITEM_NO NUMC 10 0 行项目号 NUMBER_INT 1 ZSO_ITEM_NO NUMC 10 0 行项目号 ITEM_TYPE 1 ZSO_ITEM_TYPE CHAR 4 0 行项目类别 ZZZSERIALNO 1 ZSERIALNO CHAR 30 0 序列号 ZZZSERIALNO1 1 ZSERIALNO CHAR 30 0 序列号 ZZCRM04P 1 ZSRVE_CRM04P CHAR 10 0 ZZZCUSTMODENO 1 ZCUSTMODENO CHAR 30 0 客户机型 ZZSYMP_GROU 1 ZSYMPTOMSGROUP CHAR 8 0 故障现象大类 ZZSYMP_CODE 1 ZSYMPTOMSCODE CHAR 4 0 故障现象编码 CURRENCY 1 CRMT_CURRENCY CUKY 5 0 货币 ZZPLANT 1 ZADTEL000025 CHAR 4 0 ZZLGORT 1 ZADTEL000029 CHAR 4 0
FUNCTION z_order_maintain_integration. *"---------------------------------------------------------------------- *"*"Local Interface: *" IMPORTING *" REFERENCE(ORDER_H) TYPE ZCORDER_HEADER_INFO OPTIONAL *" REFERENCE(ORDER_I) TYPE ZCORDER_ITEM_INFOR OPTIONAL *" EXPORTING *" REFERENCE(ERROR_TYPE) TYPE CHAR01 *" REFERENCE(ERROR_LOG) TYPE CHAR220 *" REFERENCE(RETURN_OBJECT_ID) TYPE CRMT_RETURN_OBJECTS *" REFERENCE(RE_ET_EXCEPTION) TYPE CRMT_EXCEPTION_T *" TABLES *" RETURN TYPE CRMT_ES_MSG *"---------------------------------------------------------------------- DATA: ls_tj30t TYPE tj30t, ls_crmc_proc_type TYPE crmc_proc_type, ls_zsals_sorg_otcust_det TYPE zsals_sorg_otcust_det. DATA: wk_schedlin TYPE crmt_schedlin_wrk, tk_schedlin TYPE crmt_schedlin_wrkt, wk_service_os TYPE crmt_srv_osset_wrk, tk_service_os TYPE crmt_srv_osset_wrkt, wk_osset TYPE crmt_srv_osset_wrk1, tk_osset TYPE crmt_srv_osset_wrkt1, wk_refobject TYPE crmt_srv_refobj_wrk, tk_refobject TYPE crmt_srv_refobj_wrkt, wk_srv_subject TYPE crmt_srv_subject_wrk, tk_srv_subject TYPE crmt_srv_subject_wrkt. * DATA: wa TYPE crmt_object_guid . DATA: wk_header TYPE crmt_object_guid_tab. DATA: ls_activity_h TYPE crmt_activity_h_com, lt_activity_h TYPE crmt_activity_h_comt, ls_service_h TYPE crmt_service_h_com, lt_service_h TYPE crmt_service_h_comt, ls_sales TYPE crmt_sales_com, lt_sales TYPE crmt_sales_comt, ls_product_i TYPE crmt_product_i_com, lt_product_i TYPE crmt_product_i_comt, ls_schedlin_i TYPE crmt_schedlin_i_com, lt_schedlin_i TYPE crmt_schedlin_i_comt, ls_partner TYPE crmt_partner_com, lt_partner TYPE crmt_partner_comt, ls_service_os TYPE crmt_srv_osset_com, lt_service_os TYPE crmt_srv_osset_comt, ls_orderadm_h TYPE crmt_orderadm_h_com, lt_orderadm_h TYPE crmt_orderadm_h_comt, ls_orderadm_i TYPE crmt_orderadm_i_com, lt_orderadm_i TYPE crmt_orderadm_i_comt, ls_orgman TYPE crmt_orgman_com, lt_orgman TYPE crmt_orgman_comt, ls_appointment TYPE crmt_appointment_com, lt_appointment TYPE crmt_appointment_comt, ls_status TYPE crmt_status_com, lt_status TYPE crmt_status_comt, wt_status TYPE crmt_status_comt, ls_text TYPE crmt_text_com, lt_text TYPE crmt_text_comt, ls_schedlin_extdt TYPE crmt_schedlin_extd, lt_schedlin_extdt TYPE crmt_schedlin_extdt, ls_osset TYPE crmt_srv_osset_com1, lt_osset TYPE crmt_srv_osset_comt1, ls_refobject TYPE crmt_srv_refobj_com, lt_refobject TYPE crmt_srv_refobj_comt, ls_service_i TYPE crmt_service_i_com, lt_service_i TYPE crmt_service_i_comt, ls_pricing TYPE crmt_pricing_com, lt_pricing TYPE crmt_pricing_comt, ls_subject TYPE crmt_subject_com, lt_subject TYPE crmt_subject_comt. DATA: w_orderadm_h TYPE crmd_orderadm_h. DATA ls_zcrmt0013 TYPE zcrmt0013. DATA ls_zbp_sales TYPE zbp_sales. DATA: gt_ltxts TYPE STANDARD TABLE OF tline . DATA: lw_ltxt TYPE tline . DATA: l_len TYPE i, l_start TYPE i, l_char_tmp(130) TYPE c, l_handle TYPE crmt_handle, ls_order_i_n TYPE zservice_order_i_maintain, l_ref_guid(16) TYPE c, l_mode TYPE crmt_mode VALUE 'A', lv_guid TYPE crmt_object_guid, l_partner TYPE bu_partner, sp_partner TYPE bu_partner, l_xblck TYPE bu_xblck. DATA: ls_input_field TYPE crmt_input_field. DATA: lt_input_field TYPE crmt_input_field_tab. DATA: wt_input_field TYPE crmt_input_field_tab. DATA: lt_field_names TYPE crmt_input_field_names_tab. DATA: ls_field_names TYPE crmt_input_field_names. DATA: lt_exception TYPE crmt_exception_t, it_objects_to_save TYPE crmt_object_guid_tab, is_objects_to_save TYPE LINE OF crmt_object_guid_tab, lt_saved_objects TYPE crmt_return_objects, ls_saved_objects TYPE crmt_return_objects_struc, lt_objects_not_saved TYPE crmt_object_guid_tab, ls_objects_not_saved TYPE crmt_object_guid, lt_guid_init TYPE crmt_object_guid_tab, ls_guid_init TYPE crmt_object_guid. * DATA: ls_order_h TYPE LINE OF zcorder_header_info, ls_order_i TYPE LINE OF zcorder_item_infor. DATA: bapi_return TYPE bapiret2. DATA: lv_schedual_guid TYPE crmt_object_guid. DATA: zcount TYPE i VALUE 0. DATA lv_req_deiv_date TYPE crmt_req_dlv_date. DATA: lv_header_guid TYPE crmt_object_guid, lv_item_guid TYPE crmt_object_guid. DATA: gt_order_h TYPE zcorder_header_info, gt_order_i TYPE zcorder_item_infor. DATA: zscode TYPE zdtel000004. DATA: zerror_log TYPE string, zerror_type TYPE char01, zdo_not_save TYPE char01. DATA: zline TYPE i. DATA lv_char10 TYPE char10."10位变量 DATA lv_char6 TYPE char6."6位变量 CLEAR: ls_input_field, lt_input_field, ls_field_names, lt_field_names. DATA: lt_ulist TYPE TABLE OF usr02, ls_ulist TYPE usr02, lt_alist TYPE TABLE OF usr03, ls_alist TYPE usr03. DATA: lv_string TYPE string. DATA lv_land TYPE land1."当前账号所属国家 CALL FUNCTION 'Z_GET_SALESORG_BY_USER' EXPORTING iv_user = sy-uname IMPORTING ev_country = lv_land. **//check order_h data IF order_h IS INITIAL. error_type = 'E'. error_log = 'Header is null.'. return-type = error_type. return-message = error_log. APPEND return. EXIT. ENDIF. LOOP AT order_h INTO ls_order_h. IF ls_order_h-guid IS INITIAL. error_type = 'E'. error_log = 'Hearder GUID is null.'. return-type = error_type. return-message = error_log. APPEND return. EXIT. ENDIF. **//check order_h data *start: Add by Ivanliu 20151111 IF ls_order_h-process_type IS INITIAL. error_type = 'E'. error_log = 'Order type is null.'. return-type = error_type. return-message = error_log. APPEND return. EXIT. ENDIF. *end: Add by Ivanliu 20151111 ****ADD BY DQ-YUW START IF ls_order_h-process_type EQ 'ZWO3' AND ls_order_h-zzfld00000o IS INITIAL. error_type = 'E'. error_log = 'Complain type is null.'. return-type = error_type. return-message = error_log. APPEND return. EXIT. ENDIF. IF ls_order_h-process_type EQ 'ZWO3' AND ls_order_h-zzsource IS INITIAL. error_type = 'E'. error_log = 'Source is null.'. return-type = error_type. return-message = error_log. APPEND return. EXIT. ENDIF. IF ls_order_h-country EQ 'ZA' OR lv_land EQ 'ZA'. IF ls_order_h-serials_number IS NOT INITIAL AND strlen( ls_order_h-serials_number ) NE 23. error_type = 'E'. error_log = 'The length of the serial number is not 23 bit'. return-type = error_type. return-message = error_log. APPEND return. EXIT. ENDIF. IF ls_order_h-process_type EQ 'ZSR3' AND ls_order_h-re_partner_no IS INITIAL."南非退机申请retailer必填 error_type = 'E'. error_log = 'Retailer is required'. return-type = error_type. return-message = error_log. APPEND return. EXIT. ENDIF. IF ls_order_h-process_type EQ 'ZSV1' AND ls_order_h-zzzsymptomsgroup EQ 'MP1'. IF ls_order_h-zzimei IS INITIAL. error_type = 'E'. error_log = 'IMEI is null'. return-type = error_type. return-message = error_log. APPEND return. EXIT. ELSE. IF strlen( ls_order_h-zzimei ) NE 15. error_type = 'E'. error_log = 'The length of the IMEI is not 15 bit'. return-type = error_type. return-message = error_log. APPEND return. EXIT. ENDIF. ENDIF. ENDIF. ENDIF. ****END ADD * IF ls_order_h-zwarrantype = 'Prepaid' AND ls_order_h-process_type NE 'ZSV1'. * error_type = 'E'. * error_log = 'You can only create HIS Standard SRO order when the vaule of Warranty type is Prepaid'. * return-type = error_type. * return-message = error_log. * APPEND return. * EXIT. * ENDIF. IF ls_order_h-batch_m IS NOT INITIAL AND ( ls_order_h-serials_number IS NOT INITIAL OR ls_order_h-ib_instance IS NOT INITIAL OR ls_order_h-ib_ibase IS NOT INITIAL ). error_type = 'E'. error_log = 'The ibase, component, serials number, must be kept blank in batch order creation'. return-type = error_type. return-message = error_log. APPEND return. EXIT. ENDIF. IF ls_order_h-process_type = 'ZSV1' AND ( ls_order_h-ser_date IS INITIAL OR ls_order_h-sym_des IS INITIAL ) . error_type = 'E'. error_log = 'Please input Suggested Service Date and Order Description'. return-type = error_type. return-message = error_log. APPEND return. EXIT. ENDIF. ************************add by dq-yuw 建单平台控制：warranty type 必填，如果是单据类型=ZSV1. IF ls_order_h-process_type = 'ZSV1' AND ls_order_h-zzwarranty IS INITIAL. error_type = 'E'. error_log = 'Please input warranty type'. return-type = error_type. return-message = error_log. APPEND return. EXIT. ENDIF. *************************END ADD **begin of change DQ-SUSAN ON 2015.06.02 -采购日期不能晚于当前系统日期 IF ls_order_h-process_type = 'ZSR2' OR ls_order_h-process_type = 'ZSR3' OR ls_order_h-process_type = 'ZSV1'. IF NOT ls_order_h-purchase_date IS INITIAL AND ls_order_h-purchase_date > sy-datum. error_log = 'Purchase Date before the current system date '. error_type = 'E'. return-type = error_type. return-message = error_log. APPEND return. EXIT. ENDIF. ENDIF. *end of change IF ls_order_h-process_type = 'ZSR2' OR ls_order_h-process_type = 'ZSR3' . IF ls_order_h-ser_date IS INITIAL. error_type = 'E'. error_log = 'Please input Suggested Service Date.'. return-type = error_type. return-message = error_log. APPEND return. EXIT. ENDIF. IF ls_order_h-problem_des IS INITIAL. error_type = 'E'. error_log = 'Please input Note information.'. return-type = error_type. return-message = error_log. APPEND return. EXIT. ENDIF. IF ls_order_h-purchase_date IS INITIAL. error_type = 'E'. error_log = 'Please input Purchase Date.'. return-type = error_type. return-message = error_log. APPEND return. EXIT. ENDIF. DESCRIBE TABLE order_i LINES zline. IF zline IS INITIAL. error_type = 'E'. error_log = 'Please add item information.'. return-type = error_type. return-message = error_log. APPEND return. EXIT. ENDIF. ENDIF. IF ls_order_h-process_type = 'ZWO3' OR ls_order_h-process_type = 'ZWO4' . IF ls_order_h-sym_des IS INITIAL. error_type = 'E'. error_log = 'Please input Symptoms Description.'. return-type = error_type. return-message = error_log. APPEND return. EXIT. ENDIF. ELSE. IF ls_order_h-process_type = 'ZSR2' OR ls_order_h-process_type = 'ZSR3' OR ls_order_h-process_type = 'ZSV1' . IF ls_order_h-product_id IS INITIAL. error_type = 'E'. error_log = 'Please input Product in the header'. return-type = error_type. return-message = error_log. APPEND return. EXIT. ENDIF. ENDIF. ENDIF. IF ls_order_h-bp_number IS INITIAL. error_type = 'E'. error_log = 'Hearder Sold-TO Party is null.'. return-type = error_type. return-message = error_log. APPEND return. EXIT. ENDIF. IF ls_order_h-ser_pro IS NOT INITIAL. sp_partner = ls_order_h-ser_pro. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = sp_partner IMPORTING output = sp_partner. SELECT SINGLE xblck INTO l_xblck FROM but000 WHERE partner = sp_partner. IF l_xblck = 'X'. error_type = 'E'. error_log = 'Service Provider is blocked.'. return-type = error_type. return-message = error_log. APPEND return. EXIT. ENDIF. ENDIF. ********add by dq-yuw 20160628 start DATA lv_sales_org TYPE crmt_sales_org. DATA lv_country TYPE land1. IF ls_order_h-process_type = 'ZSV1' AND ls_order_h-zzfld00000n IS INITIAL. CALL FUNCTION 'Z_GET_SALESORG_BY_USER' EXPORTING iv_user = sy-uname IMPORTING ev_sales_org = lv_sales_org. SELECT SINGLE adrc~country INTO lv_country FROM zhscrm0002 INNER JOIN but021_fs ON zhscrm0002~org_bp = but021_fs~partner INNER JOIN adrc ON but021_fs~addrnumber = adrc~addrnumber WHERE but021_fs~adr_kind = 'XXDEFAULT' AND zhscrm0002~org_id = lv_sales_org+2(8). IF lv_country EQ 'US'. error_type = 'E'. error_log = 'Service Type is null'. return-type = error_type. return-message = error_log. APPEND return. EXIT. ENDIF. ENDIF. *************end add IF ls_order_h-batch_m IS NOT INITIAL AND ls_order_h-batch_qun IS NOT INITIAL AND ls_order_h-process_type = 'ZSV1'. zcount = ls_order_h-batch_qun. ENDIF. IF zcount > 1. PERFORM get_next_id CHANGING zscode. ls_order_h-scode = zscode. ENDIF. * IF ls_order_h-zwarrantype = 'Prepaid' AND ls_order_h-process_type = 'ZSV1' . * IF ls_order_h-ser_pro IS INITIAL. * SELECT SINGLE partner INTO ls_order_h-ser_pro * FROM zprepaidprovider * WHERE sales_org = ls_order_h-sales_org. * ENDIF. * ENDIF. **********************************************************************20170217-Begin *开发顾问：陈国光 *业务顾问：张弛 *日本分公司-O 50000231 *HOS_CRM_JP_10_备件销售订单增强_V1.0_20170117 *B、对于日本，通过集中建单平台，创建的ZSO1（HSI Individual Sales）和ZSO5（HSI FREE Sales）， *状态默认为Z020（APPROVED）。 *C、对于日本分公司，如果客户的BP分组为Z001（End User）， *则创建ZSO1（HSI Individual Sales）和ZSO5（HSI FREE Sales）时， *将客户BP保存到合作伙伴类型ZHSI00EU（HIS END User）中， *将售达方、送达方、付款方、收货方设置成一次性客户， *同时将客户的地址信息，赋值到备件销售订单的售达方、送达方、付款方、收货方。赋值时， *将街道STREET和街道2 STR_SUPPL1的值，中间加空格拼接起来， *保存到备件销售订单合作伙伴售达方、送达方、付款方、收货方地址中的街道2中。 *一次性客户的取值逻辑为： *根据ZCRMT_MAINT_I-TAB_NAME = ZSORG_OTCUST_DET & ZCRMT_MAINT_I-VALUE1 = *销售组织，一次性客户编码取ZCRMT_MAINT_I-VALUE2的值。 *共用数据 CLEAR:ls_crmc_proc_type. SELECT SINGLE * INTO CORRESPONDING FIELDS OF ls_crmc_proc_type FROM crmc_proc_type WHERE process_type = ls_order_h-process_type. ls_order_h-user_stat_proc = ls_crmc_proc_type-user_stat_proc. * IF sy-uname = zcl_crm_attributes=>gc_chenguoguang. IF ls_order_h-sales_org = 'O 50000231'. CLEAR:ls_zsals_sorg_otcust_det. ls_zsals_sorg_otcust_det-bp_number = ls_order_h-bp_number. ls_zsals_sorg_otcust_det-sales_org = ls_order_h-sales_org. ls_zsals_sorg_otcust_det-process_type = ls_order_h-process_type. * CALL FUNCTION 'ZSAL_JA_GET_ZSORG_OTCUST_DET' * CHANGING * cs_zsals_sorg_otcust_det = ls_zsals_sorg_otcust_det. *OTCUST_DET 1 Types BU_PARTNER CHAR 10 0 Business Partner Number ls_order_h-otcust_det = ls_zsals_sorg_otcust_det-otcust_det. *OTCUST_DET_STREET 1 Types CHAR255 CHAR 255 0 Char255 ls_order_h-otcust_det_street = ls_zsals_sorg_otcust_det-otcust_det_street. ENDIF. * ENDIF. **********************************************************************20170217-End APPEND ls_order_h TO gt_order_h. CLEAR:ls_order_h. ENDLOOP. CHECK error_type IS INITIAL. **//check order_i data LOOP AT order_i INTO ls_order_i. IF ls_order_i-guid IS INITIAL. error_type = 'E'. error_log = 'Item GUID is null.'. return-type = error_type. return-message = error_log. APPEND return. EXIT. ENDIF. READ TABLE order_h INTO ls_order_h WITH KEY guid = ls_order_i-corder_guid. IF ls_order_h-process_type = 'ZSR2' OR ls_order_h-process_type = 'ZSR3'. IF ls_order_i-product_id IS INITIAL. error_type = 'E'. error_log = 'Item Product is null.'. return-type = error_type. return-message = error_log. APPEND return. EXIT. ENDIF. ELSE. IF ls_order_i-product_id IS INITIAL. CONTINUE. ENDIF. ENDIF. APPEND ls_order_i TO gt_order_i. ENDLOOP. CHECK error_type IS INITIAL. IF zcount > 1. zcount = zcount - 1. DO zcount TIMES. READ TABLE order_h INTO ls_order_h INDEX 1. CALL FUNCTION 'CRM_GUID_CREATE' IMPORTING ev_guid = lv_header_guid. ls_order_h-guid = lv_header_guid. ls_order_h-scode = zscode. APPEND ls_order_h TO gt_order_h. LOOP AT order_i INTO ls_order_i. IF ls_order_h-process_type NE 'ZSR2' AND ls_order_h-process_type NE 'ZSR3' AND ls_order_i-product_id IS INITIAL. CONTINUE. ENDIF. CALL FUNCTION 'CRM_GUID_CREATE' IMPORTING ev_guid = lv_item_guid. ls_order_i-corder_guid = lv_header_guid. ls_order_i-guid = lv_item_guid. APPEND ls_order_i TO gt_order_i. ENDLOOP. CLEAR: lv_header_guid, lv_item_guid. ENDDO. ENDIF. *S*********************ORDERADM_H******************************** * ls_ORDERADM_H-HANDLE = '0000000001'. DATA: BEGIN OF ls_category, category TYPE zdtel000008, group TYPE zgroup, brand TYPE zbrand, zzzmodeno TYPE zmodeno, END OF ls_category. DATA: lv_productguid TYPE comt_product_guid. DATA: ls_hierarchy TYPE comm_hierarchy. DATA: ls_prprdcatr TYPE comm_prprdcatr. DATA: lt_pr_frg_rel TYPE TABLE OF comm_pr_frg_rel. DATA: ls_addsettype TYPE zaddsettype. DATA: lt_addsettype TYPE TABLE OF zaddsettype. READ TABLE gt_order_h INTO ls_order_h INDEX 1. IF ls_order_h-process_type = 'ZSV1' AND ls_order_h-ser_pro IS NOT INITIAL. SELECT SINGLE product_guid INTO lv_productguid FROM comm_product WHERE product_id = ls_order_h-product_id. SELECT SINGLE * FROM comm_hierarchy INTO ls_hierarchy WHERE hierarchy_id = 'R3PRODHIER'. IF sy-subrc = 0. CLEAR ls_prprdcatr. SELECT SINGLE * INTO CORRESPONDING FIELDS OF ls_prprdcatr FROM comm_prprdcatr WHERE product_guid = lv_productguid AND hierarchy_guid = ls_hierarchy-hierarchy_guid. ls_category-group = ls_prprdcatr-category_id+0(1). ls_category-brand = ls_prprdcatr-category_id+1(2). ls_category-category = ls_prprdcatr-category_id+3(3). ENDIF. SELECT * FROM comm_pr_frg_rel INTO CORRESPONDING FIELDS OF TABLE lt_pr_frg_rel WHERE product_guid = lv_productguid. IF sy-subrc = 0. CLEAR ls_addsettype. SELECT * FROM zaddsettype INTO CORRESPONDING FIELDS OF TABLE lt_addsettype FOR ALL ENTRIES IN lt_pr_frg_rel WHERE frg_guid = lt_pr_frg_rel-fragment_guid. READ TABLE lt_addsettype INTO ls_addsettype INDEX 1. CONCATENATE ls_addsettype-zz0015 ls_addsettype-zz0016 INTO ls_category-zzzmodeno SEPARATED BY '.'. * ls_category-zzzmodeno = ls_addsettype-zz0015. ENDIF. ENDIF. LOOP AT gt_order_h INTO ls_order_h. ls_orderadm_h-guid = ls_order_h-guid. ls_orderadm_h-process_type = ls_order_h-process_type. ls_orderadm_h-description = ls_order_h-sym_des. ls_orderadm_h-zzzserialno = ls_order_h-serials_number. ls_orderadm_h-zzzpurpr = ls_order_h-purchase_price. ls_orderadm_h-zzfld000006 = ls_order_h-scode. ls_orderadm_h-zzrefurbish = ls_order_h-zrefurbish. ls_orderadm_h-zzzsymptomsgroup = ls_order_h-zzzsymptomsgroup. ls_orderadm_h-zzzsymptomscode = ls_order_h-zzzsymptomscode. ls_orderadm_h-zzzdefectgroup = ls_order_h-zzzsymptomsgroup. ls_orderadm_h-zzzrepairgroup = ls_order_h-zzzsymptomsgroup. ls_orderadm_h-zzsectiongroup = ls_order_h-zzzsymptomsgroup. ls_orderadm_h-zzimei = ls_order_h-zzimei. ls_orderadm_h-zzwarranty = ls_order_h-zzwarranty. ls_orderadm_h-zzfld00000f = ls_order_h-zzmail_flag. ls_orderadm_h-zzdlyrsn = ls_order_h-zzdlyrsn. *******add by liyuan 20170210 start---- IF ls_order_h-process_type = 'ZWO3' OR ls_order_h-process_type = 'ZWO4'. ls_orderadm_h-zzafld000012 = ls_order_h-zescalation."咨询/投诉升级 ls_orderadm_h-zzafld000015 = ls_order_h-zsub_cmpcat."咨询/投诉升级 ENDIF. *******add by liyuan 20170210 end---- *******add by dq-yuw 20160623 start---- ls_orderadm_h-zzfld00000n = ls_order_h-zzfld00000n."In-depot Service ls_orderadm_h-zzfld00000o = ls_order_h-zzfld00000o."Complaint type ls_orderadm_h-zzsource = ls_order_h-zzsource."SOURCE ls_orderadm_h-zzafld000008 = ls_order_h-zzafld000008."Collection location ls_orderadm_h-zzwarr_confirm = ls_order_h-zzwarr_confirm. ls_orderadm_h-zzser_time = ls_order_h-zzser_time. ls_orderadm_h-zzser_network = ls_order_h-zzser_network. ls_orderadm_h-zzclient_type = ls_order_h-zzclient_type. ls_orderadm_h-zzquota_rtl = ls_order_h-zzquota_rtl. ls_orderadm_h-zzquota_usr = ls_order_h-zzquota_usr. ls_orderadm_h-zzretailer_name = ls_order_h-zzretailer_name. ******end add ls_orderadm_h-mode = l_mode. IF ls_order_h-process_type = 'ZSV1' AND ls_order_h-ser_pro IS NOT INITIAL. ls_orderadm_h-zzzgroup = ls_category-group. ls_orderadm_h-zzzbrand = ls_category-brand. ls_orderadm_h-zzzmodeno = ls_category-zzzmodeno. ls_orderadm_h-zzfld000007 = ls_category-category. ENDIF. IF ls_order_h-zwarrantype = '3 Year Repair' OR ls_order_h-zwarrantype = '5 Year Repair'. ls_orderadm_h-zzprepaid = 'X'. ENDIF. * IF ls_order_h-zzcrtsrvid IS NOT INITIAL. * ls_orderadm_h-zzcrtsrvid = ls_order_h-zzcrtsrvid. * ENDIF. ls_field_names-fieldname = 'MODE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'PROCESS_TYPE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'DESCRIPTION'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZZSERIALNO'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZZPURPR'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZFLD000006'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZAFLD000008'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZREFURBISH'. INSERT ls_field_names INTO TABLE lt_field_names. " add start by llh ----- mail for login ls_field_names-fieldname = 'ZZFLD00000F'. INSERT ls_field_names INTO TABLE lt_field_names. " add end ----- mail for login *******add by dq-yuw 20160623 start---- ls_field_names-fieldname = 'ZZFLD00000N'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZFLD00000O'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZSOURCE'. INSERT ls_field_names INTO TABLE lt_field_names. *******end add IF ls_order_h-process_type = 'ZSV1' AND ls_order_h-ser_pro IS NOT INITIAL. ls_field_names-fieldname = 'ZZZGROUP'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZZBRAND'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZZMODENO'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZFLD000007'. INSERT ls_field_names INTO TABLE lt_field_names. ENDIF. * IF ls_order_h-process_type = 'ZSV1' AND ls_order_h-zwarrantype = 'Prepaid'. * IF ls_order_h-zzcrtsrvid IS NOT INITIAL. * ls_field_names-fieldname = 'ZZCRTSRVID'. * INSERT ls_field_names INTO TABLE lt_field_names. * ENDIF. ls_field_names-fieldname = 'ZZPREPAID'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZZSYMPTOMSGROUP'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZZSYMPTOMSCODE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZZDEFECTGROUP'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZZREPAIRGROUP'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZSECTIONGROUP'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZIMEI'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZWARRANTY'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZDLYRSN'. INSERT ls_field_names INTO TABLE lt_field_names. IF ls_order_h-process_type = 'ZWO3' OR ls_order_h-process_type = 'ZWO4'.. ls_field_names-fieldname = 'ZZAFLD000012'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZAFLD000015'. INSERT ls_field_names INTO TABLE lt_field_names. ENDIF. ls_field_names-fieldname = 'ZZWARR_CONFIRM'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZSER_TIME'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZSER_NETWORK'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZCLIENT_TYPE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZQUOTA_RTL'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZQUOTA_USR'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZRETAILER_NAME'. INSERT ls_field_names INTO TABLE lt_field_names. * ENDIF. ls_input_field-field_names = lt_field_names. ls_input_field-ref_guid = ls_order_h-guid. ls_input_field-ref_kind = 'A'. ls_input_field-objectname = 'ORDERADM_H'. * IF ls_order_h-zwarrantype = 'Prepaid' AND ls_order_h-process_type = 'ZSV1'. * ls_orderadm_h-process_type = 'ZPRE'. * ENDIF. INSERT ls_orderadm_h INTO TABLE lt_orderadm_h. INSERT ls_input_field INTO TABLE lt_input_field. CLEAR ls_orderadm_h. ENDLOOP. *E*********************ORDERADM_H******************************** CALL FUNCTION 'CRM_ORDER_MAINTAIN' IMPORTING et_exception = re_et_exception CHANGING ct_orderadm_h = lt_orderadm_h ct_input_fields = lt_input_field EXCEPTIONS error_occurred = 1 document_locked = 2 no_change_allowed = 3 no_authority = 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 * INTO error_log. error_type = 'E'. return-type = sy-msgty. return-id = sy-msgid. return-log_msg_no = sy-msgno. return-message = sy-msgv1. return-message_v2 = sy-msgv2. return-message_v3 = sy-msgv3. return-message_v4 = sy-msgv4. APPEND return. ENDIF. CHECK error_type IS INITIAL. CLEAR: ls_input_field, lt_input_field, ls_field_names, lt_field_names. *S*********************ACTIVITY_H******************************** "集中建单平台投诉单和投诉单创建时，增强如下： "将界面中的投诉等级ZPRIORITY的值，保存到结构BTADMINH的PRIORITY字段中； * ls_activity_h-category = '202'."DELETE BY LY 20170210 * ls_activity_h-priority = '3'. * INSERT ls_activity_h INTO TABLE lt_activity_h. LOOP AT gt_order_h INTO ls_order_h. ls_activity_h-category = '202'. ls_activity_h-ref_guid = ls_order_h-guid. IF ls_order_h-process_type = 'ZWO3' OR ls_order_h-process_type = 'ZWO4'. ls_activity_h-priority = ls_order_h-zpriority. ELSE. ls_activity_h-priority = '5'. ENDIF. INSERT ls_activity_h INTO TABLE lt_activity_h. CLEAR: lt_field_names,ls_field_names. ls_field_names-fieldname = 'CATEGORY'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR: lt_field_names,ls_field_names. ls_field_names-fieldname = 'PRIORITY'. INSERT ls_field_names INTO TABLE lt_field_names. ls_input_field-field_names = lt_field_names. ls_input_field-ref_guid = ls_order_h-guid. ls_input_field-ref_kind = 'A'. ls_input_field-objectname = 'ACTIVITY_H'. INSERT ls_input_field INTO TABLE lt_input_field. ENDLOOP. *E*********************ACTIVITY_H******************************** *S*********************SERVICE_H******************************** LOOP AT lt_orderadm_h INTO ls_orderadm_h. READ TABLE gt_order_h INTO ls_order_h WITH KEY guid = ls_orderadm_h-guid. IF sy-subrc EQ 0. ls_service_h-ref_guid = ls_orderadm_h-guid. ls_service_h-zzcon_person = ls_order_h-contact_person. ls_service_h-zzcon_mob = ls_order_h-contact_mobile. ls_service_h-zzcon_phone = ls_order_h-contact_phone. ls_service_h-zzcon_email = ls_order_h-contact_e_mail. ls_service_h-zzcon_fax = ls_order_h-contact_fax. CLEAR: lt_field_names,ls_field_names. ls_field_names-fieldname = 'ZZCON_PERSON'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZCON_MOB'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZCON_PHONE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZCON_EMAIL'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZCON_FAX'. INSERT ls_field_names INTO TABLE lt_field_names. ls_input_field-field_names = lt_field_names. ls_input_field-ref_guid = ls_order_h-guid. ls_input_field-ref_kind = 'A'. ls_input_field-objectname = 'SERVICE_H'. INSERT ls_input_field INTO TABLE lt_input_field. INSERT ls_service_h INTO TABLE lt_service_h. CLEAR:ls_service_h, ls_orderadm_h. ENDIF. ENDLOOP. *E*********************SERVICE_H******************************** *S*********************SALES******************************** * LOOP AT lt_orderadm_h INTO ls_orderadm_h. LOOP AT gt_order_h INTO ls_order_h. ls_sales-ref_guid = ls_order_h-guid. * ls_SALES-REF_HANDLE = l_HANDLE. ls_sales-ref_kind = 'A'. * ls_SALES-YOUR_REF_SOLD = ORDER_H-INVOICE_NUMBER. ls_sales-your_ref_sold = ls_order_h-or_invoice. "add by dq-yuw 20161011 ls_sales-po_number_sold = ls_order_h-refrence_no. "end add *-------------->add by dq-yuw HOS_CRM_JP_11 将集中建单平台抬头的建议服务日期SER_DATE，保存到退机订单的请求交货日期REQ_DLV_DATE字段中。 IF ls_order_h-country EQ 'JP'. CALL FUNCTION 'CONVERT_INTO_TIMESTAMP' EXPORTING i_datlo = ls_order_h-ser_date i_timlo = '000000' i_tzone = sy-zonlo IMPORTING e_timestamp = lv_req_deiv_date. ls_sales-req_dlv_date = lv_req_deiv_date. ls_sales-req_timezone = sy-zonlo. ENDIF. *<------------END ADD INSERT ls_sales INTO TABLE lt_sales. ls_field_names-fieldname = 'YOUR_REF_SOLD'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'PO_NUMBER_SOLD'. INSERT ls_field_names INTO TABLE lt_field_names. *-------------->add by dq-yuw HOS_CRM_JP_11 将集中建单平台抬头的建议服务日期SER_DATE，保存到退机订单的请求交货日期REQ_DLV_DATE字段中 ls_field_names-fieldname = 'REQ_DLV_DATE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'REQ_TIMEZONE'. INSERT ls_field_names INTO TABLE lt_field_names. *<------------END ADD ls_input_field-field_names = lt_field_names. ls_input_field-ref_guid = ls_order_h-guid. ls_input_field-ref_kind = 'A'. ls_input_field-objectname = 'SALES'. l_ref_guid = ls_input_field-ref_guid. CONCATENATE 'CRM_ORDERH' l_ref_guid INTO ls_input_field-logical_key. INSERT ls_input_field INTO TABLE lt_input_field. * CLEAR ls_orderadm_h. CLEAR ls_order_h. ENDLOOP. *E*********************SALES******************************** *S*********************TEXT************************************* CLEAR: ls_input_field, ls_field_names, lt_field_names. * if l_MODE = 'A' and ( ORDER_H-PROBLEM_DES is not initial or ORDER_H-PROBLEM_DES <> '' ). LOOP AT gt_order_h INTO ls_order_h. ls_text-ref_guid = ls_order_h-guid. ls_text-ref_kind = 'A'. IF ls_order_h-process_type = 'ZSO1'. ls_text-tdid = 'ZH24'. ELSE. ls_text-tdid = 'A002'. ENDIF. ls_text-tdspras = 'E'. ls_text-tdstyle = 'SYSTEM'. ls_text-tdform = 'SYSTEM'. ls_text-tdtexttype = ''. ls_text-mode = 'A'. l_len = strlen( ls_order_h-problem_des ). l_start = 0. IF l_len > 0 ."AND sy-langu <> 'J'."排除日本问题描述 add by ly 20170210 CLEAR lt_ulist. CLEAR lt_alist. CLEAR ls_alist. CLEAR lv_string. CALL FUNCTION 'BBP_USER_GETLIST' EXPORTING search_string = sy-uname TABLES userlist = lt_ulist addlist = lt_alist. READ TABLE lt_alist INDEX 1 INTO ls_alist. CONCATENATE sy-datum+6(2) '/' sy-datum+4(2) '/' sy-datum+0(4) INTO lv_string. CONCATENATE lv_string sy-uzeit+0(2) ':' sy-uzeit+2(2) INTO lv_string SEPARATED BY space. * CONCATENATE lv_string ls_alist-name1 ls_alist-name2 ':' ls_order_h-problem_des INTO ls_order_h-problem_des SEPARATED BY space. IF sy-langu = 'J' AND ( ls_order_h-process_type = 'ZWO3' OR ls_order_h-process_type = 'ZWO4' ).. * DATA:lv_desc TYPE string. * CLEAR:lv_desc. CONCATENATE lv_string ls_alist-name1 ls_alist-name2 ':' '問合せ内容：' ls_order_h-problem_des ' お客さんへの回答：' ls_order_h-zanswer_des INTO ls_order_h-problem_des SEPARATED BY space. ELSE. CONCATENATE lv_string ls_alist-name1 ls_alist-name2 ':' ls_order_h-problem_des INTO ls_order_h-problem_des SEPARATED BY space. ENDIF. CLEAR l_len."MOVE FROM IF BELOW TO UP HERE l_len = strlen( ls_order_h-problem_des ). WHILE l_len > 0. IF l_len > 130. l_char_tmp = ls_order_h-problem_des+l_start(130). ELSE. l_char_tmp = ls_order_h-problem_des+l_start(l_len). ENDIF. lw_ltxt-tdformat = '*'. lw_ltxt-tdline = l_char_tmp. APPEND lw_ltxt TO gt_ltxts. l_start = l_start + 130. l_len = l_len - 130. ENDWHILE. ENDIF. "如果登录人的国家是日本，将文本框问题说明PROBLEM_DES和回复内容ZANSWER_DES内容拼接起来， "拼接格式为“問合せ内容：”+问题说明PROBLEM_DES+空行+“お客さんへの回答：”+回复内容ZANSWER_DES，保存到问题说明的中 * IF l_len > 0 AND sy-langu = 'J'." * DATA:lv_desc TYPE string. * CLEAR:lv_desc. * * CONCATENATE '問合せ内容：' ls_order_h-problem_des space 'お客さんへの回答：' ls_order_h-zanswer_des INTO lv_desc. * CLEAR l_len."MOVE FROM IF BELOW TO UP HERE * l_len = strlen( lv_desc ). * WHILE l_len > 0. * IF l_len > 130. * l_char_tmp = lv_desc+l_start(130). * ELSE. * l_char_tmp = lv_desc+l_start(l_len). * ENDIF. * lw_ltxt-tdformat = '*'. * lw_ltxt-tdline = l_char_tmp. * APPEND lw_ltxt TO gt_ltxts. * l_start = l_start + 130. * l_len = l_len - 130. * ENDWHILE. * ENDIF. * CLEAR L_LEN. * L_LEN = STRLEN( LS_ORDER_H-PROBLEM_DES ). * WHILE L_LEN > 0. * IF L_LEN > 130. * L_CHAR_TMP = LS_ORDER_H-PROBLEM_DES+L_START(130). * ELSE. * L_CHAR_TMP = LS_ORDER_H-PROBLEM_DES+L_START(L_LEN). * ENDIF. * LW_LTXT-TDFORMAT = '*'. * LW_LTXT-TDLINE = L_CHAR_TMP. * APPEND LW_LTXT TO GT_LTXTS. * L_START = L_START + 130. * L_LEN = L_LEN - 130. * ENDWHILE. ls_text-lines = gt_ltxts. INSERT ls_text INTO TABLE lt_text. ls_field_names-fieldname = 'LINES'. INSERT ls_field_names INTO TABLE lt_field_names. ls_input_field-field_names = lt_field_names. ls_input_field-ref_guid = ls_order_h-guid. ls_input_field-ref_kind = 'A'. ls_input_field-objectname = 'TEXTS'. l_ref_guid = ls_input_field-ref_guid. CONCATENATE 'CRM_ORDERH' l_ref_guid INTO ls_input_field-logical_key. INSERT ls_input_field INTO TABLE lt_input_field. CLEAR ls_order_h. ENDLOOP. * endif. *E*********************TEXT************************************************* *S*********************Service provider************************************* CLEAR: ls_input_field, ls_field_names, lt_field_names. LOOP AT gt_order_h INTO ls_order_h. IF ls_order_h-ser_pro IS NOT INITIAL. l_partner = ls_order_h-ser_pro. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = l_partner IMPORTING output = l_partner. ls_partner-ref_guid = ls_order_h-guid. ls_partner-ref_kind = 'A'. ls_partner-ref_partner_handle = '0001'. ls_partner-kind_of_entry = 'C'. ls_partner-partner_fct = 'ZHSI00SP'. ls_partner-partner_no = l_partner. ls_partner-display_type = 'BP'. ls_partner-no_type = 'BP'. ls_partner-mainpartner = 'X'. INSERT ls_partner INTO TABLE lt_partner. ls_field_names-fieldname = 'DISPLAY_TYPE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'KIND_OF_ENTRY'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'NO_TYPE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'PARTNER_FCT'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'PARTNER_NO'. INSERT ls_field_names INTO TABLE lt_field_names. ls_input_field-field_names = lt_field_names. ls_input_field-ref_guid = ls_order_h-guid. ls_input_field-ref_kind = 'A'. ls_input_field-objectname = 'PARTNER'. ls_input_field-logical_key = '0001'. INSERT ls_input_field INTO TABLE lt_input_field. CLEAR ls_order_h. ENDIF. ENDLOOP. **********************Service provider************************************* **************consignor******************* CLEAR: ls_input_field, ls_field_names, lt_field_names. LOOP AT gt_order_h INTO ls_order_h. IF ls_order_h-zzcons_ser_net IS NOT INITIAL. l_partner = ls_order_h-zzcons_ser_net. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = l_partner IMPORTING output = l_partner. ls_partner-ref_guid = ls_order_h-guid. ls_partner-ref_kind = 'A'. ls_partner-ref_partner_handle = '0008'. ls_partner-kind_of_entry = 'C'. ls_partner-partner_fct = 'ZHSI0CON'. ls_partner-partner_no = l_partner. ls_partner-display_type = 'BP'. ls_partner-no_type = 'BP'. ls_partner-mainpartner = 'X'. INSERT ls_partner INTO TABLE lt_partner. ls_field_names-fieldname = 'DISPLAY_TYPE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'KIND_OF_ENTRY'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'NO_TYPE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'PARTNER_FCT'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'PARTNER_NO'. INSERT ls_field_names INTO TABLE lt_field_names. ls_input_field-field_names = lt_field_names. ls_input_field-ref_guid = ls_order_h-guid. ls_input_field-ref_kind = 'A'. ls_input_field-objectname = 'PARTNER'. ls_input_field-logical_key = '0008'. INSERT ls_input_field INTO TABLE lt_input_field. CLEAR ls_order_h. ENDIF. ENDLOOP. *************consignor**************************** *S*********************END_USER_ID************************************* CLEAR: ls_input_field, ls_field_names, lt_field_names. LOOP AT gt_order_h INTO ls_order_h. l_partner = ls_order_h-bp_number. **********************************************************************20170217-Begin *开发顾问：陈国光 *业务顾问：张弛 *日本分公司-O 50000231 *HOS_CRM_JP_10_备件销售订单增强_V1.0_20170117 *日本一次性客户替代需求 IF ls_order_h-otcust_det IS NOT INITIAL. l_partner = ls_order_h-otcust_det. ENDIF. **********************************************************************20170217-End *******add by dq-yuw 20161029 start IF ls_order_h-country = 'ZA' OR lv_land EQ 'ZA'. IF ls_order_h-process_type = 'ZSR3'."退机申请sold to party为retailer CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' "新加逻辑：如果retailer为9位，则sold to、bill to、payer都截取前6位作为partner，因为9位的都是门店，只和总部结算 EXPORTING input = ls_order_h-re_partner_no IMPORTING output = lv_char10. IF strlen( lv_char10 ) >= 9. lv_char6 = lv_char10+0(6). CLEAR lv_char10. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = lv_char6 IMPORTING output = lv_char10. l_partner = lv_char10. ELSE. l_partner = ls_order_h-re_partner_no. ENDIF. ENDIF. ENDIF. *******end add ***add by dq-yuw 20160628 start * SELECT SINGLE * INTO ls_zcrmt0013 * FROM zcrmt0013 * WHERE tab_name = 'ZOT_CUSTOMER' * and VALUE1 = ls_order_h-process_type. * * IF ls_order_h-country = 'US' AND ( ls_order_h-process_type = 'ZSO1' OR ls_order_h-process_type = 'ZSO5' ). * l_partner = ls_zcrmt0013-value3.. * ENDIF. ***end add CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = l_partner IMPORTING output = l_partner. ls_partner-ref_guid = ls_order_h-guid. ls_partner-ref_kind = 'A'. ls_partner-ref_partner_handle = '0007'. ls_partner-kind_of_entry = 'C'. IF ls_order_h-process_type = 'ZWO3' OR ls_order_h-process_type = 'ZWO4'. ls_partner-partner_fct = '00000009'. ELSE. IF ls_order_h-country = 'AU' AND ls_order_h-process_type = 'ZSO1'. ls_partner-partner_fct = '00000002'. ELSE. ls_partner-partner_fct = '00000001'. ENDIF. ENDIF. ls_partner-partner_no = l_partner. ls_partner-display_type = 'BP'. ls_partner-no_type = 'BP'. ls_partner-mainpartner = 'X'. IF ls_order_h-otcust_det_street IS NOT INITIAL. ls_partner-str_suppl1 = ls_order_h-otcust_det_street. ls_field_names-fieldname = 'STR_SUPPL1'. INSERT ls_field_names INTO TABLE lt_field_names. ENDIF. ***add by dq-yuw 20160628 start * IF ls_order_h-country = 'US' AND ( ls_order_h-process_type = 'ZSO1' OR ls_order_h-process_type = 'ZSO5' ). * ls_partner-ref_partner_handle = '0001'. * ENDIF. ****end add INSERT ls_partner INTO TABLE lt_partner. ls_field_names-fieldname = 'DISPLAY_TYPE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'KIND_OF_ENTRY'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'NO_TYPE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'PARTNER_FCT'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'PARTNER_NO'. INSERT ls_field_names INTO TABLE lt_field_names. ls_input_field-field_names = lt_field_names. ls_input_field-ref_guid = ls_order_h-guid. ls_input_field-ref_kind = 'A'. ls_input_field-objectname = 'PARTNER'. ls_input_field-logical_key = '0007'. ***add by dq-yuw 20160628 start * IF ls_order_h-country = 'US' AND ( ls_order_h-process_type = 'ZSO1' OR ls_order_h-process_type = 'ZSO5' ). * ls_input_field-logical_key = '0001'. * ENDIF. ****end add INSERT ls_input_field INTO TABLE lt_input_field. **********************************************************************20170217-Begin *开发顾问：陈国光 *业务顾问：张弛 *日本分公司-O 50000231 *HOS_CRM_JP_10_备件销售订单增强_V1.0_20170117 *日本一次性客户替代需求 00000001 00000002 00000003 00000004 IF ls_order_h-otcust_det IS NOT INITIAL. ls_partner-partner_fct = '00000002'. ls_partner-ref_partner_handle = ls_input_field-logical_key = '0002'. INSERT ls_partner INTO TABLE lt_partner. INSERT ls_input_field INTO TABLE lt_input_field. ls_partner-partner_fct = '00000003'. ls_partner-ref_partner_handle = ls_input_field-logical_key = '0003'. INSERT ls_partner INTO TABLE lt_partner. INSERT ls_input_field INTO TABLE lt_input_field. ls_partner-partner_fct = '00000004'. ls_partner-ref_partner_handle = ls_input_field-logical_key = '0004'. INSERT ls_partner INTO TABLE lt_partner. INSERT ls_input_field INTO TABLE lt_input_field. ENDIF. **********************************************************************20170217-End CLEAR ls_order_h. ENDLOOP. *E*********************END_USER_ID************************************* ********************* *RETAILER ******************************************** CLEAR: ls_input_field, ls_field_names, lt_field_names. LOOP AT gt_order_h INTO ls_order_h. IF ls_order_h-re_partner_no IS NOT INITIAL. l_partner = ls_order_h-re_partner_no. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = l_partner IMPORTING output = l_partner. ls_partner-ref_guid = ls_order_h-guid. ls_partner-ref_kind = 'A'. ls_partner-ref_partner_handle = '0000'. ls_partner-kind_of_entry = 'C'. ls_partner-partner_fct = 'ZHSI00RT'. ls_partner-partner_no = l_partner. ls_partner-display_type = 'BP'. ls_partner-no_type = 'BP'. * ls_partner-mainpartner = 'X'. INSERT ls_partner INTO TABLE lt_partner. ls_field_names-fieldname = 'DISPLAY_TYPE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'KIND_OF_ENTRY'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'NO_TYPE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'PARTNER_FCT'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'PARTNER_NO'. INSERT ls_field_names INTO TABLE lt_field_names. ls_input_field-field_names = lt_field_names. ls_input_field-ref_guid = ls_order_h-guid. ls_input_field-ref_kind = 'A'. ls_input_field-objectname = 'PARTNER'. ls_input_field-logical_key = '0000'. INSERT ls_input_field INTO TABLE lt_input_field. CLEAR ls_order_h. ENDIF. ENDLOOP. ********************* *RETAILER ******************************************** ********************* *AU ZSO1 Sold to ******************************************** IF ls_order_h-country = 'AU' AND ls_order_h-process_type = 'ZSO1'. CLEAR: ls_input_field, ls_field_names, lt_field_names. LOOP AT gt_order_h INTO ls_order_h. SELECT SINGLE cash_bp INTO l_partner FROM zinprogressrdoly. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = l_partner IMPORTING output = l_partner. ls_partner-ref_guid = ls_order_h-guid. ls_partner-ref_kind = 'A'. ls_partner-ref_partner_handle = '0007'. ls_partner-kind_of_entry = 'C'. ls_partner-partner_fct = '00000001'. ls_partner-partner_no = l_partner. ls_partner-display_type = 'BP'. ls_partner-no_type = 'BP'. ls_partner-mainpartner = 'X'. INSERT ls_partner INTO TABLE lt_partner. ls_field_names-fieldname = 'DISPLAY_TYPE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'KIND_OF_ENTRY'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'NO_TYPE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'PARTNER_FCT'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'PARTNER_NO'. INSERT ls_field_names INTO TABLE lt_field_names. ls_input_field-field_names = lt_field_names. ls_input_field-ref_guid = ls_order_h-guid. ls_input_field-ref_kind = 'A'. ls_input_field-objectname = 'PARTNER'. ls_input_field-logical_key = '0007'. INSERT ls_input_field INTO TABLE lt_input_field. CLEAR ls_order_h. * ENDIF. ENDLOOP. ENDIF. ********************* *AU ZSO1 Sold to ******************************************** ********************* *Logistical company start add by Ivanliu ******************************************** CLEAR: ls_input_field, ls_field_names, lt_field_names. LOOP AT gt_order_h INTO ls_order_h. IF ls_order_h-lo_partner_no IS NOT INITIAL. l_partner = ls_order_h-lo_partner_no. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = l_partner IMPORTING output = l_partner. ls_partner-ref_guid = ls_order_h-guid. ls_partner-ref_kind = 'A'. * ls_partner-ref_partner_handle = '0000'. ls_partner-ref_partner_handle = '0006'."change by dq-yuw 原先的0000与retailer的序号冲突，所以改成0006 ls_partner-kind_of_entry = 'C'. ls_partner-partner_fct = 'ZHSI0LGC'. ls_partner-partner_no = l_partner. ls_partner-display_type = 'BP'. ls_partner-no_type = 'BP'. * ls_partner-mainpartner = 'X'. INSERT ls_partner INTO TABLE lt_partner. ls_field_names-fieldname = 'DISPLAY_TYPE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'KIND_OF_ENTRY'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'NO_TYPE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'PARTNER_FCT'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'PARTNER_NO'. INSERT ls_field_names INTO TABLE lt_field_names. ls_input_field-field_names = lt_field_names. ls_input_field-ref_guid = ls_order_h-guid. ls_input_field-ref_kind = 'A'. ls_input_field-objectname = 'PARTNER'. * ls_input_field-logical_key = '0000'. ls_input_field-logical_key = '0006'."change by dq-yuw 原先的0000与retailer的序号冲突，所以改成0006 INSERT ls_input_field INTO TABLE lt_input_field. CLEAR ls_order_h. ENDIF. ENDLOOP. ********************* Logistical company end add by Ivanliu ****************************************************************************** ***********************add by dq-yuw 20161029 start for ZA company 退机申请 redetermine sold to ship to bill to...... "ship to CLEAR: ls_input_field, ls_field_names, lt_field_names. LOOP AT gt_order_h INTO ls_order_h. IF ls_order_h-process_type EQ 'ZSR3'."退机申请，如果是at home，ship to就是客户，不然就是retailer IF lv_land EQ 'ZA' OR ls_order_h-country EQ 'ZA'. IF ls_order_h-zzafld000008 EQ 'A'."customer's home l_partner = ls_order_h-bp_number. ELSE. l_partner = ls_order_h-re_partner_no. ENDIF. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = l_partner IMPORTING output = l_partner. ls_partner-ref_guid = ls_order_h-guid. ls_partner-ref_kind = 'A'. ls_partner-ref_partner_handle = '0005'. ls_partner-kind_of_entry = 'C'. ls_partner-partner_fct = '00000002'."ship to ls_partner-partner_no = l_partner. ls_partner-display_type = 'BP'. ls_partner-no_type = 'BP'. ls_partner-mainpartner = 'X'. INSERT ls_partner INTO TABLE lt_partner. ls_field_names-fieldname = 'DISPLAY_TYPE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'KIND_OF_ENTRY'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'NO_TYPE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'PARTNER_FCT'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'PARTNER_NO'. INSERT ls_field_names INTO TABLE lt_field_names. ls_input_field-field_names = lt_field_names. ls_input_field-ref_guid = ls_order_h-guid. ls_input_field-ref_kind = 'A'. ls_input_field-objectname = 'PARTNER'. ls_input_field-logical_key = '0005'. INSERT ls_input_field INTO TABLE lt_input_field. CLEAR ls_order_h. ENDIF. ENDIF. ENDLOOP. "BILL TO CLEAR: ls_input_field, ls_field_names, lt_field_names. LOOP AT gt_order_h INTO ls_order_h. IF ls_order_h-process_type EQ 'ZSR3'. IF lv_land EQ 'ZA' OR ls_order_h-country EQ 'ZA'. ****新加逻辑：如果retailer为9位，则sold to、bill to、payer都截取前6位作为partner，因为9位的都是门店，海信只和总部结算 CLEAR:lv_char6,lv_char10. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = ls_order_h-re_partner_no IMPORTING output = lv_char10. IF strlen( lv_char10 ) >= 9. lv_char6 = lv_char10+0(6). CLEAR lv_char10. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = lv_char6 IMPORTING output = lv_char10. l_partner = lv_char10. ELSE. l_partner = ls_order_h-re_partner_no. ENDIF. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = l_partner IMPORTING output = l_partner. ls_partner-ref_guid = ls_order_h-guid. ls_partner-ref_kind = 'A'. ls_partner-ref_partner_handle = '0002'. ls_partner-kind_of_entry = 'C'. ls_partner-partner_fct = '00000003'."BILL TO ls_partner-partner_no = l_partner. ls_partner-display_type = 'BP'. ls_partner-no_type = 'BP'. ls_partner-mainpartner = 'X'. INSERT ls_partner INTO TABLE lt_partner. ls_field_names-fieldname = 'DISPLAY_TYPE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'KIND_OF_ENTRY'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'NO_TYPE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'PARTNER_FCT'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'PARTNER_NO'. INSERT ls_field_names INTO TABLE lt_field_names. ls_input_field-field_names = lt_field_names. ls_input_field-ref_guid = ls_order_h-guid. ls_input_field-ref_kind = 'A'. ls_input_field-objectname = 'PARTNER'. ls_input_field-logical_key = '0002'. INSERT ls_input_field INTO TABLE lt_input_field. CLEAR ls_order_h. ENDIF. ENDIF. ENDLOOP. "PAYER CLEAR: ls_input_field, ls_field_names, lt_field_names. LOOP AT gt_order_h INTO ls_order_h. IF ls_order_h-process_type EQ 'ZSR3'. IF lv_land EQ 'ZA' OR ls_order_h-country EQ 'ZA'. ****新加逻辑：如果retailer为9位，则sold to、bill to、payer都截取前6位作为partner，因为9位的都是门店，海信只和总部结算 CLEAR:lv_char6,lv_char10. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = ls_order_h-re_partner_no IMPORTING output = lv_char10. IF strlen( lv_char10 ) >= 9. lv_char6 = lv_char10+0(6). CLEAR lv_char10. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = lv_char6 IMPORTING output = lv_char10. l_partner = lv_char10. ELSE. l_partner = ls_order_h-re_partner_no. ENDIF. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = l_partner IMPORTING output = l_partner. ls_partner-ref_guid = ls_order_h-guid. ls_partner-ref_kind = 'A'. ls_partner-ref_partner_handle = '0003'. ls_partner-kind_of_entry = 'C'. ls_partner-partner_fct = '00000004'."PAYER ls_partner-partner_no = l_partner. ls_partner-display_type = 'BP'. ls_partner-no_type = 'BP'. ls_partner-mainpartner = 'X'. INSERT ls_partner INTO TABLE lt_partner. ls_field_names-fieldname = 'DISPLAY_TYPE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'KIND_OF_ENTRY'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'NO_TYPE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'PARTNER_FCT'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'PARTNER_NO'. INSERT ls_field_names INTO TABLE lt_field_names. ls_input_field-field_names = lt_field_names. ls_input_field-ref_guid = ls_order_h-guid. ls_input_field-ref_kind = 'A'. ls_input_field-objectname = 'PARTNER'. ls_input_field-logical_key = '0003'. INSERT ls_input_field INTO TABLE lt_input_field. CLEAR ls_order_h. ENDIF. ENDIF. ENDLOOP. "HSI END USER CLEAR: ls_input_field, ls_field_names, lt_field_names. LOOP AT gt_order_h INTO ls_order_h. **********************************************************************20170217-Begin *开发顾问：陈国光 *业务顾问：张弛 *日本分公司-O 50000231 *HOS_CRM_JP_10_备件销售订单增强_V1.0_20170117 * 对于日本分公司，如果客户的BP分组为Z001（End User）， * 则创建ZSO1（HSI Individual Sales）和ZSO5（HSI FREE Sales）时， * 将客户BP保存到合作伙伴类型ZHSI00EU（HIS END User）中， * 将售达方、送达方、付款方、收货方设置成一次性客户，同时将客户的地址信息， * 赋值到备件销售订单的售达方、送达方、付款方、收货方。 * 赋值时，将街道STREET和街道2 STR_SUPPL1的值，中间加空格拼接起来， * 保存到备件销售订单合作伙伴售达方、送达方、付款方、收货方地址中的街道2中。 CLEAR: l_partner. IF ls_order_h-sales_org = 'O 50000231' . IF ls_order_h-process_type = 'ZSO1' OR ls_order_h-process_type = 'ZSO5'. IF ls_order_h-otcust_det IS NOT INITIAL. l_partner = ls_order_h-bp_number. ENDIF. ENDIF. ENDIF. IF ls_order_h-process_type EQ 'ZSR3'. IF lv_land EQ 'ZA' OR ls_order_h-country EQ 'ZA'. l_partner = ls_order_h-bp_number. ENDIF. ENDIF. IF l_partner IS NOT INITIAL. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = l_partner IMPORTING output = l_partner. ls_partner-ref_guid = ls_order_h-guid. ls_partner-ref_kind = 'A'. ls_partner-ref_partner_handle = '0004'. ls_partner-kind_of_entry = 'C'. ls_partner-partner_fct = 'ZHSI00EU'."PAYER ls_partner-partner_no = l_partner. ls_partner-display_type = 'BP'. ls_partner-no_type = 'BP'. ls_partner-mainpartner = 'X'. INSERT ls_partner INTO TABLE lt_partner. ls_field_names-fieldname = 'DISPLAY_TYPE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'KIND_OF_ENTRY'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'NO_TYPE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'PARTNER_FCT'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'PARTNER_NO'. INSERT ls_field_names INTO TABLE lt_field_names. ls_input_field-field_names = lt_field_names. ls_input_field-ref_guid = ls_order_h-guid. ls_input_field-ref_kind = 'A'. ls_input_field-objectname = 'PARTNER'. ls_input_field-logical_key = '0004'. INSERT ls_input_field INTO TABLE lt_input_field. ENDIF. **********************************************************************20170217-End CLEAR ls_order_h. ENDLOOP. ***********************END ADD ********************add by dq-yuw 20160628 start for USA company ***************************************** * CLEAR: ls_input_field, ls_field_names, lt_field_names. * LOOP AT gt_order_h INTO ls_order_h. * IF ls_order_h-country = 'US' AND ( ls_order_h-process_type = 'ZSO1' OR ls_order_h-process_type = 'ZSO5' ). * l_partner = ls_order_h-bp_number. * CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' * EXPORTING * input = l_partner * IMPORTING * output = l_partner. * ls_partner-ref_guid = ls_order_h-guid. * ls_partner-ref_kind = 'A'. * ls_partner-ref_partner_handle = '0002'. * ls_partner-kind_of_entry = 'C'. * ls_partner-partner_fct = '00000002'. * ls_partner-partner_no = l_partner. * ls_partner-display_type = 'BP'. * ls_partner-no_type = 'BP'. ** ls_partner-mainpartner = 'X'. * INSERT ls_partner INTO TABLE lt_partner. * * ls_partner-partner_fct = '00000003'. * ls_partner-ref_partner_handle = '0003'. * INSERT ls_partner INTO TABLE lt_partner. * * l_partner = ls_zcrmt0013-value3. * * CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' * EXPORTING * input = l_partner * IMPORTING * output = l_partner. * * ls_partner-partner_fct = '00000004'. * ls_partner-ref_partner_handle = '0004'. * ls_partner-partner_no = l_partner. * INSERT ls_partner INTO TABLE lt_partner. * * * ls_field_names-fieldname = 'DISPLAY_TYPE'. * INSERT ls_field_names INTO TABLE lt_field_names. * ls_field_names-fieldname = 'KIND_OF_ENTRY'. * INSERT ls_field_names INTO TABLE lt_field_names. * ls_field_names-fieldname = 'NO_TYPE'. * INSERT ls_field_names INTO TABLE lt_field_names. * ls_field_names-fieldname = 'PARTNER_FCT'. * INSERT ls_field_names INTO TABLE lt_field_names. * ls_field_names-fieldname = 'PARTNER_NO'. * INSERT ls_field_names INTO TABLE lt_field_names. * ls_input_field-field_names = lt_field_names. * ls_input_field-ref_guid = ls_order_h-guid. * ls_input_field-ref_kind = 'A'. * ls_input_field-objectname = 'PARTNER'. * * ls_input_field-logical_key = '0002'. * INSERT ls_input_field INTO TABLE lt_input_field. * * ls_input_field-logical_key = '0003'. * INSERT ls_input_field INTO TABLE lt_input_field. * * ls_input_field-logical_key = '0004'. * INSERT ls_input_field INTO TABLE lt_input_field. * * CLEAR ls_order_h. * ENDIF. * ENDLOOP. * CALL FUNCTION 'CRM_ORDER_MAINTAIN' * EXPORTING * it_partner = lt_partner * IMPORTING * et_exception = re_et_exception * CHANGING * ct_input_fields = lt_input_field * EXCEPTIONS * error_occurred = 1 * document_locked = 2 * no_change_allowed = 3 * no_authority = 4 * OTHERS = 5. * IF sy-subrc <> 0. * error_type = 'E'. * return-type = sy-msgty. * return-id = sy-msgid. * return-log_msg_no = sy-msgno. * return-message = sy-msgv1. * return-message_v2 = sy-msgv2. * return-message_v3 = sy-msgv3. * return-message_v4 = sy-msgv4. * APPEND return. * ENDIF. *********end add FOR USA COMPANY **************************************************** *S*********************PRODUCT_ID************************************** CLEAR: ls_input_field, ls_field_names, lt_field_names. LOOP AT gt_order_h INTO ls_order_h. SELECT SINGLE product_guid INTO ls_refobject-guid_object FROM comm_product WHERE product_id = ls_order_h-product_id. ls_service_os-ref_guid = ls_order_h-guid. ls_service_os-ref_kind = 'A'. ls_osset-ref_guid = ls_order_h-guid. ls_osset-subject_profile = 'ZSERV'. ls_osset-profile_type = 'A'. ls_refobject-ref_guid = ls_order_h-guid. ls_refobject-product_id = ls_order_h-product_id. ls_refobject-ib_ibase = ls_order_h-ib_ibase. ls_refobject-ib_instance = ls_order_h-ib_instance. ls_refobject-main_object = 'X'. * ls_refobject-mode = 'A'. ls_refobject-mode = 'B'. " Changed by DQ-LIULH 20150820 INSERT ls_refobject INTO TABLE lt_refobject. ls_osset-refobject = lt_refobject. INSERT ls_osset INTO TABLE lt_osset. ls_service_os-osset = lt_osset. ls_service_os-ref_guid = ls_order_h-guid. ls_service_os-ref_kind = 'A'. INSERT ls_service_os INTO TABLE lt_service_os. ls_field_names-fieldname = 'ALTID_TYPE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'IB_IBASE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'IB_INSTANCE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ID_FROM'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ID_TO'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'INST_DISM_INFO'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'MAIN_OBJECT'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'PART_CAUS_FAIL'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'PRODUCT_ID'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'SERIAL_NUMBER'. INSERT ls_field_names INTO TABLE lt_field_names. ls_input_field-field_names = lt_field_names. ls_input_field-ref_guid = ls_order_h-guid. ls_input_field-ref_kind = 'A'. ls_input_field-objectname = 'SERVICE_OS'. * ls_input_field-logical_key = '0001'. INSERT ls_input_field INTO TABLE lt_input_field. * endif. CLEAR: ls_order_h. CLEAR: lt_refobject,lt_osset. ENDLOOP. *S*********************ORGMAN****************************************** ***************add by dq-yuw 20160628 for usa company only************* CLEAR: ls_input_field, ls_field_names, lt_field_names. SELECT SINGLE * INTO ls_zbp_sales FROM zbp_sales WHERE bu_group = 'Z001' AND ( country = 'US' OR country = 'JP' ). LOOP AT gt_order_h INTO ls_order_h. **********************************************************************20170217-Begin *开发顾问：陈国光 *业务顾问：张弛 *日本分公司-O 50000231 *HOS_CRM_JP_10_备件销售订单增强_V1.0_20170117 *销售范围新增日本逻辑 **********************************************************************20170217-End IF ( ls_order_h-country = 'US' OR ls_order_h-country = 'JP' ) AND ( ls_order_h-process_type = 'ZSO1' OR ls_order_h-process_type = 'ZSO5' ). ls_orgman-ref_guid = ls_order_h-guid. ls_orgman-ref_kind = 'A'. ls_orgman-dis_channel = ls_zbp_sales-channel. * ls_orgman-service_org_ori = 'C'. * ls_orgman-service_orgr_ori = 'C'. ls_orgman-sales_org_ori = 'C'. * ls_orgman-dis_channel_ori = 'C'. * ls_orgman-sales_off_ori = 'C'. * ls_orgman-sales_orgr_ori = 'C'. ls_orgman-sales_org = ls_zbp_sales-sales_org. ls_orgman-sales_office = ls_zbp_sales-sales_office. * ls_orgman-sales_org_resp = ls_order_h-sales_org_resp. * ls_orgman-service_org_resp = ls_order_h-service_org_resp. * ls_orgman-service_org = ls_order_h-service_org. * ls_ORGMAN-SALES_ORG_SHORT = ORDER_H-SALES_ORG_SHORT. * ls_ORGMAN-SALES_OFFICE_SHORT = ORDER_H-SALES_OFFICE_SHORT. * ls_ORGMAN-SALES_ORG_RESP_SHORT = ORDER_H-SALES_ORG_RESP_SHORT. * ls_ORGMAN-SERVICE_ORG_RESP_SHORT = ORDER_H-SERVICE_ORG_RESP_SHORT. * ls_ORGMAN-SERVICE_ORG_SHORT = ORDER_H-SERVICE_ORG_SHORT. INSERT ls_orgman INTO TABLE lt_orgman. ls_field_names-fieldname = 'DIS_CHANNEL'. INSERT ls_field_names INTO TABLE lt_field_names. * ls_field_names-fieldname = 'DIS_CHANNEL_ORI'. * INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'SALES_ORG'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'SALES_OFFICE'. INSERT ls_field_names INTO TABLE lt_field_names. * ls_field_names-fieldname = 'SALES_OFFICE_SHORT'. * INSERT ls_field_names INTO TABLE lt_field_names. * ls_field_names-fieldname = 'SALES_OFF_ORI'. * INSERT ls_field_names INTO TABLE lt_field_names. * ls_field_names-fieldname = 'SALES_ORGR_ORI'. * INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'SALES_ORG_ORI'. INSERT ls_field_names INTO TABLE lt_field_names. * ls_field_names-fieldname = 'SALES_ORG_RESP'. * INSERT ls_field_names INTO TABLE lt_field_names. * ls_field_names-fieldname = 'SALES_ORG_RESP_SHORT'. * INSERT ls_field_names INTO TABLE lt_field_names. * ls_field_names-fieldname = 'SALES_ORG_SHORT'. * INSERT ls_field_names INTO TABLE lt_field_names. * ls_field_names-fieldname = 'SERVICE_ORG'. * INSERT ls_field_names INTO TABLE lt_field_names. * ls_field_names-fieldname = 'SERVICE_ORG'. * INSERT ls_field_names INTO TABLE lt_field_names. * ls_field_names-fieldname = 'SERVICE_ORGR_ORI'. * INSERT ls_field_names INTO TABLE lt_field_names. * ls_field_names-fieldname = 'SERVICE_ORG_ORI'. * INSERT ls_field_names INTO TABLE lt_field_names. * ls_field_names-fieldname = 'SERVICE_ORG_RESP'. * INSERT ls_field_names INTO TABLE lt_field_names. * ls_field_names-fieldname = 'SERVICE_ORG_RESP'. * INSERT ls_field_names INTO TABLE lt_field_names. * ls_field_names-fieldname = 'SERVICE_ORG_RESP_SHORT'. * INSERT ls_field_names INTO TABLE lt_field_names. * ls_field_names-fieldname = 'SERVICE_ORG_SHORT'. * INSERT ls_field_names INTO TABLE lt_field_names. ls_input_field-field_names = lt_field_names. ls_input_field-ref_guid = ls_order_h-guid. ls_input_field-ref_kind = 'A'. ls_input_field-objectname = 'ORGMAN'. INSERT ls_input_field INTO TABLE lt_input_field. CLEAR ls_order_h. ENDIF. ENDLOOP. *******end add ***************************** *E*********************ORGMAN************************************** *******add by dq-yuw 20161029 南非退机订单 销售范围从retailer的销售范围取一条 CLEAR: ls_input_field, ls_field_names, lt_field_names. DATA lt_frg0010 TYPE TABLE OF crmv_bp_frg0010. DATA ls_frg0010 TYPE crmv_bp_frg0010. LOOP AT gt_order_h INTO ls_order_h. IF lv_land EQ 'ZA' OR ls_order_h-country EQ 'ZA'. IF ls_order_h-process_type EQ 'ZSR3'. ****新加逻辑：如果retailer为9位，则sold to、bill to、payer都截取前6位作为partner，因为9位的都是门店，海信只和总部结算 CLEAR:lv_char6,lv_char10. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = ls_order_h-re_partner_no IMPORTING output = lv_char10. IF strlen( lv_char10 ) >= 9. lv_char6 = lv_char10+0(6). CLEAR lv_char10. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = lv_char6 IMPORTING output = lv_char10. l_partner = lv_char10. ELSE. l_partner = ls_order_h-re_partner_no. ENDIF. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = l_partner IMPORTING output = l_partner. SELECT * INTO TABLE lt_frg0010 FROM crmv_bp_frg0010 WHERE partner = l_partner. READ TABLE lt_frg0010 INTO ls_frg0010 WITH KEY sales_org = 'O 50000192'."先读国内的 IF sy-subrc <> 0. READ TABLE lt_frg0010 INTO ls_frg0010 INDEX 1. ENDIF. IF ls_frg0010 IS NOT INITIAL. ls_orgman-ref_guid = ls_order_h-guid. ls_orgman-ref_kind = 'A'. ls_orgman-dis_channel = ls_frg0010-channel. ls_orgman-sales_org_ori = 'C'. ls_orgman-sales_org = ls_frg0010-sales_org. IF ls_orgman-sales_org EQ 'O 50000192'. ls_orgman-sales_office = 'O 50000193'."默认sales office ELSEIF ls_orgman-sales_org EQ 'O 50000194'. ls_orgman-sales_office = 'O 50000195'."默认sales office ENDIF. INSERT ls_orgman INTO TABLE lt_orgman. ls_field_names-fieldname = 'DIS_CHANNEL'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'SALES_ORG'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'SALES_OFFICE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'SALES_ORG_ORI'. INSERT ls_field_names INTO TABLE lt_field_names. ls_input_field-field_names = lt_field_names. ls_input_field-ref_guid = ls_order_h-guid. ls_input_field-ref_kind = 'A'. ls_input_field-objectname = 'ORGMAN'. INSERT ls_input_field INTO TABLE lt_input_field. CLEAR ls_order_h. ENDIF. ENDIF. ENDIF. ENDLOOP. ****** end add *S*********************APPOINTMENT-PURCHASE********************************* CLEAR: ls_input_field, ls_field_names, lt_field_names. LOOP AT gt_order_i INTO ls_order_i. ls_appointment-ref_guid = ls_order_i-corder_guid. ls_appointment-ref_kind = 'A'. * CALL FUNCTION 'CONVERT_INTO_TIMESTAMP' * EXPORTING * I_DATLO = ls_ORDER_i-PURCHASE_DATE * I_TIMLO = ls_ORDER_i-PURCHASE_TIME ** I_TZONE = SY-ZONLO * IMPORTING * E_TIMESTAMP = ls_APPOINTMENT-TIMESTAMP_FROM. * ls_APPOINTMENT-APPT_TYPE = 'ZPURCHASE'. * INSERT ls_APPOINTMENT INTO TABLE lt_APPOINTMENT. CLEAR: ls_field_names, lt_field_names. ls_field_names-fieldname = 'DOMINANT'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_field_names. ls_field_names-fieldname = 'DURATION'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_field_names. ls_field_names-fieldname = 'RULE_NAME'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_field_names. ls_field_names-fieldname = 'SHOW_LOCAL'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_field_names. ls_field_names-fieldname = 'TIMESTAMP_FROM'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_field_names. ls_field_names-fieldname = 'TIMEZONE_FROM'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_field_names. ls_field_names-fieldname = 'TIME_UNIT'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_input_field. ls_input_field-field_names = lt_field_names. ls_input_field-ref_guid = ls_order_i-corder_guid. ls_input_field-ref_kind = 'A'. ls_input_field-logical_key = 'ZPURCHASE'. ls_input_field-objectname = 'APPOINTMENT'. INSERT ls_input_field INTO TABLE lt_input_field. CLEAR ls_order_i. ENDLOOP. *E*********************APPOINTMENT-PURCHASE********************************* *S*********************APPOINTMENT-RESERVATION********************************* CLEAR: ls_input_field, ls_field_names, lt_field_names. LOOP AT gt_order_i INTO ls_order_i. ls_appointment-ref_guid = ls_order_i-corder_guid. ls_appointment-ref_kind = 'A'. CLEAR: ls_field_names, lt_field_names. ls_field_names-fieldname = 'DOMINANT'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_field_names. ls_field_names-fieldname = 'DURATION'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_field_names. ls_field_names-fieldname = 'RULE_NAME'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_field_names. ls_field_names-fieldname = 'SHOW_LOCAL'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_field_names. ls_field_names-fieldname = 'TIMESTAMP_FROM'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_field_names. ls_field_names-fieldname = 'TIMEZONE_FROM'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_field_names. ls_field_names-fieldname = 'TIME_UNIT'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_input_field. ls_input_field-field_names = lt_field_names. ls_input_field-ref_guid = ls_order_i-corder_guid. ls_input_field-ref_kind = 'A'. ls_input_field-logical_key = 'ZRESERVATION'. ls_input_field-objectname = 'APPOINTMENT'. INSERT ls_input_field INTO TABLE lt_input_field. CLEAR ls_order_i. ENDLOOP. *E*********************APPOINTMENT-RESERVATION********************************* *S*********************APPOINTMENT-FIRST_REPAIR********************************* CLEAR: ls_input_field, ls_field_names, lt_field_names. LOOP AT gt_order_i INTO ls_order_i. ls_appointment-ref_guid = ls_order_i-corder_guid. ls_appointment-ref_kind = 'A'. CLEAR: ls_field_names, lt_field_names. ls_field_names-fieldname = 'DOMINANT'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_field_names. ls_field_names-fieldname = 'DURATION'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_field_names. ls_field_names-fieldname = 'RULE_NAME'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_field_names. ls_field_names-fieldname = 'SHOW_LOCAL'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_field_names. ls_field_names-fieldname = 'TIMESTAMP_FROM'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_field_names. ls_field_names-fieldname = 'TIMEZONE_FROM'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_field_names. ls_field_names-fieldname = 'TIME_UNIT'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_input_field. ls_input_field-field_names = lt_field_names. ls_input_field-ref_guid = lv_guid. ls_input_field-ref_kind = 'A'. ls_input_field-logical_key = 'ZFIRSTREPAIR'. ls_input_field-objectname = 'APPOINTMENT'. INSERT ls_input_field INTO TABLE lt_input_field. CLEAR ls_order_i. ENDLOOP. *E*********************APPOINTMENT-FIRST_REPAIR********************************* *S*********************APPOINTMENT-COMPLETED********************************* CLEAR: ls_input_field, ls_field_names, lt_field_names. LOOP AT gt_order_h INTO ls_order_h. ls_appointment-ref_guid = ls_order_h-guid. ls_appointment-ref_kind = 'A'. CALL FUNCTION 'CONVERT_INTO_TIMESTAMP' EXPORTING i_datlo = ls_order_h-purchase_date i_timlo = ls_order_h-purchase_time * I_TZONE = SY-ZONLO IMPORTING e_timestamp = ls_appointment-timestamp_from. ls_appointment-appt_type = 'ZPURCHASE'. INSERT ls_appointment INTO TABLE lt_appointment. CLEAR ls_appointment. CLEAR: ls_field_names, lt_field_names. ls_field_names-fieldname = 'DOMINANT'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_field_names. ls_field_names-fieldname = 'DURATION'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_field_names. ls_field_names-fieldname = 'RULE_NAME'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_field_names. ls_field_names-fieldname = 'SHOW_LOCAL'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_field_names. ls_field_names-fieldname = 'TIMESTAMP_FROM'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_field_names. ls_field_names-fieldname = 'TIMEZONE_FROM'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_field_names. ls_field_names-fieldname = 'TIME_UNIT'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_input_field. ls_input_field-field_names = lt_field_names. ls_input_field-ref_guid = lv_guid. ls_input_field-ref_kind = 'A'. ls_input_field-logical_key = 'ZPURCHASE'. ls_input_field-objectname = 'APPOINTMENT'. INSERT ls_input_field INTO TABLE lt_input_field. * // ls_appointment-ref_guid = ls_order_h-guid. ls_appointment-ref_kind = 'A'. CALL FUNCTION 'CONVERT_INTO_TIMESTAMP' EXPORTING i_datlo = ls_order_h-ser_date i_timlo = ls_order_h-sug_ser_time * I_TZONE = SY-ZONLO IMPORTING e_timestamp = ls_appointment-timestamp_from. ls_appointment-appt_type = 'ZRESERVATION'. INSERT ls_appointment INTO TABLE lt_appointment. CLEAR: ls_field_names, lt_field_names. ls_field_names-fieldname = 'DOMINANT'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_field_names. ls_field_names-fieldname = 'DURATION'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_field_names. ls_field_names-fieldname = 'RULE_NAME'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_field_names. ls_field_names-fieldname = 'SHOW_LOCAL'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_field_names. ls_field_names-fieldname = 'TIMESTAMP_FROM'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_field_names. ls_field_names-fieldname = 'TIMEZONE_FROM'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_field_names. ls_field_names-fieldname = 'TIME_UNIT'. INSERT ls_field_names INTO TABLE lt_field_names. CLEAR ls_input_field. ls_input_field-field_names = lt_field_names. ls_input_field-ref_guid = lv_guid. ls_input_field-ref_kind = 'A'. ls_input_field-logical_key = 'ZRESERVATION'. ls_input_field-objectname = 'APPOINTMENT'. INSERT ls_input_field INTO TABLE lt_input_field. CLEAR ls_order_h. ENDLOOP. *E*********************APPOINTMENT-COMPLETED********************************* *S*********************status************************************** CLEAR: ls_input_field, ls_field_names, lt_field_names. LOOP AT gt_order_h INTO ls_order_h. ls_status-ref_guid = ls_order_h-guid. ls_status-ref_kind = 'A'. ls_status-status = ls_order_h-stat. IF ls_order_h-process_type = 'ZSV1'. ls_status-user_stat_proc = 'ZHSV_001'. IF ls_order_h-ser_pro IS NOT INITIAL. ls_status-status ='E0002'. ENDIF. ELSEIF ls_order_h-process_type = 'ZSR1'. ls_status-user_stat_proc = 'ZHSR_001'. ELSE. ls_status-user_stat_proc = 'ZHSV_001'. ENDIF. IF ls_order_h-process_type = 'ZSV3'.."退机订单创建直接为assign ls_status-status ='E0014'. ls_status-user_stat_proc ='ZHSV_003'. ENDIF. **********************************************************************20170217-Begin *开发顾问：陈国光 *业务顾问：张弛 *日本分公司-O 50000231 *HOS_CRM_JP_10_备件销售订单增强_V1.0_20170117 *B、对于日本，通过集中建单平台，创建的ZSO1（HSI Individual Sales）和ZSO5（HSI Free Sales），状态默认为Z020（APPROVED）。 ls_status-user_stat_proc = ls_order_h-user_stat_proc. IF ls_order_h-sales_org = 'O 50000231'. IF ls_order_h-process_type = 'ZSO1' OR ls_order_h-process_type = 'ZSO5'. ls_tj30t-stsma = ls_status-user_stat_proc. ls_tj30t-txt04 = 'Z020'. CALL FUNCTION 'ZCRM_READ_TJ30T' CHANGING cs_tj30t = ls_tj30t. ls_status-status = ls_tj30t-estat. ENDIF. ENDIF. **********************************************************************20170217-End ls_status-activate = 'X'. INSERT ls_status INTO TABLE lt_status. ls_field_names-fieldname = 'ACTIVATE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_input_field-field_names = lt_field_names. ls_input_field-ref_guid = ls_order_h-guid. ls_input_field-ref_kind = 'A'. ls_input_field-objectname = 'STATUS'. CONCATENATE ls_status-status ls_status-user_stat_proc INTO ls_input_field-logical_key. INSERT ls_input_field INTO TABLE lt_input_field. CLEAR ls_order_h. ENDLOOP. *E*********************status************************************** *---------------------------------------> begin of start price condition DATA: ls_cond_add TYPE prct_cond_external_input, lt_pridoc_com TYPE crmt_pridoc_comt, ls_pridoc_com TYPE crmt_pridoc_com. DATA lv_index TYPE i. READ TABLE gt_order_h INTO ls_order_h INDEX 1.. IF sy-subrc EQ 0 AND ls_order_h-country EQ 'JP'. CLEAR: ls_input_field, ls_field_names, lt_field_names. LOOP AT gt_order_i INTO ls_order_i. lv_index = sy-tabix. ls_pridoc_com-ref_handle = lv_index. ls_pridoc_com-ref_guid = ls_order_i-guid. ls_pridoc_com-ref_kind = 'A'. ls_cond_add-kschl = 'ZGSP'. * ls_cond_add-kschl = '9PS0'. * ls_cond_add-kpein = 1. * ls_cond_add-kmein = 'PC'. ls_cond_add-waers = 'JPY'. ls_cond_add-KBETR = ls_order_i-pur_price / 100. * ls_cond_add-kwert = ls_order_i-pur_price. IF ls_cond_add-kbetr = 0. ls_cond_add-kbetr_initial = abap_true. ENDIF. INSERT ls_cond_add INTO TABLE ls_pridoc_com-cond_add. INSERT ls_pridoc_com INTO lt_pridoc_com INDEX 1. ls_input_field-ref_handle = lv_index. * ls_input_field-ref_guid = ls_order_i-guid. ls_input_field-ref_kind = 'A'. ls_input_field-objectname = 'PRIDOC'. ls_field_names-fieldname = 'KSCHL'. INSERT ls_field_names INTO TABLE ls_input_field-field_names. ls_field_names-fieldname = 'WAERS'. INSERT ls_field_names INTO TABLE ls_input_field-field_names. ls_field_names-fieldname = 'KBETR'."KBETR INSERT ls_field_names INTO TABLE ls_input_field-field_names. ls_field_names-fieldname = 'KPEIN'. INSERT ls_field_names INTO TABLE ls_input_field-field_names. ls_field_names-fieldname = 'KMEIN'. INSERT ls_field_names INTO TABLE ls_input_field-field_names. ls_field_names-fieldname = 'MODE'. INSERT ls_field_names INTO TABLE ls_input_field-field_names. INSERT ls_input_field INTO TABLE lt_input_field. CLEAR:ls_cond_add, ls_input_field. ENDLOOP. *<--------------------------------------end of price condition ENDIF. *S*********************ORDER_I************************************** CLEAR: lt_orderadm_i, lt_schedlin_i, lt_service_i, lt_product_i, lt_pricing. DATA: ws_order_i TYPE LINE OF zcorder_item_infor. DATA ls_crmv_bp_frg0010 TYPE crmv_bp_frg0010. "取得客户的销售范围 READ TABLE gt_order_h INTO ls_order_h INDEX 1. IF sy-subrc EQ 0. IF ls_order_h-process_type EQ 'ZSO1' OR ls_order_h-process_type EQ 'ZSO2' OR ls_order_h-process_type EQ 'ZSO5'. SELECT SINGLE * INTO ls_crmv_bp_frg0010 FROM crmv_bp_frg0010 WHERE partner = ls_order_h-bp_number. ENDIF. ENDIF. LOOP AT gt_order_i INTO ls_order_i. CLEAR: ls_input_field, ls_field_names, lt_field_names, ls_orderadm_i, ls_schedlin_extdt, wk_schedlin, lt_schedlin_extdt. ls_service_i-ref_guid = ls_order_i-guid. INSERT ls_service_i INTO TABLE lt_service_i. ls_product_i-ref_guid = ls_order_i-guid. INSERT ls_product_i INTO TABLE lt_product_i. ls_pricing-ref_guid = ls_order_i-guid. ls_pricing-ref_kind = 'B'. INSERT ls_pricing INTO TABLE lt_pricing. ls_schedlin_i-ref_guid = ls_order_i-guid. ls_schedlin_extdt-quantity = ls_order_i-quantity. ls_schedlin_extdt-logical_key = '00000000000000000000000000000000'. INSERT ls_schedlin_extdt INTO TABLE lt_schedlin_extdt. ls_schedlin_i-schedlines = lt_schedlin_extdt. INSERT ls_schedlin_i INTO TABLE lt_schedlin_i. ls_input_field-field_names = lt_field_names. ls_input_field-ref_guid = ls_order_i-guid. ls_input_field-ref_kind = 'B'. ls_input_field-objectname = 'SCHEDLIN_I'. INSERT ls_input_field INTO TABLE lt_input_field. ls_field_names-fieldname = 'LOGICAL_KEY'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'QUANTITY'. INSERT ls_field_names INTO TABLE lt_field_names. ls_input_field-field_names = lt_field_names. ls_input_field-ref_guid = ls_order_i-guid. ls_input_field-ref_kind = 'B'. ls_input_field-objectname = 'SCHEDLIN'. ls_input_field-logical_key = '00000000000000000000000000000000'. INSERT ls_input_field INTO TABLE lt_input_field. CLEAR: ls_input_field, ls_field_names, lt_field_names. ls_orderadm_i-guid = ls_order_i-guid. ls_orderadm_i-header = ls_order_i-corder_guid. ls_orderadm_i-number_int = ls_order_i-number_int. IF ls_order_i-number_h IS NOT INITIAL. READ TABLE gt_order_i INTO ws_order_i WITH KEY corder_guid = ls_order_i-corder_guid number_int = ls_order_i-number_h. IF sy-subrc = 0. ls_orderadm_i-parent = ws_order_i-guid. ENDIF. ENDIF. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = ls_orderadm_i-number_int IMPORTING output = ls_orderadm_i-number_int. ls_orderadm_i-ordered_prod = ls_order_i-product_id. ls_orderadm_i-number_parent = ls_order_i-number_h. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = ls_orderadm_i-ordered_prod IMPORTING output = ls_orderadm_i-ordered_prod. ls_orderadm_i-description = ls_order_i-product_id_des. ls_orderadm_i-zzzserialno = ls_order_i-zzzserialno. ls_orderadm_i-zzzserialno1 = ls_order_i-zzzserialno1. ls_orderadm_i-zzzcustmodeno = ls_order_i-zzzcustmodeno. ls_orderadm_i-zzpurc_date = ls_order_i-purchase_date. ls_orderadm_i-zzsymp_grou = ls_order_i-zzsymp_grou. ls_orderadm_i-zzsymp_code = ls_order_i-zzsymp_code. ls_orderadm_i-zzcrm04p = ls_order_i-zzcrm04p."20161205 新增字段参考FS《HOS_CRM_SA_35_退换机扫码功能CRM端修改_V1.1_20161202》 **********************************************************************20170216-Begin *开发顾问：陈国光 *业务顾问：张弛 *日本需求-O 50000231 *HOS_CRM_JP_10_备件销售订单增强_V1.0_20170117 * 点击“STOCK”按钮之后，选择库存地点之后，自动带到此字段中 * 工厂默认8410 * ZZPLANT 1 TYPES ZADTEL000025 CHAR 4 0 Plant ls_orderadm_i-zzplant = ls_order_i-zzplant. * ZZLGORT 1 TYPES ZADTEL000029 CHAR 4 0 Storage location ls_orderadm_i-zzlgort = ls_order_i-zzlgort. IF ls_crmv_bp_frg0010-sales_org EQ 'O 50000231'. IF ls_orderadm_i-zzplant IS INITIAL. ls_orderadm_i-zzplant = '8410'. ENDIF. ENDIF. **********************************************************************20170216-End "工厂 IF ls_crmv_bp_frg0010-sales_org EQ 'O 50000192'. ls_orderadm_i-zzplant = '8510'. ELSEIF ls_crmv_bp_frg0010-sales_org EQ 'O 50000194'. ls_orderadm_i-zzplant = '8502'. ENDIF. INSERT ls_orderadm_i INTO TABLE lt_orderadm_i. ls_field_names-fieldname = 'DESCRIPTION'. INSERT ls_field_names INTO TABLE lt_field_names. * ls_field_names-fieldname = 'ITM_TYPE'. * INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ORDERED_PROD'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'MODE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZZGROUP'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZZBRAND'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZZMODENO'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZZSERIALNO'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZZSERIALNO1'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZZSERIALNO2'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZPLANT'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZCRM04P'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ITM_PROC_IDENT'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'NUMBER_INT'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'NUMBER_PARENT'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZPURC_DATE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZZCUSTMODENO'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZSYMP_GROU'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZSYMP_CODE'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZPLANT'. INSERT ls_field_names INTO TABLE lt_field_names. ls_field_names-fieldname = 'ZZLGORT'. INSERT ls_field_names INTO TABLE lt_field_names. ls_input_field-field_names = lt_field_names. ls_input_field-ref_guid = ls_order_i-guid. ls_input_field-ref_kind = 'B'. ls_input_field-objectname = 'ORDERADM_I'. INSERT ls_input_field INTO TABLE lt_input_field. CLEAR: ls_order_i,lv_schedual_guid. ENDLOOP. *E*********************ORDER_I************************************** DATA: l_issave(1) TYPE c. DATA: l_repair_dat TYPE datum, l_repair_dat_end TYPE datum. DATA: wk_serialno TYPE zhsi_serialno, tk_serialno TYPE TABLE OF zhsi_serialno. CALL FUNCTION 'CRM_ORDER_MAINTAIN' EXPORTING it_activity_h = lt_activity_h it_sales = lt_sales it_product_i = lt_product_i it_service_h = lt_service_h it_service_i = lt_service_i it_appointment = lt_appointment it_text = lt_text it_schedlin_i = lt_schedlin_i it_partner = lt_partner it_service_os = lt_service_os it_status = lt_status it_orgman = lt_orgman it_pridoc = lt_pridoc_com IMPORTING et_exception = re_et_exception CHANGING ct_orderadm_h = lt_orderadm_h ct_orderadm_i = lt_orderadm_i ct_input_fields = lt_input_field EXCEPTIONS error_occurred = 1 document_locked = 2 no_change_allowed = 3 no_authority = 4 OTHERS = 5. IF sy-subrc <> 0. error_type = 'E'. return-type = sy-msgty. return-id = sy-msgid. return-log_msg_no = sy-msgno. return-message = sy-msgv1. return-message_v2 = sy-msgv2. return-message_v3 = sy-msgv3. return-message_v4 = sy-msgv4. APPEND return. ENDIF. CHECK error_type IS INITIAL. *data lv_mesty type SYMSGTY. *data ls_handle type BALMSGHNDL. *CALL FUNCTION 'CRM_MESSAGE_COLLECT' * EXPORTING * IV_CALLER_NAME = 'ORDERADM_H' ** IV_REF_OBJECT = ** IV_REF_KIND = ** IV_LOGICAL_KEY = ** IV_MSGNO = SY-MSGNO ** IV_MSGID = SY-MSGID ** IV_MSGTY = SY-MSGTY ** IV_MSGV1 = SY-MSGV1 ** IV_MSGV2 = SY-MSGV2 ** IV_MSGV3 = SY-MSGV3 ** IV_MSGV4 = SY-MSGV4 ** IV_MSGLEVEL = ** IV_FIELDNAME = ** IV_ACTION = ** IV_LOG_HANDLE = ** IV_DOCNUMBER = ** IV_CUMULATE = FALSE ** IV_USE_FRAME_LOG = FALSE ** IT_LONGTEXT = ** IV_EXTERNAL_CALL = FALSE * IMPORTING * EV_MSGTY = lv_mesty * ES_MSG_HANDLE = ls_handle * EXCEPTIONS * NOT_FOUND = 1 * APPL_LOG_ERROR = 2 * OTHERS = 3 * . *IF SY-SUBRC <> 0. ** Implement suitable error handling here *ENDIF. DATA: lt_msg_info TYPE crmt_msg_info_tab, ls_msg_info TYPE crmt_msg_info, is_msgh TYPE balmsghndl, ls_msg TYPE bal_s_msg. LOOP AT gt_order_h INTO ls_order_h. is_objects_to_save = ls_order_h-guid. INSERT is_objects_to_save INTO TABLE it_objects_to_save. CLEAR ls_order_h. ENDLOOP. CALL FUNCTION 'CRM_ORDER_SAVE' EXPORTING it_objects_to_save = it_objects_to_save IMPORTING et_saved_objects = lt_saved_objects et_exception = re_et_exception et_objects_not_saved = lt_objects_not_saved EXCEPTIONS document_not_saved = 1 OTHERS = 2. "ADD BY DQ-YUW 在集中建单平台创建的时候捕捉order save抛出的消息，予以提示 IF lt_objects_not_saved IS INITIAL. COMMIT WORK. ELSE. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. LOOP AT lt_objects_not_saved INTO ls_objects_not_saved. CLEAR: lt_msg_info[]. CALL FUNCTION 'CRM_MESSAGES_SEARCH' EXPORTING iv_ref_object = ls_objects_not_saved iv_ref_kind = 'A' iv_only_errors_on_object = 'X' IMPORTING et_msg_info = lt_msg_info EXCEPTIONS appl_log_error = 1 error_occurred = 2 OTHERS = 3. LOOP AT lt_msg_info INTO ls_msg_info. CLEAR: is_msgh, ls_msg. is_msgh-log_handle = ls_msg_info-log_handle. is_msgh-msgnumber = ls_msg_info-msgnumber. CALL FUNCTION 'BAL_LOG_MSG_READ' EXPORTING i_s_msg_handle = is_msgh IMPORTING e_s_msg = ls_msg EXCEPTIONS log_not_found = 1 msg_not_found = 2 OTHERS = 3. IF sy-subrc EQ 0. IF ls_msg-msgty = 'E'. error_type = 'E'. ***20161206 消息组装错误-Begin *陈国光 "error_log = ls_msg-msgv1. MESSAGE ID ls_msg-msgid TYPE ls_msg-msgty NUMBER ls_msg-msgno WITH ls_msg-msgv1 ls_msg-msgv2 ls_msg-msgv3 ls_msg-msgv3 INTO error_log. ***20161206 消息组装错误-End return-type = error_type. return-message = error_log. APPEND return. EXIT. ENDIF. ENDIF. ENDLOOP. ls_guid_init = ls_objects_not_saved. APPEND ls_guid_init TO lt_guid_init. IF error_type = 'E'.. EXIT. ENDIF. ENDLOOP. ENDIF. * CHECK ERROR_TYPE IS INITIAL. ***end add return_object_id = lt_saved_objects. LOOP AT lt_saved_objects INTO ls_saved_objects. ls_guid_init = ls_saved_objects-guid. APPEND ls_guid_init TO lt_guid_init. ENDLOOP. CALL FUNCTION 'CRM_ORDER_INITIALIZE' EXPORTING it_guids_to_init = lt_guid_init EXCEPTIONS error_occurred = 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. ***retailer and contact add by dq-yuw 20161010 DATA ls_zcrmt0023 TYPE zcrmt0023. READ TABLE order_h INTO ls_order_h INDEX 1. IF sy-subrc EQ 0 AND NOT ls_order_h-re_partner_no IS INITIAL. ls_zcrmt0023-retailer_id = ls_order_h-re_partner_no. ls_zcrmt0023-contact_person = ls_order_h-contact_person. ls_zcrmt0023-mobile = ls_order_h-contact_mobile. ls_zcrmt0023-phone = ls_order_h-contact_phone. ls_zcrmt0023-e_mail = ls_order_h-contact_e_mail. ls_zcrmt0023-fax_number = ls_order_h-contact_fax. MODIFY zcrmt0023 FROM ls_zcrmt0023. ENDIF. ENDFUNCTION.
扫一扫
1390
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
