Community
Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 
Read only

Scroll down in BDC using table control.

arindam_samanta
Participant

‎2013 Jan 18 3:13 PM

0 Likes
3,328

Hi Experts,

I am using BDC for transaction LB01. There is 11 line items. At a time 9 items are processing in BDC. after that I need to scroll down. My code is below:

LOOP AT t_ltbk INTO w_ltbk.
     REFRESH t_bdctab.
     PERFORM sub_fill_bdc.
*    For creating duplicate TR
     CALL TRANSACTION 'LB01' USING t_bdctab
                             MODE 'A'
                             UPDATE 'S'
                             MESSAGES INTO t_msgtab.
     CLEAR w_ltbk. " Marked
ENDLOOP.


FORM sub_fill_bdc .

   DATA  l_pdatu TYPE char10.  " For converting date format to DDMMYYYY
   CLEAR l_pdatu.

   PERFORM bdc_dynpro      USING 'SAPML02B' '0101'.
   PERFORM bdc_field       USING 'BDC_CURSOR'
                                 'LTBK-TBPRI'.
   PERFORM bdc_field       USING 'BDC_OKCODE'
                                 '/00'.
   PERFORM bdc_field       USING 'LTBK-LGNUM'
                                 g_zwhouse.        " Warehouse number: 101
   PERFORM bdc_field       USING 'LTBK-BWLVS'
                                 g_zwmmvt.         " Movement type: 908
   PERFORM bdc_field       USING 'LTBK-BENUM'
                                 w_ltbk-benum.
   PERFORM bdc_field       USING 'LTBK-BETYP'
                                 w_ltbk-betyp.
   CONCATENATE w_ltbk-pdatu+6(2) w_ltbk-pdatu+4(2) w_ltbk-pdatu+0(4) INTO l_pdatu
               SEPARATED BY '.'.
   PERFORM bdc_field       USING 'LTBK-PDATU'
                                 l_pdatu.
   PERFORM bdc_field       USING 'LTBK-PZEIT'
                                 w_ltbk-pzeit.
   PERFORM bdc_field       USING 'LTBK-TBPRI'
                                 w_ltbk-tbpri.

   PERFORM bdc_dynpro      USING 'SAPML02B' '1105'.
   PERFORM bdc_field       USING 'BDC_CURSOR'
                                 'RL02B-LGORT'.
   PERFORM bdc_field       USING 'BDC_OKCODE'
                                 '/00'.
****************************************************************
************  For passing item details into BDC screen
****************************************************************

   DATA : l_fnam(20) TYPE c,     " Local variable for BDCDATA field name
          l_idx(2)   TYPE c,     " Local index variable
          l_menga    TYPE char30." Local variable for Transfer Requirement Quantity in Altern

   CLEAR: l_fnam,l_idx,l_menga.
   MOVE 1 TO l_idx.
   CONDENSE l_idx.

   LOOP AT t_ltbp INTO w_ltbp WHERE lgnum = w_ltbk-lgnum AND
                                    tbnum = w_ltbk-tbnum.
     PERFORM bdc_field       USING 'RL02B-WERKS'
                                   w_ltbp-werks.
     PERFORM bdc_field       USING 'RL02B-LGORT'
                                   w_ltbp-lgort.
     CONCATENATE 'LTBP-MATNR(' l_idx ')' INTO l_fnam.
     PERFORM bdc_field       USING l_fnam
                                   w_ltbp-matnr.

     CONCATENATE 'LTBP-MENGA(' l_idx ')' INTO l_fnam.
     l_menga = w_ltbp-menga.     " Converting from QUAN to CHAR format
     CONDENSE l_menga.           " Eliminating all blank speces
     PERFORM bdc_field       USING l_fnam
                                   l_menga.

     CONCATENATE 'LTBP-ALTME(' l_idx ')' INTO l_fnam.
     PERFORM bdc_field       USING l_fnam
                                   w_ltbp-altme.
     l_idx = l_idx + 1.
     IF l_idx = 10.
       PERFORM bdc_dynpro      USING 'SAPML02B' '1105'.
*      PERFORM bdc_field       USING 'BDC_CURSOR'
*                                    'RL02B-LGORT'.
       PERFORM bdc_field       USING 'BDC_OKCODE'
                                     '/00'.
       PERFORM bdc_field USING 'BDC_OKCODE'

                                  '=P+'.

     ENDIF.
   ENDLOOP.

****************************************************************
   PERFORM bdc_dynpro      USING 'SAPML02B' '1105'.
   PERFORM bdc_field       USING 'BDC_CURSOR'
                                 'LTBP-MATNR(01)'.
   PERFORM bdc_field       USING 'BDC_OKCODE'
                                 '=AK'.
   PERFORM bdc_field       USING 'RL02B-WERKS'
                                 '1010'.
   PERFORM bdc_field       USING 'RL02B-LGORT'
                                 '1010'.
****************************************************************
************  Another header details
****************************************************************

   PERFORM bdc_dynpro      USING 'SAPML02B' '0104'.
   PERFORM bdc_field       USING 'BDC_CURSOR'
                                 'LTBK-LZNUM'.
   PERFORM bdc_field       USING 'BDC_OKCODE'
                                 '=BU'.
   PERFORM bdc_field       USING 'LTBK-BENUM'
                                 w_ltbk-benum.
   PERFORM bdc_field       USING 'LTBK-TBPRI'
                                 w_ltbk-tbpri.
   PERFORM bdc_field       USING 'LTBK-PDATU'
                                 l_pdatu.

   PERFORM bdc_field       USING 'LTBK-PZEIT'
                                 w_ltbk-pzeit.
   PERFORM bdc_field       USING 'LTBK-LZNUM'
                                 w_ltbk-lznum.


ENDFORM.                    " SUB_FILL_BDC

But my BDC scroll is not working properly. Upto 9th items , this ok. But next is not processing for 10th and 11th. How to solve this??

Regards,

Arindam Samanta.

4 REPLIES 4
Read only

Former Member

‎2013 Jan 18 3:41 PM

0 Likes
1,866

Hi Arindam ,

Try to implement these piece of code to your program it will help you ..........

1)------------------------------------------------------------ 

  • for page down

  WHILE v_position GT 19.

    PERFORM bdc_dynpro      USING 'SAPMF02K' '0320'.

    PERFORM bdc_field       USING 'BDC_OKCODE'

                                  '=P+'.

    v_position = v_position - 13.

  ENDWHILE.

Where v_position stores the line number

and replace 'SAPMF02K' '0320' with your program name and dynpro number

or ,

2)--------------------------------------------------------------

move 1 to idx1.

      SORT idata BY code.

       LOOP AT idata WHERE code = itab1-code.

        PERFORM bdc_field       USING 'BDC_CURSOR'      v_mat.

        PERFORM bdc_field       USING 'BDC_OKCODE'       '=OK4'.

        move idx1 to idx.

        CONDENSE idx.

        CONCATENATE 'MARA-MATNR(' idx ')'  INTO v_mat.

        CONCATENATE 'QTY(' idx ')'  INTO v_qty.

        PERFORM bdc_field       USING  v_mat    idata-matcode.

        PERFORM bdc_field       USING v_qty     idata-qty.

        perform bdc_field       using 'BDC_OKCODE'     '=P++'.

     idx1 = idx1 + 1. 

      ENDLOOP.

Regards,

Amit Kumar Singh

Read only

SreekanthKrishn
Contributor

‎2013 Jan 18 3:54 PM

0 Likes
1,866

Hi Arindam,

Please avoid using BDC if there is a standard BAPI available.

You can try BAPI CSAI_BOM_CREATE instead of using BDC of LB01.

Thanks,

Sreekanth

Read only

gurunathkumar_dadamu
Active Contributor

‎2013 Jan 18 4:26 PM

0 Likes
1,866

Hi Arindam  Samanta,

please check the following BAPI.

L_TO_CREATE_SINGLE

L_TO_CREATE_MULTIPLE

Regards,

Gurunath Kumar D

Read only

gurunathkumar_dadamu
Active Contributor

‎2013 Jan 21 10:00 AM

0 Likes
1,866

Hi Arindam,

please try the below code.

data: n_count(02) TYPE n.

LOOP AT t_ltbp INTO w_ltbp WHERE lgnum = w_ltbk-lgnum AND

                                    tbnum = w_ltbk-tbnum.

PERFORM bdc_dynpro      USING 'SAPML02B' '1105'.

     PERFORM bdc_field       USING 'RL02B-WERKS'

                                   w_ltbp-werks.

     PERFORM bdc_field       USING 'RL02B-LGORT'

                                   w_ltbp-lgort.

*- incrementing the counter varaible.

n_count = n_count + 1.

*- concatenating the komgg-matnr(01) into komgg-matnr.

CONCATENATE 'LTBP-MATNR('n_count')' INTO LTBP-MATNR.

*- pass the matnr.

perform bdc_field       using LTBP-MATNR

                          w_ltbp-matnr.

CONCATENATE 'LTBP-MENGA(' n_count ')' INTO LTBP-MENGA.

condense w_ltbp-menga.

perform bdc_field       using LTBP-MENGA

                          w_ltbp-menga.

CONCATENATE 'LTBP-ALTME('n_count ')' INTO LTBP-ALTME.

PERFORM bdc_field       USING LTBP-ALTME

                                   w_ltbp-ALTME.

perform bdc_field       using 'BDC_OKCODE'

                              '/00'.

*- if table control lines > 9.

if n_count > 9.

*- incremeting the current line index.

perform bdc_field       using 'BDC_OKCODE'

                              '=P+'.

perform bdc_field       using LTBP-MATNR

                          w_ltbp-matnr.

perform bdc_field       using LTBP-MENGA

                          w_ltbp-menga.

PERFORM bdc_field       USING LTBP-ALTME

                                   w_ltbp-ALTME.

endif.

endloop.