* Price condition
IF PS_SORDER-MIG_FLG = ' '.
PERFORM FILL_CONDITIONS_CHANGE TABLES CONDITIONS_IN CONDITIONS_INX PT_ITEMS USING LS_SORDER. ELSE.
CONDITIONS_IN[] = PT_CONDTION[]. CONDITIONS_INX[] = PT_CONDTIONX[]. ENDIF.
CALL FUNCTION 'BAPI_SALESORDER_CHANGE' EXPORTING
SALESDOCUMENT = LS_SORDER-VBELN
ORDER_HEADER_IN = ORDER_HEADER_IN （抬头数据） ORDER_HEADER_INX = ORDER_HEADER_INX TABLES
RETURN = PT_RETURN
ORDER_ITEM_IN = ORDER_ITEMS_IN ORDER_ITEM_INX = ORDER_ITEMS_INX CONDITIONS_IN = CONDITIONS_IN CONDITIONS_INX = CONDITIONS_INX
PARTNERCHANGES = PARTNERCHANGES.
READ TABLE PT_RETURN WITH KEY TYPE = 'S' ID = 'V1' NUMBER = '311'.
IF SY-SUBRC EQ 0.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING WAIT = 'X'. ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. ENDIF.
**************************************************************
更改订单文本信息的bapi
lt_order_header_inx-updateflag = 'U'. APPEND lt_order_header_inx.
CONDENSE gt_out-headtext.
lt_order_text-ythd_number = lt_salesdocument. lt_order_text-text_id = 'Z002'. lt_order_text-langu = 1.
lt_order_text-text_line = gt_out-headtext. APPEND lt_order_text.
CALL FUNCTION 'BAPI_SALESORDER_CHANGE' EXPORTING
salesdocument = lt_salesdocument order_header_inx = lt_order_header_inx TABLES
return = lt_return order_text = lt_order_text.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'.
*****************************************************************************
Transaction BAPI
MM01 BAPI_MATERIAL_SAVEDATA MM02 BAPI_MATERIAL_SAVEDATA
VA01 BAPI_SALESORDER_CREATEFROMDAT2 VA02 BAPI_SALESORDER_CHANGE ME21/ME21n BAPI_PO_CREATE1 ME22/ME22n BAPI_PO_CHANGE ME51 BAPI_REQUISITION_CREATE AS01 BAPI_FIXEDASSET_CREATE1 AS02 BAPI_FIXEDASSET_CHANGE
发表于 @ 2010年07月30日
本文来自CSDN博客，转载请标明出处：
http://blog.csdn.net/chfeijj/archive/2010/07/30/5775974.aspx
人事BAPI 及RT 表的取法 收藏 LOOP AT it_tab.
CALL FUNCTION 'CU_READ_RGDIR' EXPORTING
persnr = it_tab-pernr \ IMPORTING
molga = p_molga TABLES
in_rgdir = it_rgdir EXCEPTIONS
no_record_found = 1.
LOOP AT it_rgdir WHERE fpper = p_date.
MOVE it_rgdir-seqnr TO it_tab-seqnr. MODIFY it_tab.
ENDLOOP.
* READ TABLE it_rgdir INDEX 1.
CALL FUNCTION 'PYXX_READ_PAYROLL_RESULT' EXPORTING
employeenumber = it_tab-pernr \ sequencenumber = it_rgdir-seqnr \ CHANGING
payroll_result = it_payroll EXCEPTIONS
illegal_isocode_or_clusterid = 1 error_generating_import = 2 import_mismatch_error = 3 subpool_dir_full = 4 no_read_authority = 5 no_record_found = 6 versions_do_not_match = 7 error_reading_archive = 8 error_reading_relid = 9
OTHERS = 10.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF.
SORT it_payroll-inter-rt BY lgart ASCENDING.
LOOP AT it_payroll-inter-rt INTO st_payroll WHERE lgart = '1001'. \基础工资 it_tab-paym = it_tab-paym + st_payroll-betrg. ENDLOOP.
LOOP AT it_payroll-inter-rt INTO st_payroll WHERE lgart = '1002'. \岗位工资 it_tab-paym = it_tab-paym + st_payroll-betrg. ENDLOOP.
LOOP AT it_payroll-inter-rt INTO st_payroll WHERE lgart = '1003'. \房贴 it_tab-paym = it_tab-paym + st_payroll-betrg. ENDLOOP.
LOOP AT it_payroll-inter-rt INTO st_payroll WHERE lgart = '1004'. \车贴 it_tab-paym = it_tab-paym + st_payroll-betrg. ENDLOOP.
LOOP AT it_payroll-inter-rt INTO st_payroll WHERE lgart = '1004'. \书报费 it_tab-paym = it_tab-paym + st_payroll-betrg. ENDLOOP.
MODIFY it_tab.
IF it_tab-slmax <> it_tab-slmin.
it_tab-avem = ( it_tab-paym - it_tab-slmin ) / ( it_tab-slmax - it_tab-slmin ). ENDIF.
MODIFY it_tab.
* “现薪资”-“所属职级最低薪资”)/（”所属职级最高薪资”-“所属职级最低薪资”）
ENDLOOP.
本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/chfeijj/archive/2009/09/11/4542618.aspx
