王顾问,请教您一个问题。
生产订单报工之后,他们工艺路线删掉,又重建了。然后两边的工艺路线组就对不上了。标工就取错了。
后来想,我不按工单里面的组来关联,按物料来关联。后来发现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,
arbid LIKE plpo