ME21N - new field added and same value posted to it for all line items

Question

hi all
i have added new field under item  level in me21n screen.
data for new filed fetched from tables with values entered in header level material number.
For one record, it is ok
but for multiple records, same value is fetched for all line items
i have written coding in screen exit for 0111
and function exits EXIT_SAPMM06E_016 and EXIT_SAPMM06E_018
how to solve
pl help
regards
senthil

Answer 1

MODULE STATUS_0111 OUTPUT.
SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.
  if sy-tcode eq 'ME23N' or sy-tcode eq 'ME23'.
    LOOP at SCREEN.
      if screen-group1 ne 'PCS'.
        screen-input = 0.
        MODIFY SCREEN.
      endif.
    ENDLOOP.
  ENDIF.
  TYPES : BEGIN OF ty_cabn1,
         atnam TYPE cabn-atnam,
       end of ty_cabn1.
  DATA : itab_cabn1 TYPE STANDARD TABLE OF ty_cabn1 INITIAL SIZE 0,
         wa_cabn1 TYPE ty_cabn1.
  TYPES : BEGIN OF ty_cawn1,
    atinn TYPE cawn-atinn,
    atzhl TYPE cawn-atzhl,
    atwrt TYPE cawn-atwrt,
    end of ty_cawn1.
  DATA : itab_cawn1 TYPE STANDARD TABLE OF ty_cawn1 INITIAL SIZE 0,
         wa_cawn1 TYPE ty_cawn1.
  TYPES : BEGIN OF ty_cawnt1,
   pcs TYPE cawnt-atwtb,
    atinn TYPE cawnt-atinn,
    atzhl TYPE cawnt-atzhl,
    atwtb TYPE cawnt-atwtb,
      end of ty_cawnt1.
  DATA : itab_cawnt1 TYPE TABLE OF ty_cawnt1,
         wa_cawnt1 TYPE ty_cawnt1.
  TYPES : BEGIN OF ty_pcs1,
pcs TYPE cawnt-atwtb,
  atwrt TYPE cawn-atwrt,
  atwtb TYPE cawnt-atwtb,
    end of ty_pcs1.
  DATA : itab_pcs3 TYPE TABLE OF ty_pcs1,
         itab_pcs4 TYPE TABLE OF ty_pcs1,
         wa_pcs1 TYPE ty_pcs1.
  TYPES : BEGIN OF ty_pcsn,
  matnr TYPE ausp-objek,
  ebelp TYPE dynpread-stepl,
  atwrt TYPE cawn-atwrt,
  atwtb TYPE cawnt-atwtb,
  END OF ty_pcsn.
  DATA : itab_pcsn TYPE TABLE OF ty_pcsn,
         wa_pcsn TYPE ty_pcsn.
  TYPES : BEGIN OF ty_ausp1,
     objek TYPE ausp-objek,
     atinn TYPE ausp-atinn,
     atwrt TYPE ausp-atwrt,
   END OF ty_ausp1.
  DATA : itab_ausp1 TYPE STANDARD TABLE OF ty_ausp1 INITIAL SIZE 0,
         wa_ausp1   TYPE ty_ausp1.
  DATA : param_name1(35) TYPE  c.
  DATA: progname1      TYPE sy-repid,
        dynnum1        TYPE sy-dynnr,
        dynpro_values1 TYPE TABLE OF dynpread,
        dynpro_values2 TYPE TABLE OF dynpread,
        field_value1   LIKE LINE OF dynpro_values1,
        ematn1         TYPE mara-matnr.
  if sy-tcode ne 'ME23N' and sy-tcode ne 'ME23'.  "psk
    clear : itab_cabn1,itab_cawn1,itab_cawnt1,itab_pcs3,itab_pcs4,itab_pcsn,itab_ausp1.
    clear : wa_cawn1,wa_cawnt1,wa_pcs1,wa_ausp1.
    if sy-uname eq 'IBM_ABAP'.
      param_name1 = '000000001'.
    else.
      param_name1 = '000000013'.
    endif.
    SELECT atnam
    FROM cabn
    INTO CORRESPONDING FIELDS OF TABLE itab_cabn1
    WHERE atinn  = param_name1.
    select *
    FROM cawn
    into CORRESPONDING FIELDS OF TABLE itab_cawn1
    WHERE atinn = param_name1.
    if itab_cawn1[] is NOT INITIAL.
      SELECT atinn atzhl atwtb
      FROM cawnt
      INTo CORRESPONDING FIELDS OF TABLE itab_cawnt1
      FOR ALL ENTRIES IN itab_cawn1
      WHERE atinn = itab_cawn1-atinn
      AND atzhl = itab_cawn1-atzhl.
    endif.
    if itab_cawnt1[] is NOT INITIAL.
      sort itab_cawnt1 by atinn atzhl.
      loop at itab_cawnt1 INTO wa_cawnt1.
        READ TABLE itab_cawn1 INTO wa_cawn1 with key atinn = wa_cawnt1-atinn
                                                     atzhl = wa_cawnt1-atzhl BINARY SEARCH.
        if sy-subrc eq 0.
       CONCATENATE wa_cawn-atwrt '->' wa_cawnt-atwtb INTO wa_cawnt-pcs.
       MODIFY itab_cawnt FROM wa_cawnt TRANSPORTING pcs.
       wa_pcs-pcs = wa_cawnt-pcs.
          wa_pcs1-atwrt = wa_cawn1-atwrt.
          wa_pcs1-atwtb = wa_cawnt1-atwtb.
          append wa_pcs1 to itab_pcs3.
        ENDIF.
        CLEAR : wa_cawnt1,wa_cawn1, wa_pcs1.
      ENDLOOP.
    ENDIF.
    CLEAR: dynpro_values1, field_value1.
dynpro_values-FIELDNAME = 'MEPO1211-EMATN'.
APPEND dynpro_values.
    field_value1-fieldname = 'MEPO1211-ematn'.
    APPEND field_value1 TO dynpro_values1.
    progname1 = 'SAPLMEGUI'.
    dynnum1 = '1211'.
    CALL FUNCTION 'DYNP_VALUES_READ'
      EXPORTING
        DYNAME                               = progname1
        DYNUMB                               = dynnum1
  TRANSLATE_TO_UPPER                   = ' '
     REQUEST                                = 'A'
  PERFORM_CONVERSION_EXITS             = ' '
  PERFORM_INPUT_CONVERSION             = ' '
  DETERMINE_LOOP_INDEX                 = ' '
  START_SEARCH_IN_CURRENT_SCREEN       = ' '
  START_SEARCH_IN_MAIN_SCREEN          = ' '
  START_SEARCH_IN_STACKED_SCREEN       = ' '
  START_SEARCH_ON_SCR_STACKPOS         = ' '
  SEARCH_OWN_SUBSCREENS_FIRST          = ' '
  SEARCHPATH_OF_SUBSCREEN_AREAS        = ' '
      TABLES
        DYNPFIELDS                           = dynpro_values1
   EXCEPTIONS
     INVALID_ABAPWORKAREA                 = 1
     INVALID_DYNPROFIELD                  = 2
     INVALID_DYNPRONAME                   = 3
     INVALID_DYNPRONUMMER                 = 4
     INVALID_REQUEST                      = 5
     NO_FIELDDESCRIPTION                  = 6
     INVALID_PARAMETER                    = 7
     UNDEFIND_ERROR                       = 8
     DOUBLE_CONVERSION                    = 9
     STEPL_NOT_FOUND                      = 10
     OTHERS                               = 11
    IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
READ TABLE dynpro_values1 INTO field_value1 with KEY fieldname = 'MEPO1211-EMATN'.
    LOOP at dynpro_values1 INTO field_value1 WHERE fieldname = 'MEPO1211-EMATN'.
      clear ematn1.
      if sy-subrc eq 0.
        ematn1 = field_value1-fieldvalue.
      endif.
      if ematn1 is not INITIAL.
        clear : wa_cawn1,wa_cawnt1,wa_pcs1,wa_ausp1.
        CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
          EXPORTING
            INPUT  = ematn1
          IMPORTING
            OUTPUT = ematn1.
        select *
        FROM ausp
        INTO CORRESPONDING FIELDS OF TABLE itab_ausp1
        WHERE objek = ematn1
        and atinn = param_name1.
        CLEAR itab_pcs4.
        if itab_ausp1[] is not INITIAL.
          sort itab_ausp1 by atinn atwrt.
          sort itab_cawn1 by atinn.
          READ TABLE itab_ausp1 INTO wa_ausp1 INDEX 1.
          loop at itab_cawn1 INTO wa_cawn1 WHERE atinn = wa_ausp1-atinn AND atwrt = wa_ausp1-atwrt.
            READ TABLE itab_cawnt1 INTO wa_cawnt1 WITH KEY atinn = wa_cawn1-atinn
                                                            atzhl = wa_cawn1-atzhl.
            if sy-subrc eq 0.
              wa_pcs1-atwrt = wa_cawn1-atwrt.
              wa_pcs1-atwtb = wa_cawnt1-atwtb.
              append wa_pcs1 to itab_pcs4.
              wa_pcsn-matnr = wa_ausp1-objek.
              wa_pcsn-ebelp = field_value1-stepl.
              wa_pcsn-atwrt = wa_cawn1-atwrt.
              wa_pcsn-atwtb = wa_cawnt1-atwtb.
              APPEND wa_pcsn to itab_pcsn.
            ENDIF.
            clear : wa_ausp1,wa_cawn1,wa_cawnt1.
          ENDLOOP.
        ENDIF.
       clear wa_pcs1.
       read TABLE itab_pcs4 into wa_pcs1 index 1.
       if sy-subrc eq 0.
         EKPO_CI-ZPCS = wa_pcs1-atwrt.
       endif.
      ENDIF.
    ENDLOOP.
    CLEAR: field_value1.
    LOOP at dynpro_values1 INTO field_value1 WHERE fieldname = 'MEPO1211-EMATN'.
      clear wa_pcsn.
      if field_value1-fieldvalue is not INITIAL.
        read TABLE itab_pcsn INTO wa_pcsn with key  matnr = field_value1-fieldvalue
                                                    ebelp = field_value1-stepl.
        if sy-subrc eq 0.
          clear  EKPO_CI-ZPCS.
*EKPO_CI-ZPCS = wa_pcs1-atwrt.
          EKPO_CI-ZPCS = wa_pcsn-atwrt.
        endif.
      endif.
    ENDLOOP.
   CLEAR: field_value1, dynpro_values1.
   progname1 = 'SAPLXM06'.
   dynnum1   = '0111'.
   field_value1-fieldname = 'EKPO_CI-ZPCS'.
   APPEND field_value1 TO dynpro_values1.
   if ematn1 is not INITIAL.
     clear wa_pcs1.
     read TABLE itab_pcs4 into wa_pcs1 index 1.
     if sy-subrc eq 0.
       EKPO_CI-ZPCS = wa_pcs1-atwrt.
     endif.
   ENDIF.
  endif.
ENDMODULE.                 " STATUS_0111  OUTPUT
Function exits:
^^^^^^^^^^^^^^^^^
EXIT_SAPMM06E_016
^^^^^^^^^^^^^^^^^
INCLUDE ZXM06U41 .
DATA XFISTL LIKE EKPO-FISTL.
TABLES: ADRC, T001W.
DATA: PLANT LIKE T001W-WERKS.
SELECT SINGLE * FROM T001W WHERE WERKS = I_EKPO-WERKS.
SELECT SINGLE * FROM ADRC WHERE ADDRNUMBER = T001W-ADRNR.
XFISTL = ADRC-SORT2.
SET PARAMETER ID 'FIS' FIELD XFISTL.
* Added For PCS 12.11.2010
DATA : fs_ekpo type EKPO_CI.
if sy-tcode = 'ME22N' or sy-tcode = 'ME23N'.
*  if tekpo-zpcs is INITIAL.
*    message e000(zmm) with 'PCS Type should be chosen'.
*  endif.
  loop at tekpo.
    if ( tekpo-ebeln eq i_ekpo-ebeln and tekpo-ebelp eq i_ekpo-ebelp ).
      ekpo_ci-zpcs = tekpo-zpcs.
    endif.
  ENDLOOP.
endif.
^^^^^^^^^^^^^^^^^
EXIT_SAPMM06E_018
^^^^^^^^^^^^^^^^^
INCLUDE ZXM06U40 .
E_CI_EKPO-ZPCS = EKPO_CI-ZPCS.
E_CI_UPDATE = 'X'.