物料的标准工时取数

王顾问，请教您一个问题。
生产订单报工之后，他们工艺路线删掉，又重建了。然后两边的工艺路线组就对不上了。标工就取错了。
后来想，我不按工单里面的组来关联，按物料来关联。后来发现PLPO 一个组有很多行，甚者有上百行，光凭组代码也无法确定哪条与前台的标工对应。

abcde 2018/7/23 9:35:46

这个问题要怎么解决？

 

2018/7/23 11:12:30
顾问  2018/7/23 11:12:30

那个报表？

abcde 2018/7/23 11:13:00

ZPP014 报工明细查询

顾问 2018/7/23 11:13:31

那你能不能改成标准的工时取生产订单的，别取工艺路线的？
2018/7/23 11:15:01
abcde 2018/7/23 11:15:01

生产订单的标工不是最新的。

abcde 2018/7/23 11:15:56

最新的他们只能维护到工艺路线里面。

顾问 2018/7/23 11:16:03

稍等，给你找个函数。。
2018/7/23 11:30:18
顾问- 2018/7/23 11:30:18

你调试下CPCC_S_TASK_LIST_READ这个函数。

顾问 2018/7/23 11:30:22

看行不行。。

 

你们用量很多替代工序，应该是有好多条才对。。

顾问- 2018/7/23 14:23:14

了
2018/7/23 14:28:15
abcde 2018/7/23 14:28:15

那我的标工是不是只要取节点1就好了？

顾问- 2018/7/23 14:29:14

应该是可以的，如果每个替代工序都是一样的话。。

顾问-  2018/7/23 14:29:33

比如A1拉、A2拉的效率如果一样的话，就没啥所谓。。

 

*&---------------------------------------------------------------------*
*& Report ZPPR014
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zppr014 NO STANDARD PAGE HEADING.
TYPE-POOLS: slis,vrm.
TABLES:afru,afko,afpo,crhd,aufk,anla,cobrb.
TYPES:BEGIN OF ty_list,
        ersda     TYPE afru-ersda, "
        auart     TYPE aufk-auart,
        aufnr     TYPE afru-aufnr,
        gamng     TYPE afko-gamng,
        rueck     TYPE afru-rueck,
        rmzhl     TYPE afru-rmzhl,
        lmnga     TYPE afru-lmnga,
        aueru     TYPE afru-aueru,
        arbid     TYPE afru-arbid,
        ism01     TYPE plpo-vgw01,
        ism02     TYPE plpo-vgw01,
        ism03     TYPE plpo-vgw01,
        arbpl     TYPE crhd-arbpl,
        plnbez    TYPE afko-plnbez,
        maktx     TYPE makt-maktx,
        werks     TYPE afru-werks,
        all_s_rg  TYPE plpo-vgw01,
        all_s_jq  TYPE plpo-vgw01,
        all_s_zf  TYPE plpo-vgw01,
        all_s_mj  TYPE plpo-vgw01,
        all_a_rg  TYPE plpo-vgw01,
        all_a_jq  TYPE plpo-vgw01,
        all_a_zf  TYPE plpo-vgw01,
        all_d_rg  TYPE plpo-vgw01,
        all_d_zf  TYPE plpo-vgw01,
        all_d_jq  TYPE plpo-vgw01,
        r_rg(10),
        r_zf(10),
        r_jq(10),
*        ltxa1     TYPE afru-ltxa1,
        ltxa1     TYPE c LENGTH 300,
        ktext     LIKE aufk-ktext,
        anln(15),
        anln1     LIKE anla-anln1,
        anln2     LIKE anla-anln2,
        txt50     LIKE anla-txt50,
        ddzt(100),
        budat     LIKE afru-budat,
        zzrr      LIKE afru-zzrr,
        ernam     LIKE  aufk-ernam,
      END OF ty_list.
TYPES: BEGIN OF ty_internal,
         _number        TYPE i , "序列号
         _excp          TYPE c, "需要在LAYOUT-EXCP_FNAME中指定，绿灯3，红灯1，黄灯2"
         _check         TYPE c , "复选框,还需要在FCAT中设置成CHECKBOX，记录用户的选择
         _box           TYPE c , "需要在LAYOUT-BOX_NAME中指定,记录用户的选择，跟_BOX不同，记录的是ALV控件的标准选择框,
         _delete        TYPE c , "记录删除标识X"
         _action        TYPE c , "用户操作，插入I，更新U,删除D"
         _row_id        TYPE sytabix, "行项目ID"
         _tabix         TYPE sytabix, "引用的表行标识"
         _line_color(4) TYPE c, "行项目的颜色"
         _field_style   TYPE lvc_t_styl, "行项目的样式"
         _mess_type     TYPE c, "消息类型，用于数据检查"
         _message       TYPE char255, "行项目的消息内容"
         reffi          TYPE mara-meins,

       END OF ty_internal.
TYPES: BEGIN OF ty_type.
    INCLUDE TYPE ty_list.
    INCLUDE TYPE ty_internal.
TYPES END OF ty_type.
DATA: gt_table TYPE TABLE OF ty_type WITH HEADER LINE.
*ALV类变量定义

DATA: gs_layout         TYPE lvc_s_layo.
DATA: gt_fieldcat       TYPE lvc_t_fcat.
DATA: global_alv_sort       TYPE lvc_t_sort.

DATA: ls_style TYPE lvc_s_styl,
      lt_style TYPE lvc_t_styl.
DATA: x_save     TYPE c,
      gs_variant TYPE disvariant,
      g_title    TYPE lvc_title.
DATA: g_grid            TYPE REF TO cl_gui_alv_grid.

DATA:BEGIN OF gs_aufk,
       aufnr LIKE aufk-aufnr,
       ktext LIKE aufk-ktext, "订单描述
       objnr LIKE aufk-objnr, "对象号
       auart LIKE aufk-auart, "订单类型
     END OF gs_aufk.
DATA:BEGIN OF gs_afko,
       aufnr LIKE afko-aufnr,
       plnty LIKE afko-plnty,
       plnnr LIKE afko-plnnr,
       plnal LIKE afko-plnal,
     END OF gs_afko.
DATA:BEGIN OF gs_plpo,
       plnty LIKE plpo-plnty,
       plnnr LIKE plpo-plnnr,
       vgw01 LIKE plpo-vgw01,
       vgw02 LIKE plpo-vgw01,
       vgw03 LIKE plpo-vgw01,
       plnkn LIKE plpo-plnkn,
     END OF gs_plpo.
DATA:BEGIN OF gs_cobrb,
       objnr LIKE cobrb-objnr, "对象号
       anln1 LIKE cobrb-anln1, "主资产号
       anln2 LIKE cobrb-anln2, "次级资产号
     END OF gs_cobrb.
DATA:BEGIN OF gs_anla,
       anln1 LIKE cobrb-anln1, "主资产号
       anln2 LIKE cobrb-anln2, "次级资产号
       txt50 LIKE anla-txt50, "资产描述
     END OF gs_anla.
DATA:gt_aufk  LIKE TABLE OF gs_aufk,
     gt_cobrb LIKE TABLE OF gs_cobrb,
     gt_afko  LIKE TABLE OF gs_afko,
     gt_plpo  LIKE TABLE OF gs_plpo,
     gt_anla  LIKE TABLE OF gs_anla.

SELECTION-SCREEN:BEGIN OF BLOCK blk1 WITH FRAME TITLE TEXT-001.
PARAMETERS:p_werks LIKE aufk-werks DEFAULT '1000' OBLIGATORY.
SELECT-OPTIONS:s_ersda FOR afru-ersda DEFAULT sy-datum,
               s_budat FOR afru-budat,
               s_aufnr FOR afko-aufnr,
               s_auart FOR aufk-auart,
               s_arbpl FOR crhd-arbpl MATCHCODE OBJECT zarbpl.
SELECTION-SCREEN:END OF BLOCK blk1.

START-OF-SELECTION.
  PERFORM frm_get_data.
  IF gt_table[] IS NOT  INITIAL.
    PERFORM frm_dis_data.
  ELSE.
    MESSAGE '无符合条件的数据' TYPE 'I' DISPLAY LIKE 'E'.
  ENDIF.
*&---------------------------------------------------------------------*
*&      Form  frm_dis_data
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM frm_dis_data.
  PERFORM dis_prepare_layout       CHANGING gs_layout.
  PERFORM dis_prepare_field_catalog CHANGING gt_fieldcat.
  PERFORM dis_show_data_alv.
ENDFORM.                    "frm_dis_data













*&---------------------------------------------------------------------*
*&      Form  FRM_GET_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM frm_get_data.
  DATA:vgw01 LIKE plpo-vgw01,
       vgw02 LIKE plpo-vgw01,
       vgw03 LIKE plpo-vgw01,
       vgw04 LIKE plpo-vgw01,
       vgw05 LIKE plpo-vgw01,
       vgw06 LIKE plpo-vgw01.
  DATA:rate TYPE p DECIMALS 2.
  DATA: BEGIN OF lt_itab OCCURS 0,
          arbid TYPE afru-arbid,
        END OF lt_itab.

  DATA:BEGIN OF gs_plpo,
         werks  LIKE plpo-werks,
         plnnr  LIKE plpo-plnnr,