SAP MRP显示增强系列 - 在MD04中显示MES执行情况和报废率

PC部门不操作MES，却希望能在SAP系统看到生产订单的执行情况，于是在SAP中调用了MES的接口，在显示获取MES执行情况。

效果图：

CMOD:创建增强：

*INCLUDE 代码：ZXM61U03
*&---------------------------------------------------------------------*
*&  Include           ZXM61U03
*&---------------------------------------------------------------------*
DATA:
  l_url           TYPE string,
  l_port          TYPE char4,
  l_endpoint      TYPE string,
  l_prexx         TYPE marc-werks,
  l_search_term   TYPE char30,
  l_aufnr         TYPE aufk-aufnr,
  l_allocated_qty TYPE afpo-psmng,
  n_allocated_qty TYPE n LENGTH 15,
  c_allocated_qty TYPE char17,
  l_output_qty    TYPE afpo-psmng,
  n_output_qty    TYPE n LENGTH 15,
  c_output_qty    TYPE char17,
  l_os_qty        TYPE afpo-psmng,
  n_os_qty        TYPE n LENGTH 15,
  c_os_qty        TYPE char17.

DATA: lt_tvarvc TYPE TABLE OF tvarvc,
      ls_tvarvc TYPE tvarvc.
DATA: lt_sforder_info TYPE TABLE OF zst_sforder_info,
      ls_sforder_info TYPE  zst_sforder_info,
      l_ref_aufnr     TYPE aufnr,
      lt_mara         TYPE TABLE OF mara.


IF NOT ibutt1 IS INITIAL .

  IF imdezexit-delkz EQ 'FE' OR imdezexit-delkz EQ 'AR'.
*  CHECK ( imdezexit-delkz EQ 'FE' OR imdezexit-delkz EQ 'AR' ). "AR -