物料的标准工时取数

朱雀 2022-02-09 10:09 222阅读 0赞

王顾问，请教您一个问题。  
生产订单报工之后，他们工艺路线删掉，又重建了。然后两边的工艺路线组就对不上了。标工就取错了。  
后来想，我不按工单里面的组来关联，按物料来关联。后来发现PLPO 一个组有很多行，甚者有上百行，光凭组代码也无法确定哪条与前台的标工对应。  
  
abcde 2018/7/23 9:35:46  
  
这个问题要怎么解决？

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70][]

2018/7/23 11:12:30  
顾问  2018/7/23 11:12:30  
  
那个报表？  
  
abcde 2018/7/23 11:13:00  
  
ZPP014 报工明细查询  
  
顾问 2018/7/23 11:13:31  
  
那你能不能改成标准的工时取生产订单的，别取工艺路线的？  
2018/7/23 11:15:01  
abcde 2018/7/23 11:15:01  
  
生产订单的标工不是最新的。  
  
abcde 2018/7/23 11:15:56  
  
最新的他们只能维护到工艺路线里面。  
  
顾问 2018/7/23 11:16:03  
  
稍等，给你找个函数。。  
2018/7/23 11:30:18  
顾问- 2018/7/23 11:30:18  
  
你调试下CPCC\_S\_TASK\_LIST\_READ这个函数。  
  
顾问 2018/7/23 11:30:22  
  
看行不行。。

你们用量很多替代工序，应该是有好多条才对。。  
  
顾问- 2018/7/23 14:23:14  
  
了  
2018/7/23 14:28:15  
abcde 2018/7/23 14:28:15  
  
那我的标工是不是只要取节点1就好了？  
  
顾问- 2018/7/23 14:29:14  
  
应该是可以的，如果每个替代工序都是一样的话。。  
  
顾问-  2018/7/23 14:29:33  
  
比如A1拉、A2拉的效率如果一样的话，就没啥所谓。。

*\*&---------------------------------------------------------------------\**  
*\*& Report ZPPR014*  
*\*&---------------------------------------------------------------------\**  
*\*&*  
*\*&---------------------------------------------------------------------\**  
REPORT zppr014 NO STANDARD PAGE HEADING.  
TYPE-POOLS: slis,vrm.  
TABLES:afru,afko,afpo,crhd,aufk,anla,cobrb.  
TYPES:BEGIN OF ty\_list,  
        ersda     TYPE afru\-ersda, *"*  
        auart     TYPE aufk\-auart,  
        aufnr     TYPE afru\-aufnr,  
        gamng     TYPE afko\-gamng,  
        rueck     TYPE afru\-rueck,  
        rmzhl     TYPE afru\-rmzhl,  
        lmnga     TYPE afru\-lmnga,  
        aueru     TYPE afru\-aueru,  
        arbid     TYPE afru\-arbid,  
        ism01     TYPE plpo\-vgw01,  
        ism02     TYPE plpo\-vgw01,  
        ism03     TYPE plpo\-vgw01,  
        arbpl     TYPE crhd\-arbpl,  
        plnbez    TYPE afko\-plnbez,  
        maktx     TYPE makt\-maktx,  
        werks     TYPE afru\-werks,  
        all\_s\_rg  TYPE plpo\-vgw01,  
        all\_s\_jq  TYPE plpo\-vgw01,  
        all\_s\_zf  TYPE plpo\-vgw01,  
        all\_s\_mj  TYPE plpo\-vgw01,  
        all\_a\_rg  TYPE plpo\-vgw01,  
        all\_a\_jq  TYPE plpo\-vgw01,  
        all\_a\_zf  TYPE plpo\-vgw01,  
        all\_d\_rg  TYPE plpo\-vgw01,  
        all\_d\_zf  TYPE plpo\-vgw01,  
        all\_d\_jq  TYPE plpo\-vgw01,  
        r\_rg(10),  
        r\_zf(10),  
        r\_jq(10),  
*\*        ltxa1     TYPE afru-ltxa1,*  
        ltxa1     TYPE c LENGTH 300,  
        ktext     LIKE aufk\-ktext,  
        anln(15),  
        anln1     LIKE anla\-anln1,  
        anln2     LIKE anla\-anln2,  
        txt50     LIKE anla\-txt50,  
        ddzt(100),  
        budat     LIKE afru\-budat,  
        zzrr      LIKE afru\-zzrr,  
        ernam     LIKE  aufk\-ernam,  
      END OF ty\_list.  
TYPES: BEGIN OF ty\_internal,  
         \_number        TYPE i , *"**序列号*  
         \_excp          TYPE c, *"**需要在**LAYOUT-EXCP\_FNAME**中指定，绿灯**3**，红灯**1**，黄灯**2"*  
         \_check         TYPE c , *"**复选框**,**还需要在**FCAT**中设置成**CHECKBOX**，记录用户的选择*  
         \_box           TYPE c , *"**需要在**LAYOUT-BOX\_NAME**中指定**,**记录用户的选择，跟**\_BOX**不同，记录的是**ALV**控件的标准选择框**,*  
         \_delete        TYPE c , *"**记录删除标识**X"*  
         \_action        TYPE c , *"**用户操作，插入**I**，更新**U,**删除**D"*  
         \_row\_id        TYPE sytabix, *"**行项目**ID"*  
         \_tabix         TYPE sytabix, *"**引用的表行标识**"*  
         \_line\_color(4) TYPE c, *"**行项目的颜色**"*  
         \_field\_style   TYPE lvc\_t\_styl, *"**行项目的样式**"*  
         \_mess\_type     TYPE c, *"**消息类型，用于数据检查**"*  
         \_message       TYPE char255, *"**行项目的消息内容**"*  
         reffi          TYPE mara\-meins,  
  
       END OF ty\_internal.  
TYPES: BEGIN OF ty\_type.  
    INCLUDE TYPE ty\_list.  
    INCLUDE TYPE ty\_internal.  
TYPES END OF ty\_type.  
DATA: gt\_table TYPE TABLE OF ty\_type WITH HEADER LINE.  
*\*ALV**类变量定义*  
  
DATA: gs\_layout         TYPE lvc\_s\_layo.  
DATA: gt\_fieldcat       TYPE lvc\_t\_fcat.  
DATA: global\_alv\_sort       TYPE lvc\_t\_sort.  
  
DATA: ls\_style TYPE lvc\_s\_styl,  
      lt\_style TYPE lvc\_t\_styl.  
DATA: x\_save     TYPE c,  
      gs\_variant TYPE disvariant,  
      g\_title    TYPE lvc\_title.  
DATA: g\_grid            TYPE REF TO cl\_gui\_alv\_grid.  
  
DATA:BEGIN OF gs\_aufk,  
       aufnr LIKE aufk\-aufnr,  
       ktext LIKE aufk\-ktext, *"**订单描述*  
       objnr LIKE aufk\-objnr, *"**对象号*  
       auart LIKE aufk\-auart, *"**订单类型*  
     END OF gs\_aufk.  
DATA:BEGIN OF gs\_afko,  
       aufnr LIKE afko\-aufnr,  
       plnty LIKE afko\-plnty,  
       plnnr LIKE afko\-plnnr,  
       plnal LIKE afko\-plnal,  
     END OF gs\_afko.  
DATA:BEGIN OF gs\_plpo,  
       plnty LIKE plpo\-plnty,  
       plnnr LIKE plpo\-plnnr,  
       vgw01 LIKE plpo\-vgw01,  
       vgw02 LIKE plpo\-vgw01,  
       vgw03 LIKE plpo\-vgw01,  
       plnkn LIKE plpo\-plnkn,  
     END OF gs\_plpo.  
DATA:BEGIN OF gs\_cobrb,  
       objnr LIKE cobrb\-objnr, *"**对象号*  
       anln1 LIKE cobrb\-anln1, *"**主资产号*  
       anln2 LIKE cobrb\-anln2, *"**次级资产号*  
     END OF gs\_cobrb.  
DATA:BEGIN OF gs\_anla,  
       anln1 LIKE cobrb\-anln1, *"**主资产号*  
       anln2 LIKE cobrb\-anln2, *"**次级资产号*  
       txt50 LIKE anla\-txt50, *"**资产描述*  
     END OF gs\_anla.  
DATA:gt\_aufk  LIKE TABLE OF gs\_aufk,  
     gt\_cobrb LIKE TABLE OF gs\_cobrb,  
     gt\_afko  LIKE TABLE OF gs\_afko,  
     gt\_plpo  LIKE TABLE OF gs\_plpo,  
     gt\_anla  LIKE TABLE OF gs\_anla.  
  
SELECTION-SCREEN:BEGIN OF BLOCK blk1 WITH FRAME TITLE TEXT\-001.  
PARAMETERS:p\_werks LIKE aufk\-werks DEFAULT '1000' OBLIGATORY.  
SELECT-OPTIONS:s\_ersda FOR afru\-ersda DEFAULT sy\-datum,  
               s\_budat FOR afru\-budat,  
               s\_aufnr FOR afko\-aufnr,  
               s\_auart FOR aufk\-auart,  
               s\_arbpl FOR crhd\-arbpl MATCHCODE OBJECT zarbpl.  
SELECTION-SCREEN:END OF BLOCK blk1.  
  
START-OF-SELECTION.  
  PERFORM frm\_get\_data.  
  IF gt\_table\[\] IS NOT  INITIAL.  
    PERFORM frm\_dis\_data.  
  ELSE.  
    MESSAGE '无符合条件的数据' TYPE 'I' DISPLAY LIKE 'E'.  
  ENDIF.  
*\*&---------------------------------------------------------------------\**  
*\*&      Form  frm\_dis\_data*  
*\*&---------------------------------------------------------------------\**  
*\*       text*  
*\*----------------------------------------------------------------------\**  
FORM frm\_dis\_data.  
  PERFORM dis\_prepare\_layout       CHANGING gs\_layout.  
  PERFORM dis\_prepare\_field\_catalog CHANGING gt\_fieldcat.  
  PERFORM dis\_show\_data\_alv.  
ENDFORM.                    *"frm\_dis\_data*  
  
  
  
  
  
  
  
  
  
  
  
  
  
*\*&---------------------------------------------------------------------\**  
*\*&      Form  FRM\_GET\_DATA*  
*\*&---------------------------------------------------------------------\**  
*\*       text*  
*\*----------------------------------------------------------------------\**  
FORM frm\_get\_data.  
  DATA:vgw01 LIKE plpo\-vgw01,  
       vgw02 LIKE plpo\-vgw01,  
       vgw03 LIKE plpo\-vgw01,  
       vgw04 LIKE plpo\-vgw01,  
       vgw05 LIKE plpo\-vgw01,  
       vgw06 LIKE plpo\-vgw01.  
  DATA:rate TYPE p DECIMALS 2.  
  DATA: BEGIN OF lt\_itab OCCURS 0,  
          arbid TYPE afru\-arbid,  
        END OF lt\_itab.  
  
  DATA:BEGIN OF gs\_plpo,  
         werks  LIKE plpo\-werks,  
         plnnr  LIKE plpo\-plnnr,  
         arbid  LIKE plpo\-arbid,  
*\*         ltxa1  LIKE plpo-ltxa1,*  
         ltxa1  TYPE c LENGTH 300,  
         bmsch  LIKE plpo\-bmsch,  
         vgw01  LIKE plpo\-vgw01,  
         vgw02  LIKE plpo\-vgw02,  
         vgw03  LIKE plpo\-vgw03,  
         vgw04  LIKE plpo\-vgw04,  
         anzma  LIKE plpo\-anzma,  
         splim  LIKE plpo\-splim,  
         aufnr  LIKE afko\-aufnr,  
         plnbez LIKE afko\-plnbez,  
         gamng  LIKE afko\-gamng,  
         auart  LIKE aufk\-auart,  
         ernam  LIKE aufk\-ernam,  
         plnkn  LIKE plpo\-plnkn,  
       END OF gs\_plpo.  
  DATA:BEGIN OF gs\_makt,  
         matnr LIKE makt\-matnr,  
         maktx LIKE makt\-maktx,  
       END OF gs\_makt.  
  DATA:BEGIN OF gs\_crhd,  
         objid LIKE crhd\-objid,  
         arbpl LIKE crhd\-arbpl,  
       END OF gs\_crhd.  
  DATA:gt\_plpo LIKE TABLE OF gs\_plpo,  
       gt\_makt LIKE TABLE OF gs\_makt,  
       gt\_crhd LIKE TABLE OF gs\_crhd.  
  
  
  SELECT DISTINCT objid INTO  TABLE lt\_itab FROM crhd  
     WHERE arbpl IN s\_arbpl.  
  IF lt\_itab\[\] IS NOT INITIAL.  
    SELECT DISTINCT \* INTO CORRESPONDING FIELDS OF TABLE gt\_table FROM afru  
       FOR ALL ENTRIES IN lt\_itab  
     WHERE ersda IN s\_ersda AND werks EQ p\_werks AND stokz = '' AND stzhl = ''  
       AND aufnr IN s\_aufnr AND arbid EQ lt\_itab\-arbid AND budat IN s\_budat.  
  ELSE.  
    SELECT DISTINCT \* INTO CORRESPONDING FIELDS OF TABLE gt\_table FROM afru  
     WHERE ersda IN s\_ersda AND werks EQ p\_werks AND stokz = '' AND stzhl = ''  
       AND aufnr IN s\_aufnr AND budat IN s\_budat.*"*  
  ENDIF.  
  IF gt\_table\[\] IS NOT INITIAL.  
  
    SELECT plpo~werks plpo~plnnr arbid ltxa1 bmsch vgw01 vgw02 vgw03 vgw04 anzma  
               splim afko~aufnr plnbez gamng auart ernam plnkn  
              INTO CORRESPONDING FIELDS OF TABLE gt\_plpo FROM plpo  
              INNER JOIN afko ON plpo~plnnr = afko~plnnr  
              JOIN aufk ON afko~aufnr = aufk~aufnr  
              FOR ALL ENTRIES IN gt\_table WHERE plpo~arbid = gt\_table\-arbid  
              AND afko~aufnr = gt\_table\-aufnr  
              AND plpo~werks = p\_werks  .  
    SELECT matnr maktx INTO  TABLE gt\_makt FROM makt FOR ALL ENTRIES IN gt\_plpo WHERE matnr = gt\_plpo\-plnbez.  
  
    SELECT objid arbpl INTO TABLE gt\_crhd  FROM crhd FOR ALL ENTRIES IN gt\_plpo WHERE objid = gt\_plpo\-arbid.  
  
  
    SORT gt\_plpo BY aufnr .  
    SORT gt\_makt BY matnr.  
    SORT gt\_crhd BY objid.  
    DELETE ADJACENT DUPLICATES FROM gt\_makt COMPARING matnr.  
    DELETE ADJACENT DUPLICATES FROM gt\_crhd COMPARING objid.  
  
    DATA p\_arbpl(2) TYPE c.  
    DATA: lv\_name TYPE thead\-tdname.  
    DATA: ls\_tline  TYPE tline .  
    DATA: lt\_tline LIKE TABLE OF tline .  
  
    LOOP AT gt\_table.  
  
      CLEAR gs\_crhd.  
      READ TABLE gt\_crhd INTO gs\_crhd WITH KEY objid = gt\_table\-arbid BINARY SEARCH.  
      IF  sy\-subrc EQ 0 .  
        gt\_table\-arbpl = gs\_crhd\-arbpl.  
      ENDIF.  
      p\_arbpl = gt\_table\-arbpl+0(2).  
      SELECT SINGLE plnbez INTO gt\_table\-plnbez FROM afko WHERE aufnr = gt\_table\-aufnr .  
      CLEAR gs\_plpo.  
      READ TABLE gt\_plpo INTO gs\_plpo WITH KEY aufnr = gt\_table\-aufnr BINARY SEARCH .  
      IF  sy\-subrc EQ 0.  
        *"MODIFY BY LXF START*  
  
        DATA: lv\_plnnr LIKE mapl\-plnnr .  
        DATA: lt\_re LIKE TABLE OF   opr\_class\_data .  
        DATA:  ls\_re LIKE opr\_class\_data .  
        SELECT SINGLE plnnr INTO lv\_plnnr FROM mapl  
           WHERE matnr = gt\_table\-plnbez  
           AND  plnty EQ 'N'  
           AND werks = gt\_table\-werks  
          AND loekz EQ ''.  
  
        CALL FUNCTION 'CPCC\_S\_TASK\_LIST\_READ'  
          EXPORTING  
            iv\_plnty          = 'N'  
            iv\_plnnr          = lv\_plnnr  
            iv\_plnal          = '01'  
            iv\_datuv          = sy\-datum  
            iv\_datub          = '99991231'  
*\*           IV\_READ\_FROM\_DB   =*  
*\*           IV\_DISPLAY\_LOG    = ' '*  
          IMPORTING  
*\*           ET\_TSK\_CLASS\_DATA =*  
*\*           ET\_MTK\_CLASS\_DATA =*  
            et\_opr\_class\_data = lt\_re  
*\*           ET\_PRT\_CLASS\_DATA =*  
*\*           ET\_CHA\_CLASS\_DATA =*  
*\*           ET\_CHV\_CLASS\_DATA =*  
*\*           ET\_RETURN         =*  
          .  
  
*\*        gs\_plpo-bmsch*  
*\*        gs\_plpo-vgw02*  
*\*        gs\_plpo-anzma*  
*\*        gs\_plpo-splim.*  
  
        LOOP AT lt\_re INTO ls\_re WHERE plnfl EQ '000000' AND vornr EQ '0010'.  
  
          gs\_plpo\-bmsch   =  ls\_re\-bmsch .  
          gs\_plpo\-vgw02   =  ls\_re\-vgw02  .  
          gs\_plpo\-anzma   =  ls\_re\-anzma .  
          gs\_plpo\-splim   =  ls\_re\-splim .  
  
        ENDLOOP .  
        CLEAR lt\_re\[\] .  
        CLEAR ls\_re.  
  
  
        *"MODIFY BY LXF END*  
  
  
  
  
        gt\_table\-auart = gs\_plpo\-auart.  
        gt\_table\-ernam = gs\_plpo\-ernam.  
        gt\_table\-gamng = gs\_plpo\-gamng.  
        gt\_table\-plnbez = gs\_plpo\-plnbez.  
*\*        IF gt\_table-auart = 'LX03' OR gt\_table-auart = 'LX08'  OR gt\_table-auart = 'LX22'*  
*\*          OR gt\_table-auart = 'LX23' OR gt\_table-auart = 'LX31' OR gt\_table-auart = 'LX32'*  
*\*            OR ( gt\_table-auart = 'LX21' AND p\_arbpl <> '**再加**')*  
*\*            OR ( gt\_table-auart = 'LX33' AND p\_arbpl <> '**再加**')*  
*\*            OR ( gt\_table-auart = 'LX07' AND  p\_arbpl = 'ZS' )*  
*\*            OR ( gt\_table-auart = 'LX06' AND  p\_arbpl = 'ZS' )*  
*\*            OR ( gt\_table-auart = 'LX12' AND  p\_arbpl = 'ZS' ) .*  
        IF  gt\_table\-auart = 'LX08'  OR gt\_table\-auart = 'LX22'  
            OR gt\_table\-auart = 'LX23' OR gt\_table\-auart = 'LX31' OR gt\_table\-auart = 'LX32'  
            OR ( gt\_table\-auart = 'LX03'   AND p\_arbpl <> '再加')  
            OR ( gt\_table\-auart = 'LX21' AND p\_arbpl <> '再加')  
            OR ( gt\_table\-auart = 'LX33' AND p\_arbpl <> '再加')  
            OR ( gt\_table\-auart = 'LX07' AND  p\_arbpl = 'ZS' )  
            OR ( gt\_table\-auart = 'LX06' AND  p\_arbpl = 'ZS' )  
            OR ( gt\_table\-auart = 'LX12' AND  p\_arbpl = 'ZS' ) .  
  
          IF gs\_plpo\-bmsch <> 0 AND gs\_plpo\-splim <> 0.  
            gt\_table\-all\_s\_rg = gt\_table\-lmnga / gs\_plpo\-bmsch \* gs\_plpo\-vgw02 \* gs\_plpo\-anzma / gs\_plpo\-splim.  
            gt\_table\-all\_s\_jq = gt\_table\-lmnga / gs\_plpo\-bmsch \* gs\_plpo\-vgw01 / gs\_plpo\-splim.  
            gt\_table\-all\_s\_zf = gt\_table\-lmnga / gs\_plpo\-bmsch \* gs\_plpo\-vgw03 \* gs\_plpo\-anzma / gs\_plpo\-splim.  
          ELSE.  
            gt\_table\-all\_s\_rg = 0.  
            gt\_table\-all\_s\_jq = 0.  
            gt\_table\-all\_s\_zf = 0.  
          ENDIF.  
          gt\_table\-all\_s\_mj = gt\_table\-lmnga.  
          gt\_table\-all\_a\_rg = gt\_table\-ism02.  
          gt\_table\-all\_a\_jq = gt\_table\-ism01.  
          gt\_table\-all\_a\_zf = gt\_table\-ism03.  
          gt\_table\-all\_d\_rg =  gt\_table\-all\_a\_rg  \- gt\_table\-all\_s\_rg.  
          gt\_table\-all\_d\_jq =  gt\_table\-all\_a\_jq  \- gt\_table\-all\_s\_jq.  
          gt\_table\-all\_d\_zf =  gt\_table\-all\_a\_zf  \- gt\_table\-all\_s\_zf.  
  
          CLEAR rate.  
          IF gt\_table\-all\_a\_rg <> 0.  
            rate = gt\_table\-all\_s\_rg / gt\_table\-all\_a\_rg \* 100.  
            gt\_table\-r\_rg = rate.  
            CONCATENATE gt\_table\-r\_rg '%' INTO gt\_table\-r\_rg.  
          ENDIF.  
          CLEAR rate.  
          IF gt\_table\-all\_a\_jq <> 0.  
            rate = gt\_table\-all\_s\_jq / gt\_table\-all\_a\_jq \* 100.  
            gt\_table\-r\_jq = rate.  
            CONCATENATE gt\_table\-r\_jq '%' INTO gt\_table\-r\_jq.  
          ENDIF.  
          CLEAR rate.  
          IF gt\_table\-all\_a\_zf <> 0.  
            rate = gt\_table\-all\_s\_zf / gt\_table\-all\_a\_zf \* 100.  
            gt\_table\-r\_zf = rate.  
            CONCATENATE gt\_table\-r\_zf '%' INTO gt\_table\-r\_zf.  
          ENDIF.  
        ELSE.  
          IF  gs\_plpo\-bmsch <> 0.  
            gt\_table\-all\_s\_rg = gt\_table\-lmnga \* gs\_plpo\-vgw01 \* gs\_plpo\-anzma / gs\_plpo\-bmsch .  
            gt\_table\-all\_s\_zf = gt\_table\-lmnga \* gs\_plpo\-vgw02 \* gs\_plpo\-anzma / gs\_plpo\-bmsch .  
          ELSE.  
            gt\_table\-all\_s\_rg = 0.  
            gt\_table\-all\_s\_zf = 0.  
          ENDIF.  
          gt\_table\-all\_a\_rg = gt\_table\-ism01.  
          gt\_table\-all\_a\_zf = gt\_table\-ism02.  
          gt\_table\-all\_d\_rg =  gt\_table\-all\_a\_rg  \- gt\_table\-all\_s\_rg.  
          gt\_table\-all\_d\_zf =  gt\_table\-all\_a\_zf  \- gt\_table\-all\_s\_zf.  
  
          CLEAR rate.  
          IF gt\_table\-all\_a\_rg <> 0.  
            rate = gt\_table\-all\_s\_rg / gt\_table\-all\_a\_rg \* 100.  
            gt\_table\-r\_rg = rate.  
            CONCATENATE gt\_table\-r\_rg '%' INTO gt\_table\-r\_rg.  
          ENDIF.  
          CLEAR rate.  
          IF gt\_table\-all\_a\_zf <> 0.  
            rate = gt\_table\-all\_s\_zf / gt\_table\-all\_a\_zf \* 100.  
            gt\_table\-r\_zf = rate.  
            CONCATENATE gt\_table\-r\_zf '%' INTO gt\_table\-r\_zf.  
          ENDIF.  
        ENDIF.  
      ENDIF.  
      gt\_table\-reffi = 'KAR'.  
  
      CLEAR gs\_makt.  
      READ TABLE gt\_makt INTO gs\_makt WITH KEY matnr = gt\_table\-plnbez BINARY SEARCH .  
      IF sy\-subrc EQ 0.  
        gt\_table\-maktx = gs\_makt\-maktx.  
      ENDIF.  
  
      *"LTXA1  **异常原因** modify by lxf START*  
  
      CONCATENATE sy\-mandt   gt\_table\-rueck gt\_table\-rmzhl  INTO lv\_name.  
  
      CLEAR: lt\_tline\[\] .  
      CALL FUNCTION 'READ\_TEXT'  
        EXPORTING  
          client                  = sy\-mandt  
          id                      = 'RMEL'  
          language                = sy\-langu  
          name                    = lv\_name  
          object                  = 'AUFK'  
*\*         ARCHIVE\_HANDLE          = 0*  
*\*         LOCAL\_CAT               = ' '*  
*\*             IMPORTING*  
*\*         HEADER                  =*  
*\*         OLD\_LINE\_COUNTER        =*  
        TABLES  
          lines                   = lt\_tline  
        EXCEPTIONS  
          id                      = 1  
          language                = 2  
          name                    = 3  
          not\_found               = 4  
          object                  = 5  
          reference\_check         = 6  
          wrong\_access\_to\_archive = 7  
          OTHERS                  = 8.  
      IF sy\-subrc <> 0.  
*\*           Implement suitable error handling here*  
      ENDIF.  
  
      IF lt\_tline IS NOT INITIAL .  
        CLEAR gt\_table\-ltxa1 .  
  
        LOOP AT lt\_tline  INTO ls\_tline .  
  
          CONCATENATE gt\_table\-ltxa1 ls\_tline\-tdline INTO gt\_table\-ltxa1 .  
  
        ENDLOOP.  
      ENDIF .  
  
      CLEAR lt\_tline\[\] .  
  
  
      *"LTXA1  **异常原因** modify by lxf END*  
  
      MODIFY gt\_table.  
      CLEAR gt\_table.  
  
*\*      SELECT SINGLE auart ernam INTO (gt\_table-auart,gt\_table-ernam)  FROM aufk WHERE aufnr EQ gt\_table-aufnr.*  
*\*      SELECT SINGLE gamng INTO gt\_table-gamng FROM afko WHERE aufnr EQ gt\_table-aufnr.*  
*\*      SELECT SINGLE arbpl INTO gt\_table-arbpl FROM crhd WHERE objid EQ gt\_table-arbid.*  
*\*      SELECT SINGLE plnbez INTO gt\_table-plnbez FROM afko WHERE aufnr EQ gt\_table-aufnr.*  
*\*      SELECT SINGLE maktx INTO gt\_table-maktx FROM makt WHERE matnr EQ gt\_table-plnbez.*  
*\*      CLEAR:vgw01,vgw02,vgw03,vgw04,vgw05,vgw06.*  
*\*      CALL FUNCTION 'ZPP\_MATERIAL\_STANDARD\_ROUTING'*  
*\*        EXPORTING*  
*\*          lmnga = gt\_table-lmnga*  
*\*          matnr = gt\_table-plnbez*  
*\*          arbid = gt\_table-arbid*  
*\*          werks = gt\_table-werks*  
*\*        IMPORTING*  
*\*          vgw01 = vgw01*  
*\*          vgw02 = vgw02*  
*\*          vgw03 = vgw03*  
*\*          vgw04 = vgw04*  
*\*          vgw05 = vgw05*  
*\*          vgw06 = vgw06.*  
*\*      CASE gt\_table-auart.*  
*\*        WHEN 'LX03' OR 'LX08' OR 'LX07' OR  'LX06' OR 'LX12'.*  
*\*          gt\_table-all\_s\_rg = vgw02.*  
*\*          gt\_table-all\_s\_jq = vgw01.*  
*\*          gt\_table-all\_s\_zf = vgw03.*  
*\*          gt\_table-all\_s\_mj = vgw04.*  
*\*          gt\_table-all\_a\_rg = gt\_table-ism02.*  
*\*          gt\_table-all\_a\_jq = gt\_table-ism01.*  
*\*          gt\_table-all\_a\_zf = gt\_table-ism03.*  
*\*          gt\_table-all\_d\_rg =  gt\_table-all\_a\_rg  - gt\_table-all\_s\_rg.*  
*\*          gt\_table-all\_d\_jq =  gt\_table-all\_a\_jq  - gt\_table-all\_s\_jq.*  
*\*          gt\_table-all\_d\_zf =  gt\_table-all\_a\_zf  - gt\_table-all\_s\_zf.*  
*\*          CLEAR rate.*  
*\*          IF gt\_table-all\_a\_rg <> 0.*  
*\*            rate = gt\_table-all\_s\_rg / gt\_table-all\_a\_rg \* 100.*  
*\*            gt\_table-r\_rg = rate.*  
*\*            CONCATENATE gt\_table-r\_rg '%' INTO gt\_table-r\_rg.*  
*\*          ENDIF.*  
*\*          CLEAR rate.*  
*\*          IF gt\_table-all\_a\_jq <> 0.*  
*\*            rate = gt\_table-all\_s\_jq / gt\_table-all\_a\_jq \* 100.*  
*\*            gt\_table-r\_jq = rate.*  
*\*            CONCATENATE gt\_table-r\_jq '%' INTO gt\_table-r\_jq.*  
*\*          ENDIF.*  
*\*          CLEAR rate.*  
*\*          IF gt\_table-all\_a\_zf <> 0.*  
*\*            rate = gt\_table-all\_s\_zf / gt\_table-all\_a\_zf \* 100.*  
*\*            gt\_table-r\_zf = rate.*  
*\*            CONCATENATE gt\_table-r\_zf '%' INTO gt\_table-r\_zf.*  
*\*          ENDIF.*  
*\*        WHEN OTHERS.*  
*\*          gt\_table-all\_s\_rg = vgw01.*  
*\*          gt\_table-all\_s\_zf = vgw02.*  
*\*          gt\_table-all\_a\_rg = gt\_table-ism01.*  
*\*          gt\_table-all\_a\_zf = gt\_table-ism02.*  
*\*          gt\_table-all\_d\_rg =  gt\_table-all\_a\_rg  - gt\_table-all\_s\_rg.*  
*\*\*          GT\_TABLE-ALL\_D\_JQ =  GT\_TABLE-ALL\_A\_JQ  - GT\_TABLE-ALL\_S\_JQ.*  
*\*          gt\_table-all\_d\_zf =  gt\_table-all\_a\_zf  - gt\_table-all\_s\_zf.*  
*\*          CLEAR rate.*  
*\*          IF gt\_table-all\_a\_rg <> 0.*  
*\*            rate = gt\_table-all\_s\_rg / gt\_table-all\_a\_rg \* 100.*  
*\*            gt\_table-r\_rg = rate.*  
*\*            CONCATENATE gt\_table-r\_rg '%' INTO gt\_table-r\_rg.*  
*\*          ENDIF.*  
*\*          CLEAR rate.*  
*\*          IF gt\_table-all\_a\_zf <> 0.*  
*\*            rate = gt\_table-all\_s\_zf / gt\_table-all\_a\_zf \* 100.*  
*\*            gt\_table-r\_zf = rate.*  
*\*            CONCATENATE gt\_table-r\_zf '%' INTO gt\_table-r\_zf.*  
*\*          ENDIF.*  
*\*      ENDCASE.*  
*\*      gt\_table-reffi = 'KAR'.*  
*\*      MODIFY gt\_table.*  
*\*      CLEAR gt\_table.*  
    ENDLOOP.  
  ENDIF.  
  IF s\_auart IS NOT INITIAL.  
    DELETE gt\_table WHERE auart NOT IN s\_auart.  
  ENDIF.  
  
*\***处理**LX08*  
  PERFORM: frm\_lx08.  
ENDFORM.  
*\*&---------------------------------------------------------------------\**  
*\*&      Form  UPD\_PREPARE\_LAYOUT*  
*\*&---------------------------------------------------------------------\**  
*\*       text*  
*\*----------------------------------------------------------------------\**  
*\*      -->PS\_LAYOUT  text*  
*\*----------------------------------------------------------------------\**  
FORM dis\_prepare\_layout CHANGING ps\_layout TYPE lvc\_s\_layo.  
  g\_title = sy\-title.  
  ps\_layout\-cwidth\_opt = 'X'.  
  ps\_layout\-zebra      = 'X'.  
  ps\_layout\-box\_fname  = '\_BOX'.  
  ps\_layout\-sel\_mode   = 'A'.  
*\*  PS\_LAYOUT-EXCP\_FNAME = '\_EXCP'.*  
  ps\_layout\-info\_fname = '\_LINE\_COLOR'.  
  ps\_layout\-grid\_title = g\_title.  
  ps\_layout\-detailinit = 'X' . *" **是否可以弹出细节屏幕*  
  ps\_layout\-detailtitl = g\_title. *" **细节屏幕标题*  
ENDFORM.                    *"UPD\_PREPARE\_LAYOUT*  
  
*\*&---------------------------------------------------------------------\**  
*\*& Form FRM\_LX08*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
FORM frm\_lx08 .  
  DATA: lt\_table TYPE TABLE OF ty\_type.  
  DATA: ls\_table  TYPE ty\_type.  
  DATA:z\_pp\_0001 TYPE REF TO zhele\_pp\_0001.  
  CREATE OBJECT z\_pp\_0001.  
  
  lt\_table = gt\_table\[\].  
  DELETE lt\_table WHERE auart <> 'LX08'.  
  
  IF lt\_table\[\] IS INITIAL.  
    EXIT.  
  ENDIF.  
  
  SELECT aufnr ktext objnr auart  
    INTO TABLE gt\_aufk FROM aufk  
    FOR ALL ENTRIES IN lt\_table  
   WHERE aufnr = lt\_table\-aufnr.  
  
  
  SELECT objnr anln1 anln2  
    INTO  TABLE gt\_cobrb  
    FROM  cobrb  
    FOR ALL ENTRIES IN gt\_aufk  
    WHERE objnr = gt\_aufk\-objnr.  
  
  SELECT anln1 anln2 txt50  
       INTO TABLE gt\_anla  
       FROM anla FOR ALL ENTRIES IN gt\_cobrb  
       WHERE anln1 = gt\_cobrb\-anln1  
        AND anln2 = gt\_cobrb\-anln2.  
  SELECT aufnr plnty plnnr plnal INTO TABLE gt\_afko FROM afko  
                FOR ALL ENTRIES IN gt\_aufk  
                WHERE aufnr = gt\_aufk\-aufnr.  
  SELECT plnty plnnr vgw01 vgw02 vgw03 INTO TABLE gt\_plpo FROM plpo  
                FOR ALL ENTRIES IN gt\_afko  
                  WHERE plnty = gt\_afko\-plnty  
                 AND plnnr = gt\_afko\-plnnr.  
  
  SORT gt\_aufk BY aufnr.  
  SORT gt\_cobrb BY objnr.  
  SORT gt\_anla BY anln1 anln2.  
  SORT gt\_afko BY aufnr.  
  SORT gt\_plpo BY plnty plnnr.  
  
  
  LOOP AT gt\_table WHERE auart = 'LX08'.  
  
    READ TABLE gt\_aufk INTO gs\_aufk  
                       WITH KEY aufnr = gt\_table\-aufnr  
                       BINARY SEARCH.  
    IF sy\-subrc <> 0.  
      CONTINUE.  
    ENDIF.  
    gt\_table\-ktext = gs\_aufk\-ktext.  
    CALL METHOD z\_pp\_0001\->dingdanzhuangtai  
      EXPORTING  
        aufnr     = gs\_aufk\-aufnr  
      IMPORTING  
        status\_en = gt\_table\-ddzt.  
    CLEAR gs\_cobrb.  
    READ TABLE gt\_cobrb INTO gs\_cobrb  
      WITH KEY objnr = gs\_aufk\-objnr  
             BINARY SEARCH.  
    IF sy\-subrc EQ 0 .  
      gt\_table\-anln1 = gs\_cobrb\-anln1 .  
      gt\_table\-anln2 = gs\_cobrb\-anln2.  
      CONCATENATE gs\_cobrb\-anln1 '-' gs\_cobrb\-anln2 INTO gt\_table\-anln.  
      IF gt\_table\-anln = '-' .  
        gt\_table\-anln =''.  
      ENDIF.  
    ENDIF.  
    CLEAR:gs\_anla.  
    READ TABLE gt\_anla INTO gs\_anla  
       WITH KEY anln1 = gt\_table\-anln1  anln2 = gt\_table\-anln2  
         BINARY SEARCH.  
    IF sy\-subrc EQ 0.  
      gt\_table\-txt50 = gs\_anla\-txt50.  
*\* MODIFY gt\_table.*  
    ENDIF.  
    CLEAR:gs\_afko,gs\_plpo.  
    READ TABLE gt\_afko INTO gs\_afko  
             WITH KEY aufnr = gs\_aufk\-aufnr  
               BINARY SEARCH .  
    IF sy\-subrc EQ 0.  
      READ TABLE gt\_plpo INTO gs\_plpo  
            WITH KEY plnty = gs\_afko\-plnty plnnr = gs\_afko\-plnnr  
              BINARY SEARCH.  
      IF sy\-subrc EQ 0.  
        gt\_table\-all\_s\_jq = gs\_plpo\-vgw01.  
        gt\_table\-all\_s\_rg = gs\_plpo\-vgw02.  
        gt\_table\-all\_s\_zf = gs\_plpo\-vgw03.  
      ENDIF.  
    ENDIF.  
    MODIFY gt\_table.  
  ENDLOOP.  
  *"**新增字段**——**订单描述、资产编号、资产描述*  
*\*  IF gt\_table-auart = 'LX08' .*  
*\*    CLEAR:gt\_aufk,gt\_cobrb,gt\_anla,gt\_afko,gt\_plpo.*  
*\*    SELECT aufnr ktext objnr auart INTO TABLE gt\_aufk FROM aufk FOR ALL ENTRIES IN gt\_table*  
*\*                                   WHERE aufnr = gt\_table-aufnr AND auart = 'LX08'.*  
*\*    SELECT objnr anln1 anln2 INTO  TABLE gt\_cobrb FROM  cobrb*  
*\*                              FOR ALL ENTRIES IN gt\_aufk WHERE objnr = gt\_aufk-objnr.*  
*\*    SELECT anln1 anln2 txt50 INTO TABLE gt\_anla FROM anla FOR ALL ENTRIES IN gt\_cobrb*  
*\*                               WHERE anln1 = gt\_cobrb-anln1 AND anln2 = gt\_cobrb-anln2.*  
*\*    SELECT aufnr plnty plnnr plnal INTO TABLE gt\_afko FROM afko FOR ALL ENTRIES IN gt\_aufk WHERE aufnr = gt\_aufk-aufnr.*  
*\*    SELECT plnty plnnr vgw01 vgw02 vgw03 INTO TABLE gt\_plpo FROM plpo FOR ALL ENTRIES IN gt\_afko*  
*\*                                    WHERE plnty = gt\_afko-plnty*  
*\*                                    AND plnnr = gt\_afko-plnnr.*  
*\**  
*\*    SORT gt\_aufk BY aufnr.*  
*\*    SORT gt\_cobrb BY objnr.*  
*\*    SORT gt\_anla BY anln1 anln2.*  
*\*    SORT gt\_afko BY aufnr.*  
*\*    SORT gt\_plpo BY plnty plnnr.*  
*\**  
*\*    CLEAR:gs\_aufk."gs\_afko,gs\_cobrb,gs\_anla,gs\_plpo.*  
*\**  
*\*    DATA:z\_pp\_0001 TYPE REF TO zhele\_pp\_0001.*  
*\*    CREATE OBJECT z\_pp\_0001.*  
*\**  
*\*    LOOP AT gt\_aufk INTO gs\_aufk.*  
*\*      gt\_table-ktext = gs\_aufk-ktext.*  
*\*      CALL METHOD z\_pp\_0001->dingdanzhuangtai*  
*\*        EXPORTING*  
*\*          aufnr     = gs\_aufk-aufnr*  
*\*        IMPORTING*  
*\*          status\_en = gt\_table-ddzt.*  
*\*      CLEAR gs\_cobrb.*  
*\*      READ TABLE gt\_cobrb INTO gs\_cobrb WITH KEY objnr = gs\_aufk-objnr BINARY SEARCH.*  
*\*      IF sy-subrc EQ 0 .*  
*\*\*           gt\_table-anln1 = gs\_cobrb-anln1 .*  
*\*\*           gt\_table-anln2 = gs\_cobrb-anln2.*  
*\*        CONCATENATE gs\_cobrb-anln1 '-' gs\_cobrb-anln2 INTO gt\_table-anln1.*  
*\*      ENDIF.*  
*\*      CLEAR:gs\_anla.*  
*\*      READ TABLE gt\_anla INTO gs\_anla WITH KEY anln1 = gs\_cobrb-anln1  anln2 = gs\_cobrb-anln2 BINARY SEARCH.*  
*\*      IF sy-subrc EQ 0.*  
*\*        gt\_table-txt50 = gs\_anla-txt50.*  
*\*      ENDIF.*  
*\*      CLEAR:gs\_afko,gs\_plpo.*  
*\*      READ TABLE gt\_afko INTO gs\_afko WITH KEY aufnr = gs\_aufk-aufnr BINARY SEARCH .*  
*\*      IF sy-subrc EQ 0.*  
*\*        READ TABLE gt\_plpo INTO gs\_plpo WITH KEY plnty = gs\_afko-plnty plnnr = gs\_afko-plnnr BINARY SEARCH.*  
*\*        IF sy-subrc EQ 0.*  
*\*          gt\_table-all\_s\_jq = gs\_plpo-vgw01.*  
*\*          gt\_table-all\_s\_rg = gs\_plpo-vgw02.*  
*\*          gt\_table-all\_s\_zf = gs\_plpo-vgw03.*  
*\*        ENDIF.*  
*\*      ENDIF.*  
*\*      MODIFY gt\_table.*  
*\**  
*\*    ENDLOOP.*  
*\**  
*\*  ENDIF.*  
ENDFORM.  
  
  
  
  
FORM dis\_prepare\_field\_catalog CHANGING pt\_fieldcat TYPE lvc\_t\_fcat.  
  
  CLEAR pt\_fieldcat\[\].  
  DATA ls\_fcat TYPE lvc\_s\_fcat .  
  CLEAR ls\_fcat .  
  ls\_fcat\-coltext     = '报工日期'.  
  ls\_fcat\-fieldname   = 'ERSDA'.  
*\*  ls\_fcat-ref\_table = 'AFRU'.*  
*\*  ls\_fcat-ref\_field = 'ERDAT'.*  
*\*  ls\_fcat-no\_zero     = 'X'.*  
  ls\_fcat\-fix\_column  = 'X'.  
  APPEND ls\_fcat TO pt\_fieldcat.CLEAR ls\_fcat.  
  
  ls\_fcat\-coltext     = '过账日期'.  
  ls\_fcat\-fieldname   = 'BUDAT'.  
*\*  ls\_fcat-ref\_table = 'AFRU'.*  
*\*  ls\_fcat-ref\_field = 'ERDAT'.*  
*\*  ls\_fcat-no\_zero     = 'X'.*  
  ls\_fcat\-fix\_column  = 'X'.  
  APPEND ls\_fcat TO pt\_fieldcat.CLEAR ls\_fcat.  
  
  ls\_fcat\-coltext     = '订单类型'.  
  ls\_fcat\-fieldname   = 'AUART'.  
  ls\_fcat\-ref\_table = 'AUFK'.  
  ls\_fcat\-ref\_field = 'AUART'.  
*\*  ls\_fcat-no\_zero     = 'X'.*  
  ls\_fcat\-fix\_column  = 'X'.  
  APPEND ls\_fcat TO pt\_fieldcat.CLEAR ls\_fcat.  
  
  ls\_fcat\-coltext     = '订单号'.  
  ls\_fcat\-fieldname   = 'AUFNR'.  
  ls\_fcat\-ref\_table = 'AUFK'.  
  ls\_fcat\-ref\_field = 'AUFNR'.  
*\*  ls\_fcat-no\_zero     = 'X'.*  
  ls\_fcat\-fix\_column  = 'X'.  
  APPEND ls\_fcat TO pt\_fieldcat.CLEAR ls\_fcat.*"ernam*  
  
  ls\_fcat\-coltext     = '订单创建者'.  
  ls\_fcat\-fieldname   = 'ERNAM'.  
  ls\_fcat\-ref\_table = 'AUFK'.  
  ls\_fcat\-ref\_field = 'ERNAM'.  
*\*  ls\_fcat-no\_zero     = 'X'.*  
  ls\_fcat\-fix\_column  = 'X'.  
  APPEND ls\_fcat TO pt\_fieldcat.CLEAR ls\_fcat.  
  
  ls\_fcat\-coltext     = '订单描述'.  
  ls\_fcat\-fieldname   = 'KTEXT'.  
  ls\_fcat\-ref\_table = 'AUFK'.  
  ls\_fcat\-ref\_field = 'AUFTEXT'.  
*\*  ls\_fcat-no\_zero     = 'X'.*  
*\*  ls\_fcat-fix\_column  = 'X'.*  
  APPEND ls\_fcat TO pt\_fieldcat.CLEAR ls\_fcat.  
  
  ls\_fcat\-coltext     = '订单状态'.  
  ls\_fcat\-fieldname   = 'DDZT'.  
*\*  ls\_fcat-ref\_table = 'X'.*  
*\*  ls\_fcat-ref\_field = 'DDZT'.*  
  ls\_fcat\-no\_zero     = 'X'.  
*\*  ls\_fcat-fix\_column  = 'X'.*  
  APPEND ls\_fcat TO pt\_fieldcat.CLEAR ls\_fcat.  
  
  ls\_fcat\-coltext     = '资产编号'.  
  ls\_fcat\-fieldname   = 'ANLN'.  
*\*  ls\_fcat-ref\_table = 'COBRB'.*  
*\*  ls\_fcat-ref\_field = 'ANLN1'.*  
  ls\_fcat\-no\_zero     = 'X'.  
*\*  ls\_fcat-fix\_column  = 'X'.*  
  APPEND ls\_fcat TO pt\_fieldcat.CLEAR ls\_fcat.  
  
  ls\_fcat\-coltext     = '资产描述'.  
  ls\_fcat\-fieldname   = 'TXT50'.  
  ls\_fcat\-ref\_table = 'ANLA'.  
  ls\_fcat\-ref\_field = 'TXA50\_ANLT'.  
*\*  ls\_fcat-no\_zero     = 'X'.*  
*\*  ls\_fcat-fix\_column  = 'X'.*  
  APPEND ls\_fcat TO pt\_fieldcat.CLEAR ls\_fcat.  
  
  ls\_fcat\-coltext     = '订单数量'.  
  ls\_fcat\-fieldname   = 'GAMNG'.  
*\*  ls\_fcat-ref\_table = 'MARA'.*  
*\*  ls\_fcat-ref\_field = 'MATNR'.*  
*\*  ls\_fcat-no\_zero     = 'X'.*  
  ls\_fcat\-fix\_column  = 'X'.  
  ls\_fcat\-qfieldname = 'REFFI'.  
  APPEND ls\_fcat TO pt\_fieldcat.CLEAR ls\_fcat.  
  ls\_fcat\-coltext     = '确认编号'.  
  ls\_fcat\-fieldname   = 'RUECK'.  
*\*  ls\_fcat-ref\_table = 'MARA'.*  
*\*  ls\_fcat-ref\_field = 'MATNR'.*  
*\*  ls\_fcat-no\_zero     = 'X'.*  
  ls\_fcat\-fix\_column  = 'X'.  
  APPEND ls\_fcat TO pt\_fieldcat.CLEAR ls\_fcat.  
  ls\_fcat\-coltext     = '确认计数器'.  
  ls\_fcat\-fieldname   = 'RMZHL'.  
*\*  ls\_fcat-ref\_table = 'MARA'.*  
*\*  ls\_fcat-ref\_field = 'MATNR'.*  
*\*  ls\_fcat-no\_zero     = 'X'.*  
  ls\_fcat\-fix\_column  = 'X'.  
  APPEND ls\_fcat TO pt\_fieldcat.CLEAR ls\_fcat.  
  ls\_fcat\-coltext     = '报工数量'.  
  ls\_fcat\-fieldname   = 'LMNGA'.  
  ls\_fcat\-qfieldname = 'REFFI'.  
*\*  ls\_fcat-ref\_table = 'MARA'.*  
*\*  ls\_fcat-ref\_field = 'MATNR'.*  
*\*  ls\_fcat-no\_zero     = 'X'.*  
  ls\_fcat\-fix\_column  = ''.  
  APPEND ls\_fcat TO pt\_fieldcat.CLEAR ls\_fcat.  
  ls\_fcat\-coltext     = '确认标识'.  
  ls\_fcat\-fieldname   = 'AUERU'.  
*\*  ls\_fcat-ref\_table = 'MARA'.*  
*\*  ls\_fcat-ref\_field = 'MATNR'.*  
*\*  ls\_fcat-no\_zero     = 'X'.*  
  ls\_fcat\-fix\_column  = ''.  
  APPEND ls\_fcat TO pt\_fieldcat.CLEAR ls\_fcat.  
  ls\_fcat\-coltext     = '工作中心'.  
  ls\_fcat\-fieldname   = 'ARBPL'.  
*\*  ls\_fcat-ref\_table = 'MARA'.*  
*\*  ls\_fcat-ref\_field = 'MATNR'.*  
*\*  ls\_fcat-no\_zero     = 'X'.*  
  ls\_fcat\-fix\_column  = ''.  
  APPEND ls\_fcat TO pt\_fieldcat.CLEAR ls\_fcat.  
  ls\_fcat\-coltext     = '产品编码'.  
  ls\_fcat\-fieldname   = 'PLNBEZ'.  
  ls\_fcat\-ref\_table = 'MARA'.  
  ls\_fcat\-ref\_field = 'MATNR'.  
*\*  ls\_fcat-no\_zero     = 'X'.*  
  ls\_fcat\-fix\_column  = ''.  
  APPEND ls\_fcat TO pt\_fieldcat.CLEAR ls\_fcat.  
  
  ls\_fcat\-coltext     = '产品描述'.  
  ls\_fcat\-fieldname   = 'MAKTX'.  
*\*  ls\_fcat-ref\_table = 'MARA'.*  
*\*  ls\_fcat-ref\_field = 'MATNR'.*  
*\*  ls\_fcat-no\_zero     = 'X'.*  
  ls\_fcat\-fix\_column  = ''.  
  APPEND ls\_fcat TO pt\_fieldcat.CLEAR ls\_fcat.  
  
  ls\_fcat\-coltext     = '标准人工总工时'.  
  ls\_fcat\-fieldname   = 'ALL\_S\_RG'.  
*\*  ls\_fcat-ref\_table = 'MARA'.*  
*\*  ls\_fcat-ref\_field = 'MATNR'.*  
*\*  ls\_fcat-no\_zero     = 'X'.*  
  ls\_fcat\-fix\_column  = 'X'.  
  ls\_fcat\-qfieldname = 'REFFI'.  
  APPEND ls\_fcat TO pt\_fieldcat.CLEAR ls\_fcat.  
  ls\_fcat\-coltext     = '标准机器总工时'.  
  ls\_fcat\-fieldname   = 'ALL\_S\_JQ'.  
*\*  ls\_fcat-ref\_table = 'MARA'.*  
*\*  ls\_fcat-ref\_field = 'MATNR'.*  
*\*  ls\_fcat-no\_zero     = 'X'.*  
  ls\_fcat\-fix\_column  = ''.  
  ls\_fcat\-qfieldname = 'REFFI'.  
  APPEND ls\_fcat TO pt\_fieldcat.CLEAR ls\_fcat.  
  ls\_fcat\-coltext     = '标准其他总工时'.  
  ls\_fcat\-fieldname   = 'ALL\_S\_ZF'.  
*\*  ls\_fcat-ref\_table = 'MARA'.*  
*\*  ls\_fcat-ref\_field = 'MATNR'.*  
*\*  ls\_fcat-no\_zero     = 'X'.*  
  ls\_fcat\-fix\_column  = ''.  
  ls\_fcat\-qfieldname = 'REFFI'.  
  APPEND ls\_fcat TO pt\_fieldcat.CLEAR ls\_fcat.  
  ls\_fcat\-coltext     = '模具分摊数量'.  
  ls\_fcat\-fieldname   = 'ALL\_S\_MJ'.  
*\*  ls\_fcat-ref\_table = 'MARA'.*  
*\*  ls\_fcat-ref\_field = 'MATNR'.*  
*\*  ls\_fcat-no\_zero     = 'X'.*  
  ls\_fcat\-fix\_column  = ''.  
  ls\_fcat\-qfieldname = 'REFFI'.  
  APPEND ls\_fcat TO pt\_fieldcat.CLEAR ls\_fcat.  
  
  ls\_fcat\-coltext     = '实际人工总工时'.  
  ls\_fcat\-fieldname   = 'ALL\_A\_RG'.  
*\*  ls\_fcat-ref\_table = 'MARA'.*  
*\*  ls\_fcat-ref\_field = 'MATNR'.*  
*\*  ls\_fcat-no\_zero     = 'X'.*  
  ls\_fcat\-fix\_column  = ''.  
  ls\_fcat\-qfieldname = 'REFFI'.  
  APPEND ls\_fcat TO pt\_fieldcat.CLEAR ls\_fcat.  
  ls\_fcat\-coltext     = '实际机器总工时'.  
  ls\_fcat\-fieldname   = 'ALL\_A\_JQ'.  
*\*  ls\_fcat-ref\_table = 'MARA'.*  
*\*  ls\_fcat-ref\_field = 'MATNR'.*  
*\*  ls\_fcat-no\_zero     = 'X'.*  
  ls\_fcat\-fix\_column  = ''.  
  ls\_fcat\-qfieldname = 'REFFI'.  
  APPEND ls\_fcat TO pt\_fieldcat.CLEAR ls\_fcat.  
  ls\_fcat\-coltext     = '实际其他总工时'.  
  ls\_fcat\-fieldname   = 'ALL\_A\_ZF'.  
*\*  ls\_fcat-ref\_table = 'MARA'.*  
*\*  ls\_fcat-ref\_field = 'MATNR'.*  
*\*  ls\_fcat-no\_zero     = 'X'.*  
  ls\_fcat\-fix\_column  = ''.  
  ls\_fcat\-qfieldname = 'REFFI'.  
  APPEND ls\_fcat TO pt\_fieldcat.CLEAR ls\_fcat.  
  
  ls\_fcat\-coltext     = '差异人工工时'.  
  ls\_fcat\-fieldname   = 'ALL\_D\_RG'.  
*\*  ls\_fcat-ref\_table = 'MARA'.*  
*\*  ls\_fcat-ref\_field = 'MATNR'.*  
*\*  ls\_fcat-no\_zero     = 'X'.*  
  ls\_fcat\-fix\_column  = ''.  
  ls\_fcat\-qfieldname = 'REFFI'.  
  APPEND ls\_fcat TO pt\_fieldcat.CLEAR ls\_fcat.  
  ls\_fcat\-coltext     = '差异机器工时'.  
  ls\_fcat\-fieldname   = 'ALL\_D\_JQ'.  
*\*  ls\_fcat-ref\_table = 'MARA'.*  
*\*  ls\_fcat-ref\_field = 'MATNR'.*  
*\*  ls\_fcat-no\_zero     = 'X'.*  
  ls\_fcat\-fix\_column  = ''.  
  ls\_fcat\-qfieldname = 'REFFI'.  
  APPEND ls\_fcat TO pt\_fieldcat.CLEAR ls\_fcat.  
  ls\_fcat\-coltext     = '差异其他工时'.  
  ls\_fcat\-fieldname   = 'ALL\_D\_ZF'.  
*\*  ls\_fcat-ref\_table = 'MARA'.*  
*\*  ls\_fcat-ref\_field = 'MATNR'.*  
*\*  ls\_fcat-no\_zero     = 'X'.*  
  ls\_fcat\-fix\_column  = ''.  
  ls\_fcat\-qfieldname = 'REFFI'.  
  APPEND ls\_fcat TO pt\_fieldcat.CLEAR ls\_fcat.  
  ls\_fcat\-coltext     = '人工效率达成率'.  
  ls\_fcat\-fieldname   = 'R\_RG'.  
*\*  ls\_fcat-ref\_table = 'MARA'.*  
*\*  ls\_fcat-ref\_field = 'MATNR'.*  
*\*  ls\_fcat-no\_zero     = 'X'.*  
  ls\_fcat\-fix\_column  = ''.  
  APPEND ls\_fcat TO pt\_fieldcat.CLEAR ls\_fcat.  
  
  ls\_fcat\-coltext     = '机器效率达成率'.  
  ls\_fcat\-fieldname   = 'R\_JQ'.  
*\*  ls\_fcat-ref\_table = 'MARA'.*  
*\*  ls\_fcat-ref\_field = 'MATNR'.*  
*\*  ls\_fcat-no\_zero     = 'X'.*  
  ls\_fcat\-fix\_column  = ''.  
  APPEND ls\_fcat TO pt\_fieldcat.CLEAR ls\_fcat.  
  
  ls\_fcat\-coltext     = '其他效率达成率'.  
  ls\_fcat\-fieldname   = 'R\_ZF'.  
*\*  ls\_fcat-ref\_table = 'MARA'.*  
*\*  ls\_fcat-ref\_field = 'MATNR'.*  
*\*  ls\_fcat-no\_zero     = 'X'.*  
  ls\_fcat\-fix\_column  = ''.  
  APPEND ls\_fcat TO pt\_fieldcat.CLEAR ls\_fcat.  
  ls\_fcat\-coltext     = '异常原因'.  
  ls\_fcat\-fieldname   = 'LTXA1'.  
*\*  ls\_fcat-ref\_table = 'MARA'.*  
*\*  ls\_fcat-ref\_field = 'MATNR'.*  
*\*  ls\_fcat-no\_zero     = 'X'.*  
  ls\_fcat\-fix\_column  = ''.  
  APPEND ls\_fcat TO pt\_fieldcat.CLEAR ls\_fcat.  
  
  ls\_fcat\-coltext     = '责任人'.  
  ls\_fcat\-fieldname   = 'ZZRR'.  
*\*  ls\_fcat-ref\_table = 'MARA'.*  
*\*  ls\_fcat-ref\_field = 'MATNR'.*  
*\*  ls\_fcat-no\_zero     = 'X'.*  
  ls\_fcat\-fix\_column  = ''.  
  APPEND ls\_fcat TO pt\_fieldcat.CLEAR ls\_fcat.  
ENDFORM.  
*\*&---------------------------------------------------------------------\**  
*\*&      Form  dis\_SHOW\_DATA\_ALV*  
*\*&---------------------------------------------------------------------\**  
*\*       text*  
*\*----------------------------------------------------------------------\**  
FORM dis\_show\_data\_alv.  
  DATA: i\_grid\_title TYPE lvc\_title .  
  i\_grid\_title =  g\_title . *"'ALV**标题**' .*  
  
  *" **定义隐藏标准按钮的变量*  
  DATA: wa\_excluding TYPE slis\_extab,  
        it\_excluding TYPE slis\_t\_extab.  
  
  *" **设置要隐藏的按钮的**“FCODE”*  
  wa\_excluding\-fcode = '&ABC' .  
  APPEND wa\_excluding TO it\_excluding .  
  CLEAR wa\_excluding.  
  
  DATA:lt\_events TYPE TABLE OF slis\_alv\_event WITH HEADER LINE.  
  lt\_events\-name = 'CALLER\_EXIT'.  
  lt\_events\-form = 'ALV\_EVENT\_CALLER\_EXIT'.  
  APPEND lt\_events.  
  CALL FUNCTION 'REUSE\_ALV\_GRID\_DISPLAY\_LVC'  
    EXPORTING  
      i\_callback\_program       = sy\-repid *" **当前程序*  
      is\_layout\_lvc            = gs\_layout *" **属性内表*  
      it\_fieldcat\_lvc          = gt\_fieldcat\[\] *" **列明内表*  
*\*     it\_excluding             = it\_excluding\[\]*  
      i\_save                   = 'A' *" **是否保存布局*  
      i\_callback\_pf\_status\_set = 'ALV\_PF\_STATUS\_SET'  
*\*     i\_callback\_user\_command  = 'ALV\_USER\_COMMAND'*  
*\*     IT\_EVENTS                = LT\_EVENTS\[\]*  
      *"i\_callback\_html\_top\_of\_page  = 'ALV\_TOP\_OF\_PAGE1'*  
      *"I\_GRID\_TITLE                 = I\_GRID\_TITLE*  
*\*    it\_sort\_lvc                   = gt\_alv\_sort\[\]*  
    TABLES  
      t\_outtab                 = gt\_table\[\] *" **数据内表*  
    EXCEPTIONS  
      program\_error            = 1  
      OTHERS                   = 2.  
  
ENDFORM.                    *"dis\_SHOW\_DATA\_ALV*  
*\*&---------------------------------------------------------------------\**  
*\*&      Form  alv\_pf\_status\_set*  
*\*&---------------------------------------------------------------------\**  
*\*       text*  
*\*----------------------------------------------------------------------\**  
*\*      -->RT\_EXTAB   text*  
*\*----------------------------------------------------------------------\**  
FORM alv\_pf\_status\_set USING rt\_extab TYPE slis\_t\_extab.  
*\*copy the status from SAPLKKBL,and renamed it as ZSTANDARD.*  
  SET PF-STATUS 'STANDARD'.  
ENDFORM.                    *"ALV\_PF\_STATUS\_SET*

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70]: /images/20220206/6b4c852826544f5b929d2b9995f4511b.png