<br><font size=2 face="sans-serif">Hi Arghadip,</font>
<br>
<br><font size=2 face="sans-serif">it's been a while I've dealt with the
SRM BADI workflows but two hints:</font>
<br>
<br><font size=2 face="sans-serif">1) </font>
<br>
<br><font size=2 face="sans-serif">Upgrade to the latest support package,
the SRM BADI workflows have been pretty buggy in the beginning...</font>
<br>
<br><font size=2 face="sans-serif">2)</font>
<br>
<br><font size=2 face="sans-serif">I've forgotten the actual notes, but
search OSS for the workflow numbers and the wfl_approve_badi, there are
several notes that give a detailed explanation on the usage of the BADI
in different scenarios.</font>
<br><font size=2 face="sans-serif">The ACTUAL_APPROVAL_INDEX holds the
current index of the approval hierarchy, it is filled automatically by
the system. The APPROVAL_INDEX field in the BADI tables represent the approval
hierarchy. How to fill them depends on your scenario - it might be sufficient
to statically insert 1 - Manager A, 2 - Manager B etc. In other scenarios
you'll have to count them up everytime - so 1,2,3 becomes 4,5,6 and so
on.</font>
<br><font size=2 face="sans-serif">Look up the OSS Notes and start with
a simple solution based on the examples in the notes. It is a good idea
to start with a fixed hard coded hierarchy until you get familiar with
how it works, and then insert your actual approval determination step by
step, this way you can rule out errors caused by a faulty coding to determine
the approvers.</font>
<br>
<br>
<br><font size=2 face="sans-serif">kind regards,</font>
<br><font size=2 face="sans-serif">Veit </font>
<br>
<br>
<br><font size=2 face="sans-serif"><br>
</font><font size=2 color=#0080ff face="Arial"><br>
-- </font><font size=2 color=#b2b2b2 face="Arial"><br>
Dipl. WiInf. Veit Unger <br>
- </font><font size=2 color=blue face="Arial"><u><br>
</u></font><a href=mailto:veit.unger@de.ibm.com><font size=2 color=#0080ff face="Arial"><u>veit.unger@de.ibm.com
</u></font></a><font size=2 color=#b2b2b2 face="Arial"><br>
Telefon: +(49) 170 914 7650 <br>
- </font>
<table width=100%>
<tr>
<td width=100%><a href=http://www.sercon.de/><font size=2 color=#0080ff face="Arial"><u>SerCon
GmbH</u></font></a><font size=3> </font><font size=2 color=#b2b2b2 face="Arial"><br>
Nahmitzer Damm 12 - 12277 Berlin . Germany <br>
c/o IBM Deutschland GmbH <br>
IBM Global Business Services </font></table>
<br>
<br><font size=1 color=#b2b2b2 face="Arial">SerCon Service-Konzepte für
Informations-Systeme GmbH<br>
Geschäftsführung: Jörg Schimetzek, Bernhard Settele<br>
Sitz der Gesellschaft: Ehningen<br>
Registergericht: Amtsgericht Stuttgart, HRB 243109<br>
<br>
</font>
<br>
<br>
<br>
<table width=100%>
<tr valign=top>
<td width=40%><font size=1 face="sans-serif"><b>arghadip kar <arghadipkar@yahoo.com></b>
</font>
<br><font size=1 face="sans-serif">Sent by: sap-wug-bounces@mit.edu</font>
<p><font size=1 face="sans-serif">19.04.2007 15:18</font>
<table border>
<tr valign=top>
<td bgcolor=white>
<div align=center><font size=1 face="sans-serif">Please respond to<br>
"SAP Workflow Users' Group" <sap-wug@mit.edu></font></div></table>
<br>
<td width=59%>
<table width=100%>
<tr valign=top>
<td>
<div align=right><font size=1 face="sans-serif">To</font></div>
<td><font size=1 face="sans-serif">sap-wug@mit.edu</font>
<tr valign=top>
<td>
<div align=right><font size=1 face="sans-serif">cc</font></div>
<td>
<tr valign=top>
<td>
<div align=right><font size=1 face="sans-serif">Subject</font></div>
<td><font size=1 face="sans-serif">SRM Workflow WS14500015 not working
properly</font></table>
<br>
<table>
<tr valign=top>
<td>
<td></table>
<br></table>
<br>
<br>
<br><font size=3>Hi All</font>
<br><font size=3> I am having an issue with WS14500015
SRM Workflow. The Badi has been implemented but it is retrieving only the
First level for a particular Line item of a Shopping Cart. In other words
it is not taking care of the Next approval level. The Workflow is getting
completed though it requires further approval. Can you please tell me how
this parameter ACTUAL_APPROVAL_INDEX should be taken care of. Is this parmeter
used to pass the Approval Index of the Workflow for a particular Line Item.
Can you explain me this thing with what value the parameter ACTUAL_APPROVAL_INDEX
needs to be filled. I am attaching my code. If possible please review.</font>
<br><font size=3>************************************************************************<br>
* PROGRAM ID : IF_EX_BBP_WFL_APPROV_BADI~GET_REMAING_APPROVERS<br>
* PROGRAM TITLE : Method : GET_RENAMING_APPROVERS
*<br>
* AUTHOR : Dharmendra
Kumar
*<br>
* SUPPLIER : IBM
*<br>
* DATE : 17/06/2007
*<br>
* PHASE :<br>
* DEVELOPMENT ID : DHAK
*<br>
* CHANGE REQUEST (CTS) :
*<br>
* DESCRIPTION : THIS METHOD PERFOMS THE
ACTION OF FINDING THE*<br>
*
NUMBER OF APPROVAL LEVELS REQUIRED FOR AN *<br>
*
LINE ITEM IN A SC AND ITS CORROSPONDING *<br>
*
APPROVERS.<br>
*-----------------------------------------------------------------------<br>
METHOD if_ex_bbp_wfl_approv_badi~get_remaing_approvers .<br>
* --------------------------------------------------------------------
*<br>
* Interface parameters:<br>
* --------------------------------------------------------------------
*<br>
* OBJECT_ID TYPE
CRMT_OBJECT_ID "Import<br>
* OBJECT_TYPE TYPE
CRMT_SUBOBJECT_CATEGORY "Import<br>
* GUID
TYPE BBP_GUID_32
"Import<br>
* ACTUAL_APPROVAL_INDEX TYPE SWH_NUMC10
"Import<br>
* APPROVAL_HISTORY_TABLE TYPE BBP_WFL_APPROVAL_HISTORY_BADI
"Import<br>
* ITEM_APPROVAL_HISTORY_TABLE TYPE BBPT_WFL_ITEM_APPROVAL_BADI "Import<br>
* APPROVAL_TABLE TYPE BBPT_WFL_APPROVAL_TABLE_BADI
"Export<br>
* ITEM_APPROVAL_TABLE TYPE BBPT_WFL_ITEM_APPROVAL_BADI
"Export<br>
* NO_FURTHER_APPROVAL_NEEDED TYPE BOOLEAN
"Export<br>
* ITEM_APPROVAL_OBJ TYPE BBPT_WFL_ITEM_APPROVAL_OBJ
"Changing<br>
* --------------------------------------------------------------------
*</font>
<br><font size=3>* This a default implementation that gives idea about
of how line item<br>
* approval should work as well to find the number of approval required<br>
* and to find the approvers.</font>
<br><font size=3>* Global data---------------------------------------------------------*<br>
* TYPES---------------------------------------------------------------*<br>
TYPES : BEGIN OF ty_account.<br>
INCLUDE TYPE bbp_pds_acc.<br>
TYPES: app_crit_name TYPE bbp_wfl_app_criterion,<br>
app_crit_value TYPE char32.<br>
TYPES: END OF ty_account.</font>
<br><font size=3> TYPES :<br>
BEGIN OF ty_item_copy,<br>
app_crit_value1 TYPE bbp_wfl_app_property,<br>
END OF ty_item_copy.</font>
<br><font size=3> TYPES : ty_item_info TYPE STANDARD
TABLE OF zrp2p0bgst001,<br>
ty_account_copy TYPE STANDARD TABLE
OF ty_account.</font>
<br><font size=3>* FIELD-SYMBOLS-------------------------------------------------------*<br>
FIELD-SYMBOLS :<br>
<l_fs_account> TYPE
ty_account.</font>
<br><font size=3>* DATA----------------------------------------------------------------*<br>
DATA : it_item_info TYPE ty_item_info,<br>
wa_item_info TYPE zrp2p0bgst001.</font>
<br><font size=3> DATA : v_tabix TYPE
sytabix,<br>
v_num_apprv TYPE swh_numc10
VALUE '0',<br>
v_value_per_con TYPE bbp_value VALUE
'0',<br>
v_value_per TYPE bbp_value.<br>
DATA : v_temp_value TYPE bbp_value VALUE '0',<br>
v_temp_level TYPE swh_numc10 VALUE '0'.<br>
DATA: v_call_crit1 TYPE bbp_wfl_app_criterion,<br>
v_call_value1 TYPE bbp_wfl_app_property,<br>
v_co_code TYPE
bbp_wfl_app_property,<br>
v_plant_value TYPE bbp_wfl_app_property,<br>
v_account_type TYPE bbp_wfl_app_criterion
,<br>
v_comp_code TYPE bbp_wfl_app_criterion
,<br>
v_plant TYPE
bbp_wfl_app_criterion ,<br>
v_acc_desc TYPE bbp_step_description
.</font>
<br><font size=3> DATA: v_guid
TYPE crmt_object_guid.</font>
<br><font size=3>* WORKAREA------------------------------------------------------------*<br>
DATA: wa_header TYPE bbp_pds_sc_header_d,<br>
* tables and work area.<br>
it_item
TYPE TABLE OF bbp_pds_sc_item_d,<br>
wa_item
TYPE bbp_pds_sc_item_d,<br>
it_item_copy TYPE TABLE
OF bbp_pds_sc_item_d,<br>
wa_item_copy TYPE bbp_pds_sc_item_d,<br>
* accounting structures<br>
it_account TYPE
TABLE OF bbp_pds_acc,<br>
wa_account TYPE
bbp_pds_acc,<br>
wa_account_copy TYPE ty_account,<br>
wa_approver TYPE bbp_wfl_approval_table_badi.</font>
<br><font size=3>* CONSTANTS-----------------------------------------------------------*<br>
* Business objects<br>
CONSTANTS:<br>
c_po TYPE crmt_subobject_category_db
VALUE 'BUS2201',<br>
c_shop TYPE crmt_subobject_category_db
VALUE 'BUS2121',<br>
c_contract TYPE crmt_subobject_category_db
VALUE 'BUS2000113'.</font>
<br><font size=3>* Approval Criteria and properties used<br>
CONSTANTS:<br>
c_cost_centre TYPE bbp_wfl_app_criterion VALUE
'COST_CTR',<br>
c_prod_categ TYPE bbp_wfl_app_criterion VALUE
'PROD_CAT'.</font>
<br><font size=3>* Case when the object type bus212...---------------------------------*</font>
<br><font size=3> CASE object_type.</font>
<br><font size=3> WHEN c_shop.<br>
* ----------- shopping cart ---------------------------------------
*<br>
* Get the details of the shopping cart<br>
CALL FUNCTION 'BBP_PD_SC_GETDETAIL'<br>
EXPORTING<br>
i_object_id = object_id<br>
IMPORTING<br>
e_header = wa_header<br>
TABLES<br>
e_item = it_item<br>
e_account = it_account.</font>
<br><font size=3>* Proceed if it_item is not initial.<br>
IF NOT it_item IS INITIAL.<br>
* Keep the copy the it_item into it_item_copy<br>
* and keep the unique be_plant.<br>
it_item_copy[] = it_item[].<br>
SORT it_item_copy BY be_plant.<br>
DELETE ADJACENT DUPLICATES FROM it_item_copy<br>
COMPARING be_plant.</font>
<br><font size=3> SELECT mandt<br>
zplant<br>
zcost_ctr<br>
zorder_no<br>
zasset_no<br>
zlevel<br>
zvalue<br>
zapprover<br>
FROM zrp2p0bgst001<br>
INTO TABLE it_item_info<br>
FOR ALL ENTRIES IN it_item<br>
WHERE<br>
zplant = it_item-be_plant.<br>
* No sy-subrc check is required as this method is
called only<br>
* if the table contains some value such checks done
before this.<br>
SORT it_item_info BY zplant zcost_ctr<br>
zorder_no zasset_no zlevel
zvalue.</font>
<br><font size=3> SORT it_item BY guid.<br>
SORT it_account BY p_guid.</font>
<br><font size=3>* looping at it_item is done to fetch
the approver for every<br>
* line item<br>
LOOP AT it_item INTO wa_item WHERE del_ind
IS INITIAL.<br>
READ TABLE it_account INTO wa_account<br>
WITH KEY p_guid = wa_item-guid.</font>
<br><font size=3> IF sy-subrc = 0.<br>
v_tabix = sy-tabix.<br>
* looping is done at every account so that
every approver is<br>
* found for every acc corresponding to each
line item.<br>
LOOP AT it_account INTO
wa_account FROM v_tabix.<br>
IF wa_account-p_guid <>
wa_item-guid.<br>
EXIT.<br>
ELSE.<br>
* Comments for process -----------------------------------------------*<br>
* CALCULATING THE VALUE PER COST CENTER /INTERNAL ORDER OR ASSET.<br>
* ALONG WITH ,CALCULATING THE VALUE THE AMT NEED TO BE CONVERTED<br>
* IN USD AS THE VALUES ARE MAINTAINED IN USD.<br>
* SO FUNCTION MODULE IS CALLED TO CONVERT THE WA_ITEM-CURRENCY<br>
* INTO USD USING CONVERT_TO_LOCAL_CURRENCY.<br>
*---------------------------------------------------------------------*<br>
v_value_per_con = wa_account-distr_perc
* wa_item-value / 100.</font>
<br><font size=3>* CALL
FUNCTION 'CONVERT_TO_LOCAL_CURRENCY'<br>
* EXPORTING<br>
** CLIENT
= SY-MANDT<br>
* date
=
sy-datum<br>
* foreign_amount
= v_value_per_con<br>
* foreign_currency
= wa_item-currency<br>
* local_currency
= 'USD'<br>
* type_of_rate
= 'M'<br>
* read_tcurr
= 'X'<br>
* IMPORTING<br>
* local_amount
= v_value_per<br>
* EXCEPTIONS<br>
* no_rate_found
= 1<br>
* overflow
= 2<br>
* no_factors_found
= 3<br>
* no_spread_found
= 4<br>
* derived_2_times
= 5<br>
* OTHERS
= 6<br>
*
.<br>
** if error occurs system generated message is displayed.<br>
* IF sy-subrc <>
0.<br>
* MESSAGE
ID sy-msgid TYPE sy-msgty NUMBER sy-msgno<br>
*
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.<br>
* ENDIF.<br>
*--------------------------------------------------------------------*<br>
v_value_per = v_value_per_con.<br>
*--------------------------------------------------------------------*</font>
<br><font size=3>
READ TABLE it_item_info INTO wa_item_info WITH KEY<br>
zplant = wa_item-be_plant<br>
zcost_ctr = wa_account-cost_ctr<br>
zorder_no = wa_account-order_no<br>
zasset_no = wa_account-asset_no.</font>
<br><font size=3>* Comment on logic----------------------------------------------------*<br>
* AS THE TABLE ZRP2P0BGST001, ONLY ONE OUT OF COST CENTER,<br>
* INTERNAL ORDER AND ASSET NUMBER<br>
* WILL BE FILLED AND REST WILL BE EMPTY, CORRSOPONDING TO COMPANY CODE,<br>
* SO ABOVE WILL FETCH FIRST RECORD AS THE it_ITEM_INFO IS SORTED.<br>
* FIRST RECORD WITH THE REQUIRED VALUE IS READ.<br>
*---------------------------------------------------------------------*<br>
*--------------------------------------------------------------------*<br>
* begin of modification.--<br>
* IF sy-subrc =
0.<br>
* v_temp_value
= wa_item_info-zvalue.<br>
* v_temp_level
= wa_item_info-zlevel.<br>
*<br>
* IF v_value_per
< v_temp_value.<br>
* v_num_apprv
= -1. " NO APPROVER REQUIRED.<br>
*<br>
* ELSE.<br>
* LOOP
AT it_item_info INTO wa_item_info<br>
*
WHERE<br>
*
zplant = wa_item-be_plant
AND<br>
*
zcost_ctr = wa_account-cost_ctr
AND<br>
*
zorder_no = wa_account-order_no
AND<br>
*
zasset_no = wa_account-asset_no .<br>
*<br>
*
IF wa_item_info-zvalue GE v_value_per<br>
*
AND v_value_per GT v_temp_value .<br>
*
v_num_apprv = v_temp_level.<br>
*
EXIT.<br>
*
ELSE.<br>
*
v_temp_value = wa_item_info-zvalue.<br>
*
v_temp_level = wa_item_info-zlevel.<br>
*
ENDIF.<br>
*<br>
* ENDLOOP.<br>
* ENDIF.<br>
*<br>
* IF v_num_apprv
IS INITIAL.<br>
* v_num_apprv
= v_temp_level.<br>
* ENDIF.<br>
* ELSE.<br>
* CLEAR:
v_temp_value,v_temp_level.<br>
* ENDIF.<br>
* end of modification.--<br>
*--------------------------------------------------------------------*<br>
* As the v_num_apprv is
assigned some value other than 0.<br>
* and for all values v_num_apprv
<> -1 it shud proceed.<br>
*-begin of modification ++-------------------------------------------*<br>
v_num_apprv = actual_approval_index
.<br>
*-end of modification ++-------------------------------------------*</font>
<br><font size=3>
IF v_num_apprv <> -1.<br>
* Comment on logic----------------------------------------------------*<br>
* NOW THE NUMBER OF APPROVER IS KNOWN SO THE APPROVER IS<br>
* FOUND USING THE RFC AND THE CUSTOM TABLE ZRP2P0BGST001 IS UPDATED<br>
* WITH LATEST APPROVERS.<br>
*---------------------------------------------------------------------*<br>
* To Find out Account id of what type ie cost center/IO/Asset.</font>
<br><font size=3>
IF NOT wa_account-cost_ctr IS INITIAL.<br>
v_call_value1
= wa_account-cost_ctr.<br>
v_account_type
= 'COST_CTR'.<br>
v_acc_desc
= 'Cost center approval'.<br>
ENDIF.<br>
IF NOT wa_account-order_no
IS INITIAL.<br>
v_call_value1
= wa_account-order_no.<br>
v_account_type
= 'ORDER_NO'.<br>
v_acc_desc
= 'Internal Order approval'.<br>
ENDIF.<br>
IF NOT wa_account-asset_no
IS INITIAL.<br>
v_call_value1
= wa_account-asset_no.<br>
v_account_type
= 'ASSET_NO'.<br>
v_acc_desc
= 'Asset Number approval'.<br>
v_comp_code
= 'COMPANY_CODE'.<br>
v_co_code
= wa_item-be_co_code.<br>
ENDIF.</font>
<br><font size=3>*
Defining the PLANT and plant value.<br>
v_plant
= 'PLANT'.<br>
v_plant_value
= wa_item-be_plant.</font>
<br><font size=3>*
Calling the Custom function to find the approvers.<br>
CALL FUNCTION
'ZBBP_WFL_DIN_ITEM_APPROVAL_GET'<br>
EXPORTING<br>
sc_guid
= wa_header-guid<br>
item_guid
= wa_item-guid<br>
approval_description = v_acc_desc<br>
hide_items_not_responsible = 'X'<br>
* each cost center approver should see only items he is responsible<br>
criterion1
= v_account_type<br>
criterion2
= v_comp_code<br>
criterion3
= v_plant<br>
value1
= v_call_value1<br>
value2
= v_co_code<br>
value3
= v_plant_value<br>
approval_index = v_num_apprv<br>
CHANGING<br>
approval_table = approval_table<br>
item_approval_table = item_approval_table<br>
item_approval_obj = item_approval_obj.</font>
<br><font size=3>
ENDIF.<br>
ENDIF.<br>
CLEAR wa_account.<br>
ENDLOOP.<br>
ENDIF.<br>
ENDLOOP.<br>
* Once done clear the wa_approver<br>
CLEAR: wa_approver , wa_account,wa_item, wa_item_info.<br>
ENDIF.<br>
ENDCASE.<br>
*--------------------------------------------------------------------*<br>
* temporary change adding one more line to apprv table.<br>
IF approval_table IS INITIAL.<br>
no_further_approval_needed = 'X'.<br>
ENDIF.</font>
<br><font size=3>* DATA:<br>
* l_wa_approval_table TYPE bbp_wfl_approval_table_badi.<br>
*<br>
* READ TABLE approval_table INTO l_wa_approval_table INDEX 1.<br>
* l_wa_approval_table-approval_agent = 'USARGK'.<br>
* l_wa_approval_table-approval_index = '0000000003'.<br>
* APPEND l_wa_approval_table TO approval_table.<br>
*--------------------------------------------------------------------*</font>
<br><font size=3>ENDMETHOD.</font>
<br><font size=3> </font>
<br><font size=3> </font>
<br><font size=3> </font>
<br><font size=3> </font>
<br><font size=3> </font>
<br><font size=3> </font>
<br><font size=3>***********************************************************************<br>
* PROGRAM ID : ZBBP_WFL_DIN_ITEM_APPROVAL_GET
*<br>
* PROGRAM TITLE : Fucntion module to find the
approvers *<br>
* AUTHOR : Dharmendra
Kumar
*<br>
* SUPPLIER : IBM
*<br>
* DATE : 16/04/2007
*<br>
* PHASE : BGS<br>
* DEVELOPMENT ID : DHAK
*<br>
* CHANGE REQUEST (CTS) :
*<br>
* DESCRIPTION : THE PURPOSE OF THIS FUNCTION
IS TO FIND THE *<br>
*
APPROVERS RESPECTIVE ACCOUTNS FOR THE SC LINE*<br>
*
ITEMS.
*<br>
*-----------------------------------------------------------------------<br>
FUNCTION zbbp_wfl_din_item_approval_get.<br>
*"----------------------------------------------------------------------<br>
*"*"Local Interface:<br>
*" IMPORTING<br>
*" VALUE(SC_GUID) TYPE BBP_GUID<br>
*" VALUE(ITEM_GUID) TYPE BBP_GUID<br>
*" VALUE(APPROVAL_DESCRIPTION) TYPE BBP_STEP_DESCRIPTION
OPTIONAL<br>
*" VALUE(HIDE_ITEMS_NOT_RESPONSIBLE) TYPE BOOLEAN
OPTIONAL<br>
*" VALUE(CRITERION1) TYPE BBP_WFL_APP_CRITERION<br>
*" VALUE(CRITERION2) TYPE BBP_WFL_APP_CRITERION
DEFAULT ''<br>
*" VALUE(CRITERION3) TYPE BBP_WFL_APP_CRITERION
DEFAULT ''<br>
*" VALUE(VALUE1) TYPE BBP_WFL_APP_PROPERTY DEFAULT
''<br>
*" VALUE(VALUE2) TYPE BBP_WFL_APP_PROPERTY DEFAULT
''<br>
*" VALUE(VALUE3) TYPE BBP_WFL_APP_PROPERTY DEFAULT
''<br>
*" VALUE(APPROVAL_INDEX) TYPE SWH_NUMC10<br>
*" CHANGING<br>
*" REFERENCE(APPROVAL_TABLE) TYPE BBPT_WFL_APPROVAL_TABLE_BADI<br>
*" REFERENCE(ITEM_APPROVAL_TABLE) TYPE BBPT_WFL_ITEM_APPROVAL_BADI<br>
*" REFERENCE(ITEM_APPROVAL_OBJ) TYPE BBPT_WFL_ITEM_APPROVAL_OBJ<br>
*" OPTIONAL<br>
*"----------------------------------------------------------------------<br>
* Local data-----------------------------------------------------------*</font>
<br><font size=3> TYPES: ty_option TYPE STANDARD TABLE OF rfc_db_opt,<br>
ty_fields TYPE STANDARD TABLE OF rfc_db_fld,<br>
ty_data TYPE STANDARD TABLE OF tab512.</font>
<br><font size=3> DATA:<br>
l_wa_approval_table TYPE bbp_wfl_approval_table_badi,<br>
l_wa_item_approval_table TYPE bbps_wfl_item_approval,<br>
l_wa_approval_def TYPE zrp2p0bgst001.</font>
<br><font size=3> DATA:<br>
l_v_app_obj_guid TYPE
bbp_guid_32,<br>
l_v_is_new_approval_object TYPE boolean.</font>
<br><font size=3> DATA : l_it_update_tab TYPE STANDARD TABLE
OF zrp2p0bgst001,<br>
l_it_approval_def TYPE STANDARD TABLE OF zrp2p0bgst001,<br>
l_wa_update_tab TYPE zrp2p0bgst001.</font>
<br><font size=3> DATA : l_it_actor_tab TYPE STANDARD
TABLE OF swhactor,<br>
l_wa_actor_tab TYPE swhactor,<br>
l_it_ac_container TYPE STANDARD TABLE OF swcont,<br>
l_wa_ac_container TYPE swcont.</font>
<br><font size=3> DATA : l_it_options TYPE ty_option,<br>
l_it_fields TYPE ty_fields,<br>
l_it_data TYPE ty_data.</font>
<br><font size=3> DATA : l_wa_options TYPE rfc_db_opt,<br>
l_wa_fields TYPE rfc_db_fld,<br>
l_wa_data TYPE tab512.</font>
<br><font size=3> DATA : l_v_apprv_asset TYPE usnam,<br>
l_v_apprv_cc TYPE verak.</font>
<br><font size=3> DATA : l_v_cost_ctr TYPE bbp_wfl_app_property
VALUE '',<br>
l_v_order_no TYPE bbp_wfl_app_property
VALUE '',<br>
l_v_asset_no TYPE bbp_wfl_app_property
VALUE ''.</font>
<br><font size=3> DATA : l_v_query_table TYPE dd02l-tabname.<br>
DATA : l_apprv_count TYPE char1 VALUE '0'.</font>
<br><font size=3>* Constants-----------------------------------------------------------*<br>
CONSTANTS:<br>
l_c_agent_is_user TYPE otype VALUE 'US'.</font>
<br><font size=3>* Comment on login ---------------------------------------------------*<br>
* First find the right approval object the item belongs to.<br>
* All items of an approval object are approved together in<br>
* this approval step, and therefore only one workitem is<br>
* created for this items.<br>
*---------------------------------------------------------------------*<br>
CALL FUNCTION 'BBP_WFL_DIN_APP_OBJ_GET'<br>
EXPORTING<br>
sc_guid
= sc_guid<br>
criterion1
= criterion1<br>
* CRITERION2 = ''<br>
* CRITERION3 = ''<br>
value1
= value1<br>
* VALUE2
= ''<br>
* VALUE3
= ''<br>
IMPORTING<br>
* If 2 items of the same shopping cart have the same<br>
* values for the criterias, this function returns the<br>
* same (!!!) approval object guid<br>
approval_obj_guid = l_v_app_obj_guid<br>
TABLES<br>
item_app_obj =
item_approval_obj<br>
.<br>
* Check what type of account is ie Order no/Internal order/ASSET.<br>
IF criterion1 = 'ORDER_NO'.<br>
l_v_order_no = value1.<br>
CONCATENATE 'AUFNR' '=' value1 INTO l_wa_options-text<br>
SEPARATED BY space.<br>
APPEND l_wa_options TO l_it_options.</font>
<br><font size=3> l_wa_fields-fieldname = 'AUFNR'.<br>
l_wa_fields-length = '000012'.<br>
l_wa_fields-offset = '000000'.<br>
l_wa_fields-type = 'C'.<br>
APPEND l_wa_fields TO l_it_fields.</font>
<br><font size=3> l_wa_fields-fieldname = 'KOSTV'.<br>
l_wa_fields-length = '000010'.<br>
l_wa_fields-offset = '000000'.<br>
l_wa_fields-type = 'C'.<br>
APPEND l_wa_fields TO l_it_fields.</font>
<br><font size=3> CALL FUNCTION 'RFC_READ_TABLE' DESTINATION
'E10CLNT121'<br>
EXPORTING<br>
query_table =
'COAS'<br>
delimiter
= '|'<br>
TABLES<br>
OPTIONS
= l_it_options<br>
fields
= l_it_fields<br>
data
= l_it_data<br>
EXCEPTIONS<br>
table_not_available = 1<br>
table_without_data = 2<br>
option_not_valid = 3<br>
field_not_valid = 4<br>
not_authorized = 5<br>
data_buffer_exceeded = 6<br>
OTHERS
= 7.</font>
<br><font size=3> IF sy-subrc = 0.</font>
<br><font size=3>* as l_it_data table contains only one record<br>
* so no sorting required.<br>
READ TABLE l_it_data INTO l_wa_data INDEX 1.<br>
value1 = l_wa_data-wa+12(10).</font>
<br><font size=3> ENDIF.<br>
* at the end of this if internal order is passed its responsible<br>
* cost obtained and is placed in value1 field.</font>
<br><font size=3> CLEAR : l_wa_data , l_wa_options , l_wa_fields
,<br>
l_it_data , l_it_options , l_it_fields
.<br>
ENDIF.</font>
<br><font size=3>* RFC to read table for finding the person responsible
for the<br>
* cost center / asset ie approver.<br>
CASE criterion1 .</font>
<br><font size=3> WHEN 'COST_CTR' OR 'ORDER_NO'.</font>
<br><font size=3> IF criterion1 = 'COST_CTR'.<br>
l_v_cost_ctr = value1.<br>
ENDIF.</font>
<br><font size=3> CONCATENATE 'KOSTL' '=' value1 INTO
l_wa_options-text<br>
SEPARATED BY space.<br>
APPEND l_wa_options TO l_it_options.</font>
<br><font size=3> l_wa_fields-fieldname = 'VERAK'.<br>
l_wa_fields-length = '000020'.<br>
l_wa_fields-offset = '000000'.<br>
l_wa_fields-type = 'C'.<br>
APPEND l_wa_fields TO l_it_fields.</font>
<br><font size=3> l_wa_fields-fieldname = 'KOSTL'.<br>
l_wa_fields-length = '000010'.<br>
l_wa_fields-offset = '000000'.<br>
l_wa_fields-type = 'C'.<br>
APPEND l_wa_fields TO l_it_fields.</font>
<br><font size=3> l_v_query_table = 'CSKS'.</font>
<br><font size=3> WHEN 'ASSET_NO' .</font>
<br><font size=3> l_v_asset_no = value1.</font>
<br><font size=3> CONCATENATE 'ANLN1' '=' value1 'AND'
'BUKRS' '=' value2 INTO<br>
l_wa_options-text SEPARATED BY space.<br>
APPEND l_wa_options TO l_it_options.</font>
<br><font size=3> l_wa_fields-fieldname = 'XV0NM'.<br>
l_wa_fields-length = '000012'.<br>
l_wa_fields-offset = '000000'.<br>
l_wa_fields-type = 'C'.<br>
APPEND l_wa_fields TO l_it_fields.</font>
<br><font size=3> l_wa_fields-fieldname = 'ANLN1'.<br>
l_wa_fields-length = '000012'.<br>
l_wa_fields-offset = '000000'.<br>
l_wa_fields-type = 'C'.<br>
APPEND l_wa_fields TO l_it_fields.</font>
<br><font size=3> l_wa_fields-fieldname = 'BUKRS'.<br>
l_wa_fields-length = '000004'.<br>
l_wa_fields-offset = '000000'.<br>
l_wa_fields-type = 'C'.<br>
APPEND l_wa_fields TO l_it_fields.</font>
<br><font size=3> l_v_query_table = 'ANLX'.</font>
<br><font size=3> ENDCASE.</font>
<br><font size=3>* select all the record friom zrp2p0bgst001...<br>
* based on above plant and cost_ctr/io/asset.<br>
SELECT * FROM zrp2p0bgst001<br>
INTO TABLE l_it_update_tab<br>
WHERE<br>
zplant = value3 AND<br>
zcost_ctr = l_v_cost_ctr AND<br>
zorder_no = l_v_order_no AND<br>
zasset_no = l_v_asset_no.</font>
<br><font size=3> IF sy-subrc = 0.<br>
SORT l_it_update_tab BY zplant zcost_ctr<br>
zorder_no zasset_no zlevel zvalue.</font>
<br><font size=3>* now prepare the workarea for updating the table
zrp2p0bgst001.<br>
READ TABLE l_it_update_tab INTO l_wa_approval_def WITH<br>
KEY zplant = value3<br>
zcost_ctr = l_v_cost_ctr<br>
zorder_no = l_v_order_no<br>
zasset_no = l_v_asset_no<br>
zlevel = 1 .<br>
* sy-subrc check not required as the function module is caled<br>
* only when the table contains the value and as such abvoe<br>
* sy-subrc is true so below will fetch atleast one record.</font>
<br><font size=3> ENDIF.</font>
<br><font size=3> CALL FUNCTION 'RFC_READ_TABLE' DESTINATION 'E10CLNT121'<br>
EXPORTING<br>
query_table = l_v_query_table<br>
delimiter =
'|'<br>
TABLES<br>
OPTIONS
= l_it_options<br>
fields
= l_it_fields<br>
data
= l_it_data<br>
EXCEPTIONS<br>
table_not_available = 1<br>
table_without_data = 2<br>
option_not_valid = 3<br>
field_not_valid = 4<br>
not_authorized = 5<br>
data_buffer_exceeded = 6<br>
OTHERS
= 7.</font>
<br><font size=3> IF sy-subrc = 0.<br>
READ TABLE l_it_data INTO l_wa_data INDEX 1.<br>
IF l_v_query_table = 'CSKS'.<br>
l_v_apprv_cc = l_wa_data-wa+0(20).<br>
l_wa_approval_def-zapprover = l_v_apprv_cc.<br>
ENDIF.<br>
IF l_v_query_table = 'ANLX'.<br>
l_v_apprv_asset = l_wa_data-wa+0(12).<br>
l_wa_approval_def-zapprover = l_v_apprv_asset.<br>
ENDIF.<br>
ENDIF.<br>
**********************************************************************<br>
*--BEGING OF CHANGE MAJOR ONE.------------------------------------*<br>
**********************************************************************<br>
* IF ( approval_index = 0 or approval_index = 1. ).</font>
<br><font size=3>* this will pick max three records as per the requirement<br>
DO 3 TIMES.
" begin of do.<br>
l_apprv_count = l_apprv_count + 1.<br>
l_wa_approval_def-zlevel = l_apprv_count .<br>
* if the count is more than one then next level of approver<br>
* is found using the rfc call swx_get_manager and stored as per.<br>
IF l_apprv_count > 1.<br>
l_apprv_count = l_apprv_count - 1.<br>
READ TABLE l_it_update_tab INTO l_wa_update_tab<br>
WITH KEY zlevel = l_apprv_count .<br>
IF sy-subrc = 0 .<br>
* Comment on login ------------------------------------------------*<br>
* NOW FOR FINDING THE SECOND LEVEL OF APPROVER<br>
* 1ST LEVEL OF APPROVER IS FOUND USING ABOVE READ.<br>
* THE FIRST LEVEL OF APPROVER IS USED TO FIND THE SECOND<br>
* LEVEL OF APPROVER USING THE SWX_GET_MANAGER.<br>
* PREPARE THE TABLES FOR SWX_GET_MANAGER<br>
*-------------------------------------------------------------------*<br>
REFRESH : l_it_ac_container.<br>
l_wa_ac_container-element = 'ORG_OBJECT'.<br>
l_wa_ac_container-tab_index = '000001'.<br>
l_wa_ac_container-elemlength = '006'.<br>
l_wa_ac_container-type
= 'C'.<br>
CONCATENATE l_c_agent_is_user l_wa_update_tab-zapprover<br>
INTO l_wa_ac_container-value .<br>
APPEND l_wa_ac_container TO l_it_ac_container.</font>
<br><font size=3> CALL FUNCTION 'SWX_GET_MANAGER'
DESTINATION 'E10CLNT121'<br>
TABLES<br>
actor_tab = l_it_actor_tab<br>
ac_container = l_it_ac_container<br>
EXCEPTIONS<br>
nobody_found = 1<br>
OTHERS =
2.<br>
IF sy-subrc = 0.<br>
READ TABLE l_it_actor_tab INTO l_wa_actor_tab
WITH KEY<br>
otype = l_c_agent_is_user.<br>
l_wa_approval_def-zapprover = l_wa_actor_tab-objid.<br>
ENDIF.<br>
ENDIF.<br>
l_apprv_count = l_apprv_count + 1.<br>
ENDIF.<br>
* before updating populate the table l_it_approval_def<br>
* l_it_update_tab is read based on next l_apprv_count and<br>
* updates the approver and its value.<br>
READ TABLE l_it_update_tab INTO l_wa_update_tab<br>
WITH KEY zlevel = l_apprv_count .<br>
IF sy-subrc = 0.<br>
l_wa_approval_def-zplant = l_wa_update_tab-zplant.<br>
l_wa_approval_def-zcost_ctr = l_wa_update_tab-zcost_ctr.<br>
l_wa_approval_def-zorder_no = l_wa_update_tab-zorder_no.<br>
l_wa_approval_def-zasset_no = l_wa_update_tab-zorder_no.<br>
l_wa_approval_def-zvalue = l_wa_update_tab-zvalue.<br>
APPEND l_wa_approval_def TO l_it_approval_def.<br>
ENDIF.</font>
<br><font size=3>* modify the table l_it_update_tab so that along
with the custom<br>
* database table the table in use in this function module ie<br>
* l_it_update_tab also remain updated.<br>
* benefit is that if the modify to dtab fails. the process works
fine.<br>
MODIFY l_it_update_tab FROM l_wa_approval_def<br>
TRANSPORTING zapprover<br>
WHERE zlevel = l_wa_approval_def-zlevel
AND<br>
zvalue
= l_wa_approval_def-zvalue.</font>
<br><font size=3>* now enqueue the table for modification.<br>
CALL FUNCTION 'ENQUEUE_E_TABLE'<br>
EXPORTING<br>
tabname = 'ZRP2P0BGST001'<br>
EXCEPTIONS<br>
foreign_lock = 1<br>
system_failure = 2<br>
OTHERS = 3.<br>
* now modify the table, for updation of approver.<br>
IF sy-subrc = 0.<br>
MODIFY zrp2p0bgst001 FROM l_wa_approval_def.<br>
* if sy-subrc goes 0 commit work is called.<br>
* also the l_it_update_tab need to be updated.<br>
IF sy-subrc = 0.<br>
COMMIT WORK.</font>
<br><font size=3> ENDIF.<br>
ENDIF.<br>
* now dequeue the table after the updation.<br>
CALL FUNCTION 'DEQUEUE_E_TABLE'<br>
EXPORTING<br>
tabname = 'ZRP2P0BGST001'.<br>
* once all done clear the work areas.<br>
CLEAR : l_wa_approval_def-zlevel , l_wa_approval_def-zapprover.<br>
ENDDO.
" END OF DO STATEMENT.</font>
<br><font size=3>* sort l_it_approval_def table.<br>
SORT l_it_approval_def BY zlevel ASCENDING.</font>
<br><font size=3> IF approval_index = 2 .<br>
DELETE l_it_approval_def INDEX 1.<br>
ENDIF.<br>
IF approval_index = 3.<br>
DELETE l_it_approval_def INDEX 1.<br>
DELETE l_it_approval_def INDEX 1.<br>
ENDIF.<br>
IF approval_index > 3.<br>
REFRESH : l_it_approval_def .<br>
ENDIF.<br>
*ENDIF.<br>
**********************************************************************<br>
*--end of major change.---------------------------------------------*<br>
**********************************************************************<br>
* fill approval table (who is responsible for which approval<br>
* object in which approval step)<br>
SORT l_it_approval_def BY zplant zcost_ctr zorder_no zasset_no<br>
zlevel zvalue.<br>
LOOP AT l_it_approval_def INTO l_wa_approval_def.<br>
l_wa_approval_table-approval_index =
l_wa_approval_def-zlevel.<br>
CONCATENATE l_c_agent_is_user l_wa_approval_def-zapprover<br>
INTO l_wa_approval_table-approval_agent.</font>
<br><font size=3> l_wa_approval_table-approval_description
= approval_description.</font>
<br><font size=3> l_wa_approval_table-approval_object_guid
= l_v_app_obj_guid.</font>
<br><font size=3> l_wa_approval_table-hide_items_not_responsible
=<br>
hide_items_not_responsible.</font>
<br><font size=3> APPEND l_wa_approval_table TO approval_table.<br>
ENDLOOP.<br>
* fill item table (which items belongs to which approval object)<br>
l_wa_item_approval_table-approval_object_guid = l_v_app_obj_guid.<br>
l_wa_item_approval_table-approval_item_guid = item_guid.<br>
APPEND l_wa_item_approval_table TO item_approval_table.</font>
<br><font size=3>ENDFUNCTION.</font>
<br><font size=3> </font>
<br><font size=3> </font>
<br><font size=3> </font>
<br><font size=3>Thanks </font>
<br><font size=3>Arghadip Kar</font>
<br><font size=3> </font>
<p><font size=3> </font>
<hr><font size=3>Ahhh...imagining that irresistible "new car"
smell?<br>
Check out </font><a href="http://us.rd.yahoo.com/evt=48245/*http://autos.yahoo.com/new_cars.html;_ylc=X3oDMTE1YW1jcXJ2BF9TAzk3MTA3MDc2BHNlYwNtYWlsdGFncwRzbGsDbmV3LWNhcnM-"><font size=3 color=blue><u>new
cars at Yahoo! Autos.</u></font></a><font size=3> </font><tt><font size=2>_______________________________________________<br>
SAP-WUG mailing list<br>
SAP-WUG@mit.edu<br>
http://mailman.mit.edu/mailman/listinfo/sap-wug<br>
</font></tt>
<p>