Field in ALV for ME51N/ME52N/ME53N

Hi.
I want to include a field in the ALV of transactions for purchase requisitions. I have already enhanced the structure CI_EBANDB with the new fields, so the fields are already in MEREQ3211GRID.
What else I have to do to have this fields available in the ALV with the "Change Layout" option.
Thanks in advance.
Joaquin.

Similar Messages

Activate text for Cost Center for ME51N, ME52N, ME53N

Hi, experts
As a requirement on T/C ME51N, ME52N, ME53N is needed to activate on "Account assignment" tab, the text for Cost Center field, how can I do this?
Thanks in advance.
Is there any path or exit could help with it?

I need to add on Tabstrip "Account assignment" for fields
CO Area and Cost Center text field description ( right side ) for each one.
How can I do this? Thanks in advance.

Additional Data in Header Level for ME51N / ME52N / ME53N

Dear Gurus,
I have one requirement related to apply enhancement for additional fields in purchase requisition header level.
After searching a lot , I dint found any solution for this.
Does anybody have any solution for this.
Regards,
Shibashis.

I need to add on Tabstrip "Account assignment" for fields
CO Area and Cost Center text field description ( right side ) for each one.
How can I do this? Thanks in advance.

EXIT_SAPLMEREQ_003,006,008 FOR ME51N, ME52N,ME53N

I have to add a custom filed to EBAN table. Can anybody help me with the function exit_003,006,008 regarding code.
Functional Design:
Short description
Please enter a new
numeric field “Budget” (ZZ_BUDGET) on purchase requisition item level (EBAN) on
writer Customer Data and on purchase
order item level (EKPO) on writer Customer Data
Please place it above field Project Name.
Make sure that the description “Budget” is available in all languages.
As an amount of money
should be entered, please display field EBAN_WAERS in the Purchase requisition
and EKPO_WAERS in the Purchase order behind the new Budget field and format the
new field in the same way as NETPR (###.###,##).
If somebody filled the budget field in the purchase requisition, it needs to be shown in the purchase order.

In Include ''ZXM02TOP'.
TABLES:ci_ebandb.
In EXIT_SAPLMEREQ_001 ->    INCLUDE ZXM02U01
DATA : lw_preq    TYPE mereq_item,
      CALL METHOD IM_REQ_ITEM->GET_DATA
    RECEIVING
      RE_DATA = W_PREQ.
* Here Populate the   ci_ebandb structure here with value from W_PREQ
Example ci_ebandb-zzcustom_fld = W_PREQ-zzcustom_fld
In Exit - EXIT_SAPLMEREQ_003 -> Include ZXM02U03
   DATA: w_preq TYPE mereq_item.
* Assign value from ci_ebandb to W_PREQ
Example W_PREQ-zzcustom_fld = ci_ebandb-zzcustom_fld.
   CALL METHOD im_req_item->set_data
      EXPORTING
        im_data = w_preq..
EX_CHANGED = 'X'.
Make sure your screen field should have the name with ci_ebandb.
Additionally you can write PBO and PAI logic for screen 111..
Let us know any further help.

SOS: Exit for ME51n/ ME52n/ ME53n/

hello erverybody,
at First i would like to implement the exit mm06e007 but i have no idea how to do it!!
have someone an example, coding or Tips,... ??
Second Problem :
how can I Overwrite the <u>Tapstrips name</u> using exit MEREQ001 ??
please i need a help!!
best regard
dani.

Exits are basically the hooks whcih SAP has provided to add your own code. There are two types of Exits:
1. Customer exits: Implemented as Function Modules within z includes. Anybody can change it and no access key is required.
2. User Exit: Implemented as subroutines within includes (any include except y or z includes). You need access for the specific include and then you can any subroutine (user exit) within that Include.
BADIs are the enhanced version of user exits where the same logic is implemented via classes and object (OOP)
Enchancement point is the latest once introduces with ECC6.0 . Not very sure about that but you can change it without any access key.
Please go through the following link which will help you understand the exits in a much better way:
http://help.sap.com/saphelp_nw04/helpdata/en/bf/ec07a25db911d295ae0000e82de14a/content.htm
http://www.sap-img.com/abap/what-is-the-difference-between-smod-and-cmod.htm
http://sap.niraj.tripod.com/id21.html
http://help.sap.com/saphelp_nw04/helpdata/en/c8/1975cc43b111d1896f0000e8322d00/frameset.htm
http://www.sap-img.com/ab038.htm
User Exits.
http://www.erpgenie.com/sap/abap/code/abap26.htm
http://www.sap-img.com/abap/a-short-tutorial-on-user-exits.htm
http://www.sapgenie.com/abap/code/abap26.htm
http://www.sap-img.com/abap/what-is-user-exits.htm
http://wiki.ittoolbox.com/index.php/HOWTO:Implement_a_screen_exit_to_a_standard_SAP_transaction
http://www.easymarketplace.de/userexit.php
http://www.sap-img.com/abap/a-short-tutorial-on-user-exits.htm
http://www.sappoint.com/abap/userexit.pdfUser-Exit
customer exits
https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/f1a7e790-0201-0010-0a8d-f08a4662562d
Menu Exit.
http://www.sappoint.com/abap/spmp.pdf
http://www.sappoint.com/abap/userexit.pdf
http://www.sapdevelopment.co.uk/enhance/mod_sapmenu.htm
http://www.sapdevelopment.co.uk/enhance/enhancehome.htm
USER EXIT
http://www.sap-img.com/abap/a-short-tutorial-on-user-exits.htm
http://www.sapgenie.com/abap/code/abap26.htm
http://www.sap-img.com/abap/what-is-user-exits.htm
http://wiki.ittoolbox.com/index.php/HOWTO:Implement_a_screen_exit_to_a_standard_SAP_transaction
http://www.easymarketplace.de/userexit.php
http://www.sap-img.com/abap/a-short-tutorial-on-user-exits.htm
http://www.sappoint.com/abap/userexit.pdfUser-Exit
http://www.sap-img.com/ab038.htm
http://help.sap.com/saphelp_46c/helpdata/en/64/72369adc56d11195100060b03c6b76/frameset.htm
http://www.sap-img.com/abap/a-short-tutorial-on-user-exits.htm
http://www.sap-img.com/abap/what-is-user-exits.htm
http://expertanswercenter.techtarget.com/eac/knowledgebaseAnswer/0,295199,sid63_gci982756,00.html
Rewards if useful.........
Minal

Display descriptions of cost center and G/L account in ME51N/ME52N/ME53N

Hi Experts,
Can any one suggest that how to display descriptions of cost center and G/L account in account assignment subscreen- ME51N / ME52N / ME53N.
Thanks in Advance...
Siva

hi
if the field is required then u have to enter them manually
so if this are not required then goto OKB9 here give the default cost center for the Gl acct

Change the name of custom tab in me51n / me52n / me53n

Hi,
I have to add a few custom fields in PR item of transactions me51n / me52n / me53n. I have used the enhancement MEREQ001 for adding the custom fields. The sytem automatically creates a custom tab with the name Customer Tab for the additional fields that I have added using the enhancement MEREQ001 while displaying in me51n / me52n / me53n.
Now I have a requirement to change the name of the custom tab created for transactions me51n / me52n / me53n from Customer Data to Others.
Can anyone suggest me how to go about doing this???
Thanks in advance.
Abhisek.
P.S.:- Points will be be duly awarded 4 helpfull answers.

Hi,
I tried doing whatever you had suggested but it seems that it is not working.
Could you suggest some other way to do this?
Thanks and regards.
Abhisek.

Enhancement in ME51n, ME52n, ME53n,

Hi experts,
I want to add one tab in Purchase requisition screens(, ME51n,ME52n,ME53n). In that tab i need to add some fields. i need to do using MEREQ001 . Can any one tell me how to do it? please......
Thanks
siva
Moderator message: please do more research before asking, show what you have done when posting.
Edited by: Thomas Zloch on Feb 14, 2012

Hi,
You can't use the BADI " ME_PROCESS_REQ_CUST.
The main purpose of this badi is use to validate the PR at different levels. If you see the methods of that BADI for eg :
1. Process_header : This for validating the header part.
2. Process_item : This for validating the line item details.
Like that there are so many methods are there inside this BADI.
You mentioned that you deactivated the Existing Project of PR and i want to know in which package you have mentioned.
If that existing project is not needed you can delete the old one and incoporate the new logic and the old logic in the new project.
Hope you got some idea now.
With Regards,
Sumodh.P

ABAP runtime error while doing ME21N, ME22N, ME23N, ME51N,ME52N, ME53N

Dear All Expert,
I am facing problem while doing ME21N, ME22N, ME23N, ME51N,ME52N, ME53N,
Please find the below ABAP Runtime Error.
Runtime Errors         LOAD_TYPE_VERSION_MISMATCH
Date and Time          10.02.2011 11:13:07
Short text
     Change of a Dictionary structure at runtime of a program.
What happened?
     Runtime error
     The current ABAP program "CL_IM_WRF_MM_PROC_PO==========CP" had to be
      terminated because one
     of the statements could not be executed at runtime.
What can you do?
     Restart the program.
     If the error persists, contact your SAP administrator.
     You can use the ABAP dump analysis transaction ST22 to view and manage
     termination messages, in particular for long term reference.
Error analysis
     The ABAP runtime system detected that the Dictionary-type "WRF_POHF_KOMP_STY"
      changed
     during the flow of the transaction.
     As the type was already used in the old version
     and in the new type should be used in the same transaction in the new
      version, the transaction had to be cancelled to avoid inconsistencies.
How to correct the error
    Try to restart the program.
System environment
    SAP-Release 700
    Application server... "iqe"
    Network address...... "172.25.0.85"
    Operating system..... "Linux"
    Release.............. "2.6.9-55.ELsmp"
    Hardware type........ "x86_64"
    Character length.... 16 Bits
    Pointer length....... 64 Bits
    Work process number.. 0
    Shortdump setting.... "full"
    Database server... "iqe"
    Database type..... "ORACLE"
    Database name..... "IQE"
    Database user ID.. "SAPSR3"
    Terminal................. "MUMJML5727"
    Char.set.... "C"
    SAP kernel....... 700
    created (date)... "Dec 26 2010 20:17:07"
    create on........ "Linux GNU SLES-9 x86_64 cc3.3.3"
    Database version. "OCI_102 (10.2.0.2.0) "
Patch level. 285
Patch text.. " "
Database............. "ORACLE 10.1.0.., ORACLE 10.2.0.., ORACLE 11.2...*"
SAP database version. 700
Operating system..... "Linux 2.6"
Memory consumption
Roll.... 16192
EM...... 25139088
Heap.... 0
Page.... 40960
MM Used. 8038136
MM Free. 4528408
User and Transaction
Client.............. 600
User................ "JKMM"
Language key........ "E"
Transaction......... " "
Transactions ID..... "4D524AD1FD7A42F9E1000000AC190055"
Program............. "CL_IM_WRF_MM_PROC_PO==========CP"
Screen.............. " "
Screen line......... " "
Information on where terminated
    The termination occurred during generation of the ABAP/4 program
     "CL_IM_WRF_MM_PROC_PO==========CP".
    The termination occurred in line 213
    of the source code of program "CL_IM_WRF_MM_PROC_PO==========CM007" (when
     calling the editor 2130).
Source Code Extract
Line SourceCde
183   DATA: l_flag TYPE wrf_pbas_boolean.
184
185   CALL FUNCTION 'WRF_POHF_MSG_READ_PREVIEW_FLAG'
186     IMPORTING
187       e_preview_flag = l_flag.
188
189   IF NOT l_flag IS INITIAL.
190
191     DATA: l_header TYPE REF TO cl_po_header_handle_mm.
192
193     MOVE im_header ?TO l_header.
194
195     CALL METHOD l_header->if_output_mm~preview( ).
196
197     CALL FUNCTION 'WRF_POHF_MSG_RESET_PREV_FLAG'.
198
199 ***$ Widening Cast for printing information.
200 **    CALL FUNCTION 'WRF_POHF_STORE_PRINT_INFO_SET'
201 **      EXPORTING
202 **        im_header = l_header.
203
204 * Printing Preview
205 * IF NOT gv_preview IS INITIAL.
206 *    CALL METHOD l_header->if_output_mm~overview( ).
207 *    CALL METHOD l_header->if_output_mm~preview( ).
208 * clear gv_preview.
209   ENDIF.
210
211 * ENDIF.
212
>>>>> ENDMETHOD.
Internal notes
    The termination was triggered in function "ab_RxDdicStruShareFailed"
    of the SAP kernel, in line 2539 of the module
     "//bas/700_REL/src/krn/runt/abtypload.c#11".
    The internal operation just processed is " ".
    Internal mode was started at 20110210111306.
    Name of the changed type......: "WRF_POHF_KOMP_STY"
    New version of the type.......: 20070508193207
    Old version of the type.......: 20070508193207
    New user......................: "Type" "WRF_POHF_KOMP_STY"
    Version of the new user.......: 20070508193207
    Old user......................: "???" "???"
    Version of the old user.......: "???"
Active Calls in SAP Kernel
Lines of C Stack in Kernel (Structure Differs on Each Platform)
(CTrcStack2+0x78)[0x6cbb78]
(CTrcStack+0xb)[0x6cc17b]
(ab_rabax+0x3be5)[0xb8d985]
(_Z24ab_RxDdicStruShareFailedPKtm4RUDIS0_S1_S0_+0x163)[0xb16823]
(_Z19ab_GetDdicTypeIndexPKtm4RUDI+0x1f6)[0xb0dbb6]
(_Z11ab_LoadViewPtjPKtPK11PROGRAMHEADPj+0x27e)[0xb16ede]
(_Z18ab_GetDdicTypeLoad4RUDI+0x6e)[0xb1705e]
(ab_GetView+0xc1d)[0xb0ee1d]
(_Z20CompressInitRcByDatajPK6CG_DIRjjS1_jj4RUDIPKhj+0x60d)[0xe32b2d]
(_Z21cg_CompressStackFrameP4TRIGjj+0x169)[0xe33399]
(_Z8cg_blkleP3ENV+0x75f)[0xe4779f]
(_Z9sc_cblklePKt8ENV_KINDP7SC_INFO+0x394)[0xe90024]
(sc_blkle+0xdd)[0xec6e4d]
(rs_oper_abap1729+0x37)[0x10eb237]
(rs_expan_abap+0xa1996)[0xfd7a2a]
(_Z8sc_expanj+0x76d)[0xe1d55d]
(_Z5parsejPi+0x258)[0xe19998]
(sc_check+0xb9c)[0xe1857c]
(sc_inclu+0x5fa)[0xe0d50a]
(rs_oper_abap2160+0x3a)[0x1115d6a]
(rs_expan_abap+0xcd41d)[0x10034b1]
(_Z8sc_expanj+0x76d)[0xe1d55d]
(_Z5parsejPi+0x258)[0xe19998]
(sc_check+0xb9c)[0xe1857c]
(sc_checkStart+0x41)[0xe1ac51]
(cg_generate+0xb65)[0xe57755]
(ab_gabap+0x14a)[0xb01a5a]
(dy_gen_abap+0x63c)[0x74428c]
(ab_genprog+0x13d3)[0xb03d13]
(_Z17ab_LoadProgOrTrfoPKtjPj+0xb56)[0x8f9ab6]
(_Z11ab_LoadProgPKtj+0x11)[0x8f9ca1]
(_Z15LoadGlobalClassPKtjjj9ClasState+0x24c)[0x958c2c]
(_Z11FillCfixIntPK4CREFP4CFIXjj9ClasState+0x214)[0x957404]
(_Z11ab_FillCfixtj+0x65)[0x957ae5]
(_Z26ab_CrefToCladId_ActivateOKtPh+0x7d)[0x957b6d]
(_Z8ab_jaboov+0x623)[0x959793]
(_Z8ab_extriv+0x607)[0x8ba9c7]
(_Z9ab_xeventPKt+0x1c1)[0xa1c021]
(_Z8ab_triggv+0x9c)[0xa1c77c]
(ab_run+0x97)[0xbde5c7]
(N_ab_run+0x9)[0x736359]
(dynpmcal+0x669)[0x7333b9]
(dynppai0+0x8eb)[0x734d9b]
(dynprctl+0x3e9)[0x733db9]
(dynpen00+0x4a5)[0x726eb5]
(Thdynpen00+0x359)[0x541bd9]
(TskhLoop+0xc49)[0x54d999]
(ThStart+0x20f)[0x55b29f]
(DpMain+0x2da)[0x4bd49a]
(nlsui_main+0x9)[0x4910c9]
(main+0x33)[0x491103]
/lib64/tls/libc.so.6(__libc_start_main+0xdb)[0x3cde51c3fb]
Please help me to resolve the issue.
Thanks & Regards
SKK

read this part again: The ABAP runtime system detected that the Dictionary-type "WRF_POHF_KOMP_STY" changed during the flow of the transaction. As the type was already used in the old version and in the new type should be used in the same transaction in the new version, the transaction had to be cancelled to avoid inconsistencies. How to correct the error Try to restart the program
how often had you restarted ME21N before you posted this message?
In best case this message appears only once, because the program / or dictionary was changed while you executed ME21N
If many times, then contact your ABAPer, because then he probably did not transport all objects that were changed, or the objects have to be regenerated in your system.

User Exit ME51N/ME52N/ME53N when save purchase requisition

Hi,
I want to validate purchase requisition data for release startegy. If there is no value for release startegy .Then ME51N/ME52N/ME53N populate a custom message before saving.
I have found the Enhancement MEREQ001.Can anyone help me to find the exit because there are 10 user exit for this enhancment.
Thanks in advance,
Harinder

Hi,
Follow the following steps to find the EXIT
1. Open transaction SE24.
2. Now open the object CL_EXITHANDLER in display mode.
3. Go to the method tab and double click on the method GET_INSTANCE.
4. Put a break point on cl_exithandler=>get_class_name_by_interface.
5. Now execute the transaction you want to find EXIT for, it will take you to the above method.
6. Write EXIT_HANDLER in fieldnames and hit enter, it will tell you the EXIT used for your transaction.
7. Hit F8 and it will tell you all the EXITu2019s for your transaction.
Now put break points in each user exit and check which one gets triggered for your transaction.
Regards,
Manish

Checkbox field in ALV for REUSE_ALV_GRID_DISPLAY

how to handle Checkbox field in ALV for REUSE_ALV_GRID_DISPLAY????
For example Alv has displayed 400 entries if user checks 4 entries and wants to donwload only those 4 entries from ALV using Copy to local file option then how should it be done. please provide some help...

REPORT YHRMR_LTC_TAXABLE NO STANDARD PAGE HEADING LINE-SIZE 120.
TYPE-POOLS: SLIS.
Start of Data Declaration                                            *
DATA: G_PLVAR               TYPE PLVAR.
DATA: P_MONTH               TYPE TFMATAGE.
DATA: TOTAL_NO              TYPE I.
DATA: TOTAL_NO_SUM          TYPE I.
DATA: COUNT_15              TYPE I.
DATA: COUNT_15_SUM          TYPE I.
DATA: COUNT_LTC             TYPE I.
DATA: COUNT_LTC_SUM         TYPE I.
DATA: COUNT_ERROR_IT15      TYPE I.
DATA: COUNT_ERROR_IT15_SUM TYPE I.
DATA: COUNT_ERROR_LTC       TYPE I.
DATA: COUNT_ERROR_LTC_SUM   TYPE I.
DATA: COUNT_ENTRY_IT15      TYPE I.
DATA: COUNT_ENTRY_IT15_SUM TYPE I.
--LOCAL TABLE TYPE--
DATA: T_DATA_LTC     LIKE YHRMT_LTC OCCURS 0 WITH HEADER LINE.
DATA: T_DATA_LTC_NEW LIKE YHRMT_LTC OCCURS 0 WITH HEADER LINE.
DATA: T_PA0015 LIKE PA0015 OCCURS 0 WITH HEADER LINE.
DATA: T_P0015 LIKE PA0015 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF T_FINAL OCCURS 0,
      CHECK_BOX(1),
      MANDT        TYPE MANDT,
      PERNR        TYPE PERSNO,
      ABKRS        TYPE ABKRS,
      PERSK        TYPE PERSK,
      WAGETYPE     TYPE LGART,
      LTCSTART     TYPE YAJAHR,
      LTCEND       TYPE YYAJAHR,
      FLAG         TYPE YCHAR1,
      SEQNR        TYPE SEQNR,
      LEVSTART     TYPE URBEG,
      LEVEND       TYPE BDATU_052R,
      PAYDATE      TYPE YBEGDA,
      AMOUNTPAY    TYPE AMUNT,
      TAXYR        TYPE PHK_TAXYR,
      DOCUNO       TYPE YCHAR20,
      DOCUDATE     TYPE YENDDA,
      VOUCHNO      TYPE YCHAR20,
      APDATE       TYPE BPS_APPDA,
      CANCEL_MOD   TYPE YCANCELMOD,
      LTC_IND      TYPE ATZH1,
      APPL_TAG     TYPE YAPPTAG,
      CANCEL_DATE TYPE AEDTM,
      CANCEL_USER TYPE AENAM,
      LASTCHANGE   TYPE AEDTM,
      USERNAME     TYPE AENAM,
      END OF T_FINAL.
DATA: BEGIN OF T_PA0001 OCCURS 0,
      PERNR LIKE PA0001-PERNR,
      ABKRS LIKE PA0001-ABKRS,
      END OF T_PA0001.
--Message Part Declaration--
DATA: BEGIN OF T_SUCCESS OCCURS 0,
      PERNR       TYPE PERSNO,
      MESSAGE(50) TYPE C,
      END OF T_SUCCESS.
DATA: BEGIN OF T_ERROR OCCURS 0,
      PERNR       TYPE PERSNO,
      MESSAGE(50) TYPE C,
      END OF T_ERROR.
--TABLE TYPE OF SLIS TYPE-GROUP--
DATA: G_FLD TYPE SLIS_T_FIELDCAT_ALV,
      G_EV TYPE SLIS_T_EVENT,
      G_SORT TYPE SLIS_T_SORTINFO_ALV,
      G_LST TYPE SLIS_T_LISTHEADER.
DATA: FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
      GD_TAB_GROUP TYPE SLIS_T_SP_GROUP_ALV,
      GD_LAYOUT    TYPE SLIS_LAYOUT_ALV,
      I_EVENTS TYPE SLIS_T_EVENT,
      GD_REPID     LIKE SY-REPID.
--STRUCTURE TYPE OF SLIS TYPE-GROUP--
DATA: L_EV TYPE SLIS_ALV_EVENT.
CONSTANTS : C_PF TYPE SLIS_FORMNAME VALUE 'PF_STATUS_SET',
            C_UCOM TYPE SLIS_FORMNAME VALUE 'USER_COMMAND'.
*---- Start Change by Bibek/Shankar Dated : 12-03-2008 via cmr no : J/08/03/062/1.
DATA: L_ENDDATE   LIKE SY-DATUM.
*---- End   Change by Bibek/Shankar Dated : 12-03-2008 via cmr no : J/08/03/062/1.
End of Data Declaration                                              *
Start of Selection screen Parameters                                 *
SELECTION-SCREEN BEGIN OF BLOCK A WITH FRAME TITLE TEXT-002.
*START CHANGE BY SHAYARI ON 18.02.2008, CMR No.:- J/08/02/323
PARAMETERS:P_ABKRS LIKE PA0001-ABKRS OBLIGATORY.
*END CHANGE BY SHAYARI ON 18.02.2008, CMR No.:- J/08/02/323
*START CHANGE BY BIBEk Dt : 06.03.2008, CMR No.:- J/08/03/062/1
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 1.
SELECTION-SCREEN COMMENT 1(78) TEXT-006 FOR FIELD P_LES.
PARAMETER P_LES RADIOBUTTON GROUP RB1.
SELECTION-SCREEN END OF LINE.
*END CHANGE BY BIBEk Dt : 06.03.2008, CMR No.:- J/08/03/062/1
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 1.
SELECTION-SCREEN COMMENT 1(78) TEXT-003 FOR FIELD P_ONE.
PARAMETER P_ONE RADIOBUTTON GROUP RB1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 1.
SELECTION-SCREEN COMMENT 1(78) TEXT-004 FOR FIELD P_TWO.
PARAMETER P_TWO RADIOBUTTON GROUP RB1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 1.
SELECTION-SCREEN COMMENT 1(78) TEXT-005 FOR FIELD P_MORE.
PARAMETER P_MORE RADIOBUTTON GROUP RB1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK A.
End of Selection screen Parameters                                   *
*Get Plan Version
CALL FUNCTION 'RH_GET_PLVAR'
IMPORTING
    PLVAR = G_PLVAR.
PERFORM CLEAR.
CALL FUNCTION 'HR_JP_MONTH_BEGIN_END_DATE'
EXPORTING
    IV_DATE                   = SY-DATUM
IMPORTING
EV_MONTH_BEGIN_DATE       =
    EV_MONTH_END_DATE         = L_ENDDATE.
SELECT *
FROM YHRMT_LTC
INTO TABLE T_DATA_LTC
WHERE FLAG   = '1'
   AND WAGETYPE = '1640'
   AND LEVEND LE L_ENDDATE
   AND PAYDATE GE '20080101'.
If SY-SUBRC <> 0.
MESSAGE I398(00) with 'No Records to display '.
ENDIF.
DELETE T_DATA_LTC WHERE LEVEND = '00000000'.
*START CHANGE BY BIBEk Dt : 06.03.2008, CMR No.:- J/08/03/062/1
*For Less Than One Month from Leave End Date
IF P_LES = 'X'.
LOOP AT T_DATA_LTC.
    CLEAR P_MONTH.
    CALL FUNCTION 'HR_AUPBS_MONTH_DAY'
      EXPORTING
        BEG_DA   = T_DATA_LTC-LEVEND
        END_DA   = SY-DATUM
      IMPORTING
        NO_MONTH = P_MONTH.
    IF P_MONTH LT '1'.
      T_FINAL-MANDT       = T_DATA_LTC-MANDT.
      T_FINAL-PERNR       = T_DATA_LTC-PERSONNELNO.
      T_FINAL-PERSK       = T_DATA_LTC-PERSK.
      T_FINAL-WAGETYPE    = T_DATA_LTC-WAGETYPE.
      T_FINAL-LTCSTART    = T_DATA_LTC-LTCSTART.
      T_FINAL-LTCEND      = T_DATA_LTC-LTCEND.
      T_FINAL-FLAG        = T_DATA_LTC-FLAG.
      T_FINAL-SEQNR       = T_DATA_LTC-SEQNR.
      T_FINAL-LEVSTART    = T_DATA_LTC-LEVSTART.
      T_FINAL-LEVEND      = T_DATA_LTC-LEVEND.
      T_FINAL-PAYDATE     = T_DATA_LTC-PAYDATE.
      T_FINAL-AMOUNTPAY   = T_DATA_LTC-AMOUNTPAY.
      T_FINAL-TAXYR       = T_DATA_LTC-TAXYR.
      T_FINAL-DOCUNO      = T_DATA_LTC-DOCUNO.
      T_FINAL-DOCUDATE    = T_DATA_LTC-DOCUDATE.
      T_FINAL-VOUCHNO     = T_DATA_LTC-VOUCHNO.
      T_FINAL-APDATE      = T_DATA_LTC-APDATE.
      T_FINAL-CANCEL_MOD = T_DATA_LTC-CANCEL_MOD.
      T_FINAL-LTC_IND     = T_DATA_LTC-LTC_IND.
      T_FINAL-APPL_TAG    = T_DATA_LTC-APPL_TAG.
      T_FINAL-CANCEL_DATE = T_DATA_LTC-CANCEL_DATE.
      T_FINAL-CANCEL_USER = T_DATA_LTC-CANCEL_USER.
      T_FINAL-LASTCHANGE = T_DATA_LTC-LASTCHANGE.
      T_FINAL-USERNAME    = T_DATA_LTC-USERNAME.
      APPEND T_FINAL.
      CLEAR T_FINAL.
    ENDIF.
ENDLOOP.
*For One Month from Leave End Date
ELSEIF P_ONE = 'X'.
LOOP AT T_DATA_LTC.
    CLEAR P_MONTH.
    CALL FUNCTION 'HR_AUPBS_MONTH_DAY'
      EXPORTING
        BEG_DA   = T_DATA_LTC-LEVEND
        END_DA   = SY-DATUM
      IMPORTING
        NO_MONTH = P_MONTH.
    IF P_MONTH EQ '1' AND P_MONTH LT '2'.
      T_FINAL-MANDT       = T_DATA_LTC-MANDT.
      T_FINAL-PERNR       = T_DATA_LTC-PERSONNELNO.
      T_FINAL-PERSK       = T_DATA_LTC-PERSK.
      T_FINAL-WAGETYPE    = T_DATA_LTC-WAGETYPE.
      T_FINAL-LTCSTART    = T_DATA_LTC-LTCSTART.
      T_FINAL-LTCEND      = T_DATA_LTC-LTCEND.
      T_FINAL-FLAG        = T_DATA_LTC-FLAG.
      T_FINAL-SEQNR       = T_DATA_LTC-SEQNR.
      T_FINAL-LEVSTART    = T_DATA_LTC-LEVSTART.
      T_FINAL-LEVEND      = T_DATA_LTC-LEVEND.
      T_FINAL-PAYDATE     = T_DATA_LTC-PAYDATE.
      T_FINAL-AMOUNTPAY   = T_DATA_LTC-AMOUNTPAY.
      T_FINAL-TAXYR       = T_DATA_LTC-TAXYR.
      T_FINAL-DOCUNO      = T_DATA_LTC-DOCUNO.
      T_FINAL-DOCUDATE    = T_DATA_LTC-DOCUDATE.
      T_FINAL-VOUCHNO     = T_DATA_LTC-VOUCHNO.
      T_FINAL-APDATE      = T_DATA_LTC-APDATE.
      T_FINAL-CANCEL_MOD = T_DATA_LTC-CANCEL_MOD.
      T_FINAL-LTC_IND     = T_DATA_LTC-LTC_IND.
      T_FINAL-APPL_TAG    = T_DATA_LTC-APPL_TAG.
      T_FINAL-CANCEL_DATE = T_DATA_LTC-CANCEL_DATE.
      T_FINAL-CANCEL_USER = T_DATA_LTC-CANCEL_USER.
      T_FINAL-LASTCHANGE = T_DATA_LTC-LASTCHANGE.
      T_FINAL-USERNAME    = T_DATA_LTC-USERNAME.
      APPEND T_FINAL.
      CLEAR T_FINAL.
    ENDIF.
ENDLOOP.
*For Two Month from Leave End Date
ELSEIF P_TWO = 'X'.
LOOP AT T_DATA_LTC.
    CLEAR P_MONTH.
    CALL FUNCTION 'HR_AUPBS_MONTH_DAY'
      EXPORTING
        BEG_DA   = T_DATA_LTC-LEVEND
        END_DA   = SY-DATUM
      IMPORTING
        NO_MONTH = P_MONTH.
    IF P_MONTH EQ '2' AND P_MONTH LT '3'.
      T_FINAL-MANDT       = T_DATA_LTC-MANDT.
      T_FINAL-PERNR       = T_DATA_LTC-PERSONNELNO.
      T_FINAL-PERSK       = T_DATA_LTC-PERSK.
      T_FINAL-WAGETYPE    = T_DATA_LTC-WAGETYPE.
      T_FINAL-LTCSTART    = T_DATA_LTC-LTCSTART.
      T_FINAL-LTCEND      = T_DATA_LTC-LTCEND.
      T_FINAL-FLAG        = T_DATA_LTC-FLAG.
      T_FINAL-SEQNR       = T_DATA_LTC-SEQNR.
      T_FINAL-LEVSTART    = T_DATA_LTC-LEVSTART.
      T_FINAL-LEVEND      = T_DATA_LTC-LEVEND.
      T_FINAL-PAYDATE     = T_DATA_LTC-PAYDATE.
      T_FINAL-AMOUNTPAY   = T_DATA_LTC-AMOUNTPAY.
      T_FINAL-TAXYR       = T_DATA_LTC-TAXYR.
      T_FINAL-DOCUNO      = T_DATA_LTC-DOCUNO.
      T_FINAL-DOCUDATE    = T_DATA_LTC-DOCUDATE.
      T_FINAL-VOUCHNO     = T_DATA_LTC-VOUCHNO.
      T_FINAL-APDATE      = T_DATA_LTC-APDATE.
      T_FINAL-CANCEL_MOD = T_DATA_LTC-CANCEL_MOD.
      T_FINAL-LTC_IND     = T_DATA_LTC-LTC_IND.
      T_FINAL-APPL_TAG    = T_DATA_LTC-APPL_TAG.
      T_FINAL-CANCEL_DATE = T_DATA_LTC-CANCEL_DATE.
      T_FINAL-CANCEL_USER = T_DATA_LTC-CANCEL_USER.
      T_FINAL-LASTCHANGE = T_DATA_LTC-LASTCHANGE.
      T_FINAL-USERNAME    = T_DATA_LTC-USERNAME.
      APPEND T_FINAL.
      CLEAR T_FINAL.
    ENDIF.
ENDLOOP.
*For More than Two Month from Leave End Date
ELSEIF P_MORE = 'X'.
LOOP AT T_DATA_LTC.
    CLEAR P_MONTH.
    CALL FUNCTION 'HR_AUPBS_MONTH_DAY'
      EXPORTING
        BEG_DA   = T_DATA_LTC-LEVEND
        END_DA   = SY-DATUM
      IMPORTING
        NO_MONTH = P_MONTH.
    IF P_MONTH GT '2' .
      T_FINAL-MANDT       = T_DATA_LTC-MANDT.
      T_FINAL-PERNR       = T_DATA_LTC-PERSONNELNO.
      T_FINAL-PERSK       = T_DATA_LTC-PERSK.
      T_FINAL-WAGETYPE    = T_DATA_LTC-WAGETYPE.
      T_FINAL-LTCSTART    = T_DATA_LTC-LTCSTART.
      T_FINAL-LTCEND      = T_DATA_LTC-LTCEND.
      T_FINAL-FLAG        = T_DATA_LTC-FLAG.
      T_FINAL-SEQNR       = T_DATA_LTC-SEQNR.
      T_FINAL-LEVSTART    = T_DATA_LTC-LEVSTART.
      T_FINAL-LEVEND      = T_DATA_LTC-LEVEND.
      T_FINAL-PAYDATE     = T_DATA_LTC-PAYDATE.
      T_FINAL-AMOUNTPAY   = T_DATA_LTC-AMOUNTPAY.
      T_FINAL-TAXYR       = T_DATA_LTC-TAXYR.
      T_FINAL-DOCUNO      = T_DATA_LTC-DOCUNO.
      T_FINAL-DOCUDATE    = T_DATA_LTC-DOCUDATE.
      T_FINAL-VOUCHNO     = T_DATA_LTC-VOUCHNO.
      T_FINAL-APDATE      = T_DATA_LTC-APDATE.
      T_FINAL-CANCEL_MOD = T_DATA_LTC-CANCEL_MOD.
      T_FINAL-LTC_IND     = T_DATA_LTC-LTC_IND.
      T_FINAL-APPL_TAG    = T_DATA_LTC-APPL_TAG.
      T_FINAL-CANCEL_DATE = T_DATA_LTC-CANCEL_DATE.
      T_FINAL-CANCEL_USER = T_DATA_LTC-CANCEL_USER.
      T_FINAL-LASTCHANGE = T_DATA_LTC-LASTCHANGE.
      T_FINAL-USERNAME    = T_DATA_LTC-USERNAME.
      APPEND T_FINAL.
      CLEAR T_FINAL.
    ENDIF.
ENDLOOP.
ENDIF.
****Payroll Area Put
SELECT PERNR ABKRS FROM PA0001
INTO CORRESPONDING FIELDS OF TABLE T_PA0001
FOR ALL ENTRIES IN T_FINAL
WHERE PERNR = T_FINAL-PERNR
AND ABKRS = P_ABKRS
AND BEGDA LE SY-DATUM
AND ENDDA GE SY-DATUM.
LOOP AT T_FINAL.
READ TABLE T_PA0001 WITH KEY PERNR = T_FINAL-PERNR.
IF SY-SUBRC = 0.
    T_FINAL-ABKRS = T_PA0001-ABKRS.
    MODIFY T_FINAL.
    CLEAR T_FINAL.
ENDIF.
ENDLOOP.
CLEAR T_FINAL.
DELETE T_FINAL WHERE ABKRS = ''.
*Output Form ALV List
PERFORM ALV.
*&      Form ALV
FORM ALV .
PERFORM BUILD_FIELDCATALOG.
PERFORM BUILD_EVENT.
PERFORM DISPLAY_DATA.
ENDFORM.                    " ALV
*&      Form BUILD_FIELDCATALOG
FORM BUILD_FIELDCATALOG .
FIELDCATALOG-TABNAME     = 'T_FINAL'.
FIELDCATALOG-FIELDNAME   = 'PERNR'.
FIELDCATALOG-SELTEXT_M   = 'Personnel number'.
FIELDCATALOG-COL_POS     = 1.
FIELDCATALOG-OUTPUTLEN   = 17.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-TABNAME     = 'T_FINAL'.
FIELDCATALOG-FIELDNAME   = 'ABKRS'.
FIELDCATALOG-SELTEXT_M   = 'Payroll Area'.
FIELDCATALOG-COL_POS     = 2.
FIELDCATALOG-OUTPUTLEN   = 17.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-TABNAME     = 'T_FINAL'.
FIELDCATALOG-FIELDNAME   = 'LTCSTART'.
FIELDCATALOG-SELTEXT_M   = 'LTC Start year'.
FIELDCATALOG-COL_POS     = 3.
FIELDCATALOG-OUTPUTLEN   = 15.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-TABNAME     = 'T_FINAL'.
FIELDCATALOG-FIELDNAME   = 'LTCEND'.
FIELDCATALOG-SELTEXT_M   = 'LTC End year'.
FIELDCATALOG-COL_POS     = 4.
FIELDCATALOG-OUTPUTLEN   = 15.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-TABNAME     = 'T_FINAL'.
FIELDCATALOG-FIELDNAME   = 'LEVSTART'.
FIELDCATALOG-SELTEXT_M   = 'Start of leave'.
FIELDCATALOG-COL_POS     = 5.
FIELDCATALOG-OUTPUTLEN   = 15.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-TABNAME     = 'T_FINAL'.
FIELDCATALOG-FIELDNAME   = 'LEVEND'.
FIELDCATALOG-SELTEXT_M   = 'End of leave'.
FIELDCATALOG-COL_POS     = 6.
FIELDCATALOG-OUTPUTLEN   = 15.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-TABNAME     = 'T_FINAL'.
FIELDCATALOG-FIELDNAME   = 'AMOUNTPAY'.
FIELDCATALOG-SELTEXT_M   = 'Amount'.
FIELDCATALOG-DO_SUM      = 'X'.
FIELDCATALOG-COL_POS     = 7.
FIELDCATALOG-OUTPUTLEN   = 13.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-TABNAME     = 'T_FINAL'.
FIELDCATALOG-FIELDNAME   = 'PAYDATE'.
FIELDCATALOG-SELTEXT_M   = 'Payment Date'.
FIELDCATALOG-COL_POS     = 8.
FIELDCATALOG-OUTPUTLEN   = 15.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-TABNAME     = 'T_FINAL'.
FIELDCATALOG-FIELDNAME   = 'APPL_TAG'.
FIELDCATALOG-SELTEXT_M   = 'Application Tag '.
FIELDCATALOG-COL_POS     = 9.
FIELDCATALOG-OUTPUTLEN   = 15.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
*Check Box Field Add
CLEAR GD_LAYOUT.
GD_LAYOUT-BOX_FIELDNAME = 'CHECK_BOX'.
GD_LAYOUT-BOX_TABNAME = 'T_FINAL'.
ENDFORM.                    " BUILD_FIELDCATALOG
*&      Form BUILD_EVENT
FORM BUILD_EVENT .
*Event Handler
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      I_LIST_TYPE     = 0
    IMPORTING
      ET_EVENTS       = G_EV
    EXCEPTIONS
      LIST_TYPE_WRONG = 1
      OTHERS          = 2.
IF SY-SUBRC <> 0.
ELSE.
    READ TABLE G_EV INTO L_EV WITH KEY NAME = SLIS_EV_PF_STATUS_SET.
    IF SY-SUBRC = 0.
      MOVE C_PF TO L_EV-FORM.
      MODIFY G_EV FROM L_EV INDEX SY-TABIX TRANSPORTING FORM.
    ENDIF.
    READ TABLE G_EV INTO L_EV WITH KEY NAME = SLIS_EV_USER_COMMAND.
    IF SY-SUBRC = 0.
      MOVE C_UCOM TO L_EV-FORM.
      MODIFY G_EV FROM L_EV INDEX SY-TABIX TRANSPORTING FORM.
    ENDIF.
ENDIF.
ENDFORM.                    " BUILD_EVENT
*&      Form DISPLAY_DATA
FORM DISPLAY_DATA .
GD_REPID = SY-REPID.
CLEAR I_EVENTS. REFRESH I_EVENTS.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM       = GD_REPID
      I_CALLBACK_PF_STATUS_SET = C_PF
      I_CALLBACK_USER_COMMAND = C_UCOM
      IS_LAYOUT                = GD_LAYOUT
      IT_FIELDCAT              = FIELDCATALOG[]
      IT_EVENTS                = G_EV
    TABLES
      T_OUTTAB                 = T_FINAL.
ENDFORM.                    " DISPLAY_DATA
      FORM PF_STATUS_SET                                            *
FORM PF_STATUS_SET USING RX_TAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'LTC'.
ENDFORM.                    "PF_STATUS_SET
      FORM USER_COMMAND                                             *
FORM USER_COMMAND USING R_UCOM LIKE SY-UCOMM
                        RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOM.
    WHEN 'POST'.
      PERFORM POST_IT15_LTC_TABLE.
ENDCASE.
ENDFORM.                    "USER_COMMAND
*&      Form POST_IT15_LTC_TABLE
FORM POST_IT15_LTC_TABLE .
ENDFORM.                    " POST_IT15_LTC_TABLE
*&      Form clear
FORM CLEAR .
CLEAR   T_DATA_LTC.
REFRESH T_DATA_LTC.
CLEAR   T_DATA_LTC_NEW.
REFRESH T_DATA_LTC_NEW.
CLEAR   T_FINAL.
REFRESH T_FINAL.
CLEAR   T_PA0015.
REFRESH T_PA0015.
CLEAR   T_SUCCESS.
REFRESH T_SUCCESS.
CLEAR   T_ERROR.
REFRESH T_ERROR.
CLEAR G_PLVAR.
CLEAR P_MONTH.
CLEAR COUNT_15.
CLEAR COUNT_15_SUM.
CLEAR COUNT_LTC.
CLEAR COUNT_LTC_SUM.
CLEAR TOTAL_NO.
CLEAR TOTAL_NO_SUM.
CLEAR COUNT_ERROR_IT15.
CLEAR COUNT_ERROR_IT15_SUM.
CLEAR COUNT_ERROR_LTC.
CLEAR COUNT_ERROR_LTC_SUM.
CLEAR COUNT_ENTRY_IT15.
CLEAR COUNT_ENTRY_IT15_SUM.
ENDFORM.                    " clear

Availability Overview in ME51N, ME52N, ME53N

Hi,
When I go to the menu path Environment -> Availability in transactions ME51N, ME52N or ME53N, nothing happens. The expected behaviour is the display of availability overview as in transactions ME21N, ME22N, ME23N.
I found the same thing to happen in several SAP systems. What is the reason behind this strange behavior?
Thank you.
Helpful answers will be rewarded.

Availability check only possible for stock transfer items

Exit / BADI for ME51N / ME52N

Hi experts,
I have the following requirement:
1. In transactions ME51N / ME52N, the long text field for the item (Item Text) must be made read-only if the PR is already approved / released (release strategy indicator = '2').
2. The PR workflow approvers must recieve an e-mail if this text has been changed while the PR is still blocked / not fully approved (release strategy indicator = 'X').
I'm guessing both can be achieved through BADI implementations (in this case, IF_EX_ME_REQ_POSTED~POSTED), but I've read a lot about various Exits in these transactions, and now I'm not sure if this is the right one. Can you help me?
PS.: I'm not completely familiar with BADIs and Exits, so please bear with me on this.

Thanks for the replies.
The MM consultant is still looking for a way to grey out the text field within SPRO. It's not an easy requirement
Regarding the text changes, I followed your advices and I'm now trying to implement my code within the exit EXIT_SAPLMEREQ_005 (it's triggered right after the user saves the document, so it makes sense). The problem now is that when this exit is called, the changes made to the item text are already committed, and I can't compare the new text with the old one.
I also tried implementing ME_REQ_PROCESS_ITEM, but it doesn't seem to be called from ME52N.
Isn't there a log for long text changes? It would be really easy to just read CDHDR / CDPOS and know if the text has been changed. Also, is this text the same text from material master? If it is, I guess it would be easier to log its changes, right?
Will appreciate your input on this.
Regards,
Leo

Obrigatory Number Service on ME51N,ME52N,ME53N for company or plant

Staff
I wonder if it is possible to make the number of mandatory service as a company or plant in transaction ME51N and ME52N and ME53N.
I used trransação OLMSRV - Set Screen Layout but it makes the number of mandatory service for all the company's and plans.
Sorry for my english

>
Hi Sandipan, sorry for the late, I tried to manage this task but without success.
The user exit I'm working on in EXIT_SAPLBBPK_001.
FUNCTION EXIT_SAPLBBPK_001.
*"*"Lokale Schnittstelle:
*" IMPORTING
*"     VALUE(IM_BBPDECDATA) LIKE BBPDECDATA STRUCTURE BBPDECDATA
*"     VALUE(IV_MANU_PROF) TYPE MANPRC OPTIONAL
*" CHANGING
*"     VALUE(CH_PROFILE) LIKE T160EX-EPROFILE
INCLUDE ZXBBPU04.
ENDFUNCTION.
It includes ZXBBPU04, in which I have to understand if I'm working on a Purch. requisition in MODIFY mode or in CREATE mode.

New columns in Enjoy Preq (ME51N/ME52N/ME53N) overview ALV

Hi all,
I want to add some new columns in the overview subscreen of the Enjoy Purchase Requisition transactions (ME21N/ME22N/ME23N).
I've added some fields on item level of the PReq, via the enhancement MEREQ001 (in the Customer include CI_EBANDB). I want to display these fields in the ALV, in each line, as last columns of the corresponding lines.
Can I do that?
Thank you,
Bogdan

You need to do some config in SPRO ( Xn )
MM --> Purchasing --> Purchase Req -->Define Scree Layout at document level.
Then just keep on clicking wherver you can . Bascially on the lines.
Then you need to do the config for the particular doc types / all the doc types.
The new field should be visible over there.
Field selection key
Determines, for the relevant purchasing document type, which attributes
    the fields of the purchasing document are to have.
Use
You maintain the field attributes for the relevant document in the step
    Define Screen Layout at Document Level.
The following field attributes are possible:
o   Must be maintained
o   Can be maintained
o   Hidden
o   Displayed only

Field in ALV for ME51N/ME52N/ME53N

Similar Messages

Maybe you are looking for