Update city and branch from excel file to SAP system by using BAPI in ABAP.

 FM- BAPI_BANK_CHANGE

Step 1: Goto SE11.Give table as BNKA click on display.

Step 2: Goto contents Give BANKL as AJAY2006 TO AJAY2010.Execute.



Step 3: Goto SE38 give program name click on create. Write code.

TYPESBEGIN OF ty_bank,
         lv_bc     TYPE bapi1011_key-bank_ctry,
         lv_bank   TYPE bapi1011_address-bank_name,
         lv_region TYPE bapi1011_address-region,
         lv_street TYPE bapi1011_address-street,
         lv_city   TYPE bapi1011_address-city,
         lv_branch TYPE bapi1011_address-bank_branch,
         lv_key    TYPE bapi1011_key-bank_key,
       END OF ty_bank.

DATAlw_bank    TYPE ty_bank,
      it_bank    TYPE TABLE OF ty_bank,
      lw_address TYPE bapi1011_address,
      it_raw     TYPE truxs_t_text_data,
      lw_return  TYPE bapiret2,
      it_return  TYPE TABLE OF bapiret2,
      lw_ADDX LIKE BAPI1011_ADDRESSX.
PARAMETERSp_file TYPE ibipparms-path DEFAULT 'C:\Users\JFR2KOR\Documents\BANK.xlsx'.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  CALL FUNCTION 'F4_FILENAME'
*   EXPORTING
*     PROGRAM_NAME        = SYST-CPROG
*     DYNPRO_NUMBER       = SYST-DYNNR
*     FIELD_NAME          = ' '
    IMPORTING
      file_name p_file.

START-OF-SELECTION.
  CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
    EXPORTING
      i_line_header        'X'
      i_tab_raw_data       it_raw
      i_filename           p_file
    TABLES
      i_tab_converted_data it_bank
    EXCEPTIONS
      conversion_failed    1
      OTHERS               2.

  LOOP AT it_bank INTO lw_bank.
    CLEARlw_address,lw_return.
    lw_address-bank_name   lw_bank-lv_bank.
    lw_address-region lw_bank-lv_region.
    lw_address-street lw_bank-lv_street.
    lw_address-city   lw_bank-lv_city.
    lw_address-bank_branch lw_bank-lv_branch.


    
lw_addx-city 'X'.
    lw_addx-bank_branch 'X'.


    CALL FUNCTION 'BAPI_BANK_CHANGE'
      EXPORTING
        bankcountry               lw_bank-lv_bc
        bankkey                   lw_bank-lv_key
        bank_address              lw_address
        bank_addressx             lw_addx
     IMPORTING
       RETURN                    lw_return.

    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
    APPEND lw_return TO it_return.

  ENDLOOP.


  
LOOP AT it_return INTO lw_return.
    IF lw_return IS INITIAL.
      WRITE'BANK branch and city updated'.
    ELSE.
      WRITElw_return-message.
    ENDIF.
  ENDLOOP.

Step4: Execute.

Input



Output


Step 5: Goto SE11.Give table as BNKA click on display.

Step 6Goto contents Give BANKL as AJAY2006 TO AJAY2010.Execute.


***************The bank city and branch are updated. **********************





Comments

Popular posts from this blog

New syntax for append- VALUE (new syntax 7.4+) in ABAP

Read statement new syntax in ABAP. (7.4+).

Concatenation new syntax( 7.4+ ).