销售订单订单交货状态检查

喜欢ヅ旅行 2022-04-12 08:28 327阅读 0赞

\*&---------------------------------------------------------------------\*  
\*& Report ZSDF002A  
\*&---------------------------------------------------------------------\*  
\*&  
\*&---------------------------------------------------------------------\*  
REPORT zsdf002a.  
  
  
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.  
  
TABLES vbak .  
  
SELECT-OPTIONS s\_vbeln  FOR vbak-vbeln  .  
SELECT-OPTIONS s\_ernam  FOR vbak-ernam   .  
SELECT-OPTIONS s\_erdat  FOR vbak-erdat  .  
  
  
  
PARAMETERS : cb\_1 AS CHECKBOX DEFAULT 'X' .  
PARAMETERS : cb\_2 AS CHECKBOX  .  
  
  
  
  
  
DATA: BEGIN OF gs\_vbap ,  
        vbeln  LIKE vbap-vbeln,  
        posnr  LIKE vbap-posnr,  
        matnr  LIKE vbap-matnr,  
        kwmeng LIKE vbap-kwmeng,  
      END OF gs\_vbap .  
  
DATA: gt\_vbap LIKE TABLE OF gs\_vbap .  
  
  
SELECT a~vbeln b~posnr b~matnr  b~kwmeng  
  INTO TABLE gt\_vbap  
  FROM vbak AS a  
  JOIN vbap AS b ON a~vbeln = b~vbeln  
  WHERE a~vbeln IN  s\_vbeln  
   AND  a~ernam IN s\_ernam  
  AND   a~erdat IN s\_erdat  
\*  AND gbstk EQ 'B' .  
  AND lfgsk EQ 'B' .  
  
  
  
IF CB\_2 EQ 'X'.  
  
SELECT a~vbeln b~posnr b~matnr  b~kwmeng  
  INTO TABLE gt\_vbap  
  FROM vbak AS a  
  JOIN vbap AS b ON a~vbeln = b~vbeln  
  WHERE a~vbeln IN  s\_vbeln  
   AND  a~ernam IN s\_ernam  
  AND   a~erdat IN s\_erdat .  
ENDIF .  
  
  
  
DATA: BEGIN OF gs\_lips,  
        matnr LIKE lips-matnr,  
        lfimg LIKE lips-lfimg,  
        vgbel LIKE lips-vgbel,  
        vgpos LIKE lips-vgpos,  
      END OF gs\_lips.  
  
DATA: gt\_lips LIKE   TABLE OF gs\_lips .  
  
  
IF gt\_vbap IS NOT INITIAL .  
  SELECT  matnr lfimg vgbel vgpos  
    INTO TABLE gt\_lips  
    FROM lips  
    FOR ALL ENTRIES IN gt\_vbap  
    WHERE vgbel = gt\_vbap-vbeln  
      AND vgpos = gt\_vbap-posnr .  
  
  
ENDIF .  
  
DATA: BEGIN OF ls\_lips ,  
        matnr LIKE lips-matnr,  
        lfimg LIKE lips-lfimg,  
        vgbel LIKE lips-vgbel,  
        vgpos TYPE c LENGTH 6,  
      END OF ls\_lips .  
  
DATA: lt\_lips LIKE TABLE OF ls\_lips .  
  
LOOP AT gt\_lips INTO gs\_lips .  
  ls\_lips-matnr = gs\_lips-matnr .  
  ls\_lips-lfimg = gs\_lips-lfimg .  
  ls\_lips-vgbel = gs\_lips-vgbel.  
  ls\_lips-vgpos = gs\_lips-vgpos.  
  
  COLLECT ls\_lips INTO lt\_lips .  
  CLEAR gs\_lips .  
  
ENDLOOP .  
  
  
  
  
DATA: BEGIN OF gs\_out,  
        matnr    LIKE lips-matnr,  
        lfimg    LIKE lips-lfimg,  
        vgbel    LIKE lips-vgbel,  
        vgpos    TYPE c LENGTH 6,  
        kwmeng   LIKE vbap-kwmeng,   "订单数量  
        ernam    LIKE vbak-ernam,  
        erdat    LIKE vbak-erdat,  
        vtweg    LIKE vbak-vtweg, "渠道  
        maktx    LIKE makt-maktx,  
        light(4),  
      END OF gs\_out .  
DATA: gt\_out LIKE TABLE OF gs\_out .  
  
SORT lt\_lips  BY vgbel vgpos .  
LOOP AT gt\_vbap INTO gs\_vbap .  
  gs\_out-matnr = gs\_vbap-matnr.  
  gs\_out-vgbel = gs\_vbap-vbeln.  
  gs\_out-vgpos = gs\_vbap-posnr.  
  gs\_out-kwmeng  = gs\_vbap-kwmeng.  
  
  
  CLEAR ls\_lips  .  
  READ TABLE lt\_lips INTO ls\_lips  WITH KEY vgbel  = gs\_vbap-vbeln  
                                            vgpos =  gs\_vbap-posnr  
                                   BINARY SEARCH .  
  IF sy-subrc EQ 0 .  
    gs\_out-lfimg  = ls\_lips-lfimg.  
  ELSE .  
    IF cb\_2 EQ 'X'.  
      gs\_out-lfimg = 0 .  
    ENDIF .  
  ENDIF.  
  IF gs\_out-lfimg <> gs\_out-kwmeng .  
    gs\_out-light = '@0A@' .  
  ELSE .  
    gs\_out-light = '@08@'.  
  ENDIF .  
  
  SELECT SINGLE ernam erdat vtweg INTO (gs\_out-ernam,gs\_out-erdat, gs\_out-vtweg)  
    FROM vbak  
    WHERE vbeln = gs\_out-vgbel.  
  
  SELECT SINGLE maktx INTO gs\_out-maktx  
    FROM makt  
    WHERE matnr = gs\_out-matnr .  
  IF cb\_1 EQ 'X'.  
    IF gs\_out-light EQ '@0A@' .  
      APPEND gs\_out TO gt\_out .  
    ENDIF .  
  ELSE .  
    APPEND gs\_out TO gt\_out .  
  ENDIF .  
  CLEAR gs\_out .  
  
ENDLOOP .  
  
  
SORT gt\_out BY vgbel vgpos.  
  
  
  
DEFINE append\_field.  
  gs\_fieldcat-fieldname = &1.  
  gs\_fieldcat-seltext\_l = &2.  
  APPEND gs\_fieldcat TO gt\_fieldcat.  
  CLEAR: gs\_fieldcat.  
END-OF-DEFINITION.  
append\_field: 'LIGHT'  '指示灯' .  
append\_field: 'VGBEL' '订单号' .  
append\_field: 'ERDAT' '创建日期' .  
append\_field: 'ERNAM' '创建人' .  
append\_field: 'VTWEG' '渠道' .  
append\_field: 'VGPOS' '行项目' .  
append\_field: 'MATNR' '物料' .  
append\_field: 'MAKTX' '物料描述' .  
append\_field: 'KWMENG' '订单数量' .  
append\_field: 'LFIMG' '交货单数量' .  
  
  
CALL FUNCTION 'REUSE\_ALV\_GRID\_DISPLAY'  
  EXPORTING  
    i\_callback\_program = sy-repid  
\*   i\_callback\_pf\_status\_set = 'FRM\_STATUS\_SET3'  
\*   i\_callback\_user\_command  = 'FRM\_USER\_COMMAND3'  
\*  
\*   I\_GRID\_SETTINGS    =  
    is\_layout          = gs\_layout  
    it\_fieldcat        = gt\_fieldcat  
\*   ES\_EXIT\_CAUSED\_BY\_USER   =  
  TABLES  
    t\_outtab           = gt\_out\[\]  
  EXCEPTIONS  
    program\_error      = 1  
    OTHERS             = 2.  
IF sy-subrc <> 0.  
\* Implement suitable error handling here  
ENDIF.

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70][]

![2018120216244096.png][]

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70]: /images/20220412/ac865e60d3d5495ba67732659b8fb5e4.png
[2018120216244096.png]: /images/20220412/252756e1d15f4f39be929c755847c18a.png