*&---------------------------------------------------------------------*
*& Report ZPS206
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zps206.
TABLES: sscrfields,proj.
TYPES: BEGIN OF ty_out,
srvpos TYPE srvpos, "服务编号
ekgrp TYPE ekgrp, "采购组
ekorg TYPE ekorg, "采购组织
zsm TYPE mwskz, "税码
menge TYPE string, "采购金额
lifnr TYPE lifnr, "供应商编码
zsghtbh TYPE ekko-zsghtbh, "合同号
zsghtqdsj TYPE ekko-zsghtqdsj, "合同号
zgcmc TYPE ekko-zgcmc, "合同号
zazsfzr TYPE ekko-zsghtbh, "合同号
banfn TYPE banfn, "采购申请编码
bnfpo TYPE bnfpo, "采购申请行项目
ebeln TYPE ebeln, "采购订单号
butxt TYPE butxt, "校验消息
ktext1 TYPE ktext1, "短文本
name1 TYPE name1, "供应商名称
butxt1 TYPE butxt, "导入信息
type TYPE bapi_mtype,
END OF ty_out.
DATA: fieldcat TYPE slis_t_fieldcat_alv,
it_upload TYPE TABLE OF ty_out WITH HEADER LINE,
return TYPE TABLE OF bapireturn WITH HEADER LINE,
return1 TYPE TABLE OF bapiret2 WITH HEADER LINE,
functxt TYPE smp_dyntxt.
DATA:msg TYPE bapi_msg.
DATA:ev_aufnr TYPE aufnr,
gs_net_bus2002_new TYPE bapi_bus2002_new,
gt_bapiret2 TYPE TABLE OF bapiret2,
gs_bapiret2 TYPE bapiret2,
lv_sys_sta TYPE bapi_system_status-system_status,
lt_result TYPE STANDARD TABLE OF bapi_status_result,
ls_result TYPE bapi_status_result,
bdcdata LIKE TABLE OF bdcdata WITH HEADER LINE,
bdcreturn TYPE TABLE OF bapiret2 WITH HEADER LINE.
DATA: poheader TYPE bapimepoheader,
poheaderx TYPE bapimepoheaderx,
wa_ext TYPE bapi_te_mepoheader,
wa_extx TYPE bapi_te_mepoheaderx,
exppurchaseorder TYPE bapimepoheader-po_number,
extensionin TYPE TABLE OF bapiparex WITH HEADER LINE,
pocomponents TYPE TABLE OF bapimepocomponent WITH HEADER LINE,
pocomponentsx TYPE TABLE OF bapimepocomponentx WITH HEADER LINE,
poitem TYPE STANDARD TABLE OF bapimepoitem WITH HEADER LINE,
poitemx TYPE STANDARD TABLE OF bapimepoitemx WITH HEADER LINE,
poschedule TYPE STANDARD TABLE OF bapimeposchedule WITH HEADER LINE,
poschedulex TYPE STANDARD TABLE OF bapimeposchedulx WITH HEADER LINE,
pocond TYPE STANDARD TABLE OF bapimepocond WITH HEADER LINE,
poservices TYPE STANDARD TABLE OF bapiesllc WITH HEADER LINE,
poaccount TYPE STANDARD TABLE OF bapimepoaccount WITH HEADER LINE,
poaccountx TYPE STANDARD TABLE OF bapimepoaccountx WITH HEADER LINE,
posrvaccessvalues TYPE STANDARD TABLE OF bapiesklc WITH HEADER LINE,
potextitem TYPE TABLE OF bapimepotext WITH HEADER LINE,
"return TYPE TABLE OF bapiret2 WITH HEADER LINE,
pocondx TYPE STANDARD TABLE OF bapimepocondx WITH HEADER LINE,
potextheader TYPE TABLE OF bapimepotextheader WITH HEADER LINE.
PARAMETERS: p_pspid LIKE proj-pspid OBLIGATORY.
SELECTION-SCREEN FUNCTION KEY :1.
INITIALIZATION.
%_P_PSPID_%_app_%-text = '项目编码'.
functxt = '@14@导出模板'.
sscrfields-functxt_01 = functxt.
AT SELECTION-SCREEN.
CASE sscrfields-ucomm.
WHEN 'FC01'.
REFRESH fieldcat.
PERFORM init_fieldcat(zpubform) TABLES fieldcat
USING :'' '服务编号' '' '' '' '',
'' '采购组' '' '' '' '',
'' '采购组织' '' '' '' '',
'' '税码' '' '' '' '',
'' '采购金额' '' '' '' '',
'' '供应商编码' '' '' '' '',
'' '施工合同号' '' '' '' '',
'' '施工合同签订时间' '' '' '' '',
'' '工程名称' '' '' '' '',
'' '安装商负责人' '' '' '' ''.
PERFORM itabstructoclip(zpubform) USING fieldcat '' ''.
ENDCASE.
START-OF-SELECTION.
PERFORM cliptoitab(zpubform) TABLES it_upload.
LOOP AT it_upload.
"服务短文本
PERFORM addzero(zpubform) CHANGING it_upload-srvpos.
PERFORM addzero(zpubform) CHANGING it_upload-lifnr.
IF it_upload-srvpos IS NOT INITIAL.
SELECT SINGLE ktext1 INTO it_upload-ktext1
FROM esll
WHERE srvpos = it_upload-srvpos.
IF sy-subrc NE 0.
it_upload-type = 'E'.
CONCATENATE '服务编号不存在' it_upload-butxt1 INTO it_upload-butxt1.
ENDIF.
ENDIF.
"供应商编码
IF it_upload-lifnr IS NOT INITIAL.
SELECT SINGLE name1 INTO it_upload-name1
FROM lfa1
WHERE lifnr = it_upload-lifnr.
IF sy-subrc NE 0.
it_upload-type = 'E'.
CONCATENATE '供应商不存在' it_upload-butxt1 INTO it_upload-butxt1.
ENDIF.
ENDIF.
IF it_upload-ekgrp IS NOT INITIAL.
SELECT SINGLE COUNT(*)
FROM t024
WHERE ekgrp = it_upload-ekgrp.
IF sy-subrc NE 0.
it_upload-type = 'E'.
CONCATENATE '采购组不存在' it_upload-butxt1 INTO it_upload-butxt1.
ENDIF.
ENDIF.
IF it_upload-ekorg IS NOT INITIAL.
SELECT SINGLE COUNT(*)
FROM t024e
WHERE ekorg = it_upload-ekorg.
IF sy-subrc NE 0.
it_upload-type = 'E'.
CONCATENATE '采购组织不存在' it_upload-butxt1 INTO it_upload-butxt1.
ENDIF.
ENDIF.
IF it_upload-zsm IS NOT INITIAL.
SELECT SINGLE COUNT(*)
FROM t007a
WHERE kalsm = 'TAXCN'
AND mwskz = it_upload-zsm.
IF sy-subrc NE 0.
it_upload-type = 'E'.
CONCATENATE '税码不存在' it_upload-butxt1 INTO it_upload-butxt1.
ENDIF.
ENDIF.
MODIFY it_upload.
ENDLOOP.
PERFORM alvshow.
FORM alvshow.
REFRESH fieldcat.
PERFORM init_fieldcat(zpubform) TABLES fieldcat USING :
'SRVPOS' '服务编号' 'X' '' '' '',
'KTEXT1' '短文本' '' '' '' '',
'EKGRP' '采购组' '' '' '' '',
'EKORG' '采购组织' '' '' '' '',
'ZSM' '税码' '' '' '' '',
'MENGE' '采购金额' '' '' '' '',
'LIFNR' '供应商编码' 'X' '' '' '',
'NAME1' '供应商名称' '' '' '' '',
'ZSGHTBH' '施工合同号' '' '' '' '',
'ZSGHTQDSJ' '施工合同签订时间' '' '' '' '',
'ZGCMC' '工程名称' '' '' '' '',
'ZAZSFZR' '安装商负责人' '' '' '' '',
'BANFN' '采购申请号' '' '' '' '',
'BNFPO' '采购申请行项目' '' '' '' '',
'EBELN' '采购订单号' '' '' '' '',
'BUTXT1' '校验信息' '' '' '' '',
'BUTXT' '导入信息' '' '' '' ''.
PERFORM alvfm(zpubform) TABLES it_upload fieldcat USING 'X' ''.
ENDFORM.
FORM set_status USING rt_extab TYPE slis_t_extab.
DATA: lt_exfcode TYPE TABLE OF sy-ucomm.
SET PF-STATUS 'STANDARD1' EXCLUDING lt_exfcode.
ENDFORM. "set_status
FORM user_command USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.
CASE r_ucomm.
WHEN '&BUT80'.
READ TABLE it_upload WITH KEY type = 'E'.
IF sy-subrc EQ 0.
MESSAGE e000(oo) WITH '上传数据存在错误，请重新填写'.
ENDIF.
PERFORM but80."再次推送
ENDCASE.
rs_selfield-row_stable = 'X'.
rs_selfield-col_stable = 'X'.
rs_selfield-refresh = 'X'.
ENDFORM.
FORM but80.
"项目描述
SELECT SINGLE post1,prctr,werks,vbukr,vernr,kalid,profl INTO
( @DATA(ls_post1), @DATA(ls_PRCTR),@DATA(ls_werks),
@DATA(ls_vbukr), @DATA(ls_vernr),@DATA(ls_kalid),@DATA(ls_profl) )
FROM proj
WHERE pspid = @p_pspid.
"利润中心
DATA: ps_post1 TYPE prps-post1,
ps_poski TYPE prps-poski,
ps_vernr TYPE prps-vernr,
ps_belkz TYPE prps-belkz,
ps_fakkz TYPE prps-fakkz.
DATA(ps_posid) = |{ p_pspid }-{ ls_werks }|.
SELECT SINGLE post1,poski,vernr,belkz,fakkz
INTO (@ps_post1,@ps_poski,@ps_vernr,@ps_belkz,@ps_fakkz )
FROM prps
WHERE posid = @ps_posid.
SELECT SINGLE stspd
INTO @DATA(tc_stspd)
FROM tcj41
WHERE profidproj = @ls_profl.
SELECT SINGLE auart
INTO @DATA(tc_auart)
FROM tcn41
WHERE profidnetz = @ls_profl.
LOOP AT it_upload.
*创建网络
CLEAR : gs_net_bus2002_new.
gs_net_bus2002_new-project_definition = p_pspid."is_network-pspid. "项目定义
gs_net_bus2002_new-wbs_element = ps_posid."is_network-posid. "工作分解结构元素 (WBS 元素)
gs_net_bus2002_new-short_text = ls_post1."is_network-ktext. "描述
gs_net_bus2002_new-plant = ls_werks."is_network-werks. "工厂
gs_net_bus2002_new-mrp_controller = 'PS1'."is_network-dispo. "MRP控制者
CALL FUNCTION 'BAPI_PS_INITIALIZATION'.
CALL FUNCTION 'BAPI_BUS2002_CREATE'
EXPORTING
i_network = gs_net_bus2002_new
TABLES
et_return = gt_bapiret2.
LOOP AT gt_bapiret2 INTO gs_bapiret2 WHERE type CA 'AEX'.
ENDLOOP.
IF sy-subrc EQ 0.
CALL FUNCTION 'PS_FLAG_INIT_GLOBAL_FLAGS'.
CALL FUNCTION 'PS_FLAG_SET_GLOBAL_FLAGS'
EXPORTING
i_precommit_ok = 'Y'.
ENDIF.
CHECK sy-subrc NE 0.
CALL FUNCTION 'BAPI_PS_PRECOMMIT'
TABLES
et_return = gt_bapiret2.
LOOP AT gt_bapiret2 INTO gs_bapiret2 WHERE type CA 'AEX'.
ENDLOOP.
IF sy-subrc EQ 0.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'
IMPORTING
return = gs_bapiret2.
CALL FUNCTION 'PS_FLAG_INIT_GLOBAL_FLAGS'.
CALL FUNCTION 'PS_FLAG_SET_GLOBAL_FLAGS'
EXPORTING
i_precommit_ok = 'Y'.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'
IMPORTING
return = gs_bapiret2.
READ TABLE gt_bapiret2 INTO gs_bapiret2 WITH KEY id = 'CNIF_PI'
number = '003'.
IF sy-subrc EQ 0.
ev_aufnr = gs_bapiret2-message_v2.
ENDIF.
IF ev_aufnr IS NOT INITIAL.
PERFORM bdc_dynpro USING 'SAPLCOKO' '2000'.
PERFORM bdc_field USING 'BDC_CURSOR'
'CAUFVD-AUFNR'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=LIST'.
PERFORM bdc_field USING 'CAUFVD-AUFNR'
ev_aufnr.
PERFORM bdc_dynpro USING 'SAPLCOVG' '2000'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=FRML'.
PERFORM bdc_field USING 'BDC_CURSOR'
'AFVGD-VORNR(01)'.
PERFORM bdc_dynpro USING 'SAPLCOVG' '2000'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'BDC_CURSOR'
'AFVGD-EKGRP(01)'.
PERFORM bdc_field USING 'AFVGD-MATKL(01)'
'ZFW'.
PERFORM bdc_field USING 'AFVGD-EKGRP(01)'
it_upload-ekgrp.
PERFORM bdc_field USING 'RC27X-FLG_SERV(01)'
'X'.
PERFORM bdc_field USING 'AFVGD-LTXA1(01)'
'服务采购'.
PERFORM bdc_field USING 'AFVGD-EKORG(01)'
it_upload-ekorg.
PERFORM bdc_dynpro USING 'SAPLMLSP' '0200'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'BDC_CURSOR'
'ESLL-TBTWR(01)'.
PERFORM bdc_field USING 'RM11P-NEW_ROW'
'10'.
PERFORM bdc_field USING 'ESLL-SRVPOS(01)'
it_upload-srvpos.
PERFORM bdc_field USING 'ESLL-MENGE(01)'
it_upload-menge.
PERFORM bdc_field USING 'ESLL-TBTWR(01)'
'1'.
PERFORM bdc_dynpro USING 'SAPLMLSP' '0200'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=ESB'.
PERFORM bdc_field USING 'BDC_CURSOR'
'ESLL-KTEXT1(01)'.
PERFORM bdc_field USING 'RM11P-NEW_ROW'
'10'.
PERFORM bdc_dynpro USING 'SAPLCOVG' '2000'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=BU'.
PERFORM bdc_field USING 'BDC_CURSOR'
'AFVGD-EKGRP(01)'.
SET UPDATE TASK LOCAL.
PERFORM bdcfm(zpubform) TABLES bdcdata bdcreturn
USING 'CN22' 'N'. "BDC MODE A:调试模式
LOOP AT bdcreturn WHERE type = 'S'.
it_upload-butxt = '导入成功'.
ENDLOOP.
LOOP AT bdcreturn WHERE type CA 'AEX'.
CONCATENATE bdcreturn-message msg INTO msg.
it_upload-butxt = msg.
ENDLOOP.
IF it_upload-butxt = '导入成功'.
lv_sys_sta = 'REL'.
SET UPDATE TASK LOCAL.
CALL FUNCTION 'BAPI_PS_INITIALIZATION'.
SET UPDATE TASK LOCAL.
CALL FUNCTION 'BAPI_BUS2002_SET_STATUS' "释放网络
EXPORTING
number = ev_aufnr
set_system_status = 'REL'
TABLES
e_result = lt_result.
LOOP AT lt_result INTO ls_result WHERE message_id CA 'AE'.
it_upload-butxt = it_upload-butxt && ls_result-message_text.
ENDLOOP.
IF sy-subrc EQ 0.
CALL FUNCTION 'PS_FLAG_INIT_GLOBAL_FLAGS'.
CALL FUNCTION 'PS_FLAG_SET_GLOBAL_FLAGS'
EXPORTING
i_precommit_ok = 'Y'.
ENDIF.
CHECK sy-subrc NE 0.
SET UPDATE TASK LOCAL.
CALL FUNCTION 'BAPI_PS_PRECOMMIT'
TABLES
et_return = gt_bapiret2.
LOOP AT gt_bapiret2 INTO gs_bapiret2 WHERE type CA 'AE'.
it_upload-butxt = gs_bapiret2-message && '&' && it_upload-butxt.
ENDLOOP.
IF sy-subrc EQ 0.
SET UPDATE TASK LOCAL.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'
IMPORTING
return = gs_bapiret2.
CALL FUNCTION 'PS_FLAG_INIT_GLOBAL_FLAGS'.
CALL FUNCTION 'PS_FLAG_SET_GLOBAL_FLAGS'
EXPORTING
i_precommit_ok = 'Y'.
ELSE.
SET UPDATE TASK LOCAL.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
IMPORTING
return = gs_bapiret2.
IF sy-subrc = 0.
SELECT
aufk~aufnr
FROM aufk
INNER JOIN prps ON prps~pspnr = aufk~pspel
WHERE prps~posid = @ps_posid
ORDER BY aufnr DESCENDING
INTO TABLE @DATA(lt_aufnr)
UP TO 1 ROWS.
READ TABLE lt_aufnr INTO DATA(wa_aufnr) INDEX 1.
DATA: ls_aufnr TYPE aufnr.
ls_aufnr = wa_aufnr-aufnr.
SELECT SINGLE
ebkn~banfn
FROM ebkn
INNER JOIN aufk ON aufk~aufnr = ebkn~nplnr
WHERE aufk~aufnr = @ls_aufnr
INTO @DATA(ls_BANFN).
IF ls_BANFN IS NOT INITIAL.
it_upload-banfn = ls_BANFN.
it_upload-bnfpo = '10'.
DATA: ls_frgco TYPE t16fc-frgco.
CLEAR: ls_frgco .
ls_frgco = 'Z1'.
IF ls_frgco IS NOT INITIAL.
SET UPDATE TASK LOCAL.
CALL FUNCTION 'BAPI_REQUISITION_RELEASE'
EXPORTING
number = ls_BANFN
rel_code = ls_frgco
item = '00010'
TABLES
return = return
EXCEPTIONS
authority_check_fail = 1
requisition_not_found = 2
enqueue_fail = 3
prerequisite_fail = 4
release_already_posted = 5
responsibility_fail = 6
OTHERS = 7.
DATA(subrc) = sy-subrc.
LOOP AT return WHERE type CA 'AEX'.
CONCATENATE return-message it_upload-butxt INTO it_upload-butxt
SEPARATED BY '/'.
ENDLOOP.
IF sy-subrc EQ 0 OR subrc NE 0.
CONCATENATE 'E:' it_upload-butxt INTO it_upload-butxt.
SET UPDATE TASK LOCAL.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ELSE.
SET UPDATE TASK LOCAL.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
ENDIF.
CLEAR: ls_frgco .
ls_frgco = 'Z2'.
SET UPDATE TASK LOCAL.
CALL FUNCTION 'BAPI_REQUISITION_RELEASE'
EXPORTING
number = ls_BANFN
rel_code = ls_frgco
item = '00010'
TABLES
return = return
EXCEPTIONS
authority_check_fail = 1
requisition_not_found = 2
enqueue_fail = 3
prerequisite_fail = 4
release_already_posted = 5
responsibility_fail = 6
OTHERS = 7.
subrc = sy-subrc.
LOOP AT return WHERE type CA 'AEX'.
CONCATENATE return-message it_upload-butxt INTO it_upload-butxt
SEPARATED BY '/'.
ENDLOOP.
IF sy-subrc EQ 0 OR subrc NE 0.
CONCATENATE 'E:' it_upload-butxt INTO it_upload-butxt.
SET UPDATE TASK LOCAL.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ELSE.
SET UPDATE TASK LOCAL.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
IF sy-subrc = 0.
"抬头数据
poheader-doc_type = 'Z02'."凭证类型
poheader-comp_code = ls_vbukr."公司代码
poheader-vendor = it_upload-lifnr."供应商
PERFORM addzero(zpubform) CHANGING poheader-vendor.
poheader-purch_org = it_upload-ekorg."采购组织
poheader-pur_group = it_upload-ekgrp."采购组
poheader-currency = 'CNY'."货币
poheader-creat_date = sy-datum."PO创建日期,制单日期
poheader-doc_date = sy-datum."PO创建日期
PERFORM setbapix(zpubform) USING poheader CHANGING poheaderx.
"行项目
poitem-po_item = '10'."行项目
"poitem-material = it_upload-srvpos.":物料
poitem-short_text = it_upload-ktext1.
poitem-matl_group = 'ZFW'.
poitem-plant = ls_werks."工厂
poitem-quantity = it_upload-menge."数量
poitem-net_price = it_upload-menge."净价
poitem-price_unit = '1'."价格单位
poitem-po_unit = 'AU'."单位
poitem-tax_code = it_upload-zsm."税码
poitem-preq_no = ls_banfn."采购申请号
poitem-preq_item = '10'."采购申请行号
poitem-acctasscat = 'N'."科目分配类别
poitem-item_cat = 'D'."项目类别K
poitem-wbs_element = |{ p_pspid }{ ls_werks }|."wbs
poitem-pckg_no = '1'.
"计划行
poschedule-po_item = '10'."
poschedule-sched_line = 1."
poschedule-delivery_date = sy-datum."交货日期
poschedule-quantity = it_upload-menge."数量
PERFORM setbapix(zpubform) USING poitem CHANGING poitemx.
PERFORM setbapix(zpubform) USING poschedule CHANGING poschedulex.
APPEND:poitem,poitemx.
APPEND: poschedule,poschedulex.
"科目分配
poaccount-po_item = '10'.
poaccount-serial_no = '01'.
DATA: ls_saknr TYPE saknr.
CLEAR:ls_saknr.
SELECT SINGLE konts
INTO ls_saknr
FROM t030
INNER JOIN asmd ON asmd~bklas = t030~bklas
WHERE asmd~asnum = it_upload-srvpos
AND t030~ktopl = 'WISD'.
poaccount-gl_account = ls_saknr.
poaccount-network = ev_aufnr.
poaccount-activity = '0010'.
PERFORM setbapix(zpubform) USING poaccount CHANGING poaccountx.
APPEND: poaccount,poaccountx.
"服务
poservices-pckg_no = '1'.
poservices-line_no = '1'.
poservices-outl_level = '0'.
poservices-outl_ind = 'X'.
poservices-subpckg_no = '2'.
APPEND poservices.
poservices-pckg_no = '2'.
poservices-line_no = '2'.
poservices-ext_line = '10'.
poservices-outl_level = '0'.
poservices-service = it_upload-srvpos.
poservices-quantity = it_upload-menge.
poservices-base_uom = 'AU'.
poservices-gr_price = '1'.
poservices-short_text = it_upload-ktext1.
poservices-net_value = it_upload-menge.
poservices-pln_pckg = '1'.
poservices-pln_line = '2'.
APPEND poservices.
"服务值
posrvaccessvalues-pckg_no = '2'.
posrvaccessvalues-line_no = '2'.
posrvaccessvalues-serno_line = '1'.
posrvaccessvalues-percentage = '100'.
posrvaccessvalues-serial_no = '1'.
posrvaccessvalues-quantity = it_upload-menge.
posrvaccessvalues-net_value = it_upload-menge.
APPEND posrvaccessvalues.
"EDIT BY DONGPZ AT 28.11.2022 20:18:25增强字段写入
CLEAR:wa_ext,wa_extx.
wa_ext-zsghtbh = it_upload-zsghtbh .
wa_ext-zsghtqdsj = it_upload-zsghtqdsj .
wa_ext-zgcmc = it_upload-zgcmc .
wa_ext-zazsfzr = it_upload-zazsfzr .
wa_extx-zsghtbh = 'X'.
wa_extx-zsghtqdsj = 'X'.
wa_extx-zgcmc = 'X'.
wa_extx-zazsfzr = 'X'.
CLEAR:extensionin.
extensionin-structure = 'BAPI_TE_MEPOHEADER'.
extensionin+30(960) = wa_ext.
APPEND extensionin.
CLEAR:extensionin.
extensionin-structure = 'BAPI_TE_MEPOHEADERX'.
extensionin-valuepart1 = wa_extx.
APPEND extensionin.
SET UPDATE TASK LOCAL.
CALL FUNCTION 'BAPI_PO_CREATE1'
EXPORTING
poheader = poheader
poheaderx = poheaderx
no_price_from_po = 'X'
IMPORTING
exppurchaseorder = exppurchaseorder
TABLES
return = return1
pocond = pocond
pocondx = pocondx
poitem = poitem
poitemx = poitemx
poservices = poservices
poaccount = poaccount
poaccountx = poaccountx
posrvaccessvalues = posrvaccessvalues
poschedule = poschedule
poschedulex = poschedulex
pocomponents = pocomponents
pocomponentsx = pocomponentsx
extensionin = extensionin
potextheader = potextheader
EXCEPTIONS
OTHERS = 1.
subrc = sy-subrc.
LOOP AT return1 WHERE type CA 'AEX'.
CONCATENATE return1-message it_upload-butxt INTO it_upload-butxt
SEPARATED BY '/'.
ENDLOOP.
IF sy-subrc EQ 0 OR subrc NE 0.
CONCATENATE 'E:' it_upload-butxt INTO it_upload-butxt.
SET UPDATE TASK LOCAL.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ELSE.
SET UPDATE TASK LOCAL.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
*更新增强字段
IF sy-subrc = 0.
it_upload-ebeln = exppurchaseorder.
CLEAR: ls_frgco.
ls_frgco = 'Z1'.
SET UPDATE TASK LOCAL.
CALL FUNCTION 'BAPI_PO_RELEASE'
EXPORTING
purchaseorder = exppurchaseorder
po_rel_code = ls_frgco
TABLES
return = return
EXCEPTIONS
authority_check_fail = 1
document_not_found = 2
enqueue_fail = 3
prerequisite_fail = 4
release_already_posted = 5
responsibility_fail = 6
OTHERS = 7.
subrc = sy-subrc.
LOOP AT return WHERE type CA 'AEX'.
CONCATENATE return-message it_upload-butxt INTO it_upload-butxt
SEPARATED BY '/'.
ENDLOOP.
IF sy-subrc EQ 0 OR subrc NE 0.
CONCATENATE 'E:' it_upload-butxt INTO it_upload-butxt.
SET UPDATE TASK LOCAL.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ELSE.
SET UPDATE TASK LOCAL.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
it_upload-butxt = '成功'.
ENDIF.
CLEAR: ls_frgco.
ls_frgco = 'Z2'.
SET UPDATE TASK LOCAL.
CALL FUNCTION 'BAPI_PO_RELEASE'
EXPORTING
purchaseorder = exppurchaseorder
po_rel_code = ls_frgco
TABLES
return = return
EXCEPTIONS
authority_check_fail = 1
document_not_found = 2
enqueue_fail = 3
prerequisite_fail = 4
release_already_posted = 5
responsibility_fail = 6
OTHERS = 7.
subrc = sy-subrc.
LOOP AT return WHERE type CA 'AEX'.
CONCATENATE return-message it_upload-butxt INTO it_upload-butxt
SEPARATED BY '/'.
ENDLOOP.
IF sy-subrc EQ 0 OR subrc NE 0.
CONCATENATE 'E:' it_upload-butxt INTO it_upload-butxt.
SET UPDATE TASK LOCAL.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ELSE.
SET UPDATE TASK LOCAL.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
it_upload-butxt = '成功'.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
MODIFY it_upload.
CLEAR it_upload.
CLEAR ev_aufnr.
CLEAR: bdcdata[], bdcreturn[].
CLEAR:
return1[],
pocond[],
pocondx[],
poitem[],
poitemx[],
poservices[],
poaccount[],
poaccountx[],
posrvaccessvalues[],
poschedule[],
poschedulex[],
pocomponents[],
pocomponentsx[],
extensionin[],
potextheader[].
ENDLOOP.
ENDFORM.
FORM bdc_field USING fnam fval.
CLEAR bdcdata.
bdcdata-fnam = fnam.
bdcdata-fval = fval.
CONDENSE bdcdata-fval.
APPEND bdcdata.
ENDFORM.
FORM bdc_dynpro USING program dynpro.
CLEAR bdcdata.
bdcdata-program = program.
bdcdata-dynpro = dynpro.
bdcdata-dynbegin = 'X'.
APPEND bdcdata.
ENDFORM.
