当前位置：首页 > news >正文

SAP MM委外采购订单执行报表分享

news 2025/10/19 6:21:17

一、报表逻辑

二、报表展示

三、报表代码

*&---------------------------------------------------------------------*
*& Report ZRPMM0047
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zrpmm0047.

TABLES: mara,ekko,ekpo.

TYPES: BEGIN OF ty_alv,
         ebeln     TYPE ekpo-ebeln,
         werks     TYPE ekpo-werks,
         ebelp     TYPE ekpo-ebelp,
         lifnr     TYPE ekko-lifnr,
         MATNR_mj  TYPE ekpo-matnr,
         MAKTX_mj  TYPE makt-maktx,
         MATNR_zj  TYPE resb-matnr,
         MAKTX_zj  TYPE makt-maktx,
         menge     TYPE ekpo-menge,
         meins     TYPE ekpo-meins,
         bdmng     TYPE resb-bdmng,
         MEINS_zj  TYPE resb-meins,
         BDMNG_yf  TYPE resb-bdmng,
         zjyfsl    TYPE resb-bdmng,
         zjwfsl    TYPE resb-bdmng,
         zcgshsl   TYPE resb-bdmng,
         zcgwshsl  TYPE resb-bdmng,
         zjsysl    TYPE mslb-lblab,
         zytsl     TYPE mslb-lblab,
         zstsl     TYPE mslb-lblab,
         zokuje    TYPE p DECIMALS 5,
         zsfja(10) TYPE c,
         elikz     TYPE ekpo-elikz,
         kausf     TYPE marc-kausf,
         LOEKZ     TYPE ekpo-LOEKZ,     "删除标识
       END OF ty_alv.

DATA gt_alv TYPE TABLE OF ty_alv.

SELECTION-SCREEN BEGIN OF BLOCK b1.
  SELECT-OPTIONS: s_matnr FOR mara-matnr,
                  s_lifnr FOR ekko-lifnr,
                  s_ekorg FOR ekko-ekorg,
                  s_werks FOR ekpo-werks OBLIGATORY,
                  s_eben FOR ekpo-ebeln.
*                  s_ebelp FOR ekpo-ebelp.

SELECTION-SCREEN END OF BLOCK b1.

INITIALIZATION.

START-OF-SELECTION.

  PERFORM frm_get_data.
  PERFORM frm_show_data.

*    SELECT
*&---------------------------------------------------------------------*
*& Form frm_get_data
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_get_data .

  TYPES:
    BEGIN OF ty_sum_541,
      ebeln TYPE mseg-ebeln,
      ebelp TYPE mseg-ebelp,
      matnr TYPE mseg-matnr,
      menge TYPE mseg-menge,
    END OF ty_sum_541.

  TYPES:
    BEGIN OF ty_sum_101,
      smbln TYPE mseg-smbln,
      smblp TYPE mseg-smblp,
      sjahr TYPE mseg-sjahr,
      menge TYPE mseg-menge,
    END OF ty_sum_101.

  SELECT a~matnr AS MATNR_mj,
    a~ebeln,
    a~ebelp,
    b~lifnr,
    a~menge,
    a~meins,
    a~elikz,
    a~werks,
    c~matnr AS matnr_zj,
*    c~maktx as maktx_zj,
    c~bdmng,
    c~meins AS meins_zj,
    a~LOEKZ
  FROM ekpo AS a
  LEFT JOIN ekko AS b ON a~ebeln = b~ebeln
  LEFT JOIN resb AS c ON c~ebeln = a~ebeln AND c~ebelp = a~ebelp
  WHERE a~matnr IN @s_matnr
  AND b~lifnr IN @s_lifnr
  AND b~ekorg IN @s_ekorg
  AND a~werks IN @s_werks
  AND a~pstyp = 3
  A