SAP PP生产报废单功能分享

一、功能逻辑

二、功能界面

三、功能代码

*&---------------------------------------------------------------------*
*& Report ZRPPP_0010
*&---------------------------------------------------------------------*
*& 01.07.2021 09:58:47 By Guoxj  生产报废单传输
*&---------------------------------------------------------------------*
REPORT zrppp_0010.
TABLES: ztpp009,afko,afrv,
        sscrfields ,icon.
TYPE-POOLS:slis.


DATA: gr_table TYPE REF TO cl_salv_table.
DATA: gr_layout TYPE REF TO cl_salv_layout.
DATA: gs_program TYPE salv_s_layout_key.
DATA: gr_columns TYPE REF TO cl_salv_columns_table.
DATA: gr_column TYPE REF TO cl_salv_column_table.
DATA: gr_display TYPE REF TO cl_salv_display_settings.
DATA: gr_selection TYPE REF TO cl_salv_selections.


DATA:BEGIN OF gt_tab OCCURS 0 .
*       INCLUDE TYPE ZTPP009 .

DATA: zbfd   TYPE   ztpp009-zbfd, "  报废单号
      zbfd1  TYPE   ztpp009-zbfd1,   "   行项目号
      werks  TYPE   ztpp009-werks,   "  工厂
      aufnr  TYPE   ztpp009-aufnr,  "  订单号
      plnbez TYPE   afpo-matnr,  "  订单物料
      matnr  TYPE   ztpp009-matnr,  "  物料编号
      maktx0 TYPE   ztpp009-maktx,  "  物料编号
      matnr1 TYPE   ztpp009-matnr1,  "   报废物料编号
      maktx  TYPE   ztpp009-maktx, "   物料描述
      znum1  TYPE   ztpp009-znum1,   "   报废数
      znum2  TYPE   ztpp009-znum2,   "   确认数量
      meins  TYPE   ztpp009-meins, "   基本计量单位
      ztxt1  TYPE   ztpp009-ztxt1,   "   报废原因
      ztxt2  TYPE   ztpp009-ztxt2,   "   描述
      ztxt3  TYPE   ztpp009-ztxt3,   "   备注
      ztxt4  TYPE   ztpp009-ztxt4,   " 状态
      zbfrq  TYPE   ztpp009-zbfrq,   "   打单确认日期
      zid1   TYPE   ztpp009-zid1,    "   创建用户
      zid2   TYPE   ztpp009-zid2,    "   确认用户
      zid3   TYPE   ztpp009-zid3,    "   部门编码
      zid4   TYPE   ztpp009-zid4,    "   部门
      lgort  TYPE   ztpp009-lgort.   "   报废库位
*      ZZRBM  TYPE   ZTPP009-ZZRBM.   "   责任部门

DATA: zbonded TYPE ztmm_marc-zbonded,
*      PLNBEZ  TYPE AFKO-PLNBEZ,
      END OF gt_tab .

DATA:BEGIN OF gw_info.
DATA: ztype     TYPE bapi_mtype,
      zmsg  &n