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
Showing results for 
Search instead for 
Did you mean: 
Read only

BDC programming

Former Member
0 Likes
465

Hi,

I am trying to write a BDC program and need to enter more than 8 values in 'multiple selection' window. But BDC code is not allowing to enter more than 8 values to be entered in 'single-values' option of 'multiple selection' screen.

Does anyone know if there is any solution for this?

Thanks,

Amol

1 ACCEPTED SOLUTION
Read only

Former Member
0 Likes
434

Hi,

Try This

DATA : gs_fname_index TYPE numc3.

CONSTANTS : c_fname_matnr TYPE char20 VALUE 'RIWOL-MATNR',

c_fname_equnr TYPE char20 VALUE 'RIWOL-EQUNR',

c_fname_tplnr TYPE char20 VALUE 'RIWOL-TPLNR'.

DATA : gs_fname_matnr TYPE char20,

gs_fname_equnr TYPE char20,

gs_fname_tplnr TYPE char20.

*>>>>>>>>>ITEM>>>>>>>>>>>

PERFORM bdc_dynpro USING 'SAPLIWP3' '0201'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

CLEAR gs_fname_index.

LOOP AT gt_item INTO wa_item WHERE mptyp = w_itab-mptyp

AND wptxt = w_itab-wptxt.

PERFORM bdc_table_control_lines.

ENDLOOP.

*>>>>>>>>>>>>>>>>>>

FORM bdc_table_control_lines .

gs_fname_index = gs_fname_index + 1.

CONCATENATE : c_fname_matnr '(' gs_fname_index ')' INTO gs_fname_matnr,

c_fname_equnr '(' gs_fname_index ')' INTO gs_fname_equnr,

c_fname_tplnr '(' gs_fname_index ')' INTO gs_fname_tplnr.

PERFORM bdc_field USING 'BDC_CURSOR' gs_fname_matnr.

PERFORM bdc_field USING gs_fname_matnr wa_item-matnr.

PERFORM bdc_field USING gs_fname_equnr wa_item-equnr.

PERFORM bdc_field USING gs_fname_tplnr wa_item-tplnr.

IF gs_fname_index = 8.

CLEAR gs_fname_index.

PERFORM bdc_dynpro USING 'SAPLIWP3' '0201'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=P+'.

ENDIF.

ENDFORM. " bdc_table_control_lines

3 REPLIES 3
Read only

former_member194669
Active Contributor
0 Likes
434

After enter 8 values press page down you can find new set of values for entry

Read only

Former Member
0 Likes
434

Hi,

If it is report program instead of BDC use SUBMIT statement.

Thanks

Naren

Read only

Former Member
0 Likes
435

Hi,

Try This

DATA : gs_fname_index TYPE numc3.

CONSTANTS : c_fname_matnr TYPE char20 VALUE 'RIWOL-MATNR',

c_fname_equnr TYPE char20 VALUE 'RIWOL-EQUNR',

c_fname_tplnr TYPE char20 VALUE 'RIWOL-TPLNR'.

DATA : gs_fname_matnr TYPE char20,

gs_fname_equnr TYPE char20,

gs_fname_tplnr TYPE char20.

*>>>>>>>>>ITEM>>>>>>>>>>>

PERFORM bdc_dynpro USING 'SAPLIWP3' '0201'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

CLEAR gs_fname_index.

LOOP AT gt_item INTO wa_item WHERE mptyp = w_itab-mptyp

AND wptxt = w_itab-wptxt.

PERFORM bdc_table_control_lines.

ENDLOOP.

*>>>>>>>>>>>>>>>>>>

FORM bdc_table_control_lines .

gs_fname_index = gs_fname_index + 1.

CONCATENATE : c_fname_matnr '(' gs_fname_index ')' INTO gs_fname_matnr,

c_fname_equnr '(' gs_fname_index ')' INTO gs_fname_equnr,

c_fname_tplnr '(' gs_fname_index ')' INTO gs_fname_tplnr.

PERFORM bdc_field USING 'BDC_CURSOR' gs_fname_matnr.

PERFORM bdc_field USING gs_fname_matnr wa_item-matnr.

PERFORM bdc_field USING gs_fname_equnr wa_item-equnr.

PERFORM bdc_field USING gs_fname_tplnr wa_item-tplnr.

IF gs_fname_index = 8.

CLEAR gs_fname_index.

PERFORM bdc_dynpro USING 'SAPLIWP3' '0201'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=P+'.

ENDIF.

ENDFORM. " bdc_table_control_lines