Entering multiple data using SHDB for t-code WAK1

[former_member797394]

Hello everyone,

I am struggling to enter multiple data with SHDB. My can have hundreds of data and it should work at one screen.

Here is the code:

 LOOP AT mt_info INTO ls_info.
      PERFORM fill_bdcdata USING ls_info.
      run_mode = 'A'.
      CALL TRANSACTION 'WAK1'
        USING bdcdata MODE run_mode UPDATE 'S' MESSAGES INTO lt_msg.
      CLEAR ls_info.
    ENDLOOP.

FORM fill_bdcdata USING is_info TYPE zmm_wak.

  REFRESH bdcdata.
* 1st screen.
  PERFORM bdc_dynpro USING 'SAPMWAKA' '1000'.
  PERFORM bdc_field USING 'BDC_CURSOR' 'WAKHD-AKART'.
  PERFORM bdc_field USING 'BDC_OKCODE'  '/00'.
  PERFORM bdc_field USING 'WAKHD-AKART'   is_info-akart.
* 2nd screen.
  PERFORM bdc_dynpro USING 'SAPMWAKA' '8002'.
  PERFORM bdc_field USING 'BDC_OKCODE'  '=WKKI'.
  PERFORM bdc_field USING 'WAKTD-AKTKT'   is_info-aktkt.
  PERFORM bdc_field USING 'WAKHD-WAELA'   'UZS'.
  PERFORM bdc_field USING 'WAKHD-VKDAB'   is_info-vkdab.
  PERFORM bdc_field USING 'WAKHD-VKDBI'   is_info-vkdbi.
  PERFORM bdc_field USING 'WAKHD-ZZBEGTIME'   '00:00:00'.
  PERFORM bdc_field USING 'WAKHD-ZZENDTIME'   '00:00:00'.
  PERFORM bdc_field USING 'BDC_CURSOR' 'WAKPD-ARTNR(01)'.
* 3rd screen.
  PERFORM bdc_dynpro USING 'SAPMWAKA' '2150'.
  PERFORM bdc_field USING 'BDC_CURSOR' 'LR_WKKNR-LOW'.
  PERFORM bdc_field USING 'BDC_OKCODE'  '=%003'.
* 4th screen.
  PERFORM bdc_dynpro USING 'SAPLALDB' '3000'.
  PERFORM bdc_field USING 'BDC_OKCODE'  '=CLIP'.
  PERFORM bdc_field USING 'BDC_CURSOR' 'RSCSEL_255-SLOW_I(01)'.
* 5th screen.
  PERFORM bdc_dynpro USING 'SAPLALDB' '3000'.
  PERFORM bdc_field USING 'BDC_OKCODE'  '=CLIP'.
  PERFORM bdc_field USING 'BDC_CURSOR' 'RSCSEL_255-SLOW_I(01)'.
* 6th screen.
  PERFORM bdc_dynpro USING 'SAPLALDB' '3000'.
  PERFORM bdc_field USING 'BDC_OKCODE'  '=ACPT'.
  PERFORM bdc_field USING 'BDC_CURSOR' 'RSCSEL_255-SLOW_I(01)'.
  PERFORM bdc_field USING 'RSCSEL_255-SLOW_I(01)' is_info-artnr.
  PERFORM bdc_field USING 'RSCSEL_255-SLOW_I(02)' is_info-artnr.
  PERFORM bdc_field USING 'RSCSEL_255-SLOW_I(03)' is_info-artnr.
  PERFORM bdc_field USING 'RSCSEL_255-SLOW_I(04)' is_info-artnr.
  PERFORM bdc_field USING 'RSCSEL_255-SLOW_I(05)' is_info-artnr.
  PERFORM bdc_field USING 'RSCSEL_255-SLOW_I(06)' is_info-artnr.
  PERFORM bdc_field USING 'RSCSEL_255-SLOW_I(07)' is_info-artnr.
  PERFORM bdc_field USING 'RSCSEL_255-SLOW_I(08)' is_info-artnr.
  PERFORM bdc_dynpro USING 'SAPMWAKA' '2150'.
  PERFORM bdc_field USING 'BDC_CURSOR'  'LR_WKKNR-LOW'.
  PERFORM bdc_field USING 'BDC_OKCODE'  '=CRET'.
  PERFORM bdc_field USING 'LR_MATNR-LOW'   is_info-artnr.
* 8th screen.
  PERFORM bdc_dynpro USING 'SAPMSSY0' '0120'.
  PERFORM bdc_field USING 'BDC_OKCODE'  '=&ONT'.
  PERFORM bdc_dynpro USING 'SAPMWAKA' '8002'.
  PERFORM bdc_field USING 'BDC_OKCODE'  '/00'.
  PERFORM bdc_field USING 'WAKTD-AKTKT'   is_info-aktkt.
  PERFORM bdc_field USING 'WAKHD-WAELA'   'UZS'.
  PERFORM bdc_field USING 'WAKHD-VKDAB'   is_info-vkdab.
  PERFORM bdc_field USING 'WAKHD-VKDBI'   is_info-vkdbi.
  PERFORM bdc_field USING 'WAKHD-ZZBEGTIME'   '00:00:00'.
  PERFORM bdc_field USING 'WAKHD-ZZENDTIME'   '00:00:00'.
  PERFORM bdc_field USING 'WAKHD-VKDAB'   is_info-vkdab.
  PERFORM bdc_field USING 'WAKHD-VKDBI'   is_info-vkdbi.
  PERFORM bdc_field USING 'BDC_CURSOR' 'WAKPD-PLVKP(500)'.
  PERFORM bdc_field USING 'WAKPD-PLVKP(01)' is_info-plvkp.
  PERFORM bdc_field USING 'WAKPD-PLVKP(02)' is_info-plvkp.
  PERFORM bdc_field USING 'WAKPD-PLVKP(03)' is_info-plvkp.
  PERFORM bdc_field USING 'WAKPD-PLVKP(04)' is_info-plvkp.
  PERFORM bdc_field USING 'WAKPD-PLVKP(05)' is_info-plvkp.
  PERFORM bdc_field USING 'WAKPD-PLVKP(06)' is_info-plvkp.
  PERFORM bdc_field USING 'WAKPD-PLVKP(07)' is_info-plvkp.
  PERFORM bdc_field USING 'WAKPD-PLVKP(08)' is_info-plvkp.
  PERFORM bdc_dynpro USING 'SAPMWAKA' '8002'.
  PERFORM bdc_field USING 'BDC_OKCODE'  '=SICH'.
  PERFORM bdc_field USING 'BDC_CURSOR' 'WAKHD-AKTNR'.
  PERFORM bdc_field USING 'WAKTD-AKTKT'   is_info-aktkt.
  PERFORM bdc_field USING 'WAKHD-VKDAB'   is_info-vkdab.
  PERFORM bdc_field USING 'WAKHD-VKDBI'   is_info-vkdbi.
  PERFORM bdc_field USING 'WAKHD-ZZBEGTIME'   '00:00:00'.
  PERFORM bdc_field USING 'WAKHD-ZZENDTIME'   '00:00:00'.
  PERFORM bdc_field USING 'WAKHD-FADAT'   is_info-vkdab.
  PERFORM bdc_field USING 'WAKHD-SADAT'   is_info-vkdbi.

[FredericGirod]

really strange to loop on a table, and enter 8 times the same value ARTNR and PLVKP

[venkateswaran_k]

Hi

Can you try BAPI instead of the BDC.

BAPI_PROMO_CREATE

[former_member797394]

Hello,

could you please help me, I am not really familiar with BAPI. Could you send me an example code, please?

Thank you in advance.