関数、たくさんのバグ、Bdcが直接あります
frm_bdc_initを実行します。
'SAPML04I''1001'を使用してfrm_bdc_dynnrを実行します。
スペース 'LINK-LGNUM'gt_detail-lgnumを使用してfrm_bdc_fieldを実行します。
スペース 'LINK-LGTYP''919'を使用してfrm_bdc_fieldを実行します。
スペース 'LINK-PDATU'sy-datumを使用してfrm_bdc_fieldを実行します。
スペース 'LINK-IRNUM'gt_detail-zpdnoを使用してfrm_bdc_fieldを実行します。
スペース 'BDC_OKCODE' '/ 00'を使用してfrm_bdc_fieldを実行します。
'SAPML04I''1021'を使用してfrm_bdc_dynnrを実行します。
zpdno = l_zpdnoおよびwerks = l_werksおよびzykmg> 0であり、ivnumが初期であるgt_detailでループします。
ivnumは初期です。
lv_count = lv_count +1。
*ページめくり
lv_count> 15の場合。
スペース 'BDC_OKCODE' '= P +'を使用してfrm_bdc_fieldを実行します。
lv_count = 1。
'SAPML04I''1021'を使用してfrm_bdc_dynnrを実行します。
endif。
lv_fname = 'LINP-LGPLA(' && lv_count && ')'。
lv_value = gt_detail-lgort && gt_detail-grtxt。
スペースlv_fnamelv_valueを使用してfrm_bdc_fieldを実行します。
data(lv_li01n)= 'X'。 "LI01Nが実行されました
エンドループ。
スペース 'BDC_OKCODE''AK'を使用してfrm_bdc_fieldを実行します。「激活
lv_li01n = 'X'の場合。
'LI01N''L4''046'を使用してfrm_bdc_callを実行し、lv_rtypelv_rtmsgを変更します。
キーmsgid = 'L4' msgnr = '046'でテーブルgt_messtabを読み取ります。
sy-subrc = 0の場合。
データ(lv_ivnum)= gt_messtab-msgv1。
endif。