‎2009 Apr 01 10:17 PM
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
‎2009 Apr 02 6:39 AM
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
‎2009 Apr 01 10:26 PM
After enter 8 values press page down you can find new set of values for entry
a®
‎2009 Apr 01 10:53 PM
Hi,
If it is report program instead of BDC use SUBMIT statement.
Thanks
Naren
‎2009 Apr 02 6:39 AM
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