ABAPblog.com - by Łukasz Pęgiel

Enhanced MB51 Part 3 - Get selection parameters

1 1 1 1 1 Rating 0% (0 Votes)

Attachments:
ZAB_MB51_CALL.nugg

Tags: RS_REFRESH_FROM_SELECTOPTIONS , MB51 , RM07DOCS

As I have needed types I can start to create methods which I need. Firstly fast method the read select-option data from any program which will call our class. I will use here FM RS_REFRESH_FROM_SELECTOPTIONS . If you're thinking about it's restrictions to keep only 40 characters from screen parameters then please check your system as for some of the new versions this FM contains a table parameter of structure RSPARAMSL_255 which allows to store up to 255 characters.

Importing:

i_progname type sy-repid

Changing:

it_seltab type rsparams_tt

Implementation:

method get_selection_screen_criteria.

  call function 'RS_REFRESH_FROM_SELECTOPTIONS'
exporting
      curr_report     = i_progname
    tables
      selection_table = it_seltab
    exceptions
      not_found       = 1
      no_report       = 2
      others          = 3.
    case sy-subrc.
    when 0.
    when 1.
      "raise not_found.
    when 2.
      "raise no_report.
    when others.
      "raise other_error.
    endcase.

endmethod.

Add a comment

Enhanced MB51 Part 2 - Structure for data

1 1 1 1 1 Rating 0% (0 Votes)

Attachments:
ZAB_MB51_CALL.nugg

Tags: MB51 , MB51 ENHANCEMENT , RM07DOCS

I've decided which way should I go, so now time to do it. I need to do following things to get what I desired:

Create a function group or class to be able to reuse the solution in other programs also
Create implicit enhancement in MB51 to be able to export it's results and stop MB51 if it's called from outside
Create a program with selection screen fields from MB51 + my own desired additional filters. This program should call standard MB51 and display some additional fields in ALV Grid.

I prefer to create a class in which I will store all needed methods to call MB51 with selection-options filled and to get back the results.

I will need a type for the structure which will be used as a base type to all copy / move functions from MB51 to class and program. Bellow you'll find a type t_list which contains most of the fields which are available in MB51 (structure list in RM07DOCS). Just after t_list you'll find type tt_list which is just table type for t_list.

Add a comment

Enhanced MB51 Part 1 - Goal and prerequisites

5 1 1 1 1 1 Rating 100% (2 Votes)

Tags: MMIM_REP_CUST , MB51 , MB51 ENHANCEMENT , RM07DOCS

It think that some of you involved in MM or PP had already a request or need to add some fields to MB51 or to call it directly with ALV grid instead of old style view. I also had such request and it contained both needs - additional fields and direct display of ALV grid. So I started to dig and debug to see what is possible to do and these possibilities I found:

Copy program RM07DOCS (MB51) to Z-one and to the changes there - but I don't like such solutions so I didn't want to do that way
Create own program which selects data from MKPF and MSEG and display it like MB51 do - but this would be to time consuming to prepare same logic like in MB51 and in case of any changes in oryginal transaction I would need to adjust program again
Do implicit enhancement in RM07DOCS to add missing fields to the field catalog and then fill them during the call of MB51 - this would solve the first part of the request but users will have to do additional two clicks to go to ALV grid which as you may know already is sometimes to much :) Nevertheless if someone of you would like to go this way then you should do two implicit enhancements in RM07DOCS:
Add a comment

Reset rejection of Purchase Requisition

5 1 1 1 1 1 Rating 100% (1 Vote)

Tags: IF_PURCHASE_REQUISITION , IF_RELEASABLE_MM , MEPO_DOCUMENT , MEREQ_GET_FACTORY , IF_PURCHASE_REQ_FACTORY , IS_RESET_REJ_ALLOWED

As promised today I'll put code for a method to reset the rejection of the Purchase requisition. Most of the code is the same like in the check method, in fact even the code is repeated again so you can use this one without checking if reset of rejection can be done or not.

Importing:

I_BANFN TYPE EBAN-BANFN -> Purchase Requistion number

Changing:

C_FACTORY TYPE REF TO IF_PURCHASE_REQ_FACTORY -> Purchase requisition factory

Exporting:

E_RESET TYPE FLAG -> Reset was successful

Exceptions:

HEADER_COULDNT_BE_CREATED
ERROR_DURING_RESET
CANNOT_RESET

Add a comment

Other checks on purchase requisition state

1 1 1 1 1 Rating 0% (0 Votes)

Tags: IF_RELEASABLE_MM , IS_REJECTION_ALLOWED , IS_RELEASE_ALLOWED , IS_RESET_REL_ALLOWED

In the previous article I've shown how to check if we can reset the rejection of the purchase requisition. In the same way you can check if rejection is allowed or if release is allowed or if reset of release is allowed. To do that you'll have to replace following piece of code from previous example fo_releasable->is_reset_rej_allowed( )

with one of the following:

fo_releasable->is_rejection_allowed( )
fo_releasable->is_release_allowed( )
fo_releasable->is_reset_rel_allowed( )

In next article I will show you how to reset the rejection of PR .

Add a comment

How to check if for purchase requisition rejection can be reset?

1 1 1 1 1 Rating 0% (0 Votes)

Tags: IF_PURCHASE_REQUISITION , IF_RELEASABLE_MM , MEPO_DOCUMENT , MEREQ_GET_FACTORY , IF_PURCHASE_REQ_FACTORY , IS_RESET_REJ_ALLOWED

Working with Purchase Requisitions in ABAP is quite pleasant job, but sometimes it's not so easy like with other documents types. You cannot easily say if Requisition is rejected and can be reset by checking EBAN table. You have to use OO PR objects to be able to do so. Bellow you can find a method how to check if you can reset the rejection of the requisition done in the WF.

Importing:

I_BANFN TYPE EBAN-BANFN ->Purchase Requisition Number

Exporting:

E_RESETABLE TYPE FLAG -> If rejection can be reset this parameter will be set to 'X'

Changing:

CO_FACTORY TYPE REF TO IF_PURCHASE_REQ_FACTORY -> Purchase requisition factory

Exception:

HEADER_COULDNT_BE_CREATED

Add a comment

Range to search in lower case fields

1 1 1 1 1 Rating 0% (0 Votes)

Tags: LOWER CASE , UPPER CASE , SEARCH , LOOP , SELECT

It may happen that you'll need to do select or loop on a base of the field which is kept in lower case, but you don't know exactly what's the value o field. In such case you may want to build a range of the possible values to be able to fulfill the task. Here is how to do it quite fast by doing FM:

function z_ab_prep_val_for_case_search.
*"--------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(I_TEXT) TYPE  CSEQUENCE
*"     VALUE(I_SIGN) TYPE  CHAR1
*"     VALUE(I_OPTION) TYPE  CHAR2
*"  EXPORTING
*"     REFERENCE(ER_RANGE) TYPE  STANDARD TABLE
*"--------------------------------------------------------------------
  field-symbols: <low> type any.
  field-symbols: <sign> type any.
  field-symbols: <opt> type any.
  field-symbols: <line> type any.
  field-symbols: <linenew> type any.
  field-symbols: <lownew> type any.
  field-symbols: <tab> type standard table.
  data: f_times type i.
  data: f_text type string.
  data: f_textnew type string.
  data: f_insidel type i.
  data: f_insidel2 type i.
  data: ft_data type ref to data.

  "create temp table and assign it to FS
  create data ft_data like er_range.
  assign ft_data->* to <tab>.

  f_text = i_text.

  "get lenght
  f_times = strlen( f_text ).
  "translate to upper case so we have always same start
  translate f_text to upper case.

  "append initial line to range and put first value into table
  append initial line to er_range assigning <line>.
  check sy-subrc eq 0.
  assign component 'LOW' of structure <line> to <low>.
  check sy-subrc eq 0.
  <low> = i_text. "all in uppercase
  assign component 'SIGN' of structure <line> to <sign>.
  check sy-subrc eq 0.
  <sign> = i_sign.
  assign component 'OPTION' of structure <line> to <opt>.
  check sy-subrc eq 0.
  <opt> = i_option.
  translate <low> to upper case.

  "create entries for each other combination of cases
  do f_times times.
    f_insidel2 = sy-index - 1.
    loop at er_range assigning <line>.
      assign component 'LOW' of structure <line> to <low>.
      check sy-subrc eq 0.
      if f_text+f_insidel2(1) ca '*+' and ( i_option eq 'CP' or i_option eq 'NP' ).

      else.
        append initial line to <tab> assigning <linenew>.
        check sy-subrc eq 0.
        assign component 'LOW' of structure <linenew> to <lownew>.
        check sy-subrc eq 0.
        assign component 'SIGN' of structure <linenew> to <sign>.
        check sy-subrc eq 0.
        <sign> = i_sign.
        assign component 'OPTION' of structure <linenew> to <opt>.
        check sy-subrc eq 0.
        <opt> = i_option.
        <lownew> = <low>.
        f_textnew = <lownew>+f_insidel2(1).
        translate f_textnew to lower case.
        <lownew>+f_insidel2(1) = f_textnew.
      endif.
    endloop.
    append lines of <tab> to er_range.
    refresh <tab>[].
  enddo.

endfunction.

Add a comment

Characteristic's own input screen - Part 8 - example of use

1 1 1 1 1 Rating 0% (0 Votes)

Attachments:
ZAB_CLASSIFICATIONS_POPUP.nugg
ZCL_ABAPBLOG_COM_CLASSIFIC.nugg

We got all needed functions, so I'll give you an example how to call the methods correctly to get characteristics update window like this:

Program bellow is reading firstly the info about stored values in given characteristic and then throws an update screen. After exiting from the screen it's saving data to database.

Add a comment

Characteristic's own input screen - Part 7 - save characteristic value to database

1 1 1 1 1 Rating 0% (0 Votes)

Attachments:
ZCL_ABAPBLOG_COM_CLASSIFIC.nugg

Tags: BAPI_OBJCL_CHANGE , BAPI_OBJCL_GETDETAIL

Now it's time to save the values entered into database. I will use here previously created method to move data from reference structure to BAPI tables, then I will read values from database to see if something has changed with BAPI_OBJCL_GETDETAIL, then save the values with BAPI_OBJCL_CHANGE. Just one remark, you have to pass all values always to that FM!

Importing:

I_DATA TYPE DATA OPTIONAL
value( I_CHANGE_NUMBER ) TYPE BAPI1003_KEY-CHANGENUMBER OPTIONAL -> Change Number

Exception:

NO_DATA

Add a comment

Characteristic's own input screen - Part 6 - move reference data to bapi structures

1 1 1 1 1 Rating 0% (0 Votes)

Attachments:
ZCL_ABAPBLOG_COM_CLASSIFIC.nugg

Tags: BAPI_CLASS_READ , COC1_FEATURE_CHECK

Our characteristics update screen was displayed, data was changes so we need to read the reference data and put the values into BAPI structures in order to be able to save the values to database.

I will use here BAPI_CLASS_READ to read all possible characteristics and COC1_FEATURE_CHECK to get characteristic details.

Importing:

I_DATA TYPE REF TO DATA

Changing:

CT_OBJVALUESNUM TYPE TT_BAPI1003_ALLOC_VALUES_NUM
CT_OBJVALUESCHAR TYPE TT_BAPI1003_ALLOC_VALUES_CHAR
CT_OBJVALUESCURR TYPE TT_BAPI1003_ALLOC_VALUES_CURR

Exceptions:

NO_DATA_TO_PASS

Add a comment

Enhanced MB51 Part 3 - Get selection parameters

Enhanced MB51 Part 2 - Structure for data

Enhanced MB51 Part 1 - Goal and prerequisites

Reset rejection of Purchase Requisition

Other checks on purchase requisition state

How to check if for purchase requisition rejection can be reset?

Range to search in lower case fields

Characteristic's own input screen - Part 8 - example of use

Characteristic's own input screen - Part 7 - save characteristic value to database

Characteristic's own input screen - Part 6 - move reference data to bapi structures

More Articles ...

ABAP Favorites Eclipse plugin