Infotype Pa0014 Updation

Question

Hi,
I have designed a table control with 4 columns (wage type,wage text, wage amount and currency). The values from the table should be updated/inserted in infotype pa0014.
If the table control record matches with any of the records in infotype 14 then the corresponding record amount field should be updated.
If the record in table control doesnt match with any records in infotype 14 then the record should be newly inserted.
I am using the FM- HR_INFOTYPE_OPERATION for this.
*        FM to fetch all data from infotype pa0014 for the particular pernr
         CALL FUNCTION 'HR_READ_INFOTYPE'
           EXPORTING
             pernr                 = pernr
             infty                 = '0014'
           TABLES
             infty_tab             = it_p14
          EXCEPTIONS
            INFTY_NOT_FOUND       = 1
            OTHERS                = 2
*         looping the records  it_p0014 internal table to update or insert in infotype pa0014
          loop at it_0014 into wa_0014.
*             reading the record in pa0014 infotype to check if it already exists or not
              read table it_p14 into wa_p14 WITH KEY pernr = wa_0014-pernr
                                                     subty = wa_0014-subty
                                                     endda = wa_0014-endda
                                                     begda = wa_0014-begda.
*             if records exists in pa0014 infotype then modify the record using Opeation 'MOD' in FM
              if sy-subrc eq 0.
*                   FM to update infotype PA0014
                    CALL FUNCTION 'HR_INFOTYPE_OPERATION'
                      EXPORTING
                        infty            = '0014'
                        number           = pernr
                        subtype          = wa_0014-subty
                        VALIDITYEND      = wa_0014-begda
                        VALIDITYBEGIN    = wa_0014-endda
                        record           = wa_0014
                        operation        = 'MOD'        "change
*                        nocommit         = 'X'          "commit = 'X', No = ''
                      IMPORTING
                        return           = return_struct
                        key              = key.
                    IF return_struct-type = 'E'.
                      MESSAGE e000(zhr_allow_upd_msg) WITH return_struct-message.
                    ELSE.
                      commit work. "without this commit records wont get updated.
                    endif.
               else. "if record doesn't exist pa0014 infotype then insert the record
**                   FM to insert new records in infotype PA0014
                    CALL FUNCTION 'HR_INFOTYPE_OPERATION'
                      EXPORTING
                        infty            = '0014'
                        number           = pernr
                        subtype          = wa_0014-subty
                        VALIDITYEND      = wa_0014-begda
                        VALIDITYBEGIN    = wa_0014-endda
                        record           = wa_0014
                        operation        = 'INS'        "create
*                        nocommit         = 'X'          "commit = 'X', No = ''
                      IMPORTING
                        return           = return_struct
                        key              = key.
                    IF return_struct-type = 'E'.
                      MESSAGE e000(zhr_allow_upd_msg) WITH return_struct-message.
                    ELSE.
                      commit work.
                    ENDIF.
               endif.
               clear:wa_0014,wa_p14.
        ENDLOOP.
Inserting a new records in infotype pa0014 is working fine.
I am facing a problem with the updation of records. Even If record in the table control and infotype  pa0014 matches the FM is returning an error message "no records exists in infotype pa0014"
Can you suggest me what might be the problem when i try to update amount field in the infotype pa0014.
Regards,
Bala Baskaran.S

Answer 1

Insert is not modifying the exisiting records.
Indeed... it will overwrite the existing record... But what is the difference in your case?
Anyway... Maybe the record is not found due to missing key field passed to the FM... e.g. why not passing the value of Object Identification (OBJPS) and the SEQNR field as well?
Kr,
Manu.
Edited by: Manu D'Haeyer on Feb 23, 2012 2:11 PM