FORM frm_change_jsgz .

  DATA:ls_cobrb     TYPE cobrb,
       lt_cobrb     TYPE TABLE OF cobrb,
       lv_zno       TYPE i,
       lt_zco       TYPE STANDARD TABLE OF ztco_lcpjsgz,
       ls_zco       TYPE ztco_lcpjsgz,
       lv_aqzif(10) TYPE p.

  REFRESH:lt_cobrb[],
          lt_zco[].
  CLEAR lv_zno.

  "获取ALV选中订单号
  READ TABLE gt_alv INTO DATA(ls_alv)
                    WITH KEY zsel = 'X'.
  DATA(lt_alv) = gt_alv[].
  DELETE lt_alv WHERE aufnr <> ls_alv-aufnr.

  "判断是否执行过,不重复执行
  DELETE lt_alv WHERE zsta1 = 'X'.
  IF lt_alv[] IS NOT INITIAL.

    SORT lt_alv BY aufnr afpos.
    "是否已经有数据
    DATA(lt_aufk) = gt_aufk[].
    DELETE lt_aufk WHERE aufnr <> ls_alv-aufnr.
    SORT lt_aufk BY objnr.
    DELETE ADJACENT DUPLICATES FROM lt_aufk COMPARING objnr.

    SELECT a~*
      FROM cobrb AS a
     INNER JOIN @lt_aufk AS b
        ON a~objnr = b~objnr
      INTO TABLE @DATA(lt_cobrb_t).
    IF sy-subrc = 0.
      "整合数据,更新数据
      CLEAR:lv_zno.
      LOOP AT lt_cobrb_t INTO DATA(ls_cobrb_t).
        MOVE-CORRESPONDING ls_cobrb_t TO ls_cobrb.
        lv_zno = lv_zno + 1.
        READ TABLE lt_alv INTO DATA(ls_alv2) INDEX lv_zno.
        CLEAR:lv_aqzif.
*        lv_aqzif = ls_alv2-dmbtr.
*        ls_cobrb-aqzif = ls_alv2-zjsqs.                "
        ls_cobrb-prozs = ls_alv2-zjsqs.           "权数
        APPEND ls_cobrb TO lt_cobrb.
      ENDLOOP.

      SET UPDATE TASK LOCAL .
      CALL FUNCTION 'K_SRULE_SAVE_UTASK'
        TABLES
          t_cobrb_update    = lt_cobrb
        EXCEPTIONS
          srule_utask_error = 1
          OTHERS            = 2.
    ENDIF.

    IF sy-subrc <> 0.
      LOOP AT gt_alv INTO DATA(ls_fail)
                      WHERE aufnr = ls_alv-aufnr.
        ls_fail-zmsg1 = '订单结算规则修改失败'.
        IF ls_fail-zmsg IS NOT INITIAL.
          ls_fail-zmsg  = ls_fail-zmsg && '|' &&'订单结算规则修改失败'.
        ELSE.
          ls_fail-zmsg = '订单结算规则修改失败'.
        ENDIF.
        IF  ls_fail-zsta1 IS NOT INITIAL
        AND ls_fail-zsta2 IS NOT INITIAL.
          ls_fail-icon = icon_led_green.
        ELSE.
          ls_fail-icon = icon_led_red.
        ENDIF.
        MODIFY gt_alv FROM ls_fail TRANSPORTING zmsg1 zmsg icon.
        MOVE-CORRESPONDING ls_fail TO ls_zco.
        SELECT SINGLE crnam crdat
          INTO (ls_zco-crnam,ls_zco-crdat)
          FROM ztco_lcpjsgz
         WHERE werks = ls_fail-werks
           AND gjahr = ls_fail-gjahr
           AND poper = ls_fail-poper
           AND aufnr = ls_fail-aufnr
           AND afpos = ls_fail-afpos
           AND matnr = ls_fail-matnr.
        IF sy-subrc = 0.
          ls_zco-upnam = sy-uname.
          ls_zco-updat = sy-datum.
        ELSE.
          ls_zco-crnam = sy-uname.
          ls_zco-crdat = sy-datum.
        ENDIF.
        APPEND ls_zco TO lt_zco.
        CLEAR:ls_fail,ls_zco.
      ENDLOOP.

    ELSE.
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.

      LOOP AT gt_alv INTO DATA(ls_suss)
                      WHERE aufnr = ls_alv-aufnr.
        ls_suss-zsta1 = 'X'.
        ls_suss-zmsg1 = '订单结算规则修改成功'.
        IF ls_suss-zmsg IS NOT INITIAL.
          ls_suss-zmsg  = ls_suss-zmsg && '|' &&'订单结算规则修改成功'.
        ELSE.
          ls_suss-zmsg = '订单结算规则修改成功'.
        ENDIF.
        IF  ls_suss-zsta1 IS NOT INITIAL
        AND ls_suss-zsta2 IS NOT INITIAL.
          ls_suss-icon = icon_led_green.
        ELSE.
          ls_suss-icon = icon_led_red.
        ENDIF.
        MODIFY gt_alv FROM ls_suss TRANSPORTING zsta1 zmsg1 zmsg icon.
        MOVE-CORRESPONDING ls_suss TO ls_zco.
        SELECT SINGLE crnam crdat
          INTO (ls_zco-crnam,ls_zco-crdat)
          FROM ztco_lcpjsgz
         WHERE werks = ls_fail-werks
           AND gjahr = ls_fail-gjahr
           AND poper = ls_fail-poper
           AND aufnr = ls_fail-aufnr
           AND afpos = ls_fail-afpos
           AND matnr = ls_fail-matnr.
        IF sy-subrc = 0.
          ls_zco-upnam = sy-uname.
          ls_zco-updat = sy-datum.
        ELSE.
          ls_zco-crnam = sy-uname.
          ls_zco-crdat = sy-datum.
        ENDIF.
        APPEND ls_zco TO lt_zco.
        CLEAR:ls_suss,ls_zco.
      ENDLOOP.

    ENDIF.


    MODIFY ztco_lcpjsgz FROM TABLE lt_zco[].
    IF sy-subrc = 0.
      COMMIT WORK.
    ELSE.
      ROLLBACK WORK.
    ENDIF.
  ELSE.
    MESSAGE '该订单订单结算规则修改已行过' TYPE 'S' DISPLAY LIKE 'E'.
  ENDIF.

ENDFORM.

MM03 输入物料—>选择 "成本",进入后选择"联合生产"

程序是BDC方式执行,可以自己录BDC,然后根据实际情况调整

FORM frm_change_qsxg .
  DATA: lv_zno(2)   TYPE p,
        lv_zno_2(2) TYPE p,
        lv_field    TYPE char30,
        lt_zco      TYPE STANDARD TABLE OF ztco_lcpjsgz,
        ls_zco      TYPE ztco_lcpjsgz.
  CLEAR:lt_zco[].

  READ TABLE gt_alv INTO DATA(ls_alv)
                    WITH KEY zsel = 'X'.

  "判断是否执行过,不重复执行
  DATA(lt_alv) = gt_alv[].
  DELETE lt_alv WHERE aufnr <> ls_alv-aufnr.
  DELETE lt_alv WHERE zsta2 = 'X'.
  IF lt_alv[] IS NOT INITIAL.
    "判断是否已经创建过
    DATA(lt_alv_2) = lt_alv[].
    SORT lt_alv_2 BY matnr.
    DELETE ADJACENT DUPLICATES FROM lt_alv_2 COMPARING matnr.

    SELECT a~matnr,
           a~werks,
           a~csplit
      FROM makv AS a
     INNER JOIN @lt_alv_2 AS b
        ON a~matnr = b~matnr
      INTO TABLE @DATA(lt_makv).
    IF sy-subrc = 0.
      SORT lt_makv BY matnr.
    ENDIF.

    "整合BDC数据
    LOOP AT gt_alv INTO DATA(ls_run) WHERE aufnr = ls_alv-aufnr.

      READ TABLE lt_makv INTO DATA(ls_makv)
                         WITH KEY matnr = ls_run-matnr.
      CLEAR: messtab, messtab[], bdcdata, bdcdata[].
      PERFORM bdc_dynpro      USING 'SAPLMGMM' '0060'.
      PERFORM bdc_field       USING 'BDC_CURSOR' 'RMMG1-MATNR'.
      PERFORM bdc_field       USING 'BDC_OKCODE' '=ENTR'.
      PERFORM bdc_field       USING 'RMMG1-MATNR' ls_run-matnr.

      "先进入到修改界面
      PERFORM bdc_dynpro      USING 'SAPLMGMM' '0070'.
      PERFORM bdc_field       USING 'BDC_CURSOR' 'MSICHTAUSW-DYTXT(01)'.
      PERFORM bdc_field       USING 'BDC_OKCODE' '=ENTR'.
      PERFORM bdc_field       USING 'MSICHTAUSW-KZSEL(01)' 'X'.

      "选择成本
      PERFORM bdc_dynpro      USING 'SAPLMGMM' '4004'.
      PERFORM bdc_field       USING 'BDC_OKCODE' '=SP26'.

      "输入工厂
      PERFORM bdc_dynpro      USING 'SAPLMGMM' '0081'.
      PERFORM bdc_field       USING 'BDC_CURSOR' 'RMMG1-WERKS'.
      PERFORM bdc_field       USING 'BDC_OKCODE' '=ENTR'.
      PERFORM bdc_field       USING 'RMMG1-WERKS' p_werks.

      PERFORM bdc_dynpro      USING 'SAPLMGMM' '4000'.
      PERFORM bdc_field       USING 'BDC_OKCODE' '=PB11'.

      "已存在,修改值
      CLEAR:lv_zno.
      IF ls_makv-matnr IS NOT INITIAL.

        PERFORM bdc_dynpro      USING 'SAPLCMKV' '0110'.
        PERFORM bdc_field       USING 'BDC_OKCODE' '=MAKZ'.

        PERFORM bdc_dynpro      USING 'SAPLCMKV' '0130'.

        LOOP AT gt_alv INTO DATA(ls_alv1) WHERE aufnr = ls_run-aufnr.
          lv_zno = lv_zno + 1.
          lv_field = 'MAKZ-ZIFFR(' && lv_zno && ')'.

          PERFORM bdc_field       USING lv_field ls_alv1-zjsqs.
        ENDLOOP.
        "需要点两次确认,修改成一次回车一次确认
        PERFORM bdc_field       USING 'BDC_OKCODE' '=ENTR'.

        PERFORM bdc_dynpro      USING 'SAPLCMKV' '0130'.
        PERFORM bdc_field       USING 'BDC_OKCODE' '=NEXT'.
        "未存在,创建
      ELSE.

        PERFORM bdc_dynpro      USING 'SAPLCMKV' '0110'.
        PERFORM bdc_field       USING 'BDC_OKCODE' '=NEXT'.
        PERFORM bdc_field       USING 'MAKV-CSPLIT(01)' 'Z001'.
        PERFORM bdc_field       USING 'MAKV-SCNAM(01)' 'Z1'.

        PERFORM bdc_dynpro      USING 'SAPLCMKV' '0110'.
        PERFORM bdc_field       USING 'BDC_CURSOR' 'MAKV-CSPLIT(01)'.
        PERFORM bdc_field       USING 'BDC_OKCODE' '=ENTR'.

        PERFORM bdc_dynpro      USING 'SAPLCMKV' '0110'.
        PERFORM bdc_field       USING 'BDC_OKCODE' '=MAKZ'.

        PERFORM bdc_dynpro      USING 'SAPLCMKV' '0130'.
        PERFORM bdc_field       USING 'BDC_CURSOR' 'MAKZ-ZIFFR(02)'.

        CLEAR:lv_zno_2.
        LOOP AT gt_alv INTO DATA(ls_alv_2) WHERE aufnr = ls_run-aufnr.
          lv_zno_2 = lv_zno_2 + 1.
          CLEAR:lv_field.
          lv_field = 'MAKZ-SCZUO(' && lv_zno_2 && ')'.
          PERFORM bdc_field       USING lv_field '1'.
          CLEAR:lv_field.
          lv_field = 'MAKZ-KUPPL(' && lv_zno_2 && ')'.
          PERFORM bdc_field       USING lv_field ls_alv_2-matnr.
          CLEAR:lv_field.
          lv_field = 'MAKZ-ZIFFR(' && lv_zno_2 && ')'.
          PERFORM bdc_field       USING lv_field ls_alv_2-zjsqs.
          CLEAR:ls_alv_2.
        ENDLOOP.
        "需要点两次确认,修改成一次回车一次确认
        PERFORM bdc_field       USING 'BDC_OKCODE' '=ENTR'.

        PERFORM bdc_dynpro      USING 'SAPLCMKV' '0130'.
        PERFORM bdc_field       USING 'BDC_OKCODE' '=NEXT'.
      ENDIF.

      PERFORM bdc_dynpro      USING 'SAPLMGMM' '4000'.
      PERFORM bdc_field       USING 'BDC_OKCODE' '=BU'.

      "A  显示所有屏幕
*E  显示错误
*N  后台处理
*P  后台处理；可以调试
      ls_opt-dismode = 'N'."
*L  本地的
*S  同步
*A  异步的
      ls_opt-updmode = 'S'."
      "ls_opt-cattmode = 'A'.
      ls_opt-nobinpt = 'X'.
      ls_opt-racommit = 'X'.
      CALL TRANSACTION 'MM02' USING bdcdata
                              OPTIONS FROM ls_opt
                              MESSAGES INTO messtab.

      READ TABLE messtab WITH KEY msgtyp = 'E'.
      IF sy-subrc  <> 0.

        ls_run-zsta2 = 'X'.
        ls_run-zmsg2 = '物料联产品权数修改修改成功'.
        IF ls_run-zmsg IS NOT INITIAL.
          ls_run-zmsg  = ls_run-zmsg && '|' &&'物料联产品权数修改修改成功'.
        ELSE.
          ls_run-zmsg = '物料联产品权数修改修改成功'.
        ENDIF.
        IF  ls_run-zsta1 IS NOT INITIAL
        AND ls_run-zsta2 IS NOT INITIAL.
          ls_run-icon = icon_led_green.
        ELSE.
          ls_run-icon = icon_led_red.
        ENDIF.
        MODIFY gt_alv FROM ls_run TRANSPORTING zsta2 zmsg2 zmsg icon.

        "更新表
        MOVE-CORRESPONDING ls_run TO ls_zco.
        SELECT SINGLE crnam crdat
          INTO (ls_zco-crnam,ls_zco-crdat)
          FROM ztco_lcpjsgz
         WHERE werks = ls_run-werks
           AND gjahr = ls_run-gjahr
           AND poper = ls_run-poper
           AND aufnr = ls_run-aufnr
           AND afpos = ls_run-afpos
           AND matnr = ls_run-matnr.
        IF sy-subrc = 0.
          ls_zco-upnam = sy-uname.
          ls_zco-updat = sy-datum.
        ELSE.
          ls_zco-crnam = sy-uname.
          ls_zco-crdat = sy-datum.
        ENDIF.
        APPEND ls_zco TO lt_zco.
        CLEAR:ls_zco.

      ELSE.

        ls_run-zmsg2 = '物料联产品权数修改修改失败'.
        IF ls_run-zmsg IS NOT INITIAL.
          ls_run-zmsg  = ls_run-zmsg && '|' &&'物料联产品权数修改修改成功'.
        ELSE.
          ls_run-zmsg = '物料联产品权数修改修改成功'.
        ENDIF.
        IF  ls_run-zsta1 IS NOT INITIAL
        AND ls_run-zsta2 IS NOT INITIAL.
          ls_run-icon = icon_led_green.
        ELSE.
          ls_run-icon = icon_led_red.
        ENDIF.
        MODIFY gt_alv FROM ls_run TRANSPORTING zsta2 zmsg2 zmsg icon.

        "更新表
        MOVE-CORRESPONDING ls_run TO ls_zco.
        SELECT SINGLE crnam crdat
          INTO (ls_zco-crnam,ls_zco-crdat)
          FROM ztco_lcpjsgz
         WHERE werks = ls_run-werks
           AND gjahr = ls_run-gjahr
           AND poper = ls_run-poper
           AND aufnr = ls_run-aufnr
           AND afpos = ls_run-afpos
           AND matnr = ls_run-matnr.
        IF sy-subrc = 0.
          ls_zco-upnam = sy-uname.
          ls_zco-updat = sy-datum.
        ELSE.
          ls_zco-crnam = sy-uname.
          ls_zco-crdat = sy-datum.
        ENDIF.
        APPEND ls_zco TO lt_zco.
        CLEAR:ls_zco.
      ENDIF.
      CLEAR:ls_run,ls_makv.
    ENDLOOP.

    MODIFY ztco_lcpjsgz FROM TABLE lt_zco[].
    IF sy-subrc = 0.
      COMMIT WORK.
    ELSE.
      ROLLBACK WORK.
    ENDIF.
  ELSE.
    MESSAGE '该订单物料联产品权数修改已行过' TYPE 'S' DISPLAY LIKE 'E'.
  ENDIF.

ENDFORM.
FORM bdc_dynpro USING program dynpro.
  CLEAR bdcdata.
  bdcdata-program  = program.
  bdcdata-dynpro   = dynpro.
  bdcdata-dynbegin = 'X'.
  APPEND bdcdata.
ENDFORM.

FORM bdc_field USING fnam fval.
  CLEAR bdcdata.
  bdcdata-fnam = fnam.
  bdcdata-fval = fval.
  APPEND bdcdata.
ENDFORM.

联产品修改,结算规则修改

批量修改 结算规则,联产品的权重

编程语言

开发工具

后端

SAP ABAP程序实现生产订单结算规则与物料联产品权数批量修改：通过CO03读取结算规则权重并调用K_SRULE_SAVE_UTASK更新，使用BDC录制MM02事务码维护联产品当量数，自动记录修改日志至ZTCO_LCPJSGZ表，支持成功/失败状态追踪与ALV显示。

文章

问答

视频

教程

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云智能顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

EdgeOne AI 安全实战专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

聚焦“写作效率、视觉美观与运行性能”三方面进行全面升级，为您提供更高效、稳定的创作环境

社区富文本&Markdown编辑器全新改版上线，欢迎大家体验!

诚挚邀请您参与本次调研，分享您的真实使用感受与建议。您的反馈至关重要，感谢您的支持与参与！

社区新版编辑器体验调研

联产品修改,结算规则修改-腾讯云开发者社区-腾讯云

联产品修改,结算规则修改

联产品修改,结算规则修改

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐