IT 0024 enhancement

Question

Hello gurus,
ive searched various threads and postings in Google, marketplace, SCN, hoe to add custom columns into IT 0024.
But with no luck.
I managed to add columns in TC: PM01 in List screen. Im also able to see the fields in the screen layout when i select change.
But i didnt manage to show those added columns in TC PA30 when selecting IT 0024.
PS. ive read these posts:
1.http://wiki.sdn.sap.com/wiki/pages/viewpage.action?spaceKey=Snippets&title=EnhanceInfotypesusingPM01inECC6.0&decorator=printable
2.Custom fields in IT0024
What could be the problem?
Best regards
Laurynas

Answer 1

Hi Dilak again,
I manged to do the column creation.
By the way there were some issues when i was trying to add custom fields from Z structure.
consultants modified this FORM: form data_read_qualifications
and enhanced 2101 screens user command
here are some changes
CALL FUNCTION 'RHPP_Q_PROFILE_READ'
           EXPORTING
                begda            = p_begda
                endda            = p_endda
              WITH_STEXT       = 'X'
              WITH_QK_INFO     = 'X'
                check_note       = 'X'
           TABLES
                objects          = sobids
              ERR_OBJECTS      =
                profile          = profile
           EXCEPTIONS
                no_authority     = 1
                wrong_otype      = 2
                object_not_found = 3
                undefined        = 4
                OTHERS           = 5.
      IF sy-subrc = 0.
        loop at profile ASSIGNING <wa_profile>.
          select single *
          from hrp1001
          into CORRESPONDING FIELDS OF wa_hrp1001
          where hrp1001~mandt = sy-mandt and
                hrp1001~OTYPE = 'Q' and
                hrp1001~SOBID = P_OBJID and
                hrp1001~PLVAR = '01' and
                hrp1001~RSIGN = 'B' and
                hrp1001~RELAT = '032' and
          ( ( hrp1001~begda = p_begda AND      "1 "|8888|
              hrp1001~endda = p_endda ) OR        "|8888|
            ( hrp1001~begda < p_begda AND      "2 "|8888|
              hrp1001~endda < p_endda AND         "   |4444|
              hrp1001~endda > p_begda ) OR
            ( hrp1001~begda < p_begda AND      "3 "|8888|
              hrp1001~endda = p_endda ) OR     "      |4|
            ( hrp1001~begda = p_begda AND      "4 "|8888|
              hrp1001~endda < p_endda ) OR     "   |4444444444"
            ( hrp1001~begda = p_begda AND      "5 "|8888888|
              hrp1001~endda > p_endda ) OR     "   |4444|
            ( hrp1001~begda > p_begda AND      "6 "|8888|
              hrp1001~endda = p_endda ) OR     " |444444|
            ( hrp1001~begda > p_begda AND      "7   |888888|
              hrp1001~endda > p_endda AND      " |44444|
              hrp1001~begda < p_endda ) OR
            ( hrp1001~begda > p_begda AND      "8      |888|
              hrp1001~endda < p_endda ) OR     "   |44444444444|
            ( hrp1001~begda < p_begda AND      "9   |88888888888|
              hrp1001~endda > p_endda ) ).     "         |44|
          select single hrpad77~ZCERTNO1
          from hrpad77
          into <wa_profile>-ZCERTNO1
          where hrpad77~mandt = sy-mandt and
                hrpad77~ADATANR = wa_hrp1001-ADATANR.
          select single hrpad77~ZCERTNO2
          from hrpad77
          into <wa_profile>-ZCERTNO2
          where hrpad77~mandt = sy-mandt and
                hrpad77~ADATANR = wa_hrp1001-ADATANR.
          select single hrpad77~ZCOURSEFEE
          from hrpad77
          into <wa_profile>-ZCOURSEFEE
          where hrpad77~mandt = sy-mandt and
                hrpad77~ADATANR = wa_hrp1001-ADATANR.
          select single hrpad77~ZCURRENCY
          from hrpad77
          into <wa_profile>-ZCURRENCY
          where hrpad77~mandt = sy-mandt and
                hrpad77~ADATANR = wa_hrp1001-ADATANR.
        endloop.
and another one
     START OF CHANGE WSY L.Prikockis
      CALL FUNCTION 'RH_UPDATE_DATABASE'
        EXPORTING
          vtask = 'D'
         BUFFER_UPD = ' '
         ORDER_FLG = 'X'
          commit_flg = 'X'
         CLEAR_BUFFER = 'X'
          EXCEPTIONS corr_exit = 0 OTHERS = 0.
      LOOP AT lit_qual_act .
        IF lit_qual_act-action = c_dis OR
          lit_qual_act-action = c_spe .
          CONTINUE .
        ENDIF .
        SELECT * FROM hrp1001  INTO ZABC
          WHERE otype EQ qual_act-data-otype
          AND objid EQ lit_qual_act-data-sobid
          AND sobid EQ lit_qual_act-data-tbjid
          AND sclas EQ lit_qual_act-data-ttype
          AND begda EQ lit_qual_act-data-vbegd
          AND endda EQ lit_qual_act-data-vendd.
          hrpad77-adatanr = ZABC-adatanr.                   " <<< TL keista 2011 08 09
          hrpad77-ZCERTNO1 = lit_qual_act-data-ZCERTNO1.
          hrpad77-ZCERTNO2 = lit_qual_act-data-ZCERTNO2.
          hrpad77-ZCOURSEFEE = lit_qual_act-data-ZCOURSEFEE.
          hrpad77-ZCURRENCY = lit_qual_act-data-ZCURRENCY.
          IF lit_qual_act-action = c_del .
            DELETE FROM hrpad77 WHERE adatanr = hrp1001-adatanr .
          ELSEIF lit_qual_act-action = c_mod OR
            lit_qual_act-action = c_new.
            MODIFY hrpad77.
          ENDIF .
           ENDLOOP .
        ENDSELECT.
      ENDLOOP.
     END OF CHANGE WSY L.Prikockis
Thanks and best regards