销售订单审批及反审函数:
DATA:ls_zsdt028 TYPE zsdt028,
lt_zsdt028 TYPE TABLE OF zsdt028,
ls_zsdt008 TYPE zsdt008,
lt_zsdt008 TYPE TABLE OF zsdt008,
ls_zsdt027 TYPE zsdt027,
lt_zsdt027 TYPE TABLE OF zsdt027,
ls_vbak TYPE vbak,
ls_zrfct002 TYPE zrfct002,
ls_zrfct005 TYPE zrfct005.
DATA:lv_canum TYPE canum,
lv_zrfc_logid TYPE zsdt008-zrfc_logid,
lv_vbeln TYPE vbak-vbeln.
CLEAR:lt_zsdt008,ls_zsdt008,lv_canum,lv_zrfc_logid,lv_vbeln.
"获取源表数据
CLEAR:lt_zsdt028.
SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_zsdt028 FROM zsdt028 WHERE zrfc_logid = i_id.
IF lt_zsdt028 IS INITIAL.
e_code = 'E'.
e_msg = '无可执行数据'.
RETURN.
ENDIF.
lv_canum = i_canum - 10.
SELECT * INTO TABLE lt_zsdt008 FROM zsdt008 WHERE zrfc_logid = i_id AND canum = lv_canum. "获取上一步审批订单数据
SORT lt_zsdt008 BY zrfc_logid canum.
READ TABLE lt_zsdt008 INTO ls_zsdt008 INDEX 1.
SELECT SINGLE * INTO ls_zsdt027 FROM zsdt027 WHERE zrfcid = ls_zsdt008-zrfcid AND canum = i_canum. ""获取创建时对应的业务流程
SELECT SINGLE zrfc_logid INTO lv_zrfc_logid FROM zsdt008 WHERE zrfcid = ls_zsdt027-zzrfcid AND objkey = ls_zsdt008-objkey."获取源头订单ID
SELECT SINGLE objkey INTO lv_vbeln FROM zsdt008 WHERE zrfc_logid = lv_zrfc_logid AND canum = ls_zsdt027-zcanum.
CLEAR:lt_zsdt028,ls_zsdt028.
SELECT SINGLE * INTO ls_zsdt028 FROM zsdt028 WHERE zrfc_logid = i_id.
IF sy-subrc <> 0.
e_code = 'E'.
e_msg = '无可执行数据'.
RETURN.
ENDIF.
CLEAR:ls_vbak.
SELECT SINGLE *
INTO ls_vbak
FROM vbak
WHERE vbeln = lv_vbeln.
IF sy-subrc <> 0.
e_code = 'E'.
e_msg = '无可执行数据'.
RETURN.
ENDIF.
PERFORM frm_release_so USING ls_vbak-vbeln
'' "10
'X'"20
CHANGING e_code e_msg e_flow_end.
IF e_code = 'E'.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ELSE.
CALL METHOD zcl_rfc=>get_source
EXPORTING
i_id = i_id
i_canum = i_canum
IMPORTING
e_zrfct002 = ls_zrfct002.
* RECEIVING
* R_SOURCE = LS_SOURCE.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
CLEAR:ls_zsdt008.
ls_zsdt008-canum = ls_zrfct002-canum.
ls_zsdt008-objtype = ls_zrfct002-objtype_save.
ls_zsdt008-objkey = ls_vbak-vbeln.
ls_zsdt008-zrfcid = ls_zrfct002-zrfcid.
ls_zsdt008-zrfc_logid = i_id.
APPEND ls_zsdt008 TO lt_zsdt008.
MODIFY zsdt008 FROM TABLE lt_zsdt008.
e_code = 'S'.
CONCATENATE 'SO:' ls_vbak-vbeln '审批成功' INTO e_msg.
* DATA:ls_zrfct005 TYPE zrfct005.
CLEAR:ls_zrfct005.
ls_zrfct005-status = '53'.
ls_zrfct005-msgty = e_code.
ls_zrfct005-msgid = '00'.
ls_zrfct005-msgno = '001'.
ls_zrfct005-msgv1 = e_msg.
ls_zrfct005-msgv4 = ls_vbak-vbeln.
APPEND ls_zrfct005 TO et_return.
ENDIF.
FORM frm_release_so USING uv_vbeln TYPE vbak-vbeln
uv_status10
uv_status20
CHANGING cv_code TYPE msgty
cv_msg TYPE msgtxt
cv_flow_end TYPE char01.
* DATA: lv_mode TYPE c VALUE 'E',
* ls_msg TYPE bdcmsgcoll.
* DATA: BEGIN OF msgtab OCCURS 0.
* INCLUDE STRUCTURE bdcmsgcoll.
* DATA: END OF msgtab.
*
* CLEAR bdcdata[].
*
* PERFORM bdc_dynpro USING 'SAPMV45A' '0102'.
* PERFORM bdc_field USING 'BDC_CURSOR' 'VBAK-VBELN'.
* PERFORM bdc_field USING 'BDC_OKCODE' '/00'.
* PERFORM bdc_field USING 'VBAK-VBELN' uv_vbeln.
*
*
*
*
* PERFORM bdc_dynpro USING 'SAPMV45A' '4001'.
* PERFORM bdc_field USING 'BDC_OKCODE' '=HEAD'.
* PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPMV45A 4021SUBSCREEN_HEADER'.
* PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPMV45A 4701PART-SUB'.
* PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPMV45A 4400SUBSCREEN_BODY'.
* PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPMV45A 4440HEADER_FRAME'.
* PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPMV45A 8310HEAD_USER'.
* PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPLV45W 0400SUBSCREEN_VERTRAG'.
* PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPMV45A 4900SUBSCREEN_TC'.
* PERFORM bdc_field USING 'BDC_CURSOR' 'RV45A-MABNR(01)'.
* PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPMV45A 4050SUBSCREEN_BUTTONS'.
*
* PERFORM bdc_dynpro USING 'SAPMV45A' '4002'.
* PERFORM bdc_field USING 'BDC_OKCODE' '=T\10'.
* PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPMV45A 4012SUBSCREEN_HEADER'.
* PERFORM bdc_field USING 'BDC_CURSOR' 'RV45A-TXT_VBELN'.
* PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPMV45A 4301SUBSCREEN_BODY'.
*
* PERFORM bdc_dynpro USING 'SAPMV45A' '4002'.
* PERFORM bdc_field USING 'BDC_OKCODE' '=KSTC'.
* PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPMV45A 4012SUBSCREEN_HEADER'.
* PERFORM bdc_field USING 'BDC_CURSOR' 'RV45A-TXT_VBELN'.
* PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPMV45A 4301SUBSCREEN_BODY'.
*
*
* PERFORM bdc_dynpro USING 'SAPLBSVA' '0300'.
* PERFORM bdc_field USING 'BDC_OKCODE' '=BACK'.
* PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPLBSVA 0800HEADER'.
* PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPLBSVA 0302SUBSCREEN'.
* PERFORM bdc_field USING 'BDC_CURSOR' 'J_STMAINT-ANWS(01)'.
*
* PERFORM bdc_field USING 'J_STMAINT-ANWS(01)' uv_status10.
* PERFORM bdc_field USING 'J_STMAINT-ANWS(02)' uv_status20.
*
*
* PERFORM bdc_dynpro USING 'SAPMV45A' '4002'.
* PERFORM bdc_field USING 'BDC_OKCODE' '=SICH'.
* PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPMV45A 4012SUBSCREEN_HEADER'.
* PERFORM bdc_field USING 'BDC_CURSOR' 'RV45A-TXT_VBELN'.
* PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPMV45A 4301SUBSCREEN_BODY'.
*
*
*
*
*
*
*
* CALL TRANSACTION 'VA02' USING bdcdata[] MODE lv_mode UPDATE 'E'
* MESSAGES INTO msgtab.
*
** WAIT UP TO 1 SECONDS.
*
* CLEAR bdcdata[].
*
* READ TABLE msgtab INTO ls_msg WITH KEY msgtyp = 'E'.
* IF sy-subrc = 0.
* cv_code = 'E'.
* MESSAGE ID ls_msg-msgid TYPE ls_msg-msgtyp NUMBER ls_msg-msgnr
* WITH ls_msg-msgv1 ls_msg-msgv2 ls_msg-msgv3 ls_msg-msgv4
* INTO cv_msg.
* ENDIF.
DATA:ls_vbak TYPE vbak.
IF uv_status20 IS NOT INITIAL. "审批
SELECT SINGLE * INTO ls_vbak FROM vbak WHERE vbeln = uv_vbeln.
CALL FUNCTION 'STATUS_CHANGE_EXTERN'
EXPORTING
* CHECK_ONLY = ' '
* CLIENT = SY-MANDT
objnr = ls_vbak-objnr
user_status = 'E0002'
* SET_INACT = ' '
* SET_CHGKZ =
* NO_CHECK = ' '
* IMPORTING
* STONR =
* EXCEPTIONS
* OBJECT_NOT_FOUND = 1
* STATUS_INCONSISTENT = 2
* STATUS_NOT_ALLOWED = 3
* OTHERS = 4
.
IF sy-subrc <> 0.
cv_code = 'E'.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
INTO cv_msg.
RETURN.
ENDIF.
ELSEIF uv_status10 IS NOT INITIAL. "反审
SELECT SINGLE * INTO ls_vbak FROM vbak WHERE vbeln = uv_vbeln.
CALL FUNCTION 'STATUS_CHANGE_EXTERN'
EXPORTING
* CHECK_ONLY = ' '
* CLIENT = SY-MANDT
objnr = ls_vbak-objnr
user_status = 'E0001'
* SET_INACT = ' '
* SET_CHGKZ =
* NO_CHECK = ' '
* IMPORTING
* STONR =
* EXCEPTIONS
* OBJECT_NOT_FOUND = 1
* STATUS_INCONSISTENT = 2
* STATUS_NOT_ALLOWED = 3
* OTHERS = 4
.
IF sy-subrc <> 0.
cv_code = 'E'.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
INTO cv_msg.
RETURN.
ENDIF.
ENDIF.
ENDFORM. " FRM_RELEASE_SO
浙公网安备 33010602011771号