LI01N在庫注文を作成します

関数、たくさんのバグ、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。

 

おすすめ

転載: blog.csdn.net/cylcylcylcylwo/article/details/113986188