生产领料打印(含修改数量)

*&---------------------------------------------------------------------*
*& Report ZMMF002
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zmmf005.


INCLUDE zmmf005_top.

INCLUDE zmmf005_scr.

INCLUDE zmmf005_frm.


START-OF-SELECTION .


 if r_1 eq 'X'.
  PERFORM  frm_get_data.
 ENDIF .

  IF r_2 EQ 'X'.
    PERFORM  frm_get_data2.
  ENDIF .



IF R_1 EQ 'X'.
  PERFORM  frm_process_data.
  ENDIF .

IF R_2 EQ 'X'.
    PERFORM  frm_process_data2.
ENDIF.


  PERFORM  frm_display_alv .

*&---------------------------------------------------------------------*
*& 包含               ZMMF002_TOP
*&---------------------------------------------------------------------*

TABLES : rkpf ,resb .





DATA: BEGIN OF gs_out ,

        "     smartform - ZMMS005

        bwart     LIKE rkpf-bwart , " 移动类型
        " 移动类型文本
        " 领料部门
        rsnum     LIKE rkpf-rsnum , "预留单号
        rspos     LIKE resb-rspos , "项号
        aufnr     LIKE rkpf-aufnr ,  "订单单号
        bdter     LIKE resb-bdter  , "日期
        matnr     LIKE  resb-matnr ,  "物料编码
        maktx     TYPE  makt-maktx  , " 物料描述
        charg     TYPE  resb-charg  , "评估类别
        meins     LIKE resb-meins , " 单位
        bdmng     LIKE resb-bdmng ,  "需求数量
        lgort     LIKE resb-lgort ,  "仓库代码
        lgobe     LIKE t001l-lgobe ,  "仓库名称
        mark ,
        ktext     LIKE crtx-ktext ,    " 工作中心名称
        zprt_cnt  LIKE  zmmt001q-zprt_cnt , " 打印次数
        zgldd     LIKE aufk-zgldd,
        zzrbl(50) TYPE c,
      END OF gs_out .

DATA: gt_out LIKE TABLE OF gs_out .

DATA:BEGIN OF gs_zppt010,
       vbeln    LIKE zppt010-vbeln,
       zzrbl_01 LIKE zppt010-zzrbl_01,
       zzrbl_02 LIKE zppt010-zzrbl_02,
       zzrbl_03 LIKE zppt010-zzrbl_03,
       zzrbl_04 LIKE zppt010-zzrbl_04,
       zzrbl_05 LIKE zppt010-zzrbl_05,
       zzrbl_06 LIKE zppt010-zzrbl_06,
       zzrbl_07 LIKE zppt010-zzrbl_07,
     END OF gs_zppt010.
DATA gt_zppt010 LIKE TABLE OF gs_zppt010.

DATA: BEGIN OF gs_rkpf ,

        bwart LIKE rkpf-bwart , " 移动类型
        " 移动类型文本
        " 领料部门
        rsnum LIKE rkpf-rsnum , "预留单号
      END OF gs_rkpf .

DATA: gt_rkpf LIKE TABLE OF gs_rkpf .


DATA: BEGIN OF gs_resb ,
        aufnr LIKE resb-aufnr ,  "订单单号
        rsnum LIKE resb-rsnum , "预留单号
        rspos LIKE resb-rspos , "项号
        bdter LIKE resb-bdter  , "日期
        matnr LIKE resb-matnr ,  "物料编码
        charg LIKE resb-charg  , "评估类别
        meins LIKE resb-meins , " 单位
        bdmng LIKE resb-bdmng ,  "需求数量 BDMNG
        enmng LIKE resb-enmng ,  "提货数量
        lgort LIKE resb-lgort ,  "仓库代码
        zgldd LIKE aufk-zgldd,
      END OF gs_resb .

DATA: gt_resb LIKE TABLE OF gs_resb .

DATA: BEGIN OF gs_makt ,
        matnr LIKE makt-matnr,
        maktx LIKE makt-maktx,
      END OF gs_makt .

DATA: gt_makt LIKE TABLE OF gs_makt .



DATA: BEGIN OF gs_marc,
        matnr LIKE marc-matnr,
        lgfsb LIKE marc-lgfsb,
      END OF gs_marc .

DATA: gt_marc LIKE TABLE OF gs_marc .


" 获取打印次数
DATA: gs_zmmt001q LIKE zmmt001q .
DATA: gt_zmmt001q LIKE TABLE OF gs_zmmt001q .

DATA: BEGIN OF gs_t001l ,
        lgort LIKE resb-lgort ,  "仓库代码
        lgobe LIKE t001l-lgobe ,  "仓库名称
      END OF gs_t001l .

DATA: gt_t001l LIKE TABLE OF gs_t001l.

DATA: BEGIN OF gs_stxl,
        tdobject LIKE stxl-tdobject , " 文本对象  EKPO
        tdname   LIKE  stxl-tdname, "文本名 编号加5位序号 430000000500010
        tdid     LIKE stxl-tdid,
        clustd   LIKE stxl-clustd , "项目文本数据
      END OF gs_stxl .



DATA : BEGIN OF gs_zmmt004_ll ,
         zlldj LIKE zmmt004_ll-zlldj , "领料单据号
         ztype LIKE zmmt004_ll-ztype,  "类型
         aufnr LIKE zmmt004_ll-aufnr ,  "工单号
         matnr LIKE zmmt004_ll-matnr ,  " 物料
         maktx LIKE zmmt004_ll-maktx , " 物料描述
         meins LIKE zmmt004_ll-meins , "单位
         zllsl LIKE zmmt004_ll-zllsl , "领料数量
         zpglx LIKE  zmmt004_ll-zpglx , "评估类型
*         lgort LIKE  zmmt004_ll-lgort , " 仓库
         zxqrq LIKE zmmt004_ll-zxqrq ,  " 需求日期
       END OF  gs_zmmt004_ll  .


DATA : gt_zmmt004_ll LIKE TABLE OF gs_zmmt004_ll .




DATA: BEGIN OF gs_afko ,
        aufnr LIKE  afko-aufnr , " 工单号
        aufpl LIKE afko-aufpl,  "工序任务清单叼
      END OF gs_afko .

DATA: gt_afko LIKE TABLE OF gs_afko .

DATA: BEGIN OF gs_afvc ,
        aufpl LIKE afvc-aufpl , "工序任务清单号
        aplzl LIKE afvc-aplzl , "  序号
        arbid LIKE afvc-arbid , "对象表枳
      END OF gs_afvc.

DATA: gt_afvc LIKE TABLE OF gs_afvc.

DATA: BEGIN OF gs_crtx ,
        objid LIKE crtx-objid, "对象标识
        ktext LIKE crtx-ktext , " 工作中心名称
      END OF gs_crtx .

DATA: gt_crtx LIKE TABLE OF gs_crtx .

DATA: BEGIN OF gs_aufnr_ktext  ,
        aufnr LIKE afko-aufnr, " 工单号
        ktext LIKE crtx-ktext,  " 工作中心名称
      END OF gs_aufnr_ktext .

DATA: gt_aufnr_ktext  LIKE TABLE OF gs_aufnr_ktext.


DATA: gv_zxh  LIKE zmmt005h-zxh .








DATA: gt_fieldcat TYPE TABLE OF  slis_fieldcat_alv.
DATA: gs_fieldcat TYPE slis_fieldcat_alv.
DATA: gs_layout TYPE slis_layout_alv .

DATA: g_fm_name TYPE rs38l_fnam.
DATA: gw_options TYPE ssfcompop,
      gw_control TYPE ssfctrlop.

*&---------------------------------------------------------------------*
*& 包含               ZMMF002_SCR
*&---------------------------------------------------------------------*


SELECT-OPTIONS:  s_werks for resb-werks OBLIGATORY ,
                 s_rsnum FOR  rkpf-rsnum , "预留单号
                 s_aufnr FOR  rkpf-aufnr ,  "订单单号
                 s_bdter FOR  resb-bdter . "日期



*
**PARAMETERS :     P_USNAM TYPE  MSEG-USNAM_MKPF  OBLIGATORY DEFAULT 'LXF' . "用户名
*PARAMETERS :      P_USNAM TYPE  RKPF-USNAM_MKPF . "用户名



PARAMETERS : r_1 RADIOBUTTON GROUP g1 .
PARAMETERS : r_2 RADIOBUTTON GROUP g1 .

*PARAMETERS: cb_1 AS CHECKBOX  .

*&---------------------------------------------------------------------*
*& 包含               ZMMF002_FRM
*&---------------------------------------------------------------------*

*&---------------------------------------------------------------------*
*& Form FRM_GET_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_get_data <