[ABAP]批量查询工艺路线

  • 文本
  • 代码

文本

代码

report zppr002_7 no standard page heading.
type-pools : slis.
include <icon>.
tables:mapl,stko,stpo,mara,t100.
types: begin of ty_list,matnr(40)," type mast-matnr,werks     type mapl-werks,plnnr     type mapl-plnnr, "工艺路线plnal     type mapl-plnal, "工艺路线组plnkn     type capp_com-plnkn, "vornr     type plpo-vornr, "工艺路线序号arbid     type plpo-arbid, "arbpl     type crhd-arbpl, "工作中心plnfl     type plmz-plnfl, "序列stlnr     type stpo-stlnr, "BOMstlal     type mast-stlal, "替代BOMstlkn     type stpo-stlkn, "内部计数器idnrk     type stpo-idnrk, "子件物料ltxa1     type plpo-ltxa1, " 文本描述ktext     type plko-ktext, "maktx     type makt-maktx,
*         stlal     type mast-stlal,"可选BOMend of ty_list.
types:begin of ty_list1.include structure capp_opr.
types:matnr(40)," type mast-matnr,ktext1    type cslt-ktext,ktext2    type cslt-ktext,ktext3    type cslt-ktext,ktext4    type cslt-ktext,ktext5    type cslt-ktext,arbpl     type crhd-arbpl, "工作中心ktext     type plko-ktext, "maktx     type makt-maktx.
types: end of ty_list1.
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, "行项目的消息内容"end of ty_internal.
types: begin of ty_type.include type ty_internal.include type ty_list.
types end of ty_type.
types: begin of ty_type1.include type ty_internal.include type ty_list1.
types end of ty_type1.
data: gt_table type table of ty_type with header line.
data: gt_table1 type table of ty_type1 with header line.
*ALV类变量定义data: gs_layout         type lvc_s_layo.
data: gt_fieldcat       type lvc_t_fcat.
data: gt_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.selection-screen begin of block b1 with frame title text-001.
select-options:s_matnr for mapl-matnr,s_werks for mapl-werks memory id wrk obligatory,s_mtart for mara-mtart,s_matkl for mara-matkl,s_plnal for mapl-plnal,s_PRDHA for mara-PRDHA.
parameters:p1 radiobutton group g1 ,p2 radiobutton group g1 default 'X'.
selection-screen end of block b1.start-of-selection.perform get_data.end-of-selection.perform upd_show_data.
form upd_show_data.perform upd_prepare_layout       changing gs_layout.if p1 = 'X'.perform upd_prepare_field_catalog changing gt_fieldcat.else.perform upd_prepare_field_catalog1 changing gt_fieldcat.endif.perform upd_show_data_alv.
endform.
*&---------------------------------------------------------------------*
*&      Form  UPD_PREPARE_LAYOUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      <--P_GS_LAYOUT  text
*----------------------------------------------------------------------*
form upd_prepare_layout  changing ps_layout type lvc_s_layo.g_title = sy-title.ps_layout-cwidth_opt = 'X'.ps_layout-zebra      = 'X'.
*  ps_layout-box_fname  = '_BOX'.ps_layout-sel_mode   = 'A'.
*  ps_layout-excp_fname = '_EXCP'.ps_layout-info_fname = '_LINE_COLOR'.ps_layout-grid_title = g_title.ps_layout-detailinit = 'X' . " 是否可以弹出细节屏幕ps_layout-detailtitl = g_title. " 细节屏幕标题
endform.
*&---------------------------------------------------------------------*
*&      Form  UPD_PREPARE_FIELD_CATALOG
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      <--P_GT_FIELDCAT  text
*----------------------------------------------------------------------*
form upd_prepare_field_catalog changing pt_fieldcat type lvc_t_fcat.clear pt_fieldcat[].data ls_fcat type lvc_s_fcat .clear ls_fcat .clear ls_fcat .clear ls_fcat .ls_fcat-coltext     = '物料号'.ls_fcat-fieldname   = 'MATNR'.ls_fcat-no_zero     = 'X'.ls_fcat-fix_column  = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '工厂'.ls_fcat-fieldname   = 'WERKS'.ls_fcat-no_zero     = 'X'.ls_fcat-fix_column  = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '任务清单组码'.ls_fcat-fieldname   = 'PLNNR'.ls_fcat-edit        = ''.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '组计数器'.ls_fcat-fieldname   = 'PLNAL'.ls_fcat-edit        = ''.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '任务清单描述'.ls_fcat-fieldname   = 'KTEXT'.ls_fcat-edit        = ''.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '物料描述'.ls_fcat-fieldname   = 'MAKTX'.ls_fcat-edit        = ''.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '工序'.ls_fcat-fieldname   = 'VORNR'.ls_fcat-edit        = ''.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '工作中心'.ls_fcat-fieldname   = 'ARBPL'.ls_fcat-edit        = ''.
*  ls_fcat-datatype    = 'N'.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '序列'.ls_fcat-fieldname   = 'PLNFL'.ls_fcat-edit        = ''.
*  ls_fcat-datatype    = 'N'.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '替代BOM'.ls_fcat-fieldname   = 'STLAL'.ls_fcat-edit        = ''.
*  ls_fcat-datatype    = 'N'.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '子件物料'.ls_fcat-fieldname   = 'IDNRK'.ls_fcat-edit        = ''.
*  ls_fcat-datatype    = 'N'.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '文本描述'.ls_fcat-fieldname   = 'LTXA1'.ls_fcat-edit        = ''.
*  ls_fcat-datatype    = 'N'.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.clear ls_fcat .
*  ls_fcat-fieldname  = '_MESS_TYPE'. ls_fcat-coltext = '消息类型'. ls_fcat-seltext = '消息类型'.
*  append ls_fcat to pt_fieldcat .
*
*  clear ls_fcat .
*  ls_fcat-fieldname  = '_MESSAGE'.ls_fcat-coltext   = '处理消息' .ls_fcat-seltext = '处理消息' .
*  append ls_fcat to pt_fieldcat .
endform.*&---------------------------------------------------------------------*
*&      Form  UPD_PREPARE_FIELD_CATALOG
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      <--P_GT_FIELDCAT  text
*----------------------------------------------------------------------*
form upd_prepare_field_catalog1 changing pt_fieldcat type lvc_t_fcat.clear pt_fieldcat[].data ls_fcat type lvc_s_fcat .clear ls_fcat .clear ls_fcat .clear ls_fcat .ls_fcat-coltext     = '物料号'.ls_fcat-fieldname   = 'MATNR'.ls_fcat-no_zero     = 'X'.ls_fcat-fix_column  = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '工厂'.ls_fcat-fieldname   = 'WERKS'.ls_fcat-no_zero     = 'X'.ls_fcat-fix_column  = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '任务清单组码'.ls_fcat-fieldname   = 'PLNNR'.ls_fcat-edit        = ''.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '组计数器'.ls_fcat-fieldname   = 'PLNAL'.ls_fcat-edit        = ''.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '任务清单描述'.ls_fcat-fieldname   = 'KTEXT'.ls_fcat-edit        = ''.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '物料描述'.ls_fcat-fieldname   = 'MAKTX'.ls_fcat-edit        = ''.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '工序'.ls_fcat-fieldname   = 'VORNR'.ls_fcat-edit        = ''.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '工作中心'.ls_fcat-fieldname   = 'ARBPL'.ls_fcat-edit        = ''.
*  ls_fcat-datatype    = 'N'.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '序列'.ls_fcat-fieldname   = 'PLNFL'.ls_fcat-edit        = ''.
*  ls_fcat-datatype    = 'N'.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '控制码'.ls_fcat-fieldname   = 'STEUS'.ls_fcat-edit        = ''.
*  ls_fcat-datatype    = 'N'.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '基本数量'.ls_fcat-fieldname   = 'BMSCH'.ls_fcat-edit        = ''.
*  ls_fcat-datatype    = 'N'.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '工序文本描述'.ls_fcat-fieldname   = 'LTXA1'.ls_fcat-edit        = ''.
*  ls_fcat-datatype    = 'N'.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '作业类型1'.ls_fcat-fieldname   = 'KTEXT1'.ls_fcat-edit        = ''.
*  ls_fcat-datatype    = 'N'.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '作业1'.ls_fcat-fieldname   = 'VGW01'.ls_fcat-edit        = ''.
*  ls_fcat-datatype    = 'N'.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '作业单位1'.ls_fcat-fieldname   = 'VGE01'.ls_fcat-edit        = ''.
*  ls_fcat-datatype    = 'N'.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '作业类型2'.ls_fcat-fieldname   = 'KTEXT2'.ls_fcat-edit        = ''.
*  ls_fcat-datatype    = 'N'.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '作业2'.ls_fcat-fieldname   = 'VGW02'.ls_fcat-edit        = ''.
*  ls_fcat-datatype    = 'N'.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '作业单位2'.ls_fcat-fieldname   = 'VGE02'.ls_fcat-edit        = ''.
*  ls_fcat-datatype    = 'N'.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '作业类型3'.ls_fcat-fieldname   = 'KTEXT3'.ls_fcat-edit        = ''.
*  ls_fcat-datatype    = 'N'.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '作业3'.ls_fcat-fieldname   = 'VGW03'.ls_fcat-edit        = ''.
*  ls_fcat-datatype    = 'N'.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '作业单位3'.ls_fcat-fieldname   = 'VGE03'.ls_fcat-edit        = ''.
*  ls_fcat-datatype    = 'N'.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '作业类型4'.ls_fcat-fieldname   = 'KTEXT4'.ls_fcat-edit        = ''.
*  ls_fcat-datatype    = 'N'.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '作业4'.ls_fcat-fieldname   = 'VGW04'.ls_fcat-edit        = ''.
*  ls_fcat-datatype    = 'N'.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '作业单位4'.ls_fcat-fieldname   = 'VGE04'.ls_fcat-edit        = ''.
*  ls_fcat-datatype    = 'N'.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '作业类型5'.ls_fcat-fieldname   = 'KTEXT5'.ls_fcat-edit        = ''.
*  ls_fcat-datatype    = 'N'.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '作业5'.ls_fcat-fieldname   = 'VGW05'.ls_fcat-edit        = ''.
*  ls_fcat-datatype    = 'N'.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '作业单位5'.ls_fcat-fieldname   = 'VGE05'.ls_fcat-edit        = ''.
*  ls_fcat-datatype    = 'N'.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '转换比例分母'.ls_fcat-fieldname   = 'UMREN'.ls_fcat-edit        = ''.
*  ls_fcat-datatype    = 'N'.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '转换比例分子'.ls_fcat-fieldname   = 'UMREZ'.ls_fcat-edit        = ''.
*  ls_fcat-datatype    = 'N'.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.*  ls_fcat-coltext     = '采购信息记录号'.
*  ls_fcat-fieldname   = 'INFNR'.
*  ls_fcat-edit        = ''.
**  ls_fcat-datatype    = 'N'.
*  ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '创建人'.ls_fcat-fieldname   = 'ANNAM'.ls_fcat-edit        = ''.
*  ls_fcat-datatype    = 'N'.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.ls_fcat-coltext     = '创建日期'.ls_fcat-fieldname   = 'ANDAT'.ls_fcat-edit        = ''.
*  ls_fcat-datatype    = 'N'.ls_fcat-no_zero     = 'X'.append ls_fcat to pt_fieldcat.clear ls_fcat.clear ls_fcat .
*  ls_fcat-fieldname  = '_MESS_TYPE'. ls_fcat-coltext = '消息类型'. ls_fcat-seltext = '消息类型'.
*  append ls_fcat to pt_fieldcat .
*
*  clear ls_fcat .
*  ls_fcat-fieldname  = '_MESSAGE'.ls_fcat-coltext   = '处理消息' .ls_fcat-seltext = '处理消息' .
*  append ls_fcat to pt_fieldcat .
endform.*&---------------------------------------------------------------------*
*&      Form  UPD_SHOW_DATA_ALV
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form upd_show_data_alv .data: i_grid_title type lvc_title .i_grid_title =  g_title . "'ALV标题' ." 定义隐藏标准按钮的变量data: wa_excluding type slis_extab,it_excluding type slis_t_extab." 设置要隐藏的按钮的“FCODE”wa_excluding-fcode = '&ABC' .append wa_excluding to it_excluding .clear wa_excluding.data:lt_events type table of slis_alv_event with header line.lt_events-name = 'CALLER_EXIT'.lt_events-form = 'ALV_EVENT_CALLER_EXIT'.append lt_events.if p1 = 'X'.call function 'REUSE_ALV_GRID_DISPLAY_LVC'exportingi_callback_program       = sy-repid " 当前程序is_layout_lvc            = gs_layout " 属性内表it_fieldcat_lvc          = gt_fieldcat[] " 列明内表
*       it_excluding             = it_excluding[]i_save                   = 'X' " 是否保存布局i_callback_pf_status_set = 'ALV_PF_STATUS_SET'
*       i_callback_user_command  = 'ALV_USER_COMMAND'
*       it_events                = lt_events[]"i_callback_html_top_of_page  = 'ALV_TOP_OF_PAGE1'"I_GRID_TITLE                 = I_GRID_TITLEit_sort_lvc              = gt_alv_sort[]tablest_outtab                 = gt_table[] " 数据内表exceptionsprogram_error            = 1others                   = 2.else.call function 'REUSE_ALV_GRID_DISPLAY_LVC'exportingi_callback_program       = sy-repid " 当前程序is_layout_lvc            = gs_layout " 属性内表it_fieldcat_lvc          = gt_fieldcat[] " 列明内表
*       it_excluding             = it_excluding[]i_save                   = 'X' " 是否保存布局i_callback_pf_status_set = 'ALV_PF_STATUS_SET'
*       i_callback_user_command  = 'ALV_USER_COMMAND'
*       it_events                = lt_events[]"i_callback_html_top_of_page  = 'ALV_TOP_OF_PAGE1'"I_GRID_TITLE                 = I_GRID_TITLEit_sort_lvc              = gt_alv_sort[]tablest_outtab                 = gt_table1[] " 数据内表exceptionsprogram_error            = 1others                   = 2.endif.if sy-subrc <> 0.message id sy-msgid type sy-msgty number sy-msgnowith sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.endif.
endform.*设置状态
form alv_pf_status_set using rt_extab type slis_t_extab.
*copy the status from SAPLKKBL,and renamed it as ZSTANDARD.set pf-status 'STANDARD'.
endform.                    "ALV_PF_STATUS_SET*&---------------------------------------------------------------------*
*&      Form  GET_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form get_data .data:lt_mapl like standard table of mapl with header line.data:com_tab like standard table of capp_com with header line.data:opr_tab like  standard table of capp_opr with header line.data:tsk_tab  like standard table of  capp_tsk with header line.select distinct * into corresponding fields of table lt_mapl from mapl as a inner join mara as b on b~matnr = a~matnrwhere a~matnr in s_matnr and a~werks in s_werks and b~mtart in s_mtart and b~matkl in s_matkl and a~plnal in s_plnaland a~plnty = 'N' and a~loekz = '' and b~PRDHA in s_PRDHA .loop at lt_mapl.clear:com_tab,com_tab[],opr_tab,opr_tab[],tsk_tab,tsk_tab[].call function 'CARO_ROUTING_READ'exportingplnty   = lt_mapl-plntyplnnr   = lt_mapl-plnnrplnal   = lt_mapl-plnalwerks   = lt_mapl-werkstablestsk_tab = tsk_tabcom_tab = com_tabopr_tab = opr_tab.if com_tab[] is not initial.loop at com_tab.gt_table-plnnr = com_tab-plnnr."组gt_table-plnal = com_tab-plnal."组计数器gt_table-plnkn = com_tab-plnkn."工艺路线链接STPOgt_table-stlnr = com_tab-stlnr."BOMgt_table-stlal = com_tab-stlal."替代BOMgt_table-stlkn = com_tab-stlkn."BOM对应的序号gt_table-matnr = lt_mapl-matnr.gt_table-werks = com_tab-werk_stl.gt_table-plnfl = com_tab-plnfl.READ TABLE tsk_tab INDEX  1. GT_TABLE-KTEXT = TSK_TAB-KTEXT.append gt_table.clear gt_table.endloop.endif.if opr_tab[] is not initial.loop at opr_tab.move-corresponding opr_tab to gt_table1.gt_table1-matnr = lt_mapl-matnr.READ TABLE tsk_tab INDEX  1. GT_TABLE1-KTEXT = TSK_TAB-KTEXT.append gt_table1.clear gt_table1.endloop.endif.endloop.if gt_table[] is not initial.loop at gt_table.SELECT SINGLE MAKTX INTO GT_TABLE-MAKTX FROM MAKT WHERE MATNR = GT_TABLE-MATNR AND SPRAS = SY-LANGU.select single vornr arbid ltxa1 into (gt_table-vornr,gt_table-arbid,gt_table-ltxa1) from plpowhere plnnr = gt_table-plnnr and plnkn = gt_table-plnkn and plnty = 'N'.select single idnrk into gt_table-idnrk from stpo where stlty = 'M' and stlnr = gt_table-stlnr and stlkn = gt_table-stlkn.select single arbpl into gt_table-arbpl from crhd where objid = gt_table-arbid.modify gt_table.clear gt_table.endloop.endif.if gt_table1[] is not initial.loop at gt_table1.SELECT SINGLE MAKTX INTO GT_TABLE1-MAKTX FROM MAKT WHERE MATNR = GT_TABLE1-MATNR AND SPRAS = SY-LANGU.select single arbpl into gt_table1-arbpl from crhd where objid = gt_table1-arbid.select single ktext into gt_table1-ktext1 from cslt where kokrs = '1000' and lstar = gt_table1-lar01.select single ktext into gt_table1-ktext2 from cslt where kokrs = '1000' and lstar = gt_table1-lar02.select single ktext into gt_table1-ktext3 from cslt where kokrs = '1000' and lstar = gt_table1-lar03.select single ktext into gt_table1-ktext4 from cslt where kokrs = '1000' and lstar = gt_table1-lar04.select single ktext into gt_table1-ktext5 from cslt where kokrs = '1000' and lstar = gt_table1-lar05.modify gt_table1.clear gt_table1.endloop.endif.
endform.

[ABAP]批量查询工艺路线相关推荐

  1. SAP CEWB 批量修改 工艺路线 和 BOM

    首先我们看一个工艺路线 目前我有很多个工艺路线要把人工的这个作业类型改成 RG01.CA02一个一个改能改到明年去,所以我们用CEWB来批量更改 进入CEWB,会让我们选择一个工作区域,因为这次我们改 ...

  2. SAP 批量修改工艺路线

    一.所用到的修改函数 CPCC_S_TASK_LIST_MAINTAIN TASK_MAINTAIN_MODE:操作模式:C创建,M:修改,D:删除 我们实例中只使用到了M修改模式,其余模式可以自行修 ...

  3. SAP CA02删除了工艺路线的工序,但是在表PLPO里没有删除记录,在表PLAS里才有。(疑似系统BUG)(查询函数 CARO_ROUTING_READ)

    今天我在用CA03查询工艺路线的时候,发现 5245 有8道工序 然后在后台表PLPO里查,居然有9道工序,其中这第一条明显是多出来的,但是在表里居然没有删除标记 然后我用CA61去查询更改记录 发现 ...

  4. PP01工艺路线批量导入_SAP刘梦_新浪博客

    工艺路线批导需求: Step2.  功能按钮"工艺路线模板下载"下载EXCEL 模板 Step3. 做工艺路线批量导入 Step3. 1  数据有效性检查: 1 工厂---工厂为选 ...

  5. PP实施经验分享(21)——(ECC版本)生产版本\BOM\工艺路线选择(涉及批量大小应用)

    PP实施经验分享(21)--(ECC版本)生产版本\BOM\工艺路线选择(涉及批量大小应用) SAP ECC版本系统是不进行强制生产版本选择的,这点也是和S4差别很大的地方:这里我结合自己在日常测试以 ...

  6. SAP EWB 工艺路线分配批量导出、批量分配、批量删除(替代CPCC_S_TASK_LIST_MAINTAIN实现虚拟组件分配)

    1. 说明 EWB编程指南:488765 - Do-it-yourself EWB programming 标准程序ca02/ca03检查是否存在分配在包含程序 LCMDIFE1 的 chk_exis ...

  7. 【PP模块】工艺路线详解(Routing)

    定义(Definition) 工艺路线就是为了描述一个完整的生产过程.(A routing describes a production process.) 用途(Routing Usage) 主要有 ...

  8. SAP 工艺路线分配组件 CA02正常显示分配但是CA03不显示分配解决方法

    1. 问题 导致这个问题的根本原因是KANTE值错误,或者STPF表数据丢失 执行工艺路线分配组件批量分配后,CA02显示正常分配但是CA03显示未分配 CA02保存后,CA03正常显示分配:即使再执 ...

  9. 【测试】工艺路线展开Function

    在开发的时候会碰到有批量展示C203主配方清单的需求,正常我们做一般离散制造行业工艺路线清单的时候只要通过以下几个表的相互链接就可以直接取数. MAPL - 分配任务清单到物料 PLKO - 任务清单 ...

  10. PP生产计划-Routing工艺路线

    PP生产计划-Routing工艺路线 (2017-05-18 16:02:40) 转载▼ 标签: sap pp routing 工艺路线 分类: SAP_PP生产计划 ROUTING – 工艺路线 只 ...

最新文章

  1. vue怎么引入外网json文件
  2. hadoop3节点hdfs ha,yarn ha配置
  3. c 子类对象 访问父类对象受保护成员_06-JavaSe面向对象
  4. 欢迎来到 C# 9.0(Welcome to C# 9.0)
  5. DataGridView控件用法二:常用属性
  6. 【电路补习笔记】10、电感式开关电源(BUCK 降压电路)
  7. Flex与javascript通信
  8. opengl es 实现旋转的三角形
  9. 安卓电话和网络开发全解:电话硬件检测、电话服务信息、sim信息、网络服务信息、数据连接和数据传输信息、电话状态监听
  10. 路由器AP、路由、桥接模式有什么区别
  11. 相关系数显著性检验以及Python实例
  12. Downloads Help 下载帮助
  13. EF框架(一)搭建过程
  14. AJAX 后端处理程序
  15. Redis 如何实现库存扣减操作和防止被超卖?
  16. C语言字符串使用指南
  17. 达内java培优训练营 2106班
  18. python能安装在d盘吗_python必须要装到C盘吗 d盘 e盘不行吗
  19. 国家、省、市三级联动下拉列表
  20. vs2008编译QT开源项目--太阳神三国杀源码分析(三) 皮肤

热门文章

  1. 风筝 vpn_风筝将其AI驱动的代码完成功能引入JavaScript
  2. 计算机英语翻译的典故,中国成语故事英文版带翻译【六篇】
  3. 计算机鼠标双击怎么,电脑鼠标双击没反应怎么办
  4. 计算机毕设(附源码)JAVA-SSM交通事故证据交易平台
  5. 深度xp系统插入光盘显示上一张光盘资料解决方法
  6. VMware Workstation 蓝屏
  7. 星巴克 销售数据分析_星巴克大数据科学家纳米级推广战略顶峰项目
  8. 笔记本 安装Linux系统
  9. 硬盘突然变raw格式_移动硬盘分区变为RAW格式的终极解决办法
  10. 基于JAVA蔚蓝在线学习平台计算机毕业设计源码+数据库+lw文档+系统+部署