Fbl1n txn for updating vendor line item

Question

hello every one iam trying to update vendor line item when a billing document get cancelled in vf11 i have tried bapi  BAPI_ACC_DOCUMENT_REV_POST .
the requirement is whenever a billing document get cancelled the commision need to get credited again for example if vendor line item is
     St Assignment         DocumentNo Type     Doc. Date  S DD Amount in local cur. LCurr Clrng doc. Text
        COMMISSION         1700000014 CP       31.08.2011                    71.26- INR
it need to get like this
     St Assignment         DocumentNo Type     Doc. Date  S DD Amount in local cur. LCurr Clrng doc. Text
        COMMISSION         1700000014 CP       31.08.2011                    71.26 INR
that means the amount in local currency need to get into + one like above
Please help ASAP & if some one give me code also that will be very helpul for me

Answer 1

Hii ali this is my code & below iam showing u what wasthe data in  my return table please suggest me what to do
      DATA : P_REVERSAL     LIKE  BAPIACREV ,
             TRAN_DOC(20)   TYPE  C         ,
             p_busact       LIKE BAPIACHE09-BUS_ACT ,
             p_objkey       LIKE BAPIACREV-OBJ_KEY  .
      DATA : P_RETURN  LIKE  TABLE OF  BAPIRET2  ,
             WA_RETURN  TYPE  BAPIRET2          ,
             WF_REMARKS  ,
             PLANT     TYPE VBRP-WERKS         ,
             bill_no   type vbrk-vbeln         ,
             belnr     type BELNR_D  ,
             AWKEY     type AWKEY    .
data : date1 type sy-datum .
date1 = sy-datum+0(4) .
select single belnr AWKEY from bkpf into (belnr , AWKEY)    where blart = 'CP'     and
                                                 budat = sy-datum and
                                                 xblnr = vbrk-kidno . "bill_no .
      IF SY-SUBRC = 0 .
          CONCATENATE belnr AWKEY+10(4) date1 INTO TRAN_DOC .
        ENDIF .
  SELECT SINGLE WERKS  FROM VBRP INTO  PLANT  WHERE VBELN = vbrk-kidno .
        p_reversal-obj_type   = 'BKPFF'.
        p_reversal-obj_key    = tran_doc.
        p_reversal-obj_key_r  = tran_doc.
        p_reversal-pstng_date = sy-datum.
        p_reversal-comp_code  = tran_doc+10(4).
        p_reversal-reason_rev = '02'.
        p_reversal-ac_doc_no  = tran_doc+0(10).
        p_busact = ' '.
        CALL FUNCTION 'BAPI_ACC_DOCUMENT_REV_POST'
        EXPORTING
          reversal = p_reversal
          bus_act  = p_busact
        IMPORTING
          obj_key  = p_objkey
        TABLES
          return   = p_return.
              IF sy-subrc = 0.
            ---commit Work
                    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
                      EXPORTING
                        wait = 'X'.
              ELSE .
*****Use the below statement, if the BAPI is sending back the 'RETURN' internal table.
                READ TABLE p_return INTO WA_RETURN WITH KEY TYPE = 'F'.
                   IF SY-SUBRC EQ 0 .
                       CALL FUNCTION 'MESSAGE_TEXT_BUILD'
                      EXPORTING
                        MSGID = WA_RETURN-ID
                         MSGNR = WA_RETURN-NUMBER
                        MSGV1 = WA_RETURN-MESSAGE_V1
                         MSGV2 = WA_RETURN-MESSAGE_V2
                        MSGV3 = WA_RETURN-MESSAGE_V3
                        MSGV4 = WA_RETURN-MESSAGE_V4
                      IMPORTING
                        MESSAGE_TEXT_OUTPUT = WF_REMARKS.
                   ENDIF.
                ENDIF.
1     E     RW     609     Error in document: BKPFF $ DEVCLNT300          000000     BKPFF     $
2     E     RW     632     Document BKPFF 1700000061WPL12011 DEVCLNT300 cannot be reversed          000000     BKPFF     1700000061WPL12011
3     E     F5     814     Document type ZX not defined          000000     ZX
4     E     F5     814     Document type ZX not defined          000000     ZX