Quantity field as input field in purchase templates

Question

Hi SDN,
we are on WAS 700, SRM 5.0. SRM Server 5.5
I am facing an urgent change request, which is a modification of standard templates and dynpros.
The Task:
When I create a shopping cart via "Old Purchase Orders and Templates" I want the quantity field as an input field, so that I can change quantities right here, when adding items from the public template to the shopping cart.
The Business Case:
We get tons of bad user feedback, as the process as it is, is really time consuming, because first you chose items from the template and in the next step you have to change the quantities.
The html template involved is the:
SAPLBBP_PDH_SEARCH 4001
The corresponding dynpro is:
4001 in function group BBP_PDH_SEARCH
In the dynpro I see a quantity-field in the creen painter:
-QUANTITY in Table Control TC_SUBLIST_SC
in the html template I have:
`if (SUBLIST-ITM_TYPE[n].value != "HIER")`
              `SUBLIST-QUANTITY[n].value` `SUBLIST-UNIT[n].value`
I guess I need something like:
<input type="text" name="<SUB_WA>-QUANTITY" value="`SUBLIST-QUANTITY[n].value`">
How do I set up the input field? Help greatly appreciated!!!
Kind regards, Matthias Kasig
Message was edited by:
        Matthias Kasig

Answer 1

Hi,
in perform mark_read_from_web you have something like that:
MODIFY <sublist> FROM <lfs_sub_wa>.
this modifies your sublist with new values.
All you have to do is add to <lfs_sub_wa> quantity field.
in code:
lv_index = lv_index + 1.
      field-get 'SUBLIST-MARK' lv_index lt_mark lv_leng.
      IF sy-subrc <> 0.
        CONTINUE.
      ELSE.
        READ TABLE lt_mark INDEX 1.
        IF sy-subrc EQ 0.
          MOVE lt_mark TO <lfs_sub_mark>.
          MODIFY <sublist> FROM <lfs_sub_wa>.
          IF <lfs_itm_type> EQ c_hier AND
             <lfs_exp> is initial And
             lt_mark EQ gc_yes.
            MOVE <lfs_itm_guid> TO lt_sel_hier-guid.
            APPEND lt_sel_hier.
          ENDIF.
        ENDIF.
      ENDIF.
add something like this:
lv_index = lv_index + 1.
      field-get 'SUBLIST-MARK' lv_index lt_mark lv_leng.
      field-get 'SUBLIST-QUANTITY' lv_index lt_mark lv_leng.
      IF sy-subrc <> 0.
        CONTINUE.
      ELSE.
        READ TABLE lt_mark INDEX 1.
        IF sy-subrc EQ 0.
          MOVE lt_mark TO <lfs_sub_mark>.
          MODIFY <sublist> FROM <lfs_sub_wa>.
          IF <lfs_itm_type> EQ c_hier AND
             <lfs_exp> is initial And
             lt_mark EQ gc_yes.
            MOVE <lfs_itm_guid> TO lt_sel_hier-guid.
            APPEND lt_sel_hier.
          ENDIF.
        ENDIF.
      ENDIF.
Regards,
Marcin Gajewski