继续示例
loop at LT_WBS into LS_WBS.
clear LT_BPAK.
select single OBJNR into LT_BPAK-E_OBJNR
from PRPS
where PSPNR = LS_WBS-PSPNR.
LT_BPAK-E_VORGA = 'KSTP'.
LT_BPAK-E_VERSN = '000'.
LT_BPAK-TWAER = CNS_WAERS.
LT_BPAK-WERT = LS_WBS-ZGSSUM.
append LT_BPAK.
endloop.
call function 'KBPP_EXTERN_UPDATE_CO'
exporting
I_BUDGET_ACTIVITY = 'KSTP'
* I_BUDGET_ACTIV_SUP_RET = ' '
* I_COMMIT_DATA = ' '
I_DELTA_AMOUNTS = '' "X表示追加，空表示替代
I_ROLLUP_DATA = '' "X表示向顶层汇总
* I_CHECK_PLAN_DATA = ''
* I_APPLICATION =
I_COMMIT_ALL = 'X'
* IMPORTING
* E_ERRORS_FOUND =
tables
IT_BPAK = LT_BPAK
IT_RETURN = LT_RETURN
exceptions
NO_UPDATE = 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.
message E000 with '项目' P_PSPID '概算更新失败，请检查后再试！'.
else.
message S000 with '项目' P_PSPID '概算更新成功。'.
endif.
另一个示例
****Updating the Budget update ( WRTTP = 41 and VORGA = KBUD)
IF wa_final-budg_upd NE 0.
wa_bpak-s_profil = v_bprof.
wa_bpak-twaer = v_twaer.
wa_bpak-e_objnr = wa_final-objnr.
wa_bpak-s_wrttp = c_41.
wa_bpak-s_vorga = c_kbud.
wa_bpak-wert = wa_final-budg_upd.
APPEND wa_bpak TO it_bpak.
CALL FUNCTION 'KBPP_EXTERN_UPDATE_CO'
EXPORTING
i_budget_activity = wa_bpak-s_vorga
i_budget_activ_sup_ret = ' '
i_commit_data = c_x
i_delta_amounts = ' '
i_rollup_data = c_x
i_check_plan_data = c_x
TABLES
it_bpak = it_bpak
it_return = it_return.
IF NOT it_return IS INITIAL.
LOOP AT it_return INTO wa_return WHERE type = c_e.
wa_error-budg_upd = wa_return-message.
ENDLOOP.
ELSE.
wa_error-budg_upd = text-003. "'Updated'.
PERFORM transaction_commit.
ENDIF.
ELSE.
wa_error-budg_upd = text-004.
ENDIF.
第三个示例
Read data from CJ30 or budget of a project
*&---------------------------------------------------------------------*
*$*$ Exit : EXIT_SAPLCNAU_002 *$*$
*$*$ Project : ZPS0000 *$*$
*$*$ Enhancement : CNEX0002 *$*$
*$*$ -------------------------------------------------------------- *$*$
*&---------------------------------------------------------------------*
*& Include ZXCN1U06 *
*&---------------------------------------------------------------------*
*declaracao de dados para tratamento das transacoes CJ30,CJ32,CJ37,cj38
DATA: tvarvc TYPE tvarvc.
DATA: v_text(40) TYPE c.
DATA: i_tget_exp LIKE bpge_id.
DATA: li_qtdreg TYPE i.
FIELD-SYMBOLS: <fs_tge> TYPE STANDARD TABLE.
FIELD-SYMBOLS: <fs_tget> TYPE bpge_id.
FIELD-SYMBOLS: <fs_tget_aux> TYPE bpge_id.
IF sy-tcode EQ 'CJ30' OR
sy-tcode EQ 'CJ32' OR
sy-tcode EQ 'CJ37' OR
sy-tcode EQ 'CJ38'.
v_text = '(SAPLKBPP)T_GE[]'.
ASSIGN (v_text) TO <fs_tge>.
IF <fs_tge> IS ASSIGNED.
li_qtdreg = lines( <fs_tge> ).
LOOP AT <fs_tge> ASSIGNING <fs_tget>.
CASE sy-tcode.
WHEN 'CJ30' OR 'CJ32'.
IF <fs_tget>-vorga = 'KBUD'.
MOVE <fs_tget> TO i_tget_exp.
* Export to class ZCL_IM__IM_BEHAVIOUR
EXPORT i_tget_exp TO MEMORY ID 'i_tget_exp'.
EXIT.
ENDIF.
WHEN 'CJ37'.
IF <fs_tget>-vorga = 'KBN0'.
MOVE <fs_tget> TO i_tget_exp.
* Export to class ZCL_IM__IM_BEHAVIOUR
EXPORT i_tget_exp TO MEMORY ID 'i_tget_exp'.
EXIT.
ELSEIF sy-tabix = li_qtdreg.
READ TABLE <fs_tge> INDEX 1 ASSIGNING <fs_tget_aux>.
MOVE <fs_tget_aux> TO i_tget_exp.
CLEAR: i_tget_exp-wtges.
* Export to class ZCL_IM__IM_BEHAVIOUR
EXPORT i_tget_exp TO MEMORY ID 'i_tget_exp'.
ENDIF.
WHEN 'CJ38'.
IF <fs_tget>-vorga = 'KBR0'.
MOVE <fs_tget> TO i_tget_exp.
* Export to class ZCL_IM__IM_BEHAVIOUR
EXPORT i_tget_exp TO MEMORY ID 'i_tget_exp'.
EXIT.
ELSEIF sy-tabix = li_qtdreg.
READ TABLE <fs_tge> INDEX 1 ASSIGNING <fs_tget_aux>.
MOVE <fs_tget_aux> TO i_tget_exp.
CLEAR: i_tget_exp-wtges.
* Export to class ZCL_IM__IM_BEHAVIOUR
EXPORT i_tget_exp TO MEMORY ID 'i_tget_exp'.
ENDIF.
ENDCASE.
ENDLOOP.
ENDIF.
*&---------------------------------------------------------------------*
*$*$ Class : ZCL_IM__IM_BEHAVIOUR *$*$
*$*$ BAdI : IM_BEHAVIOUR *$*$
*$*$ Implementation : Z_IM_BEHAVIOUR *$*$
*&---------------------------------------------------------------------*
METHOD if_ex_im_behaviour~get_behaviour .
* Declaracao de dados para implementacao das transacoes CJ30, CJ32,CJ38
DATA: tvarvc TYPE tvarvc.
DATA: v_text(40) TYPE c.
DATA: i_tget_exp TYPE bpge_id.
FIELD-SYMBOLS: <fs_tge> TYPE ANY TABLE,
<fs_tget> TYPE bpge_id.
IF sy-tcode EQ 'CJ30' OR
sy-tcode EQ 'CJ32' OR
sy-tcode EQ 'CJ37' OR
sy-tcode EQ 'CJ38'.
* Import da EXIT_SAPLCNAU_002
IMPORT i_tget_exp TO i_tget_exp FROM MEMORY ID 'i_tget_exp'.
v_text = '(SAPLKBPP)T_GE[]'.
ASSIGN (v_text) TO <fs_tge>.
LOOP AT <fs_tge> ASSIGNING <fs_tget>.
IF <fs_tget>-epos = 'X'.
* Conditions CJ30
IF ( sy-tcode = 'CJ30' AND <fs_tget>-vorga = 'KBUD' ) AND
( ( <fs_tget>-objnr EQ i_tget_exp-objnr AND
<fs_tget>-wtges NE i_tget_exp-wtges ) OR
( <fs_tget>-wtges NE i_tget_exp-wtges AND
i_tget_exp-objnr IS INITIAL ) )
* Conditions CJ32
OR ( sy-tcode = 'CJ32' AND <fs_tget>-vorga = '*ADD' )
* Conditions CJ37
OR ( sy-tcode = 'CJ37' AND <fs_tget>-vorga = 'KBN0' ) AND
( <fs_tget>-objnr EQ i_tget_exp-objnr AND
<fs_tget>-wtges NE i_tget_exp-wtges )
* Conditions CJ38
OR ( sy-tcode = 'CJ38' AND <fs_tget>-vorga = 'KBR0' ) AND
( <fs_tget>-objnr EQ i_tget_exp-objnr AND
<fs_tget>-wtges NE i_tget_exp-wtges ).
SELECT SINGLE *
FROM tvarvc
INTO tvarvc
WHERE name = 'PS_CONT_ORC_N1'
AND low = sy-uname.
IF sy-subrc NE 0.
MESSAGE ID 'ZPS' TYPE 'E' NUMBER '117' WITH sy-uname.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF. " Fim CJ30, CJ32, CJ37 e CJ38
ENDIF.
ENDMETHOD. "if_ex_im_behaviour~get_behaviour
