Bdc Screen data not passing to XK01 transaction screen for the second PO

Question

Hi Friends,
                I have an requirement to extend an existing vendor to multiple company code and for multiple purchase organisation.I have created one report that will list the company code and the purchase organisation to be extended for the vendor. I am calling the standard program as below.
          LOOP AT li_porg.
          If user has ALSO selected p. organizations to extend...
            IF NOT li_company[] IS INITIAL.
              LOOP AT li_company.
                SUBMIT zricef666 WITH ld_par = ld_param
                                 WITH ls_vend = ls_vendor_ampl
                                 WITH ld_bukrs = li_company-bukrs
                                 WITH ld_ekorg = li_porg-ekorg
                         AND RETURN.
              ENDLOOP.
          ENDLOOP.
Within the program zricef666 , i am calling the below program to extend vendor.
SUBMIT RFBIKR00 WITH ds_name = FICH
               WITH xlog = ld_mark
                AND RETURN.
Now the problem i am facing is that the first vendor got extended sucessfully for the first PO.But for the second PO , the screen fields are blank and it stuckes in that screen. But in the session i am able to clearly see the data are there but these data are not passing to the screen of XK01.
    Need help to solve this problem from you all.Thanks in advance.
With Regards,
Ajit Prasad.

Answer 1

Hello Ajit, try with the following code and reward if useful. the following code uses the transaction XK01.
REPORT zbdcxk01 .
DATA: BEGIN OF itab OCCURS 0,
        lifnr LIKE rf02k-lifnr,
        bukrs LIKE rf02k-bukrs,
        ktokk LIKE rf02k-ktokk,
        name1 LIKE lfa1-name1,
        sortl LIKE lfa1-sortl,
        land1 LIKE lfa1-land1,
        brsch LIKE lfa1-brsch,
        akont LIKE lfb1-akont,
        zterm LIKE lfb1-zterm,
        reprf LIKE lfb1-reprf,
        zwels LIKE lfb1-zwels,
      END OF itab.
DATA: rc TYPE i,
      flag TYPE i VALUE 1,
      it_files TYPE filetable,
      bdc_data TYPE STANDARD TABLE OF bdcdata WITH HEADER LINE.
DATA:   messtab LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE.
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-002.
PARAMETERS: p_file(1024) TYPE c OBLIGATORY.
PARAMETERS:dismode DEFAULT 'A',
           updmode DEFAULT 'S'.
SELECTION-SCREEN : END OF BLOCK b1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  CALL METHOD cl_gui_frontend_services=>file_open_dialog
  CHANGING
     file_table              = it_files
     rc                      = rc.
*Read the Filename into P_FILE
  READ TABLE it_files INDEX 1 INTO p_file.
START-OF-SELECTION.
  PERFORM getdata.
  PERFORM create_session.
  LOOP AT itab.
    PERFORM fill_bdc_table.
  ENDLOOP.
  PERFORM close_session.
END-OF-SELECTION.
  PERFORM submit.
*&      Form  getdata
*       text
FORM getdata.
  DATA: file TYPE string.
  file = p_file.
  CALL FUNCTION 'GUI_UPLOAD'
       EXPORTING
            filename                = file
            has_field_separator     = 'X'
       TABLES
            data_tab                = itab
       EXCEPTIONS
            file_open_error         = 1
            file_read_error         = 2
            no_batch                = 3
            gui_refuse_filetransfer = 4
            invalid_type            = 5
            no_authority            = 6
            unknown_error           = 7
            bad_data_format         = 8
            header_not_allowed      = 9
            separator_not_allowed   = 10
            header_too_long         = 11
            unknown_dp_error        = 12
            access_denied           = 13
            dp_out_of_memory        = 14
            disk_full               = 15
            dp_timeout              = 16
            OTHERS                  = 17.
*IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
*ENDIF.
ENDFORM.                    " getdata
*&      Form  CREATE_SESSION
*       text
FORM create_session.
  CALL FUNCTION 'BDC_OPEN_GROUP'
   EXPORTING
     client                    = sy-mandt
*   DEST                      = FILLER8
     group                     = 'MYGROUP'
*   HOLDDATE                  = FILLER8
     keep                      = 'X'
     user                      = sy-uname
*   RECORD                    = FILLER1
* IMPORTING
*   QID                       =
   EXCEPTIONS
     client_invalid            = 1
     destination_invalid       = 2
     group_invalid             = 3
     group_is_locked           = 4
     holddate_invalid          = 5
     internal_error            = 6
     queue_error               = 7
     running                   = 8
     system_lock_error         = 9
     user_invalid              = 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.
ENDFORM.                    " CREATE_SESSION
*&      Form  CLOSE_SESSION
FORM close_session.
  CALL FUNCTION 'BDC_CLOSE_GROUP'
       EXCEPTIONS
            not_open    = 1
            queue_error = 2
            OTHERS      = 3.
  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.                    " CLOSE_SESSION
*&      Form  FILL_BDC_TABLE
*       text
*  -->  p1        text
*  <--  p2        text
FORM fill_bdc_table.
  REFRESH bdc_data.
  PERFORM operation.
  CALL FUNCTION 'BDC_INSERT'
   EXPORTING
     tcode                  = 'XK01'
*   POST_LOCAL             = NOVBLOCAL
*   PRINTING               = NOPRINT
    TABLES
      dynprotab              = bdc_data
* EXCEPTIONS
*   INTERNAL_ERROR         = 1
*   NOT_OPEN               = 2
*   QUEUE_ERROR            = 3
*   TCODE_INVALID          = 4
*   PRINTING_INVALID       = 5
*   POSTING_INVALID        = 6
*   OTHERS                 = 7
  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  PERFORM bdc_transaction USING 'XK01'.
ENDFORM.                    " FILL_BDC_TABLE
*&      Form  BDC_DYNPRO
*       texT
*  -->  p1        text
*  <--  p2        text
FORM bdc_dynpro USING program dynpro.
  CLEAR bdc_data.
  bdc_data-program = program.
  bdc_data-dynpro = dynpro.
  bdc_data-dynbegin = 'X'.
  APPEND bdc_data.
ENDFORM.                    " BDC_DYNPRO
*&      Form  BDC_FIELD
*       text
FORM bdc_field USING fnam fval.
  CLEAR bdc_data.
  bdc_data-fnam = fnam.
  bdc_data-fval = fval.
  APPEND bdc_data.
ENDFORM.                    " BDC_FIELD
*&      Form  BDC_TRANSACTION
FORM bdc_transaction USING tcode.
  CALL TRANSACTION tcode USING bdc_data
                         MODE   dismode
                         UPDATE updmode
                         MESSAGES INTO messtab.
ENDFORM.                    " BDC_TRANSACTION
*&      Form  SUBMIT
*       text
FORM submit.
  SUBMIT rsbdcsub EXPORTING LIST TO MEMORY AND RETURN
*                  user sy-uname
                    WITH mappe = 'MYGROUP'
                    WITH von   = sy-datum
                    WITH bis   = sy-datum
                    WITH z_verarb = 'X'.
ENDFORM.                    " SUBMIT
*&      Form  OPERATION
*       text
FORM operation.
  PERFORM bdc_dynpro      USING 'SAPMF02K' '0100'.
  PERFORM bdc_field       USING 'BDC_CURSOR'
                                'RF02K-KTOKK'.
  PERFORM bdc_field       USING 'BDC_OKCODE'
                                '/00'.
  PERFORM bdc_field       USING 'RF02K-LIFNR'
                                itab-lifnr.
  PERFORM bdc_field       USING 'RF02K-BUKRS'
                                itab-bukrs.
  PERFORM bdc_field       USING 'RF02K-KTOKK'
                                itab-ktokk.
  PERFORM bdc_dynpro      USING 'SAPMF02K' '0110'.
  PERFORM bdc_field       USING 'BDC_CURSOR'
                                'LFA1-SORTL'.
  PERFORM bdc_field       USING 'BDC_OKCODE'
                                '/00'.
  PERFORM bdc_field       USING 'LFA1-NAME1'
                                itab-name1.
  PERFORM bdc_field       USING 'LFA1-SORTL'
                                itab-sortl.
  PERFORM bdc_field       USING 'LFA1-LAND1'
                                itab-land1.
  PERFORM bdc_dynpro      USING 'SAPMF02K' '0120'.
  PERFORM bdc_field       USING 'BDC_CURSOR'
                                'LFA1-BRSCH'.
  PERFORM bdc_field       USING 'BDC_OKCODE'
                                '/00'.
  PERFORM bdc_field       USING 'LFA1-BRSCH'
                                itab-brsch.
  PERFORM bdc_dynpro      USING 'SAPMF02K' '0130'.
  PERFORM bdc_field       USING 'BDC_CURSOR'
                                'LFBK-BANKS(01)'.
  PERFORM bdc_field       USING 'BDC_OKCODE'
                                '=ENTR'.
  PERFORM bdc_dynpro      USING 'SAPMF02K' '0210'.
  PERFORM bdc_field       USING 'BDC_CURSOR'
                                'LFB1-AKONT'.
  PERFORM bdc_field       USING 'BDC_OKCODE'
                                '/00'.
  PERFORM bdc_field       USING 'LFB1-AKONT'
                                itab-akont.
  PERFORM bdc_dynpro      USING 'SAPMF02K' '0215'.
  PERFORM bdc_field       USING 'BDC_CURSOR'
                                'LFB1-REPRF'.
  PERFORM bdc_field       USING 'BDC_OKCODE'
                                '=UPDA'.
  PERFORM bdc_field       USING 'LFB1-ZTERM'
                                itab-zterm.
  PERFORM bdc_field       USING 'LFB1-REPRF'
                                itab-reprf.
  PERFORM bdc_field       USING 'LFB1-ZWELS'
                                itab-zwels.
  PERFORM bdc_transaction USING 'XK01'.
ENDFORM.                    " OPERATION