生产订单修改删除组件BDC

时间：2022-08-08 05:00:54

可用函数修改：CO_XT_COMPONENT_CHANGE，一次一个

 FORM prm_change_bom .

   DATA:gw_zstypf TYPE zstypf.

   DATA:lv_rspos TYPE rspos.

   CLEAR:gw_zstypf,lv_rspos.

   LOOP AT gt_zstypf INTO gs_zstypf.

     IF gs_zstypf-rsnum IS NOT INITIAL.

       MOVE-CORRESPONDING gs_zstypf TO gw_zstypf.

     ENDIF.

   ENDLOOP.

   LOOP AT gt_zstypf INTO gs_zstypf WHERE xloek = 'X'."原有组件，需要先删除

     PERFORM prm_delete_bom_line USING gs_zstypf-rspos gs_zstypf-aufnr.

     IF sy-subrc = .

     ELSE.

       MESSAGE '删除组件失败，请重新删除！' TYPE 'E'.

     ENDIF.

   ENDLOOP.

   WAIT UP TO  SECONDS.

   LOOP AT gt_zstypf INTO gs_zstypf WHERE xloek = 'C' AND rsnum IS NOT INITIAL."修改原有组件

     PERFORM prm_change_bom_line USING gs_zstypf.

     IF sy-subrc = .

     ELSE.

       MESSAGE '修改组件失败，请重新修改！' TYPE 'E'.

     ENDIF.

   ENDLOOP.

   WAIT UP TO  SECONDS.

   SELECT MAX( rspos ) INTO lv_rspos FROM resb WHERE rsnum = gw_zstypf-rsnum.

   LOOP AT gt_zstypf INTO gs_zstypf WHERE xloek <> 'X' AND rsnum IS INITIAL."新建组件

     gs_zstypf-rspos = lv_rspos + .

     gs_zstypf-aufnr = gw_zstypf-aufnr.

     gs_zstypf-posnr = gs_zstypf-rspos * .

     lv_rspos = lv_rspos + .

     PERFORM prm_add_bom_line USING gs_zstypf.

     IF sy-subrc = .

     ELSE.

       MESSAGE '添加组件失败，请重新添加！' TYPE 'E'.

     ENDIF.

   ENDLOOP.

 ENDFORM.                    " PRM_CHANGE_BOM
FORM prm_delete_bom_line  USING    p_posnr p_aufnr.

   DATA:lv_value TYPE bdcdata-fval.

   DATA:lv_fname TYPE bdcdata-fnam.

   REFRESH:messtab,bdcdata.

   CLEAR:lv_value,lv_fname.

   CONCATENATE 'RESBD-POSNR(' p_posnr ')' INTO lv_value.

   CONCATENATE 'RC27X-FLG_SEL(' p_posnr ')' INTO lv_fname.

   PERFORM bdc_dynpro      USING 'SAPLCOKO1' ''.

   PERFORM bdc_field       USING 'BDC_CURSOR'

                                 'CAUFVD-AUFNR'.

   PERFORM bdc_field       USING 'BDC_OKCODE'

                                 '=KPU2'.

   PERFORM bdc_field       USING 'CAUFVD-AUFNR'

                                 p_aufnr.

*                              '100000043'.

   PERFORM bdc_field       USING 'R62CLORD-FLG_OVIEW'

                                 'X'.

   PERFORM bdc_dynpro      USING 'SAPLCOMK' ''.

   PERFORM bdc_field       USING 'BDC_CURSOR'

                                 lv_value.

*                              'RESBD-POSNR(02)'.

   PERFORM bdc_field       USING 'BDC_OKCODE'

                                 '=DEL'.

   PERFORM bdc_field       USING 'FILTER_BOX'

                                 'NO_FIL'.

   PERFORM bdc_field       USING 'SORT_BOX'

                                 'ST_STA'.

   PERFORM bdc_field       USING lv_fname"'RC27X-FLG_SEL(02)'

                                 'X'.

   PERFORM bdc_dynpro      USING 'SAPLCOMK' ''.

   PERFORM bdc_field       USING 'BDC_CURSOR'

                                 'RESBD-MATNR(01)'.

   PERFORM bdc_field       USING 'BDC_OKCODE'

                                 '=BU'.

   PERFORM bdc_field       USING 'FILTER_BOX'

                                 'NO_FIL'.

   PERFORM bdc_field       USING 'SORT_BOX'

                                 'ST_STA'.

   CALL TRANSACTION 'CO02' USING bdcdata

                           MODE   'N'

                           UPDATE 'S'

                           MESSAGES INTO messtab.

*perform bdc_transaction using 'CO02'.

 ENDFORM.                    " PRM_DELETE_BOM_LINE
FORM prm_change_bom_line  USING    p_gs_zstypf STRUCTURE zstypf.

   DATA:lv_value TYPE bdcdata-fval.

   DATA:lv_dbmn TYPE bdcdata-fval."数量

   DATA:lv_fnam1 TYPE bdcdata-fnam.

   DATA:lv_fnam2 TYPE bdcdata-fnam.

   DATA:lv_fnam3 TYPE bdcdata-fnam.

   REFRESH:messtab,bdcdata.

   CLEAR:lv_value,lv_fnam1,lv_fnam2,lv_fnam3.

   CONCATENATE 'RESBD-MATXT(' p_gs_zstypf-rspos ')' INTO lv_value.

   CONCATENATE 'RC27X-FLG_SEL(' p_gs_zstypf-rspos ')' INTO lv_fnam1.

   CONCATENATE 'RESBD-MATNR(' p_gs_zstypf-rspos ')' INTO lv_fnam2.

   CONCATENATE 'RESBD-MENGE(' p_gs_zstypf-rspos ')' INTO lv_fnam3.

   PERFORM bdc_dynpro      USING 'SAPLCOKO1' ''.

   PERFORM bdc_field       USING 'BDC_CURSOR'

                                 'CAUFVD-AUFNR'.

   PERFORM bdc_field       USING 'BDC_OKCODE'

                                 '=KPU2'.

   PERFORM bdc_field       USING 'CAUFVD-AUFNR'

                                 p_gs_zstypf-aufnr.

   PERFORM bdc_field       USING 'R62CLORD-FLG_OVIEW'

                                 'X'.

   PERFORM bdc_dynpro      USING 'SAPLCOMK' ''.

   PERFORM bdc_field       USING 'BDC_CURSOR'

                                 lv_value.

   PERFORM bdc_field       USING 'BDC_OKCODE'

                                 '=PICK'.

   PERFORM bdc_field       USING 'FILTER_BOX'

                                 'NO_FIL'.

   PERFORM bdc_field       USING 'SORT_BOX'

                                 'ST_STA'.

   PERFORM bdc_field       USING lv_fnam1

                                 'X'.

   PERFORM bdc_field       USING lv_fnam2

                                 p_gs_zstypf-matnr.

   MOVE p_gs_zstypf-bdmng TO lv_dbmn.

   CONDENSE lv_dbmn NO-GAPS.

   PERFORM bdc_field       USING lv_fnam3

                                 lv_dbmn.

   PERFORM bdc_dynpro      USING 'SAPLCOMD' ''.

   PERFORM bdc_field       USING 'BDC_OKCODE'

                                 '=BU'.

   PERFORM bdc_field       USING 'BDC_CURSOR'

                                 'RESBD-POTX1'.

   PERFORM bdc_field       USING 'RESBD-MATNR'

                                 p_gs_zstypf-matnr.

   PERFORM bdc_field       USING 'RESBD-POSNR'

                                 p_gs_zstypf-posnr.

   PERFORM bdc_field       USING 'RESBD-POTX1'

                                 p_gs_zstypf-potx1.

   PERFORM bdc_field       USING 'RESBD-SANKA'

                                 'X'.

   PERFORM bdc_dynpro      USING 'SAPLCOMD' ''.

   PERFORM bdc_field       USING 'BDC_OKCODE'

                                 '=BU'.

   PERFORM bdc_field       USING 'RESBD-SANKA'

                                 'X'.

   CALL TRANSACTION 'CO02' USING bdcdata

                           MODE   'N'

                           UPDATE 'S'

                           MESSAGES INTO messtab.

 ENDFORM.                    " PRM_CHANGE_BOM_LINE
FORM prm_add_bom_line  USING    p_gs_zstypf STRUCTURE zstypf.

   DATA:lv_value TYPE bdcdata-fval.

   DATA:lv_dbmn TYPE bdcdata-fval."数量

   DATA:lv_fnam1 TYPE bdcdata-fnam.

   DATA:lv_fnam2 TYPE bdcdata-fnam.

   DATA:lv_fnam3 TYPE bdcdata-fnam.

   DATA:lv_fnam4 TYPE bdcdata-fnam.

   DATA:lv_fnam5 TYPE bdcdata-fnam.

   DATA:lv_fnam6 TYPE bdcdata-fnam.

   REFRESH:messtab,bdcdata.

   CLEAR:lv_value,lv_fnam1,lv_fnam2,lv_fnam3,lv_fnam4,lv_fnam5,lv_fnam6.

   CONCATENATE 'RESBD-MATXT(' p_gs_zstypf-rspos ')' INTO lv_value.

   CONCATENATE 'RESBD-MATNR(' p_gs_zstypf-rspos ')' INTO lv_fnam1.

   CONCATENATE 'RESBD-MENGE(' p_gs_zstypf-rspos ')' INTO lv_fnam2.

   CONCATENATE 'RESBD-EINHEIT(' p_gs_zstypf-rspos ')' INTO lv_fnam3.

   CONCATENATE 'RESBD-POSTP(' p_gs_zstypf-rspos ')' INTO lv_fnam4.

   CONCATENATE 'RESBD-VORNR(' p_gs_zstypf-rspos ')' INTO lv_fnam5.

   CONCATENATE 'RCOLS-APLFL(' p_gs_zstypf-rspos ')' INTO lv_fnam6.

   PERFORM bdc_dynpro      USING 'SAPLCOKO1' ''.

   PERFORM bdc_field       USING 'BDC_CURSOR'

                                 'CAUFVD-AUFNR'.

   PERFORM bdc_field       USING 'BDC_OKCODE'

                                 '=KPU2'.

   PERFORM bdc_field       USING 'CAUFVD-AUFNR'

                                 p_gs_zstypf-aufnr.

   PERFORM bdc_field       USING 'R62CLORD-FLG_OVIEW'

                                 'X'.

   PERFORM bdc_dynpro      USING 'SAPLCOMK' ''.

   PERFORM bdc_field       USING 'BDC_CURSOR'

                                 lv_value.

   PERFORM bdc_field       USING 'BDC_OKCODE'

                                 '=PICK'.

   PERFORM bdc_field       USING 'FILTER_BOX'

                                 'NO_FIL'.

   PERFORM bdc_field       USING 'SORT_BOX'

                                 'ST_STA'.

   PERFORM bdc_field       USING lv_fnam1

                                 p_gs_zstypf-matnr.

   MOVE p_gs_zstypf-bdmng TO lv_dbmn.

   CONDENSE lv_dbmn NO-GAPS.

   PERFORM bdc_field       USING lv_fnam2

                                 lv_dbmn.

   CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'

     EXPORTING

       input          = p_gs_zstypf-meins

       language       = sy-langu

     IMPORTING

*      LONG_TEXT      =

       output         = p_gs_zstypf-meins

*      SHORT_TEXT     =

     EXCEPTIONS

       unit_not_found =

       OTHERS         = .

   PERFORM bdc_field       USING lv_fnam3

                                 p_gs_zstypf-meins.

   PERFORM bdc_field       USING lv_fnam4

                                 'L'.

   PERFORM bdc_field       USING lv_fnam5

                                 p_gs_zstypf-vornr.

   PERFORM bdc_field       USING lv_fnam6

                                 p_gs_zstypf-plnfl.

   PERFORM bdc_dynpro      USING 'SAPLCOMD' ''.

   PERFORM bdc_field       USING 'BDC_OKCODE'

                                 '=BU'.

   PERFORM bdc_field       USING 'BDC_CURSOR'

                                 'RESBD-POTX1'.

   PERFORM bdc_field       USING 'RESBD-POTX1'

                                 p_gs_zstypf-potx1.

   PERFORM bdc_field       USING 'RESBD-SANKA'

                                 'X'.

   PERFORM bdc_dynpro      USING 'SAPLCOMD' ''.

   PERFORM bdc_field       USING 'BDC_OKCODE'

                                 '=BU'.

   CALL TRANSACTION 'CO02' USING bdcdata

                           MODE   'N'

                           UPDATE 'S'

                           MESSAGES INTO messtab.

 ENDFORM.                    " PRM_ADD_BOM_LINE

相关文章