CK91N CK94 混合比例查询

迈不过友情╰ 2022-12-28 11:13 132阅读 0赞

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70][]

*\*&---------------------------------------------------------------------\**  
*\*& Report ZCO012*  
*\*&---------------------------------------------------------------------\**  
*\*&*  
*\*&---------------------------------------------------------------------\**  
REPORT zco012.  
  
TABLES: mbew,mara  .  
SELECT-OPTIONS s\_matnr FOR mara\-matnr .  
SELECT-OPTIONS s\_bwkey FOR mbew\-bwkey .  
  
DATA: BEGIN OF  gs\_out,  
        matnr      LIKE mbew\-matnr,  
        maktx      LIKE makt\-maktx,  
        bwkey      LIKE mbew\-bwkey, *"**评估范围*  
        bwtar      LIKE mbew\-bwtar, *"**评估类*  
        vprsv      LIKE mbew\-vprsv, *"**价格控制** S V*  
        bklas      LIKE mbew\-bklas, *" **评估类*  
        kaln1      LIKE mbew\-kaln1, *" **产品成本核算号*  
*\*        kalnr      LIKE ckmlmv001-kalnr , "**备选采购号*  
*\*        verid\_nd   LIKE ckmlmv001-verid\_nd , "**生产版本*  
*\*        lifnr\_nd   LIKE ckmlmv001-lifnr\_nd , "**供应商代码*  
        misch\_verh LIKE ckmlmv003\-misch\_verh, *"**混合比例*  
        icon(30)   TYPE c,  
      END OF gs\_out .  
DATA :  gt\_out LIKE TABLE OF gs\_out .  
  
  
  
DATA: gt\_fieldcat TYPE   lvc\_t\_fcat .  
DATA: gs\_fieldcat TYPE   lvc\_s\_fcat .  
DATA: gs\_layout   TYPE   lvc\_s\_layo .  
  
  
  
  
START-OF-SELECTION .  
  
  SELECT  
  
          a~matnr      *" LIKE mbew-matnr,*  
          maktx    *"  LIKE makt-maktx,*  
          a~bwkey    *"  LIKE mbew-bwkey, "**评估范围*  
          a~bwtar     *" LIKE mbew-bwtar, "**评估类*  
          vprsv    *"  LIKE mbew-vprsv, "**价格控制** S V*  
          bklas    *"  LIKE mbew-bklas, " **评估类*  
          KALN1     *" **产品成本核算号*  
*\*          c~kalnr     " LIKE ckmlmv001-kalnr , "**备选采购号*  
*\*          c~verid\_nd  " LIKE ckmlmv001, "**生产版本*  
*\*          c~lifnr\_nd "  LIKE ckmlmv001-lifnr\_nd , "**供应商代码*  
*\*\*          d~misch\_verh "LIKE ckmlmv003-misch\_verh, "**混合比例*  
  
    INTO TABLE gt\_out  
    FROM mbew AS a  
   *" LEFT JOIN  ckmlmv001 AS c ON a~matnr = c~matnr  AND  a~bwkey = c~bwkey AND a~bwtar = c~bwtar  AND  c~otyp =  'BA' and C~SOBKZ ne 'T'*  
*\*     JOIN  ckmlmv003 AS d ON  c~kalnr = d~kalnr\_bal*  
    JOIN makt AS b ON a~matnr = b~matnr  
    WHERE  a~matnr  IN  s\_matnr  
    AND     a~bwkey  IN s\_bwkey .  
  
  
  LOOP AT gt\_out INTO gs\_out .  
    SELECT SINGLE  misch\_verh INTO gs\_out\-misch\_verh  
       FROM ckmlmv003  
*\*      WHERE  kalnr\_bal = gs\_out-kalnr*  
      WHERE KALNR\_OUT  = gs\_out\-kaln1  
      AND bwkey = gs\_out\-bwkey .  
    IF gs\_out\-vprsv EQ 'S' .  
      IF gs\_out\-misch\_verh IS NOT  INITIAL .  
        gs\_out\-icon = icon\_green\_light .  
      ELSE .  
        gs\_out\-icon = icon\_red\_light .  
      ENDIF .  
    ENDIF .  
    MODIFY gt\_out FROM gs\_out .  
    CLEAR :gs\_out .  
  
  ENDLOOP .  
  
  
  
  
  
  DEFINE append\_field.  
    gs\_fieldcat\-fieldname = &1.  
    gs\_fieldcat\-coltext = &2.  
    APPEND gs\_fieldcat TO gt\_fieldcat.  
    CLEAR: gs\_fieldcat.  
  END-OF-DEFINITION.  
  
  
*\*  matnr      like mbew-matnr,*  
*\*  maktx      LIKE makt-maktx,*  
*\*  bwkey      LIKE mbew-bwkey, "**评估范围*  
*\*  bwtar      LIKE mbew-bwtar, "**评估类*  
*\*  vprsv      LIKE mbew-vprsv, "**价格控制** S V*  
*\*  bklas      LIKE mbew-bklas, " **评估类*  
*\*  kalnr      LIKE ckmlmv001-kalnr , "**备选采购号*  
*\*  verid\_nd   LIKE ckmlmv001-verid\_nd , "**生产版本*  
*\*  lifnr\_nd   LIKE ckmlmv001-lifnr\_nd , "**供应商代码*  
*\*  misch\_verh LIKE ckmlmv003-misch\_verh, "**混合比例*  
  
  append\_field: 'ICON' '状态' .  
*\*  append\_field: 'MATNR' '**物料代码**' .*  
  
  gs\_fieldcat\-fieldname = 'MATNR'.  
  gs\_fieldcat\-coltext = '物料编码'.  
  gs\_fieldcat\-ref\_table = 'MARA'.  
  gs\_fieldcat\-ref\_field = 'MATNR'.  
*\*  gs\_fieldcat-EMPHASIZE = 'C710' .    " **列颜色*  
  APPEND gs\_fieldcat TO gt\_fieldcat.  
  CLEAR: gs\_fieldcat.  
  
  
  append\_field: 'MAKTX' '物料描述' .  
  append\_field: 'BWKEY' '评估范围' .  
  append\_field: 'BWTAR' '分割评估' .  
  append\_field: 'VPRSV' '价格控制' .  
  append\_field: 'BKLAS' '评估类' .  
*\*  append\_field: 'KALNR' '**备选采购号**' .*  
*\*  append\_field: 'VERID\_ND' '**生产版本**' .*  
*\*  append\_field: 'LIFNR\_ND' '**供应商代码**' .*  
  append\_field: 'MISCH\_VERH' '混合比例' .  
  
  
  CALL FUNCTION 'REUSE\_ALV\_GRID\_DISPLAY\_LVC'  
    EXPORTING  
      i\_callback\_program = sy\-repid  
*\*     i\_callback\_pf\_status\_set = 'FRM\_STATUS\_SET'*  
*\*     i\_callback\_user\_command  = 'FRM\_USER\_COMMAND'*  
*\**  
*\*     I\_GRID\_SETTINGS    =*  
      is\_layout\_lvc      = gs\_layout  
      it\_fieldcat\_lvc    = gt\_fieldcat  
      i\_save             = 'A'  
*\*     i\_grid\_settings    = ls\_grid\_settings*  
*\*     it\_events          = lt\_events*  
*\*     is\_variant         = ls\_variant*  
*\*     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]: /images/20221120/9435227da25c413193cbdd15d1d3252d.png